Yoko

Code: Select all

sub Regs()
VAR need, i 
VAR Safe = '0x40090B17'
VAR BagPot = '0x40175AB4'

UO.UseObject(Safe)
UO.UseObject(BagPot)
DIM Col[3]
Col[0] = '0x09DF' ;totalmana
Col[1] = '0x09bb' ;gh
Col[2] = '0x0997' ;refresh
for i=0 to 3
UO.FindType('0x0F0E',Col[i],'backpack')
If UO.GetQuantity('finditem') < 10 then
need = 10 - UO.GetQuantity('finditem')
UO.Ignor('finditem')
UO.FindType('0x0F0E',Col[i],BagPot)
    UO.MoveItem('finditem',STR(need),'backpack')
    wait(600)    
End if
next 
end sub

Code: Select all

UO.FindType('0x0F0E',Col[i],'backpack')

Code: Select all

for i=0 to 3 

Code: Select all

for i=0 to 2