Yoko

Code: Select all

sub test()
   VAR shmot='0x0000' ; tip smota
   VAR count=0 ; s4et4ik
   VAR sunduk='0x00000000' ; serial sunduka s pustimy meshkami
   VAR sunduk2='0x00000000' ; serial sunduka s polnimi meshkami
   VAR meshok='0x0000' ; tip meshka
   VAR curent ; serial meshka v kototii kidaem
   VAR waittime=500 ; vremya pausy
   VAR max=100 ; kol-vo predmetov
UO.UseObject(sunduk)
UO.UseObject(sunduk2)
   While NOT UO.Dead()
      UO.FindType(meshok,-1,sunduk)
      wait(waittime)
      curent=UO.GetSerial('finditem')
      UO.Moveitem('finditem',1.sunduk2)
      wait(waittime)
      For count=1 to max
         UO.Findtype(shmot,-1,'ground')
         wait(waittime)
         If UO.Findcount() Then
            UO.Moveitem('finditem',1,curent)
            wait(waittime)
         Else
            count=count-1
         Endif
      Next
   Wend
end sub

Code: Select all

Sub get_amount(Type, Color, Cont)
var item_amount = 0
   UO.UseObject(Cont)
   CheckLag()
   UO.IgnoreReset()
   repeat
      UO.FindType(Type, Color, Cont)
      if UO.FindCount()>0 Then
         if UO.GetQuantity('finditem')==0 Then
            item_amount = item_amount + 1
         else
            item_amount = item_amount + UO.GetQuantity('finditem')
         end if
         UO.Ignore('finditem')
         UO.FindType(Type, Color, Cont)
      end if
   until UO.FindCount()<1
   UO.IgnoreReset()
   return item_amount
end sub

Code: Select all

Sub getGoods(tGood,cGood,qGood,resPack,destPack)
var t,z
   t = get_amount(tGood,cGood,uo.getSerial(destPack))
   while t < qGood
      z = grabContainer(tGood,cGood,qGood-t,resPack)
      if (z + t) == 0 then
         return false
      end if
      if z == 0 then
         return true
      end if
      t = get_amount(tGood,cGood,uo.getSerial(destPack))
   wend
   return true
end sub