Yoko

Posted: **2007-04-04 04:15:51**

никак не могу въехать почему не пашет.. то ли чтото недописано, то ли я кривой, то ли хз

UO.UseType('ing')

и что ет.. пробовал объявить эту переменную равную типу ингов, но все равно не работает.. мозг уже савсем не пашет

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: **2007-04-11 16:27:40**

Code: Select all

   VAR IngName,Delay=3000
   VAR ing = 0x0000

Posted: **2007-04-14 02:51:53**

все равно не пашет. загружает эти automenu и пишет no item found
типы стоят правильно! и инги и setcatchbag

Yoko

Бс (крафт)

Бс (крафт)