Yoko

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

Так ...