Ultima Online Antares

sub razgryzPvM()
   VAR Sunduk1 ='0x405492F5'; ткань
   VAR Sunduk8 ='0x4054956D'; бижа
   VAR Sunduk9 ='0x406395F9'; бланки
   VAR Sunduk7 ='0x405495A5'; свитки
   VAR Sunduk6 ='0x40639676'; инструменты
   VAR Sunduk2 ='0x405492BF'; камни
   VAR Sunduk3 ='0x40549174'; железо
   VAR Sunduk4 ='0x40549145'; логи дерево
   VAR Sunduk10 ='0x404279AF'; эльшинар рег
   VAR Sunduk5 ='0x405497FF'; руины
   VAR Sumka1 ='0x406396CA'; руин лук++
      
   VAR printcolour = '1069'
   VAR shkyrka=0, TType=1
  
   uo.useskill('Spirit Speak')
  
   while UO.Count('0x1078') > 0
      UO.FindType('0x1078','-1','backpack')
      if UO.FindCount() > 0 then
         shkyrka = uo.getSerial("finditem")
         uo.waittargetobject(shkyrka)
         uo.usetype('0x0F9E')
         wait(1000)
      end if
   wend
      
  
   uo.unsetreceivingcontainer()
   uo.charprint('self',printcolour, 'Закончил!' )
  
end sub

Sub PUTLootR(Type, Color, Otkuda)
   UO.FindType(Type, Color, Otkuda)
   while UO.FindCount('finditem') > 0
      UO.Grab("0","finditem")
      wait(300)
      UO.FindType(Type, Color, Otkuda)
   wend
end sub

Sub PUTLoot2R(Type1, Type2, Color, Otkuda)
   VAR TType = 0
   for TType = Type1 to Type2
      PUTLootR(TType, Color, Otkuda)
   next
end sub