Допищите если будет время
Posted: 2004-11-03 12:38:07
Трабл такой есть скрипт на бросание експов под чела но он тупо кидает под него вот если бы развернуть этот скрипт чтоб он бросал не токо под него и еще вокруг это было бы кульно если кто шарит зделайте плиз!
Code: Select all
sub Exp()
VAR i, pack='0x401EBB96',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=80 ; 1 bomb hits
CountEX=INT(UO.GetHP('laststatus')/ExHP+0.99)
UO.Print(STR(CountEX)+" explodov nado :)")
For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
CheckLag()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(300)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub