Astrology & Research (work in progress)

     var PG-mana 50
     var GAF-mana 50
     var topics fundamental|fundamental|augmentation|stream|utility|warding
     var CollectItem rock






     action instant setvariable skyarray %skyarray|$1 when Clouds obscure the sky where the planet (\w+) should appear
     action instant setvariable skyarray %skyarray|$1 when Clouds obscure the sky where the (\w+) should appear
     action instant setvariable skyarray %skyarray|$1 when (\w+) is unobscured by clouds
     action instant setvariable skyarray %skyarray|$1 when of the planet (\w+) has been obscured
     action instant setvariable skyarray %skyarray|$1 when the planet (\w+) is blocked by
     action instant setvariable skyarray %skyarray|$1 when the (\w+) is blocked by
     action instant setvariable skyarray %skyarray|$1 when of (\w+) is blocked by
     action instant setvariable skyarray %skyarray|$1 when of the (\w+) has been obscured
     action instant setvariable ResDone $1 when (there is still more to learn|Breakthrough)

     var planets Amlothi|Dawgolesh|Durgaulda|Elanthia|Er'qutra|Estrilda|Ismenia|Merewalda|Morleena|Penhetia|Sidasas|Szeldia|Verena|Yoakena
     var constellations Adder|Albatross|Archer|Boar|Brigantine|Cat|Centaur|Cobra|Cow|Coyote|Dolphin|Donkey|Dove|Giant|Goshawk|Hare|Heart|Heron|Jackal|KingSnake|Lion|Magpie|Mongoose|Nightingale|Owl|Ox|Panther|Phoenix|Raccoon|Ram|Raven|Scales|Scorpion|Shardstar|Shark|Shrew|Shrike|Spider|Toad|Triquetra|Unicorn|Viper|Vulture|Weasel|Welkin|Wolf|Wolverine|Wren
     var moons Yavash|Katamba|Xibar|Sun

     eval TopicCount count("%topics","|")
     math TopicCount add 1
     var track 0
     var LastObs nil

cast:
     echo Casting
     gosub verb prep PG %PG-mana
     waitfor fully prep
put cast
     waitfor You gesture
     var skyarray nil
     pause
     gosub verb observe sky
     pause
     var junkarray nil|Katamba|Sun|Xibar|Yavash

echo The following Constellations and Planets are out ...
echo %skyarray
     var skyarray2 %skyarray

     eval ObsCount count("%skyarray","|")
     math ObsCount add 1
     var obstrack 1
     var redo 0
     if %track = %TopicCount then goto done
     gosub verb prep gauge flow %GAF-mana
     waitfor fully prep
put cast
     waitfor You gesture
     eval NextTopic element("%topics", %track)
setobs:
     var NextObs Nil
     if matchre("%skyarray2","%moons") then var NextObs $1
     if matchre("%skyarray2","%constellations") then var NextObs $1
     if matchre("%skyarray2","%planets") then var NextObs $1
     if matchre("%skyarray2","%NextObs") then eval skyarray2 replacere("%skyarray2", "%NextObs", "Nil")

#%     eval NextObs element("%skyarray", %obstrack)
#%     if matchre("%NextObs","%junkarray") then goto setobs2
     goto research
setobs2:
     math obstrack add 1
     goto setobs




research:
     var ResDone nil
put research %NextTopic 200
     pause
     pause
     goto Observe
Observe:
     echo ResDone Obs %ResDone
     if "%ResDone" != "nil" then goto ResDone
     if "%NextObs" = "%LastObs" then goto collect
put obs %NextObs
     match ObserveNext You learned something useful
     match ObserveNext You have not pondered your last observation
     match ObserveNext You fail to learn anything useful
     match Observe see nothing regarding the future
     match ObserveNext turns up fruitless
     match ObserveNext Clouds obscure the sky where
     match ObserveNext you still learned more of the future
     match ObserveNext Roundtime
     matchwait
ObserveNext:
ObsNext:
     math obstrack add 1
     if %obstrack = %ObsCount then var skyarray2 %skyarray
     var LastObs %NextObs

     var NextObs Nil
     if matchre("%skyarray2","%moons") then var NextObs $1
     if matchre("%skyarray2","%constellations") then var NextObs $1
     if matchre("%skyarray2","%planets") then gosub var NextObs $1
     if matchre("%skyarray2","%NextObs") then eval skyarray2 replace("%skyarray2", "%NextObs", "Nil")
     if "%NextObs" = "Nil" then var skyarray2 %skyarray
     if "%NextObs" = "Nil" then goto ObsNext

#%     eval NextObs element("%skyarray", %obstrack)
#%     if matchre("%NextObs","%junkarray") then goto ObsNext
     goto checkpredict
ResDone:
     if "%ResDone" = "Breakthrough" then goto nexttopic
     goto research

nexttopic:
     echo NextTopic
     math track add 1
     var redo 1
     goto checkpredict
researchagain:
     goto checkpredict
checkpredict:
put pred stat all
     matchre predictready (potent|insightful|powerful|complete) understanding of the celestial influences over (magic|lore|combat|defens|survival)
     match donecheck Roundtime
     matchwait
donecheck:
     echo ResDone %ResDone
     if "%ResDone" = "nil" then goto collect
     if %redo = 1 then goto cast
     goto research
predictready:
     var field $2
     if "%field" = "combat" then var field offense
     gosub verb align %field
     gosub verb predict future $charactername
     gosub verb predict anal
     goto donecheck
resWait:
     if "%ResDone" != "nil" then goto ResDone
     match cast Breakthrough
     match research there is still more to learn
     matchwait

collect:
     if "%ResDone" != "nil" then goto ResDone
     gosub verb collect %CollectItem
     gosub verb kick pile
put skill perc
     waitforre (\d+)/34
     if $1 < 33 then goto collect
     goto resWait

verb:
     setvariable verb $0
     goto verb.a
verb.p:
     pause 0.5
verb.a:
     if $webbed = 1 then goto verb.p
     if $stunned = 1 then goto verb.p
     pause 0.1
put %verb
     match verb.p your bindings make it impossible to hide
     match verb.p type ahead
     match verb.p ...wait
     match verb.p still stunned
     match verb.p you don't feel like fighting
     match verb.p can't do that while entangled in a web
     matchre verb.d (turns up fruitless|too close to the sun to be properly viewed|eyes darken to black as a starless night|release an accompaniment of elemental air|begin to chant a mesmerizing cadence designed|into your bundle|You release an accompaniment of elemental fire|you begin to chant the rhythm that heralds|trace a careful sigil|raise your head skyward|You raise your arms skyward|mutter a foul-sounding phrase to yourself|trace a curving sigil|that is already in your inventory|determine anything about this creature|mutter blasphemies to yourself|already dead|mutter incoherently to yourself while preparing|wailing of lost souls accompanies|has already been arranged|blue frost crackles up your arms|you can't arrange|Your heart skips a beat|newfound fluidity of your mind|orange flames blaze between your fingertips|You deftly|You strap|You stuff|With calm movements|You attach|You remove|You can also|Smiling slyly|not ready|You clench your hands|You hold out your arms to either side as|You fade in|You whisper the final word of your spell so that none may notice your effort|too cluttered|Stalk what|You clap|You speak|Arrange what|With rigid movements|You close yours eyes|With tense movements|You let your concentration|You make a holy gesture|cannot be skinned|You find yourself unable to hunt|could not find what|You clap your hands|You easily strap|That area is not bleeding|You take a step back|could not find what|You strain, but cannot focus your mind|You attempt to relax your mind|You get|You put|STOW HELP|You push|think pushing that would have any effect|You move|You're already using the Sight|You have not recovered from your previous use|careful focus, you adjust your eyes to see in shadow as they|You close your eyes|You're not ready to do that again|was just recently mined by someone else|Roundtime|area has already been tended to|work carefully at tending your wound|The spell pattern collapses|You are unable to control|not damaged enough to warrant repair|cannot figure out how to do that|You're not ready to do that|Drink what|What were you referring|You eat|You drink|You stand|Your analysis has revealed no additional resources|You look around, but can't see any place to hide yourself|stalking|following|already hidden|You pick up|You cannot|You gesture|You trace a hasty sigil in the air|is now set at|You detach|You snuff|You sling|You begin chanting|You bend|You are already|Quietly touching|You recite| turns up fruitless|You pour|You sprinkle|already stand|You grind|You feel warmth|already empty|You recall|You struggle|You open|You raise|You reach for its center and forge a magical link to it|You trace an angular sigil|cannot produce|You drop|already been skinned|before you arrange|inherently stealthy endeavor|try being out of sight|cannot muster enough energy to vocalize|cannot collect anything|Setting your|You trace a geometric sigil|don't have a spell prepared|already preparing|already fully prepared|preparing a spell|harnessing any mana|You aren't preparing|You slip|no matter how you arrange it|There isn't any more room|With meditative movements)
     matchwait
verb.d:
     return


done:
     echo All Done !
put #parse SCRIPT DONE
     exit