Yoko

Code: Select all

sub automove() 
var t, n, j 
   UO.AddObject("bag") 
   repeat 
      wait(1000) 
   until NOT UO.Targeting() 

   if UO.GetSerial("bag") == 0 then 
      UO.Print("ERORR") 
      return 0 
   endif 
Dim A[2] 
A[0] = 0x0F95
A[1] = 0x0F96
A[2] = 0x0F97

####o2##### 
repeat
for n=0 to 2 
uo.findtype(A[n]) 
if uo.findcount() then 
j=uo.random(20)*3 
t=505+j 
UO.Moveitem('finditem','all','bag',150 0 0) 
uo.print('wait '+str(t)) 
wait(t) 

end if 
next 

until UO.Dead()
end sub

Code: Select all

sub rasklad1() 
   VAR i,Exit 

   DIM Yeah[11] 

       Yeah[0]=0x0F7B 
       Yeah[1]=0x0F86 
       Yeah[2]=0x0F7A 
       Yeah[3]=0x0F88      
       Yeah[4]=0x0F8C 
       Yeah[5]=0x0F8D 
       Yeah[6]=0x0F84 
       Yeah[7]=0x0EED 
       Yeah[8]=0x0E9B 
       Yeah[9]=0x176B 
       Yeah[10]=0x0F85 

for i = 0 to 10 
  uo.findtype(Yeah[i],-1,'backpack') 
  while uo.findcount() > 0 
    uo.findtype(Yeah[i],-1,'backpack') 
    uo.moveitem('finditem',-1,'backpack',44,132,0) 
    uo.ignore('finditem') 
    wait(500) 
  wend 
  uo.ignorereset() 
next 
endsub

Code: Select all

  uo.findtype(Yeah[i],-1,'backpack')