+++ /dev/null
-! *********************************************************************
-! SPECIAL.INF -- Add-on for SPIRITWRAK
-! Contains: 'specials' that I wanted to keep separate from
-! the other 'city-based' .INF files (Atrii, NPC homes)
-! *********************************************************************
-
-! ----------------- (Frobar's home) -------------------------
-
-Object FROBAR_Foyer "Entrance Foyer"
- with description "You are in the Entrance Foyer of a \
-small but tasteful home. The exit is to the southwest. \
-The general area is tastefully done in maroon carpeting \
-and brass fixtures. Another room lies to the north.",
- name "maroon" "carpeting" "brass" "fixtures",
- sw_to FROBAR_Ent,
- out_to FROBAR_Ent,
- n_to FROBAR_Parlor,
- has light;
-
-Object FROBAR_Parlor "Parlor"
- with description "You are in a very decorative parlor. \
-Various furnishings of high quality are arranged around \
-an enormous rug with intricate golden symbols in the weave \
-design. Open doorways lead south, north, east and west.",
- name "rug" "doorways" "furnishings" "symbols",
- s_to FROBAR_Foyer,
- n_to FROBAR_Bedroom,
- e_to FROBAR_Study,
- w_to FROBAR_Lounge,
- has light;
-
-Object frobar_plant "large potted plant" FROBAR_Parlor
- with name "plant" "large" "potted",
- initial "A large potted plant sits in one corner.",
- description "A well-tended house-plant.",
- before [;
- Cast:
- if (the_spell_was == throck_spell) {
- "The plant seems even healthier now.";
-! if (Frobar in FROBAR_Bedroom)
-! (couldn't think of a proper reaction...:)
- }
- ],
- has static;
-
-Object FROBAR_Lounge "Lounge"
- with description "A large room here apparently serves as a lounge \
-for entertaining. The walls and furniture all have interesting \
-design work that gives an impression of dignified age. A doorway \
-heads east.",
- name "furniture" "doorway",
- e_to FROBAR_Parlor,
- has light;
-
-Object FROBAR_Study "Study"
- with description "This is a study room with fancy wood paneling and \
-plush carpeting. There is an exit to the west.",
- name "wood" "paneling" "carpeting",
- w_to FROBAR_Parlor,
- has light;
-
-Nearby FROBAR_shelves "large bookshelf"
- with name "shelves" "shelf" "bookshelf",
- initial "A large bookshelf takes up most of the north wall.",
- description "It's filled with odds and ends, mostly uninteresting.",
- capacity 30,
- has static supporter;
-
-Object FROBAR_Journal "plain journal" FROBAR_shelves
- with name "journal" "plain",
- ! weight 15,
- size 15,
- description "This is a short journal of notes that \
-Frobar was keeping. The contents are quite dull, mostly \
-consisting of entries like ~Remember to water plant~ and \
-so forth. In fact, the only non-trivial entry follows:^^\
-~Perhaps today I will go visit Barsap's latest creation. \
-Then again, maybe I won't. This so-called 'Gambit' of his \
-is supposed to be some silly diversion where people can \
-hop around floating platforms trying to reach the southeast \
-corner \
-platform on the bottom level, just so they can get \
-teleported back to the top, and start all over again! \
-Can this be a monetarily beneficial thing? I doubt it.~";
-
-! (twisted -- four ancient ones)
-Object p5 "twisted parchment" FROBAR_shelves
- class parchment_class,
- with name "twisted",
-description "~...understand. I, like many of the Order, \
-have understood that the greatest Saints of our Order were \
-the Three, those Three that we know as the Ancient Ones. \
-Why then, do I find in ancient cairns, in hidden temples, \
-and in versions of the Scriptures found in unsettled lands, \
-that _four_ beings that called themselves the Ancient Ones \
-did do battle with evil and were defeated? This surely is \
-not to be believed, but I...~";
-
-Object FROBAR_Desk "large wood desk" FROBAR_Study
- with name "desk",
- description "A massive wood desk carved from a single block of wood.",
- capacity 20,
- has static supporter;
-
-Object FROBAR_Bedroom "Bedroom"
- with description "A nice cozy bedroom. The exit is south.",
- s_to FROBAR_Parlor,
- has light;
-
-Object FROBAR_bed "large bed" FROBAR_Bedroom
- with name "bed",
- description "A large comfortable-looking bed.",
- before [;
- LookUnder: "Sorry, no monsters here.";
- ],
- has static enterable supporter;
-
-!Object FROBAR_Painting "large painting" FROBAR_Bedroom
-! with name "painting",
-! initial "There is a large painting hanging on the wall.",
-! description [;
-! if (self hasnt general)
-! "It appears to be an oil painting of a \
-! scroll on a table. A small note on the frame says, \
-! ~Still-life with Scroll, -FF, 791~";
-! else
-! "It appears to be an oil painting of a \
-! table. A small note on the frame says, \
-! ~Still-life, -FF, 791~";
-! ],
-! before [;
-! Touch, Rub, Push:
-! if (self hasnt general) {
-! give self general;
-! move painted_scroll to player;
-! Achieved(23);
-! print "As you touch the painting, your hands \
-!run across the scroll, and the oil takes on a three-dimensional \
-!quality! You ignore the strange sensations as you reach \
-!into the painting, and withdraw the scroll";
-! if (Frobar in FROBAR_Bedroom)
-! "! Frobar watches the events over your \
-!shoulder, and seems puzzled. ~Now, why didn't I ever think to try \
-!that,~ he muses.";
-! else "!";
-! }
-! else
-! "The painting seems to be nothing more than \
-!an oil painting now.";
-! ],
-! has static;
-
-! ----------------- (Thief's home) -------------------------
-
-Object THIEF_Bottom_of_staircase "Wondrous Stairway"
- with description "An enormous spiral staircase seems to wind miles \
-above your head in this curious column-like chamber. Strange \
-points of light brighten the chamber from above. \
-To the west is a small exit.",
- name "points" "light" "staircase" "stairway" "stairs",
-! TODO -- fix this weirdness...
- u_to THIEF_Ent,
- w_to "You can't go that way.", ! but later...
- before [;
- Go:
- if (noun == u_obj)
- print "^You begin the long trek upwards. Strangely, \
- the stair seems to twist and move as you step on it, \
- turning like a corkscrew, until you are \
- graciously deposited at the top, far above your \
- previous location.^";
- ],
- has light;
-
-
-Object THIEF_Ent "Fancy Hall"
- with description "This must be an apartment or penthouse in the \
-skyscraper. You are in a very high hall, with black slate stone \
-walls that seem to reflect shadows everywhere. There is a room \
-to the north. The southern edge of this room drops off into the \
-darkness, followed by a long spiral staircase. The ceiling overhead \
-seems to have tiny points of light like a night sky.",
- name "slate" "shadows" "staircase" "points" "light",
- d_to THIEF_Bottom_of_staircase,
- n_to THIEF_Foyer,
- has light;
-
-Object THIEF_Foyer "Magnificent Foyer"
- with description "This is an exceptionally grand entrance foyer, \
-with sweeping arched ceilings and sparkling chandeliers. The \
-room is dimly lit. Open hallways lead south and west.",
- name "chandeliers",
- s_to THIEF_Ent,
- w_to THIEF_Lounge,
- has light;
-
-Object THIEF_Lounge "Fancy Lounge"
- with description "A tastefully overdone lounge with tapestries \
-and gold enamel finished walls. The room is dimly lit, although \
-you see no windows or other sources of light. Open hallways lead \
-east and west.",
- name "tapestries" "enamel",
- e_to THIEF_Foyer,
- w_to THIEF_Storeroom,
- has light;
-
-Object THIEF_Journal "short journal" THIEF_Lounge
- with name "journal",
- initial "There's an open journal sitting here.",
- ! weight 15,
- size 15,
- description "This appears to be a short collection of notes:^^\
- ~TIPS ON CRACKING THE NEW FROBOZZCO 3-DIAL COMBO LOCKS: ^\
- Remember, there's a slight flaw in the design. For every \
- correct number in the correct dial, pressing the opening button \
- with cause a small click. Dials with the correct number in the \
- wrong dial place will cause a small thunk. The lock mechanism \
- scans for correct numbers in correct places first, and then \
- for correct numbers in the wrong place in the 'remaining dials'. \
- Simple! But don't forget, closing the locks will automatically \
- lock and reset the dials!^^\
- NEW FLATHEAD PAINTING: ^\
- I've completed making the copy of the new Leonardo Flathead painting, \
- received courtesy of the Royal Museum. Glad to say my skills in \
- art forgery are undiminished -- I can barely tell the difference \
- between the two myself! I'll soon replace the original with the \
- copy, and no one will be the wiser!~";
-
-
-Object THIEF_Storeroom "Workroom"
- with description [;
- print "A sight to inspire even the most avaricious, this \
- storeroom is filled with all sorts of rare and precious treasures. \
- A hallway leads east";
- if (self hasnt general)
- print ". You notice that the west wall appears to be made of \
-solid granite";
- ".";
- ],
- name "hallway",
- e_to THIEF_Lounge,
- before [;
- Examine:
- if ((noun == w_obj) && (self hasnt general))
- "The west wall is a solid piece of granite, which \
-seems very odd, considering the other walls are clearly made of \
-slate.";
- Cast:
- if ((the_spell_was==ledak_spell) && (Painting_FAKE in self)) {
- if (Painting_REAL in self)
- print "One of the paintings";
- else print "The painting";
- remove Painting_FAKE;
- " is surrounded by a yellow glow! It crumbles into \
-dust!";
- }
- ],
- has light;
-
-Nearby THIEF_treasure "precious treasures"
- with name "treasure" "jewels" "gemstones" "artifacts",
- description "Piles of rare gemstones, precious jewelry, \
- priceless artifacts, and other treasures line the walls \
- here.",
- before [;
- Take:
- "Fortunately, your high moral standing allows you \
- the benefit of having no need for such materials of excess.";
- ],
- has scenery;
-
-Object pasta "pile of fettucini carbonari"
- with name "pile" "fettucini" "carbonari" "pasta",
- description "A large pile of fettucini dripping in \
-carbonari sauce.",
- before [;
- Eat:
- if (self hasnt general) {
- give self general;
- "You manage to stuff yourself with pasta, \
-but there's still quite a lot left.";
- }
- else
- "You've already had enough of this stuff \
-to last a lifetime. Just the thought of eating more is enough to \
-make you queasy.";
- ],
- size 16,
- has edible;
-
-Object c50 "coin" class coin_class;
-
-Object Painting_FAKE "priceless painting" THIEF_Storeroom
- with name "painting",
- plural "priceless paintings",
- short_name "priceless painting",
- description "It's a beautiful oil painting of a dark stormy \
-scene. On the horizon, you can see the edges of mountaintops. Near \
-the top of the painting, two winged figures are carrying a lone \
-individual towards a break in the clouds, where a bright white light \
-seems to emanate.",
- ! weight 25,
- size 25,
- before [;
- Drop:
- if (location == Museum_north) { ! player returned fake painting to museum!
- remove self;
- "A museum curator appears and takes the \
-painting. With an expert eye, he looks closely at it. ~This is \
-a fake! I warn you sir, art forgery is a dangerous game.~ He \
-leaves, much disgusted.";
- }
- Take:
- if (Painting_REAL in parent(self))
- "They both look so genuine! You can't decide!";
- Cast:
- if (the_spell_was == ledak_spell) {
- remove self;
- "One of the paintings is surrounded by a bright \
-yellow glow, and disintegrates!";
- }
- Search:
- if (Painting_REAL in parent(self))
- "Search which one? Goodness, you can't decide!";
- ],
- ;
-
-
-! -------------ETHEREAL PLANE OF ATRII ------------
-
-Object ATRII_1 "Ethereal Plane of Atrii"
- with description "Standing on a featureless gray plane that \
- stretches to the infinite horizon against a gray sky, you \
- can only conclude one thing -- you're on the Ethereal Plane \
- of Atrii. Well, at least it fits the description Brother \
- Palemon gave you. It seems like you could go in any \
- direction from here.",
- cant_go "An invisible force blocks your way!",
- name "plane" "horizon" "sky",
- sw_to ATRII_2,
- se_to ATRII_3,
- has light;
-
-Object ATRII_2 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. Stranger still is the upright rectangular hole in the \
- fabric of space that stands in the center of this area. \
- Otherwise, you could wander this gray dimension in any direction, \
- it seems.",
- cant_go "An invisible force blocks your way!",
- ne_to ATRII_1,
- sw_to ATRII_4,
- e_to ATRII_3,
- s_to ATRII_6,
- has light;
-
-Nearby ATRII_2_hole "rectangular hole"
- with name "hole" "rectangle" "opening",
- description "Surely you are in a place where the very laws of \
- nature and the Gods work by different rules! Here stands a \
- rectangular hole, seemingly torn out of the very space you \
- stand in. You see some curious metal chamber through the \
- opening, but there is nothing behind the opening.",
- before [;
- Enter:
- print "^You step through and feel your stomach twist. \
- You stumble past a set of open metal doors into...^";
- in_atrii = 0;
- PlayerTo(Skyscraper);
- return 2; ! allow, but print nothing...
- ],
- has scenery enterable;
-
-Object ATRII_3 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. Stranger still is the flat, glass-like square in the \
- center of the 'floor' of this area. \
- Otherwise, you could wander this gray dimension in any direction, \
- it seems.",
- cant_go "An invisible force blocks your way!",
- nw_to ATRII_1,
- w_to ATRII_2,
- se_to ATRII_5,
- s_to ATRII_7,
- has light;
-
-Nearby ATRII_3_ice "square of ice"
- with name "square" "ice" "glass-like",
- description "It looks and feels like a perfect square of ice, \
- flush with the featureless gray surface you stand on.",
- before [;
- Enter:
- print "You step onto the square, and before you know it, your \
-surroundings shift and start to fade! You feel a \
-sudden chilling wind. The ice seems to lengthen and stretch. The \
-gray plane slowly turns white and bumpy.^";
- in_atrii = 0;
- PlayerTo(Frozen_river2);
- return 2;
- ],
- has scenery enterable;
-
-Object ATRII_4 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
-you look. Stranger still is the large black hole to the south. \
-Otherwise, you could wander this gray dimension in any direction, \
-it seems.",
- cant_go "An invisible force blocks your way!",
- ne_to ATRII_2,
- se_to ATRII_6,
- s_to [; <<Enter ATRII_4_hole>>; ],
- has light;
-
-Nearby ATRII_4_hole "black hole"
- with name "hole" "black",
- description "It looks like a large hole, probably twice your \
- height. It's completely black and featureless.",
- before [;
- Enter:
- print "^You step into the black hole. You stumble \
- forward, surrounded by blacker-than-night darkness.^";
- in_atrii = 0;
- PlayerTo(Subway_Tunnel);
- return 2;
- ],
- has scenery enterable;
-
-! (secret subway tunnel)
-Object Subway_Tunnel "Dark Tunnel"
- with description "You're in a large dark tunnel that seems \
- to run north and south. To the south you see light. There \
- seem to be two metal tracks running along the ground.",
- s_to GURTH_GUSPlatform,
- n_to "You walk north, and run into a invisible force!",
- before [;
- Go:
- if (noun==s_obj) {
- Achieved(25);
- print "^You step out into an underground chamber. \
- A burly uniformed figure sees you exit the tunnel and yells, \
- ~Hey, no playing in the tunnels, pal!~^";
- }
- ],
- each_turn [ i ;
- i = random(40);
- if (i > 35)
- "^You hear a rumbling noise echoed from somewhere, and \
- the entire tunnel seems to shake! Then, all is quiet.";
- if (i == 17 or 18) {
- deadflag = 1;
- "^Suddenly, without warning, a huge train car appears \
- heading south! It plows straight into you!";
- }
- if (i==6 or 7)
- "^Suddenly, a huge train car appears heading north! \
- You barely avoid getting pulverized! Strangely, \
- you watch as the train continues north, and \
- seems disappear into blackness nearby. It's as \
- though the train was simply removed from the tunnel \
- somehow.";
- ],
-;
-
-Nearby ST_tracks "tracks"
- with name "tracks" "tracks" "metal",
- description "Two long metal tracks, running north and south. \
- There's something oddly familiar about them.",
- has scenery;
-
-Object ATRII_5 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. It seems like you could go in any \
- direction from here.",
- cant_go "An invisible force blocks your way!",
- nw_to ATRII_3,
- sw_to ATRII_7
- has light;
-
-Object p9 "ripped parchment" ATRII_5
- class parchment_class,
- with name "ripped",
-description "~...now know that the Rod we believe is \
-the Rod of the Ancients, sequestered in our Monastery, is \
-an artifact of evil! Imprisoned inside, \
-true to the scriptures (at least this much is, what \
-isn't, I can nowadays say is much) we know, is Anabais. \
-What is worse, is that this very Rod is an artifact of \
-evil power created by Anabais, in the image of the True \
-Rod of the Ancients, which he planned to use to aid \
-him in his evil gains! \
-Were that evil one free again, and had about him both \
-his brothers and his Rod of Evil, we would witness a \
-reckoning \
-greater than Quendor has ever known! I take relief in \
-the knowledge that he will never be freed, and he will \
-never regain his implement of evil; only an innocent \
-being can break the false rod and \
-free him from his prison, and subsequently, \
-the false rod cannot be regained by Anabais through his \
-own will, or another evil being. \
-In fact, only a being of good again can gather \
-the resulting pieces, and only through this being \
-can Anabais regain his evil artifact, for...~";
-
-
-Object ATRII_6 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. It seems like you could go in any \
- direction from here.",
- cant_go "An invisible force blocks your way!",
- nw_to ATRII_4,
- e_to ATRII_7,
- n_to ATRII_2,
- se_to ATRII_8,
- has light;
-
-Object ATRII_7 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. Stranger still is the odd-shaped depression in the gray \
- plane here. \
- Otherwise, you could wander this gray dimension in any direction, \
- it seems.",
- cant_go "An invisible force blocks your way!",
- ne_to ATRII_5,
- w_to ATRII_6,
- sw_to ATRII_8,
- n_to ATRII_3,
- has light;
-
-Nearby ATRII_7_depression "depression"
- with name "depression" "cavity",
- description "It's a large elongated depression in the gray 'floor'. \
- The cavity has a flat bottom, and somewhat cigar-like shape.",
- before [;
- Enter:
- print "^You step into the depression. Your very \
- surroundings start to fade, replaced by sunlight that \
- makes you squint! The gray plane undulates and \
- buckles and turns into a great body of water \
- before your very eyes.^";
- in_atrii = 0;
- PlayerTo(sailboat); ! useful if the player 'lost' the boat at sea.
- return 2;
- ],
- has scenery enterable;
-
-Object ATRII_8 "Ethereal Plane of Atrii"
- with description "Flat, featureless gray is in every direction \
- you look. Directly overhead, you notice odd streaks of \
- light. From here, you could wander this gray dimension in any direction, \
- it seems.",
- name "streaks",
- cant_go "An invisible force blocks your way!",
- nw_to ATRII_6,
- ne_to ATRII_7,
- has light;
-
-! ----------- Special Implementor's Residence -----------
-
-Object Imp_Liv "Strange Room"
- with description [;
- print "You ";
- if (player in Imp_Curtains)
- "can't see much behind these curtains.";
- else "feel a great sense of dread! Surely, given the way \
-you got here, this must be the domicile of a dreaded Implementor! \
-The entire place feels strange and \
-alien and, well, ~modern~. There's some sort of kitchen to the \
-east. Long curtains cover what must be a window to the south.";
- ],
- number 1,
- e_to Imp_Kitchen,
- w_to Imp_door,
- s_to [; <<Enter Imp_Curtains>>; ],
- each_turn [ ;
- if (Imp in Imp_Bedroom) {
- if (Imp_Liv.number == 3) {
- StartDaemon(Imp);
- Imp_Liv.number = 4;
- }
- else "^You hear some faint noises to the west.";
- }
- ! create some noises if player in curtains
- if (player in Imp_Curtains) {
- if (Imp in Imp_Liv)
- "^You hear some faint noises nearby.";
- if (Imp in Imp_Kitchen)
- "^You hear some faint noises to the east.";
- }
- ],
- time_left 0,
- time_out [;
- ! if player hasn't 'listened' twice to start Imp,
- ! start him anyway (otherwise, in truth, player
- ! would be permanently stuck in (my) apartment.
- if (Imp_Liv.number < 4) {
- StartDaemon(Imp);
- Imp_Liv.number = 4;
- }
- ],
- before [;
- ! if player actually listens, better noises...
- Listen:
- if (Imp in Imp_Bedroom) {
- if (Imp hasnt general) { ! i.e. -- awake
- if (Imp_Liv.number == 1) {
- Imp_Liv.number = 2;
- "It sounds like someone is talking to himself to \
-the west. You hear: ~Now, wait just a second here, the player object \
-is gone! How did that happen?~";
- }
- if (Imp_Liv.number == 2) {
- Imp_Liv.number = 3;
- "It sounds like someone is talking to himself to \
-the west. You hear: ~That can't be right. I must be getting tired. \
-Think I'll make myself a nice hot cup of coffee.~";
-! on next turn via Imp_Liv.each_turn, Imp daemon will be started...
- }
- ! otherwise, Imp has already made his rounds and
- ! returned to bedroom, _not_ falling asleep
- "You hear someone whistling a merry tune to the west.";
- }
- else
- "You hear someone snoring loudly to the west.";
- }
- if (Imp in Imp_Liv) {
- if (Imp.number == 1)
- "You hear someone walking nearby. The footsteps \
-soon fade to the east.";
- if (Imp.number == 4)
- "You hear someone walking nearby. The footsteps \
-soon fade to the west.";
- }
- if (Imp in Imp_Kitchen) {
- ! This assumes the daemon will run before the player turn.
- if (Imp.number == 2) {
- switch (Imp.weight) {
- 118: print "You hear an irritated voice say, \
-~What happened to my coffee maker?~ Slightly softer, you \
-hear ~Well, I guess I'll have that iced tea.~";
- 119, 122: print "You hear a voice to the east say, \
-~Looks like I've got coffee, thank goodness.~";
- 121: print "You hear a voice to the east say, \
-~Great, I'm all out of coffee. Good thing I still have some \
-iced tea.~";
- }
- " Shortly after this, you hear sounds of someone to \
-the east starting some kitchen activity.";
- }
- else "You hear some brief busy noises from the west, \
-followed by what sounds like someone drinking something. Shortly \
-thereafter, you hear the sounds of someone walking into the area \
-from the east.";
- }
- ],
- has light;
-
-Nearby Imp_Curtains "set of curtains"
- with name "curtain" "curtains",
- description "Some heavy-cloth curtains along the south wall.",
- before [;
- Open: "You draw back the curtains and see a sight that \
-beggars the mind! Through the windows, the night sky falls across \
-some unknown landscape, dotted with strange bright points of light. \
-Tall buildings seem to be everywhere. Whatever world you've stumbled \
-onto, it certainly is not your own! You hastily close \
-the curtains.";
- Enter: print "In an attempt to hide, you part the curtains. ";
- ],
- has static enterable;
-
-Object Imp_Kitchen "Strange Kitchen"
- with description "A room that could be a kitchen, \
-if it didn't seem completely strange. Harsh bright lights seem to \
-be coming from some unknown source. Strange-looking white countertops and \
-cabinets fill the area, along with a curious white closet-like object. \
-A room lies to the west.",
- name "cabinet" "cabinets" "closet" "refrigerator" "countertops",
- w_to Imp_Liv,
- has light;
-
-Object Coffee_maker "curious machine" Imp_Kitchen
- with name "machine" "curious",
- description "A white plastic device that seems to \
-encase a glass pitcher or kettle of some sort. Most odd.",
- ! weight 15,
- size 15,
-;
-
-Object regular_coffee_can "can of regular coffee" Imp_Kitchen
- with name "can" "coffee" "regular",
- description [;
- "The can reads: ~Brand-X coffee crystals~^^\
- ~Rich, mountain-grown flavor.~";
- ],
- before [;
- Open:
- "You'd need a good can-opener for that.";
- ],
- ! weight 15,
- size 15,
-;
-
-
-Object Imp_Bedroom "Strange Bedroom"
- with description "A very curious small bedroom. \
- A white desk sits here amongst other odd furnishings.",
- name "furnishings" "bed" "chair",
- e_to Imp_door,
- has light;
-
-!Nearby Imp_Bed "furnishings"
-! with name "furnishings" "bed" "chair",
-! description "Some weird bedroom furniture.",
-! has scenery;
-
-Object Imp_Desk "desk" Imp_Bedroom
- with name "desk",
- description "A white desk, with a strange, modern look.",
- capacity 6,
- has scenery supporter;
-
-Object Imp_Computer "strange machine" Imp_Desk
- with name "machine" "computer",
- description
- [ ;
- print "It's a strange metal box. On top, perhaps connected in some \
-way, is another metal box with a glass plate on the front. Strange wires \
-seem to be attached to the boxes somehow. \
-In front of the boxes is an odd plastic \
-flat object with rows and rows of plastic buttons labeled every letter in \
-the alphabet";
- if (self hasnt general) {
- give self general;
- print ".^^Looking closer, you notice curious glowing \
-letters on the glass plate. You read the letters, and \
-feel drawn to respond...^^\
-SPIRITWRAK DEVELOPMENT SYSTEM:^\
-(AUTOMATIC OBJECT GARBAGE-COLLECTION)^\
-REMOVE OBJECT IMPENETRABLE_STEEL_WALL? (Y/N) ";
-if (YesOrNo() == 0) "You press a button labeled ~N~. The strange box \
-emits a tiny beep, and the glass plate is covered with fantastic colorful \
-designs.";
-else {
- ! set-up the secret room
- remove steel_wall;
- give cave_intersection general;
- Achieved(18);
-"You press a button labeled ~Y~. The strange box \
-emits a tiny beep, and the glass plate is covered with fantastic colorful \
-designs.";
- }
- }
- else ". The glass plate currently has strange glowing colorful \
-patterns displayed on it.";
- ],
- has static;
-
-[ ImpSendBack ;
- print "~I'm afraid you'll have to go back.~ The Implementor \
-snaps his fingers, and suddenly, you're back in...^";
- spell_block = 0;
- StopDaemon(Imp);
- StopTimer(Imp_Liv);
- PlayerTo(ATRII_8);
-];
-
-Nearby Imp_door "door"
- with name "door",
- when_closed [;
- if (self in Imp_Liv) {
- if (player notin Imp_Curtains)
- "There's a closed door to the west.";
- else rtrue;
- }
- else "There's a closed door to the east.";
- ],
- when_open [;
- if (self in Imp_Liv) {
- if (player notin Imp_Curtains)
- "There's an open door to the west.";
- else rtrue;
- }
- else "There's an open door to the east.";
- ],
- description "A plain-looking door. A note \
-attached to it says ~DO NOT DISTURB, IMPLEMENTOR AT WORK~.",
- door_dir [;
- if (self in Imp_Liv) return w_to;
- else return e_to;
- ],
- door_to [;
- if (self in Imp_Liv) return Imp_Bedroom;
- else return Imp_Liv;
- ],
- found_in Imp_Liv Imp_Bedroom,
- before [;
- Open:
- if ((Imp in Imp_Bedroom) && (Imp hasnt general)) {
- print "You open the door, revealing a small room with \
-what must be an Implementor sitting behind a desk. The Implementor looks \
-up, startled. ~You're here?~ he says, observantly. ";
- ImpSendBack();
- return 1;
- }
- ],
- has static door openable;
-
-
-! *************** And, for my final trick, the endgame **************
-
-Object Mystical_Cave "Mystical Cave"
- with description "You've entered a wondrous natural cave, lit \
-everywhere by reflected light from some sort of purple crystalline substance \
-in the walls. A tunnel exits to the northwest.",
- name "reflected" "crystal" "crystalline" "substance",
- number 0,
- nw_to [;
- if (Mystical_Cave.number ~= 4)
- "The purple light in the chamber seems to pulse with energy, \
-and find your way blocked by an invisible force!";
- else {
- spell_block = 0;
- ! fill with things, if necc.
- print "As you leave, a sudden tremor shakes the \
-cave! You just narrowly avoid a sudden cave-in behind you!^";
- give cave_intersection ~general;
- return cave_intersection;
- }
- ],
- has light;
-
-Nearby purple_sphere "purple sphere"
- with name "sphere" "purple",
- initial "There's a purple crystal sphere partially embedded \
-in the rock floor here.",
- description "A large purple sphere that seems to pulse with \
-strange energy.",
- before [;
- Push, Touch, Rub:
- ! various endgame trickery...
- if (silver_rod_piece in player) {
- while (child(player)~=0) {
- give child(player) ~worn;
- move child(player) to Mystical_Cave;
- }
- move silver_rod_piece to player;
- spell_block = 1;
- print "The sphere pulses with angry energy! It seems to \
-be fighting the silver rod piece you hold! With a sudden burst, you \
-feel your mind reel and your very surroundings change!^";
- give stone_marker general;
-! give snowy_intersection general ~visited;
- give snowy_intersection general;
- StartTimer(White_Dragon,3);
- PlayerTo(Dragon_Cave);
- rtrue;
- }
- if (green_rod_piece in player) {
- while (child(player)~=0) {
- give child(player) ~worn;
- move child(player) to Mystical_Cave;
- }
- move green_rod_piece to player;
- spell_block = 1;
- print "The sphere pulses with angry energy! It seems to \
-be fighting the green rod piece you hold! With a sudden burst, you \
-feel your mind reel and your very surroundings change!^";
- StartTimer(captain,3);
- PlayerTo(On_Boat);
- rtrue;
- }
- if (red_rod_piece in player) {
- while (child(player)~=0) {
- give child(player) ~worn;
- move child(player) to Mystical_Cave;
- }
- move red_rod_piece to player;
- spell_block = 1;
- print "The sphere pulses with angry energy! It seems to \
-be fighting the red rod piece you hold! With a sudden burst, you \
-feel your mind reel and your very surroundings change!^";
-! give Stadium_entrance general ~visited;
-! remove stadium_sign;
-! remove stadium_statue;
-! move statue_base to Stadium_entrance;
- StartTimer(statue_base,2);
- PlayerTo(Stadium_entrance2);
- rtrue;
- }
- if (brown_rod_piece in player) {
- while (child(player)~=0) {
- give child(player) ~worn;
- move child(player) to Mystical_Cave;
- }
- move brown_rod_piece to player;
- spell_block = 1;
- print "The sphere pulses with angry energy! It seems to \
-be fighting the brown rod piece you hold! With a sudden burst, you \
-feel your mind reel and your very surroundings change!^";
-! give GURTH_House general ~visited;
-! move bad_brick to GURTH_House;
- StartTimer(bad_brick,7);
- PlayerTo(GURTH_House2);
- rtrue;
- }
- ! default...
- "A purple blast of force throws you back!";
- ],
- has static;
-
-Object skeleton "skeleton" Mystical_Cave
- with name "skeleton" "bones",
- initial "Lying in one corner of the room is a skeleton.",
- description "Just some bones, not much else, is all.",
- before [;
- Pull, Push, Turn, ThrownAt, Touch, Attack, Rub,
-Cut, Shake, Squeeze, Kiss:
- remove self;
- "The skeleton crumbles into dust, as though \
-many years of time had suddenly caught up with it in one \
-moment.";
- ],
-has static;
-
-! (black -- final parchment of Palemon's final words)
-Object p8 "blackened parchment" Mystical_Cave
- class parchment_class,
- with name "blackened",
-description "~I write these final words not in the hope \
-that others will find and heed them, for this is too great \
-a hope in my moment of death, but rather, to try and maintain my mind and soul \
-in the face of the terror I now know is the truth.^^\
-For how can a man survive, knowing that his entire life, \
-his entire belief, has been a ruse, a dupe, from the \
-early beginning? That he has merely been a pawn in a \
-working of evil that cannot be stopped?^^\
-I have fought all manner of terrors, and recovered that which \
-I know is the _true_ Rod of the Ancients, broken and scattered \
-eons ago in the face of great evil. I sought also those \
-ancient spheres that the Four Ancients never had the chance to \
-use against the evil four elemental demons, but alas, I could \
-not find them all, and sequestered those which I did with \
-good people that the elemental evil could not touch.^^\
-Alas, my quest has ended here. I lie trapped here, \
-with the pieces of the true Rod in hand, unable to go forward, trapped by the \
-elemental mystic locks on the rod that prevent it from leaving this \
-very room, yet unable to go back, to leave the rod here and \
-deny the very real danger of the defeat of the Ancients, of \
-the power that the evil elementals hold.^^\
-What is a faith destroyed? Who can help me to believe, in my moment \
-of disbelief?^^\
---P--~";
-
-
-
-
-Object Dragon_Cave "Giant Cavern"
- with description "You find yourself in a huge cavern. To the west \
-is a large exit that looks out into a void of snow-covered mountains.",
- name "mountains",
- w_to "You hesitate. The cave seems to just \
-exit off the side of a mountain, and all you can see below is whiteness. \
-It could be a long way down.",
- d_to [; <<Jump>>; ],
- out_to [; <<Jump>>; ],
- before [;
- Jump:
- print "You close your eyes and leap out of the cave! \
-You plummet through silent white winds. \
-Moments later, you fall right into an enormous snowbank, and \
-roll downwards, into...^";
- PlayerTo(snowy_intersection2);
- rtrue;
- ],
- has light;
-
-Object On_Boat "On strange boat"
- with description "You are on a long open boat, riding the waves of \
-some great sea. The boat seems to be filled with sailors from \
-some militia.",
- name "waves" "sea" "mast" "floorboards" "ship" "boat",
- before [;
- Drop:
- if (captain has general) {
- if (noun==green_rod_piece) {
- remove green_rod_piece; ! it'll be back
- give shipwreck general;
- Mystical_Cave.number = Mystical_Cave.number + 1;
- StopTimer(captain);
- StopTimer(militia);
- print "You drop the green rod and watch it roll near \
-a mast and get stuck in the floorboards.^^\
-There's a load crack! The ship is breaking apart! Sailors \
-scramble in vain for safety! You hang onto the side of the \
-boat, but the vessel rocks wildly, and you fall into the waters. \
-^^As you sink, you notice the waters seem to change to a purplish \
-hue, and you find yourself back in...^";
- PlayerTo(Mystical_Cave);
- rtrue;
- }
- }
- else
- "The sailors are holding you fast, so you \
-can't do this at the moment.";
- ],
- has light;
-
-Nearby militia "sailors"
- with name "sailors" "militia" "navy",
- description "A bunch of dour-looking navy sailors.",
- time_left 0,
- time_out [;
- deadflag = 1;
- "The ship breaks asunder! Sailors scramble madly \
-and fall into the violent waves! You hear \
-the captain scream ~Blast! I can't swim!~ before the \
-waters cover you completely.";
- ],
- has scenery;
-
-Object ENDGAME_ROOM "Nothingness"
- with description "Nothingness surrounds you. Yet, you feel like \
-your conscious being extends into worlds and dimensions never \
-imagined. You float in a void of total being.",
- number 0, ! number of elementals banished
- each_turn [;
- switch (ENDGAME_timer.number) {
- 0: ENDGAME_timer.number = 1;
- if (black_elemental in ENDGAME_ROOM)
- "^Echoing in your mind, you hear a voice, that you \
-somehow know is from the black sphere. ~Give me the rod priest, \
-and you shall be immortalized as a symbol to an entire civilization!~";
- 1: ENDGAME_timer.number = 2;
- if (smoke_elemental in ENDGAME_ROOM)
- "^Echoing in your mind, you hear a voice, that you \
-somehow know is from the smoke-colored sphere. ~Give me the rod priest, \
-and I shall let you be witness to a feat of great magic, never \
-before witnessed!~";
- 2: ENDGAME_timer.number = 3;
- if (gray_elemental in ENDGAME_ROOM)
- "^Echoing in your mind, you hear a voice, that you \
-somehow know is from the gray-colored sphere. ~Give me the rod priest, \
-and I will grant you power over all who surround you!~";
- 3: ENDGAME_timer.number = 4;
- if (white_elemental in ENDGAME_ROOM)
- "^Echoing in your mind, you hear a voice, that you \
-somehow know is from the white sphere. ~Give me the rod priest, \
-and you will gain the attention of one of the more powerful \
-figures of your time!~";
- }
- ],
-has light;
-
-Object ENDGAME_timer "void" ENDGAME_ROOM
- with name "void" "nothingness",
- description "The absence of anything. Yet, at the same \
-time, the sense that everything possible is near.",
- number 0,
- time_left 0,
- time_out [;
- deadflag = 1;
- if (ENDGAME_ROOM.number < 3)
- print "The spheres nearby suddenly converge";
- else print "The sphere nearby suddenly converges";
- " towards you! In your mind, you hear \
-~Hesitation, foolish priest, was the downfall of the Ancient \
-Ones~ before you feel the full force of the void.";
- ],
- has scenery;
-
-! *** fake room/encounter for bad ending #x
-Object badend1 "On Giant Cube"
- with description "You stand on a single giant floating white \
-cube, in the middle of some dimly lit cavern. \
-^^A small newt floats nearby, concentrating on something.^^\
-The newt suddenly opens its eyes! ~What?~ it croaks in \
-surprise. ~Who are you? You've broken my concentration on \
-the spell, you fool!~ the newt croaks. You feel the cube \
-shift, then stop floating! You plummet into the lava you \
-feared was below..."
- has light;
-
-Object badend2 "Top of Pyramid"
- with description "You are on top of a pyramid in some \
-ancient city. You see dense jungle to the horizon. \
-An ancient civilization spreads before you, in all its \
-mysterious glory.^^Several robed figures surround you.^^\
-Suddenly, you realize you are tightly bound! One of the \
-figures points towards the horizon and makes a complicated \
-gesture. In a language you do not understand, he seems \
-to make a prayer to some nameless god! Fearing the \
-inevitable, you struggle mightily, but to no avail. \
-In moments, the group of robed figures hurls you off the \
-pyramid to your death!"
- has light;
-
-! *************
-! Creatures
-! *************
-
-Object Imp "Implementor" Imp_Bedroom
- with name "Implementor",
- article "an",
- description [;
- print "Some Implementor. Looks more like a oddly-dressed \
-young man badly in need of a haircut";
- if (self has general)
- ". He's also sound asleep!";
- else ".";
- ],
- describe [;
- print "^Someone you assume must be an Implementor \
-is here";
- if (self has general)
- ", sound asleep.";
- else ".";
- ],
- number 0,
- weight 120, ! about right
- life [;
- ! if asleep, which is usually the case
- if (self has general) {
- if (action==##WakeOther or ##Attack) {
- print "You manage to rouse the Implementor from his \
-slumber. He stares at you, bewildered. ~What are you doing here?~ \
-he asks. ";
-ImpSendBack(); rtrue;
- }
- else
- "He appears to be sound asleep right now, and isn't very \
-responsive.";
- }
-! else {
-! (I suppose this is unnecessary. -- i.e. the player shouldn't be able to
-! interact with the implementor unless the implementor is asleep)
-! print "Well, that got his attention. The Implementor \
-!looks completely startled. ~What are you doing here?~ he says. ";
-!ImpSendBack(); rtrue;
-! }
- ],
- daemon [;
- ! ASSUMPTION -- daemon started by start event
- StopTimer(Imp_Liv);
- if (Imp.number == 0) {
- give Imp_door open;
- if ((player in Imp_Liv) && (player notin Imp_Curtains)) {
- print "^The door to the west suddenly flies open! \
-A somewhat bedraggled Implementor steps out! He spots you and his \
-jaw drops. ~You, here?~ he says. ";
-ImpSendBack(); rtrue;
- }
- else
- print "^You hear a door open to the west.^";
- Imp.number = 1;
- move Imp to Imp_Liv;
- }
- else {
- ! first a little 'lazy' clause that kicks the player
- ! out if the Imp is moving around and the player isn't
- ! in the curtains
- if ((Imp.number < 5) && (player notin Imp_Curtains)) {
- if (Imp in location) print "^The Implementor ";
- else print "^From nearby, an Implementor rushes up and \
-";
- print " grabs you by the shoulder! \
-~What are you doing here?~ he \
-says. "; ImpSendBack(); return 1;
- }
- ! now, otherwise, we move the Imp and set his
- ! number accordingly. Room descs and 'Listen'
- ! traps in Imp_Liv will need to use this info
- switch (Imp.number) {
- ! [step 1, moving to Kitchen]
- 1: move Imp to Imp_Kitchen;
- Imp.number = 2;
- if (Coffee_maker notin Imp_Kitchen) Imp.weight = 118;
- else {
- if (regular_coffee_can in Imp_Kitchen) {
- Imp.weight = 119;
- remove regular_coffee_can;
- }
- else {
- if (decaf_coffee_can in Imp_Kitchen) {
- Imp.weight = 122;
- remove decaf_coffee_can;
- }
- else {
- ! no coffee, gosh darn it
- Imp.weight = 121;
- }
- }
- }
- return 0;
- ! [step 2, making/drinking the beverage]
- 2: Imp.number = 3;
- ! [step 3, leaving kitchen, back to living room]
- 3: Imp.number = 4;
- move Imp to Imp_Liv;
- ! [step 4, goes back into bedroom]
- 4: Imp.number = 5;
- give Imp_door ~open;
- if (player in Imp_Curtains)
- print "^You hear a door close to the west.^";
- move Imp to Imp_Bedroom;
-! move coffee_cup to Imp_Bedroom;
- if (Imp.weight == 122)
- give Imp general; ! asleep
- StopDaemon(Imp);
- }
- }
- ],
-has animate;
-
-!Object coffee_cup "large cup"
-! with name "cup" "large",
-! description "A large mug, with the residue of some brown liquid \
-!left in it.",
- ! weight 5,
-! size 4,
-! has container open;
-
-! MOVEPRINTNPC routine, from Gareth Rees' 'THIEF.INF'
-! (TODO -- you really don't need this, since only Frobar moves in this fashion)
-[ MovePrintNPC n dest dir;
- if (n in location) {
- print "^", (The) n, " walks off";
- if (dir ~= in_obj or out_obj or u_obj && dir ~= d_obj)
- print " to the ", (DirectionName) dir.door_dir;
- print ".^";
- }
- if (dest == 0) remove n; ! This seems odd - if dest bogus, 'unlink' NPC?
- else move n to dest;
- if (n in location)
- print "^", (The) n, " walks in.^";
-];
-
-Object White_Dragon "White Dragon" Dragon_Cave
- with name "dragon" "white" "giant",
- describe [;
- print "There is a gigantic white dragon here";
- if (self has general)
- " sleeping peacefully.";
- "!";
- ],
- description "A giant white dragon, the size of a small house.",
- time_left 0,
- time_out [;
- give self ~general;
- if (location == Dragon_Cave) {
- deadflag = 1;
- "^The dragon suddenly snorts and wakes! It sees you \
-and attacks! In moments, you are no more...";
- }
- else {
- remove self;
- give stone_marker ~general;
- move stone_marker_top to snowy_intersection2;
- "^You hear a roar from the east! From out of the \
-sky, a giant white dragon descends! It draws near, spots you, \
-and bellows in rage! You shrink back, and pray for a quick but \
-painless end.^^There is a loud crack! The dragon, in trying to \
-land, almost impales itself on the obelisk marker! Part of the \
-marker breaks off, and the dragon flies off, whimpering in pain!";
- }
- ],
- life [;
- Attack, ThrowAt, WakeOther:
-deadflag = 1;
-"You disturb the sleeping dragon, who promptly makes you wish \
-you hadn't.";
- default: "Best not to disturb the dragon, I'd guess.";
- ],
- has animate;
-
-Object captain "sea captain" On_Boat
- with name "captain",
- description "A rough-looking navy captain.",
- number 0,
- each_turn [;
- if (self hasnt general) {
- if (captain.number == 0) {
- captain.number = 1;
- "^You suddenly realize that you are being \
-held fast by two navy sailors! The captain walks forward and \
-points his cutlass near your ear.^^\
-~What we have here, lads, is a stowaway!~ Some sailor cries out \
-~Overboard with the stowaway!~ The captain smiles. \
-~Now, we was planning on feeding you to the groupers, \
-but we could use a scullion in the hold. One things for sure, \
-ye ain't finding passage on this ship if ye ain't aligned with \
-the Antharian Navy cause!~ Some sailor cries out \
-(unnecessarily) ~The Antharian Navy cause!~. ~So, tell us lad, \
-are ye with us? If ye are true, you'll tell me the Antharian \
-Navy patron saint! So speak quickly, lad, if ye wish to stay \
-dry!~";
- }
- else "^~Speak up fellow! We havn't got all day!~";
- }
- ],
- time_left 0,
- time_out [;
- deadflag = 1;
- "The captain sighs. ~Into the water with ye, then,~ \
-he says, and the two sailors push you roughly overboard. \
-You land in the sea with a splash, and struggle to stay afloat. \
-The ship sails off, but oddly, moments later, it seems to \
-stall and start to sink! Before you get a chance to reflect on \
-this, a large grouper swallows you whole.";
- ],
- life [;
- if (self has general)
- "The captain's a bit too busy trying to save \
-a sinking ship.";
- Answer:
- if (noun=='minirva') {
- give self general;
- StopTimer(self);
- StartTimer(militia,2);
- "~Aye, that's right. Escort the new scullion \
-down to the hold where --~^^\
-The captain's orders are cut short by a sudden grinding noise, \
-and the boat rocks violently! ~Reef, captain!~ you hear someone \
-cry. ~Blast!~ the captain says, ~quickly men, we've got to --~ \
-But it's too late. The boat starts to tip and sway, and \
-the two sailors release you and hastily try to help raise the \
-rigging!";
- }
- else {
- if (noun=='duncanthrax') {
- deadflag = 1;
- "The sailors suddenly pale at the mention of \
-Lord Duncanthrax. ~A traitor in our midst, eh?~ the captain \
-shouts and beheads you with one stroke.";
- }
- if (noun=='ulysses' or 'odysseus')
- "~Nay lad, me thinks that \
-was a sailor.~";
- else "~Nay lad, that doesn't sound right.~";
- }
- Attack, ThrowAt, Kiss, Show, Give:
- "Given that you are in the grips of several \
-strong navy sailors, this is impossible.";
- ],
- has animate;
-
-! ***** THE EVIL ELEMENTALS
-Object black_elemental "black sphere" ENDGAME_ROOM
- with name "anabais" "black" "sphere" "earth",
- description "A black sphere of energy.",
- life [;
- ThrowAt:
- if (noun==brown_sphere) {
- remove self; remove brown_sphere;
- ENDGAME_ROOM.number = ENDGAME_ROOM.number + 1;
- if (ENDGAME_ROOM.number == 4) {
- GameWinner(); rtrue; }
- "The black sphere howls in rage and is no more!";
- }
- Give:
- if (noun==TRUEROD) {
- remove TRUEROD;
- print "You feel a strange foreboding feeling as \
-the black sphere seems to engulf the rod, then you! Your \
-surroundings change once again!^";
- deadflag = 1;
- PlayerTo(badend2);
- rtrue;
- }
- default: "The black sphere is unresponsive.";
- ],
- has animate;
-
-Object smoke_elemental "smoke-colored sphere" ENDGAME_ROOM
- with name "smoke" "sphere" "fire", ! TODO new name...
- description "A smoke-filled sphere of energy.",
- life [;
- ThrowAt:
- if (noun==red_sphere) {
- remove self; remove red_sphere;
- ENDGAME_ROOM.number = ENDGAME_ROOM.number + 1;
- if (ENDGAME_ROOM.number == 4) {
- GameWinner(); rtrue; }
- "The smoke-filled sphere howls in rage and is no more!";
- }
- Give:
- if (noun==TRUEROD) {
- remove TRUEROD;
- print "You feel a strange foreboding feeling as \
-the smoke-filled sphere seems to engulf the rod, then you! Your \
-surroundings change once again!^";
- deadflag = 1;
- PlayerTo(badend1);
- rtrue;
- }
- default: "The smoke-filled sphere is unresponsive.";
- ],
- has animate;
-
-Object gray_elemental "gray sphere" ENDGAME_ROOM
- with name "gray" "sphere" "water", ! TODO new name
- description "A gray sphere of energy.",
- life [;
- ThrowAt:
- if (noun==green_sphere) {
- remove self; remove green_sphere;
- ENDGAME_ROOM.number = ENDGAME_ROOM.number + 1;
- if (ENDGAME_ROOM.number == 4) {
- GameWinner(); rtrue; }
- "The gray sphere howls in rage and is no more!";
- }
- Give:
- if (noun==TRUEROD) {
- remove TRUEROD;
- print "You feel a strange foreboding feeling as \
-the gray sphere seems to engulf the rod, then you! Your \
-surroundings change once again!^";
- PlayerTo(FUBLIO_Cave);
- StartTimer(mad_hermit,3);
- rtrue;
- }
- default: "The gray sphere is unresponsive.";
- ],
- has animate;
-
-Object white_elemental "white sphere" ENDGAME_ROOM
- with name "white" "sphere" "air", ! TODO new name
- description "A white sphere of energy.",
- life [;
- ThrowAt:
- if (noun==silver_sphere) {
- remove self; remove silver_sphere;
- ENDGAME_ROOM.number = ENDGAME_ROOM.number + 1;
- if (ENDGAME_ROOM.number == 4) {
- GameWinner(); rtrue; }
- "The white sphere howls in rage and is no more!";
- }
- Give:
- if (noun==TRUEROD) {
- remove TRUEROD;
- print "You feel a strange foreboding feeling as \
-the white sphere seems to engulf the rod, then you! Your \
-surroundings change once again!^";
- PlayerTo(TROPHY_SECRET);
- rtrue;
- }
- default: "The white sphere is unresponsive.";
- ],
- has animate;
-
-
-! ******************
-! scrolls/spells
-! ******************
-
-Object fancy_scroll "fancy scroll"
- class scroll_class,
- with name "fancy",
-;
-
-Object wigro_spell "turn undead" fancy_scroll
- class spell_class,
- with name "wigro",
- magic [;
- "You speak the chant. Nothing seems to happen.";
- ],
-;
-
-Object briefcase "briefcase" Subway_Tunnel
- with name "briefcase" "case",
- description "A somewhat battered brown-leather briefcase.",
- capacity 5,
- ! weight 20,
- size 15,
- has container openable;
-
-Object red_scroll "red scroll" briefcase
- class scroll_class,
- with name "red",
-;
-
-Object luncho_spell "send object to lower plane" red_scroll
- class spell_class,
- with name "luncho",
- magic [;
- if (second == 0)
-"You see a brief flash of smoke, but nothing happens.";
- if (second has animate)
- "You feel a slight rumbling beneath your feet, but nothing else \
-happens.";
- else {
- if ((second hasnt static) && (second hasnt scenery)) {
- if (second has clothing) give second ~worn;
- if (in_atrii == 1) {
- move second to MON_Chapel2;
- }
- else
- move second to Hades_5;
- print "There is a sudden puff of smoke, and "; DefArt(second);
- " suddenly vanishes!";
- }
- "Your chant goes unanswered.";
- }
- ],
-;
-
-! ******************
-! special obs
-! ******************
-
-Object Atrii_gate "strange contraption" GUE_Labs_SECRET
- with name "contraption" "plate" "disc" "strange",
- description "It looks like a large, slightly convex round disc \
- made of some silvery material.",
- before [;
- Enter:
- print "As you step onto the silvery disc, you feel a \
- strange jolt run through your body. A bright white \
- flash blinds you momentarily!^^You blink, trying to \
- register your surroundings.^";
- in_atrii = 1;
- PlayerTo(ATRII_1);
- return 2;
- Receive:
- move noun to ATRII_1;
- CDefArt(noun); " suddenly disappears in a bright \
- flash of light as you place it on the silver disc!";
- Push, Pull, Touch, Take:
- "As you reach for the strange contraption, you notice \
- white sparks of something arc from the silver surface \
- to your fingers! You hastily draw back.";
- ],
- has static supporter enterable;
-
-! *** the true rod pieces, and the golden rod (after joined)
-Object silver_rod_piece "silver rod piece" Mystical_Cave
- class rod_class,
- with name "silver",
- description "A strange short section of rod colored \
-silver.",
- before [;
- Join:
- if (location ~= Mystical_Cave) {
- if (second == TRUEROD)
- <<Join TRUEROD self>>;
- if ((second == brown_rod_piece) ||
- (second == red_rod_piece) ||
- (second == green_rod_piece)) {
- if (TRUEROD.number == 0) {
- TRUEROD.number = 1;
- move TRUEROD to parent(self);
- remove self; remove second;
- "There is a dazzling golden light as \
-you join the two rod pieces! What remains is a new, strange \
-rod piece!";
- }
- else "There is a dazzling burst of \
-golden light. However, the pieces will not join, and seem \
-to be seeking out something else...";
- }
- }
- else "Some strange purple flash of force \
-blocks your efforts.";
- ],
-;
-Object red_rod_piece "red rod piece" Mystical_Cave
- class rod_class,
- with name "red",
- description "A strange short section of rod colored \
-red.",
- before [;
- Join:
- if (location ~= Mystical_Cave) {
- if (second == TRUEROD)
- <<Join TRUEROD self>>;
- if ((second == silver_rod_piece) ||
- (second == brown_rod_piece) ||
- (second == green_rod_piece)) {
- if (TRUEROD.number == 0) {
- TRUEROD.number = 1;
- move TRUEROD to parent(self);
- remove self; remove second;
- "There is a dazzling golden light as \
-you join the two rod pieces! What remains is a new, strange \
-rod piece!";
- }
- else "There is a dazzling burst of \
-golden light. However, the pieces will not join, and seem \
-to be seeking out something else...";
- }
- }
- else "Some strange purple flash of force \
-blocks your efforts.";
- ],
-;
-Object green_rod_piece "green rod piece" Mystical_Cave
- class rod_class,
- with name "green",
- description "A strange short section of rod colored \
-green.",
- before [;
- Join:
- if (location ~= Mystical_Cave) {
- if (second == TRUEROD)
- <<Join TRUEROD self>>;
- if ((second == silver_rod_piece) ||
- (second == red_rod_piece) ||
- (second == brown_rod_piece)) {
- if (TRUEROD.number == 0) {
- TRUEROD.number = 1;
- move TRUEROD to parent(self);
- remove self; remove second;
- "There is a dazzling golden light as \
-you join the two rod pieces! What remains is a new, strange \
-rod piece!";
- }
- else "There is a dazzling burst of \
-golden light. However, the pieces will not join, and seem \
-to be seeking out something else...";
- }
- }
- else "Some strange purple flash of force \
-blocks your efforts.";
- ],
-;
-Object brown_rod_piece "brown rod piece" Mystical_Cave
- class rod_class,
- with name "brown",
- description "A strange short section of rod colored \
-brown.",
- before [;
- Join:
- if (location ~= Mystical_Cave) {
- if (second == TRUEROD)
- <<Join TRUEROD self>>;
- if ((second == silver_rod_piece) ||
- (second == red_rod_piece) ||
- (second == green_rod_piece)) {
- if (TRUEROD.number == 0) {
- TRUEROD.number = 1;
- move TRUEROD to parent(self);
- remove self; remove second;
- "There is a dazzling golden light as \
-you join the two rod pieces! What remains is a new, strange \
-rod piece!";
- }
- else "There is a dazzling burst of \
-golden light. However, the pieces will not join, and seem \
-to be seeking out something else...";
- }
- }
- else "Some strange purple flash of force \
-blocks your efforts.";
- ],
-;
-Object TRUEROD "golden rod"
- class rod_class,
- with name "golden",
- number 0,
- description [;
- print "A wondrous, shimmering golden rod";
- if (TRUEROD.number < 3)
- " that seems slightly short.";
- else ".";
- ],
- before [;
- Wave:
- if (TRUEROD.number == 3) {
- deadflag = 1;
-! TODO -- this is essentially another 'win', but not a good one
- "You wave the rod, and feel a sudden blast of force! \
-The spheres howl in terror and \
-suddenly explode! The jolt of power from the rod sends you \
-hurtling through space, and you are lost in an endless \
-tumble through the void...";
- }
- Join:
- if ((second == silver_rod_piece) ||
- (second == red_rod_piece) ||
- (second == green_rod_piece) ||
- (second == brown_rod_piece)) {
- remove second;
- TRUEROD.number = TRUEROD.number + 1;
- print "You feel a strange surge of \
-mystic energy as you join the rod pieces. ", (The) second, " \
-joins with the golden rod";
- if (TRUEROD.number == 3) {
- Achieved(19);
- print "!^^Time and space seem to grind to \
-a halt.^^\
-Your surroundings and the very ground you stand on shatter like \
-planes of glass, revealing a strange, new dimension...^";
- spell_block = 1;
- PlayerTo(ENDGAME_ROOM);
- StartTimer(ENDGAME_timer,12);
- rtrue;
- }
- else "!";
- }
- ],
-;
-
-! *** The results of winning the game ***
-[ GameWinner ;
- Achieved(26);
- print "The last sphere howls in rage and disappears!";
- deadflag = 2;
- " You scream in agony as the void that surrounds you \
-seems to implode! You feel yourself dissipating into the \
-surrounding nothingness. ~Is this my reward?~ you scream, \
-~Is this, then, the end?~^^\
-A white light makes you open your eyes.^^\
-You are lying on a beach. The Great Sea laps at your \
-tattered garments. Slowly, you rise to your knees.^^\
-The sun, like a bloated, radiant bird, is sinking below the \
-wave on the horizon. Another day is coming to an end.^^\
-A voice startles you. ~Tis a fine spot for watching \
-sunsets.~ You turn to see Morgan the Ranger, Frobar and \
-the Thief nearby. The Thief helps you to your feet, and Frobar \
-glances your way. ~I sensed a great upheaval in the \
-fabric of time and space not long ago. I gather you \
-have quite a story to tell,~ he says. ~We \
-probably can relate to much of what you have seen, \
-although your unwavering faith is something we \
-desire to understand.~ Morgan explains, ~Belief in the \
-face of the unbelievable is an enviable strength.~ \
-The Thief chuckles quietly. \
-~Perhaps you will join us at Delbins, where we will \
-partake in a belief of fine cuisine while you tell all?~ he says. \
-He notices your weary expression and \
-adds with surprising seriousness, ~Not that I \
-prepose to offer advice from one as myself, \
-but humbly, I admit, that many a time, a belief in myself \
-was often sufficient.~ He pauses. \
-~Gods or no, now, you make your own destiny.~";
-];
projects / spiritwrak.git / blobdiff