Ultima Online Antares

Sub Looting1()
   UO.AddFindList('loot', 0x0F3F) ; arrow  
   UO.AddFindList('loot', 0x1078) ; pile of hides
   UO.AddFindList('loot', 0x0EED) ; golden coins
    
   var count=0
   var i,kol,Ser
  
   if UO.FindType(0x2006, -1, 'ground', 2) <> '' then
      Ser=uo.GetSerial('finditem')
      
      if not UO.WaitingForJournalText(Now(), 500, "You can't") && UO.Count(Nozhik) > 0 then
         UO.WaitTargetObject(Ser)
         checklag()
         UO.UseType(Nozhik)
         Wait(500)
         UO.UseObject(Ser)
         Wait(200)
      end if
      UO.FindList('loot', Ser)
      While UO.FindCount(finditem) > 0 && UO.GetDistance(Ser)<=2  ; Пока количество найденного больше 0
         UO.MoveItem('finditem', -1, LootPack)  ; Забираем найденное в пак
         wait(200)
         UO.FindList('loot', Ser)
      Wend
      UO.Print( 'The loot was finished' )
      UO.Ignore(Ser)
   end if
end sub

Sub REZall(Type_Cleaver,Colour_Cleaver); в функцию залетали параметры для нуби или простого кливера
   uo.findtype(body, -1, 'ground', LootDist); LootDist = 2 тайла, задана выше в var
   if uo.findcount() then
      corpse = uo.getSerial("finditem")
      if CheckFlag('Carve') then
         UO.DeleteJournal()
         UO.WaitTargetObject(corpse)
         UO.UseType(Type_Cleaver, Colour_Cleaver)
         LastTimer=UO.Timer()
         repeat
            wait(100)
         until UO.InJournal('ou carve') or UO.Timer()>LastTimer+2; пауза ожидания сообщения порезки или 2 секунды
      endif
      if UO.Weight > str(uo.str*3.66) then
         Loot(corpse)
      else
         uo.charprint('self', printcolour, 'Перегруз!')
      endif
   endif
end sub

UO.WaitTargetObject(Ser)
UO.UseType(Nozhik)
checklag()

         UO.waittargetobject(corpse)
         uo.usetype('0x1EBA') # 0x1EBA - victorinoxkit # 0x0EC3 - butcher
         wait(75)
         checklag()

var test_id = '0x404DFB9A'; пофигуче на земле

sub main()
   if UO.GetDistance(test_id) <= 2 && coord(test_id) then
      uo.print('Skin')
   else
      uo.print('Not skin')
   endif
end sub

Sub coord(id)
   var tX = str(uo.getx('self')-uo.getx(id))
   var tY = str(uo.gety('self')-uo.gety(id))
   if (val(tX)==-2 && val(tY)==-2) || (val(tX)==2 && val(tY)==-2) || (val(tX)==2 && val(tY)==2) || (val(tX)==-2 && val(tY)==2) then
      return 0
   else
      return 1
   endif
endsub