Page 1 of 1

Скрипт на Кидание Бомб

Posted: 2004-11-16 16:50:50
by MiLLeR
sub Bomb()
UO.FindType('0x0F0D')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.UseObject('finditem')
wait(4000)
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Endif
end sub

Вот Скрипт значит жмем кнопку начинается отсчет бомбы появляется таргет указываеш на цель и кидает..
Спецы мне нужно чтобы бомба кидалась автоматом на счет 3 тоесть перед самым взрывом на ласт таргет тоесть под противника. Буду очень признателен.

Posted: 2004-11-20 18:40:58
by Quader
sub Bomb()
UO.FindType('0x0F0D')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.UseObject('finditem')
while not UO.InJournal('3')
wait(100)
wend
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Endif
end sub

Так не пробывал?

Posted: 2004-11-24 10:37:03
by Revenant
пробовал, только по время отчета хотелось бы еще 4 штуки кинуть под цель