Yoko

Code: Select all

uo.exec("ongump 'anygump' 'кнопка'")
uo.recall("рунбука","кнопка")

Code: Select all

sub alchtrain()
	VAR Exit=0, LastTimer, TryToPoison
	VAR Store='0x40024D41',Kniga='0x4002BF04'
	VAR Dagger='0x40014BA2'
	VAR FirstGump='0x00000457'
	VAR SecondGump='0x00000462'

	While TRUE
;		ToHide()
		UO.DeleteJournal()

		If UO.Count('0x0F0E')<2 then
			UO.FindType('0x0F0E','0x0000',Store)
			wait(1000)
			UO.Grab('400','finditem')
			wait(1000)
		Endif

		UO.FindType('0x0F88','0x0000','backpack')
		If UO.GetQuantity('finditem')<2 then
			UO.FindType('0x0F88','0x0000',Store)
			wait(1000)
			UO.Grab('800','finditem')
			wait(1000)
		Endif


;		UO.OnGump('anyserial',FirstGump,'14')
		
		UO.OnGump('anyserial',SecondGump,'2')
		UO.Recall(Kniga,'14')
		Repeat
			wait(200)
		Until UO.InJournal("You put|fail")

		If UO.InJournal("You put") OR UO.Count('0x0F0A') then
			While UO.Count('0x0F0A')
				UO.DeleteJournal()
;				ToHide()
				UO.FindType('0x0F0A','0x0000','backpack')
				wait(200)
				If UO.FindCount() Then
					UO.WaitTargetObject(Dagger,'finditem')
					UO.UseSkill('Poisoning')
					Repeat
						wait(200)
					Until UO.InJournal("fail|You apply")
				Endif
			Wend
		EndIf
	Wend	
end sub

Code: Select all

sub alchdomi()
	VAR Exit=0, LastTimer, TryToPoison
	VAR SecondGump='0x00000462'	; GUMP Id, otkrit` knigu vibrat` potion i ,infogump
	VAR RegAmmount='800'		; skoko regov nabirat`
	VAR BottleAmmount='400'		; skoko butilok
	VAR BottleType='0x0F0E'		; tip pustoy banki
	VAR Kniga='0x4002BF04'		; Id knigi receptov
	VAR Button1='14'			; knopka na pervom GUMPe
	VAR Button2='2'				; knopka na vtorom GUMPe


	UO.Print("Pokaji sunduk s regami!")
	UO.AddObject('Store')
	While UO.Targeting()
		wait(200)
	Wend
	UO.UseObject('Store')

	UO.Print("Pokaji reagent!")
	UO.AddObject('Reagent')
	While UO.Targeting()
		wait(200)
	Wend
	
	While TRUE
;		ToHide()
		UO.DeleteJournal()

		If UO.Count(BottleType)<1 then
			UO.UnSetCatchBag()
			UO.FindType(BottleType,'0x0000','Store')
			wait(500)
			UO.Grab(BottleAmmount,'finditem')
			wait(500)
			UO.SetCatchBag('Store')
		Endif

		If UO.Count(UO.GetGraphic('Reagent'))<10 then
			UO.UnSetCatchBag()
			UO.FindType(UO.GetGraphic('Reagent'),'0x0000','Store')
			wait(500)
			UO.Grab(RegAmmount,'finditem')
			wait(500)
			UO.SetCatchBag('Store')
		Endif

		UO.OnGump('anyserial',SecondGump,Button2)
		UO.Recall(Kniga,Button1)

		Repeat
			wait(200)
		Until UO.InJournal("You put|fail")
	Wend	
end sub


sub TB1()
	VAR Kniga='0x4002BF04'		; Id knigi receptov
	VAR Button1='2'			; knopka na pervom GUMPe

	UO.Recall(Kniga,Button1)
end sub


sub TB2()
	VAR SecondGump='0x00000462'	; GUMP Id, otkrit` knigu vibrat` potion i ,infogump
	VAR Button2='3'			; knopka na pervom GUMPe

	UO.OnGump('anyserial',SecondGump,Button2)
	TB1()
end sub