Ultima Online Antares

sub razgryzPvM()

   VAR Sunduk1 ='0x408EB479'; свитки
   VAR Sunduk2 ='0x407FE4B4'; камни
    
   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
      
   if uo.getdistance(Sunduk1) <= 2 then                ### свитки ###
      uo.setreceivingcontainer(Sunduk1)
      PUTLootR('0x1F2E', '-1', 'backpack'); 1кр
      PUTLootR('0x1F2F', '-1', 'backpack');
      PUTLootR('0x1F30', '-1', 'backpack');
      PUTLootR('0x1F31', '-1', 'backpack');
      PUTLootR('0x1F32', '-1', 'backpack');
      PUTLootR('0x1F33', '-1', 'backpack');
      PUTLootR('0x1F2D', '-1', 'backpack');
      PUTLootR('0x1F34', '-1', 'backpack');
      PUTLootR('0x1F35', '-1', 'backpack'); 2кр
      PUTLootR('0x1F36', '-1', 'backpack');
      PUTLootR('0x1F37', '-1', 'backpack');
      PUTLootR('0x1F38', '-1', 'backpack');
      PUTLootR('0x1F39', '-1', 'backpack');
      PUTLootR('0x1F3A', '-1', 'backpack');
      PUTLootR('0x1F3B', '-1', 'backpack');
      PUTLootR('0x1F3C', '-1', 'backpack');
      PUTLootR('0x1F3D', '-1', 'backpack'); 3кр
      PUTLootR('0x1F3E', '-1', 'backpack');
      PUTLootR('0x1F3F', '-1', 'backpack');
      PUTLootR('0x1F40', '-1', 'backpack');
      PUTLootR('0x1F41', '-1', 'backpack');
      PUTLootR('0x1F42', '-1', 'backpack');
      PUTLootR('0x1F43', '-1', 'backpack');
      PUTLootR('0x1F44', '-1', 'backpack');
      PUTLootR('0x1F45', '-1', 'backpack'); 4кр
      PUTLootR('0x1F46', '-1', 'backpack');
      PUTLootR('0x1F47', '-1', 'backpack');  
      PUTLootR('0x1F48', '-1', 'backpack');
      PUTLootR('0x1F49', '-1', 'backpack');
      PUTLootR('0x1F4A', '-1', 'backpack');
      PUTLootR('0x1F4B', '-1', 'backpack');
      PUTLootR('0x1F4C', '-1', 'backpack');
      PUTLootR('0x1F4D', '-1', 'backpack'); 5кр
      PUTLootR('0x1F4E', '-1', 'backpack');
      PUTLootR('0x1F4F', '-1', 'backpack');
      PUTLootR('0x1F50', '-1', 'backpack');
      PUTLootR('0x1F51', '-1', 'backpack');
      PUTLootR('0x1F52', '-1', 'backpack');
      PUTLootR('0x1F53', '-1', 'backpack');
      PUTLootR('0x1F54', '-1', 'backpack');
      PUTLootR('0x1F55', '-1', 'backpack'); 6кр
      PUTLootR('0x1F56', '-1', 'backpack');
      PUTLootR('0x1F57', '-1', 'backpack');
      PUTLootR('0x1F58', '-1', 'backpack');
      PUTLootR('0x1F59', '-1', 'backpack');  
      PUTLootR('0x1F5A', '-1', 'backpack');
      PUTLootR('0x1F5B', '-1', 'backpack');
      PUTLootR('0x1F5C', '-1', 'backpack');
      PUTLootR('0x1F60', '-1', 'backpack'); 7кр
      PUTLootR('0x1F64', '-1', 'backpack');
      PUTLootR('0x1F5E', '-1', 'backpack');
      PUTLootR('0x1F5F', '-1', 'backpack');
      PUTLootR('0x1F63', '-1', 'backpack');
      PUTLootR('0x1F61', '-1', 'backpack');
      PUTLootR('0x1F5D', '-1', 'backpack');
      PUTLootR('0x1F62', '-1', 'backpack');
      PUTLootR('0x1F65', '-1', 'backpack'); 8кр
      PUTLootR('0x1F69', '-1', 'backpack');
      PUTLootR('0x1F67', '-1', 'backpack');
      PUTLootR('0x1F6C', '-1', 'backpack');
      PUTLootR('0x1F6A', '-1', 'backpack');
      PUTLootR('0x1F68', '-1', 'backpack');
      PUTLootR('0x1F66', '-1', 'backpack');  
      PUTLootR('0x1F6B', '-1', 'backpack');
        
   end if
  
   if uo.getdistance(Sunduk2) <= 2 then                 ### камни ###
      uo.setreceivingcontainer(Sunduk2)
      PUTLootR('0x0F26', '-1', 'backpack'); гранад
      PUTLootR('0x0F25', '-1', 'backpack'); амбер
      PUTLootR('0x0F13', '-1', 'backpack'); рубин
      PUTLootR('0x0F11', '-1', 'backpack'); сапфир
      PUTLootR('0x0F18', '-1', 'backpack'); турмалин
      PUTLootR('0x0F15', '-1', 'backpack'); цитрин
      PUTLootR('0x0F10', '-1', 'backpack'); эмиральд
      PUTLootR('0x0F16', '-1', 'backpack'); аметист
      PUTLootR('0x0F26', '-1', 'backpack'); диамонд
      
   end if

  
   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

   PUTLoot2(0xf0f, 0xf30, '-1', corps, pack,'','','');   все камни
   PUTLoot2(0x1f2d, 0x1f6c, '0', corps, pack,'','','');   scroll 1-8 уровней