Marmic Training (script)

Moon_Identify:
match Katamba_no Katamba is nowhere to be seen.
match Katamba_yes Katamba
put obs moons
matchwait
Katamba_no:
match Xibar_no Xibar is nowhere to be seen.
match Xibar_yes Xibar
put obs moons
matchwait
Xibar_no:
match Yavash_no Yavash is nowhere to be seen.
match Yavash_yes Yavash
put obs moons
matchwait
Yavash_no:
echo *************************
echo ******* NO MOONS! *******
echo *************************
echo
goto test_psy

Katamba_yes:
setvariable moon katamba
pause 1
pause 1
goto Transduction
Xibar_yes:
setvariable moon xibar
pause 1
pause 1
goto Transduction
Yavash_yes:
setvariable moon yavash
pause 1
pause 1
goto Transduction



Transduction:
echo **************************
echo ****** Transduction ******
echo **************************
Start_Transduction:
put prep col 10
put charge my ring 1
pause 1
pause 1
put focus my ring
waitfor You feel fully prepared
match Moon_Identify and is not visible.
match exp_check With a dull roar, flares
match exp_check Tendrils of blue-white light
match exp_check With a barely perceptible screech,
match Start_Transduction Your spell backfires
put cast %moon
matchwait



exp_check:
match recover EXP HELP for more information
match end mind lock
put exp skill primary
matchwait


recover:
match Start_Transduction >>>>>100%]
match Start_Transduction You have a complete attunement
match recover2 You are receiving full
put harn
matchwait
recover2:
match recover3 EXP HELP
match recover4 mind lock
put exp skill power
matchwait




recover4:
match recover5 EXP HELP
match recover_actual mind lock
put exp skill perception
matchwait

recover5:
put collect rock
pause 1
pause 1
put kick rock
put stand
pause 1
goto recover


recover_actual:
pause 15
goto recover





recover3:
put perc %perc
pause 1
pause 1
goto %percnext
ppall:
setvariable perc all
setvariable percnext ppmoonbeam
goto recover
ppmoonbeam:
setvariable perc moonbeam
setvariable percnext ppplanet
goto recover
ppplanet:
setvariable perc planet
setvariable percnext ppkatamba
goto recover
ppkatamba:
setvariable perc katamba
setvariable percnext ppyavash
goto recover
ppyavash:
setvariable perc yavash
setvariable percnext ppxibar
goto recover
ppxibar:
setvariable perc xibar
setvariable percnext ppmoonlight
goto recover
ppmoonlight:
setvariable perc moonlight
setvariable percnext pppsychic
goto recover
pppsychic:
setvariable perc psychic
setvariable percnext ppperception
goto recover
ppperception:
setvariable perc perception
setvariable percnext pptransduction
goto recover
pptransduction:
setvariable perc transduction
setvariable percnext ppstellar
goto recover
ppstellar:
setvariable perc stellar
setvariable percnext pparea
goto recover
pparea:
setvariable perc area
setvariable percnext ppself
goto recover
ppself:
setvariable perc self
setvariable percnext ppall
goto recover


end: