Народ Помогите
Posted: 2006-03-12 11:47:45
У кого есть скрипт на BOMBI но чтоб он их не кидал в одну кучу HELP PLIZZZ 
Code: Select all
sub ExplodeHim()
VAR i
For i=1 to 10
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.Print('let's cast')
end subCode: Select all
uo.DropCode: Select all
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