Stealing(help)

[Kevlar]

Помогите довести до ума макрос.
Стоя в хайде открываем пак, который предварительно пробинжен ,addobject Pack1
Ищем нужные вещи и юзаем на них стилинг
пак открываем, пишет нашли, но не кидает таргет

Code: Select all

sub Stealing() 
   var l 
   dim Item[11]
   Item[1] = 0x13FF  ## - katana
   Item[2] = 0x13FD  ## - Havy-YeW
   Item[3] = 0x13BA ## - Viking
   Item[4] = 0x0F5E ## - Broad Sword
   Item[5] = 0x3FF2 ## - Orcs Blade
   Item[6] = 0x13F9 ## - Staf  
   Item[7] = 0x3FEE  ## - Gleffa
   Item[8] = 0x182B  ## - Shrink
   Item[9] = 0x1844  ## - Shrink Vechn.
   Item[10] = 0x20D6  ## - Dragon
   Item[11] = 0x13B6 ## - Scimitar 
   for l=1 to 11 
      if not uo.hidden() then
                        uo.warmode(1)
                        uo.warmode(0)
         UO.UseSkill('Hiding')
         wait(3000)   
      end if  
      if uo.hidden() then
                        uo.useobject('Pack1')
         uo.FindType(Item[l],"-1",Pack1)
         if uo.FindCount()>0 then
                 wait(1000) 
            UO.WaitTargetObject('Item[l]')
            UO.UseSkill('Stealing')
            wait(1000)   
         end if 
      next 
   end if
end if
end sub 

[Mirage]

отступы не правильные -> не видишь ошибки в if endif -> скрипт не работает. => достаточно расставить отступы.

Code: Select all

sub Stealing()
   var l
   dim Item[11]
   Item[1] = 0x13FF  ## - katana ; типы ЛУЧШЕ заключать в ковычки.
   Item[2] = 0x13FD  ## - Havy-YeW
   Item[3] = 0x13BA ## - Viking
   Item[4] = 0x0F5E ## - Broad Sword
   Item[5] = 0x3FF2 ## - Orcs Blade
   Item[6] = 0x13F9 ## - Staf 
   Item[7] = 0x3FEE  ## - Gleffa
   Item[8] = 0x182B  ## - Shrink
   Item[9] = 0x1844  ## - Shrink Vechn.
   Item[10] = 0x20D6  ## - Dragon
   Item[11] = 0x13B6 ## - Scimitar
   for l=1 to 11
      if not uo.hidden() then
         uo.warmode(1)
         uo.warmode(0)
         UO.UseSkill('Hiding')
         wait(3000)   
      end if 
      if uo.hidden() then
         uo.useobject('Pack1')
         uo.FindType(Item[l],"-1",Pack1)
         if uo.FindCount()>0 then
            wait(1000)
            UO.WaitTargetObject('Item[l]')
            UO.UseSkill('Stealing')
            wait(1000)   
         end if
      end if
   next
end sub 

[Kevlar]

Не хотел он у меня работать, пришлось заменить

Code: Select all

UO.WaitTargetObject('Item[l]')  НА    UO.WaitTargetObject('finditem)

+ расставил скобки как ты написал, вроде как работает.
Тещу...