Yoko

Posted: **2006-08-13 12:42:52**

Проблемма в том, что при написании пути Крафта скрипт путается незнаю почему ??? Наверно изза совпадения 3-ей и 4-ой строчки, помогите...

Code: Select all

uo.automenu('Blacksmithing','Colored Armor & Weapons') 
uo.automenu('Colored Armor & Weapons','Dull Copper Armor') 
uo.automenu('Dull Copper Armor & Shields','t Dull Copper Armor & Shield') 
uo.automenu('Dull Copper Armor & Shields','Dull Copper Heater Shield (18')

Posted: **2006-08-19 21:30:29**

Последняя строчка, в названии айтема нехватает закрывающей скобки. А вообще, раз ты на ДрВ, то кол-во ингов в названии можно не указывать.

Posted: **2006-08-24 13:22:25**

Не проблемма не в этом, так я и не понял в чём дело, вроде это ошибка Ультимы

Posted: **2006-08-24 14:12:43**

Амперсанд.

Posted: **2006-08-24 14:50:50**

Вхат???

Posted: **2006-08-24 17:05:14**

Глючить может из за амперсанда. Для захвата меню достаточно одного слова. Пробуй настраивать построчно. Сначала запускаешь одну строку меню и делаешь попытку сковать предмет если меню провалилось на 1 левел запускаешь вторую строчку и пробуешь ковать предмет.... и так пока не скует. Таким же образом выявляется неработающий пункт меню.

Вот скрипт старенький, может уже и не работает.

Code: Select all

sub bsarm()
	VAR IngName,Delay=3000

	IngName="Gold"
	UO.FindType('0x0E76','0x0000')
	UO.SetCatchBag('finditem')

	UO.AutoMenu(IngName+' Plate','Platemail (25')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Plate:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Plate
	endif
	UO.CancelMenu()
	wait(Delay)

	UO.AutoMenu(IngName+' Plate','Platemail Legs')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Legs:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Legs
	endif
	UO.CancelMenu()
	wait(Delay)

	UO.AutoMenu(IngName+' Plate','Platemail Arms')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Arms:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Arms
	endif
	UO.CancelMenu()
	wait(Delay)

	UO.AutoMenu(IngName+' Plate','Platemail Gauntlets')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Gloves:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Gloves
	endif
	UO.CancelMenu()
	wait(Delay)

	UO.AutoMenu(IngName+' Plate','Plate Helm')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Helm:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Helm
	endif
	UO.CancelMenu()
	wait(Delay)
	
	UO.AutoMenu(IngName+' Plate','Platemail Gorget')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')

Gorget:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Gorget
	endif
	UO.CancelMenu()
	wait(Delay)

goto End

	UO.AutoMenu(IngName+' Plate','Heater')
	UO.AutoMenu(IngName+' Armor','Plate')
	UO.AutoMenu('Colored','Armor')
	UO.AutoMenu('Blacksmithing','Colored')
Heater:
	UO.DeleteJournal()
	UO.UseType('ing')

	while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
			wait(500)
	wend
	if UO.InJournal("You have failed") then
		goto Heater
	endif
	UO.CancelMenu()
	wait(Delay)

End:
	UO.UnSetCatchBag()

end sub

Posted: **2006-08-25 15:09:16**

Спасибо буду, тестировать.

Yoko

Blacksmithing Помогите ПЛЗ.

Blacksmithing Помогите ПЛЗ.