+++ /dev/null
-
-! **************************************************************
-! frostham.inf
-! ------------
-! Frostham locations in SPIRITWRAK, included in spirit.inf
-! (Do not compile and/or use separately!)
-! **************************************************************
-
-Object FROSTHAM_Outskirts "Frostham Outskirts"
- with description [;
- print "You are at the northern outskirts of Frostham. \
-The city proper is to the south. A few \
-snow covered residences are nearby. \
-A trail leads into a valley to the north";
- if (self hasnt general) {
- give self general;
- ".^^The last time you saw Frostham was before you \
-entered the Monastery -- many years ago at least. \
-Oddly, it seemed bigger and less desolate then.";
- }
- else ".";
- ],
- name "city" "snow" "residences" "trail" "valley",
- n_to Valley_trail,
- s_to FROSTHAM_2,
- cant_go "You walk around the local area a bit, finding \
- nothing of interest.",
- has light;
-
-Object FROSTHAM_2 "Frostham"
- with description "You are in Frostham City, the famous winter-\
-lover's haven. The once booming ski vacation spot seems \
-to be a bit more run-down than in times past. \
-The city thins out towards the north, while \
-another section of town is to the south. To the west is \
-a large wood structure. To the southwest is a small \
-building. To the southeast is another small building, possibly a \
-store.",
- name "wood" "structure" "building" "store",
- n_to FROSTHAM_Outskirts,
- w_to FROSTHAM_Resort,
- sw_to FROSTHAM_Governer1,
- s_to FROSTHAM_GUSStop,
- se_to FROSTHAM_Store,
- cant_go "You walk around the local streets a bit, finding \
- nothing of interest.",
- each_turn [ i ;
- if (GROC_hall1 has general)
- i = CheckHall();
-! Why check the grocery hallway here?
-! Conceptually, if the player dies in the hallway (rather
-! difficult, but possible by swearing, for example),
-! the hallway should 'adjust' itself to the new weight.
-! I simply check this here, because the player must go
-! this way to reach the hallway for a second time.
- ],
- has light;
-
-Object FROSTHAM_Store "General Store"
- with description [;
-print "This appears to be a small grocery store, \
-strangely abandoned at the moment. Shelves line the walls, \
-although, since no one is minding \
-the store, the current stock seems to be a bit depleted. \
-You notice an exit south marked ~EMPLOYEES ONLY~ that \
-appears to lead to ";
-if (GROC_hall1.number == 1)
-print "some hallway.";
-else
-print "a dark hole.";
-" The way back out is to the northwest.";
-],
- name "stock" "shelves",
- nw_to FROSTHAM_2,
- s_to [;
-if (GROC_hall1.number == 1) return GROC_hall1;
-else
- "You pull back before falling into what appears to be a deep \
-pit of some sort beyond the south exit.";
-],
- after [ i ;
- Go:
- if (noun == n_obj) {
- i = CheckHall();
- if (i == 1)
- print "You hear a grinding noise from behind \
-you.^";
- }
- ],
- has light;
-
-Class Barrel_class
- with name "crate",
- before [;
- Take, Pull, Turn: "It's rather heavy.";
- Push: "It's heavy, but you manage to make it slide \
-along the floor a bit.";
- PushDir:
-if (location == FROSTHAM_Store && second == nw_obj)
- "A portion of the door seal blocks the crate from going outside.";
-if (location == GROC_hall1 && second == s_obj) {
- print "^You give the crate a good shove.^";
- move self to GROC_hall2;
- <<Go s_obj>>;
-}
-if (location == GROC_hall1 && second == n_obj) {
- print "^You give the crate a good shove.^";
- move self to FROSTHAM_Store;
- <<Go n_obj>>;
-}
-if (location == GROC_hall2 && second == n_obj) {
- print "^You give the crate a good shove.^";
- move self to GROC_hall1;
- <<Go n_obj>>;
-}
-if (location == FROSTHAM_Store && second == s_obj && GROC_hall1.number == 1) {
- print "^You give the crate a good shove.^";
- move self to GROC_hall1;
- <<Go s_obj>>;
-}
-! (we do our own version to allow the CheckHall() to
-! work properly)
-AllowPushDir(); rtrue;
- ],
- has static;
-
-Object BARREL1 "dusty crate" FROSTHAM_Store
- class Barrel_class,
- with name "dusty",
- description "A dust-covered crate.",
-;
-Object BARREL2 "moldy crate" FROSTHAM_Store
- class Barrel_class,
- with name "moldy",
- description "A mold-covered crate.",
-;
-Object BARREL3 "filthy crate" FROSTHAM_Store
- class Barrel_class,
- with name "filthy",
- description "A filth-covered crate.",
-;
-
-Object GROC_hall1 "North end of Hallway"
- with name "end" "hallway",
- number 1,
- description [;
- print "You're at the north end of a short N-S hall. \
-The hallway";
- switch (GROC_hall1.number) {
- 1: print " slopes sharply upwards to the south. \
-You notice two dark doorways above you along the northern wall, \
-one above the other, \
-but no obvious means of getting to them";
- 2: print " travels evenly to the south. \
-You notice a dark doorway above you along the northern wall, \
-but no obvious means of getting to it";
- 3: print " slopes sharply downwards to the south";
- }
- ". To the north is an exit.";
-],
- each_turn [;
- if (self hasnt general) {
- give self general;
- "^The hallway suddenly creaks underfoot! The floor \
-shakes briefly and dust seems to rise from cracks near the \
-walls. Apparently, your unexpected presence has jarred \
-some old mechanisms back to life!";
- }
- ],
- n_to [;
-switch (GROC_hall1.number) {
- 1: return FROSTHAM_Store;
- 2: return GROC_stockroom;
- 3: return GROC_attic;
-}
- ],
- after [ i ;
- Go:
- if (noun == n_obj or s_obj) {
- i = CheckHall();
- if (i == 2)
-print "^You hear a low grinding noise. \
-The hallway underfoot suddenly shifts and drops!^";
- }
- ],
- s_to GROC_hall2,
- before [;
- Jump: "You jump for a bit. The floor feels strangely \
-unsteady.";
- ],
- has light;
-
-
-Object GROC_hall2 "South end of Hallway"
- with name "end" "hallway",
- number 3,
- description [;
- print "You're at the south end of a short N-S hall \
-that seems to lead nowhere. The hallway";
- switch (GROC_hall2.number) {
- 1: " slopes sharply upwards to the north.";
- 2: " travels evenly to the north.";
- 3: " slopes sharply downwards to the north.";
- }
- ],
- after [ i ;
- Go:
- if (noun == s_obj) {
- i = CheckHall();
- if (i == 1)
-print "^You hear a low grinding noise. \
-The hallway underfoot suddenly shifts and drops!^";
- }
- ],
- before [;
- Jump: "You jump for a bit. The floor feels strangely \
-unsteady.";
- ],
- n_to GROC_hall1,
- has light;
-
-! (Routine for checking 'weights' of two sides of hallway)
-! (assumes called from room's _after_ routine, thus all
-! barrels and players are in their after_turn places)
-! RETURNS: 0 if no change
-! 1 if NORTH END now higher than before
-! 2 if NORTH END now lower than before
-[ CheckHall
- i ! local total of weight points for north end
- j ! local total of weight points for south end
- k ! local -- orig setting of north end (.number)
- ;
- i = 0; j = 0;
- k = GROC_hall1.number;
- if (player in GROC_hall1)
- i = i + 2;
- if (player in GROC_hall2)
- j = j + 2;
- if (BARREL1 in GROC_hall1) i = i + 1;
- if (BARREL1 in GROC_hall2) j = j + 1;
- if (BARREL2 in GROC_hall1) i = i + 1;
- if (BARREL2 in GROC_hall2) j = j + 1;
- if (BARREL3 in GROC_hall1) i = i + 1;
- if (BARREL3 in GROC_hall2) j = j + 1;
- if (i == j) {
- GROC_hall1.number = 2;
- GROC_hall2.number = 2;
- }
- if (i > j) {
- GROC_hall1.number = 1;
- GROC_hall2.number = 3;
- }
- if (i < j) {
- GROC_hall1.number = 3;
- GROC_hall2.number = 1;
- }
- if (GROC_hall1.number == k)
- return 0;
- if (GROC_hall1.number > k)
- return 1;
- if (GROC_hall1.number < k)
- return 2;
-];
-
-
-Object GROC_stockroom "Stockroom"
- with description [;
-print "This is a tiny poorly lit room, that \
-is covered in dust. An exit south leads to a";
-if (GROC_hall1.number == 2) print " short hallway";
-else print " dark hole";
-if (GROC_attic has general)
- print ". Above, a hole has been exposed in the ceiling structure";
-".";
- ],
- name "dust",
- u_to [; if (GROC_attic hasnt general)
-"You can't go that way.";
- else return GROC_attic;
- ],
- s_to [;
-if (GROC_hall1.number == 2) return GROC_hall1;
-else
- "You pull back before falling into what appears to be a deep \
-pit of some sort beyond the south exit.";
- ],
- after [ i ;
- Go:
- if (noun == n_obj) {
- i = CheckHall();
- if (i == 2 or 1)
- print "You hear a low grinding noise behind you.^";
- }
- ],
- has light;
-
-Object GROC_attic "Attic"
- with description [;
-print "This is an exceptionally cramped attic, obviously \
-unused for some time. The floorboards are starting to crack.";
-if (self has general)
- print " One section of the floor is particularly poor, and has \
-a gaping hole leading downwards into darkness.";
-" An exit heads south.";
- ],
- name "sag" "crack" "hole",
- d_to [;
- if (GROC_attic hasnt general)
-"You can't go that way.";
- else return GROC_stockroom;
- ],
- s_to [;
-if (GROC_hall1.number == 3) return GROC_hall1;
-else
- "You pull back at the edge of the exit. The floor, it \
-appears, is too far below you!";
- ],
- after [ i ;
- Go:
- if (noun == n_obj) {
- i = CheckHall();
- if (i == 2)
- print "You hear a low grinding noise behind you.^";
- }
- ],
- has light;
-
-Object attic_floorboards "floorboards" GROC_attic
- with name "boards" "floorboards",
- description [;
-print "Some badly rotting floorboards";
-if (GROC_attic has general)
- " with a noticeable hole in one section.";
-else {
- if (self has general)
- " with a noticeable sag in one section.";
- else ".";
-}
- ],
- before [;
- Take: "They're nailed into the floor.";
- Push, Pull, Attack, Shake:
-if (self has general)
- "The floor shakes a bit, but nothing else happens.";
-else {
- move loose_board to GROC_stockroom;
- give self general;
- "The floor shakes under your abuse, and suddenly, a \
-portion in the middle sags considerably! But nothing else \
-happens.";
-}
- ],
- has scenery;
-
-Object loose_board "loose board"
- with name "loose" "board",
- initial "You notice a loose board, partially \
-broken, hanging from the ceiling structure.",
- description "A portion of the ceiling boards \
-has apparently broken loose.",
- before [;
- Pull, Attack, Shake:
-give GROC_attic general;
-remove self;
-"You give the board a good couple of yanks. The board \
-soon breaks off, taking a small portion of the ceiling \
-with it! After the dust settles, you notice the rather \
-poor remodeling job you've done to the ceiling.";
- ],
-has static;
-
-
-! (the coffee was moved to the cafe in Borphee)
-Object decaf_coffee_can "can of decaf coffee"
- with name "can" "coffee" "decaf",
- description "The can reads: ~Frobozz coffee crystals~^^\
- ~Rich, mountain-grown flavor.~^^DECAFFEINATED.",
- before [;
- Open:
- "You'd need a good can-opener for that.";
- ],
- size 15,
-;
-
-Object icebox_key "square key" GROC_attic
- with name "key" "square",
- size 5,
-;
-
-
-Object icebox "icebox" GROC_stockroom
- with name "icebox" "box",
- description "A rather old-looking icebox.",
- capacity 10,
- size 20,
- with_key icebox_key,
- when_closed "A dust-covered icebox stands closed against \
-the northern wall.",
- when_open [ x;
- print "The icebox is open. ";
- x = children(self);
- if (x == 0) "It is also empty.";
- print "Inside ";
- if (x == 1) print "is: "; else print "are: ^";
- x = FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + RECURSE_BIT;
- WriteListFrom (child(self), x, 1);
- rtrue;
- ],
- has static container openable lockable locked;
-
-Object cerealbox1 "blue cereal box" icebox
- with name "box" "blue" "Crunchies",
- description "A blue paper box with lettering that reads:^^\
- ~Grueslayer Crunchies!^^\
- (It's not just for adventurers anymore!)^^\
- [Free bonus scroll surprise inside!]~^^\
- Writing on the box reads ~50zm~.",
- size 10, capacity 5,
- before [;
- Receive:
- if (noun == cerealbox2 or cerealbox3) {
- "That doesn't quite fit.";
- }
- Cast:
- if (the_spell_was == zemdor_spell) {
- if (self hasnt general) {
- give self general;
- move cerealbox2 to parent(cerealbox1);
- move cerealbox3 to parent(cerealbox1);
- Achieved(1);
- "The box of cereal suddenly seems to dance with magic! \
- Before your very eyes, the box suddenly splits into \
- three boxes! The magic fades, but the boxes remain.";
- }
- else
- "The magic fights against the cereal box, but fails. \
- I guess you can only triplicate once.";
- }
- ],
- has container openable;
-
-Object cerealbox2 "navy-blue cereal box"
- with name "box" "navy-blue" "Sugarglobs",
- description "A navy-blue paper box with lettering that reads:^^\
- ~Frobozz Super Sugar Globs!^^\
- (Seventeen times the sugar of any other cereal!)^^\
- [Free bonus Frobozz toy inside!]~^^\
- Writing on the box reads ~50zm~.",
- !weight 10,
- size 10, capacity 5,
- before [;
- Receive:
- if (noun == cerealbox1 or cerealbox3) {
- "That doesn't quite fit.";
- }
- ],
- has container openable;
-
-Object cerealbox3 "royal-blue cereal box"
- with name "box" "royal-blue" "Dornflakes",
- description "A royal-blue paper box with lettering that reads:^^\
- ~Dornflakes^^\
- (Just like Grandma Dimwit used to make!)^^\
- [Free bonus Frobozz toy inside!]~^^\
- Writing on the box reads ~50zm~.",
- !weight 10,
- size 10, capacity 5,
- before [;
- Receive:
- if (noun == cerealbox1 or cerealbox2) {
- "That doesn't quite fit.";
- }
- ],
- has container openable;
-
-! A Breakfast cereal class -- what a concept
-Class cereal_class
- with name "cereal",
- description "A quantity of overly-sweetened breakfast cereal.",
- !weight 5,
- size 8,
- before [;
- Eat:
- remove self;
- "You consume the cereal. The sugar rush occurs five seconds \
- later and ends just as quickly.";
- ],
- has edible;
-
-Object cereal1 "crunchy cereal" cerealbox1
- class cereal_class
- with name "crunchy";
-Object cereal2 "sugary cereal" cerealbox2
- class cereal_class
- with name "sugary";
-Object cereal3 "flaky cereal" cerealbox3
- class cereal_class
- with name "flaky";
-
-Object baking_powder "packet of baking powder" icebox
- with name "powder" "baking" "packet",
- short_name "packet of baking powder",
- description "A single-use packet of baking powder from \
-~Port Foozle Bakers Guild~ products.",
- !weight 5,
- size 5,
- before [;
- Eat:
- remove self;
- "You eat the baking powder. Yuck.";
- ],
- has edible;
-
-Object butter "stick of butter" icebox
- with name "butter" "stick" "fat",
- description "A good-sized stick of butter.",
- !weight 5,
- size 5,
- before [;
- Eat:
- remove self;
- print "You eat the entire stick of butter.";
- if (random(20) < 15)
-" Your heart will no doubt thank you for that someday.";
- deadflag = 1;
- " The sudden \
-intake of concentrated fat is too much of a shock to your \
-system, and an important artery somewhere bursts.";
- ],
- has edible;
-
-Object FROSTHAM_Resort "Ski Resort"
- with description "You are inside a large ski resort. Perhaps \
- it's not ski-season, as the entire place is \
- basically empty. Frostham city lies to the \
- east.",
- name "resort" "city" "ski" "skis" "earmuff" "earmuffs",
- e_to FROSTHAM_2,
- out_to FROSTHAM_2,
- w_to "You don't have a lift-ticket. Also, you don't have \
- skis. Most importantly, however, the slopes look \
- pretty lousy.",
- has light;
-
-Object FROSTHAM_Governer1 "Governor's House, Waiting Room"
- with description "You are in a waiting room in the house of the Frostham \
- Governor. The carpet is surprisingly plush. \
- The walls have been painted a rather bland \
- peach-like color. The furnishings \
- are also colored peach, which complements the \
- walls without being too nouveau. The way out \
- is to the northeast.",
- name "carpet" "furnishings",
- ne_to FROSTHAM_2,
- out_to FROSTHAM_2,
- s_to Gov_door,
- after [;
- Go:
- if (noun==n_obj) {
- give Gov_door ~open locked;
- print "You hear the door slam and lock behind you.^";
- }
- ],
- has light;
-
-Object Gov_couch "couch" FROSTHAM_Governer1
- with name "couch" "peach",
- initial "A comfortable-looking peach-colored couch is here.",
- description "It looks pretty comfy, but the color wouldn't \
-have been your first choice.",
- before [;
- Search:
- if (self hasnt general) {
- give self general;
- move c1 to FROSTHAM_Governer1;
- "You rummage through the cushions and a coin falls out!";
- }
- "You find nothing of interest.";
- ],
- has static enterable supporter;
-
-Object travel_posters "travel brochure" FROSTHAM_Governer1
- with name "brochure" "travel",
- description "The brochure has pictures of various cheerful-looking \
- people in rather cheerful-looking places. \
- Bold lettering reads ~FEEL BETTER IN MIZNIA~, \
- ~IT'S ARAGAIN, AGAIN~, \
- and ~NEW BORPHEE, EVERYONE'S FAVORITE CITY~",
- size 10,
- ;
-
-Object c1 "coin" class coin_class;
-
-Object Gov_desk1 "desk" FROSTHAM_Governer1
- with name "desk" "waiting" "room",
- description "A fairly plain-looking desk",
- has scenery supporter;
-
-Object Gov_ledger "ledger" Gov_desk1
- with name "ledger",
- description [;
- if (receptionist in FROSTHAM_Governer1)
- "The receptionist seems to be using it at the moment.";
- "The ledger reads:^^\
- ~ -- New signed petition for presentation and coronation of \
-new King delivered to Aragain Magistrate, awaiting word of \
-event schedule.~^^That's all. I guess the governor hasn't been \
-very busy as of late.";
- ],
- !weight 20,
- size 15,
- before [;
- Take:
- if (receptionist in FROSTHAM_Governer1)
- "The receptionist gives you a rather menacing look.";
- ],
-;
-
-
-Object alarm_clock "alarm clock" Gov_desk1
- with name "clock" "alarm",
- description [;
-print "A small round desk-clock, with a set of bells \
-on the top, and a small pull-knob on the back. \
-Strangely, the clock seems to be stopped. Two hands, black and golden, \
-are sitting at ",alarm_clock.number," and ",
-alarm_clock_dial.number;
- " respectively.";
- ],
- article "an",
- number 9, ! setting of the clock hand
- time_left 0,
- time_out [ x ;
- alarm_clock.number = alarm_clock.number + 1;
- if (alarm_clock.number > 12) alarm_clock.number = 1;
- x = TestScope(alarm_clock,player);
- if (x==1) print "^The alarm clock suddenly makes an \
-awful grinding noise";
- if (alarm_clock.number == alarm_clock_dial.number) {
- ! alarm goes off
- if (x==1) print ", followed by a ear-splitting clang!^";
- ! certain events follow:
- ! if receptionist still in office and self in office,
- ! receptionist leaves (if player in office, he'll
- ! see this, or see it outside the office)
- if ((receptionist in FROSTHAM_Governer1) &&
- (((self in FROSTHAM_Governer1) || (self in Gov_desk1)) ||
- ((self in player) && (player in FROSTHAM_Governer1))) ) {
- remove receptionist; ! a long lunch hour, apparently...
- ! give alarm_clock general;
- Achieved(2);
- if (player in FROSTHAM_Governer1)
- "^The receptionist suddenly jumps from her \
-seat and rushes out of the room, screaming ~Lunchtime!~";
- if (player in FROSTHAM_2)
- "^You see a woman rush out of the building \
-to the southwest, and quickly vanish.";
- rtrue;
- }
- ! future: boutique in Miznia -- brings salesman to front
- if (((self in MIZNIA_Boutique) || (self in player)) &&
- (player in MIZNIA_Boutique)) {
- print "^From somewhere in the back of the \
-store, a tailor rushes out and";
- if (MIZNIA_Boutique hasnt general) {
- give MIZNIA_Boutique general;
- move fancy_scroll to player;
- Achieved(23);
-" sees you. ~We've got a rather \
-busy schedule,~ he explains, ~but let me see what I can do.~ \
-He gives you a somewhat unapproving look. ~The ascetic-monk \
-look is out, you know. Here.~ He pins a rolled paper object \
-to your clothes. ~The latest craze -- wearing magic scrolls. \
-Beats using them nowadays, I hear. Now, like I said, we're \
-very busy.~ He goes off to the back of the store.";
- }
- else
-" recognizes you. \
-~I've done all I can for you right now,~ he explains as \
-goes off to the back of the store.";
- }
- rtrue;
- }
- else if (x==1) "!";
- ],
- size 5,
- add_to_scope alarm_clock_dial alarm_clock_bells alarm_clock_hands,
- has transparent;
-
-Object alarm_clock_dial "knob"
- with name "pull" "knob",
- description "A small, pullable knob on the back of the clock.",
- number 12,
- before [;
- Push:
- print "The knob ";
- if (self has general) {
- give self ~general;
- "pushes in a short bit.";
- }
- else "is as far in as it can go.";
- Pull:
- print "The knob ";
- if (self hasnt general) {
- give self general;
- "pulls out a short bit.";
- }
- else "is as far out as it can go.";
- Turn:
- if (self hasnt general) {
- ! wind clock
- StartTimer(alarm_clock,1);
- "The knob turns -- barely. You \
-hear a small clicking noise as well.";
- }
- else {
- ! set alarm hand
- alarm_clock_dial.number = alarm_clock_dial.number + 1;
- if (alarm_clock_dial.number > 12)
- alarm_clock_dial.number = 1;
- print "The knob turns easily. You notice the \
-golden hand on the front sweep to ",alarm_clock_dial.number;
- ".";
- }
- ! if (alarm_clock hasnt general) {
- ! }
- ! "It doesn't turn anymore. I guess the receptionist \
- ! broke the clock (not that it was in good shape to \
- ! begin with).";
- ],
- has static;
-
-Object alarm_clock_hands "hands"
- with name "hand" "hands"
- has static;
-
-Object alarm_clock_bells "bells"
- with name "bell" "bells"
- has static;
-
-Object FROSTHAM_Governer2 "Governor's Office"
- with description "You are in a rather spacious office. The \
-carpeting is quite plush, and all the furnishings seem \
-excessively lavish.",
- name "carpeting" "furnishings",
- n_to Gov_door,
- has light;
-
-Object Gov_desk2 "desk" FROSTHAM_Governer2
- with name "desk" "office",
- description "A fairly impressive looking desk, made from \
- a massive lacquered piece of black oak wood.",
- before [;
- Cast:
- if (the_spell_was == egdelp_spell)
- "The desk is covered with a ugly waxy film. \
-The governor looks extremely annoyed and wipes the desk clean with \
-a stack of papers.";
- Push, Pull, Rub, Attack, Search:
- "~Do you mind?~ the governor says.";
- ],
- has scenery supporter;
-
-Object Gov_door "door"
- with name "door" "office",
- when_closed [;
- print "There's a closed door to the ";
- if (self in FROSTHAM_Governer1)
- "south.";
- else "north.";
- ],
- when_open [;
- print "There's an open door to the ";
- if (self in FROSTHAM_Governer1)
- "south.";
- else "north.";
- ],
- description "It's just a thick door.",
- door_dir [ ; if (location==FROSTHAM_Governer1) return s_to;
- return n_to;
- ],
- door_to [ ; if (location==FROSTHAM_Governer1)
- return FROSTHAM_Governer2;
- return FROSTHAM_Governer1;
- ],
- before [ ;
- Open:
- if ((location==FROSTHAM_Governer1) &&
- (receptionist in FROSTHAM_Governer1))
- "The receptionist puts a hand in your way and says, \
- ~The governor is currently busy.~";
- Close:
- if (location==FROSTHAM_Governer2)
- "~Close it on your way _out_~, the governor snarls.";
- ],
- found_in FROSTHAM_Governer1 FROSTHAM_Governer2,
- has static door openable lockable;
-
-Object FROSTHAM_GUSStop "Subway Entrance"
- with description "You're near the southern end of the city. \
- The rest of the city lies to the north. \
- There's also a rather conspicuous \
- stairway down here.",
- name "stairway",
- n_to FROSTHAM_2,
- u_to "You can't go that way.",
- d_to FROSTHAM_GUSStation,
- cant_go "You walk around the local streets a bit, finding \
- nothing of interest.",
- has light;
-
-
-! ******************************************************************
-! People/Creatures
-! ******************************************************************
-
-Object ski_instructor "ski instructor" FROSTHAM_Resort
- with name "instructor" "dude" "skier" "guy" "tall" "lanky",
- initial [;
- print "A tall lanky guy is here, holding two colorful \
-skis. He seems to be ";
- if (waxy_scroll in self)
- "waxing them with a scroll.";
- "concentrating greatly on waxing \
- his skis.";
- ],
- description "A tall lanky guy, like I said. He's \
- decked out in fancy bright winter clothes.",
- life [;
- Attack, ThrowAt:
- "~Dude, you must chill.~";
- Answer, Tell:
- if (special_word == 'hello' or 'hi')
- "The skier gives you the 'thumbs-up' sign. \
-~Hey, dude.~";
- else "~Uh, whatever, dude.~";
- Show:
- if (noun==rag)
- "~Hey dude, can I borrow that?~";
- "~Uh, whatever, dude.~";
- Order:
- if (action==##Give) {
- if (noun=='skis')
- "~No way, dude.~";
- if (((noun==waxy_scroll) && (self hasnt general)) ||
- ((noun==rag) && (self has general)))
- "~I'm using it, dude.~";
- }
- "~Dude, I have no idea what you're talking about.~";
- Ask:
- if (second=='rag')
- "~A rag makes an excellent ski-maintenance accessory, dude.~";
- if ((second=='scroll' or 'waxy') && (self hasnt general))
- "~Something I found at the top of a run. \
- Doesn't work too well, but hey, I gotta wax.~";
- if (second=='skis')
- "~My rad Grayslopes Slaloms. If you don't wax 'em \
- every 30 seconds, they lose their speed.~";
- if ((second=='slopes') || (second=='slope') ||
- (second=='powder') || (second=='runs') ||
- (second=='skiing'))
- "The skier takes you aside. ~Listen dude, \
- between you and me, the slopes here rot. They \
- used to be way better. But you know, I hear there \
- are some _killer_ drops up north.~";
- "~Dude, I have no idea what you're talking about.~";
- Give:
- if (noun==rag) {
- move waxy_scroll to FROSTHAM_Resort;
- move rag to self;
- give self general;
- Achieved(3);
- "The skier gladly takes the rag and starts \
- polishing immediately. He lets the scroll \
- fall to the ground. ~Excellent man, thanks!~";
- }
- "~No thanks, dude.~";
- default: "At the moment, the skier is too busy waxing.";
- ],
- each_turn [;
- if (waxy_scroll notin self && self hasnt general) {
- Achieved(3);
- remove self;
- "^~Dude, like, that scroll thing just \
-vanished! What a cosmic experience!~ On that note, \
-the skier opts to head for the slopes, and leaves to the west.";
- }
- if (random(20) < 5)
- "^The skier polishes a spot on his skis.";
- ],
- before [;
- Cast:
- if (the_spell_was == foblub_spell or espnis_spell)
- "A pair of fluffy earmuffs the skier is wearing \
-prevents him from hearing the full impact of your sermon.";
- ],
- has animate transparent;
-
-Object receptionist "receptionist" FROSTHAM_Governer1
- with name "receptionist",
- initial "A receptionist sits behind a desk, engrossed in \
- the ledger.",
- description "A gruff-looking lady who apparently is far \
- more interested in her work than you.",
- each_turn [;
- if (receptionist hasnt general) {
- give receptionist general;
- "^Without even looking up, the receptionist says, \
- ~The governor is busy right now.~";
- }
- if (random(10) == 1)
- "^The receptionist turns a page in the ledger.";
- ],
- life [;
- Answer, Order:
- print "The receptionist";
- if (special_word=='hello')
- ", without looking up, says \
- ~Can I help you?~.";
- " seems to be ignoring you.";
- Ask:
- print "The receptionist";
- if (second=='governor')
- ", without looking up, says \
- ~He's very busy right now.~.";
- " shrugs.";
- default:
- "The receptionist seems to be ignoring you.";
- ],
- react_before [;
- Cast:
-"The receptionist, in a rather shrill voice says, \
-~If you're gonna wait, do it quietly,~ disrupting your chant.";
- Blow:
-if (noun==whistle)
-"You make an unusually high-pitched noise. The receptionist, \
-in a rather shrill voice says, \
-~If you're gonna wait, do it quietly.~";
- Sneeze:
-"~If you want to spread germs, do it outside.~";
- Yell:
-"~If you're gonna wait, do it quietly.~";
- Sing:
-"~We're not holding auditions, you know.~";
- ],
- has animate female;
-
-Object governor "governor" FROSTHAM_Governer2
- with name "governor" "gov",
- initial "The governor of Frostham is sitting behind a \
- desk here, trying to look busy.",
- description "A sour-looking man who tries his best not \
- to notice you.",
- each_turn [ i ;
- if (governor hasnt general) {
- give governor general;
- move c2 to player;
- "^The governor scowls as you enter. ~What do you want?~ \
- he says, and doesn't wait for a response. ~Oh, I know. \
- More complaints about the snow, I suppose? Well \
- look, I didn't ask for this job. Do you want it? I \
- didn't think so.~ He shoves something into your hand. \
- ~Here, buy yourself a cup of coffee, and stop \
- bothering me.~";
- }
- i = random(4);
- print "^The governor ";
- if (i == 1)
- "thumbs through some papers.";
- if (i==2)
- "balances a pencil on his nose.";
- if (i==3)
- "scribbles something meaningless.";
- if (i==4)
- "looks up and notices you. ~Don't you \
- have anything else to do?~ he says.";
- ],
- life [;
- Ask:
- if (second=='key' or 'shiny') {
- print "~Some key an important visitor \
-forgot while visiting. Probably useless now";
- if (parent(cab_key) == player)
- print ". You can keep it, for all I care";
- ".~";
- }
- if (second=='receptionist')
- "~I think she's out to lunch,~ he says, \
-with obvious annoyance.";
- if (second=='magistrate' or 'king' or 'sydney')
- "He looks at you suspiciously. \
-~Never heard of him,~ he says.";
- if (second=='ledger')
- "~I think my receptionist has it.~";
- if (second=='pencil')
- "~Please! I'm a very busy man!~";
- "~Sorry, that's not my problem. Now run along.~";
- Kiss:
- "The governor brushes you off. ~Are you \
-planning on running for office or something?~";
- Attack, ThrowAt:
- deadflag = 1;
- "As you make a threatening move, the governor \
-presses some unseen switch behind his desk. Before you \
-know it, a hidden trapdoor opens in the floor and you \
-plunge to your death. A good politician is always \
-prepared, it seems...";
- Tell:
- "~Sure, sure. Scram, will you?~";
- Answer, Order:
- if (special_word=='hello')
- "~Yeah, sure. So what's your problem?~";
- "The governor is busy trying to look busy.";
- Give:
- "Bribing a politician, eh?";
- Show:
- if (noun==Gov_ledger)
- "~Hey, return that to the receptionist!~";
- "~Please! I'm a very busy man!~";
- ],
- react_after [;
- Take:
- if (noun == cab_key)
- "~Oh sure, just go ahead and take things \
-from my office. See if I care.~";
- ],
- before [;
- Cast:
- if (the_spell_was == foblub_spell)
- "Actually, the governor seems pretty glued to his \
-seat already. In any event, nothing seems to happen.";
- if (the_spell_was == espnis_spell)
- "The governor seems to nod off, but only for \
-a second.";
- ],
- has animate transparent;
-
-
-! ***************
-! More objects...
-! ***************
-
-Object pencil "pencil" governor
- with name "pencil";
-
-Object c2 "coin" class coin_class;
-
-! (cereal box prizes)
-Object whistle "whistle" cerealbox2
- with name "whistle",
- description "A tiny plastic whistle.",
- !weight 1,
- size 1,
- before [;
- Blow:
- "You make an unusually high-pitched noise.";
- ],
-;
-! (a fancier packaged prize :)
-Object plastic_wrapper "plastic wrapper" cerealbox3
- with name "wrapper" "plastic",
- description "A small plastic see-through package.",
- before [;
- Open:
- while (child(self)~=0) move child(self) to parent(self);
- remove plastic_wrapper;
- "The wrapper rips open with ease, and disintegrates, \
- leaving the contents behind.";
- ],
- !weight 0,
- size 5,
- has container openable transparent;
-
-Object toy_volcano "toy volcano" plastic_wrapper
- with name "toy" "volcano",
- description "A strange thing indeed -- a miniature \
- ceramic toy, that has been painted and shaped \
- in painstaking detail to look like a volcano.",
- !weight 5,
- size 5,
-;
-
-Object volcano_note "instruction notice" plastic_wrapper
- with name "notice" "instruction",
- article "an",
- description "~Frobozz Instant Volcano~^^\
- (parental supervision recommended)^^\
- To use: Just add a good quantity of water! We suggest \
- a very large safety radius.~",
- size 5,
-;
-
-
-
-! ******************
-! Scrolls and spells
-! ******************
-
-Object waxy_scroll "waxy scroll" ski_instructor
- class scroll_class,
- with name "waxy",
-;
-
-Object egdelp_spell "create waxy build-up on wood" waxy_scroll
- class spell_class,
- with name "egdelp",
- magic [;
- if (second ~= 0 && second ~= player) {
- CDefArt(second); " looks pretty polished as is."; }
- else { "The chant, seeking wood to polish, fails."; }
- ],
-;
-
-Object sugar_scroll "sugar-coated scroll" cerealbox1
- class scroll_class,
- with name "sugar-coated" "coated",
-;
-
-Object zemdor_spell "triplicate object" sugar_scroll
- class spell_class,
- with name "zemdor",
- number 0,
- magic [;
- if (second == 0)
- "The chant, seeking a locus for \
-triplication, fails.";
- if (second has animate)
- "The chant, not designed for living creatures, fails.";
- if (second has is_spell)
-"This violates certain unwritten laws of magic.";
- if (second has is_coin) {
- ! new twist for zemdor, as sugg. by player
- print "The coin shimmers suddenly! You blink in \
- disbelief as the coin seems to split \
- into three copies of itself! ";
- if (self hasnt general) {
- give self general;
- move c12 to parent(second);
- move c13 to parent(second);
- "You notice there are now three coins where \
-there was once but one!";
- }
- "Suddenly, a financial nymph appears! She gives \
-you a denunciatory look. ~Line 7234-6 of the Pierpont \
-tax laws clearly states that repeated unauthorized \
-triplication of monetary \
-items is strictly forbidden,~ she says, and takes the \
-the two newly created coins before disappearing.";
- }
- print (The) second, " shimmers suddenly! You blink in \
- disbelief as ", (the) second, " seems to split \
- into three copies of itself! ";
- "But, as you finish the chant, \
- the mystic energy seems to fade, and the copies \
- coalesce back into one unchanged object. The \
-chant fails.";
- ],
-;
-
-Object c12 "coin" class coin_class;
-Object c13 "coin" class coin_class;
-
projects / spiritwrak.git / blobdiff