Yoko
http://forum.yoko.com.ua/

Stealing(help)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16633		 Page 1 of 1
Author:  Kevlar [ 2011-05-24 16:14:08 ]
Post subject:  Stealing(help)
Помогите довести до ума макрос.
Стоя в хайде открываем пак, который предварительно пробинжен ,addobject Pack1
Ищем нужные вещи и юзаем на них стилинг
пак открываем, пишет нашли, но не кидает таргет

Code:
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
Author:  Mirage [ 2011-05-24 18:31:20 ]
Post subject:  Re: Stealing(help)
отступы не правильные -> не видишь ошибки в if endif -> скрипт не работает. => достаточно расставить отступы.
Code:
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
Author:  Kevlar [ 2011-05-24 19:20:18 ]
Post subject:  Re: Stealing(help)
Не хотел он у меня работать, пришлось заменить

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


+ расставил скобки как ты написал, вроде как работает.
Тещу...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/