5098 lines
167 KiB
Plaintext
5098 lines
167 KiB
Plaintext
"BORDER for
|
|
BORDER ZONE
|
|
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
|
|
|
|
<ROOM OUTF-1
|
|
(LOC ROOMS)
|
|
(DESC "Outside Fence")
|
|
(PATH 0)
|
|
(EAST TO OUTF-2 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(WEST SORRY
|
|
"That would put you directly in front of the border station, and that
|
|
would be suicidal.")
|
|
(SOUTH PER NOMANS-MOVE)
|
|
(SE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(SW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(NORTH PER FENCE-CROSS)
|
|
(NOMAN
|
|
<TABLE <TABLE 180 180 0 0> <TABLE 270 225 0 0> <TABLE 270 240 0 0> C2>)
|
|
|
|
(ACROSS INF-1)
|
|
(NS 1)
|
|
(EW 3)
|
|
(ACTION OUTF-F)
|
|
(GPOS 0)
|
|
(FLAGS GVIEWBIT SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<ROUTINE OUTF-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are crouched at the base of the first fence. Behind you is the
|
|
hundred yards of no-man's-land you've crossed, searchlights dancing
|
|
across the snow-covered ground. Before you, not fifteen feet away, is
|
|
the base of the guard tower, and beyond that, another fence, the
|
|
last barrier to your freedom. Although you are relatively exposed,
|
|
the low snowdrifts provide reasonable cover from the guards." CR CR>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXAMINE ,FENCE>
|
|
<COND (<NOT ,G-WATCH>
|
|
<CRLF>
|
|
;<I-CLOCKER ,CLOCK-MOVE>
|
|
<PERFORM ,V?EXAMINE ,GUARDS>
|
|
;<SETG CLOCK-MOVE 0>)>
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT CAR-GUARDS
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "men from the car")
|
|
(SYNONYM MEN GUARDS)
|
|
(FLAGS SEARCHBIT)
|
|
(SCENARIO 2)
|
|
(ACTION CAR-GUARDS-F)>
|
|
|
|
<ROUTINE CAR-GUARDS-F ()
|
|
<COND (<AND <IN? ,CAR ,ROAD-END>
|
|
<EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT ,ROAD-END>>
|
|
<COND (<VERB? LISTEN EXAMINE WATCH>
|
|
<CAR-SEQ-TELL>
|
|
<RTRUE>)>)
|
|
(<AND <IN? ,CAR ,ROAD-END>
|
|
<EQUAL? ,HERE ,BEHIND-HUT ,HUT-LIVING>>
|
|
<COND (<VERB? LISTEN EXAMINE WATCH>
|
|
<TELL
|
|
"You can't see the guards here, but you can faintly hear them talking." CR>)>)
|
|
(T
|
|
<TELL
|
|
"There are no guards here, which is fortunate." CR>)>>
|
|
|
|
<OBJECT SCOUT
|
|
(DESC "guard")>
|
|
|
|
<OBJECT GLOBAL-SCOUT
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "guard")
|
|
(SYNONYM GUARD SCOUT)
|
|
(ADJECTIVE LONE SINGLE)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-SCOUT-F)>
|
|
|
|
<ROUTINE GLOBAL-SCOUT-F ()
|
|
<COND (<NOT <LOC ,SCOUT>>
|
|
<CANT-SEE ,GLOBAL-SCOUT>)
|
|
(<VERB? EXAMINE WATCH>
|
|
<SCOUT-TELL <>>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,TOO-FAR CR>)>>
|
|
|
|
<ROUTINE SCOUT-TELL ("OPTIONAL" (LOOK? T) "AUX" (SS <>))
|
|
<COND (<NOT .SS> <SET SS " A">)>
|
|
<COND (<NOT .LOOK?> <SET SS "The">)>
|
|
<COND (<AND <EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT>
|
|
<IN? ,SCOUT ,OUTSIDE-HUT>>
|
|
<TELL .SS
|
|
" scout is in front of the hut, walking slowly toward the north side." CR>)
|
|
(<AND <EQUAL? ,HERE ,BEHIND-HUT ,HUT-LIVING>
|
|
<IN? ,SCOUT ,NORTH-HUT>>
|
|
<TELL .SS
|
|
" scout is slowly making his way toward the back side of the hut." CR>)
|
|
(<AND <EQUAL? ,HERE ,SOUTH-HUT>
|
|
<IN? ,SCOUT ,BEHIND-HUT>>
|
|
<TELL .SS
|
|
" scout is coming around the back side of the hut, and heading toward the
|
|
south side." CR>)
|
|
(<AND <EQUAL? ,HERE ,ROAD-END>
|
|
<IN? ,SCOUT ,SOUTH-HUT>>
|
|
<TELL .SS
|
|
" scout is rounding the south side of the hut and heading back toward
|
|
the group of guards at the front door." CR>)
|
|
(<NOT .LOOK?>
|
|
<CANT-SEE ,SCOUT>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<OBJECT GUARDS
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "guard")
|
|
(SYNONYM GUARDS GUARD ;"Added 9/23" MEN)
|
|
(ACTION GUARDS-F)>
|
|
|
|
<ROUTINE GUARDS-F ("AUX" MT (POS <GETP ,HERE ,P?GPOS>) DIR FACE? TMP)
|
|
<COND (<AND <AT-NML?> <NOT <VERB? OFF-2>>>
|
|
<COND (<VERB? EXAMINE WATCH>
|
|
<TELL
|
|
"You can't make them out too well from here; they keep moving in and out
|
|
of the searchlight's glare." CR>)
|
|
(<VERB? WAVE CALL YELL>
|
|
<TELL
|
|
"A suicidal idea, and you're pretty far away as well." CR>)
|
|
(T <TELL
|
|
"The guards are too far away." CR>)>)
|
|
(<AND <VERB? OFF-2>
|
|
<EQUAL? ,PRSO ,TIMING-OBJECT ,WATCHING-OBJECT>>
|
|
<COND (<NOT ,G-WATCH>
|
|
<TELL "You weren't watching them." CR>
|
|
<RTRUE>)>
|
|
<SETG G-WATCH <>>
|
|
<SETG CLOCK-MOVE 4>
|
|
<FLUSH-WATCHER>
|
|
<COND (<NOT ,SAVE-FLAG>
|
|
<TELL
|
|
"You're no longer watching the guards." CR>)>
|
|
<RTRUE>)
|
|
(<VERB? WATCH>
|
|
<COND (,G-WATCH
|
|
<TELL "You're already watching them." CR>)
|
|
(T
|
|
<COND (,SL-WATCH
|
|
<PERFORM ,V?OFF-2
|
|
,TIMING-OBJECT
|
|
,SEARCHLIGHTS>
|
|
<CRLF>)>
|
|
<SETG G-WATCH T>
|
|
<SETG CHRONOGRAPH-ON T>
|
|
<SETG CLOCK-MOVE 4>
|
|
<GUARD-WATCHER T>
|
|
<TELL
|
|
"You start to watch the guards, and take a moment to check their position
|
|
after everything you do.|
|
|
|
|
|
[The asterisk is your position, the T's are the three guard towers, and the
|
|
< and > characters are the guards, indicating their direction of motion.]"
|
|
CR>)>)
|
|
(<VERB? EXAMINE>
|
|
<I-CLOCKER ,CLOCK-MOVE>
|
|
<SETG CLOCK-MOVE 0>
|
|
<COND (<ZERO? .POS> <SET DIR "right">)
|
|
(<EQUAL? .POS 180> <SET DIR "left">)>
|
|
<SET MT <MOD ,CLOCK-TIME 180>>
|
|
<COND (<NOT <L? .MT 90>> <SET MT <- 180 .MT>>)>
|
|
<SET FACE? <GUARDS-FACING-EACH-OTHER?>>
|
|
<TELL
|
|
"Two guards are now visible, patrolling the area between the fences; ">
|
|
<COND (<EQUAL? .POS 90>
|
|
<SET TMP <* </ <- 100 .MT> 10> 10>>
|
|
<COND (<ZERO? .TMP> <SET TMP 5>)>
|
|
<TELL "both are about " N .TMP
|
|
" yards away, ">
|
|
<COND (<NOT ,GUARD-CHASE>
|
|
<TELL "and they are walking ">
|
|
<FACE-TELL .FACE? <>>)
|
|
(T
|
|
<TELL "moving carefully in your
|
|
direction, weapons drawn.">)>)
|
|
(T
|
|
<SET TMP <* </ <+ .MT 5> 10> 10>>
|
|
<COND (<ZERO? .TMP> <SET TMP 5>)>
|
|
<TELL "both are off to your " .DIR ", though
|
|
one is about " N .TMP " yards away, and the other is much farther off.
|
|
The guards are moving ">
|
|
<FACE-TELL .FACE? <>>)>
|
|
<COND (<NOT ,G-WATCH>
|
|
<TELL
|
|
" Since they are moving all the time, you would do
|
|
well to WATCH them.">)>
|
|
<CRLF>)
|
|
(<VERB? CALL YELL WAVE>
|
|
<TELL "Not very smart." CR>)
|
|
(T
|
|
<TELL
|
|
"You can't get close enough to the guards, and it's just as well." CR>)>>
|
|
|
|
<ROUTINE FLUSH-WATCHER ()
|
|
<SCREEN 1>
|
|
<BUFOUT <>>
|
|
<CURSET 2 1>
|
|
<INVERSE-LINE>
|
|
<CURSET 3 1>
|
|
<INVERSE-LINE>
|
|
<BUFOUT T>
|
|
<SCREEN 0>>
|
|
|
|
<ROUTINE FACE-TELL (FACE? "OPTIONAL" (CR? T))
|
|
<COND (.FACE? <TELL "toward">)
|
|
(T <TELL "away from">)>
|
|
<TELL " each other.">
|
|
<COND (.CR? <CRLF>)>
|
|
<RTRUE>>
|
|
|
|
<ROOM INF-1
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 3)
|
|
(PATH 0)
|
|
(DESC "Inside Fence")
|
|
(EAST TO INF-2 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(WEST SORRY
|
|
"That would put you directly in front of the border station, and that
|
|
would be suicidal.")
|
|
(NW SORRY
|
|
"That would put you directly in front of the border station, and that
|
|
would be suicidal.")
|
|
(SOUTH PER FENCE-CROSS)
|
|
(NE PER GUARD-MOVE-TWR)
|
|
(NORTH PER GUARD-CATCH)
|
|
(ACROSS OUTF-1)
|
|
(ACTION INF-F)
|
|
(GPOS 0)
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<ROUTINE INF-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You're just inside the fence. Fifteen feet before you is the base of
|
|
the guard tower, and beyond that the fence at the border itself. Behind
|
|
you, to the south, is the hundred yards of no-man's-land you've been
|
|
across. It is peaceful here, but the searchlights passing harmlessly
|
|
overhead remind you that you are in great danger. Fortunately, some small
|
|
snowdrifts give some protection from the guards, although you're
|
|
easily spotted once their suspicions are aroused. You'd best be very
|
|
careful if you're to avoid detection." CR>
|
|
<COND (<NOT ,G-WATCH>
|
|
<CRLF>
|
|
;<I-CLOCKER ,CLOCK-MOVE>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXAMINE ,GUARDS>
|
|
;<SETG CLOCK-MOVE 0>)>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE FENCE-CROSS ()
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?ENTER ,FENCE>
|
|
<RFALSE>>
|
|
|
|
<ROOM OUTF-2
|
|
(LOC ROOMS)
|
|
(DESC "Outside Fence")
|
|
(NS 1)
|
|
(EW 4)
|
|
(PATH 0)
|
|
(NORTH PER FENCE-CROSS)
|
|
(EAST TO OUTF-3 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(WEST TO OUTF-1 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(SOUTH PER NOMANS-MOVE)
|
|
(SE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(SW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(NOMAN
|
|
<TABLE <TABLE 90 135 0 0> <TABLE 180 180 0 0> <TABLE 270 225 0 0> D2>)
|
|
(ACROSS INF-2)
|
|
(ACTION OUTF-F)
|
|
(GPOS 90)
|
|
(FLAGS GVIEWBIT SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<ROOM INF-2
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 4)
|
|
(PATH 0)
|
|
(DESC "Inside Fence")
|
|
(EAST TO INF-3 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(WEST TO INF-1 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(NE PER GUARD-CATCH)
|
|
(NW PER GUARD-CATCH)
|
|
(NORTH PER GUARD-MOVE-TWR)
|
|
(SOUTH PER FENCE-CROSS)
|
|
(ACROSS OUTF-2)
|
|
(ACTION INF-F)
|
|
(GPOS 90)
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<ROOM OUTF-3
|
|
(LOC ROOMS)
|
|
(DESC "Outside Fence")
|
|
(NS 1)
|
|
(EW 5)
|
|
(PATH 0)
|
|
(NORTH PER FENCE-CROSS)
|
|
(EAST SORRY "That would be suicidal.")
|
|
(WEST TO OUTF-2 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(SOUTH PER NOMANS-MOVE)
|
|
(SE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(SW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the forest to the south.")
|
|
|
|
(NOMAN
|
|
<TABLE <TABLE 90 120 0 0> <TABLE 90 135 0 0> <TABLE 180 180 0 0> E2>)
|
|
(ACROSS INF-3)
|
|
(ACTION OUTF-F)
|
|
(GPOS 180)
|
|
(FLAGS GVIEWBIT SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<ROOM INF-3
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 5)
|
|
(PATH 0)
|
|
(DESC "Inside Fence")
|
|
(EAST SORRY "That would be suicidal.")
|
|
(WEST TO INF-2 IF FALSE-FLAG ELSE
|
|
"You crawl along the ground until you reach a point directly south of the
|
|
next guard tower.")
|
|
(NW PER GUARD-MOVE-TWR)
|
|
(NORTH PER GUARD-CATCH)
|
|
(NE SORRY "That would be suicidal.")
|
|
(SOUTH PER FENCE-CROSS)
|
|
(ACROSS OUTF-3)
|
|
(ACTION INF-F)
|
|
(GPOS 180)
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS FENCE FENCE-HOLE FENCE-SIGN TOWER GUARDS BORDER-FENCE)>
|
|
|
|
<OBJECT FENCE-HOLE
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "hole")
|
|
(SYNONYM HOLE SLIT CUT BREAK)
|
|
(ACTION FENCE-HOLE-F)>
|
|
|
|
<ROUTINE FENCE-HOLE-F ()
|
|
<COND (<VERB? OPEN>
|
|
<PERFORM ,V?OPEN ,FENCE>
|
|
<RTRUE>)
|
|
(<VERB? CUT>
|
|
<PERFORM ,V?CUT ,FENCE ,PRSI>
|
|
<RTRUE>)
|
|
(<AND <NOT <FSET? ,HERE ,FENCECUTBIT>>
|
|
<NOT <FSET? ,HERE ,FENCEBLOWNBIT>>>
|
|
<TELL
|
|
"There's no hole here." CR>)
|
|
(<VERB? ENTER BOARD>
|
|
<PERFORM ,PRSA ,FENCE>
|
|
<RTRUE>)
|
|
(<VERB? EXAMINE>
|
|
<COND (<OR <FSET? ,HERE ,FENCEBLOWNBIT>
|
|
<FSET? ,HERE ,FENCEBENTBIT>>
|
|
<TELL
|
|
"The hole in the fence is large enough to go through." CR>)
|
|
(T
|
|
<TELL
|
|
"The vertical slit is about three feet long, though you'd
|
|
have to get it out of the way if you wanted to go through." CR>)>)>>
|
|
|
|
<ROUTINE GUARD-CATCH ()
|
|
<JIGS-UP
|
|
"You start across to the guard tower, but you are spotted by one of the
|
|
guards, who was facing in your direction. He calls out, and you turn to
|
|
find a place to hide. A shot rings out, and you are hit! When you come
|
|
to, you are surrounded by guards.">
|
|
<RFALSE>>
|
|
|
|
<ROUTINE GUARD-MOVE-TWR ("OPTIONAL" (RM ,TWR-2))
|
|
<COND (<IN-GUARD-VIEW?>
|
|
<GUARD-CATCH>)
|
|
(T
|
|
<TELL
|
|
"You run across to the base of the ">
|
|
<COND (<EQUAL? .RM ,TWR-2> <TELL "guard tower">)
|
|
(<EQUAL? .RM ,BDR-2> <TELL "border fence">)
|
|
(T <TELL "first fence">)>
|
|
<TELL "; apparently, you weren't
|
|
seen by the guards." CR CR>
|
|
.RM)>>
|
|
|
|
<ROUTINE GUARD-MOVE-BDR () <GUARD-MOVE-TWR ,BDR-2>>
|
|
|
|
<ROUTINE GUARD-MOVE-INF () <GUARD-MOVE-TWR ,INF-2>>
|
|
|
|
<ROUTINE LADDER-CLIMB ()
|
|
<SETG CLOCK-MOVE 10>
|
|
<TELL
|
|
"You quietly ascend the ladder and arrive at the closed door." CR CR>
|
|
,LADDER-TOP>
|
|
|
|
<ROUTINE LADDER-DESCEND ()
|
|
<COND (,ON-BRACE?
|
|
<TELL
|
|
"You'd better get off the brace first." CR>
|
|
<RFALSE>)>
|
|
<SETG CLOCK-MOVE 10>
|
|
<TELL
|
|
"You clamber down the ladder to the base of the tower." CR CR>
|
|
,TWR-2>
|
|
|
|
<ROOM TOWER-SOUTH
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 4)
|
|
(GPOS 90)
|
|
(PATH 0)
|
|
(DESC "Tower, South Side")
|
|
(LDESC
|
|
"The guard post itself looks both north and south. To the south, one can
|
|
look out over the no-man's-land and toward the forest.
|
|
The machine gun bolted to the floor is a grim reminder of the obstacles you
|
|
have faced so far. To the north, only a few feet beyond reach and about
|
|
five feet below you, lies the border fence.")
|
|
(NORTH SORRY
|
|
"That would mean jumping off the tower to your death.")
|
|
(OUT-DIR P?WEST)
|
|
(WEST TO LADDER-TOP IF TOWER-DOOR IS OPEN)
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL TOWER-DOOR BORDER-FENCE FENCE TOWER)>
|
|
|
|
<OBJECT GLOBAL-MACHINE-GUN
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "machine gun")
|
|
(SYNONYM GUN GUNS MACHINE-GUN)
|
|
(SCENARIO 2)
|
|
(ADJECTIVE MACHINE)
|
|
(ACTION GLOBAL-MACHINE-GUN-F)>
|
|
|
|
<ROUTINE GLOBAL-MACHINE-GUN-F ()
|
|
<COND (<EQUAL? ,HERE ,BDR-2>
|
|
<TELL
|
|
"The gun is on the other side of the tower." CR>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"It's hard to tell much, since all you can see is the business end, but
|
|
it's primary purpose would appear to be sniping at people crossing
|
|
the open field to the south. It doesn't appear that it can pivot
|
|
enough to hit anybody that has crossed the outer fence." CR>)
|
|
(T
|
|
<TELL ,TOO-FAR CR>)>>
|
|
|
|
<OBJECT MACHINE-GUN
|
|
(LOC TOWER-SOUTH)
|
|
(DESC "machine gun")
|
|
(SYNONYM GUN MACHINE-GUN)
|
|
(ADJECTIVE MACHINE)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION MACHINE-GUN-F)>
|
|
|
|
<ROUTINE MACHINE-GUN-F ()
|
|
<COND (<VERB? SHOOT KILL>
|
|
<TELL
|
|
"The machine gun is on a turret that swings in an arc of about 90 degrees,
|
|
taking in the entirety of no-man's-land. In retrospect, it must appear a
|
|
strange oversight that the gun cannot be used on the area between the fences.
|
|
In any event, there's nothing to be gained by firing the gun except to vent
|
|
some frustration." CR>)>>
|
|
|
|
<ROUTINE TOWER-ENTRY ()
|
|
<COND (,ON-BRACE?
|
|
<TELL "You'd better get off the brace first." CR>
|
|
<RFALSE>)
|
|
(<FSET? ,TOWER-DOOR ,OPENBIT>
|
|
,TOWER-SOUTH)
|
|
(T
|
|
<TELL "The tower door is closed." CR>
|
|
<RFALSE>)>>
|
|
|
|
<ROOM LADDER-TOP
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 4)
|
|
(GPOS 90)
|
|
(PATH 0)
|
|
(DESC "Tower Entrance")
|
|
(DOWN PER LADDER-DESCEND)
|
|
(IN-DIR P?EAST)
|
|
(EAST PER TOWER-ENTRY)
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL LADDER GUARDS TOWER TOWER-DOOR)
|
|
(ACTION LADDER-TOP-F)>
|
|
|
|
<ROUTINE LADDER-TOP-F (RARG "AUX" GD)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<COND (<NOT ,ON-BRACE?>
|
|
<TELL
|
|
"You are standing at the top of the wooden ladder, at the entrance to
|
|
the tower. The ladder itself is bolted to the tower near the base of
|
|
the door; for additional support, a metal brace runs horizontally between
|
|
the ladder and the southwest post, just a few steps below the top
|
|
rung. With a little luck, it would be possible to climb onto the brace."
|
|
CR CR>)
|
|
(T
|
|
<TELL
|
|
"You are perched on the metal brace which runs horizontally between
|
|
the ladder and the southwest post. From here, you are about two feet
|
|
below the level of the tower entrance, and can easily watch the border
|
|
guards' movements with little chance of detection." CR CR>)>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXAMINE ,GUARDS>)
|
|
(<AND ,GUARD-WAIT
|
|
<EQUAL? .RARG ,M-ENTER>>
|
|
<JIGS-UP
|
|
"You walk out into the open, as five guards with weapons raised stand
|
|
ready. Slowly, you descend the stairs and are taken into custody.">)
|
|
(<AND <EQUAL? .RARG ,M-BEG>
|
|
<VERB? DROP>
|
|
,ON-BRACE?>
|
|
<COND (<G? <GETP ,PRSO ,P?SIZE>
|
|
</ <SET GD <GUARD-DISTANCE>> 3>>
|
|
<TELL
|
|
"The " D ,PRSO " drops to the ground, and the sound of its impact
|
|
is loud enough to alert the guards.">
|
|
<COND (<L? .GD 25>
|
|
<JIGS-UP "
|
|
One of the guards, close enough to take a good shot, fires, hitting you
|
|
in the leg. You drop to the ground, injured, but alive.">)
|
|
(T
|
|
<TELL
|
|
" They start to approach, weapons drawn." CR>)>
|
|
<START-GUARD-CHASE>)
|
|
(T
|
|
<TELL
|
|
"The " D ,PRSO " falls to the ground, where it becomes lost in a soft
|
|
pile of snow." CR>
|
|
<COND (<EQUAL? ,PRSO ,EXPLODING-PEN>
|
|
<DE-QUEUE ,I-FUSE-OFF>)>
|
|
<REMOVE ,PRSO>)>)
|
|
(<AND <EQUAL? .RARG ,M-BEG>
|
|
<VERB? WALK>
|
|
,ON-BRACE?>
|
|
<COND (<EQUAL? ,PRSO ,P?UP>
|
|
<PERFORM ,V?DISEMBARK ,BRACE>
|
|
<RTRUE>)>
|
|
<TELL
|
|
"You'd better get off the brace first." CR>
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT BRACE-POST
|
|
(LOC LADDER-TOP)
|
|
(DESC "post")
|
|
(SYNONYM POST POSTS)
|
|
(ADJECTIVE SW SOUTHWEST)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION BRACE-POST-F)>
|
|
|
|
<ROUTINE BRACE-POST-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<PERFORM ,PRSA ,SW-POST>)
|
|
(<NOT ,ON-BRACE?>
|
|
<TELL
|
|
"You can't reach it from here; perhaps if you were on the brace, though,
|
|
it would be possible." CR>)
|
|
(<EQUAL? ,BRACE-POST ,PRSO>
|
|
<PERFORM ,PRSA ,SW-POST ,PRSI>
|
|
<RTRUE>)
|
|
(T
|
|
<PERFORM ,PRSA ,PRSO ,SW-POST>
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT TOWER-DOOR
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "door")
|
|
(SYNONYM DOOR)
|
|
(ADJECTIVE TOWER METAL GUARD)
|
|
(FLAGS NDESCBIT DOORBIT)
|
|
(ACTION TOWER-DOOR-F)>
|
|
|
|
<ROUTINE TOWER-DOOR-F ()
|
|
<COND (<AND <VERB? CLOSE>
|
|
<FSET? ,PRSO ,OPENBIT>>
|
|
<COND (<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<TELL
|
|
"The door closes and locks." CR>
|
|
<FCLEAR ,PRSO ,OPENBIT>)>)
|
|
(<VERB? LOCK>
|
|
<TELL
|
|
"The door locks automatically when it closes." CR>)
|
|
(<AND <VERB? OPEN>
|
|
<NOT <FSET? ,PRSO ,OPENBIT>>>
|
|
<COND (<EQUAL? ,HERE ,LADDER-TOP>
|
|
<TELL
|
|
"It's locked; trying to open it would only get you caught." CR>)>)
|
|
(<VERB? KNOCK>
|
|
<COND (,GUARD-FOOLED
|
|
<JIGS-UP
|
|
"You rap on the door again. This time, the guard has figured out your
|
|
game and is prepared. He swings around, and smashes his automatic weapon into
|
|
your head, knocking you to the ground below. You aren't killed, but it sure
|
|
feels like it, and a moment later, you are surrounded by unsympathetic
|
|
guards.">)
|
|
(<IN? ,GUARD-LEG ,HERE>
|
|
<TELL
|
|
"Are you crazy? The guard is practically on top of you!" CR>)
|
|
(,ON-BRACE?
|
|
<TELL
|
|
"You reach up and rap on the door. A few moments later, you hear the
|
|
door open, and the guard calls out \"Who is there?\" He pauses for a moment,
|
|
then takes a step down the ladder, his left leg barely missing your cheek."
|
|
CR>
|
|
<MOVE ,GUARD-LEG ,HERE>
|
|
<FSET ,TOWER-DOOR ,OPENBIT>
|
|
<RT-QUEUE ,I-GUARD-BACK 40>)
|
|
(T
|
|
<JIGS-UP
|
|
"You knock on the door. A moment later, the door opens, and you are
|
|
facing a guard whose automatic weapon is aimed at your head.">)>)>>
|
|
|
|
<GLOBAL GUARD-FOOLED <>>
|
|
|
|
<ROUTINE I-GUARD-BACK ()
|
|
<COND (<ZERO? <LOC ,GUARD-LEG>>
|
|
<RTRUE>)>
|
|
<REMOVE ,GUARD-LEG>
|
|
<SETG GUARD-FOOLED T>
|
|
<FCLEAR ,TOWER-DOOR ,OPENBIT>
|
|
<BOLDTELL
|
|
"Having satisfied himself that he has been daydreaming, the guard
|
|
moves back into the tower, shutting the door behind him.">>
|
|
|
|
<OBJECT GUARD-LEG
|
|
(DESC "guard's leg")
|
|
(SYNONYM GUARD LEG)
|
|
(ADJECTIVE GUARDS GUARD\'S)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION GUARD-LEG-F)>
|
|
|
|
<ROUTINE GUARD-LEG-F ("AUX" GD)
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"There's not much to say, really. It's just a pair of legs in uniform,
|
|
presumably attached to a man whom you would prefer not to meet." CR>)
|
|
(<OR <VERB? TAKE MOVE PULL>
|
|
<HURT? ,PRSO>>
|
|
<TELL
|
|
"With a short yelp, the guard stumbles,
|
|
then falls head-first to the ground with a sickening thud. The guards
|
|
on their rounds take notice and start moving toward you. Not knowing
|
|
whether or not you are armed, they approach slowly and carefully." CR>
|
|
<REMOVE ,GUARD-LEG>
|
|
<MOVE ,INJURED-GUARD ,TWR-2>
|
|
<COND (<L? <SET GD <GUARD-DISTANCE>> 25>
|
|
<CRLF>
|
|
<JIGS-UP
|
|
"They are close enough to take a few quick shots, one of which hits you
|
|
in the leg, causing you to topple off the brace and onto the ground.
|
|
You survive, but it's little consolation.">
|
|
<RTRUE>)
|
|
(T
|
|
<START-GUARD-CHASE .GD>)>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE START-GUARD-CHASE (GD)
|
|
<RT-QUEUE ,I-TOWER <- .GD 25>>
|
|
<SETG GUARD-CHASE .GD>
|
|
<SETG NODOGS-FLAG T>
|
|
<SETG GUARD-CHASE-TIME ,CLOCK-TIME>>
|
|
|
|
<GLOBAL GUARD-CHASE <>>
|
|
|
|
<GLOBAL GUARD-CHASE-TIME <>>
|
|
|
|
<OBJECT INJURED-GUARD
|
|
(DESC "crumpled body")
|
|
(FDESC
|
|
"The crumpled body of the fallen guard is lying on the ground. Beneath
|
|
him lies his machine gun.")
|
|
(SYNONYM BODY HEAP GUN MACHINE-GUN)
|
|
(ADJECTIVE INJURED MACHINE CRUMPLED CONTORTED)
|
|
(ACTION INJURED-GUARD-F)>
|
|
|
|
<ROUTINE INJURED-GUARD-F ()
|
|
<TELL
|
|
"The guards are drawing closer as you reach the sprawled body." CR CR>
|
|
<I-TOWER>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE INT-TIME () <+ ,CLOCK-TIME ,CLOCK-TICKS>>
|
|
|
|
<ROUTINE I-TOWER ()
|
|
<COND (<EQUAL? ,HERE ,LADDER-TOP ,TWR-2 ,BDR-2>
|
|
<COND (,G-WATCH
|
|
<UPDATE-CHRONOGRAPH 0 T>)>
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<TELL
|
|
"The guards reach a position within firing range, and fire at you, hitting
|
|
you in the back. You ">
|
|
<COND (<NOT <EQUAL? ,HERE ,LADDER-TOP>>
|
|
<TELL "s">)>
|
|
<TELL "tumble to the ground, unconscious, but alive.">
|
|
<COND (<EQUAL? ,HERE ,LADDER-TOP>
|
|
<SETG HERE ,TWR-2>
|
|
<MOVE ,WINNER ,TWR-2>
|
|
<STATUS-LINE>)>
|
|
<JIGS-UP " ">)
|
|
(<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<BOLDTELL
|
|
"The guards reach the base of the tower, and fire a few shots. After some
|
|
muffled discussion, they call out: \"It is of no use. Come out, or we shall
|
|
be forced to kill you! You have 15 seconds to decide!\"">
|
|
<RT-QUEUE ,I-CHARGE 15>
|
|
<SETG GUARD-WAIT T>)
|
|
(T
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<JIGS-UP
|
|
"All at once, you feel lightheaded and stumble to the ground, overcome
|
|
by the cumulative effects of pain, blood loss, cold, and your strenuous
|
|
efforts. You are found not long afterwards, and placed under arrest.">)>>
|
|
|
|
<GLOBAL GUARD-WAIT <>>
|
|
|
|
<ROUTINE I-CHARGE ()
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<TELL
|
|
"You can hear the guards charging up the ladder." CR CR>
|
|
<COND (<FSET? ,TOWER-DOOR ,OPENBIT>
|
|
<JIGS-UP
|
|
"A moment later, they burst through the door and take you into custody.">)
|
|
(T
|
|
<TELL
|
|
"They arrive at the door, and find it locked. Angrily, one guard calls
|
|
down for the key; a moment later, shots ring out as the frustrated guard
|
|
riddles the lock mechanism with holes. You've only got moments before
|
|
you are captured!">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>
|
|
<RT-QUEUE ,I-CATCH 10>)>>
|
|
|
|
<ROUTINE I-CATCH ()
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<JIGS-UP
|
|
"The guards burst through the door; a shot is fired - you are hit!">>
|
|
|
|
<OBJECT BRACE
|
|
(LOC LADDER-TOP)
|
|
(DESC "brace")
|
|
(SYNONYM BRACE)
|
|
(ADJECTIVE METAL)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION BRACE-F)>
|
|
|
|
<GLOBAL ON-BRACE? <>>
|
|
|
|
<ROUTINE BRACE-F ()
|
|
<COND (<VERB? BOARD CLIMB-ON CLIMB CLIMB-UP>
|
|
<COND (,ON-BRACE?
|
|
<TELL "You're already on it." CR>)
|
|
(T
|
|
;<FCLEAR ,HERE ,GVIEWBIT>
|
|
<SETG CLOCK-MOVE 8>
|
|
<TELL
|
|
"You're now standing on the brace, just a few feet below the top rung
|
|
of the ladder. The bottom corner of the door is just visible from your
|
|
position. A quick check below confirms that you are relatively well hidden
|
|
from the pacing guards." CR>)>
|
|
<SETG ON-BRACE? T>)
|
|
(<VERB? LEAP>
|
|
<COND (<NOT ,ON-BRACE?>
|
|
<TELL
|
|
"You're not on the brace." CR>
|
|
<RTRUE>)>
|
|
<TELL
|
|
"You'd break both of your legs." CR>)
|
|
(<VERB? DISEMBARK TAKE-OFF CLIMB-DOWN>
|
|
<COND (<NOT ,ON-BRACE?>
|
|
<TELL
|
|
"You're not on the brace." CR>
|
|
<RTRUE>)>
|
|
<COND (<IN? ,GUARD-LEG ,HERE>
|
|
<JIGS-UP
|
|
"As you start to reach the ladder, the guard glimpses you out of the
|
|
corner of his eye, and instinctively swings his weapon into your head,
|
|
knocking you onto the ground. You survive, fortunately, but you
|
|
have been captured.">
|
|
<RTRUE>)>
|
|
<SETG CLOCK-MOVE 5>
|
|
<TELL
|
|
"You're now back at the top of the ladder." CR>
|
|
<FSET ,HERE ,GVIEWBIT>
|
|
<SETG ON-BRACE? <>>
|
|
<RTRUE>)>>
|
|
|
|
<ROOM TWR-2
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 4)
|
|
(GPOS 90)
|
|
(PATH 0)
|
|
(DESC "Center Tower")
|
|
(UP PER LADDER-CLIMB)
|
|
(SE PER GUARD-CATCH)
|
|
(SW PER GUARD-CATCH)
|
|
(NORTH PER GUARD-MOVE-BDR)
|
|
(EAST PER GUARD-CATCH)
|
|
(WEST PER GUARD-CATCH)
|
|
(SOUTH PER GUARD-MOVE-INF)
|
|
(NE PER GUARD-CATCH)
|
|
(NW PER GUARD-CATCH)
|
|
(GLOBAL LADDER TOWER BORDER-FENCE GUARDS)
|
|
(FLAGS GVIEWBIT)
|
|
(ACTION TWR-F)>
|
|
|
|
<ROUTINE TWR-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You're underneath the middle guard tower. The tower itself is supported
|
|
by four metal posts which rise to a height of twenty feet or so. Entrance to
|
|
the tower itself is via a wooden ladder running up and to the east at
|
|
the southwest corner of the tower
|
|
and leading to a closed door. Just a few dozen feet beyond the northern posts,
|
|
beyond a seemingly impenetrable border fence, lies freedom." CR CR>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXAMINE ,GUARDS>)>>
|
|
|
|
<OBJECT BINOCULARS
|
|
(LOC INSIDE-SHED)
|
|
(DESC "pair of binoculars")
|
|
(SYNONYM PAIR BINOCULARS GLASSES BINOCS)
|
|
(FDESC
|
|
"Hanging from a hook near the door is a pair of binoculars.")
|
|
(ADJECTIVE FIELD)
|
|
(FLAGS TAKEBIT TRANSBIT)
|
|
(SCENARIO 2)
|
|
(ACTION BINOCULARS-F)>
|
|
|
|
<ROUTINE BINOCULARS-F ()
|
|
<COND (<VERB? WEAR>
|
|
<TELL
|
|
"The strap seems to be gone; you'll just have to carry them." CR>)
|
|
(<VERB? EXAMINE LOOK-INSIDE>
|
|
<TELL
|
|
"They are your typical pair of binoculars with a magnification of perhaps
|
|
eight times. If you want to look at something in particular through them,
|
|
try saying \"LOOK THROUGH BINOCULARS AT something.\"" CR>)
|
|
(<AND <VERB? EXAMINE-THROUGH>
|
|
<EQUAL? ,PRSI ,BINOCULARS>>
|
|
<COND (<AND <EQUAL? ,PRSO ,FENCE-SIGN>
|
|
<AT-NML?>>
|
|
<SIGN-READER>
|
|
<RTRUE>)
|
|
(<AND <EQUAL? ,PRSO ,FENCE>
|
|
<AT-NML?>>
|
|
<PERFORM ,V?EXAMINE ,FENCE>
|
|
<TELL CR
|
|
"Through the binoculars, you can make out what the signs say:" CR>
|
|
<SIGN-READER>)
|
|
(<AND <EQUAL? ,PRSO ,BORDER-FENCE>
|
|
<AT-NML?>>
|
|
<PERFORM ,V?EXAMINE ,PRSO>
|
|
<TELL CR
|
|
"It doesn't appear that any more detail has been found than you could
|
|
see with your naked eye." CR>)
|
|
(<AND <EQUAL? ,PRSO ,GUARDS>
|
|
<AT-NML?>>
|
|
<TELL
|
|
"It's a little easier to see the guards now, but the glare of the
|
|
searchlights is still annoying. There are clearly two guards; they
|
|
appear to march back and forth between the three towers, meeting in the
|
|
middle under the second tower. They are armed with automatic weapons,
|
|
and have that distinctive no-nonsense air about them which seems quite
|
|
appropriate for their job. A quick scan at the towers themselves reveal
|
|
that each has a guard poised ready at his machine gun." CR>)
|
|
(<AND <EQUAL? ,PRSO ,TOWER>
|
|
<AT-NML?>>
|
|
<TELL
|
|
"With the " D ,PRSI ", the towers are easily seen. The important detail
|
|
seems to be that each tower has a guard inside, with a machine gun trained
|
|
on the field that lies before you." CR>
|
|
<COND (,TOWER-DESTROYED
|
|
<TELL CR
|
|
"The bomb you left seems to have quite an impact, as the middle tower
|
|
is lying in ruins on the ground." CR>)>
|
|
<RTRUE>)
|
|
;(<AND <EQUAL? ,PRSO ,SHED>
|
|
<EQUAL? ,HERE ,OUTSIDE-SHED>>
|
|
<TELL
|
|
"It appears to be a small, wooden building; too small, in fact, for a home.
|
|
Perhaps it is a utility shed or an outhouse.">
|
|
<COND (<IN? ,HUT-MAN ,OUTSIDE-SHED>
|
|
<TELL
|
|
" There's somebody standing outside, but you don't recognize him.">)>
|
|
<CRLF>)
|
|
(<ULTIMATELY-IN? ,PRSO ,WINNER>
|
|
<TELL
|
|
"Perhaps you are becoming near-sighted, but this is surely extreme.
|
|
You remind yourself to get a \"company\" physical, if you survive." CR>)
|
|
(T
|
|
<TELL
|
|
"There's nothing more to be seen than with the naked eye." CR>)>)>>
|
|
|
|
<ROUTINE AT-NML? ()
|
|
<OR <EQUAL? ,HERE ,B2 ,C2 ,D2>
|
|
<EQUAL? ,HERE ,E2 ,A2>>>
|
|
|
|
<OBJECT EXPLODING-PEN
|
|
(DESC "pen")
|
|
(SYNONYM PEN EXPLOSIVE)
|
|
(ADJECTIVE EXPLODING)
|
|
(FLAGS TAKEBIT OPENBIT CONTBIT SURFACEBIT)
|
|
(SCENARIO 2)
|
|
(ACTION EXPLODING-PEN-F)>
|
|
|
|
<CONSTANT SANITY-2
|
|
"Your sanity is coming into question. Perhaps it is the blood loss.">
|
|
|
|
<ROUTINE EXPLODING-PEN-F ()
|
|
<COND (<AND <VERB? TIE PUT-ON>
|
|
<EQUAL? ,PRSO ,EXPLODING-PEN>>
|
|
<COND (<IN? ,PRSI ,GLOBAL-OBJECTS>
|
|
<TELL ,SANITY-2 CR>)
|
|
(T
|
|
<TELL
|
|
"The pen won't stick to the " D ,PRSI ,PERIOD-CR>)>)
|
|
(<VERB? EXAMINE>
|
|
<COND (,BOMB-DUD
|
|
<TELL
|
|
"It looks like the bomb is a dud." CR>)
|
|
(T
|
|
<TELL
|
|
"Although the pen looks quite ordinary, it's nothing of the sort. It is,
|
|
in fact, an explosive device that you've always thought well-suited for a
|
|
James Bond movie. When the cap is removed, a small button is revealed.
|
|
Each push of the button sets the internal timer for an additional minute
|
|
before detonation. When the cap is replaced, the explosive is armed and
|
|
nothing can stop it. It's not very powerful, but it can do the job. It
|
|
is also highly magnetic, making it easier to place, but more difficult
|
|
to handle in the vicinity of wire hangers and the like." CR>)>)
|
|
(<AND <VERB? PUT PUT-ON TIE>
|
|
<EQUAL? ,PRSI ,EXPLODING-PEN>
|
|
<NOT <EQUAL? ,PRSO ,PEN-CAP>>>
|
|
<TELL
|
|
"The only thing you can put on the pen is the pen cap." CR>)
|
|
(<AND <VERB? OPEN>
|
|
<IN? ,PEN-CAP ,EXPLODING-PEN>>
|
|
<PERFORM ,V?TAKE ,PEN-CAP>
|
|
<THIS-IS-IT ,EXPLODING-PEN>
|
|
<RTRUE>)
|
|
(<VERB? OPEN>
|
|
<TELL
|
|
"It's as open as it gets." CR>)
|
|
(<AND <VERB? CLOSE>
|
|
<IN? ,PEN-CAP ,WINNER>>
|
|
<PERFORM ,V?PUT-ON ,PEN-CAP ,EXPLODING-PEN>
|
|
<THIS-IS-IT ,EXPLODING-PEN>
|
|
<RTRUE>)
|
|
(<VERB? THROW>
|
|
<TELL
|
|
"No, it's not the sort of explosive that detonates on impact, though
|
|
come to think of it, that wouldn't be bad to have. Just place it where you
|
|
want it." CR>)>>
|
|
|
|
<GLOBAL BOMB-DUD <>>
|
|
|
|
<ROUTINE I-FUSE ("AUX" RM RMA L)
|
|
<SETG I-FATAL T>
|
|
<PUT ,CLOCK-TBL ,I-FUSE-OFF 32767>
|
|
<SETG CHRONOGRAPH-TIME ,FUSE-ARMED>
|
|
<UPDATE-CHRONOGRAPH 0>
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<COND (<IN? ,EXPLODING-PEN ,KNAPSACK>
|
|
<MOVE ,EXPLODING-PEN <LOC ,KNAPSACK>>
|
|
<REMOVE ,KNAPSACK>)>
|
|
<SET L <LOC ,EXPLODING-PEN>>
|
|
<COND (<ULTIMATELY-IN? ,EXPLODING-PEN ,WINNER>
|
|
<TELL
|
|
"The exploding pen does its thing, and you have finished doing yours.">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>
|
|
<FINISH>)
|
|
(<OR <ULTIMATELY-IN? ,EXPLODING-PEN ,HERE>
|
|
<AND <EQUAL? .L ,FENCE>
|
|
<GLOBAL-IN? ,FENCE ,HERE>
|
|
<FSET? ,HERE ,PENBIT>>>
|
|
<TELL
|
|
"The pen explodes nearby, and you are wounded by the flying debris. ">
|
|
<COND (,GUARD-CHASE
|
|
<JIGS-UP
|
|
"The pursuing guards are more fortunate.">)
|
|
(T
|
|
<JIGS-UP
|
|
"Naturally, the explosion attracts the attention of the border guards, who
|
|
are rapidly on the scene.">)>)
|
|
(<IN? ,EXPLODING-PEN ,FENCE>
|
|
<COND (<FSET? ,OUTF-1 ,PENBIT>
|
|
<SET RM ,OUTF-1>)
|
|
(<FSET? ,OUTF-2 ,PENBIT>
|
|
<SET RM ,OUTF-2>)
|
|
(T
|
|
<SET RM ,OUTF-3>)>
|
|
<SET RMA <GETP .RM ,P?ACROSS>>
|
|
<FSET .RM ,FENCEBLOWNBIT>
|
|
<FSET .RMA ,FENCEBLOWNBIT>
|
|
<FCLEAR .RM ,PENBIT>
|
|
<FCLEAR .RMA ,PENBIT>
|
|
<SETG VIGILANCE T>
|
|
<BOMB-TELL .RM>)
|
|
(<EQUAL? .L ,NW-POST ,NE-POST>
|
|
<COND (<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<TELL
|
|
"The pen explodes, and a long moment passes in silence. The tower
|
|
starts to tremble, and a moment later you're tumbling down toward
|
|
the ground. You don't arrive, however, as the rear of the tower
|
|
catches the top of the border fence. For a second, you are suspended
|
|
over the border, the sound of approaching guards and
|
|
scattered machine gun fire echoing in your ears. And then the tower itself
|
|
falls over, landing in a small heap just across the border. As if by instinct,
|
|
you lift yourself up and move into the darkness beyond. You don't quite
|
|
know where you are, but what the heck, you're safe now. Somebody will
|
|
find you sooner or later, but for now sleep doesn't sound so bad...|
|
|
|
|
|
|
|
|
Congratulations! You have survived the second chapter of Border Zone.
|
|
The story continues with Chapter 3: The Assassination. To start, type
|
|
CONTINUE at the next prompt.|
|
|
|
|
|
">
|
|
<FINISH 3>)
|
|
(<EQUAL? ,HERE ,LADDER-TOP>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower gives way, and you fall to the ground. This must be your
|
|
lucky day, because the falling tower misses you by a small margin. Before
|
|
you are captured, you notice that the rearmost section of the
|
|
tower has fallen on the other side of the border.">
|
|
<JIGS-UP " ">)
|
|
(<EQUAL? ,HERE ,TWR-2 ,BDR-2>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower is about to give way, but you quickly move
|
|
aside, as the tower falls backward into the border fence, the northmost
|
|
section of the tower landing across the border, and the
|
|
remaining portion landing in a heap alongside you. Guards are everywhere,
|
|
and it's not long before you are captured.">
|
|
<JIGS-UP " ">)
|
|
(<FSET? ,HERE ,GVIEWBIT>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower gives way, falling backward toward the border fence. The
|
|
rearmost portion hits the fence itself, projecting part of the tower across
|
|
the border. The remainder falls in a heap on the ground. Guards quickly
|
|
arrive on the scene; one of them spots you, and you are speedily
|
|
captured.">
|
|
<JIGS-UP " ">)
|
|
(T
|
|
<SETG TOWER-DESTROYED T>
|
|
<TELL ,EXPLOSION-HEARD CR>)>)
|
|
(<EQUAL? .L ,SE-POST ,SW-POST ,LADDER-TOP>
|
|
<COND (<EQUAL? ,HERE ,TOWER-SOUTH ,LADDER-TOP>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower gives way, falling southward and to the group. You are flung
|
|
to the ground, fortunately just a few feet away from the bulk of the
|
|
debris. Dazed, you slowly regain your feet as the guards arrive to place
|
|
you under arrest.">
|
|
<JIGS-UP " ">)
|
|
(<EQUAL? ,HERE ,TWR-2 ,BDR-2>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower is about to give way, but you quickly move
|
|
aside, as the tower falls forward, away from the border, landing in a
|
|
heap alongside you. Guards
|
|
are everywhere, and it's not long before you are captured.">
|
|
<JIGS-UP " ">)
|
|
(<FSET? ,HERE ,GVIEWBIT>
|
|
<PEN-POOF>
|
|
<TELL
|
|
" The tower gives way, falling forward, away from the border, in a heap.
|
|
Guards quickly
|
|
arrive on the scene; one of them spots you, and you are speedily
|
|
captured.">
|
|
<JIGS-UP " ">)
|
|
(T
|
|
<SETG TOWER-DESTROYED T>
|
|
<TELL ,EXPLOSION-HEARD CR>)>)
|
|
(<OR <FSET? .L ,HUTBIT>
|
|
<FSET? .L ,OUTHUTBIT>>
|
|
<SETG HUT-BURNING T>
|
|
<HUT-MUNGER>
|
|
<REMOVE ,SCOUT>
|
|
<COND (<FSET? ,HERE ,HUTBIT> ; "In another room"
|
|
<TELL
|
|
"The pen explodes nearby, and immediately the hut
|
|
catches fire. You stumble through the smoke-filled air, and end up
|
|
outside the rear of the hut, dazed but unhurt.">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>
|
|
<CRLF>
|
|
<GOTO ,BEHIND-HUT>
|
|
<STATUS-LINE>)
|
|
(<FSET? ,HERE ,OUTHUTBIT>
|
|
<TELL "The pen explodes ">
|
|
<COND (<FSET? .L ,OUTHUTBIT>
|
|
<TELL "around the other side of">)
|
|
(T
|
|
<TELL "somewhere inside">)>
|
|
<TELL " the hut. Almost at once,
|
|
you can smell the burning wood as the hut starts to go up in flames.">)
|
|
(T
|
|
<BOMB-TELL .L>)>
|
|
<COND (,CAR-SEQUENCE
|
|
<RUN-CAR-SEQUENCE>)>
|
|
<COND (<IN? ,HUT-MAN ,OUTSIDE-HUT>
|
|
<SETG WOOD-COUNT -10000>
|
|
<REMOVE ,HUT-MAN>)>)
|
|
(<FSET? .L ,GVIEWBIT>
|
|
<SETG VIGILANCE T>
|
|
<COND (<OR <FSET? ,HERE ,GVIEWBIT>
|
|
<FSET? ,HERE ,SLVIEWBIT>>
|
|
<TELL
|
|
"The pen explodes, sending debris flying into the air. Naturally, the guards
|
|
have all taken notice, making your position quite precarious." CR>)
|
|
(T
|
|
<BOMB-TELL .L>)>)
|
|
(<EQUAL? .L ,OUTSIDE-SHED>
|
|
<COND (<EQUAL? ,HERE ,INSIDE-SHED>
|
|
<TELL
|
|
"The bomb explodes outside the shed; fortunately for you, the wet ground
|
|
prevents a fire from spreading." CR>)
|
|
(T
|
|
<BOMB-TELL .L>)>)
|
|
(<EQUAL? .L ,INSIDE-SHED>
|
|
;<TELL "Unimplemented explosion: Shed destroyed." CR>
|
|
<SETG I-FATAL <>>
|
|
<MOVE ,EXPLODING-PEN ,INSIDE-SHED>
|
|
<SETG BOMB-DUD T>)
|
|
(<AND <L? <HOW-FAR ,D5 .L> 3>
|
|
<NOT <IN? ,HUT-MAN ,OUTSIDE-HUT>>>
|
|
<MOVE ,HUT-MAN ,OUTSIDE-HUT>
|
|
<COND (<EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT ,BEHIND-HUT>
|
|
<TELL
|
|
"The pen explodes nearby with a rather loud noise; loud enough, in fact,
|
|
to ">
|
|
<COND (<AND <G? ,CAR-SEQUENCE 0>
|
|
<L? ,CAR-SEQUENCE 6>>
|
|
<SETG CAR-SEQUENCE 6>
|
|
<TELL
|
|
"hurry the owner up in reaching the guards outside.">)
|
|
(T
|
|
<SETG HUT-MAN-DIVERSION T>
|
|
<RT-QUEUE ,I-MAN-BACK 150>
|
|
<TELL
|
|
"alert the man inside the hut, who stands up and walks out of the
|
|
door to look around.">)>)
|
|
(T
|
|
<BOMB-TELL .L>)>)
|
|
(<EQUAL? .L ,CAR>
|
|
<COND (<ZERO? <LOC ,CAR>> T)
|
|
(<IN? ,CAR ,ROAD-END>
|
|
<REMOVE ,SCOUT>
|
|
<COND (<EQUAL? ,HERE ,SOUTH-HUT ,NORTH-HUT>
|
|
<COND (<EQUAL? ,HERE ,SOUTH-HUT>
|
|
<TELL
|
|
"The car explodes in a ball of red-orange flame.">)
|
|
(T
|
|
<TELL
|
|
"You hear the sound of the car exploding to the south.">)>
|
|
<TELL " The guards quickly
|
|
regroup and march off to the northeast (presumably to the roadblock
|
|
there).">
|
|
<COND (<IN? ,HUT-MAN ,OUTSIDE-HUT>
|
|
<MOVE ,HUT-MAN ,HUT-LIVING>
|
|
<TELL
|
|
" The man from the hut returns to the safety of his home.">)>)
|
|
(T
|
|
<BOMB-TELL .L>)>
|
|
<DEMOLISH-CAR>
|
|
<HLIGHT ,H-NORMAL>
|
|
<RTRUE>)
|
|
(<CAR-IN-VIEW?>
|
|
<TELL "Off to your ">
|
|
<TELL-DIRECTION ,HERE <LOC ,CAR>>
|
|
<DEMOLISH-CAR>
|
|
<TELL ", you watch as the car explodes in a ball
|
|
of red-orange flame. It's hard to believe there are any survivors.">)
|
|
(T
|
|
<BOMB-TELL .L>
|
|
<DEMOLISH-CAR>)>)
|
|
(T
|
|
<BOMB-TELL .L>)>
|
|
<REMOVE ,EXPLODING-PEN>
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>>
|
|
|
|
<GLOBAL TOWER-DESTROYED <>>
|
|
|
|
<OBJECT FLAMING-CAR
|
|
(DESC "burning car")
|
|
(SYNONYM CAR AUTOMOBILE)
|
|
(ADJECTIVE BURNING FLAMING)
|
|
(ACTION FLAMING-CAR-F)>
|
|
|
|
<ROUTINE FLAMING-CAR-F ()
|
|
<COND (<VERB? EXAMINE LOOK-INSIDE>
|
|
<TELL
|
|
"The car is entirely engulfed in flame, and it's hard to get very close. ">
|
|
<COND (,GUARDS-IN-CAR
|
|
<TELL
|
|
"Through the smoke and fire, you can see the burning bodies of the guards
|
|
inside; none, it seems, was lucky enough to get away">)
|
|
(T
|
|
<TELL
|
|
"You can't make out anything inside">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<OR <VERB? OPEN BOARD ENTER>
|
|
<TOUCHING? ,PRSO>>
|
|
<TELL
|
|
"You can't get close enough for that." CR>)>>
|
|
|
|
<GLOBAL GUARDS-IN-CAR <>>
|
|
|
|
<ROUTINE DEMOLISH-CAR ()
|
|
<COND (<NOT ,CAR-SEQUENCE>
|
|
<SETG GUARDS-IN-CAR T>)>
|
|
<SETG CAR-SEQUENCE <>>
|
|
<SETG CAR-ON-ROAD? <>>
|
|
<SETG SEQUENCE-RUN? T>
|
|
<MOVE ,FLAMING-CAR <LOC ,CAR>>
|
|
<REMOVE ,CAR>>
|
|
|
|
<ROUTINE CAR-IN-VIEW? ("AUX" (L <LOC ,CAR>))
|
|
<COND (<NOT <ZERO? <LOC ,FLAMING-CAR>>>
|
|
<SET L <LOC ,FLAMING-CAR>>)>
|
|
<COND (<AND <EQUAL? .L ,ROAD-END>
|
|
<EQUAL? ,HERE ,SOUTH-HUT ,NORTH-HUT>>
|
|
T)
|
|
(<AND <EQUAL? .L ,F4 ,F5>
|
|
<EQUAL? ,HERE ,F4 ,F5>>
|
|
T)
|
|
(<AND <EQUAL? .L ,D6 ,E6>
|
|
<EQUAL? ,HERE ,D6 ,E6>>
|
|
T)
|
|
(<AND <EQUAL? .L ,D6 ,D7 ,D8>
|
|
<EQUAL? ,HERE ,D6 ,D7 ,D8>>
|
|
T)>>
|
|
|
|
<GLOBAL HUT-MAN-DIVERSION <>>
|
|
|
|
<ROUTINE I-MAN-BACK ()
|
|
<SETG HUT-MAN-DIVERSION <>>
|
|
<MOVE ,HUT-MAN ,HUT-LIVING>
|
|
<COND (<OR <EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT ,BEHIND-HUT>
|
|
<EQUAL? ,HERE ,HUT-STORAGE ,HUT-BEDROOM>>
|
|
<BOLDTELL
|
|
"The man, confused about the source of the recent explosion, returns to the
|
|
comfort of his living room.">)>>
|
|
|
|
<ROUTINE BOMB-TELL (RM "AUX" HF)
|
|
<COND (<NOT <IN? .RM ,ROOMS>>
|
|
<SET RM <LOC .RM>>)>
|
|
<HOW-FAR ,HERE .RM>
|
|
<TELL "You hear a">
|
|
<COND (<L? .HF 2>
|
|
<TELL " loud ">)
|
|
(<L? .HF 4>
|
|
<TELL "n ">)
|
|
(T
|
|
<TELL " muffled ">)>
|
|
<TELL "explosion ">
|
|
<COND (<EQUAL? .HF 0> <TELL "nearby">)
|
|
(T
|
|
<TELL "off to the ">
|
|
<TELL-DIRECTION ,HERE .RM>)>
|
|
<TELL ,PERIOD-CR>>
|
|
|
|
<ROUTINE PEN-POOF ()
|
|
<TELL "The exploding pen does its thing, taking the "
|
|
D <LOC ,EXPLODING-PEN> " with it.">>
|
|
|
|
<GLOBAL EXPLOSION-HEARD
|
|
"You can hear an explosion in the distance.">
|
|
|
|
<GLOBAL FUSE-TIME 0>
|
|
|
|
<OBJECT PEN-CAP
|
|
(LOC EXPLODING-PEN)
|
|
(DESC "cap")
|
|
(SYNONYM CAP COVER)
|
|
(FLAGS TAKEBIT)
|
|
(SCENARIO 2)
|
|
(ACTION PEN-CAP-F)>
|
|
|
|
<ROUTINE PEN-CAP-F ()
|
|
<COND (<AND <VERB? TAKE>
|
|
<IN? ,PEN-CAP ,EXPLODING-PEN>>
|
|
<TELL
|
|
"Taking the cap reveals the internal timer button." CR>
|
|
<MOVE ,PEN-CAP ,WINNER>
|
|
<MOVE ,TIMER-BUTTON ,EXPLODING-PEN>)
|
|
(<AND <VERB? PUT PUT-ON>
|
|
<NOT <IN? ,PRSO ,PRSI>>
|
|
<EQUAL? ,PRSI ,EXPLODING-PEN>>
|
|
<MOVE ,PRSO ,PRSI>
|
|
<REMOVE ,TIMER-BUTTON>
|
|
<COND (<AND <ZERO? ,FUSE-ARMED>
|
|
<G? ,FUSE-TIME 0>>
|
|
<SETG FUSE-ARMED <* ,FUSE-TIME 60>>
|
|
<TELL
|
|
"The explosive is now armed; it will explode in ">
|
|
<NSPRINT ,FUSE-TIME "minute">
|
|
<TELL ". You reset your chronometer's
|
|
timer to zero and start it up." CR>
|
|
<SETG CLOCK-MOVE 0>
|
|
<SETG CHRONOGRAPH-TIME 0>
|
|
<SETG CHRONOGRAPH-ON T>
|
|
<UPDATE-CHRONOGRAPH 0>
|
|
<PUT ,CLOCK-TBL
|
|
,I-FUSE-OFF
|
|
<+ ,CLOCK-TIME ,FUSE-ARMED>>
|
|
<RTRUE>)
|
|
(<ZERO? ,FUSE-TIME>
|
|
<TELL
|
|
"You replace the cap, but the timing button was never pushed, so the
|
|
explosive isn't armed." CR>)>)
|
|
(<VERB? OPEN>
|
|
<PERFORM ,PRSA ,EXPLODING-PEN>
|
|
<RTRUE>)>>
|
|
|
|
<GLOBAL FUSE-ARMED 0>
|
|
|
|
<OBJECT TIMER-BUTTON
|
|
(DESC "timer button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE TIMER RED)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION TIMER-BUTTON-F)>
|
|
|
|
<ROUTINE TIMER-BUTTON-F ()
|
|
<COND (<VERB? PUSH>
|
|
<SETG CLOCK-MOVE 3>
|
|
<COND (<G? ,FUSE-ARMED 0>
|
|
<TELL
|
|
"It won't make any difference; the device is armed." CR>)
|
|
(<G? ,FUSE-TIME 59>
|
|
<TELL
|
|
"Nothing happens; perhaps you've worn the damned thing out." CR>)
|
|
(T
|
|
<TELL
|
|
"The button replies with an almost silent \"click\"; you've pushed
|
|
the timer button ">
|
|
<NSPRINT <SETG FUSE-TIME <+ ,FUSE-TIME 1>> "time">
|
|
<TELL ,PERIOD-CR>)>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"The button is small, red, and quite lethal." CR>)>>
|
|
|
|
<OBJECT LADDER
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "ladder")
|
|
(SYNONYM LADDER)
|
|
(ADJECTIVE METAL)
|
|
(ACTION LADDER-F)>
|
|
|
|
<ROUTINE LADDER-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The ladder is made of wood and climbs steeply up and to the east
|
|
at the southwest side of the tower, ending at a narrow landing
|
|
at the entrance to the tower
|
|
itself. It is secured in place not only at the tower entrance, but,
|
|
additionally, by a brace running horizontally between the ladder and the
|
|
southwest post at a point a few feet lower. From the sturdiness of
|
|
construction, you could probably climb the ladder without drawing the
|
|
attention of the occupant." CR>)
|
|
(<VERB? CUT>
|
|
<TELL "That would make too much noise." CR>)
|
|
(<OR <VERB? CLIMB CLIMB-UP BOARD>
|
|
<AND <VERB? CLIMB-ON> ,ON-BRACE?>>
|
|
<COND (<EQUAL? ,HERE ,TWR-2>
|
|
<DO-WALK ,P?UP>
|
|
<RTRUE>)
|
|
(,ON-BRACE?
|
|
<PERFORM ,V?DISEMBARK ,BRACE>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You're at the top." CR>)>)
|
|
(<VERB? CLIMB-DOWN>
|
|
<COND (<EQUAL? ,HERE ,LADDER-TOP>
|
|
<DO-WALK ,P?DOWN>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You're at the bottom." CR>)>)
|
|
(<AND <VERB? BOARD CLIMB-ON>
|
|
,ON-BRACE?>
|
|
<PERFORM ,V?LEAVE ,BRACE>
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT POSTS
|
|
(LOC TWR-2)
|
|
(DESC "posts")
|
|
(SYNONYM POSTS)
|
|
(ADJECTIVE METAL STEEL)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION POSTS-F)>
|
|
|
|
<ROUTINE POSTS-F ("AUX" (L <LOC ,EXPLODING-PEN>))
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"Each guard tower is supported by four posts of six-inch square steel.
|
|
They are situated on the northeast, northwest, southeast, and southwest
|
|
corners of the building. The posts rise to a height of twenty feet, where they
|
|
are welded to the underside of the tower proper." CR>
|
|
<COND (<OR <EQUAL? .L ,NE-POST ,NW-POST>
|
|
<EQUAL? .L ,SE-POST ,SW-POST>>
|
|
<TELL CR
|
|
"The pen is attached to the " D .L ,PERIOD-CR>)>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"It would be best to refer to each post individually, by its position
|
|
around the base of the tower (e.g. northeast, northwest, etc.)" CR>)>>
|
|
|
|
<OBJECT NW-POST
|
|
(LOC TWR-2)
|
|
(DESC "northwest post")
|
|
(SYNONYM POST)
|
|
(ADJECTIVE NORTHWEST NW)
|
|
(FLAGS NDESCBIT OPENBIT METALBIT)
|
|
(ACTION POST-F)>
|
|
|
|
<OBJECT NE-POST
|
|
(LOC TWR-2)
|
|
(DESC "northeast post")
|
|
(SYNONYM POST)
|
|
(ADJECTIVE NORTHEAST NE)
|
|
(FLAGS NDESCBIT OPENBIT METALBIT)
|
|
(ACTION POST-F)>
|
|
|
|
<OBJECT SW-POST
|
|
(LOC TWR-2)
|
|
(DESC "southwest post")
|
|
(SYNONYM POST)
|
|
(ADJECTIVE SOUTHWEST SW)
|
|
(FLAGS NDESCBIT OPENBIT METALBIT)
|
|
(ACTION POST-F)>
|
|
|
|
<OBJECT SE-POST
|
|
(LOC TWR-2)
|
|
(DESC "southeast post")
|
|
(SYNONYM POST)
|
|
(ADJECTIVE SOUTHEAST SE)
|
|
(FLAGS NDESCBIT OPENBIT METALBIT)
|
|
(ACTION POST-F)>
|
|
|
|
<ROUTINE POST-F ()
|
|
<COND (<AND <VERB? TIE PUT PUT-ON>
|
|
<OR <EQUAL? ,PRSI ,NW-POST ,NE-POST>
|
|
<EQUAL? ,PRSI ,SE-POST ,SW-POST>>>
|
|
<COND (<EQUAL? ,PRSO ,EXPLODING-PEN>
|
|
<MOVE ,PRSO ,PRSI>
|
|
<COND (<EQUAL? ,HERE ,LADDER-TOP>
|
|
<TELL
|
|
"The pen adheres to the post after sliding down it to a point
|
|
just a few feet from the ground. You can't reach it again from here,
|
|
but you could from down below." CR>)
|
|
(T
|
|
<TELL
|
|
"The pen adheres strongly to the metallic post, and you remember to
|
|
position it out of the line of sight of the passing guards.">)>)>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"Each post is six inches square, made of steel, and twenty-odd feet high.">
|
|
<COND (<EQUAL? ,PRSO ,SW-POST>
|
|
<TELL
|
|
" Near the top of this post, a horizontal brace can be seen connecting
|
|
the post to the ladder which leads to the tower's entrance.">)>
|
|
<COND (<IN? ,EXPLODING-PEN ,PRSO>
|
|
<TELL
|
|
" Positioned away from the guards' line of sight, the magnetic pen is
|
|
adhering to the post.">)>
|
|
<CRLF>)
|
|
(<VERB? MUNG KICK>
|
|
<CRLF>
|
|
<JIGS-UP
|
|
"You don't get anywhere so far as damaging the post is concerned; you
|
|
do, however, rattle it enough to alert the guard inside, who within
|
|
five seconds is upon you, gun drawn.">)>>
|
|
|
|
<OBJECT BORDER-FENCE
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "border fence")
|
|
(SYNONYM FENCE LINK LINKS)
|
|
(ADJECTIVE CHAIN-LINK CHAIN BORDER IMPENETRABLE TALL)
|
|
(GENERIC GENERIC-FENCE)
|
|
(FLAGS METALBIT)
|
|
(ACTION BORDER-FENCE-F)>
|
|
|
|
<ROUTINE BORDER-FENCE-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The fence is quite formidable. It rises to a height of fifteen feet above
|
|
the ground, and is made of a much heavier chain-link construction than the
|
|
first. The overhang, six feet wide, is a solid
|
|
sheet of metal, providing no possibility for scaling." CR>)
|
|
(<AT-NML?>
|
|
<TELL
|
|
"You'll have to get there first." CR>)
|
|
(<VERB? LEAP>
|
|
<COND (<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<TELL
|
|
"You're high enough, all right, but you'd probably end up skewered
|
|
on the barbed wire." CR>)
|
|
(T
|
|
<TELL "You're not Superman." CR>)>)
|
|
(<VERB? CLIMB-UP CLIMB CLIMB-OVER>
|
|
<TELL "Utterly hopeless." CR>)
|
|
(<AND <VERB? PUT PUT-ON TIE>
|
|
<EQUAL? ,PRSO ,EXPLODING-PEN>>
|
|
<TELL
|
|
"The pen won't adhere to the fence; perhaps it is not steel." CR>)
|
|
(<VERB? CUT MUNG>
|
|
<TELL "You haven't a chance of breaking through." CR>)>>
|
|
|
|
<ROOM BDR-2
|
|
(LOC ROOMS)
|
|
(NS 1)
|
|
(EW 4)
|
|
(PATH 0)
|
|
(GPOS 90)
|
|
(DESC "Border")
|
|
(SOUTH PER GUARD-MOVE-TWR)
|
|
(EAST PER GUARD-CATCH)
|
|
(WEST PER GUARD-CATCH)
|
|
(NE PER GUARD-CATCH)
|
|
(NW PER GUARD-CATCH)
|
|
(SE PER GUARD-CATCH)
|
|
(SW PER GUARD-CATCH)
|
|
(NORTH SORRY "That appears to be the problem at hand.")
|
|
(FLAGS GVIEWBIT)
|
|
(GLOBAL BORDER-FENCE TOWER GUARDS)
|
|
(ACTION BDR-F)>
|
|
|
|
<ROUTINE BDR-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing just a few feet away from the border. The fence here is
|
|
simply too much to hope
|
|
to overcome. Behind you, to the south, is the central guard tower,
|
|
the other two flanking the first a hundred yards on each side." CR>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXAMINE ,GUARDS>)>>
|
|
|
|
<OBJECT TOWER
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "tower")
|
|
(SYNONYM TOWER TOWERS)
|
|
(ADJECTIVE WATCH GUARD LEFT MIDDLE CENTER RIGHT)
|
|
(ACTION TOWER-F)>
|
|
|
|
<ROUTINE TOWER-F ()
|
|
<COND (<AND <VERB? ENTER BOARD>
|
|
<EQUAL? ,HERE ,LADDER-TOP>>
|
|
<COND (,ON-BRACE?
|
|
<TELL
|
|
"You'll have to get off the brace first." CR>)
|
|
(T
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)>)
|
|
(<VERB? LEAP-OFF>
|
|
<COND (<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<PERFORM ,V?LEAP ,BORDER-FENCE>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"Tell me again when you've gotten there." CR>)>)
|
|
(<VERB? CRAWL-UNDER>
|
|
<COND (<EQUAL? ,HERE ,INF-2>
|
|
<DO-WALK ,P?NORTH>
|
|
<RTRUE>)
|
|
(<EQUAL? ,HERE ,TWR-2>
|
|
<TELL "You already are." CR>)
|
|
(<EQUAL? ,HERE ,BDR-2>
|
|
<DO-WALK ,P?SOUTH>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"You're not close enough for that yet." CR>)>)
|
|
(<VERB? WALK-TO>
|
|
<TELL
|
|
"Just say the direction you wish to cross in; given the lights and
|
|
the distances involved, however, it would only safe to cross directly
|
|
to the north." CR>)
|
|
(<VERB? EXAMINE FIND WATCH EXAMINE-THROUGH>
|
|
<COND (<AT-NML?>
|
|
<TELL
|
|
"It's hard to make out much detail at this distance, but each tower is
|
|
the same - fifteen, perhaps twenty feet high, supported by long posts.
|
|
It could be presumed that guards are inside, but you couldn't be
|
|
certain." CR>)
|
|
(<EQUAL? ,HERE ,TOWER-SOUTH>
|
|
<TELL "You're in it; there's no more to be seen." CR>)
|
|
(T
|
|
<TELL
|
|
"From this distance, you are more-or-less looking up at the tower,
|
|
which is supported by four metal posts. You can see the business end of
|
|
a machine gun poking out of the guard's platform, but otherwise can make
|
|
out no significant details.">)>)
|
|
(<AT-NML?>
|
|
<TELL
|
|
"It's awfully hard to do anything to the tower at this distance." CR>)>>
|
|
|
|
<OBJECT FENCE
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "first fence")
|
|
(SYNONYM CHAIN-LINK LINK LINKS FENCE)
|
|
(ADJECTIVE FIRST CHAIN ELECTRIFIED)
|
|
(GENERIC GENERIC-FENCE)
|
|
(FLAGS METALBIT OPENBIT)
|
|
(ACTION FENCE-F)>
|
|
|
|
<ROUTINE GENERIC-FENCE ()
|
|
<COND (<OR <EQUAL? ,HERE ,OUTF-1 ,OUTF-2 ,OUTF-3>
|
|
<EQUAL? ,HERE ,INF-1 ,INF-2 ,INF-3>>
|
|
,FENCE)
|
|
(<OR <EQUAL? ,HERE ,TOWER-SOUTH ,LADDER-TOP ,BDR-2>
|
|
<EQUAL? ,HERE ,TWR-2>>
|
|
,BORDER-FENCE)>>
|
|
|
|
<OBJECT FENCE-SIGN
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "warning sign")
|
|
(SYNONYM SIGN SIGNS NOTICE NOTICES)
|
|
(ADJECTIVE WARNING)
|
|
(FLAGS READBIT)
|
|
(ACTION FENCE-SIGN-F)>
|
|
|
|
<ROUTINE FENCE-SIGN-F ()
|
|
<COND (<VERB? TOUCH>
|
|
<PERFORM ,V?TOUCH ,FENCE>
|
|
<RTRUE>)
|
|
(<VERB? READ EXAMINE>
|
|
<COND (<AT-NML?>
|
|
<TELL
|
|
"At this distance, you can't read the sign." CR>
|
|
<RTRUE>)>
|
|
<SIGN-READER>)>>
|
|
|
|
<ROUTINE SIGN-READER ()
|
|
<BOLDTELL
|
|
"|
|
|
Enkipna!|
|
|
Nizemzi obstch im!|
|
|
Fingri en Morz!">
|
|
<TELL CR CR
|
|
"You smile, thinking of the literal translation: Have fear! The fence
|
|
will incinerate you! Touch it and die!" CR>>
|
|
|
|
<ROUTINE FENCE-F ("AUX" (ACROSS <GETP ,HERE ,P?ACROSS>))
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The fence runs across the entire length of the border area. It is of
|
|
chain-link construction, and reaches a height of eight feet. At the top
|
|
the fence slopes back toward you, forming an overhang of about four
|
|
feet, which is completely covered with razor-sharp barbs.">
|
|
<COND (<FSET? ,HERE ,FENCEBLOWNBIT>
|
|
<TELL " The fence has been destroyed here
|
|
by the blast of the exploding pen. Enough has been blown away to allow
|
|
passage easily to the other side.">)
|
|
(<FSET? ,HERE ,FENCECUTBIT>
|
|
<TELL " The fence has been cut
|
|
here">
|
|
<COND (<FSET? ,HERE ,FENCEBENTBIT>
|
|
<TELL " and has been bent out of the way,
|
|
so that it's possible to safely go through it.">)
|
|
(T
|
|
<TELL ".">)>)>
|
|
<TELL " Every ten feet along the fence
|
|
is a warning sign.">
|
|
<COND (<FSET? ,HERE ,PENBIT>
|
|
<TELL
|
|
" The pen is adhering to the fence at this point.">)>
|
|
<CRLF>)
|
|
(<AT-NML?>
|
|
<TELL
|
|
"You'll have to get a lot closer for that." CR>)
|
|
(<VERB? DIG>
|
|
<PERFORM ,V?DIG ,GROUND>
|
|
<RTRUE>)
|
|
(<VERB? CRAWL-UNDER ENTER>
|
|
<COND (<OR <FSET? ,HERE ,FENCEBENTBIT>
|
|
<FSET? ,HERE ,FENCEBLOWNBIT>>
|
|
<TELL
|
|
"You carefully negotiate yourself through the ">
|
|
<COND (<FSET? ,HERE ,FENCEBENTBIT>
|
|
<TELL "bent">)
|
|
(T
|
|
<TELL "mangled">)>
|
|
<TELL " fence, making
|
|
sure no part of your body contacts the fence itself." CR CR>
|
|
<GOTO .ACROSS>
|
|
<RTRUE>)
|
|
(<FSET? ,HERE ,FENCECUTBIT>
|
|
<TELL "You start through the fence..." CR CR>
|
|
<REMOVE ,RUBBER-GLOVES>
|
|
<PERFORM ,V?TOUCH ,FENCE>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"Just how to achieve that goal is your predicament at the moment." CR>)>)
|
|
(<AND <TOUCHING? ,PRSO>
|
|
<OR <NOT <IN? ,RUBBER-GLOVES ,PROTAGONIST>>
|
|
<NOT <FSET? ,RUBBER-GLOVES ,WORNBIT>>>>
|
|
<JIGS-UP
|
|
"You are jolted by the 240 volts which courses through your body. Just
|
|
before passing out, you manage to pull yourself away from the
|
|
electrified fence, saving you from a certain death. You regain
|
|
consciousness some time later, but not before the border patrol
|
|
arrives.">)
|
|
(<AND <VERB? PUT PUT-ON TIE>
|
|
<EQUAL? ,PRSO ,EXPLODING-PEN>>
|
|
<MOVE ,PRSO ,PRSI>
|
|
<TELL
|
|
"The pen is now adhering to the fence at this point." CR>
|
|
<FSET ,HERE ,PENBIT>
|
|
<FSET <GETP ,HERE ,P?ACROSS> ,PENBIT>
|
|
<RTRUE>)
|
|
(<VERB? TOUCH>
|
|
<TELL
|
|
"You find you can safely touch the fence." CR>)
|
|
(<VERB? CLIMB CLIMB-UP CLIMB-OVER CLIMB-ON>
|
|
<TELL
|
|
"You clamber up the fence and reach the overhang. From here, the small
|
|
caliber of the wires and the bulky gloves on your hands, makes it clear
|
|
that the overhang is simply not negotiable. You drop back to the
|
|
ground." CR>)
|
|
(<VERB? CUT MUNG>
|
|
<COND (<FSET? ,HERE ,FENCEBLOWNBIT>
|
|
<TELL
|
|
"It's not necessary; there's little fence left here." CR>)
|
|
(<FSET? ,HERE ,FENCECUTBIT>
|
|
<TELL
|
|
"It won't help to break any more links on the fence; you'd just
|
|
risk setting off an alarm if the fence happens to be wired to detect
|
|
voltage drop." CR>)
|
|
(<EQUAL? ,PRSI ,BOLT-CUTTER>
|
|
<FSET ,HERE ,FENCECUTBIT>
|
|
<FSET .ACROSS ,FENCECUTBIT>
|
|
<SETG CUT-DETECTED <+ ,CLOCK-TIME 800>>
|
|
<TELL
|
|
"It's not easy, but you manage to cut a dozen or so of the chain links,
|
|
making a vertical slit about three feet long." CR>)
|
|
(<EQUAL? ,PRSI ,WOOD-SAW>
|
|
<TELL
|
|
"You try it for a while, and make little progress. Apparently, the wood saw
|
|
isn't very useful with metal." CR>)
|
|
(T
|
|
<TELL
|
|
"You won't make any progress with that!" CR>)>)
|
|
(<VERB? BEND PUSH MOVE OPEN>
|
|
<COND (<FSET? ,HERE ,FENCEBLOWNBIT>
|
|
<TELL
|
|
"It's not necessary any more." CR>)
|
|
(<FSET? ,HERE ,FENCECUTBIT>
|
|
<COND (<FSET? ,HERE ,FENCEBENTBIT>
|
|
<FCLEAR ,HERE ,FENCEBENTBIT>
|
|
<FCLEAR .ACROSS ,FENCEBENTBIT>
|
|
<TELL
|
|
"You bend the fence back to its original position." CR>)
|
|
(T
|
|
<FSET ,HERE ,FENCEBENTBIT>
|
|
<FSET .ACROSS ,FENCEBENTBIT>
|
|
<TELL
|
|
"You bend back the fence far enough to allow you to go through." CR>)>)
|
|
(T
|
|
<TELL
|
|
"You can't bend the fence while it's just sitting there in one
|
|
piece." CR>)>)>>
|
|
|
|
<GLOBAL CUT-DETECTED <>>
|
|
|
|
<OBJECT RUBBER-GLOVES
|
|
(DESC "pair of rubber gloves")
|
|
(SYNONYM PAIR GLOVES)
|
|
(ADJECTIVE RUBBER OLD)
|
|
(FLAGS TAKEBIT WEARBIT)
|
|
(SCENARIO 2)>
|
|
|
|
<ROOM B2
|
|
(EW 2)
|
|
(NS 2)
|
|
(LOC ROOMS)
|
|
(DESC "Border Zone, Station")
|
|
(PATH 0)
|
|
(WEST TO A2 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO C2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(SE TO C3 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(SW TO A3 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(SOUTH TO B3 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(NORTH SORRY
|
|
"Attempting a run directly at the border station would be tantamount to
|
|
surrendering to the authorities and giving up on your mission.")
|
|
(NE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(FLAGS SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD)
|
|
(ACTION EDGE-ROOM-F)>
|
|
|
|
<ROUTINE EDGE-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing at the edge of the forest; before you, to the north,
|
|
is an open field perhaps 200 yards wide beyond which lies the border.
|
|
Three guard towers, ">
|
|
<COND (<EQUAL? ,HERE ,B2>
|
|
<TELL "all to your right">)
|
|
(T
|
|
<TELL "one before you and ">
|
|
<COND (<EQUAL? ,HERE ,C2>
|
|
<TELL "two to your right">)
|
|
(<EQUAL? ,HERE ,D2>
|
|
<TELL "one to either side">)
|
|
(T
|
|
<TELL "two to your left">)>)>
|
|
<TELL ",
|
|
and each with a rotating searchlight mounted on top, stand watch over this
|
|
no-man's-land. And assuming you could cross without being seen, two more
|
|
obstacles remain, in the form of imposing fences, one before and the
|
|
other beyond the tower. You can continue along the edge of the forest
|
|
to the ">
|
|
<COND (<NOT <EQUAL? ,HERE ,E2>>
|
|
<TELL "east and ">)>
|
|
<TELL "west or reenter the forest to the south.">
|
|
<COND (<EQUAL? ,HERE ,E2>
|
|
<TELL " To the east, the ground dips sharply;
|
|
you'd probably be hurt trying to go that way.">)>
|
|
<CRLF>)>>
|
|
|
|
<ROOM C2
|
|
(EW 3)
|
|
(NS 2)
|
|
(LOC ROOMS)
|
|
(DESC "Border Zone, Left")
|
|
(PATH 0)
|
|
(WEST TO B2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible. Directly across the border zone is
|
|
the border crossing station.")
|
|
(EAST TO D2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(SE TO D3 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(SW TO B3 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(SOUTH TO C3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH PER NOMANS-MOVE)
|
|
(NE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NOMAN
|
|
<TABLE <TABLE 180 180 0 0> <TABLE 225 270 0 0> <TABLE 240 270 0 0> OUTF-1>)
|
|
|
|
(FLAGS SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD)
|
|
(ACTION EDGE-ROOM-F)>
|
|
|
|
<ROOM D2
|
|
(EW 4)
|
|
(NS 2)
|
|
(LOC ROOMS)
|
|
(DESC "Border Zone, Center")
|
|
(PATH 0)
|
|
(WEST TO C2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(EAST TO E2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(SE TO E3 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(SW TO C3 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(SOUTH TO D3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH PER NOMANS-MOVE)
|
|
(NE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NOMAN
|
|
<TABLE <TABLE 135 90 0 0> <TABLE 180 180 0 0> <TABLE 225 270 0 0> OUTF-2>)
|
|
|
|
(FLAGS SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD)
|
|
(ACTION EDGE-ROOM-F)>
|
|
|
|
<ROOM E2
|
|
(EW 5)
|
|
(NS 2)
|
|
(LOC ROOMS)
|
|
(DESC "Border Zone, Right")
|
|
(PATH 0)
|
|
(WEST TO D2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(EAST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SE TO F3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SW TO D3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SOUTH TO E3 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(NORTH PER NOMANS-MOVE)
|
|
(NE SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NW SORRY
|
|
"Given the rate at which the searchlights are turning, it would be suicidal
|
|
to attempt anything other than a direct run at the tower to the north.")
|
|
|
|
(NOMAN
|
|
<TABLE <TABLE 120 90 0 0> <TABLE 135 90 0 0> <TABLE 180 180 0 0> OUTF-3>)
|
|
|
|
(FLAGS SLVIEWBIT)
|
|
(GLOBAL SEARCHLIGHTS GUARDS TOWER FENCE FENCE-SIGN BORDER-FENCE BORDER-FIELD)
|
|
(ACTION EDGE-ROOM-F)>
|
|
|
|
<OBJECT BORDER-FIELD
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "open field")
|
|
(SYNONYM FIELD LAND)
|
|
(ADJECTIVE OPEN NOMANS NO-MANS)
|
|
(FLAGS VOWELBIT AN)
|
|
(ACTION BORDER-FIELD-F)>
|
|
|
|
<ROUTINE BORDER-FIELD-F ()
|
|
<COND (<VERB? CROSS ENTER CLIMB>
|
|
<DO-WALK ,P?NORTH>
|
|
<RTRUE>)>>
|
|
|
|
<ROOM A2
|
|
(EW 1)
|
|
(NS 2)
|
|
(LOC ROOMS)
|
|
(DESC "Border Zone, Tracks")
|
|
(PATH A3)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B2 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest,
|
|
until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(SE TO B3 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH TO A3 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NORTH SORRY
|
|
"You'd do as well to surrender.")
|
|
(NE SORRY
|
|
"You'd do as well to surrender.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(GLOBAL SEARCHLIGHTS)
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<OBJECT TRACKS
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "tracks")
|
|
(SCENARIO 2)
|
|
(SYNONYM TRACKS)
|
|
(ADJECTIVE RAILROAD)
|
|
(ACTION TRACKS-F)>
|
|
|
|
<ROUTINE TRACKS-F ("OPTIONAL" (FLG T))
|
|
<COND (<AND .FLG <NOT <FSET? ,HERE ,TRACKSBIT>>>
|
|
<TELL
|
|
"There are no tracks here." CR>)
|
|
(<VERB? FOLLOW>
|
|
<TELL
|
|
"You'll have to specify a direction." CR>)
|
|
(<VERB? LISTEN>
|
|
<TELL
|
|
"You listen for a while; there's no train coming." CR>)>>
|
|
|
|
<OBJECT ROAD
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "road")
|
|
(SYNONYM ROAD ROADWAY PAVEMENT)
|
|
(ACTION ROAD-F)>
|
|
|
|
<ROUTINE ROAD-F ()
|
|
<COND (<NOT <FSET? ,HERE ,ROADBIT>>
|
|
<TELL
|
|
"There is no road here." CR>)
|
|
(<TRACKS-F <>>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE TRACKS-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing on tracks ">
|
|
<COND (<EQUAL? ,HERE ,A7>
|
|
<TELL
|
|
"which lead off far to the north, but at this point bend to the southeast.">)
|
|
(<EQUAL? ,HERE ,B8>
|
|
<TELL
|
|
"which run from northwest to southeast.">)
|
|
(T
|
|
<TELL
|
|
"which run directly north-south.">)>
|
|
<TELL
|
|
" The terrain rises sharply just to the west">
|
|
<COND (<EQUAL? ,HERE ,A7 ,B8>
|
|
<TELL " and south">)>
|
|
<TELL ", and it's unlikely
|
|
that you could scramble up very far. To the east lies a dense forest.">
|
|
<COND (<EQUAL? ,HERE ,A2>
|
|
<TELL
|
|
" Just north of here, the tracks enter a brightly lit clearing just
|
|
beyond which is the border station. It would be suicidal to continue
|
|
in that direction.">)
|
|
(<AND <EQUAL? ,HERE ,B8>
|
|
,FIRST-B8-FLAG>
|
|
<SETG FIRST-B8-FLAG <>>
|
|
<TELL
|
|
" Off to the northeast you can see smoke rising into the night sky.">)>
|
|
<CRLF>)>>
|
|
|
|
<GLOBAL FIRST-B8-FLAG T>
|
|
|
|
<ROOM A3
|
|
(EW 1)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH A4)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B3 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO B4 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH TO A4 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NORTH TO A2 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NE TO B2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible. Directly across the border zone is
|
|
the border crossing station.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM A4
|
|
(EW 1)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH A5)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B4 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO B5 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH TO A5 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NORTH TO A3 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NE TO B3 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM A5
|
|
(EW 1)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH A6)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B5 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO B6 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH TO A6 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NORTH TO A4 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NE TO B4 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM A6
|
|
(EW 1)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH A7)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B6 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO B7 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH TO A7 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards, reaching a spot
|
|
at which the tracks bend off to the southeast.")
|
|
(NORTH TO A5 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NE TO B5 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM A7
|
|
(EW 1)
|
|
(NS 7)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH B8)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO B7 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO B8 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(NORTH TO A6 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(NE TO B6 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM B3
|
|
(EW 2)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO A3 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO C3 IF TRUE-FLAG ELSE
|
|
"You move deeper into the forest, until you reach...")
|
|
(SE TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest, until you stop at
|
|
a small wooden shed.")
|
|
(SW TO A4 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(SOUTH TO B4 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(NORTH TO B2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible. Directly across the border zone is
|
|
the border crossing station.")
|
|
(NE TO C2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NW TO A2 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROUTINE FOREST-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing in the middle of the forest, which surrounds you
|
|
on every side." CR>)>>
|
|
|
|
<ROOM B4
|
|
(EW 2)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO A4 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest, until
|
|
you reach a small wooden shed.")
|
|
(SE TO C5 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(SW TO A5 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(SOUTH TO B5 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH TO B3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NE TO C3 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NW TO A3 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM B5
|
|
(EW 2)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO A5 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO C5 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(SE TO C6 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(SW TO A6 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(SOUTH TO B6 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NORTH TO B4 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NE TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest, until you stop at
|
|
a small wooden shed.")
|
|
(NW TO A4 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM B6
|
|
(EW 2)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO A6 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO C6 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(SE TO C7 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SW TO A7 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the rises steeply.")
|
|
(SOUTH TO B7 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH TO B5 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NE TO C5 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(NW TO A5 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM B7
|
|
(EW 2)
|
|
(NS 7)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO A7 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track oriented north and south. Beyond the tracks, the
|
|
ground rises steeply.")
|
|
(EAST TO C7 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SE TO C8 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SW SORRY
|
|
"You'd never make it up the cliff on the other side of the tracks.")
|
|
(SOUTH TO B8 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
northwest to southeast. Behind the tracks, to the west and south, the
|
|
ground rises steeply.")
|
|
(NORTH TO B6 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NE TO C6 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NW TO A6 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
more-or-less north and south. Behind the tracks, the ground rises
|
|
steeply.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM B8
|
|
(EW 2)
|
|
(NS 8)
|
|
(LOC ROOMS)
|
|
(DESC "Railroad Tracks")
|
|
(PATH 0)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO C8 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(SE TO C9 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards, and come to
|
|
a place where the tracks are met by a roadway, heading off to the northeast.
|
|
Both the tracks and the roadway enter a tunnel to the south.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(NORTH TO B7 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NE TO C7 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NW TO A7 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(FLAGS TRACKSBIT)
|
|
(ACTION TRACKS-ROOM-F)>
|
|
|
|
<ROOM C3
|
|
(EW 3)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO B3 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(EAST TO D3 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(SE TO D4 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(SW TO B4 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(SOUTH TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest, until
|
|
you come to a small wooden shed.")
|
|
(NORTH TO C2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NE TO D2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NW TO B2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible. Directly across the border zone is
|
|
the border crossing station.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROUTINE SHED-MOVE ()
|
|
<COND (<NOT <FSET? ,SHED-DOOR ,OPENBIT>>
|
|
<TELL
|
|
"You open the door and enter the shed, closing the door behind you
|
|
to keep out the cold and wind." CR CR>)>
|
|
,INSIDE-SHED>
|
|
|
|
<ROOM OUTSIDE-SHED
|
|
(EW 3)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Outside Shed")
|
|
(PATH 0)
|
|
(IN PER SHED-MOVE)
|
|
(SE TO D5 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest and into a clearing. A small hut lies off the east, and
|
|
from the smoke from the chimney, it appears as though somebody's home.")
|
|
(NE TO D3 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(NORTH TO C3 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NW TO B3 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(SOUTH TO C5 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(SW TO B5 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(EAST TO D4 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(WEST TO B4 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(GLOBAL SHED-DOOR SHED-WINDOW SHED)
|
|
(ACTION OUTSIDE-SHED-F)
|
|
(WOODFCN OUTSIDE-SHED-WF)>
|
|
|
|
<ROUTINE OUTSIDE-SHED-WF (FRM)
|
|
<COND (<EQUAL? ,HERE ,OUTSIDE-SHED>
|
|
<MAN-CATCHES>)
|
|
(<EQUAL? .FRM ,D5>
|
|
<COND (<EQUAL? ,HERE ,INSIDE-SHED>
|
|
<BOLDTELL
|
|
"You hear heavy footsteps headed your way; looking through the
|
|
window, a man comes into sight from the southeast.">)>)>>
|
|
|
|
<ROUTINE BOLDTELL (STR "OPTIONAL" (CR T))
|
|
<COND (.CR <CRLF>)>
|
|
<HLIGHT ,H-BOLD>
|
|
<TELL .STR>
|
|
<HLIGHT ,H-NORMAL>
|
|
<COND (.CR <CRLF>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE OUTSIDE-SHED-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing outside of a small shed. Through a small window
|
|
you can see many stacks of cut wood. The wooden door is ">
|
|
<DOOR-TELL ,SHED-DOOR>
|
|
<TELL ".
|
|
The forest surrounds you in all directions, though it appears that it
|
|
becomes less dense to the southeast." CR>
|
|
<HUT-MAN-DESC
|
|
"|
|
|
You can see the owner of the hut">
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT SHED-DOOR
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "shed door")
|
|
(SYNONYM DOOR)
|
|
(ADJECTIVE SHED)
|
|
(FLAGS DOORBIT)>
|
|
|
|
<OBJECT WOOD-PILE
|
|
(LOC INSIDE-SHED)
|
|
(DESC "pile of wood")
|
|
(SYNONYM PILE WOOD LOGS LOG)
|
|
(ADJECTIVE WOOD)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION WOOD-PILE-F)>
|
|
|
|
<ROUTINE WOOD-PILE-F ()
|
|
<COND (<VERB? TAKE>
|
|
<TELL
|
|
"You don't need any wood at the moment." CR>)
|
|
(<VERB? MOVE>
|
|
<TELL
|
|
"You move a few pieces of wood around, but nothing interesting turns up,
|
|
unless you've got an interest in entomology." CR>)
|
|
(<VERB? SEARCH>
|
|
<PERFORM ,V?SEARCH ,ASSORTED-TOOLS>
|
|
<RTRUE>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"It's a large pile, from floor to ceiling; it's not very interesting
|
|
otherwise." CR>)
|
|
(<VERB? CUT>
|
|
<COND (<EQUAL? ,PRSI ,WOOD-SAW>
|
|
<TELL
|
|
"You could certainly cut some logs that way, but it would only waste
|
|
time." CR>)
|
|
(T
|
|
<TELL
|
|
"Not with that, you won't." CR>)>)>>
|
|
|
|
<OBJECT FAKE-GLOVES
|
|
(LOC INSIDE-SHED)
|
|
(DESC "gloves")
|
|
(SYNONYM GLOVES)
|
|
(ADJECTIVE RUBBER)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION FAKE-TOOLS-F)>
|
|
|
|
<OBJECT FAKE-HAMMER
|
|
(LOC INSIDE-SHED)
|
|
(DESC "hammer")
|
|
(SYNONYM HAMMER)
|
|
(ADJECTIVE WOOD)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION FAKE-TOOLS-F)>
|
|
|
|
<OBJECT FAKE-SAW
|
|
(LOC INSIDE-SHED)
|
|
(DESC "saw")
|
|
(SYNONYM WOOD-SAW SAW)
|
|
(ADJECTIVE WOOD)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION FAKE-TOOLS-F)>
|
|
|
|
<OBJECT FAKE-CUTTERS
|
|
(LOC INSIDE-SHED)
|
|
(DESC "bolt cutters")
|
|
(SYNONYM CUTTER BOLT-CUTTER CUTTERS)
|
|
(ADJECTIVE BOLT)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION FAKE-TOOLS-F)>
|
|
|
|
<ROUTINE FAKE-TOOLS-F ()
|
|
<TELL
|
|
"You can't see that out in the open, though it might be somewhere
|
|
among the wood and tools." CR>>
|
|
|
|
<OBJECT ASSORTED-TOOLS
|
|
(LOC INSIDE-SHED)
|
|
(DESC "assorted tools")
|
|
(SYNONYM TOOLS TOOL)
|
|
(ADJECTIVE ASSORTED)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION ASSORTED-TOOLS-F)>
|
|
|
|
<ROUTINE ASSORTED-TOOLS-F ()
|
|
<COND (<AND <VERB? EXAMINE SEARCH>
|
|
<NOT <FSET? ,PRSO ,PENBIT>>>
|
|
<FSET ,PRSO ,PENBIT>
|
|
<REMOVE ,FAKE-HAMMER>
|
|
<REMOVE ,FAKE-GLOVES>
|
|
<REMOVE ,FAKE-SAW>
|
|
<REMOVE ,FAKE-CUTTERS>
|
|
<REMOVE ,PRSO>
|
|
<MOVE ,HAMMER ,HERE>
|
|
<MOVE ,BOLT-CUTTER ,HERE>
|
|
<MOVE ,WOOD-SAW ,HERE>
|
|
<MOVE ,RUBBER-GLOVES ,HERE>
|
|
<TELL
|
|
"You look around and find a hammer, a bolt-cutter, and a wood saw.
|
|
You also come across an old pair of rubber gloves." CR>)
|
|
(T
|
|
<TELL
|
|
"You'll do better to look at the tools first, to see which one you
|
|
want." CR>)>>
|
|
|
|
<OBJECT HAMMER
|
|
(DESC "hammer")
|
|
(SYNONYM HAMMER TOOL TOOLS HANDLE)
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
(SIZE 10)
|
|
(SCENARIO 2)
|
|
(ACTION HAMMER-F)>
|
|
|
|
<ROUTINE HAMMER-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"It's an ordinary hammer." CR>)>>
|
|
|
|
<OBJECT WOOD-SAW
|
|
(DESC "wood saw")
|
|
(SYNONYM SAW TOOL TOOLS)
|
|
(ADJECTIVE WOOD)
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
(SCENARIO 2)
|
|
(SIZE 20)
|
|
(ACTION WOOD-SAW-F)>
|
|
|
|
<ROUTINE WOOD-SAW-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"It's your average size wood saw, and it's probably used here to cut
|
|
up the larger logs." CR>)>>
|
|
|
|
<OBJECT BOLT-CUTTER
|
|
(DESC "bolt-cutter")
|
|
(SYNONYM CUTTER BOLT-CUTTER CUTTERS TOOL TOOLS)
|
|
(ADJECTIVE BOLT)
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
(SIZE 20)
|
|
(SCENARIO 2)>
|
|
|
|
<OBJECT SHED-WINDOW
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "shed window")
|
|
(SYNONYM WINDOW)
|
|
(ADJECTIVE SHED)
|
|
(ACTION SHED-WINDOW-F)>
|
|
|
|
<ROUTINE SHED-WINDOW-F ()
|
|
<COND (<VERB? LOOK-INSIDE>
|
|
<COND (<EQUAL? ,HERE ,INSIDE-SHED>
|
|
<COND (<IN? ,HUT-MAN ,OUTSIDE-SHED>
|
|
<TELL
|
|
"You can't see much. Wait! There's a man, not far from the shed, heading ">
|
|
<COND (,WOOD-RETURNING
|
|
<TELL "southeast, toward the hut." CR>)
|
|
(T
|
|
<TELL "right toward you!" CR>)>)
|
|
(T
|
|
<TELL
|
|
"You can't see much outside, except for some ice which has formed on
|
|
the window pane." CR>)>)
|
|
(<IN? ,HUT-MAN ,INSIDE-SHED>
|
|
<TELL
|
|
"You can see piles of wood stacked inside;
|
|
disturbingly, you can see a man gathering a pile of wood for himself -
|
|
under his coat is a large revolver." CR>)
|
|
(T
|
|
<TELL
|
|
"You can see only piles of wood, though other things might be there." CR>)>)
|
|
(<VERB? OPEN>
|
|
<TELL
|
|
"It can't be opened; it just provides some light to the inside." CR>)
|
|
(<VERB? MUNG>
|
|
<TELL
|
|
"It would only make noise and call attention to yourself." CR>)>>
|
|
|
|
<ROOM INSIDE-SHED
|
|
(EW 3)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Inside Shed")
|
|
(PATH 0)
|
|
(OUT PER LEAVE-SHED)
|
|
(GLOBAL SHED-DOOR SHED-WINDOW SHED)
|
|
(ACTION INSIDE-SHED-F)
|
|
(WOODFCN INSIDE-SHED-WF)>
|
|
|
|
<ROUTINE LEAVE-SHED ()
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?EXIT ,SHED>
|
|
<RFALSE>>
|
|
|
|
<OBJECT SHED
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "shed")
|
|
(SYNONYM SHED WOODSHED BUILDING HUT)
|
|
(ADJECTIVE WOOD)
|
|
(ACTION SHED-F)>
|
|
|
|
<ROUTINE SHED-F ()
|
|
<COND (<VERB? OPEN CLOSE>
|
|
<PERFORM ,PRSA ,SHED-DOOR>
|
|
<RTRUE>)
|
|
(<VERB? LOOK-INSIDE>
|
|
<PERFORM ,V?LOOK-INSIDE ,SHED-WINDOW>
|
|
<RTRUE>)
|
|
(<VERB? ENTER>
|
|
<COND (<EQUAL? ,HERE ,OUTSIDE-SHED>
|
|
<GOTO <SHED-MOVE>>)
|
|
(T
|
|
<TELL "That doesn't make sense." CR>)>)
|
|
(<VERB? LEAVE EXIT>
|
|
<COND (<EQUAL? ,HERE ,INSIDE-SHED>
|
|
<GOTO ,OUTSIDE-SHED>)
|
|
(T
|
|
<TELL "You're not in the shed." CR>)>)>>
|
|
|
|
<GLOBAL WOOD-RETURNING <>>
|
|
|
|
<ROUTINE INSIDE-SHED-WF (FRM)
|
|
<SETG WOOD-RETURNING T>
|
|
>
|
|
|
|
<ROUTINE INSIDE-SHED-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"The shed appears to be entirely for the storage of wood, although
|
|
some scattered tools are lying about. Snow can be seen falling through
|
|
a small window. The door leading back into the forest is ">
|
|
<DOOR-TELL ,SHED-DOOR>
|
|
<TELL "." CR>)>>
|
|
|
|
<ROOM C5
|
|
(EW 3)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO B5 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(EAST TO D5 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest and into a clearing. A small hut lies off the east, and
|
|
from the smoke from the chimney, it appears as though somebody's home.")
|
|
(SE TO D6 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
south to east, with a narrow spur leading north.")
|
|
(SW TO B6 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(SOUTH TO C6 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest, until
|
|
you come to a small wooden shed.")
|
|
(NE TO D4 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(NW TO B4 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM C6
|
|
(EW 3)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO B6 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(EAST TO D6 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
south to east, with a narrow spur leading north.")
|
|
(SE TO D7 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to south.")
|
|
(SW TO B7 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(SOUTH TO C7 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NORTH TO C5 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(NE TO D5 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest and into a clearing. A small hut lies off the east, and
|
|
from the smoke from the chimney, it appears as though somebody's home.")
|
|
(NW TO B5 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM C7
|
|
(EW 3)
|
|
(NS 7)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO B7 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(EAST TO D7 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to south.")
|
|
(SE TO D8 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to southwest.")
|
|
(SW TO B8 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
northwest to southeast. Behind the tracks, to the west and south, the
|
|
ground rises steeply.")
|
|
(SOUTH TO C8 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(NORTH TO C6 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NE TO D6 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
south to east, with a narrow spur leading north.")
|
|
(NW TO B6 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM C8
|
|
(EW 3)
|
|
(NS 8)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO B8 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
northwest to southeast. Behind the tracks, to the west and south, the
|
|
ground rises steeply.")
|
|
(EAST TO D8 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to southwest.")
|
|
(SE TO D9 IF HACK-FLAG ELSE
|
|
"You cross a roadway and come to the edge of a putrid swamp, which
|
|
runs off to the northeast.")
|
|
(SW TO B8 IF HACK-FLAG ELSE
|
|
"You leave the forest and come to some railroad tracks, running
|
|
northwest to southeast. Behind the tracks, to the west and south, the
|
|
ground rises steeply.")
|
|
(SOUTH TO C9 IF HACK-FLAG ELSE
|
|
"You emerge from the forest into an open area through which runs
|
|
a railroad track running to the northwest and a roadway running to the
|
|
northeast. Both lead south into a tunnel.")
|
|
(NORTH TO C7 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(NE TO D7 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to south.")
|
|
(NW TO B7 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM C9
|
|
(EW 3)
|
|
(NS 9)
|
|
(LOC ROOMS)
|
|
(DESC "Mouth of Tunnel")
|
|
(LDESC
|
|
"Both the road and the railroad tracks lead into a dark tunnel to the south.
|
|
If your memory from the train serves, this tunnel is miles long, and without
|
|
interruption. The tracks continue toward the border to the northwest, and
|
|
the road bends to the northeast. A dark forest stretches before you to the
|
|
north.")
|
|
(PATH 0)
|
|
(WEST SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(EAST TO D9 IF FALSE-FLAG ELSE
|
|
"You continue through the forest, coming finally to the edge of a putrid
|
|
swamp, which winds its way off to the northeast.")
|
|
(SE TO D9 IF FALSE-FLAG ELSE
|
|
"You continue through the forest, coming finally to the edge of a putrid
|
|
swamp, which winds its way off to the northeast.")
|
|
(SW SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(SOUTH SORRY
|
|
"It would take hours to get through the tunnel, and your mission would
|
|
undoubtably fail. You'd best find a way across the border.")
|
|
(NORTH TO C8 IF HACK-FLAG ELSE
|
|
"You leave the side of the railroad tracks and head into the forest.
|
|
The darkness is deeper here, as less moonlight reaches the forest floor.
|
|
The snow crunches under your feet, and you pause after moving a hundred or
|
|
so yards into the forest.")
|
|
(NE TO D8)
|
|
(NW TO B8 IF HACK-FLAG ELSE
|
|
"You continue along the tracks for about a hundred yards.")
|
|
(FLAGS TRACKSBIT ROADBIT)>
|
|
|
|
<ROOM D3
|
|
(EW 4)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO C3 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(EAST TO E3 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest.")
|
|
(SE TO E4 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(SW TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest, until you stop at
|
|
a small wooden shed.")
|
|
(SOUTH TO D4 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(NORTH TO D2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NE TO E2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NW TO C2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM D4
|
|
(EW 4)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest, until
|
|
you come to a small wooden shed.")
|
|
(EAST TO E4 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SE TO E5 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SW TO C5 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SOUTH TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You walk for a short while and come to a large clearing, to the east of
|
|
which lies a small hut. Concerned about the possibility of being seen,
|
|
you head toward a spot on the north side of the hut, where you can
|
|
check the situation out.")
|
|
(NORTH TO D3 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NE TO E3 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(NW TO C3 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM D5
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT)
|
|
(LOC ROOMS)
|
|
(DESC "Clearing")
|
|
(PATH 0)
|
|
(WEST TO C5 IF HACK-FLAG ELSE
|
|
"You enter the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(EAST TO OUTSIDE-HUT IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you walk to the front door of the hut.")
|
|
(SE TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the south side of the hut.")
|
|
(SW TO C6 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you enter the
|
|
forest.")
|
|
(SOUTH TO ROAD-END IF HACK-FLAG ELSE
|
|
"You continue until you come to the start of a roadway leading south.")
|
|
(NORTH TO D4 IF HACK-FLAG ELSE
|
|
"You enter the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NE TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on to the north side of the hut.")
|
|
(NW TO OUTSIDE-SHED IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed into the forest, stopping as you come upon a
|
|
small wooden shed.")
|
|
(ACTION D5-F)
|
|
(WOODFCN D5-WF)
|
|
(GLOBAL HUT CHIMNEY)
|
|
(FIRE
|
|
"You continue along until you enter a clearing; to the east, before you,
|
|
lies a burning hut, sending plumes of black smoke and orange flame into
|
|
the sky.")>
|
|
|
|
<GLOBAL HUT-BURNING <>>
|
|
|
|
<ROUTINE D5-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing in a small clearing in the forest. To the east, there
|
|
is a small hut,">
|
|
<COND (<NOT ,HUT-BURNING>
|
|
<TELL
|
|
" and it would seem that somebody is inside,
|
|
judging by the swirls of smoke that pour through the chimney and into
|
|
the night sky.">)
|
|
(T
|
|
<TELL
|
|
" engulfed in flame. Large plumes of black smoke rise into the night
|
|
sky.">)>
|
|
<TELL
|
|
" To the south lies the start of a paved road which gently winds
|
|
its way through the trees and out of sight. The forest surrounds the
|
|
clearing in the other directions, though it appears that a poorly
|
|
defined path leads to the northwest." CR>
|
|
<HUT-MAN-DESC
|
|
"|
|
|
You can see the owner of the hut">
|
|
<RTRUE>)>>
|
|
|
|
<OBJECT HUT
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "hut")
|
|
(SYNONYM HUT HOUSE HOME BUILDING)
|
|
(ADJECTIVE WOODEN WOOD)
|
|
(ACTION HUT-F)>
|
|
|
|
<OBJECT CHIMNEY
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "chimney")
|
|
(SYNONYM CHIMNEY)
|
|
(ACTION CHIMNEY-F)>
|
|
|
|
<ROUTINE CHIMNEY-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"Besides the smoke coming out, there's not much to tell." CR>)
|
|
(<VERB? ENTER CLIMB-DOWN CLIMB-UP CLIMB>
|
|
<TELL
|
|
"You would be incinerated." CR>)>>
|
|
|
|
<ROUTINE HUT-F ("AUX" RM)
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (,HUT-BURNING
|
|
<TELL
|
|
"There's not much to tell; the entire wooden structure is now engulfed
|
|
in flames, and the heat and smoke make it hard to get much closer." CR>)
|
|
(T
|
|
<TELL
|
|
"The hut is small, perhaps no more than a few rooms. The exterior is a
|
|
dark wooden clapboard, worn and weaterbeaten. Some black smoke rises out
|
|
of a small chimney, swirling around in the cold breeze, and vanishing
|
|
into the night sky." CR>)>)
|
|
(<VERB? CLIMB CLIMB-OVER CLIMB-UP>
|
|
<TELL
|
|
"There's nothing on top of the hut except for the chimney, so unless
|
|
you're Santa Claus it won't be of much use." CR>)
|
|
(<VERB? ENTER LEAVE>
|
|
<COND (,HUT-BURNING
|
|
<TELL
|
|
"It's too late for that." CR>)
|
|
(<AND <VERB? ENTER>
|
|
<EQUAL? ,HERE ,BEHIND-HUT>>
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)
|
|
(<AND <VERB? LEAVE>
|
|
<EQUAL? ,HERE ,HUT-STORAGE>>
|
|
<DO-WALK ,P?OUT>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"You'll have to figure out how to do that." CR>)>)
|
|
(<AND <VERB? LOOK-INSIDE>
|
|
<GLOBAL-IN? ,HUT-WINDOW ,HERE>>
|
|
<PERFORM ,PRSA ,HUT-WINDOW>
|
|
<RTRUE>)
|
|
(<VERB? WALK-AROUND>
|
|
<COND (<SET RM <LKP ,HERE ,HUT-WALKS>>
|
|
<COND (,HUT-BURNING
|
|
<TELL
|
|
"You cough from the smoke you've inhaled, but continue around the remains
|
|
of the burning hut..." CR CR>)>
|
|
<GOTO .RM>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"You can only walk around the hut if you're standing just outside of it."
|
|
CR>)>)>>
|
|
|
|
<GLOBAL HUT-WALKS
|
|
<PLTABLE OUTSIDE-HUT NORTH-HUT BEHIND-HUT SOUTH-HUT OUTSIDE-HUT 0>>
|
|
|
|
<ROUTINE LKP (THING TBL "AUX" (SIZE <GET .TBL 0>) FROB)
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <SET FROB <GET .TBL 1>> .THING>
|
|
<RETURN <GET .TBL 2>>)
|
|
(<ZERO? .FROB>
|
|
<RFALSE>)>
|
|
<SET TBL <REST .TBL 2>>>>
|
|
|
|
<ROUTINE D5-WF (FRM)
|
|
<COND (<EQUAL? ,HERE ,D5>
|
|
<MAN-CATCHES>)
|
|
(<OR <EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT>
|
|
<EQUAL? ,HERE ,ROAD-END ,OUTSIDE-HUT>>
|
|
<COND (<EQUAL? .FRM ,OUTSIDE-SHED> ;"returning"
|
|
<COND (,HUT-BURNING
|
|
<REMOVE ,HUT-MAN>
|
|
<SETG WOOD-COUNT -10000>
|
|
;"Turn off this interrupt the hard way"
|
|
<BOLDTELL
|
|
"The man, carrying a pile of wood, walks into the clearing and seeing that
|
|
his hut is on fire, runs off into the forest to the northeast.">)
|
|
(T
|
|
<BOLDTELL
|
|
"The man, carrying a large pile of wood in his arms, walks out of
|
|
the forest and into the clearing.">)>)
|
|
(T
|
|
<BOLDTELL
|
|
"The man walks from the front of the hut and into the clearing,
|
|
continuing to the northwest and out of sight.">)>)
|
|
(<AND <EQUAL? .FRM ,OUTSIDE-SHED> ,HUT-BURNING>
|
|
<SETG WOOD-COUNT -10000>)>>
|
|
|
|
<ROOM OUTSIDE-HUT
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT OUTHUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "Outside Hut")
|
|
(NORTH TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed to the north side of the house.")
|
|
(SOUTH TO ROAD-END IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed to a point at which a road leading south
|
|
through the forest begins.")
|
|
(NW TO D5 IF HACK-FLAG ELSE
|
|
"You enter the forest, breaking branches as you go, and
|
|
finally stop as you come into a clearing, to the east of which is a small
|
|
hut.")
|
|
(SW TO ROAD-END IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed to a point at which a road leading south
|
|
through the forest begins.")
|
|
(NE TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the north side of the hut.")
|
|
(SE TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on to the south side of the hut.")
|
|
(EAST TO HUT-LIVING IF HUT-FRONT-DOOR IS OPEN)
|
|
(WEST TO D5 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk into the clearing.")
|
|
(ACTION OUTSIDE-HUT-F)
|
|
(WOODFCN OUTSIDE-HUT-WF)
|
|
(GLOBAL HUT CHIMNEY HUT-FRONT-DOOR)
|
|
(FIRE
|
|
"You continue until reaching the front of the blazing hut. The heat is so
|
|
extreme that you can't get within twenty feet of it.")>
|
|
|
|
<ROUTINE OUTSIDE-HUT-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing outside of the ">
|
|
<COND (,HUT-BURNING <TELL "blazing ">)>
|
|
<TELL "hut, just a few feet away from the
|
|
front door. You could walk around the house to either the northeast
|
|
or southeast, or you could return to the clearing just west of here or the
|
|
road that starts just to the south. All other directions lead back into
|
|
the forest." CR>
|
|
<HUT-MAN-DESC
|
|
"|
|
|
You can see the owner of the hut">
|
|
<RTRUE>)
|
|
(<AND <EQUAL? .RARG ,M-BEG>
|
|
<VERB? WALK>
|
|
<EQUAL? ,PRSO ,P?EAST ,P?IN>
|
|
,HUT-BURNING>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?ENTER ,HUT>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE OUTSIDE-HUT-WF (FRM)
|
|
<COND (<EQUAL? ,HERE ,OUTSIDE-HUT>
|
|
<MAN-CATCHES>)
|
|
(<AND <EQUAL? .FRM ,D5>
|
|
<EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT ,ROAD-END>>
|
|
<COND (,HUT-BURNING
|
|
<REMOVE ,HUT-MAN>
|
|
<SETG WOOD-COUNT -10000>
|
|
;"Turn off this interrupt the hard way"
|
|
<BOLDTELL
|
|
"The man, seeing that his hut is on fire, runs off into the forest to the
|
|
northeast.">)
|
|
(T
|
|
<BOLDTELL
|
|
"The man walks up to the front of the hut, and fumbles around with the
|
|
door, though his hands are full of logs.">)>)
|
|
(<OR <EQUAL? ,HERE ,NORTH-HUT ,SOUTH-HUT ,ROAD-END>
|
|
<EQUAL? ,HERE ,BEHIND-HUT>>
|
|
<BOLDTELL
|
|
"The man walks out of the hut and heads toward the clearing.">)>>
|
|
|
|
<ROOM NORTH-HUT
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT OUTHUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "North Side of Hut")
|
|
(NE TO E4 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SE TO BEHIND-HUT IF HACK-FLAG ELSE
|
|
"You walk around the house to the back; a door here leads into the hut.")
|
|
(EAST TO BEHIND-HUT IF HACK-FLAG ELSE
|
|
"You walk around the house to the back; a door here leads into the hut.")
|
|
(WEST TO D5 IF HACK-FLAG ELSE
|
|
"You walk around the house and into the clearing.")
|
|
(NW TO D4 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(SW TO OUTSIDE-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the front of the house.")
|
|
(NORTH TO D4 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(SOUTH SORRY
|
|
"There's no way into the hut from here.")
|
|
(ACROSS HUT-LIVING)
|
|
(ACTION NORTH-HUT-F)
|
|
(GLOBAL HUT-WINDOW HUT CHIMNEY)
|
|
(FIRE
|
|
"You continue until reaching the north side of a blazing
|
|
hut. With the extreme heat here, you can't get close at all.")>
|
|
|
|
<ROUTINE NORTH-HUT-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-ENTER-DESC>
|
|
<CAR-SEQ-TELL>
|
|
<HUT-MAN-DESC
|
|
"|
|
|
You can see the owner of the hut">
|
|
<RTRUE>)
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are on the north side of the ">
|
|
<COND (,HUT-BURNING <TELL "burning ">)>
|
|
<TELL "hut, the front door and a small
|
|
clearing lying to your southwest and the rear of the hut to your southeast.">
|
|
<COND (<NOT ,HUT-BURNING>
|
|
<TELL
|
|
" A small window looks into what appears to be the living room." CR>)>
|
|
<CAR-SEQ-TELL>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE CAR-SEQ-TELL ()
|
|
<COND (,HUT-MAN-DIVERSION
|
|
<TELL CR
|
|
"The man from the hut is standing out front, looking a bit confused. He
|
|
takes a few tentative steps in different directions, hoping perhaps to sense
|
|
better the source of the explosion.">)
|
|
(<G? ,CAR-SEQUENCE 0>
|
|
<CRLF>
|
|
<COND (<NOT <ZERO? <LOC ,SCOUT>>>
|
|
<TELL "Two">)
|
|
(T
|
|
<TELL "Three">)>
|
|
<TELL
|
|
" men, presumably from the automobile parked at the end of the roadway
|
|
south of the clearing, are ">
|
|
<COND (<L? ,CAR-SEQUENCE 4>
|
|
<TELL
|
|
"walking toward the front door of the hut">)
|
|
(<EQUAL? ,CAR-SEQUENCE 4>
|
|
<TELL
|
|
"standing at the front door of the hut, talking quietly among themselves,
|
|
as if waiting for someone to answer the door">)
|
|
(T
|
|
<TELL
|
|
"in quiet conversation with a man, presumably the owner of the hut,
|
|
who stands leaning against the closed front door. They seem to be lecturing
|
|
him about something, for he speaks little and nods often">)>
|
|
<TELL ".">
|
|
<COND (<NOT <SCOUT-TELL>>
|
|
<CRLF>)>
|
|
<RTRUE>)
|
|
(<IN? ,CAR ,ROAD-END>
|
|
<TELL CR
|
|
"Three men have just returned to their automobile which was parked at the
|
|
end of the roadway just south of the clearing. The car has been started and is
|
|
preparing to depart." CR>)>>
|
|
|
|
<OBJECT HUT-WINDOW
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "window")
|
|
(SYNONYM WINDOW)
|
|
(ACTION HUT-WINDOW-F)>
|
|
|
|
<ROUTINE HUT-WINDOW-F ("AUX" (H <>))
|
|
<COND (,HUT-BURNING
|
|
<TELL "It's engulfed in flame." CR>
|
|
<RTRUE>)
|
|
(<VERB? EXAMINE LOOK-INSIDE>
|
|
<COND (<AND <EQUAL? ,HERE ,HUT-STORAGE ,BEHIND-HUT>
|
|
<FSET? ,HUT-BACK-DOOR ,OPENBIT>>
|
|
<TELL
|
|
"The door's open, so the view isn't too interesting." CR>
|
|
<RTRUE>)>
|
|
<TELL "You look through the window and see ">
|
|
<COND (<EQUAL? ,HERE ,HUT-LIVING ,HUT-BEDROOM ,HUT-STORAGE>
|
|
<TELL "a wintry landscape.">
|
|
<COND (<AND <EQUAL? ,HERE ,HUT-STORAGE>
|
|
<IN? ,SCOUT ,BEHIND-HUT>>
|
|
<TELL
|
|
" A lone scout is walking toward the south side of the hut.">)>)
|
|
(<EQUAL? ,HERE ,NORTH-HUT>
|
|
<TELL "the living room, furnished sparsely.">
|
|
<SET H ,HUT-LIVING>)
|
|
(<EQUAL? ,HERE ,SOUTH-HUT>
|
|
<TELL "the bedroom, furnished sparsely.">
|
|
<SET H ,HUT-BEDROOM>)
|
|
(<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<TELL "the storage room.">
|
|
<SET H ,HUT-STORAGE>)>
|
|
<COND (<AND .H <IN? ,HUT-MAN .H>>
|
|
<TELL " A man is there!">)>
|
|
<CRLF>)
|
|
(<VERB? OPEN CLOSE>
|
|
<TELL
|
|
"The windows here don't open and close - not surprising, for an
|
|
inexpensively built hut like this." CR>)
|
|
(<VERB? KNOCK>
|
|
<TELL
|
|
"Not smart; sombody might hear you." CR>)
|
|
(<VERB? MUNG KICK>
|
|
<TELL
|
|
"Not smart. If somebody's home, you're in big trouble, and if nobody's
|
|
home, the broken window will just alert the owner to trouble when he
|
|
returns." CR>)>>
|
|
|
|
<ROOM SOUTH-HUT
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT OUTHUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "South Side of Hut")
|
|
(NE TO BEHIND-HUT IF HACK-FLAG ELSE
|
|
"You walk around the house to the back; the door is closed.")
|
|
(SE TO E6 IF HACK-FLAG ELSE
|
|
"You reenter the forest and soon come to a roadway running from
|
|
east to west.")
|
|
(EAST TO BEHIND-HUT IF HACK-FLAG ELSE
|
|
"You walk around the house to the back; the door is closed.")
|
|
(WEST TO D5 IF HACK-FLAG ELSE
|
|
"You walk around the house and into the clearing.")
|
|
(SW TO ROAD-END IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and move to a point in the forest at which a small
|
|
road leads south.")
|
|
(NW TO OUTSIDE-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the front of the house.")
|
|
(NORTH SORRY
|
|
"There's no way into the hut from here.")
|
|
(SOUTH TO ROAD-END IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and move to a point in the forest at which a small
|
|
road leads south.")
|
|
(ACTION SOUTH-HUT-F)
|
|
(GLOBAL HUT-WINDOW HUT CHIMNEY)
|
|
(FIRE
|
|
"You reach the south side of a hut, now completely ablaze. The heat from
|
|
the flames makes it impossible to go any closer.")>
|
|
|
|
<ROUTINE SOUTH-HUT-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-ENTER-DESC>
|
|
<CAR-SEQ-TELL>
|
|
<HUT-MAN-DESC
|
|
"|
|
|
You can see the owner of the hut">
|
|
<RTRUE>)
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
<COND (<NOT ,HUT-BURNING>
|
|
<TELL
|
|
"You are on the south side of the hut. Northwest of here lies the front
|
|
of the hut, and beyond that a small clearing. To the northeast lies the
|
|
back side of the hut. Through a small window, you can see the bedroom." CR>)
|
|
(T
|
|
<TELL
|
|
"You are south of the burning hut. To the northwest is the front of the
|
|
hut, and beyond that a small clearing." CR>)>
|
|
<CAR-SEQ-TELL>
|
|
<RTRUE>)>>
|
|
|
|
<ROOM BEHIND-HUT
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT OUTHUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "Behind Hut")
|
|
(NW TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the north side of the house.")
|
|
(WEST TO HUT-STORAGE IF HUT-BACK-DOOR IS OPEN)
|
|
(IN-DIR P?WEST)
|
|
(SW TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the south side of the house.")
|
|
(SOUTH TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the south side of the house.")
|
|
(SE TO E6 IF HACK-FLAG ELSE
|
|
"You enter the forest, but soon emerge at a roadway running from
|
|
east to west.")
|
|
(EAST TO E5 IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on into the forest.")
|
|
(NE TO E4 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue into the forest.")
|
|
(NORTH TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You walk around to the north side of the hut.")
|
|
(GLOBAL HUT-BACK-DOOR HUT-WINDOW HUT CHIMNEY)
|
|
(ACTION BEHIND-HUT-F)
|
|
(FIRE
|
|
"You continue until you reach the back side of a blazing hut.
|
|
Engulfed as it is in flames, you cannot possibly get closer.")>
|
|
|
|
<ROUTINE BEHIND-HUT-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<COND (<NOT ,HUT-BURNING>
|
|
<TELL
|
|
"You are standing at the back door of the hut, which can be circled to
|
|
the northwest and the southwest. On all other sides lies the forest.">
|
|
<COND (<FSET? ,HUT-BACK-DOOR ,OPENBIT>
|
|
<TELL " The door stands open.">)
|
|
(T
|
|
<TELL " A small window in the door gives
|
|
a view into the house.">)>
|
|
<CRLF>)
|
|
(T
|
|
<TELL
|
|
"You are standing at the back of the blazing hut, which can be circled to
|
|
the northwest and southwest. The forest surrounds you on all other
|
|
sides." CR>)>)
|
|
(<AND <EQUAL? .RARG ,M-BEG>
|
|
<VERB? WALK>
|
|
<EQUAL? ,PRSO ,P?WEST ,P?IN>
|
|
,HUT-BURNING>
|
|
<SETG P-WALK-DIR <>>
|
|
<PERFORM ,V?ENTER ,HUT>
|
|
<RTRUE>)>>
|
|
|
|
|
|
<OBJECT HUT-BACK-DOOR
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "back door")
|
|
(SYNONYM DOOR HINGES HINGE)
|
|
(ADJECTIVE BACK)
|
|
(FLAGS DOORBIT)
|
|
(ACTION HUT-BACK-DOOR-F)>
|
|
|
|
<GLOBAL DOOR-OILED <>>
|
|
|
|
<ROUTINE HUT-BACK-DOOR-F ()
|
|
<COND (,HUT-BURNING
|
|
<TELL
|
|
"The door is completely in flames." CR>)
|
|
(<VERB? KNOCK>
|
|
<TELL
|
|
"What, are you crazy? What if someone's home?" CR>)
|
|
(<AND <VERB? OPEN>
|
|
<NOT <FSET? ,PRSO ,OPENBIT>>
|
|
<NOT ,DOOR-OILED>>
|
|
<TELL "The door squeaks loudly as you open it." CR>
|
|
<COND (<EQUAL? <LOC ,HUT-MAN> ,HUT-LIVING ,HUT-BEDROOM>
|
|
<CRLF>
|
|
<JIGS-UP
|
|
"Unfortunately, someone was indeed home, and carrying a weapon at that.
|
|
He motions you to the door, and you follow him as he telephones for
|
|
the border police.">)>
|
|
<FSET ,PRSO ,OPENBIT>)
|
|
(<OR <AND <VERB? OIL> <IN? ,OIL-CAN ,WINNER>>
|
|
<AND <VERB? PUT> <EQUAL? ,PRSO ,OIL-CAN>>>
|
|
<COND (<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<TELL
|
|
"A good idea, but the hinges are on the inside, so you'll have to do it
|
|
from there." CR>)
|
|
(T
|
|
<TELL
|
|
"The squeaky door gets the grease, or words to that effect. The door seems
|
|
quieter already." CR>
|
|
<SETG DOOR-OILED T>)>)
|
|
(<VERB? OIL>
|
|
<TELL
|
|
"You aren't holding any oil." CR>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"The wooden door is chipped in places, but is otherwise
|
|
in pretty good shape. The hinges, though, are rusted badly">
|
|
<COND (<NOT ,DOOR-OILED>
|
|
<TELL " - it'll make
|
|
some noise when it's opened">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<AND <VERB? CLOSE>
|
|
<NOT ,DOOR-OILED>
|
|
<FSET? ,PRSO ,OPENBIT>>
|
|
<TELL
|
|
"The door squeaks loudly as you start to pull it closed." CR>
|
|
<FCLEAR ,PRSO ,OPENBIT>)>>
|
|
|
|
<OBJECT HUT-MAN
|
|
(LOC HUT-LIVING)
|
|
(DESC "man")
|
|
(SYNONYM MAN)>
|
|
|
|
<OBJECT HUT-FRONT-DOOR
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "front door")
|
|
(SYNONYM DOOR)
|
|
(ADJECTIVE FRONT)
|
|
(FLAGS DOORBIT)
|
|
(ACTION HUT-FRONT-DOOR-F)>
|
|
|
|
<ROUTINE MAN-AT-HOME? ()
|
|
<COND (<EQUAL? <LOC ,HUT-MAN>
|
|
,HUT-STORAGE ,HUT-LIVING ,HUT-BEDROOM>)>>
|
|
|
|
<ROUTINE HUT-FRONT-DOOR-F ()
|
|
<COND (,HUT-BURNING
|
|
<TELL
|
|
"What's left of it is in flames." CR>)
|
|
(<AND <VERB? KNOCK>
|
|
<EQUAL? ,HERE ,HUT-LIVING>>
|
|
<TELL
|
|
"That would be dangerous, particularly if anyone's outside." CR>)
|
|
(<AND <VERB? OPEN KNOCK> <MAN-AT-HOME?>>
|
|
<JIGS-UP
|
|
"Unfortunately, somebody's home, though he isn't very hospitable looking with
|
|
his revolver in hand.">
|
|
<RTRUE>)
|
|
(<VERB? OPEN>
|
|
<COND (<IN? ,CAR ,ROAD-END>
|
|
<TELL
|
|
"That would be foolish, with guards standing just outside." CR>)
|
|
(T
|
|
<RFALSE>)>)>>
|
|
|
|
<ROUTINE HUT-STORAGE-EXIT ()
|
|
<COND (<FSET? ,HUT-BACK-DOOR ,OPENBIT>
|
|
<FCLEAR ,HUT-BACK-DOOR ,OPENBIT>
|
|
<TELL
|
|
"You walk out into the night air, closing the door behind you." CR CR>
|
|
,BEHIND-HUT)
|
|
(T
|
|
<TELL
|
|
"The door is closed." CR>
|
|
<RFALSE>)>>
|
|
|
|
<ROOM HUT-STORAGE
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT HUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "Storage Area")
|
|
(EAST PER HUT-STORAGE-EXIT)
|
|
(WEST TO HUT-LIVING)
|
|
(OUT PER HUT-STORAGE-EXIT)
|
|
(ACTION HUT-STORAGE-F)
|
|
(WOODFCN HUT-STORAGE-WF)
|
|
(GLOBAL HUT-WINDOW HUT CHIMNEY HUT-BACK-DOOR)>
|
|
|
|
<GLOBAL HUT-STORE-FLAG T>
|
|
|
|
<ROUTINE HUT-STORAGE-WF (FRM)
|
|
<COND (<EQUAL? ,HERE ,HUT-STORAGE>
|
|
<MAN-CATCHES>)
|
|
(,HUT-STORE-FLAG
|
|
;"Coming to get it"
|
|
<SETG HUT-STORE-FLAG <>>
|
|
<COND (<EQUAL? ,HERE ,NORTH-HUT>
|
|
<COND (<IN? ,PARKA ,HUT-STORAGE>
|
|
<MOVE ,PARKA ,HUT-MAN>)>
|
|
<BOLDTELL
|
|
"You watch through the window as the man walks out of sight toward the
|
|
back of the hut.">)
|
|
(<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<TELL
|
|
"You watch through the window as the man enters the storage area and ">
|
|
<COND (<IN? ,PARKA ,HUT-STORAGE>
|
|
<MOVE ,PARKA ,HUT-MAN>
|
|
<TELL "puts
|
|
on the white parka which is lying there, then ">)
|
|
(T
|
|
<TELL "seems
|
|
to search for something; after a moment, he ">)>
|
|
<TELL "heads back toward the front
|
|
of the hut.">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>)>)
|
|
(T
|
|
<COND (<IN? ,PARKA ,HUT-MAN>
|
|
<MOVE ,PARKA ,HUT-STORAGE>)>
|
|
<COND (<EQUAL? ,HERE ,NORTH-HUT>
|
|
<BOLDTELL
|
|
"Through the window, you watch as the man walks
|
|
out of sight toward the rear of the hut.">)
|
|
(<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<COND (<IN? ,PARKA ,HUT-STORAGE>
|
|
<BOLDTELL
|
|
"The man, coat in hand, enters the storage area and throws the coat
|
|
onto the floor. After looking around for a moment, he returns whence
|
|
he came.">)
|
|
(T
|
|
<BOLDTELL
|
|
"The man enters the storage area, looks around for a moment, scratches his
|
|
balding head, and returns whence he came.">)>)>)>>
|
|
|
|
<ROUTINE HUT-STORAGE-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"The storage area connects to the main living area of the hut through an
|
|
open doorway to the west. A door which is ">
|
|
<DOOR-TELL ,HUT-BACK-DOOR>
|
|
<TELL " leads back into the forest." CR>)>>
|
|
|
|
<ROUTINE DOOR-TELL (D)
|
|
<COND (<FSET? .D ,OPENBIT> <TELL "open">)
|
|
(T <TELL "closed">)>>
|
|
|
|
<OBJECT HUT-WOOD
|
|
(LOC HUT-LIVING)
|
|
(DESC "wood pile")
|
|
(SYNONYM PILE WOOD)
|
|
(ADJECTIVE WOOD)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION HUT-WOOD-F)>
|
|
|
|
<GLOBAL HUT-WOOD-ADDED <>>
|
|
|
|
<ROUTINE HUT-WOOD-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The pile is sitting next to the wood stove, and has about ">
|
|
<COND (,HUT-WOOD-ADDED
|
|
<TELL "twenty">)
|
|
(T
|
|
<TELL "a dozen">)>
|
|
<TELL " pieces of wood on it." CR>)
|
|
(<VERB? TAKE>
|
|
<TELL "It can't help you. Leave it alone." CR>)
|
|
(<VERB? CUT>
|
|
<TOO-LATE>)>>
|
|
|
|
<ROOM HUT-LIVING
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT HUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "Living Room")
|
|
(WEST TO OUTSIDE-HUT IF HUT-FRONT-DOOR IS OPEN)
|
|
(EAST TO HUT-STORAGE)
|
|
(SOUTH TO HUT-BEDROOM)
|
|
(OUT TO OUTSIDE-HUT IF HUT-FRONT-DOOR IS OPEN)
|
|
(ACTION HUT-LIVING-F)
|
|
(GLOBAL HUT-WINDOW HUT HUT-FRONT-DOOR)
|
|
(WOODFCN HUT-LIVING-WF)>
|
|
|
|
<ROUTINE TAKEABLE? (OBJ "AUX" F)
|
|
<SET F <FIRST? .OBJ>>
|
|
<REPEAT ()
|
|
<COND (<NOT .F> <RFALSE>)
|
|
(<FSET? .F ,TAKEBIT>
|
|
<RTRUE>)
|
|
(T
|
|
<SET F <NEXT? .F>>)>>>
|
|
|
|
<OBJECT GLOBAL-HUT-MAN
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "hut owner")
|
|
(SYNONYM OWNER MAN)
|
|
(ADJECTIVE HUT)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-HUT-MAN-F)>
|
|
|
|
<ROUTINE GLOBAL-HUT-MAN-F ()
|
|
<COND (<VERB? FOLLOW>
|
|
<TELL
|
|
"Unwise; if he saw you, the results could be disastrous." CR>)
|
|
(<VERB? EXAMINE>
|
|
<COND (<HUT-MAN-DESC> T)
|
|
(T
|
|
<TELL "You can't see him here." CR>)>)>>
|
|
|
|
<ROUTINE HUT-MAN-DESC ("OPTIONAL" (STR "He's"))
|
|
<COND (<AND <IN? ,HUT-MAN ,HUT-LIVING>
|
|
<NOT ,HUT-BURNING>
|
|
<EQUAL? ,HERE ,NORTH-HUT ,HUT-BEDROOM ,HUT-STORAGE>>
|
|
<TELL .STR " in the living room, ">
|
|
<COND (<OR ,WOOD-RETURNING <NOT <G? ,WOOD-COUNT 0>>>
|
|
<TELL "sitting in a chair">)
|
|
(<EQUAL? ,HUT-MAN-FROM ,OUTSIDE-HUT>
|
|
<TELL "heading toward the storage area">)
|
|
(T
|
|
<TELL "heading toward the front door">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<AND <IN? ,HUT-MAN ,D5>
|
|
<OR <EQUAL? ,HERE ,OUTSIDE-HUT ,SOUTH-HUT ,NORTH-HUT>
|
|
<EQUAL? ,HERE ,ROAD-END>>>
|
|
<TELL .STR " in the clearing, ">
|
|
<COND (<EQUAL? ,HUT-MAN-FROM ,OUTSIDE-HUT>
|
|
<TELL "heading into the forest to the northwest">)
|
|
(T
|
|
<TELL "heading back toward the hut with an armful
|
|
of logs">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<AND <IN? ,HUT-MAN ,INSIDE-SHED>
|
|
<EQUAL? ,HERE ,OUTSIDE-SHED>>
|
|
<TELL .STR " inside the shed, collecting logs." CR>)
|
|
(<AND <IN? ,HUT-MAN ,HUT-STORAGE>
|
|
<EQUAL? ,HERE ,BEHIND-HUT ,HUT-LIVING>>
|
|
<TELL .STR " in the storage area, ">
|
|
<COND (,WOOD-RETURNING
|
|
<TELL "preparing to return to the living room">)
|
|
(T
|
|
<TELL "looking for his parka">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<AND <IN? ,HUT-MAN ,OUTSIDE-HUT>
|
|
<OR <EQUAL? ,HERE ,ROAD-END ,D5 ,NORTH-HUT>
|
|
<EQUAL? ,HERE ,SOUTH-HUT>>
|
|
<G? ,WOOD-COUNT 0>>
|
|
<TELL .STR " outside the hut, ">
|
|
<COND (<EQUAL? ,HUT-MAN-FROM ,D5>
|
|
<TELL "heading inside with an armful of logs">)
|
|
(T
|
|
<TELL "heading off toward the clearing">)>
|
|
<TELL ,PERIOD-CR>)>>
|
|
|
|
<ROUTINE HUT-LIVING-WF (FRM)
|
|
<COND (<EQUAL? ,HERE ,HUT-LIVING ,HUT-BEDROOM>
|
|
<MAN-CATCHES T>)
|
|
(<EQUAL? .FRM ,OUTSIDE-HUT>
|
|
<COND (,HUT-BURNING
|
|
<REMOVE ,HUT-MAN>
|
|
<SETG WOOD-COUNT -10000>
|
|
;"Turn off this interrupt the hard way"
|
|
<BOLDTELL
|
|
"The man, seeing that his hut is on fire, runs off into the forest to the
|
|
northeast.">)
|
|
(<EQUAL? ,HERE ,SOUTH-HUT ,ROAD-END>
|
|
<BOLDTELL
|
|
"You watch the man, carrying a large pile of wood, reenter his hut.">)
|
|
(<EQUAL? ,HERE ,NORTH-HUT ,HUT-BEDROOM>
|
|
<SETG HUT-WOOD-ADDED T>
|
|
<BOLDTELL
|
|
"You watch as the man enters the hut, drops the pile of wood on the floor
|
|
near the wood stove, and heads toward the rear of the hut.">)
|
|
(<EQUAL? ,HERE ,HUT-STORAGE>
|
|
<BOLDTELL
|
|
"The owner of the hut returns with a pile of wood in his hands. Luckily,
|
|
he hasn't seen you yet.">)>)
|
|
(,WOOD-RETURNING
|
|
;"Coming back from returning parka"
|
|
<COND (<EQUAL? ,HERE ,NORTH-HUT>
|
|
<BOLDTELL
|
|
"Through the window, you watch the man return to the living room, throw
|
|
some logs into the wood stove, and return to his easy chair.">)
|
|
(<EQUAL? ,HERE ,HUT-BEDROOM>
|
|
<TELL
|
|
"You see the man return to the living room, then pass your line of sight.
|
|
Presumably, he has taken a seat there." CR>)
|
|
(<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<MAN-TO-LIVING-ROOM>)>
|
|
<OWNER-NOTICES?>
|
|
<RTRUE>)
|
|
(<EQUAL? ,HERE ,NORTH-HUT>
|
|
<CRLF>
|
|
<HLIGHT ,H-BOLD>
|
|
<TELL
|
|
"Through the window, you see the man enter the living room">
|
|
<COND (<IN? ,PARKA ,HUT-MAN>
|
|
<TELL " wearing a white parka">)>
|
|
<TELL
|
|
", and proceed to the front door, stopping for a moment to count the
|
|
logs sitting by the wood stove.">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>)
|
|
(<EQUAL? ,HERE ,BEHIND-HUT>
|
|
<MAN-TO-LIVING-ROOM>)>>
|
|
|
|
<ROUTINE OWNER-NOTICES? ()
|
|
<COND (<AND <TAKEABLE? ,HUT-LIVING>
|
|
<FSET? ,HERE ,HUTBIT>>
|
|
<CRLF>
|
|
<HLIGHT ,H-BOLD>
|
|
<MOVE ,HUT-MAN ,HERE>
|
|
<JIGS-UP
|
|
"The owner, presumably alerted by something amiss in the living
|
|
room, has no trouble locating you. In a short time, the border
|
|
patrol has arrived.">)>>
|
|
|
|
<ROUTINE MAN-TO-LIVING-ROOM ()
|
|
<BOLDTELL
|
|
"The man returns to the living room, leaving your line of sight.">>
|
|
|
|
<ROUTINE MAN-CATCHES ("OPTIONAL" (HME? <>))
|
|
<MOVE ,HUT-MAN ,HERE>
|
|
<HLIGHT ,H-BOLD>
|
|
<CRLF>
|
|
<COND (.HME?
|
|
<TELL
|
|
"The owner of the hut returns to the living room and spots you before
|
|
you can react. He">
|
|
<JIGS-UP ,HAVE-A-SEAT>)
|
|
(<FSET? ,HERE ,HUTBIT>
|
|
<TELL
|
|
"The owner of the hut spots you, and">
|
|
<JIGS-UP ,HAVE-A-SEAT>)
|
|
(T
|
|
<JIGS-UP ,HUT-MAN-HALT>)>
|
|
<RTRUE>>
|
|
|
|
<CONSTANT HAVE-A-SEAT
|
|
" reaches for a gun which he carries
|
|
under his belt. \"Have a seat,\" he advises, as he calls for the
|
|
authorities on his radio telephone. All you can do is wait until they
|
|
arrive.">
|
|
|
|
<ROUTINE HUT-LIVING-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"The main living area in the hut is extremely simple, consisting of
|
|
a couch, a table, a few chairs, and a small kitchen area. A woodstove
|
|
in the corner keeps the room warm, and a small lightbulb dangling from the end
|
|
of a cord keeps the room lit. On a wall hangs what appears to be a map of
|
|
the local area. To the south, a doorway leads to the bedroom, and to the
|
|
east, a smaller doorway leads to what appears from here to
|
|
be a storage area. The front door, to the west, leads outside. At the moment,
|
|
it is ">
|
|
<DOOR-TELL ,HUT-FRONT-DOOR>
|
|
<TELL ,PERIOD-CR>)>>
|
|
|
|
<OBJECT HUT-MAP
|
|
(LOC HUT-LIVING)
|
|
(SYNONYM MAP DIAGRAM)
|
|
(DESC "map")
|
|
(FLAGS READBIT NDESCBIT)
|
|
(ACTION HUT-MAP-F)>
|
|
|
|
<ROUTINE HUT-MAP-F ()
|
|
<COND (<VERB? OPEN>
|
|
<TELL
|
|
"It's framed on the wall, not folded up!" CR>)
|
|
(<VERB? READ EXAMINE>
|
|
<TELL
|
|
"This is the map included in your BORDER ZONE package." CR>)>>
|
|
|
|
<OBJECT MISC-LIVING
|
|
(LOC HUT-LIVING)
|
|
(DESC "living room item")
|
|
(SYNONYM COUCH TABLE CHAIR CHAIRS BULB LIGHTBULB STOVE WOODSTOVE)
|
|
(ADJECTIVE WOOD LIGHT)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION MISC-LIVING-F)>
|
|
|
|
<ROUTINE MISC-LIVING-F ()
|
|
<TELL
|
|
"There's nothing of interest here; you'd best get on with your more
|
|
pressing problems." CR>>
|
|
|
|
<OBJECT NORMAL-SHOES
|
|
(DESC "pair of everyday black shoes")
|
|
(SYNONYM PAIR SHOES)
|
|
(ADJECTIVE EVERYDAY BLACK)
|
|
(FLAGS WEARBIT TAKEBIT WORNBIT)
|
|
(SCENARIO 2)
|
|
(GENERIC GENERIC-SHOES)
|
|
(ACTION SHOES-F)
|
|
(SPEED 50)>
|
|
|
|
<GLOBAL SHOES-WORN 0>
|
|
|
|
<OBJECT PARKA
|
|
(LOC HUT-STORAGE)
|
|
(DESC "white down parka")
|
|
(SYNONYM PARKA COAT OVERCOAT)
|
|
(ADJECTIVE WHITE DOWN)
|
|
(FLAGS WEARBIT TAKEBIT)
|
|
(SCENARIO 2)>
|
|
|
|
<OBJECT OIL-CAN
|
|
(LOC HUT-STORAGE)
|
|
(DESC "can of household oil")
|
|
(SYNONYM CAN OIL)
|
|
(ADJECTIVE HOUSEHOLD OIL)
|
|
(FLAGS TAKEBIT)
|
|
(SCENARIO 2)
|
|
(ACTION OIL-CAN-F)>
|
|
|
|
<ROUTINE OIL-CAN-F ()
|
|
<COND (<VERB? EXAMINE LOOK-INSIDE>
|
|
<TELL
|
|
"It's your everyday oil can, and it's pretty full of oil. Out here in the
|
|
middle of nowhere, it probably comes in quite handy." CR>)>>
|
|
|
|
<OBJECT WORK-SHOES
|
|
(LOC HUT-STORAGE)
|
|
(DESC "pair of work shoes")
|
|
(SYNONYM PAIR SHOES WORKSHOES)
|
|
(ADJECTIVE WORK HEAVY)
|
|
(FLAGS WEARBIT TAKEBIT)
|
|
(SCENARIO 2)
|
|
(ACTION SHOES-F)
|
|
(GENERIC GENERIC-SHOES)
|
|
(SPEED 30)
|
|
(SIZE 15)>
|
|
|
|
<ROUTINE GENERIC-SHOES ()
|
|
<COND (<AND <VERB? TAKE-OFF REMOVE>
|
|
<FSET? ,WORK-SHOES ,WORNBIT>>
|
|
,WORK-SHOES)
|
|
(<AND <VERB? TAKE-OFF REMOVE>
|
|
<FSET? ,NORMAL-SHOES ,WORNBIT>>
|
|
,NORMAL-SHOES)>>
|
|
|
|
<OBJECT BOOTS
|
|
(LOC HUT-STORAGE)
|
|
(DESC "pair of knee-boots")
|
|
(SYNONYM PAIR BOOTS KNEE-BOOTS)
|
|
(ADJECTIVE KNEE)
|
|
(FLAGS WEARBIT TAKEBIT)
|
|
(SCENARIO 2)
|
|
(ACTION SHOES-F)
|
|
(SPEED 40)
|
|
(SIZE 10)>
|
|
|
|
<OBJECT KNAPSACK
|
|
(LOC HUT-STORAGE)
|
|
(DESC "knapsack")
|
|
(SYNONYM KNAPSACK SACK PACK)
|
|
(ADJECTIVE LARGE)
|
|
(FLAGS TAKEBIT WEARBIT CONTBIT OPENBIT SEARCHBIT)
|
|
(SCENARIO 2)
|
|
(CAPACITY 60)
|
|
(ACTION KNAPSACK-F)>
|
|
|
|
<ROUTINE KNAPSACK-F ()
|
|
<COND (<VERB? OPEN CLOSE>
|
|
<TELL
|
|
"The knapsack has a cover which can't be fastened, which is just as
|
|
well, since you don't have to worry about opening or closing it." CR>)>>
|
|
|
|
<ROUTINE SHOES-F ()
|
|
<COND (<VERB? CLEAN>
|
|
<COND (<FSET? ,PRSO ,MUNGEDBIT>
|
|
<TELL
|
|
"It's a good idea, but facilities around here are scarce." CR>)
|
|
(T
|
|
<TELL "They'll do just fine as is." CR>)>)
|
|
(<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,PRSO ,WORK-SHOES>
|
|
<TELL
|
|
"These shoes have rugged soles for traction; they're in good shape">)
|
|
(<EQUAL? ,PRSO ,BOOTS>
|
|
<TELL
|
|
"The boots are about knee high, with fairly slick soles. They've seen
|
|
better days, but at least they appear to be intact">)
|
|
(T
|
|
<TELL "They're just an ordinary " D ,PRSO>)>
|
|
<COND (<FSET? ,PRSO ,MUNGEDBIT>
|
|
<TELL ", though they're covered inside and out in swamp muck, which will slow you down a bit when you're wearing them">)>
|
|
<TELL ,PERIOD-CR>)
|
|
(<VERB? TAKE-OFF>
|
|
<COND (,IN-SWAMP?
|
|
<TELL
|
|
"Not in the swamp, you won't!" CR>)
|
|
(,SHOES-WORN
|
|
<COND (<NOT <EQUAL? ,SHOES-WORN ,PRSO>>
|
|
<TELL "You're not wearing those." CR>)
|
|
(T
|
|
<TELL "You take off the " D ,SHOES-WORN
|
|
" and put them on the ground." CR>
|
|
<SETG SHOES-WORN <>>
|
|
<MOVE ,PRSO ,HERE>
|
|
<FCLEAR ,PRSO ,WORNBIT>
|
|
<RTRUE>)>)
|
|
(T
|
|
<TELL "You're not wearing any shoes." CR>)>)
|
|
(<VERB? WEAR>
|
|
<COND (<EQUAL? ,SHOES-WORN ,PRSO>
|
|
<TOO-LATE>)
|
|
(,IN-SWAMP?
|
|
<TELL
|
|
"Not in the swamp, you won't!" CR>)
|
|
(,SHOES-WORN
|
|
<TELL "You take off the " D ,SHOES-WORN
|
|
", put them on the ground, and put on the "
|
|
D ,PRSO "." CR>
|
|
<MOVE ,SHOES-WORN ,HERE>
|
|
<FCLEAR ,SHOES-WORN ,WORNBIT>
|
|
<SETG SHOES-WORN ,PRSO>
|
|
<FSET ,SHOES-WORN ,WORNBIT>
|
|
<MOVE ,SHOES-WORN ,WINNER>)
|
|
(T
|
|
<TELL "You put on the " D ,PRSO "." CR>
|
|
<FSET ,PRSO ,WORNBIT>
|
|
<MOVE ,PRSO ,WINNER>
|
|
<SETG SHOES-WORN ,PRSO>)>)>>
|
|
|
|
<ROOM HUT-BEDROOM
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT HUTBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "Bedroom")
|
|
(LDESC
|
|
"The bedroom is a shambles, consisting in all of a bed and a chair, over which
|
|
are draped assorted clothes too numerous and jumbled to mention. A small
|
|
window looks south to a snowy landscape.")
|
|
(NORTH TO HUT-LIVING)
|
|
(OUT TO HUT-LIVING)
|
|
(GLOBAL HUT-WINDOW HUT)>
|
|
|
|
<OBJECT MISC-CLOTHING
|
|
(LOC HUT-BEDROOM)
|
|
(DESC "jumbled clothing")
|
|
(SYNONYM CLOTHES CLOTHING)
|
|
(ADJECTIVE JUMBLED ASSORTED)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION MISC-CLOTHING-F)>
|
|
|
|
<ROUTINE MISC-CLOTHING-F ()
|
|
<COND (<VERB? SEARCH EXAMINE>
|
|
<TELL
|
|
"There's nothing interesting in the clothes." CR>)
|
|
(T
|
|
<TELL
|
|
"The clothing isn't of any interest." CR>)>>
|
|
|
|
|
|
<OBJECT MISC-FURNITURE
|
|
(LOC HUT-BEDROOM)
|
|
(DESC "furniture")
|
|
(SYNONYM BED CHAIR)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION MISC-FURNITURE-F)>
|
|
|
|
<ROUTINE MISC-FURNITURE-F ()
|
|
<TELL
|
|
"Never mind about the furniture. It's not important now." CR>>
|
|
|
|
<ROOM ROAD-END
|
|
(EW 4)
|
|
(NS 5)
|
|
(FLAGS VILLAGEBIT)
|
|
(PATH 0)
|
|
(LOC ROOMS)
|
|
(DESC "End of the Road")
|
|
(NORTH TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"The clearing before you is large and open, and you are concerned about being
|
|
so exposed. Seeing the hut off to the east, you decide to play it safe by
|
|
taking a position just to its south, where you can better gauge the
|
|
situation.")
|
|
(SOUTH TO D6 IF HACK-FLAG ELSE
|
|
"You continue down the road and come to the junction of a larger road
|
|
running from south to east.")
|
|
(EAST TO E5 IF FALSE-FLAG ELSE
|
|
"You leave the side of the roadway, bear off slightly to the north to
|
|
avoid a thicket, and reenter the forest. A cold gust of wind chills you
|
|
to the bone.")
|
|
(WEST TO C5 IF FALSE-FLAG ELSE
|
|
"You leave the side of the roadway and reenter the forest. A cold gust
|
|
of wind chills you to the bone.")
|
|
(NE TO SOUTH-HUT IF FALSE-FLAG ELSE
|
|
"You walk around to the south side of the hut.")
|
|
(NW TO C5 IF FALSE-FLAG ELSE
|
|
"You leave the side of the roadway and reenter the forest.")
|
|
(SE TO E6 IF FALSE-FLAG ELSE
|
|
"You leave the roadway, and reenter the forest. After a few dozen yards,
|
|
you come to a roadway running east and west.")
|
|
(SW TO C6 IF FALSE-FLAG ELSE
|
|
"You leave the side of the roadway and reenter the forest.")
|
|
(GLOBAL HUT CHIMNEY)
|
|
(ACTION ROAD-END-F)>
|
|
|
|
<ROUTINE ROAD-END-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-ENTER-DESC>
|
|
<CAR-SEQ-TELL>)
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You're now at the end of a road (fortunately, not THE road) which starts
|
|
off to the south through the forest. Just north of here lies a small clearing
|
|
and east of that, a wooden hut">
|
|
<COND (,HUT-BURNING
|
|
<TELL ", which is engulfed in flame">)>
|
|
<TELL ,PERIOD-CR>
|
|
<CAR-SEQ-TELL>
|
|
<RTRUE>)>>
|
|
|
|
<ROOM D6
|
|
(EW 4)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "Road Spur")
|
|
(PATH 0)
|
|
(WEST TO C6 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(EAST TO E6 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards, to a point
|
|
where it bends to the northeast.")
|
|
(SE TO E7 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from northeast to south. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(SW TO C7 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(SOUTH TO D7 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards.")
|
|
(NORTH TO ROAD-END IF HACK-FLAG ELSE
|
|
"You walk onto the spur leading north, and continue until the road ends
|
|
just south of a clearing.")
|
|
(NE TO E5 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(NW TO C5 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<ROUTINE ROAD-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing on a piece of roadway that winds its way through the
|
|
forest. At this point, the road ">
|
|
<COND (<EQUAL? ,HERE ,D6>
|
|
<TELL "bends, running to the south and east. In
|
|
addition, a narrow spur leads north and out of sight." CR>)
|
|
(<EQUAL? ,HERE ,D7>
|
|
<TELL "runs north and south." CR>)
|
|
(<EQUAL? ,HERE ,D8 ,F5>
|
|
<TELL "bends, running to the north and
|
|
southwest." CR>)
|
|
(<EQUAL? ,HERE ,E6>
|
|
<TELL "bends, running from west to
|
|
northeast." CR>)
|
|
(T
|
|
<TELL "bends, running from the south to
|
|
the northeast." CR>)>)>>
|
|
|
|
<ROOM D7
|
|
(EW 4)
|
|
(NS 7)
|
|
(LOC ROOMS)
|
|
(DESC "On the Roadway")
|
|
(PATH 0)
|
|
(WEST TO C7 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(EAST TO E7 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from northeast to south. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(SE TO E8 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp. Putrid sulphurous vapors fill your lungs as you step to
|
|
the edge of the noisome waters. The swamp's edge continues to the
|
|
north and southwest.")
|
|
(SW TO C8 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(SOUTH TO D8 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards; the road
|
|
continues along here to the southwest.")
|
|
(NORTH TO D6 IF HACK-FLAG ELSE
|
|
"You walk along the road for a hundred or so yards, snow swirling in your
|
|
face. The road bends to the east here, but a narrow spur continues north.")
|
|
(NE TO E6 IF HACK-FLAG ELSE
|
|
"A brisk wind gives you a deep chill, but you reenter the forest. Soon,
|
|
you rejoint the road which now is running from east to west.")
|
|
|
|
(NW TO C6 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<ROOM D8
|
|
(EW 4)
|
|
(NS 8)
|
|
(LOC ROOMS)
|
|
(DESC "On the Roadway")
|
|
(PATH 0)
|
|
(WEST TO C8 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(EAST TO E8 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp. Putrid sulphurous vapors fill your lungs as you step to
|
|
the edge of the noisome waters. The swamp's edge continues to the
|
|
north and southwest.")
|
|
(SE TO E8 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp. Putrid sulphurous vapors fill your lungs as you step to
|
|
the edge of the noisome waters. The swamp's edge continues to the
|
|
north and southwest.")
|
|
(SW TO C9 IF HACK-FLAG ELSE
|
|
"You continue along the road as it heads south toward the mouth of a
|
|
tunnel. The road is joined here by railroad tracks which also lead into the
|
|
tunnel, but bend to the northwest alongside a steep ridge.")
|
|
(SOUTH TO D9 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp, which continues northeast. Putrid sulphurous vapors fill your
|
|
lungs as you step to the edge of the noisome waters.")
|
|
(NORTH TO D7 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards.")
|
|
(NE TO E7 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from northeast to south. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(NW TO C7 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<ROOM D9
|
|
(EW 4)
|
|
(NS 9)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO C9)
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW SORRY
|
|
"You can't move any farther in that direction.")
|
|
(SOUTH SORRY
|
|
"You can't move any farther in that direction.")
|
|
(NORTH TO D8 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
running from the north to the southwest.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(NE PER E8-SWAMP)
|
|
(NW TO C8 IF HACK-FLAG ELSE
|
|
"You leave the edge of the swamp and enter the forest; it is quite a
|
|
relief for your nose. You take some deep breaths, continue for a
|
|
hundred yards, and stop.")
|
|
(FLAGS SWAMPBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROOM E3
|
|
(EW 5)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO D3 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(EAST TO F3 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SE TO F4 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
northeast to south.")
|
|
(SW TO D4 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(SOUTH TO E4 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH TO E2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(NE SORRY
|
|
"You can't move any farther in that direction.")
|
|
(NW TO D2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(FLAGS FORESTBIT)
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM E4
|
|
(EW 5)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO D4 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(EAST TO F4 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
northeast to south.")
|
|
(SE TO F5 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to southwest.")
|
|
(SW TO NORTH-HUT IF HACK-FLAG ELSE
|
|
"You continue through the forest and come to the north side of
|
|
a small wooden hut. Smoke rises in black swirls from the chimney,
|
|
indicating that it's likely that somebody's home.")
|
|
(SOUTH TO E5 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(NORTH TO E3 IF HACK-FLAG ELSE
|
|
"The blowing snow blinds you for a moment as you walk through the
|
|
forest.")
|
|
(NE TO F3 IF HACK-FLAG ELSE
|
|
"A branch falls from a nearby tree, startling you briefly. You
|
|
turn back and press on through the forest.")
|
|
(NW TO D3 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(FLAGS FORESTBIT)
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM E5
|
|
(EW 5)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO BEHIND-HUT IF HACK-FLAG ELSE
|
|
"A cold gust of wind swirls snow into your face, making it difficult
|
|
to see clearly, but you press on through the forest, finally coming to
|
|
the back door of a small wooden hut. Smoke rises from the chimney above.")
|
|
(EAST TO F5 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to southwest.")
|
|
(SE TO F6 IF HACK-FLAG ELSE
|
|
"You cross a road, leave the forest, and come to the edge of a dank area at
|
|
the edge of a swamp running from northeast to southwest. Putrid sulphurous
|
|
vapors fill your lungs as you step to the edge of the noisome waters.")
|
|
(SW TO D6 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
south to east, with a narrow spur leading north.")
|
|
(SOUTH TO E6 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
east to west.")
|
|
(NORTH TO E4 IF HACK-FLAG ELSE
|
|
"A pile of snow falls on your head from a heavily laden branch
|
|
above. You shake it off, and continue through the forest.")
|
|
(NE TO F4 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
northeast to south.")
|
|
(NW TO D4 IF HACK-FLAG ELSE
|
|
"You continue through the forest for a hundred yards, and then
|
|
stop. Snowflakes fall softly around you - nearby, a small animal
|
|
scurries through the brush.")
|
|
(FLAGS FORESTBIT)
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM E6
|
|
(EW 5)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "On the Roadway")
|
|
(PATH 0)
|
|
(WEST TO D6 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards, to a point
|
|
where it curves to the left, heading south. A small spur of the road
|
|
leads north.")
|
|
(EAST TO F6 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp running from northeast to southwest. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(SE TO F6 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp running from northeast to southwest. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(SW TO D7 IF HACK-FLAG ELSE
|
|
"You leave the road, walk through the forest, and then come upon the same
|
|
road again, now heading north-south.")
|
|
(SOUTH TO E7 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from northeast to south. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(NORTH TO E5 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(NE TO F5 IF HACK-FLAG ELSE
|
|
"A brisk wind gives you a deep chill, but you continue along the road
|
|
to the point at which it bends to the north.")
|
|
|
|
(NW TO SOUTH-HUT IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you come to the south side of a small hut. The
|
|
smoke from the chimney indicates that perhaps someone is home.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<ROOM E7
|
|
(EW 5)
|
|
(NS 7)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO D7 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from north to south.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW TO D8 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from the north to the southwest.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(SOUTH PER E8-SWAMP)
|
|
(NORTH TO E6 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby east-west roadway.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(NE PER F6-SWAMP)
|
|
(NW TO D6 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once. The road leads east
|
|
and south, but a narrow spur heads to the north.")
|
|
(FLAGS SWAMPBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROUTINE G4-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,G4>
|
|
|
|
<ROUTINE E7-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,E7>
|
|
|
|
<ROUTINE E8-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,E8>
|
|
|
|
<ROUTINE D9-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,D9>
|
|
|
|
<ROUTINE G5-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,G5>
|
|
|
|
<ROUTINE F6-SWAMP ()
|
|
<SWAMP-MOVE-TELL>
|
|
,F6>
|
|
|
|
<ROUTINE SWAMP-MOVE-TELL ()
|
|
<TELL
|
|
"You continue along the edge of the swamp, your feet ">
|
|
<COND (,IN-SWAMP?
|
|
<TELL "sinking a foot or so into the mud">)
|
|
(T
|
|
<TELL "leaving deep prints in the sticky mud">)>
|
|
<TELL ". The air remains stench-laden, and you're
|
|
eager to move quickly, but the ground is soft and progress slow." CR CR>>
|
|
|
|
<ROUTINE SWAMP-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"You are standing ">
|
|
<COND (,IN-SWAMP?
|
|
<TELL "a few feet into the swamp, where the
|
|
muck rises a foot up your leg.">)
|
|
(T
|
|
<TELL "at the edge of a swamp.">)>
|
|
<TELL
|
|
" You could follow along the edge of the swamp to the ">
|
|
<COND (<EQUAL? ,HERE ,E7>
|
|
<TELL "south and northeast">)
|
|
(<EQUAL? ,HERE ,E8 ,G5>
|
|
<TELL "north and southwest">)
|
|
(<EQUAL? ,HERE ,D9>
|
|
<TELL "northeast">)
|
|
(<EQUAL? ,HERE ,F6>
|
|
<TELL "southwest and northeast">)
|
|
(T
|
|
<TELL "south">)>
|
|
<TELL ". On the other hand, you could leave the
|
|
swamp and walk onto the roadway by going ">
|
|
<COND (<EQUAL? ,HERE ,D9 ,E7 ,F6>
|
|
<TELL "west or north">)
|
|
(T ;<EQUAL? ,HERE ,E8 ,G5 ,G4>
|
|
<TELL "west">)>
|
|
<TELL ,PERIOD-CR>)>>
|
|
|
|
<ROOM E8
|
|
(EW 5)
|
|
(NS 8)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO D8 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
north to southwest.")
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW PER D9-SWAMP)
|
|
(SOUTH PER SWAMP-MOVE)
|
|
(NORTH PER E7-SWAMP)
|
|
(NE PER SWAMP-MOVE)
|
|
(NW TO D7 IF HACK-FLAG ELSE
|
|
"You emerge from the swamp and come to a roadway running from
|
|
north to south.")
|
|
(FLAGS SWAMPBIT FORESTBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROOM F3
|
|
(EW 6)
|
|
(NS 3)
|
|
(LOC ROOMS)
|
|
(DESC "Inside the Forest")
|
|
(PATH 0)
|
|
(WEST TO E3 IF HACK-FLAG ELSE
|
|
"You stumble through a three-foot snowdrift, but get back on your
|
|
feet quickly and proceed through the forest.")
|
|
(EAST SORRY
|
|
"You'd be caught in a moment.")
|
|
(SE TO G4 IF HACK-FLAG ELSE
|
|
"You leave the forest, crossing a roadway, and come to the edge of a dank
|
|
area at the edge of a swamp which continues to the south. Putrid sulphurous
|
|
vapors fill your lungs as you step to the edge of the noisome waters.")
|
|
(SW TO E4 IF HACK-FLAG ELSE
|
|
"You walk through the forest, breaking branches as you go, and
|
|
finally stop after walking about a hundred yards.")
|
|
(SOUTH TO F4 IF HACK-FLAG ELSE
|
|
"You emerge from the thick forest and come to a roadway running from
|
|
northeast to south.")
|
|
(NORTH SORRY
|
|
"You scramble up a bit, but slide back down. It's just too steep.")
|
|
(NE SORRY
|
|
"You can't move any farther in that direction.")
|
|
(NW TO E2 IF HACK-FLAG ELSE
|
|
"You continue through the forest, until you come to the edge of a wide
|
|
clearing to the north - this is the border zone. From atop three guard
|
|
towers standing in a line from east to west, searchlights play across
|
|
the zone, brightly illuminating everything in their path. On either side
|
|
of the towers are tall fences, running parallel to the border, making a
|
|
direct assault all but impossible.")
|
|
(FLAGS FORESTBIT)
|
|
(ACTION FOREST-ROOM-F)>
|
|
|
|
<ROOM F4
|
|
(EW 6)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "On the Roadway")
|
|
(PATH 0)
|
|
(WEST TO E4 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(EAST TO G4 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which continues to the south. Putrid sulphurous vapors fill your
|
|
lungs as you step to the edge of the noisome waters.")
|
|
(SE TO G5 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from the north to the southwest. Putrid sulphurous
|
|
vapors fill your lungs as you step to the edge of the noisome waters.")
|
|
(SW TO E5 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(SOUTH TO F5 IF HACK-FLAG ELSE
|
|
"You continue along the roadway for about a hundred yards to a point
|
|
where it bends to the southwest.")
|
|
(NORTH TO F3 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(NE SORRY
|
|
"You start along the road, until you see a roadblock come into sight; you
|
|
duck back into the forest. It would never work to go that way.")
|
|
(NW TO E3 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<OBJECT ROADBLOCK
|
|
(DESC "roadblock")
|
|
(SYNONYM BLOCK ROADBLOCK)
|
|
(ADJECTIVE ROAD)
|
|
(LOC GLOBAL-OBJECTS)
|
|
(SCENARIO 2)
|
|
(ACTION ROADBLOCK-F)>
|
|
|
|
<ROUTINE ROADBLOCK-F ()
|
|
<COND (<EQUAL? ,HERE ,F4 ,G4>
|
|
<TELL
|
|
"There's no roadblock here, but there is surely one lurking
|
|
in the darkness nearby." CR>)
|
|
(T
|
|
<CANT-SEE ,ROADBLOCK>)>>
|
|
|
|
<ROOM F5
|
|
(EW 6)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "On the Roadway")
|
|
(PATH 0)
|
|
(WEST TO E5 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(EAST TO G5 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which runs from the north to the southwest. Putrid sulphurous
|
|
vapors fill your lungs as you step to the edge of the noisome waters.")
|
|
(SE SORRY
|
|
"You can't move any farther in that direction.")
|
|
(SW TO E6 IF HACK-FLAG ELSE
|
|
"You walk along the road for a hundred or so yards, snow swirling in your
|
|
face. From here, the road continues to the west.")
|
|
(SOUTH TO F6 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp running from northeast to southwest. Putrid sulphurous vapors
|
|
fill your lungs as you step to the edge of the noisome waters.")
|
|
(NORTH TO F4 IF HACK-FLAG ELSE
|
|
"You walk along the road for a hundred or so yards, snow swirling in your
|
|
face, until you come to a point where the road bends to the northeast.")
|
|
(NE TO G4 IF HACK-FLAG ELSE
|
|
"You leave the roadway and come to the edge of a dank area at the edge
|
|
of a swamp which continues to the south. Putrid sulphurous vapors fill your
|
|
lungs as you step to the edge of the noisome waters.")
|
|
(NW TO E4 IF HACK-FLAG ELSE
|
|
"You leave the side of the roadway and enter the forest, proceeding a
|
|
hundred yards before you stop.")
|
|
(FLAGS FORESTBIT ROADBIT)
|
|
(ACTION ROAD-ROOM-F)>
|
|
|
|
<ROOM F6
|
|
(EW 6)
|
|
(NS 6)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO E6 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby east-west roadway.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW PER E7-SWAMP)
|
|
(SOUTH PER SWAMP-MOVE)
|
|
(NORTH TO F5 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from north to southwest here.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(NE PER G5-SWAMP)
|
|
(NW TO E5 IF HACK-FLAG ELSE
|
|
"You leave the edge of the swamp and enter the forest; it is quite a
|
|
relief for your nose. You take some deep breaths, continue for a
|
|
hundred yards, and stop.")
|
|
(FLAGS SWAMPBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROOM G4
|
|
(EW 7)
|
|
(NS 4)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO F4 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from south to northeast.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW TO F5 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from north to southwest here.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(SOUTH PER G5-SWAMP)
|
|
(NORTH SORRY
|
|
"You start onto the roadway, and find yourself facing a roadblock. Realizing
|
|
that you'd be caught in a moment continuing that way, you return to the edge
|
|
of the swamp.")
|
|
(NE PER SWAMP-MOVE)
|
|
(NW TO F3 IF HACK-FLAG ELSE
|
|
"You leave the edge of the swamp and enter the forest; it is quite a
|
|
relief for your nose. You take some deep breaths, continue for a
|
|
hundred yards, and stop.")
|
|
(FLAGS SWAMPBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROOM G5
|
|
(EW 7)
|
|
(NS 5)
|
|
(LOC ROOMS)
|
|
(DESC "Edge of Swamp")
|
|
(PATH 0)
|
|
(WEST TO F5 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from north to southwest here.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(EAST PER SWAMP-MOVE)
|
|
(SE PER SWAMP-MOVE)
|
|
(SW PER F6-SWAMP)
|
|
(SOUTH PER SWAMP-MOVE)
|
|
(NORTH PER G4-SWAMP)
|
|
(NE PER SWAMP-MOVE)
|
|
(NW TO F4 IF HACK-FLAG ELSE
|
|
"You leave the side of the swamp and walk onto the nearby roadway,
|
|
which runs from south to northeast.
|
|
The air is already fresher here, and you cannot help but cough a few
|
|
times, as if to purge the foul air all at once.")
|
|
(FLAGS SWAMPBIT)
|
|
(ACTION SWAMP-ROOM-F)>
|
|
|
|
<ROUTINE SWAMP-MOVE ()
|
|
<COND (<NOT ,IN-SWAMP?>
|
|
<TELL
|
|
"You should simply enter the swamp, if that is indeed your intention." CR>
|
|
<RFALSE>)
|
|
(T
|
|
<TELL
|
|
"You're as far into the swamp as you can go." CR>
|
|
<RFALSE>)>>
|
|
|
|
<OBJECT TRAIN
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "train")
|
|
(SYNONYM TRAIN CHOO-CHOO)
|
|
(ACTION TRAIN-F)>
|
|
|
|
<ROUTINE TRAIN-F ()
|
|
<COND (<EQUAL? ,SCENARIO 2>
|
|
<TELL
|
|
"There's no train anywhere near here, as far as you can tell." CR>)
|
|
(<AND <EQUAL? ,SCENARIO 1>
|
|
<NOT <FSET? ,HERE ,PLATFORMBIT>>>
|
|
<COND (<VERB? DISEMBARK TAKE-OFF LEAVE>
|
|
<COND (<EQUAL? ,HERE ,PASS-6>
|
|
<DO-WALK ,P?SOUTH>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"You'll have to get to the exit, which is near the lavatory." CR>)>)
|
|
(<VERB? OFF OFF-2>
|
|
<TELL
|
|
"You might try the cord, but that would be the only way." CR>)
|
|
(<VERB? LOOK-INSIDE>
|
|
<PERFORM ,V?LOOK-INSIDE ,PASS-WINDOW>
|
|
<RTRUE>)>)>>
|
|
|
|
<OBJECT FOREST
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "forest")
|
|
(SYNONYM FOREST)
|
|
(SCENARIO 2)
|
|
(ACTION FOREST-F)>
|
|
|
|
<ROUTINE FOREST-F ()
|
|
<COND (<VERB? FIND>
|
|
<TELL
|
|
"You cannot see the forest for the trees." CR>)
|
|
(<VERB? SEARCH>
|
|
<TELL
|
|
"That would take hours or days; you've got seconds or minutes." CR>)
|
|
(<VERB? ENTER LEAVE>
|
|
<TELL
|
|
"You should use compass directions to do that." CR>)>>
|
|
|
|
<OBJECT GLOBAL-HUT
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "hut")
|
|
(SYNONYM HUT)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-HUT-F)>
|
|
|
|
<ROUTINE GLOBAL-HUT-F ()
|
|
<COND (<NOT ,BEEN-AT-HUT?>
|
|
<TELL
|
|
"You haven't seen any hut, but it would be a sight for sore eyes." CR>)
|
|
(<VERB? WALK-AROUND>
|
|
<TELL
|
|
"You can't see the hut from here, but the smoke in the sky tells you that
|
|
it's off to the ">
|
|
<TELL-DIRECTION ,HERE ,D5>
|
|
<TELL ". As for walking around it, that's up to you." CR>)
|
|
(<VERB? WALK-TO FIND>
|
|
<COND (<EQUAL? ,HERE ,INSIDE-SHED>
|
|
<TELL "Not from inside the shed." CR>
|
|
<RTRUE>)>
|
|
<TELL
|
|
"You can't see the hut, but the smoke in the sky is coming from the ">
|
|
<TELL-DIRECTION ,HERE ,D5>
|
|
<TELL ", so you start to walk in that direction." CR CR>
|
|
<DO-WALK <RET-DIRECTION ,HERE ,D5>>)>>
|
|
|
|
<OBJECT T-STATION
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "border station")
|
|
(SYNONYM STATION)
|
|
(ADJECTIVE BORDER)
|
|
(TRANSIENT <PLTABLE A2 B2 C2 D2 E2>)
|
|
(ACTION T-STATION-F)>
|
|
|
|
<GLOBAL TOO-FAR "You're too far away to do that.">
|
|
|
|
<ROUTINE T-STATION-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The border station, to the left of the three towers, consists of a
|
|
guards' station and a train platform. The station itself is heavily
|
|
guarded, so movement in that direction would be suicidal." CR>)
|
|
(T
|
|
<TELL ,TOO-FAR CR>)>>
|
|
|
|
<OBJECT GLOBAL-TUNNEL
|
|
(LOC GLOBAL-OBJECTS)
|
|
(SYNONYM TUNNEL)
|
|
(DESC "tunnel")
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-TUNNEL-F)>
|
|
|
|
<ROUTINE GLOBAL-TUNNEL-F ()
|
|
<COND (<VERB? EXAMINE WALK-TO WATCH>
|
|
<COND (<EQUAL? ,HERE ,C9>
|
|
<TELL
|
|
"It's the tunnel you came through just before you jumped. It's a few
|
|
miles long and very, very dark." CR>)
|
|
(T
|
|
<CANT-SEE ,PRSO>)>)
|
|
(<VERB? FIND>
|
|
<TELL
|
|
"If memory serves, it should be off to the ">
|
|
<TELL-DIRECTION ,HERE ,C9>
|
|
<TELL ,PERIOD-CR>)
|
|
(T
|
|
<TELL ,TOO-FAR CR>)>>
|
|
|
|
<OBJECT GLOBAL-SNOW
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "snow")
|
|
(SYNONYM SNOW ICE)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-SNOW-F)>
|
|
|
|
<ROUTINE GLOBAL-SNOW-F ()
|
|
<COND (<VERB? LEAP>
|
|
<TELL
|
|
"This is no time for acrobatics." CR>)
|
|
(<OR <FSET? ,HERE ,HUTBIT>
|
|
<EQUAL? ,HERE ,INSIDE-SHED>>
|
|
<CANT-SEE ,PRSO>)>>
|
|
|
|
<OBJECT GLOBAL-TREES
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "tree")
|
|
(SYNONYM TREE TREES)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-TREES-F)>
|
|
|
|
<ROUTINE GLOBAL-TREES-F ()
|
|
<COND (<OR <FSET? ,HERE ,HUTBIT>
|
|
<EQUAL? ,HERE ,INSIDE-SHED>>
|
|
<TELL
|
|
"There aren't any indoor trees here." CR>)
|
|
(<VERB? CUT>
|
|
<TELL
|
|
"Chopping wood is an exhausting activity and won't help you." CR>)>>
|
|
|
|
<OBJECT GLOBAL-BORDER
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "border")
|
|
(SYNONYM BORDER)
|
|
(SCENARIO 2)
|
|
(ACTION GLOBAL-BORDER-F)>
|
|
|
|
<ROUTINE GLOBAL-BORDER-F ()
|
|
<COND (<VERB? FIND WALK-TO>
|
|
<TELL
|
|
"If memory serves, the border should be to the north." CR>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"It's just like any other military fortress border." CR>)
|
|
(T
|
|
<CANT-SEE ,GLOBAL-BORDER>)>>
|
|
|
|
|
|
|