Yoko

Code: Select all

sub sLootTest()
   var lastbody
   var i
   var NumberOfItems = 7
   
   DIM Loot[7]
   ###VALUABLES###
   Loot[1] = '0x204E' ;Shroud
   Loot[2] = '0x1549' ;OpticalMask
   Loot[3] = '0x1515' ;Elven/Denying/Incognito-Cloak
   Loot[4] = '0x13FE' ;Katana
   Loot[5] = '0x108A' ;Ring
   Loot[6] = '0x1B78' ;White/BlackWood-Kite
   Loot[7] = '0x1B7A' ;WhiteWoodShield
   
   
   UO.Set('quiet','1')
   uo.set('finddistance','3')
   uo.findtype('0x2006','-1','ground')
   UO.UseObject('finditem')
   wait (100)
   lastbody = uo.getSerial('finditem')
   for i = 1 to NumberOfItems
      wait(100)
      uo.findtype(Loot[i],'-1',lastbody)
      if UO.GetQuantity('finditem') then
         uo.moveitem( 'finditem', 'all', 'my' )
         wait(100) ; 
      endif
   next
   UO.Set('quiet','0')
   uo.hide(lastbody)
   UO.Resend()
   uo.ignore(lastbody)
endsub

До того как я прикрутил сюда хайд и игнор чар пытался вылутить последний труп . 
Правильно ли я реализовал игнор последнего вылученного трупа ? 

Code: Select all

sub Loot()
   var box, find = 1, notake = "0x203B 0x203C 0x203D 0x203E 0x203F 0x204A 0x204B 0x204C 0x204D 0x2040 0x2041 0x2042 0x2043 0x2044 0x2045 0x2046 0x2047 0x2048 0x2049 0x09F1 0x09B9 0x0F0E 0x0F85 0x0F7B 0x0F8C 0x0F8D 0x0F84 0x0F86 0x0F88 0x0F7A 0x0F0B 0x0F07"
   repeat
      uo.findtype("0x2006", -1, "ground", 2)
      if uo.findcount() then
         box = uo.getserial("finditem")
         uo.useobject(box)
         wait(100)
         repeat
            uo.findtype(-1, -1, box)
            if uo.findcount() and not Instring(uo.getgraphic("finditem"), notake) then
               uo.moveitem("finditem", 0, "backpack")
               wait(100) 
            else
               if uo.findcount() then
                  uo.ignore("finditem")
               end if
               if not uo.findcount() then
                  find = 0
               end if
               wait(100)
            end if
         until find == 0 
         uo.ignore(box)
      else
         box = 0
      end if
   until box == 0
   uo.print("Закончил!")
end sub

Code: Select all

sub Instring(substr, string)
   var str, i
   for i = 0 to len(string) - 1
      str = mid(string, i, len(substr))
      if str == substr then
         return 1
      end if
   next
   return 0
end sub

Code: Select all

uo.useobject(box)
         wait(100)