Code:
sub ExplodeHim()
VAR i
For i=1 to 6
UO.FindType('0x0F0D','0x0B99','backpack')
If UO.GetQuantity('finditem') Then
CheckLag()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
uo.print(str(i))
wait(300)
Else
uo.exec("terminate explodehim")
UO.Print("Explosives not found!")
EndIf
Next
UO.Drop('1',STR(UO.GetX('laststatus')+1),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
UO.Drop('1',STR(UO.GetX('laststatus')-1),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')+1),STR(UO.GetZ('laststatus')),'finditem')
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')-1),STR(UO.GetZ('laststatus')),'finditem')
uo.Print('let's cast')
end sub
так примерно ))