Заранее благодарен
Code: Select all
sub smelt()
var i
movechar(plavilkaX,plavilkaY)
while not uo.dead() and uo.count("0x19B9")
VAR a,Exit
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.MoveItem( 'finditem', 'all', 'ground', '4770', '3770', '0' )
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
wait(2000)
wend
movechar(plavilkaX2,plavilkaY2)
wait(2000)
movechar(plavilkaX3,plavilkaY3)
end sub