Dark Paradise

Napsal: **07.03.2008 17:22:31**

Mal by som dotaz. Pouzivam makro na trejn necromancy s dynamickymi pauzami. Zakladom je, ze caka na hlasku ktora sa zobrazi v journale a az potom nasleduje dalsia akcia. Pri trenovani necromancy to raz za cas nevyhodi hlasku "you feel yourself resisting magic" aj ked sa kuzlo podari a hodnota dexterity sa mi zmeni. Tym padom tam nie je ziadna ina hlaska v journale na ktoru by sa script mohol viazat aby opakoval cyklus. Neviete poradit ako upravit makro, aby sa v tomto bode nezastavovalo?

Kód: Vybrat vše

sub Necromancy()
	var mana = 1 ; 0 = MR, 1 = TMR, 2 = meditace
	var dex
	Dim refresh[2]
	refresh[0] = "0x0005"
	refresh[1] = "0x0003"
	UO.FilterSpeech("on")
	While True
		While UO.Mana > 20
			UO.Set("quiet", 1)
			UO.FilterSpeech("add", "Select Target")
			UO.Set("quiet", 0)
			dex = UO.Dex
			UO.DeleteJournal()
			UO.WaitTargetSelf()
			UO.UseType("0x0E35","0x0079")
			Repeat
				Wait(100)
			Until UO.InJournal("You must wait|You feel yourself|The spell")
			UO.Set("quiet", 1)
			UO.FilterSpeech("clear")
			UO.Set("quiet", 0)
			Wait(2250)
		Wend
		If UO.Mana < 20 then
			If mana == 2 then
				While UO.Mana < UO.INT
					UO.DeleteJournal()
					UO.UseSkill("Meditation")
					Journal.Wait("You enter|You lose|You must wait|You are at peace.")
					Wait(2500)
				Wend
			Else
				While NOT UO.Count("0x0F09", refresh[mana])
					Preliti("0x1843", refresh[mana])
				Wend
				Piti("0x0F09", refresh[mana])
			EndIf
		EndIf
	Wend
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Piti(type, color)
UO.DeleteJournal()
UO.FindType(type, color, "my")
UO.UseObject("finditem")
Wait(500)
Repeat
     Wait(100)
Until UO.InJournal("You put the")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Preliti(type, color)
UO.DeleteJournal()
UO.FindType(type, color, "my")
UO.WaitTargetType("0x0F0E","0x0000")
UO.UseObject("finditem")
Wait(500)
Repeat
     Wait(100)
Until UO.InJournal("You put the|Pri praci s nadobou")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub WaitForJournal(text)
Repeat
     Wait(100)
Until UO.Injournal(text)
end sub

Napsal: **07.03.2008 17:40:16**

Dyž si ten skript začal promazávat, tak se nesmíš divit, že nejde :p

Kód: Vybrat vše

Until UO.InJournal("You must wait|You feel yourself|The spell") || UO.Dex <> dex

Napsal: **07.03.2008 17:40:59**

teraz to testnem a dam ti vediet

inak som to mal najskor takto ale rozdiel tam nebol

Edit: ano raz za cas sa dokonca stane aj to, ze sa nevypise hlaska "you feel yourself resisting magic" a hodnota dexterity sa nezmeni :p a stava a to pomerne casto...kazdcyh 5-10 minut takze script zostane stat do momentu kym sa ti dexterity nevrati na povodnu hodnotu

Napsal: **07.03.2008 17:49:58**

Máš furt problémy šmarija, já s tym maxnul necro jak nic a od tej doby sem na ten skript nešahal. Zkus tam prdnout nějakej menčí timeout třeba 10sec

Kód: Vybrat vše

sub Necromancy()
var asdf
............................
asdf=0
Repeat 
   Wait(100)
   asdf=asdf+100
Until UO.InJournal("You must wait|You feel yourself|The spell") || UO.Dex <> dex || asdf>10000

Napsal: **07.03.2008 18:15:26**

Já používal tohle:

Kód: Vybrat vše

...
UO.UseType("0x0E35","0x0079")
repeat
	Wait(200)
until UO.InJournal("Uus Jux|You must wait|The spell|This spell requires")
Wait(3500)
...

Napsal: **07.03.2008 21:04:36**

Už tak 3 měsíce sem nelognul, ale nepíše to náhodou Uus Jux vždycky a podstatně dřív než ty ostatní hlášky -> máš je tam k ničemu?

Napsal: **07.03.2008 21:18:49**

A co to zkusit udelat prez pocet regu nebo many?

Napsal: **09.03.2008 00:11:42**

Carda píše:Už tak 3 měsíce sem nelognul, ale nepíše to náhodou Uus Jux vždycky a podstatně dřív než ty ostatní hlášky -> máš je tam k ničemu?

Jop píše, proto je ta pauza za tím. Při save zakouzlí, ale ta hláška se neojeví - čeká do konce save. A ty ostatní nejsou zbytečný - You must wait - nemůžeš zakouzlit i po 3,5s od Uus Jux- asi lagy (ale nestalo se mi to), This spell - nemáš regy, The spell - už nevím, je to dávno...

Napsal: **09.03.2008 08:13:10**

Pepik píše:The spell..

fizzles

Napsal: **09.03.2008 14:08:12**

Shadowsong píše:
Pepik píše:The spell..
fizzles

Jop, ale nevím, proč jsem to tam dával

Napsal: **09.03.2008 14:33:04**

no je to na trening, nie?

Napsal: **09.03.2008 15:20:13**

Jo, to sedí. Ale když fizzne necro kouzlo, tak mám dojem, že to to Uux Jux stejně vyhodí...

Dark Paradise

makro na necormancy s dynamickymi pauzami

makro na necormancy s dynamickymi pauzami