Yoko

Code: Select all

Dim A[4]
A[1]='0x19B9'
A[2]='0x19B8'
A[3]='0x19BA'
A[4]='0x19B7'
UO.IgnoreReset()
Var K,T,I,X,Y,AX,AY,OX,OY,P,J,B
If MiningUp Then
 Var Ap=UO.Timer()
 Var Ka=UO.Count(A[1])+UO.Count(A[2])+UO.Count(A[3])-1
 If K<0 Then
  Ka=0
 EndIf 
 For I=1 to 3
  UO.FindType(A[I],'-1','backpack')
  AX=UO.GetX('finditem')
  AY=UO.GetY('finditem')
  OX=UO.GetX('finditem')
  OY=UO.GetY('finditem')
  X=UO.GetX('finditem')
  Y=UO.GetY('finditem')
  While UO.FindCount()>0
   T=UO.GetQuantity('finditem')
   Wait(500)
   UO.MoveItem('finditem','1','backpack',Str(X),Str(Y),'0')
   While T==UO.GetQuantity('finditem') 
    Wait(240)
   Wend 
   P=UO.Count(A[1])+UO.Count(A[2])+UO.Count(A[3])-1
   If P<0 Then
    P=0
   EndIf 
   UO.Print('Rebringing... '+Str(P))
   If AX>X Then
    X=X+1
   Else 
    If OY<Y Then
     Y=Y-1
    Else 
     AX=AX+1
     AY=AY+1
     X=OX
     Y=AY
    EndIf
   EndIf
  UO.FindType(A[I],'-1','backpack')
  Wend  
 Next
EndIf #