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

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Alegarh
Posts: 61
Joined: 2005-02-22 10:55:22
Location: Русский из Латвии.

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

Post by Alegarh »

Проблемма в том, что при написании пути Крафта скрипт путается незнаю почему ??? Наверно изза совпадения 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') 
1a2a3a4a5a6a
Posts: 173
Joined: 2006-02-10 13:26:37

Post by 1a2a3a4a5a6a »

Последняя строчка, в названии айтема нехватает закрывающей скобки. А вообще, раз ты на ДрВ, то кол-во ингов в названии можно не указывать.
[color=red][size=92]Shard: Dragon World[/size][/color]
Alegarh
Posts: 61
Joined: 2005-02-22 10:55:22
Location: Русский из Латвии.

Post by Alegarh »

Не проблемма не в этом, так я и не понял в чём дело, вроде это ошибка Ультимы :?
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Амперсанд.
Alegarh
Posts: 61
Joined: 2005-02-22 10:55:22
Location: Русский из Латвии.

Post by Alegarh »

Вхат???
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Глючить может из за амперсанда. Для захвата меню достаточно одного слова. Пробуй настраивать построчно. Сначала запускаешь одну строку меню и делаешь попытку сковать предмет если меню провалилось на 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
Alegarh
Posts: 61
Joined: 2005-02-22 10:55:22
Location: Русский из Латвии.

Post by Alegarh »

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