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)

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