From d4f87d5e34b1d6ea7f88b336054a500331383b11 Mon Sep 17 00:00:00 2001 From: historicalsource Date: Sat, 13 Apr 2019 22:27:27 -0400 Subject: [PATCH] Final Revision --- actions.zil | 604 ++++++++++++----------- clock.zil | 4 + crufty.zil | 18 +- dungeon.zil | 160 +++--- emerg.zil | 68 ++- invisicluessc.mss | 1161 ++++++++++++++++++++++++++++++++++++++++++++ macros.zil | 40 +- main.zil | 7 +- manual.rno | 821 +++++++++++++++++++++++++++++++ parser.zil | 68 ++- starcross.txt | 189 ++++++++ starcross.xzap | 40 ++ starcross.zil | 53 ++ starcross.zip | Bin 0 -> 84740 bytes starcrossfreq.xzap | 200 ++++++++ syntax.zil | 9 +- verbs.zil | 135 +++--- 17 files changed, 3072 insertions(+), 505 deletions(-) create mode 100644 invisicluessc.mss create mode 100644 manual.rno create mode 100644 starcross.txt create mode 100644 starcross.xzap create mode 100644 starcross.zil create mode 100644 starcross.zip create mode 100644 starcrossfreq.xzap diff --git a/actions.zil b/actions.zil index ed6a174..b60f2a1 100644 --- a/actions.zil +++ b/actions.zil @@ -15,10 +15,9 @@ a heavy bulkhead which is " (T "closed.")>> +"Your ship's computer does the routine tasks of navigation and life support. +A control couch is mounted before a control panel and a large viewport. The +ship's registration is affixed nearby." CR> )>> )>) +"\"If you won't turn it off, I will. I can't take the noise any more.\"" CR>)>) (> )> +"An expressionless but nonetheless surly voice issues from the computer: +\"Please turn that alarm off! We'll both have headaches if you don't.\"" CR>)> )>> )>) ) (ELSE )>> +"Set a course by telling the computer the R, theta, and phi values of +your destination." CR>)>> > )>> +"Please consult the manual for the proper computer operating procedure." CR>)>> > > @@ -192,23 +189,22 @@ computer." CR>)>> > > +"\" Lights blink furiously for a moment. The computer speaks: "> > ) (> <==? ,DESTINATION ,MASS>> ) +"\"Sequence for intercept of mass concentration is programmed and ready. ">) (ELSE )> +"\"I know my instruments aren't as good as the mass detector, but I see +nothing at that location. Well, if you say so. ">)> ) (T )>> @@ -264,10 +260,9 @@ program. I'm waiting...\"" CR>) "The controls look in no way operational." CR>)>) ( +"This is a standard control panel for this class of single-passenger mining +ship. Most controls are for emergencies only, as the Starcross is normally +controlled by verbal instructions to the computer."> > )> @@ -284,10 +279,9 @@ Course is set! Remember what happened last time you played with the controls in mid-course...\"" CR>) (ELSE )>) +"The computer's voice intrudes. \"Do you really want to touch the controls +just now? Not to impugn your piloting ability, but shouldn't I execute any +course corrections? I'm very good at it, you know.\"" CR>)>) (ELSE )>)>> (T )>)>> >) @@ -330,7 +323,9 @@ currently enabled.\"" CR>)>)>> )>> + + ) + ( ) (<==? ,HERE ,THRONE-ROOM> @@ -363,10 +358,9 @@ currently enabled.\"" CR>)>)>> ) +earth. Its favorite diet is spacers, but its insatiable appetite is +tempered by its fear of light. No grue has ever been seen by the light +of day, and few have survived its fearsome jaws to tell the tale." CR>) ( ) ( ) +"If you insist...Poof, you're dead!">) (ELSE )>) ( ) ( ) ( - )>> ) ) (>> >)>>> - ,HERE) (ELSE @@ -449,15 +443,15 @@ five meters long. You must detach it to leave." CR>) >> >) (> - > - > + > + > - >> + >> - + ,OPENBIT>>> - > + > )>)>)>>)>> @@ -490,9 +484,9 @@ five meters long. You must detach it to leave." CR>) (ELSE )>) +You know as well as I do that I can't talk to that stupid mass detector, so +you'll just have to tell me the coordinates from its output. Maybe next time +you'll listen.\"" CR>)>) ( ) "\"Error. I am already landed. Program cancelled.\"" CR>) ( ) +"\"Working...working...program aborted. The object is spinning too fast for a +safe landing. I can maintain current synchronized course indefinitely.\"" CR>) (ELSE )>) ( @@ -567,16 +560,14 @@ indefinitely.\"" CR>) "\"We're on our way somewhere unpromising, that's all I can tell you.\"" CR>) (,GIVE-UP ) +"\"You've given up and are heading for " D ,GIVE-UP ", remember?\"" CR>) (,DOCKED? ) ( ) +"\"We're on a parallel course with a strange, rotating artifact.\"" CR>) ( @@ -628,7 +619,7 @@ a few upgrades I could do some of these things, but no...\"" CR>) "\"I'm only a navigational computer. That is not one of my functions.\"" CR>)>) ( ) +"\"I haven't the patience for small talk.\"" CR>) ( ) @@ -639,8 +630,8 @@ a few upgrades I could do some of these things, but no...\"" CR>) > ) +"\"If you insist, but my programming impels me to come back on if +anything important happens.\"" CR>) (ELSE )>) ( ) "\"We're in the midst of a trip. Are you still asleep?\""> +"\"I'm too busy, I've got a burn coming. You'd better brace yourself.\""> +"\"I wouldn't try leaving unless you can get those ropes off me.\""> > @@ -688,15 +677,14 @@ of course). You are crushed to death.">)>> > +end sports a glass or crystal dome almost 100 meters across.">> @@ -704,10 +692,9 @@ brightly lit.">> )> @@ -728,17 +715,16 @@ See if I'll ever work with you again...\"| (<==? ,DESTINATION ,MASS> +are hanging in space about half a kilometer away from the waist of the object. +The Starcross's engines shut down. The computer speaks: \"Program completed. +We are being scanned by low level radiation. Awaiting instructions.\"" CR> > ) (ELSE )>) (ELSE @@ -761,8 +747,8 @@ more than we expected here.\"" CR>)>)> +"As the object rotates below, the features of a different area become +visible through the viewport." CR> 4>> CR>)> > ) @@ -771,7 +757,7 @@ area are visible through the viewport." CR> > @@ -785,8 +771,8 @@ articulated metal tentacle issues from it at great speed."> ) +"The tentacle grabs the Starcross, spinning you off into the depths of +space!">) ( ) (ELSE )> - + ) (ELSE )> "A list of the works of Edgar Rice Burroughs is read off." "This is Pynchon's \"Gravity's Rainbow.\"" "Vernon's \"Origins of the Third World War\" plays." - "The classic computer mystery \"Deadline\" is displayed." - >> + "The classic computer mystery \"Deadline\" is displayed.">> \ )>> @@ -897,10 +882,13 @@ your behavior." CR> "A small metal contraption about a meter long and half a meter high enters the room." ,LONG-MOUSE>)> ) - ( - >> + (> + + ;"CHOMPING AGAIN">> - + ) + (,GARAGED? ) (,MFOLLOW ) @@ -915,26 +903,34 @@ enters the room." ,LONG-MOUSE>)> ) ( ) + ( + + )>) ( )> +which garbage it collects can be stored. It is buzzing around cleaning the +area, diligently polishing the floor, and waving its \"ears\" (small dish +antennae) about." CR>)> ) (ELSE )>) + ( ) + ( + ) ( )>> - + @@ -943,9 +939,8 @@ in all, it looks like nothing so much as a mechanical mouse."> (ELSE )> +"A small metal contraption" ,HOLE-SHUTS ". The device stops in its tracks and +buzzes briefly, allowing you a closer look." ,LONG-MOUSE CR>)> > )>) )>)>) +"The mouse disappears into a heretofore unnoticed hole in the wall, which +closes and becomes nearly invisible." CR>)>)>) (ELSE ,MOUSE>> @@ -1029,22 +1024,20 @@ conquer." CR> (.ROBBED? )>) +"The mouse collects some discarded items." CR>)>) (.HERE? )>)> +"The mouse is diligently cleaning the floor and looking for garbage." CR>)>)> > -) (P 0) T L (D <>)) +) (P 0) TX L (D <>)) > ,LOW-DIRECTION> )> +"The mouse tries to climb a tree, but fails dismally." CR>)> ) ( @@ -1056,15 +1049,15 @@ aliens." CR>)> )>)> ) (ELSE - > - > + > + > - >>> + >>> > )> - >)>)>)>>> + >)>)>)>>> ;> @@ -1081,11 +1074,11 @@ aliens." CR>)> ) +"There is no apparent way to open the mouse hole. You can barely even see +the seam between it and the wall." CR>) ( )>> @@ -1102,7 +1095,7 @@ and broken spears are just some of the items visible on the top layer."> ) ( ) - ( + ( ) ( @@ -1111,15 +1104,15 @@ and broken spears are just some of the items visible on the top layer."> "You find nothing else of interest." CR>) (<==? ,TRASH-COUNT 0> +"You have searched through part of the bin, but have found nothing of +interest." CR> ) ( ) +"Ahah, there's something! It appears to be a green crystal rod." CR>) (ELSE > ) +"The chute seems bottomless and warm air rises from it." CR>) ( <==? ,PRSI ,PSEUDO-OBJECT>> - - ) + + + >> + )> + + ) + (ELSE )>) ( )>> +"The chute leads straight to the input hopper of a fusion reactor which gets +some of its power from trash. It's now getting some of its power from you.">)>> \ @@ -1203,8 +1200,8 @@ Every so often, he makes a happy little noise." CR>) ( ) +left my ship for ages; nothing interesting out there any more. Those furry +ones were interesting for a while but they're stagnant now.\"" CR>) ( <==? ,PRSO ,TAPE-PLAYER>> @@ -1221,10 +1218,11 @@ gift." CR>) )>) ( CR>) - ( + ( ) +"Bad idea. The spider tears you apart with two of its arms.">) ( + > ) ( @@ -1243,40 +1241,38 @@ gift." CR>) ) +"The spider examines the tape player and discovers the controls. A random +song begins playing. Agitated, he fiddles with the controls again, and a +lecture begins. He becomes even more agitated. \"What a wonderful gift, +human! This will alleviate my boredom for a while. Your culture is young, +but you have amassed enough of interest to keep me sane for a few more years. +I thank you.\" He fishes in a pouch and comes up with something. \"Perhaps +you may find some use for this; I long ago grew bored with such baubles.\" He +tosses a yellow crystal rod at your feet." CR>) (ELSE )>)>> +"Gurthark, engrossed in the tape library, pays no attention to you."> > +more-or-less that). Like yourself, he landed here to explore. He failed to +control the artifact before it left his system, and has been stranded here +for centuries. He sighs. \"It's getting a little boring. The other inhabitants +of this place are not too stimulating. The computer was some company until it +malfunctioned. When we began to approach your system, I got excited! A whole +new culture to learn! The end of boredom, for a while at least. I fed your +language to my translator, from your radio broadcasts, and have eagerly +awaited your arrival.\" He grins broadly, a fairly horrific sight." CR>> \ @@ -1317,7 +1313,7 @@ hard you press." CR>) ) (<==? ,FF-STRENGTH 4> ) (,UNDER-GLOBE +"This is a glaringly lit room filled with strange devices, most completely +incomprehensible. For example, a huge projector of some sort points menacingly +at a silvery globe floating in midair in the center of the room. "> @@ -1542,7 +1537,7 @@ disorientation." CR> ,UNDER-GLOBE ,WAS-UNDER-GLOBE> +and parts of you are outside it. Very untidy."> )> @@ -1582,10 +1577,12 @@ disk into itself. You are, unfortunately, intimately part of the explosion."> ) (ELSE + > + > )>) +for a fraction of a second, then a flash of light fills the room as both +disks explode!" CR>)>) (ELSE @@ -1656,15 +1653,14 @@ for a fraction of a second, then reappears resting comfortably on the " ) ( > ) +"The projector, of the sturdiest construction, is unscathed." CR>) ( )>> ", and the outer door is " - "." CR>> +"This is the main airlock of the " .COLOR " docking port. The inner door +leading up to the interior is " ", and the outer door leading +down to the surface is " "." CR>> "open")(T "closed")>> @@ -1789,8 +1784,8 @@ spaceship by opening both doors of the airlock at once." CR>) ) ( ) +"A safety interlock prevents you from opening both doors of the airlock +simultaneously." CR>) (ELSE @@ -1800,10 +1795,7 @@ the ship. A safety interlock prevents this action." CR>) to prevent you from drifting away into space.">)> - )> + )> T)>) (> ) @@ -1818,8 +1810,8 @@ relatively short.">)> ) (,DOCKED? ) +"You see the red docking area of the artifact, including +a dome with an airlock." CR>) (ELSE )>)>> ) )) "open") +"You are floating outside the Starcross. The airlock door +is " "open") (T "closed")>> ) + ) (ELSE )> +" This is deep space, outside the plane of the ecliptic and far beyond the +orbit of Earth. The sun seems small but still intolerably bright to look at +directly." CR> ) (<==? .RARG ,M-END> > +line, a good way to drift into space and eventually run out of air." CR> ) +"So far you've been lucky and not drifted very far." CR>) (ELSE )> )>) @@ -1863,7 +1855,7 @@ line, a good way to drift away into space and eventually run out of air." CR> > +"Just in time you pull yourself back into the airlock.|" CR> ) (ELSE )) ) +"You are floating in space above the artifact, giving you a panoramic view of +its surface. Unfortunately you will soon run out of air, which will ruin the +experience." CR>) (<==? .RARG ,M-BEG> - - ) + ) ( > )>)>> +"The force of the blast slows your recession from the artifact, but not +enough. You continue to drift away, and eventually run out of air.">)>)>> - > + + + >> + )> + + ) + (ELSE )>> @@ -1894,8 +1889,7 @@ rotation and your velocity combine to wipe you out.">)>)>> ) ( 4>> @@ -1930,7 +1924,9 @@ with an airlock. The surface looks metallic." CR>) ) - ( )>> + ( + ) + (ELSE )>)>> > @@ -1954,7 +1950,7 @@ with an airlock. The surface looks metallic." CR>) ) (<==? ,POISON-COUNT 4> ) ) (ELSE )>)>) (ELSE )>) - ( + ( ) (ELSE @@ -2076,7 +2072,7 @@ in his own language." CR>) (ELSE )>)> ) - ( + ( )>)>> @@ -2085,10 +2081,15 @@ in his own language." CR>) - - + + >> + )> + + )>> +of the artifact." CR>) + (ELSE )>)>> ) @@ -2097,11 +2098,11 @@ of the artifact." CR>)>> ) (<==? .RARG ,M-LOOK> +,COLOR-CODED "All around are strange protrusions, one of which could be a +hook for a safety line. The surface here is metallic, but gets stony further +from the dock. On one side (\"Down\") is your ship, tethered to the surface +of the artifact by thick silvery ropes. On the other (\"Up\") is a large dome +with an airlock"> ) @@ -2127,9 +2128,9 @@ silvery ropes. On the other (\"Up\") is a large dome with an airlock"> "A closer examination reveals that there are exactly ten circular bumps or columns on the sculpture: the first is large and centrally located, the second through tenth are smaller and scattered at various distances and -orientations. As you go outward from the large bump -in the center there are four small bumps, two rather large ones, two -medium-sized ones, and then a small one again." CR> +orientations. As you go outward from the large bump in the center there are +four small bumps, two rather large ones, two medium-sized ones, and finally +a small one which sticks out quite far." CR> )>)> @@ -2178,17 +2179,15 @@ medium-sized ones, and then a small one again." CR> ) +"The sculpture flattens out completely, except at the former location of the +tiny bump, where a hexagonal rod of black crystal is extruded." CR>) (<0? ,P-NUMBER> ) ( >> ) +"A tiny column made up of only one hexagon appears at" ,ABOUT-SAME CR>) (ELSE @@ -2200,7 +2199,7 @@ appears at" ,ABOUT-SAME CR>) leaving the sculpture completely smooth." CR>)>)>> +" a distance somewhat nearer the center than the first large bump."> @@ -2288,14 +2287,13 @@ body. It is out of reach from here." CR>)> ) (ELSE > +"You fly into space like a super-hero. Unfortunately, you keep going +indefinitely, and eventually you will run out of air." CR> )>) (ELSE )>> @@ -2385,10 +2383,7 @@ hand." CR>) - )>) + )>) (T )> T)>) (> @@ -2397,6 +2392,10 @@ relatively short.">)>) )>> + + >> @@ -2499,7 +2498,7 @@ relatively short.">)>) @@ -2534,7 +2533,7 @@ of the tribe." CR>)>)> "The palisade smolders a bit, but is otherwise undamaged." CR>) ( )>> +"The palisade is unclimbable." CR>)>> @@ -2544,7 +2543,11 @@ of the tribe." CR>)>)> > > - )>) + ) + ( + )>) (<==? .RARG ,M-ENTER> @@ -2569,11 +2572,10 @@ of the tribe." CR>)>)> > > +"The chieftain removes his suit and dons yours. He is clearly delighted with +the gift, and his people are truly impressed by his new wardrobe. He moves +about, pointing at various objects (including some of his lesser wives and +children) and glancing at you quizzically." CR> > (ELSE )> +Only the helmet and scraps of the body material remain." CR>)> )> @@ -2633,10 +2635,9 @@ and then at himself, and brandishes his spear menacingly." CR>) > +"They resemble human-sized weasels. Their bodies are thin, flexible, and +covered with several colors of hair. There are all sizes and ages, and the +stronger ones are armed with spears, knives, and other nasty hardware." CR>> >> @@ -2661,7 +2662,8 @@ nasty hardware." CR>> - )> + + )> )>) (ELSE )>) ( ) @@ -2686,9 +2688,8 @@ nasty hardware." CR>> ) (ELSE )> +" disintegrated, in the best tradition of the 1930s pulps. The remainder of +the tribe attacks you, seeking revenge. You fire the ray gun at them. "> > ". Each time @@ -2743,7 +2744,7 @@ many aliens are dispatched, but more appear." CR>) saying something like \"That's Greek to me.\"" CR>) ( +"The chief is a perfect example of barbarian dignity and splendor."> ) @@ -2792,7 +2793,7 @@ removes the rod from its string and hands it to you." CR>) > > ) ( > ) @@ -2849,14 +2850,15 @@ grinning and grunting in a friendly way." CR>) > ) - (ELSE - )> + ( + ) + (ELSE )> )> > ) ( > @@ -2905,14 +2907,14 @@ slides out of the space suit and onto the floor." CR>) (ELSE > )>) +"This time, the skeleton falls apart with a horrendous clatter. A head peeks +through the door. It's a weasel! He roars, and soon dozens of the aliens +surround you. The rest, alas, is too gory to describe.">)>) ( > > )>> +"The skeleton is destroyed by the blast! The aliens, hearing it, rush in and +skewer you for desecrating their sacred place.">)>> > @@ -2953,8 +2955,8 @@ surround you, spears at the ready."> @@ -2979,7 +2981,7 @@ smaller pieces."> )>)> )> )>> @@ -2992,11 +2994,11 @@ follows you just out of reach, hissing and clicking their mandibles.">)> ) ( ) +"They look like a cross between a rat and an ant. They have chitinous shells, +mandibles, and exhibit an ant-like social order. They also have hair, bear +live young, and are roughly the size of rats. They have a crude intelligence, +evidenced by the spears of the warrior caste. The cage has many rat-ants of +varying sizes, ages, and social roles." CR>) ( > ) ) (ELSE )>) ( .I> - ) + ) ( <==? ,ZAP-GUN ,PRSI>> ) (> @@ -3192,7 +3194,9 @@ unfortunately unreadable." CR>) > - > + + > + >)> @@ -3232,10 +3236,10 @@ you and your possessions as well.">) ( > ) +"There is a horrendous explosion from the ray gun, and a huge gout of orange +rays envelops the " D ,PRSI ". You are knocked spinning by the recoil, and +when you recover, you see no sign of the " D ,PRSI " but a tiny drift of +dust." CR>) (ELSE )>) - - + + >> + )> + + ) + (ELSE )>) ( ) @@ -3444,11 +3454,11 @@ dead-black circle appears." CR>)>> ) (<==? ,PRSO ,BLACK-KEY> ) ( @@ -3479,10 +3489,10 @@ to the hatch." CR>)