Astrology (script)

script name suggestion: astro

if_1 goto %1
goto help

future:
pause
put prep cv 10
waitfor You feel fully prepared
put cast
obs:
pause
pause
match oor learn nothing
match obs You see nothing
match quit fruitless.
match quit clouds obscure the sky where
match quit Your observations are hindered by the clouds.
match pred You learned something useful
match pred you grasp more of its pattern
match fut_pause You have not pondered your last observation sufficiently
put obs %3
matchwait

pred:
pause
pause
match fut_pause You see nothing else.
match fut_pause You sense
match obs The future, however, remains a dark mystery to you.
put predict future %2 %4
matchwait

fut_pause:
pause 60
goto obs

oor:
echo ## %3 is out of your range
goto quit

help:
echo ## Usage: .astro future player constellation type
echo ## Usage: .astro event player
goto quit

quit:
exit

event:
put prep cv 15
waitfor You feel fully prepared
put cast
study:
pause
match pausing dissatisfaction
match pausing fail to grasp
match pausing feel it is too soon
match events Roundtime:
put study the sky
matchwait

pausing:
pause
pause 10
goto study

events:
pause
pause
put predict event %2
waitfor You focus inwardly searching for insight
pause 20
goto study