Ultima Online Antares

#;----------------------------------------------------------------------------

var LootDelay   = 350          ; задержка на лут предметов из трупа

var LootDist    = 2            ; расстояние с которого лутить труп
var LootSize    = 1            ; размер массива предметов

var Carve       = True         ; резать трупы
var Cut         = True         ; резать кожу
var Hidden      = false       ; прятаться во время лута
var Track       = True    ; трекать игроков
#var Track       = false


var Knife       = '0x0EC3'
#var Knife       = '0x0EC2'     ; тип ножа для резки трупов "Cleaver"
var Scissors    = '0x0F9E'     ; тип ножниц
var Hide        = '0x1078'     ; тип неразрезанной кожи
var Corpse      = '0x2006'     ; тип трупа
var Corpse2  = '0x0ECA'  #труп хумана
var dBag = '0x0160'; цвет контейнера, куда скидывать лут

#;------------------------------------------------------------------
#; Лут трупа, бинд на кнопку
#;------------------------------------------------------------------

Sub looting()
  
   dim Loot[LootSize]
   Loot[1]     = '0xFFFF'     ; все предметы
   var bag
   var CurrentCorpse
   var Index
   uo.findtype('0x0E76','dBag')
   if UO.FindCount()>0 then
      bag=uo.getserial("finditem")
   else
      bag='0x00000000'
   endif
   UO.WarMode(False)
  
   UO.Set('finddistance', Str(LootDist))
  
   UO.FindType(Corpse, '-1', 'ground')
  
   if UO.FindCount()>0 then
   else
      
      UO.findtype(Corpse2,'-1','ground')
   endif
  
  
  
  
   if UO.FindCount() > 0 then
      uo.setreceivingcontainer(bag)
      CurrentCorpse = UO.GetSerial('finditem')
      UO.Print('Лутим труп ' + UO.GetName(CurrentCorpse))
      UO.UseObject(CurrentCorpse)
      Wait(500)
      if Carve and UO.Count(Knife) then
         UO.WaitTargetObject(CurrentCorpse)
         UO.UseType(Knife)
         Wait(500)
      end if
      
      if Hidden and not UO.Hidden() then
         UO.UseSkill('Hiding')
      end if
      
      UO.FindType('0x0E89', '-1', CurrentCorpse)
      
      if UO.FindCount() > 0 then
         UO.Ignore('finditem')
      end if
      
      for Index = 1 to LootSize
        
         UO.FindType(Loot[Index], '-1', CurrentCorpse)
         while UO.FindCount() > 0
            if Track then
               UO.WaitMenu('Tracking', 'Players')
               UO.UseSkill('Tracking')
            end if
            if UO.GetDistance(CurrentCorpse) > LootDist then
               UO.Print('Труп облутан не полностью!')
               UO.WarMode(True)
               return False
            end if
            
            #uo.moveitem('finditem','0',dBag)
            UO.Grab('10000','finditem')
            Wait(LootDelay)
            UO.FindType(Loot[Index], '-1', CurrentCorpse)
         wend
      next
      
      UO.Hide(CurrentCorpse)
      UO.Ignore(CurrentCorpse)
   end if
  
   if Cut and UO.Count(Scissors) and UO.Count(Hide) then
      UO.WaitTargetType(Hide)
      UO.UseType(Scissors)
   end if
  
   uo.unsetreceivingcontainer()
  
   UO.WarMode(True)
   UO.Print('Труп успешно облутан.')
   return True
  
end Sub