Yoko

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

Code: Select all

UO.FindType( 'тип руды', 'цвет руды', 'ground')
if UO.FindCount() > 0 Then
	kucha=UO.GetSerial('finditem')
	UO.FindType( 'тип руды', 'цвет руды', 'my')
	if UO.FindCount() > 0 Then
		uo.moveitem('finditem', 0, kucha)
		wait(300)
	endif
endif