--- /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