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

[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 тоесть перед самым взрывом на ласт таргет тоесть под противника. Буду очень признателен.

[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

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

[Revenant]

пробовал, только по время отчета хотелось бы еще 4 штуки кинуть под цель