Проблема с грабом
Posted: 2008-01-31 07:45:02
ПРоблема в том что нижеприведенный скрипт подбирает любое кол-во руды кроме 1 единицы , пишет что находит, но не подбирает зараза, не могу понять в чем причина
Code: Select all
sub Pickup_ore()
var a, Exit
DIM Ore[4]
Ore[0] = 0x19B9 ## - 4 and more ore
Ore[1] = 0x19B7 ## - 1 ore
Ore[2] = 0x19BA ## - 2 ore
Ore[3] = 0x19B8 ## - 3 ore
UO.Exec('set finddistance 3')
for a = 0 to 3
exit=0
repeat
uo.FindType(Ore[a], '-1', '1')
if uo.GetQuantity('finditem') > 0 then
uo.Grab('0', 'finditem')
wait(300)
CheckLag()
else
exit=1
End if
until Exit==1
next
end sub