--- /dev/null
+
+! ******************************************************************
+! subway.inf
+! ----------
+! Add-on file for SPIRITWRAK
+! -- Contains Great Underground Subway system (trains and tunnels
+! and various denizens)
+! ******************************************************************
+
+! First, some globals (sigh)
+! Two for each train line -- one indicates 'direction' of train,
+! the second indicates the current 'location' of train.
+global PURPLELINE_dir = 0; ! 0 North, 1 South
+global PURPLELINE_loc = 1; ! 1-10, frostham to fublio
+global ORANGELINE_dir = 0; ! 0 West, 1 East
+global ORANGELINE_loc = 1; ! 1-10, Aragain to Gurth
+global GREENLINE_dir = 0; ! 0 North, 1 South
+global GREENLINE_loc = 1; ! 1-10, New Borphee to Miznia
+
+! (Subway stops in each city are named as part of the city in
+! caps, concat'd with "_GUSStation". All are (of course)
+! underground.
+
+Object FROSTHAM_GUSStation "Frostham GUS Station"
+ with description [;
+ print "You are standing ";
+ if (self hasnt general) {
+ give self general;
+ "in a dimly lit underground \
+ chamber. There seems \
+ to be a much larger room to the southeast, which is \
+ unfortunately almost completely blocked by a long metal \
+ barricade and gate. Stairs lead up to the outside.";
+ }
+ "at the entrance to the Frostham \
+ Great Underground Subway (GUS) station. The train \
+ platform lies past the gate to the southeast, or \
+ stairs lead up into the city.";
+ ],
+ name "stairs" "platform",
+ u_to FROSTHAM_GUSStop,
+ se_to FG_Gate,
+ before [;
+ Go:
+ if (noun==se_obj) {
+ if (FG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give FG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+
+Object ARAGAIN_GUSStation "Aragain GUS Station"
+ with description "You are standing at the entrance to the Aragain \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the southeast, or \
+stairs lead up into the city. Some lettering on the \
+wall reads ~TRANSFER STATION~.",
+ name "stairs" "platform",
+ u_to ARAGAIN_GUSStop,
+ se_to AG_Gate,
+ before [;
+ Go:
+ if (noun==se_obj) {
+ if (AG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give AG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+Object FUBLIO_GUSStation "Fublio Valley GUS Station"
+ with description "You are standing at the entrance to the \
+South Fublio Valley \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the southeast, or \
+stairs lead up into the city.",
+ name "stairs" "platform",
+ u_to FUBLIO_GUSStop,
+ se_to FublioG_Gate,
+ before [;
+ Go:
+ if (noun==se_obj) {
+ if (FublioG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give FublioG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+! (Orange stations - one)
+Object ANTHAR_GUSStation "Greater Anthar GUS Station"
+ with description "You are standing at the entrance to the Greater Anthar \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the south, or \
+stairs lead up into the city.",
+ name "stairs" "platform",
+ u_to ANTHAR_GUSStop,
+ s_to AntharG_Gate,
+ before [;
+ Go:
+ if (noun==s_obj) {
+ if (AntharG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give AntharG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+! (Green stations - three)
+Object GURTH_GUSStation "Gurth City GUS Station"
+ with description "You are standing at the entrance to the Gurth City \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the southwest, or \
+stairs lead up into the city. Some lettering on the \
+wall reads ~TRANSFER STATION~.",
+ name "stairs" "platform",
+ u_to GURTH_GUSStop,
+ sw_to GurthG_Gate,
+ before [;
+ Go:
+ if (noun==u_obj)
+ print "You are greeted by a light rain as you leave the \
+station.^";
+ if (noun==sw_obj) {
+ if (GurthG_Gate hasnt general) ! note diff
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give GurthG_Gate ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+Object BORPHEE_GUSStation "New Borphee GUS Station"
+ with description "You are standing at the entrance to the New Borphee \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the southwest, or \
+stairs lead up into the city.",
+ name "stairs" "platform",
+ u_to BORPHEE_GUSStop,
+ sw_to BorpheeG_Gate,
+ before [;
+ Go:
+ if (noun==u_obj)
+ print "You enter the city and are nearly \
+ flattened by crowds rushing past.^";
+ if (noun==sw_obj) {
+ if (BorpheeG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give BorpheeG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+Object MIZNIA_GUSStation "Miznia GUS Station"
+ with description "You are standing at the entrance to the Miznia \
+Great Underground Subway (GUS) station. The train \
+platform lies past the gate to the southwest, or \
+stairs lead up into the city.",
+ name "stairs" "platform",
+ u_to MIZNIA_GUSStop,
+ sw_to MizniaG_Gate,
+ before [;
+ Go:
+ if (noun==sw_obj) {
+ if (MizniaG_Gate_slot hasnt general)
+ "A strange buzzing noise sounds as you try \
+ to pass through the gate, and an invisible \
+ force blocks your way!";
+ else {
+ give MizniaG_Gate_slot ~general;
+ print "You saunter through the apparently open gate.^";
+ }
+ }
+ ],
+ has light;
+
+Object FROSTHAM_GUSPlatform "Frostham Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The east side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run south into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~FROSTHAM STATION~. \
+ A short walkway leads northwest, to a metal fence";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the east.";
+ else ".";
+ ],
+ name "tunnel",
+ nw_to FG_Gate,
+ s_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ e_to PURPLELINE_car,
+ in_to PURPLELINE_car,
+ before [;
+ Go:
+! if (noun == nw_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == e_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 2 or 3) {
+ give self general;
+ PURPLELINE_loc = 1;
+ PURPLELINE_dir = 1; ! will be heading south
+ "^Suddenly, from the south, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the south.";
+ }
+ else {
+ if (self has general) {
+ if (PURPLELINE_loc == 2) {
+ give self ~general;
+ "^The train doors close, and the train rolls off \
+ to the south.";
+ }
+ else {
+ PURPLELINE_loc = 2;
+ "^A few exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+
+! (Classes for gates and slots)
+Class GUS_Gate_Class
+ with name "gate" "metal",
+ initial "A metal gate bisects the fence.",
+ door_dir nw_to,
+ door_to FROSTHAM_GUSPlatform,
+ before [;
+ Climb, JumpOver: "A subway worker yells ~Hey pal, no fare-jumpers!";
+ Open: "It looks like it's already open.";
+ Close: "There doesn't seem to be anything to close.";
+ Enter: "You'll have to walk in the appropriate direction to go through it.";
+ ],
+ description "It's an odd metal gate that only comes up to about \
+your waist. Odder still is the fact that there's \
+no door on the gate, just two metal sides",
+ has static door transparent open;
+Class GUS_Gate_Slot_Class
+ with name "slot" "metal" "thin" "small",
+ description "You see a rather small, thin slot that seems to be \
+almost cut into one of the metal sides of the gate.",
+ before [;
+ LetGo: "There's no way to get anything out of that tiny, \
+thin slot.";
+ Receive:
+ if (noun has is_coin) {
+ give self general;
+ remove noun; ! collection
+ "The coin slides into the slot with a satisfying thunk.";
+ }
+ "It doesn't look like that's going to fit into the slot.";
+ ],
+ size 1,
+ has scenery container open;
+
+
+Object FG_Gate "platform gate"
+ class GUS_Gate_Class,
+ with initial [;
+ if (location==FROSTHAM_GUSStation)
+ "A metal gate bisects the fence to the southeast.";
+ "A metal gate bisects the fence to the northwest.";
+ ],
+ door_dir [;
+ if (location==FROSTHAM_GUSStation)
+ return se_to;
+ return nw_to;
+ ],
+ door_to [;
+ if (location==FROSTHAM_GUSStation)
+ return FROSTHAM_GUSPlatform;
+ return FROSTHAM_GUSStation;
+ ],
+ before [;
+ Enter:
+ if (location==FROSTHAM_GUSStation) <<Go se_obj>>;
+ else <<Go nw_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == FROSTHAM_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in FROSTHAM_GUSStation FROSTHAM_GUSPlatform,
+;
+
+
+
+Object FG_Gate_slot "metal slot" FG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == FROSTHAM_GUSPlatform)
+ "You can't see any such thing.";
+ if (location == FROSTHAM_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+almost cut into one of the metal sides of the gate.";
+ ],
+ before [;
+ if (location == FROSTHAM_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+
+Object AG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==ARAGAIN_GUSStation)
+ "A metal gate bisects the fence to the southeast.";
+ "A metal gate bisects the fence to the northwest.";
+ ],
+ door_dir [;
+ if (location==ARAGAIN_GUSStation)
+ return se_to;
+ return nw_to;
+ ],
+ door_to [;
+ if (location==ARAGAIN_GUSStation)
+ return ARAGAIN_GUSPlatform;
+ return ARAGAIN_GUSStation;
+ ],
+ before [;
+ Enter:
+ if (location==FROSTHAM_GUSStation) <<Go se_obj>>;
+ else <<Go nw_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == ARAGAIN_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in ARAGAIN_GUSStation ARAGAIN_GUSPlatform,
+;
+
+Object AG_Gate_slot "metal slot" AG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == ARAGAIN_GUSPlatform)
+ "You can't see any such thing.";
+ if (location == ARAGAIN_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+almost cut into one of the metal sides of the gate.";
+ ],
+ before [;
+ if (location == ARAGAIN_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+
+Object FublioG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==FUBLIO_GUSStation)
+ "A metal gate bisects the fence to the southeast.";
+ "A metal gate bisects the fence to the northwest.";
+ ],
+ door_dir [;
+ if (location==FUBLIO_GUSStation)
+ return se_to;
+ return nw_to;
+ ],
+ door_to [;
+ if (location==FUBLIO_GUSStation)
+ return FUBLIO_GUSPlatform;
+ return FUBLIO_GUSStation;
+ ],
+ before [;
+ Enter:
+ if (location==FUBLIO_GUSStation) <<Go se_obj>>;
+ else <<Go nw_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == FUBLIO_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in FUBLIO_GUSStation FUBLIO_GUSPlatform,
+;
+
+Object FublioG_Gate_slot "metal slot" FublioG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == FUBLIO_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+ almost cut into one of the metal sides of the gate.";
+!! See if this works instead...
+ "You can't see any such thing.";
+ ],
+ before [;
+ if (location == FUBLIO_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+! (Orange gates (1))
+Object AntharG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==ANTHAR_GUSStation)
+ "A metal gate bisects the fence to the south.";
+ "A metal gate bisects the fence to the north.";
+ ],
+ door_dir [;
+ if (location==ANTHAR_GUSStation)
+ return s_to;
+ return n_to;
+ ],
+ door_to [;
+ if (location==ANTHAR_GUSStation)
+ return ANTHAR_GUSPlatform;
+ return ANTHAR_GUSStation;
+ ],
+ before [;
+ Enter:
+ if (location==ANTHAR_GUSStation) <<Go s_obj>>;
+ else <<Go n_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == ANTHAR_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in ANTHAR_GUSStation ANTHAR_GUSPlatform,
+;
+
+Object AntharG_Gate_slot "metal slot" AntharG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == ANTHAR_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+ almost cut into one of the metal sides of the gate.";
+ "You can't see any such thing.";
+ ],
+ before [;
+ if (location == ANTHAR_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+
+! (Green gates (3))
+Object BorpheeG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==BORPHEE_GUSStation)
+ "A metal gate bisects the fence to the southwest.";
+ "A metal gate bisects the fence to the northeast.";
+ ],
+ door_dir [;
+ if (location==BORPHEE_GUSStation)
+ return sw_to;
+ return ne_to;
+ ],
+ door_to [;
+ if (location==BORPHEE_GUSStation)
+ return BORPHEE_GUSPlatform;
+ return BORPHEE_GUSStation;
+ ],
+ before [;
+ Enter:
+ if (location == BORPHEE_GUSStation) <<Go sw_obj>>;
+ else <<Go ne_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == BORPHEE_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in BORPHEE_GUSStation BORPHEE_GUSPlatform,
+;
+
+Object BorpheeG_Gate_slot "metal slot" BorpheeG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == BORPHEE_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+ almost cut into one of the metal sides of the gate.";
+ "You can't see any such thing.";
+ ],
+ before [;
+ if (location == BORPHEE_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+! (NOTE: Gurth is different, read: broken)
+Object GurthG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==GURTH_GUSStation)
+ "A metal gate bisects the fence to the southwest.";
+ "A metal gate bisects the fence to the northeast.";
+ ],
+ door_dir [;
+ if (location==GURTH_GUSStation)
+ return sw_to;
+ return ne_to;
+ ],
+ door_to [;
+ if (location==GURTH_GUSStation)
+ return GURTH_GUSPlatform;
+ return GURTH_GUSStation;
+ ],
+ before [;
+ Enter: if (location == GURTH_GUSStation) <<Go sw_obj>>;
+ else <<Go ne_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == GURTH_GUSStation)
+ ". There's a thin slot on one of the sides that looks \
+ slightly dented.";
+ else ".";
+ ],
+ found_in GURTH_GUSStation GURTH_GUSPlatform,
+;
+
+Object GurthG_Gate_slot "metal slot" GurthG_Gate
+ class GUS_Gate_Slot_Class
+ with name "dented",
+ description [;
+ if (location == GURTH_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+ almost cut into one of the metal sides of the gate. \
+ It looks slightly dented.";
+ "You can't see any such thing.";
+ ],
+ before [;
+ if (location == GURTH_GUSPlatform)
+ "You can't see any such thing.";
+ Receive:
+ if (noun has is_coin) {
+ give self general;
+ remove noun;
+ "The coin slides into the slot, but you hear a strange click \
+ almost immediately.^^\
+ A subway nymph suddenly appears. She looks at the gate \
+ disapprovingly. ~Broken again? I thought they \
+ just fixed it. Well, fine.~ She seems rather annoyed. \
+ ~We'll get someone to look at it, eventually. Bye!~ She \
+ disappears.";
+ }
+ if (noun==wire) {
+ if (self hasnt general)
+ "You poke the wire in the slot for a bit, but nothing \
+ happens.";
+ if (self has general) {
+ give self ~general;
+ Achieved(20);
+ give GurthG_Gate general;
+ "You poke around in the slot, and manage to free something! \
+ There is a solid thunk-like noise.";
+ }
+ }
+ "It doesn't look like that's going to fit into the slot.";
+ ],
+;
+
+Object MizniaG_Gate "platform gate"
+ class GUS_Gate_Class
+ with initial [;
+ if (location==MIZNIA_GUSStation)
+ "A metal gate bisects the fence to the southwest.";
+ "A metal gate bisects the fence to the northeast.";
+ ],
+ door_dir [;
+ if (location==MIZNIA_GUSStation)
+ return sw_to;
+ return ne_to;
+ ],
+ door_to [;
+ if (location==MIZNIA_GUSStation)
+ return MIZNIA_GUSPlatform;
+ return MIZNIA_GUSStation;
+ ],
+ before [;
+ Enter: if (location==MIZNIA_GUSStation) <<Go sw_obj>>;
+ else <<Go ne_obj>>;
+ ],
+ description [;
+ print "It's an odd metal gate that only comes up to about \
+ your waist. Odder still is the fact that there's \
+ no door on the gate, just two metal sides";
+ if (location == MIZNIA_GUSStation)
+ ". There's a thin slot on one of the sides.";
+ else ".";
+ ],
+ found_in MIZNIA_GUSStation MIZNIA_GUSPlatform,
+;
+
+Object MizniaG_Gate_slot "metal slot" MizniaG_Gate
+ class GUS_Gate_Slot_Class
+ with description [;
+ if (location == MIZNIA_GUSStation)
+ "You see a rather small, thin slot that seems to be \
+ almost cut into one of the metal sides of the gate.";
+ "You can't see any such thing.";
+ ],
+ before [;
+ if (location==MIZNIA_GUSPlatform)
+ "You can't see any such thing.";
+ ],
+;
+
+
+
+!Object FS_Platform_sign2 "laminated paper" FROSTHAM_GUSPlatform
+! with name "paper" "laminated" "safety",
+! initial "A small stiff-looking piece of paper is attached to the west wall.",
+! description "The paper reads: ^^\
+! GREAT UNDERGROUND SUBWAY STATION RULES:^
+! 1) No going onto tracks.^
+! 2) No going into tunnels on foot unless authorized.",
+! has static;
+
+Object train_tracks "train tracks"
+ with name "tracks" "train",
+ description "A pair of large metal train tracks.",
+ found_in FROSTHAM_GUSPlatform ARAGAIN_GUSPlatform FUBLIO_GUSPlatform
+ ARAGAIN_GUSPlatform2,
+ has scenery;
+
+
+Object ARAGAIN_GUSPlatform "Aragain Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The east side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run north and south into dark tunnels. \
+ Along one wall painted lettering \
+ reads ~ARAGAIN STATION~. \
+ A short walkway leads northwest, to a metal fence. \
+ There is also a stairway down here";
+ if (self has general)
+ ". In addition, there is a large train car sitting on the tracks \
+ to the east.";
+ else ".";
+ ],
+ name "tunnel" "tunnels" "stairway",
+ nw_to AG_Gate,
+ s_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ n_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ e_to PURPLELINE_car,
+ d_to ARAGAIN_GUSPlatform2,
+ in_to PURPLELINE_car,
+ before [;
+ Go:
+! if (noun == nw_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == e_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 3 or 5) {
+ give self general;
+ PURPLELINE_loc = 5;
+ PURPLELINE_dir = 1; ! will be heading south
+ "^Suddenly, from the north, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==2 or 4 or 6) {
+ give self general;
+ PURPLELINE_loc = 5;
+ PURPLELINE_dir = 0; ! will be heading north
+ "^Suddenly, from the south, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==9)
+ "^You hear a distant rumbling noise from the north.";
+ if (i==10)
+ "^You hear a distant rumbling noise from the south.";
+ }
+ else {
+ if (self has general) {
+ if (PURPLELINE_loc == 6) {
+ give self ~general;
+ "^The train doors close, and the train rolls off.";
+ }
+ else {
+ PURPLELINE_loc = 6;
+ "^A few exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+Object ARAGAIN_GUSPlatform2 "Aragain Train Platform (lower)"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The south side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run west into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~ARAGAIN STATION~. \
+ A set of stairs leads up out of the gloom";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the south.";
+ else ".";
+ ],
+ name "tunnel" "stairs",
+ w_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ s_to ORANGELINE_car,
+ in_to ORANGELINE_car,
+ u_to ARAGAIN_GUSPlatform,
+ before [;
+ Go:
+ if ((self hasnt general) &&
+ (noun == s_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 3 or 5) {
+ give self general;
+ ORANGELINE_loc = 9;
+ ORANGELINE_dir = 0; ! will be heading west
+ "^Suddenly, from the west, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and up \
+ the stairs.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the west.";
+ }
+ else {
+ if (self has general) {
+ if (ORANGELINE_loc == 10) {
+ give self ~general;
+ "^The train doors close, and the train heads off \
+ to the west.";
+ }
+ else {
+ ORANGELINE_loc = 10;
+ "^A few people exit the train, and hurry up the stairs. \
+ You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+
+Object FUBLIO_GUSPlatform "Fublio Valley Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The east side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run north into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~FUBLIO VALLEY STATION~. \
+ A short walkway leads northwest, to a metal fence";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the east.";
+ else ".";
+ ],
+ name "tunnel",
+ nw_to FublioG_Gate,
+ n_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ e_to PURPLELINE_car,
+ in_to PURPLELINE_car,
+ before [;
+ Go:
+! if (noun == nw_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == e_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 3 or 4) {
+ give self general;
+ PURPLELINE_loc = 10;
+ PURPLELINE_dir = 0; ! will be heading north
+ "^Suddenly, from the north, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the north.";
+ }
+ else {
+ if (self has general) {
+ if (PURPLELINE_loc == 9) {
+ give self ~general;
+ "^The train doors close, and the train rolls off \
+ to the north.";
+ }
+ else {
+ PURPLELINE_loc = 9;
+ "^A few people exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+
+! *** Orange line platforms
+
+
+Object GURTH_GUSPlatform2 "Gurth City Train Platform (lower)"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The south side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run east into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~GURTH CITY STATION~. \
+ A set of stairs leads up out of the gloom";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the south.";
+ else ".";
+ ],
+ name "tunnel" "stairs",
+ e_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ s_to ORANGELINE_car,
+ in_to ORANGELINE_car,
+ u_to GURTH_GUSPlatform,
+ before [;
+ Go:
+ if ((self hasnt general) &&
+ (noun == s_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 2 or 4) {
+ give self general;
+ ORANGELINE_loc = 1;
+ ORANGELINE_dir = 1; ! will be heading east
+ "^Suddenly, from the east, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and up \
+ the stairs.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the east.";
+ }
+ else {
+ if (self has general) {
+ if (ORANGELINE_loc == 2) {
+ give self ~general;
+ "^The train doors close, and the train heads off \
+ to the east.";
+ }
+ else {
+ ORANGELINE_loc = 2;
+ "^A few people exit the train, and hurry up the stairs. \
+ You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+Object ANTHAR_GUSPlatform "Greater Anthar Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The south side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run east and west into dark tunnels. \
+ Along one wall painted lettering \
+ reads ~ANTHAR STATION~. \
+ A short walkway leads north, to a metal fence";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the south.";
+ else ".";
+ ],
+ name "tunnel" "tunnels" "walkway",
+ n_to AntharG_Gate,
+ e_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ w_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ s_to ORANGELINE_car,
+ in_to ORANGELINE_car,
+ before [;
+ Go:
+! if (noun == n_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == s_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 4 or 5) {
+ give self general;
+ ORANGELINE_loc = 5;
+ ORANGELINE_dir = 1; ! will be heading east
+ "^Suddenly, from the west, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==2 or 3 or 6) {
+ give self general;
+ ORANGELINE_loc = 5;
+ ORANGELINE_dir = 0; ! will be heading west
+ "^Suddenly, from the east, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==9)
+ "^You hear a distant rumbling noise from the east.";
+ if (i==10)
+ "^You hear a distant rumbling noise from the west.";
+ }
+ else {
+ if (self has general) {
+ if (ORANGELINE_loc == 6) {
+ give self ~general;
+ "^The train doors close, and the train rolls off.";
+ }
+ else {
+ ORANGELINE_loc = 6;
+ "^A few people exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+
+! *** Green line platforms
+
+Object BORPHEE_GUSPlatform "New Borphee Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The west side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run south into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~NEW BORPHEE STATION~. \
+ A short walkway leads northeast, to a metal fence";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the west.";
+ else ".";
+ ],
+ name "tunnel" "walkway",
+ ne_to BorpheeG_Gate,
+ s_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ w_to GREENLINE_car,
+ in_to GREENLINE_car,
+ before [;
+ Go:
+! if (noun == ne_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == w_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 2 or 3) {
+ give self general;
+ GREENLINE_loc = 1;
+ GREENLINE_dir = 1; ! will be heading south
+ "^Suddenly, from the south, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the south.";
+ }
+ else {
+ if (self has general) {
+ if (GREENLINE_loc == 2) {
+ give self ~general;
+ "^The train doors close, and the train rolls off \
+ to the south.";
+ }
+ else {
+ GREENLINE_loc = 2;
+ "^A few people exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+Object MIZNIA_GUSPlatform "Miznia Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The west side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run north into a dark tunnel. \
+ Along one wall painted lettering \
+ reads ~MIZNIA STATION~. \
+ A short walkway leads northeast, to a metal fence";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the west.";
+ else ".";
+ ],
+ name "tunnel" "walkway",
+ ne_to MizniaG_Gate,
+ n_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ w_to GREENLINE_car,
+ in_to GREENLINE_car,
+ before [;
+ Go:
+! if (noun == ne_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == w_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 2 or 3) {
+ give self general;
+ GREENLINE_loc = 9;
+ GREENLINE_dir = 0; ! will be heading south
+ "^Suddenly, from the north, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==10)
+ "^You hear a distant rumbling noise from the north.";
+ }
+ else {
+ if (self has general) {
+ if (GREENLINE_loc == 10) {
+ give self ~general;
+ "^The train doors close, and the train rolls off \
+ to the north.";
+ }
+ else {
+ GREENLINE_loc = 10;
+ "^A few people exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+Object GURTH_GUSPlatform "Gurth City Train Platform"
+ with description [;
+ print "You are standing in a long underground \
+ chamber. The west side of the room contains a \
+ lowered set of what appear to be train tracks. \
+ The tracks run north and south into dark tunnels. \
+ Along one wall painted lettering \
+ reads ~GURTH CITY STATION~. \
+ A short walkway leads northeast, to a metal fence. \
+ There is also a stairway down here";
+ if (self has general)
+ ". There is a large train car sitting on the tracks \
+ to the west.";
+ else ".";
+ ],
+ name "tunnel" "tunnels" "walkway" "stairway",
+ ne_to GurthG_Gate,
+ s_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ n_to "A helpful subway worker says ~Hey pal, get outa there!~",
+ w_to GREENLINE_car,
+ d_to GURTH_GUSPlatform2,
+ in_to GREENLINE_car,
+ before [;
+ Go:
+! if (noun == ne_obj)
+! print "You saunter through the apparently open gate.^";
+ if ((self hasnt general) &&
+ (noun == w_obj or in_obj))
+ "You'd fall onto the tracks if you went that way.";
+ ],
+ each_turn [ i ;
+ if (self hasnt general) {
+ i = random(10);
+ if (i==1 or 3) {
+ give self general;
+ GREENLINE_loc = 5;
+ GREENLINE_dir = 1; ! will be heading south
+ "^Suddenly, from the north, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==2 or 4) {
+ give self general;
+ GREENLINE_loc = 5;
+ GREENLINE_dir = 0; ! will be heading north
+ "^Suddenly, from the south, a train emerges from \
+ the tunnel! It pulls to a screeching halt, the \
+ doors open, and several people rush out and exit \
+ the station.";
+ }
+ if (i==9)
+ "^You hear a distant rumbling noise from the north.";
+ if (i==10)
+ "^You hear a distant rumbling noise from the south.";
+ }
+ else {
+ if (self has general) {
+ if (GREENLINE_loc == 6) {
+ give self ~general;
+ "^The train doors close, and the train rolls off.";
+ }
+ else {
+ GREENLINE_loc = 6;
+ "^A few people exit the train, and hurry out \
+ of the station. You hear a voice from inside the \
+ train say, ~Doors will be closing, please stand \
+ clear.~";
+ }
+ }
+ }
+ ],
+ has light;
+
+! **************************
+! TRAINS
+! Some notes:
+! While it may seem more logical to implement the trains with
+! an 'enterable' property, I decided to implement them as
+! 'rooms' instead. Mainly, I did this because:
+! 1) I wanted total control of the "movement" of the train.
+! 2) I wanted to fill the cars with various people/things.
+! 3) I wanted seats on the train :)
+! Again, this is all probably possible with 'vehicles', I
+! just saw things slightly differently.
+! Be warned, the logic in moving the train is probably one
+! of the more unfathomable things I've ever coded.
+! **************************
+
+! *** The purple line (Eastlands)
+
+Object PURPLELINE_car "Subway car"
+ with description "You are in an underground train car. Various \
+ people fill the train, some in uncomfortable-looking seats.",
+ name "car" "people",
+ w_to FROSTHAM_GUSPlatform, ! we adjust this, see below
+ out_to FROSTHAM_GUSPlatform,
+ after [;
+ Go:
+ if (noun == e_obj or in_obj) {
+ ! determine boarding location, direction train was
+ ! traveling
+ give self general; ! we're off and moving...
+ print "^You enter the train car. The doors slam shut behind you.^";
+ if (PURPLELINE_loc == 1 or 2) {
+ ! Frostham, south
+ give FROSTHAM_GUSPlatform ~general;
+ PURPLELINE_loc = 3; ! leaving
+ }
+ if (PURPLELINE_loc == 5 or 6) {
+ ! Aragain
+ ! give ARAGAIN_GUSPlatform ~general;
+ if (PURPLELINE_dir == 1) {
+ ! South
+ PURPLELINE_loc = 7;
+ }
+ else {
+ ! North
+ PURPLELINE_loc = 4;
+ }
+ }
+ if (PURPLELINE_loc == 9 or 10) {
+ ! Fublio, north
+ ! give FUBLIO_GUSPlatform ~general;
+ PURPLELINE_loc = 8;
+ }
+ }
+ ],
+ before [;
+ Go:
+ if (noun == w_obj or out_obj) {
+ if (self has general)
+ "The train is moving right now. Better wait til \
+ it stops to get off.";
+ if (thug in self)
+ "As you try to get off, the thug gets in your way. \
+ ~Going somewhere, Padre?~.";
+ }
+ ],
+ each_turn [;
+ ! check location of train, print appropriate msg,
+ ! and increment location of train, given direction
+ if (PURPLELINE_loc == 1) {
+ ! reached Frostham, dir = S, not moving
+ give self ~general;
+ give FROSTHAM_GUSPlatform general;
+ PURPLELINE_dir = 1;
+ PURPLELINE_loc = 2;
+ PURPLELINE_car.w_to = FROSTHAM_GUSPlatform;
+ PURPLELINE_car.out_to = FROSTHAM_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Frostham station, watch your \
+ step please.~";
+ }
+ if (PURPLELINE_loc == 2) {
+ ! still in Frostham, not moving
+ PURPLELINE_loc = 3;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (PURPLELINE_loc == 3) {
+ if (PURPLELINE_dir == 1) {
+ ! moving away from Frostham
+ give self general;
+ give FROSTHAM_GUSPlatform ~general;
+ PURPLELINE_loc = 4;
+ "^The train starts to move, quickly exiting the station \
+ going south.";
+ }
+ if (PURPLELINE_dir == 0) {
+ ! moving towards Frostham
+ PURPLELINE_loc = 1; ! We will 'arrive' in Frostham next
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (PURPLELINE_loc == 4) {
+ if (PURPLELINE_dir == 0) {
+ ! We're leaving Aragain
+ PURPLELINE_loc = 3;
+ give self general;
+ give ARAGAIN_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going north.";
+ }
+ if (PURPLELINE_dir == 1) {
+ PURPLELINE_loc = 5;
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (PURPLELINE_loc == 5) {
+ ! reached Aragain, stop the train
+ give self ~general;
+ give ARAGAIN_GUSPlatform general;
+ PURPLELINE_loc = 6; ! we'll be stopping for 1 turn
+ PURPLELINE_car.w_to = ARAGAIN_GUSPlatform;
+ PURPLELINE_car.out_to = ARAGAIN_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Aragain station, watch your \
+ step please.~";
+ }
+ if (PURPLELINE_loc == 6) {
+ ! about to leave Aragain station
+ if (PURPLELINE_dir == 0)
+ PURPLELINE_loc = 4;
+ else
+ PURPLELINE_loc = 7;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (PURPLELINE_loc == 7) {
+ if (PURPLELINE_dir == 1) {
+ ! We're leaving Aragain
+ PURPLELINE_loc = 8;
+ give self general;
+ give ARAGAIN_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going south.";
+ }
+ if (PURPLELINE_dir == 0) {
+ PURPLELINE_loc = 5; ! we will arrive in Aragain shortly...
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (PURPLELINE_loc == 8) {
+ if (PURPLELINE_dir == 0) {
+ ! we're leaving Fublio
+ PURPLELINE_loc = 7;
+ give self general;
+ give FUBLIO_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going north.";
+ }
+ if (PURPLELINE_dir == 1) {
+ PURPLELINE_loc = 10; ! will arrive in Fublio (BACKWARDS!!)
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (PURPLELINE_loc == 9) {
+ ! still waiting in Fublio
+ PURPLELINE_loc = 8;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (PURPLELINE_loc == 10) {
+ ! arriving in Fublio
+ PURPLELINE_loc = 9;
+ PURPLELINE_dir = 0; ! north
+ give self ~general;
+ give FUBLIO_GUSPlatform general;
+ PURPLELINE_car.w_to = FUBLIO_GUSPlatform;
+ PURPLELINE_car.out_to = FUBLIO_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Fublio station, watch your \
+ step please.~";
+ }
+ ],
+ has light;
+
+Class Train_Car_Seat_Class
+ with name "seat" "seats",
+ description "There seem to be a few seats that haven't been taken.",
+ before [;
+ Enter:
+ if (random(10) < 3)
+ "As you attempt to grab an open seat, someone rudely \
+ beats you to it.";
+ ],
+has scenery enterable;
+
+
+Object PURPLELINE_car_seats "subway seat" PURPLELINE_car
+ class Train_Car_Seat_Class
+ with before [;
+ Search:
+ if (self hasnt general) {
+ give self general;
+ move c9 to player;
+ "Good fortune is your friend! You notice a \
+forgotten coin stuck in a seat crack, and fend off two \
+passengers to grab it.";
+ }
+ ],
+;
+
+
+! *** ORANGE LINE CAR (Gurth to Aragain)
+
+
+Object ORANGELINE_car "Subway car"
+ with description "You are in an underground train car. Various \
+ people fill the train, some in uncomfortable-looking seats.",
+ name "car" "people",
+ n_to ANTHAR_GUSPlatform, ! we adjust this, see below
+ out_to ANTHAR_GUSPlatform,
+ after [;
+ Go:
+ if (noun == s_obj or in_obj) {
+ ! determine boarding location, direction train was
+ ! traveling
+ give self general; ! we're off and moving...
+ print "^You squeeze onto the train car. The doors close behind you.^";
+ if (ORANGELINE_loc == 1 or 2) {
+ ! Gurth, east
+ give GURTH_GUSPlatform2 ~general;
+ ORANGELINE_loc = 3; ! leaving
+ }
+ if (ORANGELINE_loc == 5 or 6) {
+ ! Anthar
+ give ANTHAR_GUSPlatform ~general;
+ if (ORANGELINE_dir == 1) {
+ ! east
+ ORANGELINE_loc = 7;
+ }
+ else {
+ ! west
+ ORANGELINE_loc = 4;
+ }
+ }
+ if (ORANGELINE_loc == 9 or 10) {
+ ! Aragain, west
+ give ARAGAIN_GUSPlatform2 ~general;
+ ORANGELINE_loc = 8;
+ }
+ }
+ ],
+ before [;
+ Go:
+ if (noun == n_obj or out_obj) {
+ if (self has general)
+ "The train is moving right now. Better wait til \
+ it stops to get off.";
+ }
+ ],
+ each_turn [;
+ ! check location of train, print appropriate msg,
+ ! and increment location of train, given direction
+ if (ORANGELINE_loc == 1) {
+ ! reached Gurth, dir = S, not moving
+ give self ~general;
+ give GURTH_GUSPlatform2 general;
+ ORANGELINE_dir = 1;
+ ORANGELINE_loc = 2;
+ ORANGELINE_car.n_to = GURTH_GUSPlatform2;
+ ORANGELINE_car.out_to = GURTH_GUSPlatform2;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Gurth City station, watch your \
+ step please.~";
+ }
+ if (ORANGELINE_loc == 2) {
+ ! still in Gurth, not moving
+ ORANGELINE_loc = 3;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (ORANGELINE_loc == 3) {
+ if (ORANGELINE_dir == 1) {
+ ! moving away from Gurth
+ give self general;
+ give GURTH_GUSPlatform2 ~general;
+ ORANGELINE_loc = 4;
+ "^The train starts to move, quickly exiting the station \
+ going east.";
+ }
+ if (ORANGELINE_dir == 0) {
+ ! moving towards Gurth
+ ORANGELINE_loc = 1; ! We will 'arrive' in Gurth next
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (ORANGELINE_loc == 4) {
+ if (ORANGELINE_dir == 0) {
+ ! We're leaving Anthar
+ ORANGELINE_loc = 3;
+ give self general;
+ give ANTHAR_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going west.";
+ }
+ if (ORANGELINE_dir == 1) {
+ ORANGELINE_loc = 5;
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (ORANGELINE_loc == 5) {
+ ! reached Anthar, stop the train
+ give self ~general;
+ give ANTHAR_GUSPlatform general;
+ ORANGELINE_loc = 6; ! we'll be stopping for 1 turn
+ ORANGELINE_car.n_to = ANTHAR_GUSPlatform;
+ ORANGELINE_car.out_to = ANTHAR_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Greater Anthar station, watch your \
+ step please.~";
+ }
+ if (ORANGELINE_loc == 6) {
+ ! about to leave Anthar station
+ if (ORANGELINE_dir == 0)
+ ORANGELINE_loc = 4;
+ else
+ ORANGELINE_loc = 7;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (ORANGELINE_loc == 7) {
+ if (ORANGELINE_dir == 1) {
+ ! We're leaving Anthar
+ ORANGELINE_loc = 8;
+ give self general;
+ give ANTHAR_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going east.";
+ }
+ if (ORANGELINE_dir == 0) {
+ ORANGELINE_loc = 5; ! we will arrive in anthar shortly...
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (ORANGELINE_loc == 8) {
+ if (ORANGELINE_dir == 0) {
+ ! we're leaving Aragain
+ ORANGELINE_loc = 7;
+ give self general;
+ give ARAGAIN_GUSPlatform2 ~general;
+ "^The train starts to move, quickly exiting the station \
+ going west.";
+ }
+ if (ORANGELINE_dir == 1) {
+ ORANGELINE_loc = 9; ! will arrive in Aragain
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (ORANGELINE_loc == 10) {
+ ! still waiting in Aragain
+ ORANGELINE_loc = 8;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (ORANGELINE_loc == 9) {
+ ! arriving in Aragain
+ ORANGELINE_loc = 10;
+ ORANGELINE_dir = 0; ! west
+ give self ~general;
+ give ARAGAIN_GUSPlatform2 general;
+ ORANGELINE_car.n_to = ARAGAIN_GUSPlatform2;
+ ORANGELINE_car.out_to = ARAGAIN_GUSPlatform2;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Aragain station, watch your \
+ step please.~";
+ }
+ ],
+ has light;
+
+Object ORANGELINE_car_seats "subway seat" ORANGELINE_car
+ class Train_Car_Seat_Class
+ with before [;
+ Search:
+ if (self hasnt general) {
+ give self general;
+ move c10 to player;
+ "Good fortune is your friend! You notice a \
+forgotten coin stuck in a seat crack, and fend off two \
+passengers to grab it.";
+ }
+ ],
+;
+
+
+! *** GREEN LINE (Borphee to Miznia)
+
+Object GREENLINE_car "Subway car"
+ with description "You are in an underground train car. Various \
+ people fill the train, some in uncomfortable-looking seats.",
+ name "car" "people",
+ e_to BORPHEE_GUSPlatform, ! we adjust this, see below
+ out_to BORPHEE_GUSPlatform,
+ after [;
+ Go:
+ if (noun == w_obj or in_obj) {
+ ! determine boarding location, direction train was
+ ! traveling
+ give self general; ! we're off and moving
+ print "^You shove your way onto train car. The doors close behind you.^";
+ if (GREENLINE_loc == 1 or 2) {
+ ! Borphee, south
+ give BORPHEE_GUSPlatform ~general;
+ GREENLINE_loc = 3; ! leaving
+ }
+ if (GREENLINE_loc == 5 or 6) {
+ ! Gurth
+ give GURTH_GUSPlatform ~general;
+ if (GREENLINE_dir == 1) {
+ ! South
+ GREENLINE_loc = 7;
+ }
+ else {
+ ! North
+ GREENLINE_loc = 4;
+ }
+ }
+ if (GREENLINE_loc == 9 or 10) {
+ ! Miznia, north
+ give MIZNIA_GUSPlatform ~general;
+ GREENLINE_loc = 8;
+ }
+ }
+ ],
+ before [;
+ Go:
+ if (noun == e_obj or out_obj) {
+ if (self has general)
+ "The train is moving right now. Better wait til \
+ it stops to get off.";
+ if (yupple in self)
+ "As you try to get off, the yupple jumps up and gets in your \
+ way. ~Wait, wait, we have so much to talk about!~.";
+ }
+ ],
+ each_turn [;
+ ! check location of train, print appropriate msg,
+ ! and increment location of train, given direction
+ if (GREENLINE_loc == 1) {
+ ! reached Borphee, dir = S, not moving
+ give self ~general;
+ give BORPHEE_GUSPlatform general;
+ GREENLINE_dir = 1;
+ GREENLINE_loc = 2;
+ GREENLINE_car.e_to = BORPHEE_GUSPlatform;
+ GREENLINE_car.out_to = BORPHEE_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~New Borphee station, watch your \
+ step please.~";
+ }
+ if (GREENLINE_loc == 2) {
+ ! still in Borphee, not moving
+ GREENLINE_loc = 3;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (GREENLINE_loc == 3) {
+ if (GREENLINE_dir == 1) {
+ ! moving away from Borphee
+ give self general;
+ give BORPHEE_GUSPlatform ~general;
+ GREENLINE_loc = 4;
+ "^The train starts to move, quickly exiting the station \
+ going south.";
+ }
+ if (GREENLINE_dir == 0) {
+ ! moving towards BORPHEE
+ GREENLINE_loc = 1;
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (GREENLINE_loc == 4) {
+ if (GREENLINE_dir == 0) {
+ ! We're leaving gurth
+ GREENLINE_loc = 3;
+ give self general;
+ give GURTH_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going north.";
+ }
+ if (GREENLINE_dir == 1) {
+ GREENLINE_loc = 5;
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (GREENLINE_loc == 5) {
+ ! reached Gurth, stop the train
+ give self ~general;
+ give GURTH_GUSPlatform general;
+ GREENLINE_loc = 6; ! we'll be stopping for 1 turn
+ GREENLINE_car.e_to = GURTH_GUSPlatform;
+ GREENLINE_car.out_to = GURTH_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Gurth City station, watch your \
+ step please.~";
+ }
+ if (GREENLINE_loc == 6) {
+ ! about to leave gurth station
+ if (GREENLINE_dir == 0)
+ GREENLINE_loc = 4;
+ else
+ GREENLINE_loc = 7;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (GREENLINE_loc == 7) {
+ if (GREENLINE_dir == 1) {
+ ! We're leaving gurth
+ GREENLINE_loc = 8;
+ give self general;
+ give GURTH_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going south.";
+ }
+ if (GREENLINE_dir == 0) {
+ GREENLINE_loc = 5; ! we will arrive in gurth shortly...
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (GREENLINE_loc == 8) {
+ if (GREENLINE_dir == 0) {
+ ! we're leaving Miznia
+ GREENLINE_loc = 7;
+ give self general;
+ give MIZNIA_GUSPlatform ~general;
+ "^The train starts to move, quickly exiting the station \
+ going north.";
+ }
+ if (GREENLINE_dir == 1) {
+ GREENLINE_loc = 9;
+ "^The train rumbles as it moves.";
+ }
+ }
+ if (GREENLINE_loc == 10) {
+ ! still waiting in Miznia
+ GREENLINE_loc = 8;
+ "^A voice overhead says ~Doors will be closing, please \
+ stand clear.~";
+ }
+ if (GREENLINE_loc == 9) {
+ ! arriving in Miznia
+ GREENLINE_loc = 10;
+ GREENLINE_dir = 0; ! north
+ give self ~general;
+ give MIZNIA_GUSPlatform general;
+ GREENLINE_car.e_to = MIZNIA_GUSPlatform;
+ GREENLINE_car.out_to = MIZNIA_GUSPlatform;
+ "^The train suddenly lurches to a stop! A voice from \
+ somewhere overhead says ~Miznia station, watch your \
+ step please.~";
+ }
+ ],
+ has light;
+
+Object GREENLINE_car_seats "subway seat" GREENLINE_car
+ class Train_Car_Seat_Class
+ with before [;
+ Search:
+ if (self hasnt general) {
+ give self general;
+ move c11 to player;
+ "Good fortune is your friend! You notice a \
+forgotten coin stuck in a seat crack, and fend off two \
+passengers to grab it.";
+ }
+ ],
+;
+
+
+! *** A fake scenery item, to describe the subway cars from outside ***
+Object subway_car_fake "subway car"
+ with name "car" "train",
+ description [;
+ print "It's a rather large, sleek-looking train car, oddly colored ";
+ if (((location==FROSTHAM_GUSPlatform) && (FROSTHAM_GUSPlatform has general)) ||
+ ((location==ARAGAIN_GUSPlatform) && (ARAGAIN_GUSPlatform has general)) ||
+ ((location==FUBLIO_GUSPlatform) && (FUBLIO_GUSPlatform has general)))
+ "purple.";
+ if (((location==ANTHAR_GUSPlatform) && (ANTHAR_GUSPlatform has general)) ||
+ ((location==ARAGAIN_GUSPlatform2) && (ARAGAIN_GUSPlatform2 has general)) ||
+ ((location==GURTH_GUSPlatform2) && (GURTH_GUSPlatform2 has general)))
+ "orange.";
+ if (((location==BORPHEE_GUSPlatform) && (BORPHEE_GUSPlatform has general)) ||
+ ((location==GURTH_GUSPlatform) && (GURTH_GUSPlatform has general)) ||
+ ((location==MIZNIA_GUSPlatform) && (MIZNIA_GUSPlatform has general)))
+ "green.";
+ "You can't see any such thing.";
+ ],
+ found_in FROSTHAM_GUSPlatform ARAGAIN_GUSPlatform FUBLIO_GUSPlatform
+ ANTHAR_GUSPlatform ARAGAIN_GUSPlatform2 GURTH_GUSPlatform2
+ BORPHEE_GUSPlatform GURTH_GUSPlatform MIZNIA_GUSPlatform,
+ before [;
+ Enter:
+ "A subway nymph suddenly appears. ~Remember passengers, to \
+ board the subway cars, you just have to go 'in', or in the \
+ appropriate direction of the car. Bye!~";
+ ],
+ has scenery;
+
+Object metal_fence "metal fence"
+ with name "fence" "barricade",
+ description "It looks like a smooth metal fence.",
+ before [;
+ Climb, JumpOver:
+ "A subway worker yells ~Hey pal, no fare-jumpers!";
+ ],
+ found_in FROSTHAM_GUSPlatform ARAGAIN_GUSPlatform FUBLIO_GUSPlatform
+ FROSTHAM_GUSStation ARAGAIN_GUSStation FUBLIO_GUSStation
+ ANTHAR_GUSPlatform BORPHEE_GUSPlatform GURTH_GUSPlatform MIZNIA_GUSPlatform
+ ANTHAR_GUSStation BORPHEE_GUSStation GURTH_GUSStation MIZNIA_GUSStation,
+ has scenery;
+
+
+! **************************
+! People/denizens/creatures
+! **************************
+
+! Thug, on PURPLE LINE
+Object thug "sinister-looking thug" PURPLELINE_car
+ with name "thug" "hoodlum" "Davey",
+ description "A thug, clearly. Some scrapper with an attitude, \
+ and the desire to use it.",
+ each_turn [ i ;
+ if (self hasnt general) {
+ give self general;
+ "^The sinister-looking thug notices you from the back \
+ of the car, and approaches. ~Well, well, well,~ he \
+ says, ~what do we have here?~.";
+ }
+ i = random(4);
+ if (i==1)
+ "^The thug pokes you in the ribs.";
+ if (i==2)
+ "^The thug snarls at you. ~Hey, I'm talking to you, \
+ Preacher-man.~";
+ if (i==3)
+ "^The thug tries to act friendly, and fails.";
+ if (i==4)
+ "^The thug scowls. ~You gonna tell me the error of \
+ my ways, Padre?~";
+ ],
+ life [;
+ Attack:
+ "As you move to show the rake a lesson, you notice \
+ several more thugs in the background, eyeing your every \
+ move. The thug smiles as you back-off, cautiously.";
+ default: "The thug is too busy being sinister.";
+ ],
+ before [;
+ Cast:
+ if (the_spell_was == espnis_spell) {
+ remove thug;
+ "You begin to extol the virtues of bedtime prayers, \
+ and the thug starts to yawn. Soon, his eyes blink \
+ slowly, and before long, he nods off to sleep! Two \
+ subway police officers, hiding until now, get up the \
+ nerve to capture the snoring thug, and drag him \
+ off, disappearing into the throng of people.";
+ }
+ if (the_spell_was == foblub_spell) {
+ "You give the thug a timely sermon on the \
+folly of crime in a moral society. He seems momentarily \
+fascinated. Too bad he wasn't actually sitting in anything.";
+ }
+ ],
+ has animate;
+
+! Annoying Yupple, on GREEN LINE (kinda a cross between a yuppie and a yipple)
+Object yupple "annoying yupple" GREENLINE_car
+ with name "yupple" "annoying",
+ description "A young yupple, immaculately dressed in a pinstripe \
+ three-piece suit and tie.",
+ article "an",
+ each_turn [ i ;
+ if (self hasnt general) {
+ give self general;
+ "^The annoying-looking yupple notices you from the back \
+ of the car, and approaches. ~A priest,~ he \
+ says, ~Just the person I was looking for.~ He \
+ squeezes into a seat near you.";
+ }
+ i = random(4);
+ if (i==1)
+ "^The yupple talks unceasingly about rainfall in some \
+ place called ~the Amazon basin~.";
+ if (i==2)
+ "^The yupple smiles brightly. ~There's so much I have to \
+ talk about!~";
+ if (i==3)
+ "^The yupple drones on about the science behind large \
+ corporate takeovers.";
+ if (i==4)
+ "^The yupple laughs -- a sound somewhat like a snoring \
+ bloodworm. ~So the guy says, 'I thought you meant my _wife_.' \
+ Get it? Wife?~";
+ ],
+ life [;
+ Attack:
+ "Much as you'd like to, that's just something the \
+ Order would probably frown upon.";
+ ],
+ before [;
+ Cast:
+ if (the_spell_was == espnis_spell) {
+ "You give a sermon on the dangers of \
+improper bathtub caulking, but the yupple seems quite \
+fascinated. ~That reminds me of...~ You cringe.";
+ }
+ if (the_spell_was == foblub_spell) {
+ remove self;
+ "You draw a stunning parallel between corporate \
+morality and monarchy ruling. The yupple's jaw drops. ~I've got \
+to tell my boss that,~ he says, and tries to leave his seat, \
+but finds himself stuck fast. Several passengers nearby \
+take the opportunity to remove the yupple (seat included) to \
+a different part of the train.";
+ }
+ ],
+ has animate;
+
+
+! **************************
+! misc objects
+! **************************
+
+Object c9 "coin" class coin_class;
+Object c10 "coin" class coin_class;
+Object c11 "coin" class coin_class;
+
+! (Some common objects associated with GUS)
+Object GUS_sign "Sign"
+ with name "sign" "circular" "pole" "GUS",
+ initial "Standing on a tall pole next to the stairs is \
+ a circular sign.",
+ description "The sign reads ~GUS~, and has an arrow \
+ pointing down.",
+ found_in FROSTHAM_GUSStop ARAGAIN_GUSStop ANTHAR_GUSStop
+ FUBLIO_GUSStop BORPHEE_GUSStop MIZNIA_GUSStop
+ GURTH_GUSStop,
+ has static;
+
+
+Object GUS_brochure "subway brochure" FROSTHAM_Governer1
+ with name "brochure" "subway" "GUS",
+ description "\
+ ~The Great Underground Subway~^^
+ Adventurers who really need to get where they're going \
+ in a hurry are going to love GUS! The new underground \
+ high-speed rail system can be your personal ride to the \
+ major travel points in Quendor, for just one mere zorkmid! \
+ For Eastland travel to Frostham, Aragain and Fublio Valley, \
+ the Purple line is at your service! For Westland travel \
+ to New Borphee, Gurth City and Miznia, just jump on board \
+ the Green line! And for you folks who need to get across \
+ the Great Sea in a hurry, don't forget the Orange line, \
+ stopping off at Aragain, Anthar and Gurth City! Remember, \
+ there's no costs for transferring between lines either. \
+ So don't delay, take the GUS today!",
+ ! weight 5,
+ size 10,
+;
+
+Object newspaper "newspaper" PURPLELINE_car
+ with name "newspaper" "paper",
+ initial "There's a discarded newspaper in a seat nearby.",
+ description "A copy of ~The Fublio Tribune~, with \
+ news, sports and feature sections to read about.",
+ before
+ [ w1; Consult:
+ if (consult_words > 1)
+ "Try reading about 'news', 'sports' or 'features'.";
+ wn = consult_from; w1 = NextWord();
+ switch (w1) {
+ 'news', 'headline', 'headlines':
+ "The news section has three major stories. \
+The headliner is the continued failure to resolve peace in the \
+Kobold war in southern Egreth. Recently, various troops have \
+been cut-off from the main camps by clever kobold raiding groups. \
+^^A second story details the shocking death of a GUE Tech student \
+found in the subway tunnels in Gurth City Station, the apparent \
+victim of a GUS train. ~Don't know how he got in there.~ a \
+subway worker is quoted as saying.^^\
+Finally, a sad local news story about a nice couple in Fublio \
+valley who recently were victims of the kidnaping of their son. No \
+leads as of yet.";
+ 'sports':
+ "Apparently, the golem brothers at Flathead \
+Stadium have amassed an amazing 322-0 win streak.";
+ 'features', 'feature':
+ "The paper points out that culture seekers \
+should check out the newly discovered Leonardo Flathead \
+painting on exhibit at the Royal Museum.";
+ 'ads', 'classified':
+ "~FOR SALE: A new IF game -- 'SPIRITWRAK'. \
+ Price: $0.00~";
+ 'comics', 'funnies':
+ "No comics section. Bummer.";
+ default: "You can't find anything in the paper about that.";
+ }
+ ],
+ ! weight 15,
+ size 15,
+;
+
+! **************************
+! spells & scrolls
+! **************************
projects / spiritwrak.git / blobdiff