rerun:
put #window remove XFavors
     pause 0.1
put #window add XFavors
     put #clear XFavors
put #echo >XFavors ** Welcome to XFavors. **
put #echo >XFavors
put #echo >XFavors ** Please Click Your Selection. **
put #echo >XFavors
put #link >XFavors {Kertigen} {#parse set Kertigen God}
put #link >XFavors {Hodierna} {#parse set Hodierna God}
put #link >XFavors {Meraud} {#parse set Meraud God}
put #link >XFavors {Damaris} {#parse set Damaris God}
put #link >XFavors {Everild} {#parse set Everild God}
put #link >XFavors {Truffenyi} {#parse set Truffenyi God}
put #link >XFavors {Hav'roth} {#parse set Hav'roth God}
put #link >XFavors {Eluned} {#parse set Eluned God}
put #link >XFavors {Glythtide} {#parse set Glythtide God}
put #link >XFavors {Tamsine} {#parse set Tamsine God}
put #link >XFavors {Faenella} {#parse set Faenella God}
put #link >XFavors {Chadatru} {#parse set Chadatru God}
put #link >XFavors {Urrem'tier} {#parse set Urrem'tier God}
     waitforre set (Kertigen|Hodierna|Meraud|Damaris|Everild|Truffenyi|Hav'roth|Eluned|Glythtide|Tamsine|Faenella|Chadatru|Urrem'tier) God
     setvariable god $1
     put #clear XFavors
put #echo >XFavors ** Please Click Your Selection. **
put #echo >XFavors
put #link >XFavors {Get One Favor From %god} {#parse set 1 favors}
put #link >XFavors {Get Two Favors From %god} {#parse set 2 favors}
put #link >XFavors {Get Three Favors From %god} {#parse set 3 favors}
put #link >XFavors {Get Four Favors From %god} {#parse set 4 favors}
put #link >XFavors {Get Five Favors From %god} {#parse set 5 favors}
put #link >XFavors {Get Six Favors From %god} {#parse set 6 favors}
put #link >XFavors {Get Seven Favors From %god} {#parse set 7 favors}
put #link >XFavors {Get Eight Favors From %god} {#parse set 8 favors}
put #link >XFavors {Get Nine Favors From %god} {#parse set 9 favors}
put #link >XFavors {Get Ten Favors From %god} {#parse set 10 favors}
     waitforre set (\d+) favors
     setvariable quantity $1
     put #clear XFavors
put #echo >XFavors ** You have chosen to get %quantity favors from %god. **
put #echo >XFavors ** Is this correct? **
put #echo >XFavors
put #link >XFavors {Yes} {#parse set correctly}
put #link >XFavors {No} {#parse set incorrectly)
     match rerun set incorrectly
     match gogetem set correctly
     matchwait
gogetem:
     put #clear XFavors
put #echo >XFavors ** Getting %quantity favors from %god. **
put #echo >XFavors
     pause 1
put #window remove XFavors
     setvariable favorsgot 0
     setvariable display 1
if "$lefthand" != "Empty" then put stow left
if "$righthand" != "Empty" then put stow right

favorloop:
     pause 0.5
put get my %god orb
     matchre already-got (You get|already holding)
     matchre not-already (could not find|What were you)
     matchwait
not-already:
     gosub display Traveling...
     gosub move w gate
     gosub move favors
     goto pray


pray.p:
	pause 0.5
pray:
     gosub display Praying...
put pray
	match pray.p type ahead
	match pray.p ...wait
	matchre pray (You feel a sense of peace settle over you|You close your eyes and pray|As you continue to pray, another sound presents itself)
	match pray.d prepare to prove thy worthiness
	matchwait
pray.d:
put say %god
	waitfor rise and seek your favor
put stand
	match puzzle-start you are enveloped in a bright flash of light
	match pray You stand back up
	matchwait
puzzle-start:
     gosub display Getting Orb...
put get %god orb on altar
	waitforre You get .* atop an altar made of gleaming alabaster trimmed with onyx
	setvariable next-action go arch
	goto puzzles

puzzles.p:
     pause 0.5
puzzles:
     gosub display Solving Puzzles...
put %next-action
     match puzzles.p type ahead
     match puzzles.p ...wait
	matchre figure-puzzle (some tinders|water jug|small sponge|ancient window|tiny bubbling pool under some mintberry bushes|hedges of oleander and nutflower)
	matchre check-puzzle (difficult to go through the door from the bottom|You cannot go through a closed window)
	matchwait
check-puzzle:
	setvariable next-action look
	goto puzzles
figure-puzzle:
	setvariable temp $0
	if "%temp" = "hedges of oleander and nutflower" then gosub verb get oleander
	if "%temp" = "some tinders" then gosub verb light candle
	if "%temp" = "water jug" then gosub verb pour jug
	if "%temp" = "small sponge" then gosub verb clean altar
	if "%temp" = "ancient window" then gosub verb open window
	if "%temp" = "some tinders" then setvariable next-action go stair;go door
	if "%temp" = "water jug" then setvariable next-action go stair;go door
	if "%temp" = "small sponge" then setvariable next-action go stair;go door
	if "%temp" = "ancient window" then setvariable next-action go window
	if "%temp" = "hedges of oleander and nutflower" then setvariable next-action go tree
	if "%temp" = "tiny bubbling pool under some mintberry bushes" then goto got-orb
	goto puzzles

verb:
	setvariable verb $0
	goto verb-enact
verb.p:
	pause 0.5
verb-enact:
put %verb
	match verb.p type ahead
	match verb.p ...wait
	matchre verb.d (You gingerly take the earthen jug|You have already filled the font|You pick up the sponge and proceed|You have already cleaned the altar|You reach into the bucket and remove a tinder|swift breeze moves into the room|That is already open|You carefully pick some of the|You stand)
	matchre verb.p (Judging the thickness of the pain|Shaking the frame of the glass once more)
	matchwait
verb.d:
	return
got-orb:
     gosub display Traveling...
     gosub move w gate
already-got:
     gosub move temple
     gosub display Selecting Room...
random 1 5
     if %r = 1 then gosub move 9
     if %r = 2 then gosub move 8
     if %r = 3 then gosub move 20
     if %r = 4 then gosub move 19
     if %r = 5 then gosub move 22
collect.reset:
     gosub display Randomizing Repitions...
     random 6 10
     setvariable limit %r
     setvariable tracker 1
collect.p:
     pause 0.5
collect:
     gosub display Collecting %tracker of %limit ...
     if $standing = 0 then gosub verb stand
put collect rock
     match collect.p type ahead
     match collect.p ...wait
     match collect.d Roundtime
     matchwait
collect.d:
     goto kick
kick.p:
     pause 0.5
kick:
put kick pile
     match kick.p type ahead
     match kick.p ...wait
     match kick.d I could not find what
     match kick.d You take a step back and run
     matchwait
kick.d:
     math tracker add 1
     if %tracker < %limit then goto collect
     gosub display Filling Orb...
put hug %god orb
     matchre collect.reset (your sacrifice is not yet fully prepared|you are lacking in the type of sacrifice)
     match orb-altar You sense that your sacrifice is properly prepared
     matchwait
orb-altar:
     gosub display Traveling...
     gosub move 2
     gosub display Placing Orb on Altar
     pause 0.5
put go door;put my %god orb on altar
     waitfor  you feel somehow changed
move go door
move south
move go gate
     gosub display Thinking...
     math favorsgot add 1
     if %favorsgot < %quantity then goto favorloop
     gosub display All Done!
     move ne
     move go bank
     move go window
     echo . [ All Done! ]
     put #statusbar .
     exit

display:
     setvariable text $0
     if %display = 1 then put #statusbar Getting %quantity favors from %god. %favorsgot favors gained so far. --- [ %text ] --- If you like this script please send a tip to Gavinne@play.net via Paypal
     if %display = 2 then put #statusbar Getting %quantity favors from %god. %favorsgot favors gained so far. --- [ %text ] --- Or contact XLNOTHINGLX on AIM and ask about the awesome scripts we sell!
     math display add 1
     if %display > 2 then setvariable display 1
     return




goto move.end
move.retry:
        math move.retry add 1
        if %move.retry > 3 then goto move.fail
        echo ***
        echo *** Retrying move to $1 $2 in %move.retry second(s).
        echo ***
        pause %move.retry
        goto move.goto
move:
        var move.skip 0
        var move.retry 0
        var move.fail 0
        var move.room $0
move.goto:
        matchre move.return ^YOU HAVE ARRIVED
        matchre move.skip ^SHOP CLOSED
        matchre move.retry ^MOVE FAILED
        matchre move.fail ^DESTINATION NOT FOUND
        put #goto %move.room
        matchwait
move.fail:
        var move.fail 1
        goto move.return
move.skip:
        var move.skip 1
move.return:
        return
move.end: