makro na necormancy s dynamickymi pauzami

Vaše problémy, rady a skripty týkající se tohoto prográmku
Odpovědět
Uživatelský avatar
Castian
Undead Scriber
Undead Scriber
Příspěvky: 752
Registrován: 08.09.2006 13:05:10
Bydliště: Blava
Kontaktovat uživatele:

makro na necormancy s dynamickymi pauzami

Příspěvek od Castian »

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
[b]Save a horse, ride a tractor![/b]
Carda
Elder Letter
Elder Letter
Příspěvky: 211
Registrován: 07.09.2006 19:12:48

Příspěvek od Carda »

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
http://dl.dropbox.com/u/36197238/Phoenix/Phoenix.Scripts.DP.7z
Uživatelský avatar
Castian
Undead Scriber
Undead Scriber
Příspěvky: 752
Registrován: 08.09.2006 13:05:10
Bydliště: Blava
Kontaktovat uživatele:

Příspěvek od Castian »

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
[b]Save a horse, ride a tractor![/b]
Carda
Elder Letter
Elder Letter
Příspěvky: 211
Registrován: 07.09.2006 19:12:48

Příspěvek od Carda »

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
http://dl.dropbox.com/u/36197238/Phoenix/Phoenix.Scripts.DP.7z
Uživatelský avatar
Pepik
Book Snake
Book Snake
Příspěvky: 112
Registrován: 19.10.2006 13:29:27
Bydliště: Mumuland
Kontaktovat uživatele:

Příspěvek od Pepik »

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)
...
podpis v rozporu s pravidly fora :D
Carda
Elder Letter
Elder Letter
Příspěvky: 211
Registrován: 07.09.2006 19:12:48

Příspěvek od Carda »

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?
http://dl.dropbox.com/u/36197238/Phoenix/Phoenix.Scripts.DP.7z
Uživatelský avatar
Raegann
Paper Elemental
Paper Elemental
Příspěvky: 313
Registrován: 08.09.2006 22:43:20
Bydliště: Jhelom/Praha
Kontaktovat uživatele:

Příspěvek od Raegann »

A co to zkusit udelat prez pocet regu nebo many?
Without [u]me[/u] it's just [u]Aweso[/u].
Take my Life and paint it Black Until I'm sleeping
And my Promise, I take it back So please stop creeping
http://last.fm/user/Raegann
Uživatelský avatar
Pepik
Book Snake
Book Snake
Příspěvky: 112
Registrován: 19.10.2006 13:29:27
Bydliště: Mumuland
Kontaktovat uživatele:

Příspěvek od Pepik »

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...
podpis v rozporu s pravidly fora :D
Uživatelský avatar
Shadowsong
Death Litographer
Death Litographer
Příspěvky: 1695
Registrován: 08.09.2006 17:56:03
Bydliště: Prague
Kontaktovat uživatele:

Příspěvek od Shadowsong »

Pepik píše:The spell..
fizzles ;)
how to play gangrel:
bind greater blood to every key on keyboard
roll your face over the keyboard
...
???
profit
Uživatelský avatar
Pepik
Book Snake
Book Snake
Příspěvky: 112
Registrován: 19.10.2006 13:29:27
Bydliště: Mumuland
Kontaktovat uživatele:

Příspěvek od Pepik »

Shadowsong píše:
Pepik píše:The spell..
fizzles ;)
Jop, ale nevím, proč jsem to tam dával :)
podpis v rozporu s pravidly fora :D
Uživatelský avatar
Shadowsong
Death Litographer
Death Litographer
Příspěvky: 1695
Registrován: 08.09.2006 17:56:03
Bydliště: Prague
Kontaktovat uživatele:

Příspěvek od Shadowsong »

no je to na trening, nie?
how to play gangrel:
bind greater blood to every key on keyboard
roll your face over the keyboard
...
???
profit
Uživatelský avatar
Pepik
Book Snake
Book Snake
Příspěvky: 112
Registrován: 19.10.2006 13:29:27
Bydliště: Mumuland
Kontaktovat uživatele:

Příspěvek od Pepik »

Jo, to sedí. Ale když fizzne necro kouzlo, tak mám dojem, že to to Uux Jux stejně vyhodí...
podpis v rozporu s pravidly fora :D
Odpovědět