+++ /dev/null
-
-! **************************************************************
-! GURTH.INF -- Add-on for SPIRITWRAK
-! (all rights reserved, copyright 1996, D. Yu
-! **************************************************************
-
-! (author note to self -- Gurth currently isn't going to be too
-! exciting -- I'm running out of .z5 code space. The main
-! planned features are:
-! 1) The abandoned house with the oven for baking the cake
-! 2) A deep forest area somewhat north of the city where
-! a sphere piece will be hidden
-
-! The string array for labels on the GUE Oven dial (may be changed)
-Array OVEN_settings table [;
- "Warm Soup";
- "Hot Chocolate";
- "Pizza";
- "Cake";
- "Fish";
- "Roast Chicken";
- "Baked Potato";
- "Rib Roast";
- "Thermo-nuclear Flash";
-];
-
-Object GURTH_GUSStop "Gurth City Streets"
- with description "A foggy sky covers the ever-busy city of \
-Gurth. A road heads southeast into a larger \
-portion of the city, and stairs lead down here.",
- name "fog" "sky" "road" "stairs",
- d_to GURTH_GUSStation,
- se_to GURTH_NDistrict,
- has light;
-
-Object umbrella "umbrella" GURTH_GUSStop
- with name "umbrella",
- description [;
- if (self has open)
- print "An open";
- else print "A closed";
- " black-cloth umbrella.";
- ],
- !weight 25,
- size 16,
- article "an",
- before [;
- Open:
- if (parent(self) == player) {
- give self open;
- umbrella.size = 20;
- "You snap the umbrella open.";
- }
- else "You need to be holding the umbrella to do that.";
- Close:
- if (parent(self) == player) {
- give self ~open;
- umbrella.size = 16;
- "You snap the umbrella closed.";
- }
- else "You need to be holding the umbrella to do that.";
- ],
- has openable;
-
-Object GURTH_NDistrict "North District"
- with description "Probably the safest district in Gurth, the \
-North District is mostly cobblestone roads and barricaded \
-buildings. A main road heads south, or forks northwest and \
-northeast.",
- name "cobblestone" "buildings" "road",
- nw_to GURTH_GUSStop,
- s_to GURTH_MDistrict,
- ne_to GURTH_Forest,
- has light;
-
-Object GURTH_Forest "Forest Edge"
- with description "Dark forest meets dark city outskirts here. \
-The only exit is along an old path to the southwest -- \
-the forest is too thick for travel otherwise. \
-Rain falls periodically from a dark stormy sky.",
- name "forest" "path" "rain",
- sw_to GURTH_NDistrict,
- each_turn [;
- if (random(10) < 4) {
- "^A rumble of thunder booms overhead.";
- }
- ],
- before [;
- Listen:
- if (Treant in GURTH_Forest)
- "You hear muffled cries for help from \
-somewhere inside the log cabin!";
- ],
- has light;
-
-Object storm1 "storm" GURTH_Forest
- with name "storm" "clouds" "sky" "dark",
- description "It does look a bit stormy overhead.",
- before [;
- Cast:
- if (the_spell_was == shazok_spell) {
- print "A bolt of lightning rips down from the \
-clouds overhead as you finish your chant! It strikes ";
- if (Treant in GURTH_Forest) {
- print "the angry treant! \
-A portion of its top branches catch fire! Howling in pain, \
-the creature runs off into the woods and disappears!";
- SaveWoodsman();
- rtrue;
- }
- else {
- deadflag = 1;
- "you, frying you to a crisp!";
- }
- }
- ],
- has scenery;
-
-Object Treant "angry treant" GURTH_Forest
- with name "treant" "angry" "blighted",
- description "Treants are basically animated trees. They \
-are considered mythical creatures, usually solitary and quite \
-rare. This particular treant looks similar to a great elm tree. \
-You notice that it seems covered with spots of some sort of \
-blight.",
- article "an",
- each_turn [ i ;
- i = random(20);
- print "^The treant ";
- if (i > 10) {
- if (WOOD_House.number == 3) {
- WOOD_House.number = 4;
- remove self;
- "pounds the cabin, and it collapses into \
-splinters! The treant grabs a hapless woodsman from the \
-wreckage and stalks off into the forest with his victim!";
- }
- else {
- WOOD_House.number = WOOD_House.number + 1;
- "hammers on the house and you hear a \
-crack! The cabin sustains some damage!";
- }
- }
- else "angrily attacks the wood cabin, which shakes \
-with the continued blows.";
- ],
- before [;
- Cast:
- if (the_spell_was == egdelp_spell) {
- deadflag = 1;
- "The treant is covered with a waxy buildup, which \
-washes off in the rain. The treant, already \
-rather incensed, turns his attentions to you and mauls you \
-with two giant branches/arms.";
- }
- if (the_spell_was == throck_spell) {
- deadflag = 1;
- "The treant grows a bit bigger. His current bad \
-mood seems to increase proportionately! He turns his attentions \
-to you and pounds you with two huge branches/arms.";
- }
- if (the_spell_was == taclor_spell) {
- print "The treant seems to turn a shade of deep \
-green, and the patches of blight disappear! The ancient tree \
-creature pauses, regards you solemnly, and then walks \
-off into the forest.";
- SaveWoodsman();
- rtrue;
- }
- ],
- has animate;
-
-Object WOOD_House "log cabin" GURTH_Forest
- with name "cabin" "log" "house",
- description [;
- print "A small house built of logs";
- switch (self.number) {
- 0: print ".";
- 1: print ". It looks slightly damaged.";
- 2: print ". It looks partially damaged, the roof logs \
-are broken in several places.";
- 3: print ". It looks very damaged. One wall is \
-nearly broken through.";
- default: print " that has collapsed into little more \
-than a pile of broken logs.";
- }
- if (self has general)
- " You notice some area of wood have spots of wax \
-on them.";
- new_line;
- rtrue;
- ],
- before [;
- Enter:
- if (Treant in GURTH_Forest)
- "The angry treant seems to be in the way.";
- "It's just a tiny log cabin that probably \
-has nothing interesting inside.";
- Cast:
- if (the_spell_was == egdelp_spell) {
- give self general;
- "The outside of the cabin is now covered \
-with spots of waxy buildup.";
- }
- ],
- number 0,
- has static;
-
-[ SaveWoodsman ;
- remove Treant;
- move red_sphere to player;
- "^^Moments later, a woodsman appears from the battered log \
-cabin. ~Much thanks, sir,~ he says. ~Appears I mistook that \
-treant for a dead tree and tried to cut it down. Can't say \
-he took it too well.~ he says sheepishly. ~Say, you don't \
-look like you're from around these parts. Kinda like this \
-funny thing I found in the woods the other day.~ He hands \
-you a strange round object. ~Maybe you know what to do with \
-it?~ He hefts a small hatchet over his shoulder. ~Well, \
-back to do a little logging,~ he says, as he walks off into the \
-deep forest, whistling.";
-];
-
-Object GURTH_MDistrict "Market District"
- with description "The famous Gurth Market District is as noisy, \
-crowded, and dangerous as it ever was. A cobblestone road heads \
-north and south here.",
- name "cobblestone" "road",
- n_to GURTH_NDistrict,
- s_to GURTH_SDistrict,
- e_to "~Get out 'o me way!~ some rude fellow says as you \
-try to pass.",
- w_to "~No push'n, no shov'n!~ some old hag screams at you, \
-and promptly shoves you back.",
- each_turn [;
- if ((random(10) < 5) && (self hasnt general)) {
- give self general;
- move c7 to self;
- "^A clumsy hawker stumbles into you as he \
-crosses the street, hustling off without so much as an \
-apology. You notice he dropped something in his hurry.";
- }
- ],
- has light;
-
-Object c7 "coin" class coin_class;
-
-Object GURTH_SDistrict "South District"
- with description "The general gloomy atmosphere is more noticeable \
-than ever here, in the extremely dangerous South District. The \
-general area is filled with boarded-up houses, and a few shifty-eyed \
-characters are the only people milling about here. A road leads \
-north. To the east is an abandoned flat, probably in better shape \
-than the rest.",
- name "houses" "characters" "people" "road" "flat",
- n_to GURTH_MDistrict,
- s_to [;
- print "You wander down ";
- if (random(20) == 5) {
- deadflag = 1;
- "a back alleyway, and are immediately \
-assaulted by a group of vicious thugs, who batter you senseless.";
- }
- else "an alleyway, find a dead-end, and return \
-here.";
- ],
- w_to [;
- print "You wander down ";
- if (random(20) == 5) {
- deadflag = 1;
- "a sidestreet, and are immediately \
-assaulted by a group of vicious thugs. One of them seems to \
-recognize you. ~That's the Preacher-man who got Davey arrested! \
-Let's show 'em what we think'o that!~ They proceed to beat you senseless.";
- }
- else "a sidestreet, find a dead-end, and return \
-here.";
- ],
- e_to GURTH_House,
- has light;
-
-Object GURTH_House "Front of House"
- with description "You're standing at the rotting front steps of \
-a small flat. The front door to the east has been battered down and \
-you could probably walk right in, or return to the street to \
-the west.",
- name "street" "steps" "flat",
- w_to GURTH_SDistrict,
- e_to House_Ent,
- in_to House_Ent,
- has light;
-
-Object GURTH_House2 "Front of House"
- with description "You're standing near a small construction site. \
-A city street lies west, and a construction ditch is east.",
- name "street" "ditch",
- w_to [;
- deadflag = 1;
- "You step into the street, and several locals \
-give you strange looks. The surrounding neighborhood seems \
-new and busy -- various construction sites mark the \
-work of enterprising shop-keepers of the area.^^\
-~Watch out there!~ someone cries. A sudden \
-pile of bricks falls from a nearby scaffolding, and \
-crushes you.";
- ],
- e_to Construction_site,
- has light;
-
-
-Object bad_brick "dusty brick" GURTH_House2
- with name "brick" "dusty" "old",
- initial "An old discarded brick lies nearby.",
- description "An old brick, slightly cracked in several places.",
- size 15,
- time_left 0,
- time_out [;
- ! Construction Worker appears
- if ((good_brick in Construction_site) ||
- ((good_brick notin Construction_site) &&
- (bad_brick notin Construction_site))) {
- remove good_brick;
- foundation_wall.number = 1;
- }
- else {
- remove bad_brick;
- foundation_wall.number = 2;
- }
- if (location == Construction_site) {
- print "^From behind some scaffolding, a construction \
-worker appears. He walks to a part of the ditch and starts to \
-make some finishing touches on part of a low wall. \
-He finds a brick nearby and applies it to the wall with \
-a good patch of mortar.";
- if (foundation_wall.number == 1)
-" Brushing himself off, he walks off \
-and is soon out of sight.";
- else
-" He looks at the patch somewhat \
-unsatisfied, but shrugs, and walks off, soon out of sight.";
- }
- else
- "^You hear some brief noises from the east.";
- ],
-;
-
-Object Construction_site "Construction Site"
-with description "This is a long square ditch that is \
-likely to be the starting point for some building. It is \
-framed by wood slats and short brick walls. The only way \
-out is to the west.",
- name "ditch" "slats" "wood",
- w_to GURTH_House2,
- has light;
-
-Object good_brick "thick brick" Construction_site
- with name "brick" "thick",
- !weight 30,
- size 15,
- initial "A thick brick lies nearby.",
- description "A thick brick, solid as a rock.",
-;
-
-Object foundation_wall "portion of wall" Construction_site
- with name "wall" "foundation" "portion" "hole" "recess",
- initial "You notice a foundation side wall \
-in the ditch.",
- number 0,
- size 15,
- description [;
- switch (self.number) {
- 0: "It looks somewhat unfinished. Part of it \
-is open into a dark recess in the side of the ditch.";
- 1: "The wall is a finished work of brick and \
-mortar. It looks quite strong.";
- 2: "The wall is a finished work of brick and \
-mortar. You see a spot where the brickwork seems a bit \
-lower in quality.";
- }
- ],
- before [;
- Receive:
- if (self.number > 0)
- "The wall is currently sealed shut.";
- else {
- move noun to self;
- print "You put ", (the) noun, " into the ";
- "small hole in the wall.";
- }
- Search, LetGo:
- if (self.number > 0)
- "The wall is currently sealed shut.";
- Attack:
- if (self.number == 0) {
- deadflag = 1;
- "You kick at the wall. Unfortunately, it wasn't \
-all that stable, and the wall falls apart, burying you under a \
-pile of loose bricks.";
- }
- if (self.number == 1) {
- remove foundation;
- print "You try to break the wall, but only end up \
-hurting your hand. ";
- }
- else {
- give foundation general;
- print "You knock on the weak portion of the \
-wall, and produce a slight crack, that no doubt will \
-cause the homeowners some worry in the future. ";
- }
-! give GURTH_House ~general;
- while (child(player) ~= 0) remove child(player);
-! while (child(GURTH_House) ~= 0) remove child(GURTH_House);
-print "The wall seems to start to glow a purple color, and you \
-step back, to find your surroundings replaced by cold natural \
-cave walls.^";
- Mystical_Cave.number = Mystical_Cave.number + 1;
- PlayerTo(Mystical_Cave);
- rtrue;
- ],
- has static container open;
-
-Object House_Ent "Entrance Room"
- with description "A bare room, with peeling paint and rotting, \
-water-stained walls. There's a room to the east, and a rickety \
-stairway down. The outdoors lie west.",
- name "paint" "stairway" "outdoors",
- e_to House_Kitchen,
- d_to House_Basement,
- w_to GURTH_House,
- out_to GURTH_House,
- has light;
-
-Object House_Basement "Basement"
- with description "A musty, smelly basement. Stairs head up.",
- name "stairs",
- u_to House_Ent,
- before [;
- Smell: "It's smells musty down here, as though \
-the place has been unused for quite some time.";
- ],
-;
-
-Object House_switchbox "dusty metal box" House_Basement
- with name "dusty" "metal" "box",
- when_closed "There's a dusty metal box attached to the wall here.",
- when_open [ x;
- print "There's an open metal box attached to the wall here. ";
- x = children(self);
- if (x == 0) "It seems to be empty.";
- print "It contains:^";
- x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
- WriteListFrom (child(self), x, 1);
- rtrue;
- ],
- capacity 3,
- size 10,
- description "A dusty metal box, attached to the wall.",
- before [;
- Open, Push, Pull, Turn, Touch:
- if (GHOST in House_Basement)
- "Slowly, but quite deliberately, the zombie \
-prevents you from getting near the box.";
- ],
- has static container openable;
-
-
-Object wire "thin wire" House_switchbox
- with name "wire" "thin",
- ! initial "Inside the box is a loose wire.",
- description "A thin stiff string of metal.",
- !weight 2,
- size 1, ! must fit in subway gate slot...
- before [;
- Cast:
-if ((the_spell_was == huncho_spell or luncho_spell) &&
- (self hasnt general))
-"Your chant goes unanswered.";
- Take, Push, Pull, Touch, Rub, Squeeze:
- if (self hasnt general) {
- if (rubber_gloves has worn) {
- if (action==##Take) give self general;
- print "As you touch the wire, you notice a \
-bright spark! Good thing you were wearing rubber gloves! ";
- }
- else {
- print "As your fingers get near the wire, \
-a bright spark of electricity ";
- if (random(10) < 4) {
- deadflag = 1;
- move GHOST to House_Basement;
-"arcs into your hand! The results are quite shocking, I'm afraid.";
- }
- else
-"flashes near your fingers! You pull back just in time.";
- }
- }
- ],
-;
-
-Object foundation "foundation" House_Basement
- with name "foundation" "break" "hole",
- initial "A large break in the wall exposes a good portion of \
- the house's foundation.",
- description "Water damage, or simply age, has exposed a large \
- hole in one of the walls, through which you can see exposed \
- wood and brick, part of the foundation of the house.",
- before [;
- Receive:
- "No need to put things in the foundation like that.";
- Search:
- if (self hasnt general)
- "You briefly search the decaying foundation, but find nothing.";
- else {
- print "You dig around in a familiar spot in the hole ";
- give self ~general;
- if (children(foundation_wall) == 0)
- "but find nothing.";
- Achieved(17);
- while (child(foundation_wall) ~= 0)
- move child(foundation_wall) to House_Basement;
- "and find something!";
- }
- ],
- has static;
-
-Object House_Kitchen "Kitchen"
- with description "You're in the kitchen, by the looks of things. \
-Some broken cabinets are on the wall. Light from partially boarded-up \
-windows lets you see the rotting wood floors. Rooms lie to the \
-north and west.",
- name "cabinets" "windows" "wood",
- w_to House_Ent,
- n_to House_Pantry,
- has light;
-
-! (An oven, a typical inform object)
-Object OVEN "GUE-Automatic oven" House_Kitchen
- with name "oven" "GUE-Automatic",
- when_closed "Strangely untouched and undamaged, a GUE-Automatic oven is \
-sitting closed in a corner of the room.",
- capacity 1,
- when_open [ x;
- print "Strangely untouched and undamaged, a GUE-Automatic oven is \
-sitting open in a corner of the room.";
- x = children(self);
- if (x == 0) " It seems to be empty.";
- print " It contains:^";
- x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
- WriteListFrom (child(self), x, 1);
- rtrue;
- ],
- size 15,
- description "A FrobozzCo best-seller -- this small green oven is \
-perfect for those adventurers who want a home-cooked meal, but are short \
-on time and space. There's a dial and a button \
-on the top.",
- before
- [ x ;
- Open:
- if (self hasnt open) {
- give self open;
- print "You open the oven, ";
- x = children(self);
- if (x==0) "which is empty.";
- print "revealing:^";
- x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
- WriteListFrom (child(self), x, 1);
- rtrue; }
- ],
- add_to_scope oven_dial oven_button,
- has static container openable;
-
-Object oven_dial "oven dial"
- with name "dial",
- number 5,
- description [;
- print "A round dial with small printed words. A line on the \
-oventop marks which dial setting is currently active, which at the \
-moment is ~", (string) OVEN_settings-->(oven_dial.number); "~.";
- ],
- before [;
- Turn:
- oven_dial.number = oven_dial.number + 1;
- if (oven_dial.number > 9) oven_dial.number = 1;
- print "The line is now pointing to ~", (string) OVEN_settings-->(oven_dial.number);
- "~ on the dial.";
- SetTo:
- "The dial has somewhat unusual \
-settings. You'll need to turn to the one you want.";
- ],
- has static;
-
-Object oven_button "oven button"
- with name "button" "black",
- number 0,
- description "A small round black button on the top of the oven.",
- before [;
- Push:
- if (OVEN has open)
- "There is an irritated buzz.";
- else {
- print "You press the button and hear a low spinning noise. \
-Suddenly, the oven makes a ";
- if (oven_dial.number == 9) {
- ! Ye old nuclear flash setting
- if (children(OVEN) ~= 0)
- remove child(OVEN);
-"tremendous 'bang', and nearly springs off \
-the floor! A bright flash of light seems to originate from somewhere \
-inside the oven! Then, just as suddenly, everything is quiet again.";
- }
- ! check object in oven
- ! if obj exists, check for edible
- ! or cake, mutate appropriately.
- if (children(OVEN) ~= 0) {
- if ((Baking_Pan in oven) && (cake in Baking_Pan)) {
- ! we're no doubt cooking the cake again.
- ! as a nice feature of the GUE auto, if the cake
- ! was undone, and the oven setting == 4, give
- ! the cake the 'done' result
- if ((cake.number == 1) && (oven_dial.number == 4))
- cake.number = 0;
- ! otherwise, nothing changes
- }
- if ((Baking_Pan in oven) && (dough in Baking_Pan)) {
- ! first, check oven setting (too cold or too hot)
- ! if setting ok, check number of times folded
- ! (too few, too many). Move 'cake' to pan, make
- ! dough child of cake, and set the 'result' number
- ! of cake accordingly (0, ok, 1 underdone, 2
- ! overdone, 3 underfolded, 4 overfolded)
- ! (assumption is that dough will be only thing
- ! in pan [add's are trapped by dough]
- move dough to cake; ! Zen cooking...
- move cake to Baking_Pan;
- if (oven_dial.number == 4) {
- if (dough.number < 83)
- cake.number = 3;
- if (dough.number > 83)
- cake.number = 4;
- else cake.number = 0; ! well done baker
- }
- else {
- if (oven_dial.number < 4)
- cake.number = 1;
- if (oven_dial.number > 4)
- cake.number = 2;
- }
- }
- }
-"a loud 'pop' and nearly springs off \
-the floor! Then, just as suddenly, everything is quiet again.";
- }
- ],
- has static;
-
-Object House_Pantry "Pantry"
- with description "This was once probably a pantry of some \
-sort. It's now a bare closet-sized room. The exit is south.",
- s_to House_Kitchen,
- has light;
-
-Object Baking_Pan "baking pan" House_Pantry
- with name "pan" "baking",
- description "It's a nice round flat-bottomed ceramic pan.",
- capacity 20,
- !weight 10,
- size 14,
- before
- [ i ;
- Mix:
- if (children(Baking_Pan) == 0)
- "There doesn't seem to be anything in the pan to mix.";
- else {
- if (cake in Baking_Pan)
- "You can't mix anything with the already baked cake in the pan.";
- ! if the dough is already in the pan, add the
- ! 'new children', if any
- if (dough in Baking_Pan) {
- i = 0;
- move dough to OVEN; ! Temp
- while (child(Baking_Pan) ~= 0) {
- i = i + 1;
- move child(Baking_Pan) to dough;
- }
- move dough to Baking_Pan;
- if (i == 0)
- "You need to add something to the pan if you \
-want to mix something new into the dough.";
- "You mix in the new ingredients into the dough.";
- }
- ! Minimally, if the flour, butter and egg are in the
- ! pan, 'dough' will be produced
- if ((flour notin Baking_Pan) ||
- (corbie_egg notin Baking_Pan) ||
- (butter notin Baking_Pan))
- "You mix the contents of the pan around a bit, but \
-some things don't quite coagulate, and the contents remain unmixed.";
- else {
- while (child(Baking_Pan) ~= 0) {
- move child(Baking_Pan) to dough;
- }
- move dough to Baking_Pan;
- "You start mixing. Like magic, in short time you \
-have a doughy mixture in the pan.";
- }
- }
- LetGo:
- if (noun == dough or cake) {
- CDefArt(noun); " is stuck fast in the pan and \
- you can't get it out.";
- }
- else {
- ! we've modified certain ingredient objs that we want \
- ! to 'preserve' in the pan.
- if ((noun == flour) || (noun == sugar_cube) ||
- (noun == baking_powder) || (noun == butter) ||
- (noun == corbie_egg) || (noun==dornberries))
- "It's somewhat scattered about in the pan right \
-now, and you can't quite remove it cleanly.";
- }
- Receive:
- if (cake in self)
- "The cake takes up the entire space in the pan.";
- ! -- trap and nicely parse putting
- ! ingredients in pan, will require modifying
- ! 'short_name's of various ingredients.
- if (noun == flour) {
- flour.short_name = "pile of flour";
- move flour to Baking_Pan;
- flour.description = "A heap of white flour.";
- "You break open the bag and add the flour to the pan.";
- }
- if (noun == sugar_cube) {
- sugar_cube.short_name = "quantity of sugar";
- move sugar_cube to Baking_Pan;
- sugar_cube.description = "Some sugar scattered about.";
- "You crumble the sugar cube into the pan.";
- }
- if (noun == baking_powder) {
- baking_powder.short_name = "small sprinkling of baking powder";
- move baking_powder to Baking_Pan;
- baking_powder.description = "A small pile of very fine white powder.";
- "You open the packet and add the powder to the pan.";
- }
- if (noun == corbie_egg) {
- corbie_egg.short_name = "bit of raw egg";
- move corbie_egg to Baking_Pan;
- corbie_egg.description = "The yolk and the white parts from an egg.";
- "You crack the egg and drop the gooey contents into the \
- pan, discarding the shell.";
- }
- ],
- has container open;
-
-Object pan_sticker "sticker" Baking_Pan
- with name "sticker",
- initial "There's a sticker stuck to the bottom of the pan.",
- description "\
-Frobozz Magic Baking Pan^^\
-HELLO, BAKER!^^\
-To mix ingredients placed in pan, simply say 'MIX PAN'. \
-Baked goods should be removed with a Frobozz Magic \
-Spatula.",
- !weight 1,
- size 5,
-;
-
-Object dough "lump of dough"
- with name "dough",
- number 0, ! equals the number of times folded
- !weight 10,
- size 14,
- description "It looks like a nice beige lump of uncooked dough.",
- before [;
- Eat, Taste:
- if (action==##Eat) remove self;
- "Ugg. Raw dough.";
- Cast:
- if (the_spell_was == gloth_spell) {
- dough.number = dough.number + 83;
- if (dough.number > 500) dough.number = 500;
- "As you speak the chant, the dough seems to \
-twinkle! With a sudden puff of flour, the dough spins and \
-neatly kneads itself many times!";
- }
- Fold:
- dough.number = dough.number + 1;
- print "You roll up your sleeves and start kneading. \
-The dough ";
- if (dough.number > 500) dough.number = 500;
- if (dough.number < 50)
- "folds easily.";
- if (dough.number > 200)
- "has the consistency of a soft rock.";
- "is pliable.";
- ],
- has edible;
-
-Object cake "cake"
- with name "cake",
- number 0,
-! number = condition:
-! 0 ok, 1 undercooked, 2 overck, 3 underfld, 4 overfld
- description [;
- print "It's a ";
- switch (cake.number) {
- 1: "somewhat raw-looking cake.";
- 2: "nice-looking cake, except that it \
-looks a little burned.";
- default: "nice-looking cake.";
- ! The player will have to taste the cake to check the
- ! 'fold quality'.
- }
- ],
- before [;
- Eat:
- remove self;
- "Not bad. Unfortunately, it looks like you can't have \
-your cake and eat it too.";
- Taste:
- print "You taste a tiny bit of the cake. ";
- switch (cake.number) {
- 1: "It tastes a bit underdone.";
- 2: "It tastes a little burned.";
- 3: "It's a little too soft.";
- 4: "It's a bit tough.";
- default: "It tastes great!";
- }
- ],
- !weight 10,
- size 14,
- has edible;
-
-
-
-! ***************
-! animated beings
-! ***************
-
-Object GHOST "frightening zombie" House_Basement
- with name "zombie" "frightening",
- description "A frightening gaunt member of the \
-living dead, with pale skin, and even paler eyes.",
- before [;
- Cast:
- if (the_spell_was == wigro_spell) {
- remove self;
- "The zombie crumbles into dust, turned.";
- }
- ],
- life [;
- ThrowAt:
- if (noun==holywater) {
- remove holywater; remove self;
- "The vial breaks into shards, scattering \
-holy water all over the zombie. The zombie shrieks, and \
-crumbles into dust.";
- }
- Attack: "Your attack knocks it back, but it \
-seems completely unharmed, somehow!";
- Give:
-if (noun==rubber_gloves) {
- move wire to House_Basement;
- move rubber_gloves to House_Basement;
- give rubber_gloves ~worn;
- give wire general;
- give House_switchbox open;
- remove self;
- "The zombie seems to regard the gloves, and slowly puts \
-them on. It proceeds to open the metal box and remove a \
-loose wire, producing a few sparks in the process. Finally, \
-it places the loose wire on the floor, satisfied. It \
-slowly crumbles into dust, but you just manage to hear, \
-~Thanks, I've been trying to get rid of that wire for ages,~ \
-in the faintest of whispers.";
-}
- default: "Zombies are usually not very responsive to \
-those among the living. This one is no exception.";
- ],
- has animate;
-
-! ***************
-! spells/scrolls
-! ***************
-
-Object gray_scroll "gray scroll" House_Basement
- class scroll_class,
- with name "gray",
-;
-
-Object tossio_spell "turn granite to pasta" gray_scroll
- class spell_class,
- with name "tossio",
- magic [;
- if ((location == THIEF_Storeroom) &&
- (second == w_obj) && (THIEF_Storeroom hasnt general)) {
- give THIEF_Storeroom general;
- move pasta to THIEF_Storeroom;
- move c50 to THIEF_Storeroom;
- "As you finish the chant, the granite wall is replaced \
-by a large mass of pasta. A hidden section of the room is revealed, \
-along with the mass of gold coins it was holding! The coins spill \
-out, and nearly flood the room.^^In a flash, a large group of \
-financial nymphs appear on the scene. ~It looks like we found the \
-missing GUS earnings,~ one nymph says to another. Producing large \
-sacks, they quickly collect the mass of coins and disappear with a \
-twinkle.^^Moments later, a single coin falls out of a crack in the \
-previously hidden alcove, rolling to a stop near your feet.";
- }
- "Your chant goes unanswered. I guess you need pure granite.";
- ],
-;
-
-! ***************
-! misc items
-! ***************
-
-Object red_sphere "red sphere"
- class sphere_class
- with name "red",
- description "A tiny perfect red sphere, made of some strange \
- unknown metal.",
-;
projects / spiritwrak.git / blobdiff