Final Revision
parent
7edaa11951
commit
85ce9b9d2c
|
@ -0,0 +1,6 @@
|
|||
BETA things:
|
||||
|
||||
1. Move emergency cabinet, floor wax/container? (Too easy)
|
||||
2. Other wing of main building.
|
||||
3. Make junk moving more of a puzzle?
|
||||
4. Eliminate some boring places: Roof of Comp Center...
|
36
cs.zil
36
cs.zil
|
@ -994,6 +994,7 @@ been punched from below.">
|
|||
<TELL S
|
||||
"You would sooner die than open that panel again.|">)
|
||||
(<NOT <FSET? ,PRSO ,OPENBIT>>
|
||||
%<IFSOUND <SOUNDS ,S-MONSTR>>
|
||||
<FSET ,PRSO ,OPENBIT>
|
||||
<QUEUE I-PANEL-NOISES -1>
|
||||
<TELL
|
||||
|
@ -1017,6 +1018,7 @@ there is a response from below." CR>)>)
|
|||
<COND (<FSET? ,PRSO ,OPENBIT>
|
||||
<FCLEAR ,PRSO ,OPENBIT>
|
||||
<DEQUEUE I-PANEL-NOISES>
|
||||
%<IFSOUND <SOUNDS ,S-MONSTR ,S-STOP>>
|
||||
<TELL
|
||||
"You close the panel. You no longer hear the noises, much to your
|
||||
relief." CR>)>)
|
||||
|
@ -1037,6 +1039,7 @@ relief." CR>)>)
|
|||
(<FSET? ,IRON-PLATE ,OPENBIT>
|
||||
<FCLEAR ,IRON-PLATE ,OPENBIT>
|
||||
<DEQUEUE I-PANEL-NOISES>
|
||||
%<IFSOUND <SOUNDS ,S-MONSTR ,S-STOP>>
|
||||
<SETG SEEN-PIT? T>
|
||||
<TELL
|
||||
"You peer through the hole, shining your light into the stygian darkness
|
||||
|
@ -1054,6 +1057,7 @@ missing students." CR>)
|
|||
|
||||
<ROUTINE I-PANEL-NOISES ("OPT" (NOCR? <>))
|
||||
<COND (<NOT <HERE? ,CAVE-ALTAR ,CAVE-ROOM>>
|
||||
%<IFSOUND <SOUNDS ,S-MONSTR ,S-STOP>>
|
||||
<DEQUEUE I-PANEL-NOISES>
|
||||
<RFALSE>)
|
||||
(<AND <NOT .NOCR?> <VERB? LISTEN>>
|
||||
|
@ -1063,6 +1067,7 @@ missing students." CR>)
|
|||
<TELL
|
||||
"A low, guttural, groaning and snarling issues from the opening." CR>)
|
||||
(ELSE
|
||||
%<IFSOUND <SOUNDS ,S-MONSTR ,S-START 2>>
|
||||
<COND (<NOT .NOCR?> <CRLF>)>
|
||||
<TELL
|
||||
"You can still hear faint groans and snarls from the larger cave." CR>)>>
|
||||
|
@ -1116,6 +1121,7 @@ leads down, and a door leads north.")
|
|||
|
||||
<ROUTINE TEMPORARY-LAB-F (RARG)
|
||||
<COND (<RARG? ENTER>
|
||||
;<IFSOUND <SOUNDS ,S-STORMY ,S-STOP>>
|
||||
<DEQUEUE I-FREEZE-TO-DEATH>
|
||||
<COND (<G? ,FREEZE-COUNT 0>
|
||||
<SETG FREEZE-COUNT 0>
|
||||
|
@ -1758,6 +1764,8 @@ CTHE ,ELEVATOR-DOOR " bounce against ">
|
|||
<SETG SCORE
|
||||
<+ ,SCORE ,BRICK-WALL-SCORE>>
|
||||
<SETG BRICK-WALL-SCORE 0>
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-ELCRSH>>
|
||||
<COND (<HEAR-CHAIN?>
|
||||
<CHAIN-NOISES>
|
||||
<TELL
|
||||
|
@ -2600,6 +2608,8 @@ red. The hatch is ">
|
|||
<FSET ,TUNNEL ,ONBIT>
|
||||
<FSET ,TUNNEL-EAST ,ONBIT>
|
||||
<FSET ,TUNNEL-WEST ,ONBIT>
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-HATCH>>
|
||||
<TELL
|
||||
"The hatch is heavy, and its hinges are rusty, but ">
|
||||
<COND (<HERE? ,TUNNEL>
|
||||
|
@ -3979,6 +3989,7 @@ much weight, and put most of it on the floor. Much easier! ">)>
|
|||
<TELL
|
||||
"The valve screeches open. A jet spray of live steam issues from it,
|
||||
filling the tunnel in front of you.">
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-STOP>>
|
||||
<COND (,RATS-HERE
|
||||
<SCORE-OBJECT ,PRESSURE-VALVE>
|
||||
<MOVE ,DEAD-RAT ,HERE>
|
||||
|
@ -4114,6 +4125,7 @@ consumed in short order.">)
|
|||
|
||||
<ROUTINE I-RATS ("AUX" (ORAT <LOC ,RATS>))
|
||||
<COND (<IN? ,RATS ,GLOBAL-OBJECTS>
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-START 2>>
|
||||
<MOVE ,RATS ,TUNNEL-WEST>
|
||||
<COND (<IN-TUNNEL?>
|
||||
<TELL CR
|
||||
|
@ -4122,6 +4134,7 @@ consumed in short order.">)
|
|||
(<NOT <IN? ,RATS ,HERE>>
|
||||
<COND (<NOT <ZERO? ,RATS-HERE>>
|
||||
<COND (<IN-TUNNEL?>
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK 8>>
|
||||
<MOVE ,RATS ,HERE>)
|
||||
(<OR <AND <HERE? ,TOMB>
|
||||
<FSET? ,ACCESS-HATCH ,OPENBIT>>
|
||||
|
@ -4191,12 +4204,15 @@ exposing its own neck, and on its neck is branded a symbol.">)>)
|
|||
<COND (<NOT <IN-TUNNEL?>>
|
||||
<RFALSE>)
|
||||
(<EQUAL? ,RATS-WAITING 1>
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-START 3>>
|
||||
<TELL CR
|
||||
"The sound is louder. It sounds like small animals. Is it rats?" CR>)
|
||||
(<EQUAL? ,RATS-WAITING 2>
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-START 4>>
|
||||
<TELL CR
|
||||
"The sound continues. It's almost certainly rats." CR>)
|
||||
(ELSE
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-START 6>>
|
||||
<TELL CR
|
||||
"The rat sounds are growing louder, but you still can't see any rats." CR>)>)>>
|
||||
|
||||
|
@ -4211,6 +4227,7 @@ exposing its own neck, and on its neck is branded a symbol.">)>)
|
|||
<RTRUE>)>>
|
||||
|
||||
<ROUTINE I-RATS-GO-AWAY ()
|
||||
%<IFSOUND <SOUNDS ,S-ATTACK ,S-STOP>>
|
||||
<DEQUEUE I-RATS>
|
||||
<MOVE ,RATS ,GLOBAL-OBJECTS>
|
||||
<SETG RATS-HERE 0>
|
||||
|
@ -4375,13 +4392,15 @@ CTHE ,RATS " sound annoyed and hungry." CR>)>>
|
|||
(IN ROOMS)
|
||||
(DESC "Mass. Ave.")
|
||||
(LDESC
|
||||
"This is the main entrance to the campus buildings.
|
||||
%<STRING "This is the main entrance to the campus buildings.
|
||||
Blinding snow obscures the stately Grecian columns and rounded
|
||||
dome to the east. You can barely make out the inscription on
|
||||
the pediment (which reads \"George Vnderwood Edwards, Fovnder;
|
||||
P. David Lebling, Architect\").
|
||||
P. David Lebling, Architect"
|
||||
<COND (,SOUND-EFFECTS? "; Russell Lieblich, Sovnd Engineer")
|
||||
(ELSE "")> "\").
|
||||
West across Massachusetts Avenue are
|
||||
other buildings, but you can't see them.")
|
||||
other buildings, but you can't see them.">)
|
||||
(EAST TO INF-1)
|
||||
(IN TO INF-1)
|
||||
(GLOBAL OUTSIDE-DOOR)
|
||||
|
@ -4398,6 +4417,7 @@ other buildings, but you can't see them.")
|
|||
<EXIT-FROM-COLD>)>>
|
||||
|
||||
<ROUTINE EXIT-FROM-COLD ()
|
||||
;<IFSOUND <SOUNDS ,S-STORMY ,S-STOP>>
|
||||
<DEQUEUE I-FREEZE-TO-DEATH>
|
||||
<COND (<G? ,FREEZE-COUNT 0>
|
||||
<SETG FREEZE-COUNT 0>
|
||||
|
@ -4764,6 +4784,7 @@ exactly what he meant by the word \"bribe.\"" CR>)
|
|||
<TELL ", with rhythms and cadences that make
|
||||
you want to stop your ears. The room appears to be getting darker." CR>)
|
||||
(<EQUAL? ,TIED-UP? 5>
|
||||
%<IFSOUND <SOUNDS ,S-PSYCHO ,S-START 2>>
|
||||
<MOVE ,MIST ,HERE>
|
||||
<TELL CR
|
||||
"A thick black mist begins to form in the room. Parts are darker, and
|
||||
|
@ -4778,6 +4799,7 @@ hysteria">)>
|
|||
<TELL ", and you realize the calls are being
|
||||
answered." CR>)
|
||||
(<EQUAL? ,TIED-UP? 6>
|
||||
%<IFSOUND <SOUNDS ,S-PSYCHO ,S-START 4>>
|
||||
<TELL CR
|
||||
"The room is now freezing cold, though the windows are shuttered and
|
||||
tightly curtained. Low, bone-rattling vibrations shake the room in
|
||||
|
@ -4793,6 +4815,7 @@ cadence with the chant. The black mist is growing thicker. The professor ">
|
|||
"chants more rapidly, producing strange guttural sounds, scarcely
|
||||
human." CR>)>)
|
||||
(<EQUAL? ,TIED-UP? 7>
|
||||
%<IFSOUND <SOUNDS ,S-PSYCHO ,S-START 6>>
|
||||
<COND (<HERE? ,ALCHEMY-LAB>
|
||||
<TELL CR
|
||||
"The black mist swirls wildly around the room, and a deep bass voice
|
||||
|
@ -4814,6 +4837,7 @@ mist grabs at him." CR>)
|
|||
<TELL CR
|
||||
"You hear a deep bass voice, and a softer, pleading baritone." CR>)>)
|
||||
(<EQUAL? ,TIED-UP? 8>
|
||||
%<IFSOUND <SOUNDS ,S-PSYCHO ,S-START 8>>
|
||||
<REMOVE ,MIST>
|
||||
<COND (<OR <IN? ,PLAYER ,PENTAGRAM>
|
||||
<IN? ,PLAYER ,ALCHEMY-LAB>>
|
||||
|
@ -4844,7 +4868,8 @@ then the sound of equipment smashing. ">
|
|||
<TELL
|
||||
" pours a blinding flash of light. Finally you hear an almost
|
||||
inaudible whimper, then nothing. The light fades">
|
||||
<IN-DARK?>)>)>)
|
||||
<IN-DARK?>
|
||||
%<IFSOUND <SOUNDS ,S-PSYCHO ,S-STOP>>)>)>)
|
||||
(<HERE? ,ALCHEMY-DEPT>
|
||||
<TELL CR
|
||||
CTHE ,PROFESSOR " ">
|
||||
|
@ -5848,6 +5873,8 @@ S "misses by a mile""!" CR>)
|
|||
<TELL
|
||||
S "misses by a mile"" as " THE ,MAINTENANCE-MAN " slips again!" CR>)
|
||||
(<EQUAL? .W ,AXE>
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-BLOOD>>
|
||||
<COND (<VERB? THROW>
|
||||
<TELL
|
||||
"sails through the air, end over end, and makes a direct hit in">)
|
||||
|
@ -6959,6 +6986,7 @@ tip-top of the dome.")
|
|||
<EXIT-TO-COLD>)>)>>
|
||||
|
||||
<ROUTINE EXIT-TO-COLD ()
|
||||
;<IFSOUND <SOUNDS ,S-STORMY>>
|
||||
<QUEUE I-FREEZE-TO-DEATH 2 T>
|
||||
<TELL
|
||||
"You enter the freezing, biting cold of the blizzard." CR CR>>
|
||||
|
|
|
@ -0,0 +1,16 @@
|
|||
BUGS
|
||||
|
||||
* Chain vs. closed elevator doors.
|
||||
|
||||
* Can't reference manhole cover/manhole from Brick Tunnel.
|
||||
|
||||
VOCABULARY
|
||||
|
||||
* PROF'S PENTAGRAM
|
||||
* PHOTO, POEM, MOUTH (things you see in strange paper)
|
||||
|
||||
THINGS TO DO
|
||||
|
||||
* Remove PLUGH and XYZZY
|
||||
|
||||
* Move common interrupts into INTERRUPTS
|
34
frob.zil
34
frob.zil
|
@ -43,7 +43,7 @@ something into a semblance of a passage.")
|
|||
(ACTION LARGE-CHAMBER-F)>
|
||||
|
||||
<ROUTINE LAIR-EXIT ()
|
||||
<COND (,URCHIN-FLAG
|
||||
<COND (<FSET? ,URCHINS ,RMUNGBIT> ;,URCHIN-FLAG
|
||||
<TELL
|
||||
"A few of the urchins grab feebly at you as you pass, but none is a
|
||||
serious barrier." CR CR>
|
||||
|
@ -60,7 +60,7 @@ but effectively. Their pale, limp hands can't grab you, but they can
|
|||
stop you. There is no way past." CR>
|
||||
<RFALSE>)>>
|
||||
|
||||
<GLOBAL URCHIN-FLAG <>>
|
||||
;<GLOBAL URCHIN-FLAG <>>
|
||||
|
||||
<ROUTINE LARGE-CHAMBER-F (RARG)
|
||||
<COND (<RARG? LOOK>
|
||||
|
@ -69,7 +69,7 @@ stop you. There is no way past." CR>
|
|||
The walls are slimy as well. Numerous slots or
|
||||
indentations about two feet wide and a foot high open here and there. ">
|
||||
<COND (<LOC ,URCHINS>
|
||||
<COND (,URCHIN-FLAG
|
||||
<COND (<FSET? ,URCHINS ,RMUNGBIT> ;,URCHIN-FLAG
|
||||
<TELL
|
||||
"Stubs of the wire still ">)
|
||||
(ELSE
|
||||
|
@ -82,7 +82,7 @@ background noise here, almost loud enough to hear clearly.">)
|
|||
(<IN? ,URCHINS ,HERE>
|
||||
<TELL "envelop the head of each urchin. The
|
||||
urchins are ">
|
||||
<COND (,URCHIN-FLAG
|
||||
<COND (<FSET? ,URCHINS ,RMUNGBIT> ;,URCHIN-FLAG
|
||||
<TELL "catatonic.">)
|
||||
(ELSE
|
||||
<TELL
|
||||
|
@ -94,7 +94,14 @@ almost machinelike.">)>)>)
|
|||
<CRLF>)
|
||||
(<RARG? ENTER>
|
||||
<SETG LAIR-FLAG <>> ;"normally what lair room you're in"
|
||||
%<IFSOUND
|
||||
<COND (<IN? ,URCHINS ,HERE>
|
||||
<SOUNDS ,S-VOICE ,S-START 2>)
|
||||
(<IN? ,URCHINS ,SLOTS>
|
||||
<SOUNDS ,S-VOICE ,S-START 8>)>>
|
||||
<QUEUE I-URCHINS -1>)
|
||||
(<RARG? LEAVE>
|
||||
%<IFSOUND <SOUNDS ,S-VOICE ,S-STOP>>)
|
||||
(<RARG? BEG>
|
||||
<COND (<P? THROUGH GLOBAL-HOLE>
|
||||
<DO-WALK ,P?DOWN>)
|
||||
|
@ -116,7 +123,7 @@ almost machinelike.">)>)>)
|
|||
(IN SLOTS)
|
||||
(DESC "urchins")
|
||||
(SYNONYM URCHIN CHILDREN KIDS KID)
|
||||
(FLAGS INVISIBLE PERSON NOABIT)
|
||||
(FLAGS INVISIBLE PERSON NOABIT )
|
||||
(DESCFCN URCHINS-DESC)
|
||||
(ACTION URCHINS-F)>
|
||||
|
||||
|
@ -129,7 +136,7 @@ almost machinelike.">)>)>)
|
|||
|
||||
<ROUTINE URCHINS-F ()
|
||||
<COND (<WINNER? URCHINS>
|
||||
<COND (,URCHIN-FLAG
|
||||
<COND (<FSET? ,URCHINS ,RMUNGBIT> ;,URCHIN-FLAG
|
||||
<TELL
|
||||
,NO-RESPONSE " It's as though they don't hear you." CR>)
|
||||
(ELSE
|
||||
|
@ -142,7 +149,8 @@ teeth. They never stop their deep-voiced, incomprehensible chant." CR>)>
|
|||
"These are not normal looking urchins. Their clothes are
|
||||
muddy and tattered. They are barefoot in midwinter, and covered with
|
||||
mud. Around their heads are draped the ">
|
||||
<COND (,URCHIN-FLAG <TELL "stubs of the ">)>
|
||||
<COND (<FSET? ,URCHINS ,RMUNGBIT> ;,URCHIN-FLAG
|
||||
<TELL "stubs of the ">)>
|
||||
<TELL
|
||||
"ropy growths that you've been
|
||||
noticing in this area. Although their eyes are open, they stare
|
||||
|
@ -390,7 +398,7 @@ decides against it." CR>)>)
|
|||
<TELL " (outside)">)>
|
||||
<CRLF>)>
|
||||
<COND (<AND <NOT <FSET? .RM ,OUTSIDE>>
|
||||
<NOT <EQUAL? .RM ,TUNNEL>>
|
||||
<NOT <EQUAL? .RM ,TOMB>>
|
||||
<NOT <EQUAL?
|
||||
<META-LOC ,MAINTENANCE-MAN>
|
||||
.RM>>>
|
||||
|
@ -465,7 +473,7 @@ bicycle thieves. It will defeat any but the heaviest bicycle chains." CR>)
|
|||
<TELL " down the tunnel." CR>)
|
||||
(<P? (CUT MUNG) URCHIN-WIRE>
|
||||
<COND (<PRSI? ,BOLT-CUTTER>
|
||||
<SETG URCHIN-FLAG T>
|
||||
<FSET ,URCHINS ,RMUNGBIT> ;<SETG URCHIN-FLAG T>
|
||||
<SCORE-OBJECT ,URCHIN-WIRE>
|
||||
<REMOVE ,URCHIN-WIRE>
|
||||
<TELL
|
||||
|
@ -480,6 +488,7 @@ disappearing down the tunnel and away. ">
|
|||
<MOVE ,URCHINS ,HERE>
|
||||
<TELL
|
||||
"Urchins burst forth from the slots. ">)>
|
||||
%<IFSOUND <SOUNDS ,S-VOICE ,S-STOP>>
|
||||
<TELL "The effect on the urchins is
|
||||
electric (perhaps literally). They twitch, jerk spasmodically, and fall
|
||||
to the ground almost in unison. They have lost all interest in you." CR>)
|
||||
|
@ -542,7 +551,7 @@ They are chanting, but the words are unknown to you." CR>)>)>>
|
|||
|
||||
<ROUTINE I-URCHINS ()
|
||||
<COND (<AND <HERE? ,LARGE-CHAMBER>
|
||||
<NOT ,URCHIN-FLAG>>
|
||||
<NOT <FSET? ,URCHINS ,RMUNGBIT>> ;<NOT ,URCHIN-FLAG>>
|
||||
<SETG URCHIN-CNT <+ ,URCHIN-CNT 1>>
|
||||
<COND (<EQUAL? ,URCHIN-CNT 1>
|
||||
<TELL CR
|
||||
|
@ -947,6 +956,7 @@ with the noise.">)>
|
|||
<NEW-PRSO ,MASS>
|
||||
<RTRUE>)>)
|
||||
(<RARG? ENTER>
|
||||
%<IFSOUND <SOUNDS ,S-ZOMBIE>>
|
||||
<FSET ,CURTAIN-DOOR ,LOCKED>
|
||||
<FCLEAR ,CURTAIN-DOOR ,OPENBIT>
|
||||
<QUEUE I-HAND-DIVES -1>
|
||||
|
@ -1431,6 +1441,7 @@ line." CR>)
|
|||
<TELL
|
||||
"There's already " A <FIRST? ,INPUT-SOCKET> " in the socket." CR>)
|
||||
(ELSE
|
||||
%<IFSOUND <SOUNDS ,S-SPARKY>>
|
||||
<TELL
|
||||
"You shove the exposed conductors into the socket, producing a shower of
|
||||
sparks!">
|
||||
|
@ -1457,6 +1468,7 @@ shrivels and fries." CR>)
|
|||
spasmodically. The mass it's connected to quivers, and a horrible
|
||||
noise, almost like a huge machine running without oil, issues from
|
||||
the thing.">
|
||||
%<IFSOUND <SOUNDS ,S-CRETIN>>
|
||||
<COND (<NOT <FSET? ,HACKER ,INVISIBLE>>
|
||||
<TELL
|
||||
" The hacker screams soundlessly and drops into the water.">)>
|
||||
|
@ -1474,6 +1486,7 @@ nothing you've seen before." CR>)
|
|||
<GLOBAL HV-CNT 0>
|
||||
|
||||
<ROUTINE I-LINE-IN-WATER ()
|
||||
%<IFSOUND <SOUNDS ,S-SPARKY>>
|
||||
<CRLF>
|
||||
<COND (<FSET? ,HIGH-VOLTAGE ,POWERBIT>
|
||||
<TELL
|
||||
|
@ -1598,6 +1611,7 @@ the stone drops to the ground, no longer glowing. The thing is gone." CR>
|
|||
<COND (<EQUAL? ,END-CNT 1>
|
||||
<REMOVE ,HACKER>
|
||||
<REMOVE ,MASS>
|
||||
%<IFSOUND <SOUNDS ,S-CRETIN ,S-STOP>>
|
||||
<FSET ,OUTPUT-CABLE ,RMUNGBIT>
|
||||
<SETG SCORE <+ ,SCORE 5>>
|
||||
<MOVE ,FROB ,HERE>
|
||||
|
|
|
@ -0,0 +1,31 @@
|
|||
* Darkness.
|
||||
|
||||
Should you automatically die in the dark once you reach the Maze/Lair
|
||||
area?
|
||||
|
||||
* Chain troubles.
|
||||
|
||||
What should happen to the loop of chain and padlock after you
|
||||
rip down the wall? Should the chain be visible in the shaft (but
|
||||
not takeable)? Should it be gone? etc.
|
||||
|
||||
If you have the chain hooked and either in your possession or on
|
||||
the ground (in the Basement, for example), should the elevator
|
||||
doors be able to close? What should you see? etc. etc.
|
||||
|
||||
* Logging in.
|
||||
|
||||
Should it accept anything as an object for TYPE, LOGIN or PASSWORD?
|
||||
Unfortunately, this is probably not easy to do.
|
||||
|
||||
* Urchin.
|
||||
|
||||
Any ideas for better hints about what you need to do to him?
|
||||
|
||||
* Vocabulary.
|
||||
|
||||
Max's Gary List (tm) hasn't gotten very much attention, due to the
|
||||
horrific space problems. What's really essential?
|
||||
|
||||
Should the words in the browsie (things like FOODP and such) be
|
||||
understood? They could all be effectively synonyms for HACK.
|
84
globals.zil
84
globals.zil
|
@ -2,6 +2,88 @@
|
|||
The Lurking Horror
|
||||
(c) Copyright 1986 Infocom, Inc. All Rights Reserved."
|
||||
|
||||
"SOUND sound-id,[action],[volume]"
|
||||
|
||||
<ROUTINE SOUNDS (N "OPT" (OP ,S-START) (VOL 8))
|
||||
<COND (<ZERO? .OP> <SET OP ,S-START>)>
|
||||
<COND (<AND <L? <GET ,SOUND-FLAG 0> 0>
|
||||
<EQUAL? .OP ,S-START>>
|
||||
<PUT ,SOUND-FLAG 0 1>
|
||||
<TELL CR
|
||||
"[Use $SOUND to toggle sound usage on and off.]" CR CR>)>
|
||||
<COND (<EQUAL? .N ,S-DRONE ,S-ATTACK ,S-PSYCHO ,S-MONSTR
|
||||
,S-VOICE ,S-ZOMBIE ,S-CRETIN>
|
||||
<PUT ,SOUND-FLAG 1 <+ <* .N 16> .VOL>>)>
|
||||
<COND (<GET ,SOUND-FLAG 0>
|
||||
<COND (<EQUAL? .OP ,S-STOP>
|
||||
<PUT ,SOUND-FLAG 0 1>
|
||||
<PUT ,SOUND-FLAG 1 0>)
|
||||
(<EQUAL? .N ,S-DRONE ,S-ATTACK ,S-PSYCHO ,S-MONSTR
|
||||
,S-VOICE ,S-ZOMBIE ,S-CRETIN>
|
||||
<PUT ,SOUND-FLAG 0 <+ <* .N 16> .VOL>>
|
||||
<PUT ,SOUND-FLAG 1 <+ <* .N 16> .VOL>>)
|
||||
(ELSE
|
||||
<PUT ,SOUND-FLAG 0 1>
|
||||
<PUT ,SOUND-FLAG 1 0>)>
|
||||
<COND (<EQUAL? .OP ,S-START>
|
||||
<SOUND .N .OP .VOL>)
|
||||
(ELSE
|
||||
<SOUND .N .OP>)>)>>
|
||||
|
||||
<ROUTINE KILL-SOUNDS ()
|
||||
<SOUNDS 0 ,S-STOP>
|
||||
<SOUNDS 0 ,S-CLEANUP>>
|
||||
|
||||
<SYNTAX $SOUND = V-$SOUND>
|
||||
|
||||
<GLOBAL SOUND-FLAG <TABLE -1 0>>
|
||||
|
||||
<ROUTINE V-$SOUND ("AUX" X Y)
|
||||
<SET X <GET ,SOUND-FLAG 1>>
|
||||
<SET Y <GET ,SOUND-FLAG 0>>
|
||||
<TELL "Sound ">
|
||||
<COND (.Y
|
||||
<KILL-SOUNDS>
|
||||
<COND (<N==? .Y 1> <PUT ,SOUND-FLAG 1 .Y>)
|
||||
(ELSE <PUT ,SOUND-FLAG 1 0>)>
|
||||
<PUT ,SOUND-FLAG 0 0>
|
||||
<TELL "off." CR>)
|
||||
(ELSE
|
||||
<PUT ,SOUND-FLAG 0 1>
|
||||
<COND (.X
|
||||
%<IFSOUND <SOUNDS </ .X 16>
|
||||
,S-START
|
||||
<MOD .X 16>>>)>
|
||||
<TELL "on." CR>)>>
|
||||
|
||||
;"sound operations"
|
||||
<CONSTANT S-INIT 1>
|
||||
<CONSTANT S-START 2>
|
||||
<CONSTANT S-STOP 3>
|
||||
<CONSTANT S-CLEANUP 4>
|
||||
|
||||
;"sound ids (sounds marked with a * are looping sounds)"
|
||||
<CONSTANT S-BEEP 1>
|
||||
<CONSTANT S-BOOP 2>
|
||||
<CONSTANT S-DRONE 10> ;"33K * drone of frob worshippers in dream"
|
||||
<CONSTANT S-BLOOD 3> ;"50K axe hitting m.m."
|
||||
<CONSTANT S-HATCH 6> ;"46K rusty hatch opening"
|
||||
<CONSTANT S-ATTACK 4> ;"21K * rats attacking"
|
||||
<CONSTANT S-ELCRSH 7> ;"60K elevator crashing"
|
||||
<CONSTANT S-DIE 12> ;"44K screeching bird-like howl -- flier"
|
||||
<CONSTANT S-PSYCHO 13> ;"57K * weird psychotic voice -- demon"
|
||||
<CONSTANT S-MONSTR 18> ;"50K * sick pigs -- pit in altar area"
|
||||
<CONSTANT S-VOICE 15> ;"52K * electronic one-two-three -- urchins"
|
||||
<CONSTANT S-ZOMBIE 17> ;"39K * electronic frogs and grasshoppers -- frob"
|
||||
<CONSTANT S-SPARKY 11> ;"40K electrical zap -- line in water"
|
||||
<CONSTANT S-CRETIN 16> ;"25K * monster from the id -- frob frying"
|
||||
<CONSTANT S-CRACK 8> ;" 8K crack of stone"
|
||||
<CONSTANT S-GHIDRA 9> ;"58K frob flapping away"
|
||||
|
||||
;"sounds cut for reasons of space"
|
||||
;<CONSTANT S-SQUEAL 5> ;"23K single rat"
|
||||
;<CONSTANT S-STORMY 14> ;"54K * storm"
|
||||
|
||||
<DIRECTIONS ;"Do not change the order of the first 8 without consulting MARC!"
|
||||
NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
|
||||
|
||||
|
@ -125,7 +207,7 @@
|
|||
<OBJECT PSEUDO-OBJECT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "pseudo")
|
||||
(ACTION ME-F)>
|
||||
(ACTION RANDOM-PSEUDO)>
|
||||
|
||||
<OBJECT IT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
|
|
|
@ -0,0 +1,458 @@
|
|||
-date- -rel- -size- -pre- -obj- -glo- -voc-
|
||||
6/09 -1 46212 11935 73 139 477
|
||||
6/09 2 46046 11935 73 139 477
|
||||
6/09 3 45646 11984 74 140 480
|
||||
6/09 4 44862 11990 74 140 480
|
||||
6/09 5 44672 11897 74 141 474
|
||||
6/09 6 44672 11897 74 141 474
|
||||
6/09 7 44756 11981 76 141 476
|
||||
6/09 8 44754 11981 76 141 476
|
||||
6/09 9 44754 11981 76 141 476
|
||||
6/09 10 44760 11981 76 141 476
|
||||
6/09 11 44762 11981 76 141 476
|
||||
6/10 12 44882 11981 76 141 476
|
||||
6/10 13 44826 12078 78 141 477
|
||||
6/11 14 44888 12129 80 141 478
|
||||
6/11 15 44888 12129 80 141 478
|
||||
6/27 16 44956 12173 80 142 478
|
||||
6/27 17 44954 12173 80 142 478
|
||||
7/10 18 48294 12931 97 145 497
|
||||
7/14 19 48322 12931 97 145 497
|
||||
7/14 20 48332 12956 98 145 497
|
||||
9/11 21 51068 13590 113 148 520
|
||||
9/12 22 51336 13634 114 150 522
|
||||
9/12 23 51370 13667 114 150 523
|
||||
9/12 24 51372 13671 114 150 523
|
||||
9/12 25 51632 13674 114 149 523
|
||||
9/12 26 52206 13776 117 149 523
|
||||
9/12 27 52206 13776 117 149 523
|
||||
9/12 28 52208 13776 117 149 523
|
||||
9/12 29 52372 13819 117 149 528
|
||||
9/15 30 52668 13819 117 149 528
|
||||
9/15 31 52694 13819 117 149 528
|
||||
9/15 32 52862 13819 117 149 528
|
||||
9/15 33 52952 13819 117 149 528
|
||||
9/15 34 53044 13861 118 149 530
|
||||
9/23 35 53050 13867 118 150 530
|
||||
10/29 1 49540 14383 118 150 530
|
||||
10/29 2 49594 14383 118 150 530
|
||||
10/29 3 49594 14383 118 150 530
|
||||
10/29 4 49600 14387 118 150 530
|
||||
10/29 5 49600 14387 118 150 530
|
||||
10/30 6 49616 14387 118 150 530
|
||||
10/30 7 50316 14482 120 150 534
|
||||
10/30 8 50154 14482 120 150 534
|
||||
10/31 9 50966 14484 120 150 534
|
||||
10/31 10 51006 14524 121 151 536
|
||||
11/03 11 51068 14542 122 152 536
|
||||
11/03 12 51074 14547 122 152 537
|
||||
11/03 13 51074 14547 122 152 537
|
||||
11/05 14 51074 14547 122 152 537
|
||||
11/06 15 52702 14694 126 153 541
|
||||
11/06 16 52704 14687 126 153 540
|
||||
11/11 17 53972 14891 129 156 550
|
||||
11/11 18 54032 14891 129 156 550
|
||||
11/12 19 54240 14900 129 156 551
|
||||
11/12 20 54238 14900 129 156 551
|
||||
11/12 21 54240 14900 129 156 551
|
||||
11/12 22 54266 14892 129 156 551
|
||||
11/12 23 54336 14894 129 157 551
|
||||
11/13 24 54466 14894 129 157 551
|
||||
11/13 25 54462 14894 129 157 551
|
||||
11/13 26 53418 14519 128 151 538
|
||||
11/13 27 53162 14517 128 150 538
|
||||
11/13 28 53098 14517 128 150 538
|
||||
11/13 29 54670 14405 128 150 538
|
||||
11/14 30 55108 14563 132 150 541
|
||||
11/14 31 55088 14556 132 150 540
|
||||
11/17 32 55096 14556 132 150 540
|
||||
11/17 33 55098 14556 132 150 540
|
||||
11/18 34 55294 14583 133 151 540
|
||||
11/24 35 55332 14590 133 151 541
|
||||
11/25 36 55332 14590 133 151 541
|
||||
11/25 37 55366 14602 133 151 542
|
||||
11/25 38 55264 14599 133 151 542
|
||||
11/26 39 56954 14740 138 153 542
|
||||
11/26 40 57286 14742 138 154 542
|
||||
11/26 41 57680 14830 140 154 546
|
||||
12/01 42 57674 14830 140 154 546
|
||||
12/01 43 57674 14830 140 154 546
|
||||
12/01 44 57798 14830 140 154 546
|
||||
12/01 45 58834 14930 142 154 550
|
||||
12/02 46 59106 14945 142 154 551
|
||||
12/02 47 59110 14945 142 154 551
|
||||
12/02 48 59162 14945 142 154 551
|
||||
12/02 49 59168 14945 142 154 551
|
||||
12/03 50 59176 14945 142 154 551
|
||||
12/03 51 59170 14945 142 154 551
|
||||
12/03 52 61760 15116 146 155 557
|
||||
12/03 53 61762 15116 146 155 557
|
||||
12/04 54 61804 15116 146 155 557
|
||||
12/04 55 61846 15127 146 155 558
|
||||
12/04 56 61846 15127 146 155 558
|
||||
12/04 57 61846 15127 146 155 558
|
||||
12/04 58 61928 15136 146 155 558
|
||||
12/04 59 62012 15142 146 155 558
|
||||
12/04 60 62192 15124 145 155 558
|
||||
12/05 61 63536 15259 147 156 567
|
||||
12/05 62 63736 15264 147 157 567
|
||||
12/05 63 64040 15281 147 157 567
|
||||
12/08 64 64360 15309 147 158 567
|
||||
12/08 65 65872 15403 149 159 571
|
||||
12/08 66 65870 15403 149 159 571
|
||||
12/11 67 67710 15676 154 159 583
|
||||
12/11 68 67830 15707 155 159 582
|
||||
12/11 69 67828 15707 155 159 582
|
||||
12/12 70 67866 15709 155 160 582
|
||||
12/12 71 67866 15709 155 160 582
|
||||
12/15 72 67916 15709 155 160 582
|
||||
12/15 73 68136 15733 156 160 582
|
||||
12/15 74 68148 15733 156 160 582
|
||||
12/15 75 68418 15783 156 161 587
|
||||
12/15 76 68658 15839 157 161 589
|
||||
12/15 77 68806 15852 157 161 590
|
||||
12/15 78 69376 15860 157 161 590
|
||||
12/15 79 69424 15860 157 161 590
|
||||
12/15 80 69398 15860 157 161 590
|
||||
12/16 81 69424 15875 157 161 591
|
||||
12/16 82 69432 15875 157 161 591
|
||||
12/16 83 69436 15875 157 161 591
|
||||
12/16 84 69566 15875 157 161 591
|
||||
12/16 85 69638 15875 157 161 591
|
||||
12/16 86 66 0 0 0 0
|
||||
12/16 87 69630 15875 157 161 591
|
||||
12/16 88 69734 15881 157 161 591
|
||||
12/16 89 69910 15881 157 161 591
|
||||
12/16 90 69910 15881 157 161 591
|
||||
12/16 91 70410 15909 157 161 591
|
||||
12/16 92 70598 15917 157 163 591
|
||||
12/16 93 70656 15917 157 163 591
|
||||
12/16 94 70656 15917 157 163 591
|
||||
12/17 95 70688 15917 157 163 591
|
||||
12/17 96 70686 15917 157 163 591
|
||||
12/17 97 70704 15917 157 163 591
|
||||
12/17 98 70810 15927 157 163 591
|
||||
12/17 99 70858 15927 157 163 591
|
||||
12/17 100 71794 15929 157 164 591
|
||||
12/18 101 72220 15948 157 164 593
|
||||
12/18 102 72218 15948 157 164 593
|
||||
12/18 103 72562 15955 157 164 594
|
||||
12/18 104 73744 16061 158 165 598
|
||||
12/19 105 74200 16156 160 165 603
|
||||
12/19 106 74184 16149 160 165 602
|
||||
12/19 107 75024 16209 161 168 604
|
||||
12/19 108 75150 16209 161 168 604
|
||||
12/19 109 75154 16209 161 168 604
|
||||
12/19 110 75166 16209 161 168 604
|
||||
12/22 111 75740 16252 162 168 605
|
||||
12/22 112 75740 16254 162 168 605
|
||||
12/30 113 76858 16415 165 168 616
|
||||
12/30 114 77668 16484 166 169 620
|
||||
12/30 115 78542 16551 168 169 622
|
||||
12/31 116 78550 16551 168 169 622
|
||||
12/31 117 79348 16585 168 169 623
|
||||
1/05 118 81114 17091 182 172 626
|
||||
1/05 119 80882 17091 182 172 626
|
||||
1/05 120 80888 17091 182 172 626
|
||||
1/05 121 80898 17101 182 172 626
|
||||
1/05 122 81254 17103 182 173 626
|
||||
1/05 123 81680 17169 183 173 631
|
||||
1/06 124 82460 17190 183 173 633
|
||||
1/06 125 83092 17275 184 173 634
|
||||
1/07 126 84288 17335 184 173 637
|
||||
1/07 126 84294 17343 184 173 637
|
||||
1/07 127 86088 17571 189 173 644
|
||||
1/07 128 87700 17619 190 174 646
|
||||
1/08 129 90088 17914 198 175 654
|
||||
1/08 130 90744 17970 200 175 654
|
||||
1/08 131 90748 17978 200 175 654
|
||||
1/08 132 90786 17978 200 175 654
|
||||
1/08 133 91506 18069 203 175 654
|
||||
1/09 134 92400 18107 204 176 655
|
||||
1/09 135 92388 18107 204 176 655
|
||||
1/09 136 92390 18107 204 176 655
|
||||
1/09 137 92486 18111 204 176 655
|
||||
1/09 138 92508 18111 204 176 655
|
||||
1/12 139 96004 18252 207 178 663
|
||||
1/12 140 95972 18245 207 178 662
|
||||
1/12 141 96074 18245 207 178 662
|
||||
1/12 142 96132 18245 207 178 662
|
||||
1/12 143 96206 18245 207 178 662
|
||||
1/12 144 96692 18245 207 178 662
|
||||
1/13 145 96746 18245 207 178 662
|
||||
1/13 146 96832 18247 207 179 662
|
||||
1/13 147 98660 18467 211 179 673
|
||||
1/13 147 98642 18462 211 180 672
|
||||
1/14 148 100082 18625 214 182 678
|
||||
1/14 149 100428 18649 214 183 679
|
||||
1/14 150 100630 18649 214 183 679
|
||||
1/14 151 100690 18649 214 183 679
|
||||
1/15 152 100892 18649 214 183 679
|
||||
1/16 153 101116 18659 214 185 679
|
||||
1/19 154 101450 18669 214 185 679
|
||||
1/19 155 101476 18672 214 185 679
|
||||
1/20 156 102270 18704 214 186 682
|
||||
1/20 157 104806 18935 220 189 686
|
||||
1/21 157 104852 18965 220 190 685
|
||||
1/21 157 104852 18965 220 190 685
|
||||
1/21 157 105954 19090 222 188 694
|
||||
1/21 157 105952 19090 222 188 694
|
||||
1/21 157 105940 19077 222 188 695
|
||||
1/23 158 106878 19152 222 189 699
|
||||
1/26 159 107364 19220 222 190 703
|
||||
1/26 159 107362 19220 222 190 703
|
||||
1/27 160 108014 19254 222 189 704
|
||||
1/27 160 108014 19254 222 189 704
|
||||
1/30 160 108998 19357 224 190 708
|
||||
1/30 160 110852 19749 237 192 715
|
||||
2/02 160 110852 19744 237 192 715
|
||||
2/02 160 111936 19788 237 192 718
|
||||
2/02 160 111472 19728 236 192 715
|
||||
2/02 160 111950 19730 236 192 715
|
||||
2/02 160 112342 19694 235 192 715
|
||||
2/02 160 112336 19694 235 192 715
|
||||
2/02 160 112334 19694 235 192 715
|
||||
2/02 160 112438 19694 235 192 715
|
||||
2/02 160 112438 19694 235 192 715
|
||||
2/02 160 112436 19694 235 192 715
|
||||
2/03 160 112536 19721 236 192 715
|
||||
2/03 160 113326 19746 236 193 716
|
||||
2/03 160 113324 19746 236 193 716
|
||||
2/03 160 113416 19746 236 193 716
|
||||
2/03 160 113504 19750 236 193 716
|
||||
2/05 160 113590 19753 236 193 716
|
||||
2/05 160 113538 19750 236 193 716
|
||||
2/05 160 113794 19771 236 193 717
|
||||
2/05 160 113968 19771 236 193 717
|
||||
2/05 160 112808 19781 236 193 717
|
||||
2/05 161 112812 19781 236 193 717
|
||||
2/05 162 112856 19783 236 194 717
|
||||
2/05 163 113128 19781 236 194 717
|
||||
2/06 163 113374 19784 236 194 717
|
||||
2/06 163 113478 19793 236 194 717
|
||||
2/06 163 113230 19793 236 194 717
|
||||
2/06 163 113234 19793 236 194 717
|
||||
2/06 163 113260 19784 236 194 716
|
||||
2/09 164 113774 19906 238 194 723
|
||||
2/09 164 113772 19906 238 194 723
|
||||
2/09 164 113792 19906 238 194 723
|
||||
2/09 164 114330 19937 238 194 725
|
||||
2/09 164 114336 19935 238 193 725
|
||||
2/10 165 115916 19980 238 194 726
|
||||
2/10 165 116816 19982 238 195 726
|
||||
2/11 165 117308 20043 239 196 727
|
||||
2/12 165 118622 20103 240 196 730
|
||||
2/12 165 119420 20177 240 196 732
|
||||
2/12 165 119414 20177 240 196 732
|
||||
2/12 165 119958 20201 240 196 735
|
||||
2/12 165 120794 20312 241 196 741
|
||||
2/12 165 121088 20382 241 196 747
|
||||
2/13 165 121160 20388 241 196 747
|
||||
2/13 165 121184 20388 241 196 747
|
||||
2/13 165 122066 20624 243 197 760
|
||||
2/13 165 122070 20624 243 197 760
|
||||
2/18 166 127018 21015 251 199 781
|
||||
2/18 166 126978 21001 251 199 779
|
||||
2/18 166 127356 21035 252 199 780
|
||||
2/18 166 126770 20858 250 198 772
|
||||
2/19 166 126934 20839 250 198 772
|
||||
2/19 166 127208 20841 250 199 772
|
||||
2/19 166 127262 20841 250 199 772
|
||||
2/19 167 127434 20868 250 199 773
|
||||
2/19 168 127846 20918 250 199 777
|
||||
2/19 168 128134 20922 250 199 777
|
||||
2/19 168 128134 20922 250 199 777
|
||||
2/20 169 128732 20911 248 199 780
|
||||
2/20 169 128730 20911 248 199 780
|
||||
2/20 170 129790 20957 248 199 782
|
||||
2/20 170 129758 20957 248 199 782
|
||||
2/23 171 130940 20989 248 199 784
|
||||
2/23 171 130938 20989 248 199 784
|
||||
2/23 172 130988 21014 248 199 785
|
||||
2/24 172 130986 21014 248 199 785
|
||||
2/24 173 129836 21000 247 199 786
|
||||
2/24 173 129792 21000 247 198 786
|
||||
2/25 173 129134 21010 247 203 786
|
||||
2/26 173 128476 21042 248 208 786
|
||||
2/26 173 128660 21052 248 210 783
|
||||
2/26 173 128654 21052 248 210 783
|
||||
2/27 173 129578 21126 249 211 784
|
||||
2/27 173 129578 21126 249 211 784
|
||||
2/27 173 129770 21167 249 212 786
|
||||
2/27 173 130128 21177 249 212 786
|
||||
3/02 173 130128 21177 249 212 786
|
||||
3/02 174 129768 21164 249 215 785
|
||||
3/02 174 129744 21164 249 215 785
|
||||
3/03 174 129744 21164 249 215 785
|
||||
3/03 175 129758 21181 249 219 785
|
||||
3/03 176 129832 21181 249 219 785
|
||||
3/03 176 129838 21181 249 219 785
|
||||
3/03 176 129854 21181 249 219 785
|
||||
3/03 176 129874 21181 249 219 785
|
||||
3/03 177 130122 21202 249 220 786
|
||||
3/04 177 130122 21202 249 220 786
|
||||
3/04 178 129872 21225 249 230 786
|
||||
3/04 178 129874 21227 249 231 786
|
||||
3/05 179 129532 21110 247 232 778
|
||||
3/05 179 129824 21150 248 231 779
|
||||
3/06 179 129816 21148 248 230 779
|
||||
3/06 179 129820 21148 248 230 779
|
||||
3/06 179 129958 21160 248 231 779
|
||||
3/06 179 129928 21148 248 231 779
|
||||
3/06 179 129942 21148 248 231 779
|
||||
3/06 180 129950 21148 248 231 779
|
||||
3/06 181 129994 21148 248 231 779
|
||||
3/06 181 130014 21144 248 230 779
|
||||
3/06 181 130028 21144 248 230 779
|
||||
3/06 181 130026 21144 248 230 779
|
||||
3/08 182 130060 21144 248 230 779
|
||||
3/08 182 130068 21144 248 230 779
|
||||
3/08 182 130068 21144 248 230 779
|
||||
3/08 182 130068 21144 248 230 779
|
||||
3/08 182 130068 21144 248 230 779
|
||||
3/17 183 130560 21159 248 231 780
|
||||
3/17 183 130514 21159 248 231 780
|
||||
3/17 183 130540 21162 248 231 780
|
||||
3/18 183 130664 21164 248 231 780
|
||||
3/18 183 130944 21167 248 231 780
|
||||
3/18 183 130946 21167 248 231 780
|
||||
3/18 183 131112 21167 248 231 780
|
||||
3/18 183 131070 21159 248 231 779
|
||||
3/18 183 130934 21035 248 232 761
|
||||
3/18 183 130884 21035 248 232 761
|
||||
3/19 183 130898 21036 248 232 761
|
||||
3/19 183 131140 21113 249 233 767
|
||||
3/19 183 131106 21113 249 233 767
|
||||
3/19 183 130944 21115 249 233 767
|
||||
3/19 183 130944 21115 249 233 767
|
||||
3/19 184 131050 21142 249 233 769
|
||||
3/19 185 131152 21142 249 233 769
|
||||
3/20 185 131046 21140 249 232 769
|
||||
3/20 185 131286 21200 249 231 777
|
||||
3/20 185 131224 21181 249 232 774
|
||||
3/23 185 131242 21181 249 232 774
|
||||
3/23 185 131478 21182 249 232 774
|
||||
3/23 185 130916 21197 249 237 774
|
||||
3/23 185 130750 21199 249 238 774
|
||||
3/24 186 130584 21200 249 238 774
|
||||
3/25 186 130588 21237 248 237 775
|
||||
3/25 187 130638 21249 248 236 775
|
||||
3/25 187 130644 21255 248 239 775
|
||||
3/26 187 130672 21257 248 240 775
|
||||
3/26 187 130466 21217 247 240 771
|
||||
3/26 187 130458 21217 247 240 771
|
||||
3/26 187 130424 21215 247 240 771
|
||||
3/26 187 130142 21182 246 240 771
|
||||
3/27 188 129816 21175 246 240 770
|
||||
3/27 188 129814 21173 246 240 770
|
||||
3/27 187 129814 21173 246 240 770
|
||||
3/27 188 130074 21258 248 239 775
|
||||
3/27 188 129768 21258 248 239 775
|
||||
3/27 188 129738 21261 248 239 775
|
||||
3/27 188 129540 21261 248 239 775
|
||||
3/27 188 129540 21261 248 239 775
|
||||
3/30 189 129488 21258 248 239 775
|
||||
3/30 190 129554 21275 248 239 776
|
||||
3/31 190 129496 21275 248 239 776
|
||||
3/31 190 129550 21275 248 239 776
|
||||
3/31 190 129502 21275 248 239 776
|
||||
3/31 190 129444 21284 248 239 776
|
||||
4/01 190 129362 21306 248 239 778
|
||||
4/01 191 129362 21306 248 239 778
|
||||
4/02 191 129416 21355 249 239 778
|
||||
4/02 191 129372 21353 249 239 778
|
||||
4/03 191 129592 21343 249 239 777
|
||||
4/14 191 129518 21331 249 239 776
|
||||
4/14 191 129514 21331 249 239 776
|
||||
4/14 191 129542 21320 249 239 775
|
||||
4/15 192 129278 21094 249 239 774
|
||||
4/15 193 129070 21072 249 239 773
|
||||
4/15 193 128956 21074 249 240 773
|
||||
4/16 193 128916 21071 249 240 773
|
||||
4/16 193 129002 21061 249 240 773
|
||||
4/16 193 128984 21073 249 240 773
|
||||
4/16 193 129122 21111 250 240 773
|
||||
4/16 193 129168 21119 250 240 773
|
||||
4/17 193 129170 21117 250 239 773
|
||||
4/17 193 129140 21117 250 239 773
|
||||
4/17 193 129144 21117 250 239 773
|
||||
4/17 194 129276 21136 250 239 773
|
||||
4/17 194 129276 21136 250 239 773
|
||||
4/17 194 129288 21136 250 239 773
|
||||
4/17 195 129294 21136 250 239 773
|
||||
4/22 196 129612 21200 250 239 778
|
||||
4/22 196 129598 21186 250 239 776
|
||||
4/22 196 129584 21200 250 239 778
|
||||
4/22 196 129642 21202 250 239 778
|
||||
4/22 196 129506 21202 250 240 778
|
||||
4/22 196 129568 21204 250 240 778
|
||||
4/23 197 129170 21176 250 238 778
|
||||
4/23 197 129164 21176 250 238 778
|
||||
4/23 196 129168 21176 250 238 778
|
||||
4/24 197 129092 21179 250 238 778
|
||||
4/24 197 129268 21213 250 238 781
|
||||
4/27 197 129392 21220 250 238 782
|
||||
4/27 197 129428 21220 250 238 782
|
||||
4/28 198 129248 21220 250 238 782
|
||||
4/28 198 129246 21220 250 238 782
|
||||
4/28 198 129072 21031 250 238 770
|
||||
4/28 198 129058 21057 251 238 770
|
||||
4/28 198 129024 21057 251 238 770
|
||||
4/30 198 129026 21057 251 238 770
|
||||
4/30 198 129028 21061 251 238 770
|
||||
4/30 199 129010 21061 251 238 770
|
||||
4/30 199 128984 21053 251 238 770
|
||||
4/30 199 128990 21082 251 240 773
|
||||
4/30 199 128974 21082 251 240 773
|
||||
4/30 198 128974 21082 251 240 773
|
||||
5/01 199 128956 21082 251 240 773
|
||||
5/01 199 128832 21082 251 240 773
|
||||
5/04 199 128896 21082 251 240 773
|
||||
5/04 199 128900 21082 251 240 773
|
||||
5/04 199 128992 21112 252 240 773
|
||||
5/04 199 128996 21112 252 240 773
|
||||
5/04 199 128998 21112 252 240 773
|
||||
5/04 199 128984 21162 252 240 775
|
||||
5/04 199 128994 21164 252 240 775
|
||||
5/05 200 128990 21164 252 240 775
|
||||
5/05 200 129054 21164 252 240 775
|
||||
5/05 200 129026 21167 252 240 775
|
||||
5/05 200 129004 21145 252 240 775
|
||||
5/05 200 129020 21145 252 240 775
|
||||
5/05 200 128970 21113 252 240 772
|
||||
5/06 201 128970 21113 252 240 772
|
||||
5/06 202 128968 21122 252 240 772
|
||||
5/06 202 128972 21122 252 240 772
|
||||
5/06 202 128976 21122 252 240 772
|
||||
5/06 203 128986 21122 252 240 772
|
||||
6/16 204 129388 21524 252 240 772
|
||||
6/16 205 129052 21187 252 240 772
|
||||
6/16 206 129052 21187 252 240 772
|
||||
6/16 207 128986 21122 252 240 772
|
||||
6/25 204 10758 9716 252 240 0
|
||||
6/25 204 128934 20966 252 240 772
|
||||
6/25 205 129042 21005 252 240 772
|
||||
6/25 206 129054 21018 252 240 772
|
||||
6/26 207 129054 21018 252 240 772
|
||||
6/26 208 129054 21018 252 240 772
|
||||
6/26 209 0 0 0 0 0
|
||||
6/29 1 129054 21018 252 240 772
|
||||
6/29 2 129054 21018 252 240 772
|
||||
6/29 208 129054 21018 252 240 772
|
||||
6/29 209 129054 21018 252 240 772
|
||||
8/20 210 129158 21018 252 240 772
|
||||
9/02 211 126802 21018 252 240 772
|
||||
9/02 212 129176 21018 252 240 772
|
||||
9/02 213 129142 21018 252 240 772
|
||||
9/02 214 129142 21018 252 240 772
|
||||
9/03 215 129364 21040 252 240 773
|
||||
9/04 216 129520 21040 252 240 773
|
||||
9/04 217 129524 21040 252 240 773
|
||||
9/09 218 129552 21040 252 241 773
|
||||
9/09 219 129610 21044 252 240 773
|
||||
9/09 220 129610 21044 252 240 773
|
||||
9/10 221 129678 21044 252 240 773
|
||||
9/12 218 129698 21044 252 240 773
|
||||
9/12 219 129704 21044 252 240 773
|
||||
9/18 220 129944 21044 252 240 773
|
||||
9/18 221 129944 21044 252 240 773
|
6
h1.zil
6
h1.zil
|
@ -14,6 +14,12 @@
|
|||
<SETG ZDEBUGGING? <>> ;"don't include debugging code"
|
||||
<SETG NEW-VOC? T> ;"allows words to be adj/noun/verb all at once!"
|
||||
<SET REDEFINE T> ;"don't stop and ask"
|
||||
<SETG SOUND-EFFECTS? T> ;"include sound effects?"
|
||||
|
||||
<DEFINE IFSOUND ("ARGS" FOO)
|
||||
<COND (,SOUND-EFFECTS?
|
||||
<FORM PROG () !.FOO>)
|
||||
(ELSE T)>>
|
||||
|
||||
<INSERT-FILE "MISC">
|
||||
<INSERT-FILE "PARSER">
|
||||
|
|
|
@ -869,6 +869,7 @@ then at last lies still." CR>)>)
|
|||
<COND (<HERE? ,KITCHEN>
|
||||
<CRLF>
|
||||
<COND (<ZERO? ,MICROWAVE-TIMER>
|
||||
;"%<IFSOUND <SOUNDS ,S-BEEP>>"
|
||||
<TELL ,MICROWAVE-STOPS>)>
|
||||
<TELL-TIMER>)>>
|
||||
|
||||
|
|
|
@ -0,0 +1,81 @@
|
|||
--Initial--
|
||||
|
||||
King/Lovecraft milieu. I.e., normal situation that becomes more and
|
||||
more horrific. Much of it underground?
|
||||
|
||||
* Major obstacle: something Cthulhuoid that can (a) possess people
|
||||
(b) duplicate people/things perfectly. (Like original version of
|
||||
"The Thing.") Perhaps it's even an (at base) mechanical creature,
|
||||
or a hive intelligence? Of course, it's totally supernatural in its
|
||||
abilities (this is deliberate, as it accentuates the feeling of
|
||||
violation of natural law that occasions horror).
|
||||
|
||||
Perhaps this thing initially seems to be a vampire? Then you can
|
||||
have the fun of thinking you know the solution (crosses/stakes, etc.)
|
||||
and being totally wrong. It could even chortlingly suck you in and
|
||||
then turn on you.
|
||||
|
||||
Thing should have an evil human assistant who is one of the obstacles
|
||||
(like Renfield in Dracula). This could be a scientist who thinks it's
|
||||
a higher/better form of life.
|
||||
|
||||
* Nightmare sequence that appears real and turns out to be real (at
|
||||
least in part).
|
||||
|
||||
* What is horrible? Not just gore. Gore is boring, and besides,
|
||||
gore is visual. Something sneaking up behind you is scarier,
|
||||
particularly since you are sitting at a terminal and can't turn
|
||||
around.
|
||||
|
||||
* Ultimate problem is getting into its "burrow", where it's building
|
||||
thousands/millions/zillions! of similar creatures to take over the
|
||||
world. How do you stop it? Good question!
|
||||
|
||||
--4/7/86--
|
||||
|
||||
Set the game in an MIT-like environment. This allows a computer
|
||||
sequence. Perhaps the frob has wormed its way into an Athena-like
|
||||
LAN.
|
||||
|
||||
Frob has lived under the ground forever. Every so often, activity
|
||||
on the surface disturbs it. Indians, Puritans, etc. Now, new
|
||||
construction at the university has awakened it. (Perhaps the evil
|
||||
professor detected it?) It's snarfing undergrads for various uses,
|
||||
such as raw material for its offspring. It's tapping into the
|
||||
phone and network lines.
|
||||
|
||||
How much gore? For example, if the frob is taking over people, they
|
||||
could be pretty gored up. Even worse if it's laying eggs in them,
|
||||
and the froblets are hatching (yuck). I'm reminded of the baby
|
||||
dragons eating the princess in Dragonslayer. There's also the whole
|
||||
Stephen King tradition of rotting bodies to consider.
|
||||
|
||||
--4/14/86--
|
||||
|
||||
Write in first person.
|
||||
|
||||
--4/16/86--
|
||||
|
||||
Some events:
|
||||
|
||||
* Bargaining with a hacker for (a) access to a computer or account
|
||||
you can't otherwise get into. (b) master keys.
|
||||
|
||||
* Rats in a subbasement with a dirt floor.
|
||||
|
||||
* Mob of enslaved Cambridge urchins.
|
||||
|
||||
* Return from the dead of a helper (perhaps the hacker). Tries to convince
|
||||
you it's all for the best.
|
||||
|
||||
Some interesting places:
|
||||
|
||||
* Tomb of the Unknown Tool.
|
||||
|
||||
* Plasma Fusion Center.
|
||||
|
||||
* Steam tunnels (including blocked-off ones).
|
||||
|
||||
* Top of Green Building.
|
||||
|
||||
* Computer Center.
|
2
misc.zil
2
misc.zil
|
@ -499,7 +499,7 @@ machine, get to work, and write that twenty page paper." CR CR>
|
|||
<RTRUE>)
|
||||
(<VERB? QUIT VERSION BRIEF SUPER-BRIEF VERBOSE
|
||||
$VERIFY RESTART SAVE RESTORE SCRIPT UNSCRIPT
|
||||
$RANDOM $COMMAND $RECORD $UNRECORD SCORE
|
||||
$SOUND $RANDOM $COMMAND $RECORD $UNRECORD SCORE
|
||||
TIME>
|
||||
<RTRUE>)>>
|
||||
|
||||
|
|
|
@ -0,0 +1,41 @@
|
|||
THE LURKING HORROR Pre-Beta
|
||||
|
||||
1. The game is too big (127K already). I can do some text compression
|
||||
and such, but... Anything to cut?
|
||||
Possibilities:
|
||||
* roof and even 3rd floor of Computer Center.
|
||||
* One room of the dream sequence. etc.
|
||||
(This sort of thing doesn't save much space, really)
|
||||
Also doing some editing on particularly bloated text passages will
|
||||
help.
|
||||
|
||||
2. Some think the ending is anti-climactic after the mass is fried.
|
||||
Particularly, throwing the stone is a "repeat" solution. I happen
|
||||
to like it, personally. Any ideas for a different solution for this
|
||||
puzzle (or, perhaps a different one for getting rid of the flying
|
||||
monster).
|
||||
|
||||
3. Is the elevator puzzle getting smoothed out enough? It is very
|
||||
complex (means takes a lot of space). Some think it's too hard,
|
||||
others too easy. Comments, please!
|
||||
Points to consider:
|
||||
* anything else that the chain should tie/hook to.
|
||||
* is the padlock a good idea? i.e., should there be an easier
|
||||
way to secure the chain to the rod?
|
||||
* is having the chain in the elevator pit too much of a giveaway?
|
||||
|
||||
4. Object locations. Any that are too obvious, too unobvious, etc?
|
||||
Particularly, the floor wax and axe have been mentioned as too obviously
|
||||
associated with the maintenance man.
|
||||
|
||||
5. Story questions. Does it matter that there's really no full explanation
|
||||
of what's going on? I don't think it does, and it would take up a lot
|
||||
of space. I'm curious what YOU think is going on.
|
||||
|
||||
6. Scoring. Currently you end up with over 100 points. I could cut the
|
||||
points-per-puzzle to bring that down, or: anything you get points for
|
||||
that you shouldn't?
|
||||
|
||||
7. Vocabulary/Missing objects. What's most important? Bearing in mind the
|
||||
size crunch, what needs to be added?
|
||||
|
|
@ -0,0 +1,155 @@
|
|||
BRING YOUR OWN BRAIN
|
||||
INSTRUCTIONS
|
||||
|
||||
The object of the game is for you and your team members to find the
|
||||
answer to the ultimate question of life, the universe ... no, that's a
|
||||
different game. In this one, you must answer all the questions, run the
|
||||
"Road Rally," recording the correct information, and figure out the
|
||||
right answer to the final, ultimate question...
|
||||
|
||||
Your team members are everyone here whose name badge has the same color
|
||||
sticker as yours. Each team has a "rendezvous" table where an Infocom
|
||||
scorekeeper will be sitting. These tables are your headquarters.
|
||||
|
||||
This game is in two parts. During the first part, you and your team
|
||||
members will try to answer fill-in-the-blank questions with information
|
||||
from the exhibits here in the Field Museum, and from the press
|
||||
conference. These answers will also fill in blanks in the instructions
|
||||
for the second part of the game.
|
||||
|
||||
On the "Questions" page you might find:
|
||||
|
||||
Z. You are attending an event at the _________ Museum
|
||||
of Natural History.
|
||||
|
||||
The correct answer is "Field," which you would fill in in the space
|
||||
provided and on the "Road Rally" page where you see a "Z":
|
||||
|
||||
Walk to the (Q)_________ edge of the (Z)_________.
|
||||
|
||||
The clues on the "Questions" page can almost all be answered without
|
||||
leaving the main floor of the Museum. Once you think you have the right
|
||||
answer to one of these, you may confirm it with the Infocom scorekeeper
|
||||
at your team's rendezvous table. In case of ties, incorrect guesses at
|
||||
this point will be count against you. Watch the scoreboard to see how
|
||||
your team is doing against the others!
|
||||
|
||||
Our advice is to save time by splitting up into small groups to search
|
||||
for the answers to these clues, instead of working "en masse." Also,
|
||||
your Field Museum map (available at your table) will help you minimize
|
||||
effort during this part.
|
||||
|
||||
Once the "Road Rally" page is filled in, you have all the clues you need
|
||||
to find the ultimate answer.
|
||||
|
||||
Once you think you have the ultimate answer, bring it to the main scoring
|
||||
table (where the scoreboard is)!
|
||||
|
||||
GOOD LUCK, AND MAY THE BEST TEAM WIN!
|
||||
|
||||
BRING YOUR OWN BRAIN
|
||||
QUESTIONS
|
||||
|
||||
A. Infocom's newest introductory game, a mystery set in a castle in
|
||||
Cornwall, is called ___________.
|
||||
|
||||
B. In Leather Goddesses of Phobos, the major form of transport on Mars
|
||||
is a royal ___________.
|
||||
|
||||
C. Doorways set into the side of ___________ allow you to travel in time
|
||||
in Infocom's new nightmare fantasy, Trinity.
|
||||
|
||||
D. Standing under the entrance sign to the "Mammals of Asia" exhibit,
|
||||
the largest ears in sight belong to a pair of ___________.
|
||||
|
||||
E. The maximum weight of a whale shark is ___________ tons.
|
||||
|
||||
F. The entrance to the Pawnee Earth Lodge is on its ___________ side.
|
||||
|
||||
G. In the line defined by the totem poles, find the largest musical
|
||||
instrument. The second word in the third line of its description is
|
||||
___________.
|
||||
|
||||
H. Find a display case containing skeletons of the animal that tormented
|
||||
Captain Hook. The third to last word in the first paragraph of this
|
||||
exhibit's plaque is ___________.
|
||||
|
||||
I. The largest mammalian skeleton in the museum is from an animal that
|
||||
grows up to ____________ meters long.
|
||||
|
||||
J. The exhibit hall donated by the late owner of MacDonalds is directly
|
||||
over the _______________.
|
||||
|
||||
K. The oldest Canadian in the main hall is a _____________.
|
||||
|
||||
L. Find the roadrunner in the "Birds" exhibit. The third word in the
|
||||
plaque above this case is ___________.
|
||||
|
||||
M. Go to the northeasternmost exhibit on the main floor. If you
|
||||
substitute a "U" for the second letter of the first word of the
|
||||
first sentence of its description, you get the word ___________.
|
||||
|
||||
N. A llama already carrying ten pounds could carry an additional
|
||||
___________ pounds.
|
||||
|
||||
O. An Americal mammal is the largest carnivore alive. It stands
|
||||
___________ feet high at the shoulder.
|
||||
|
||||
P. Near the African Buffalo display is a case containing an Okapi.
|
||||
According to its description, the Okapi is the ___________ living
|
||||
relative of the giraffe.
|
||||
|
||||
Q. Standing at a point seven floor tiles south of the southernmost
|
||||
point on the edge of the southernmost circular fountain in the
|
||||
lobby, you must look ___________ to see the nearest banner.
|
||||
|
||||
|
||||
|
||||
ROAD RALLY
|
||||
|
||||
Stand under the (F)___________ (G)___________ chandelier. Once you have
|
||||
(H)___________ the nearest stairs, proceed to something nearby that you
|
||||
might expect to see attached to a home computer.
|
||||
|
||||
Standing under it, head toward the (P)___________ exit sign and keep going
|
||||
in a straight line until you reach a small glass structure. Standing in
|
||||
the center of the structure, look around until you see the (B)___________.
|
||||
|
||||
WRITE DOWN THE EARLIEST YEAR MENTIONED ON THE PLAQUE (B.C): _________
|
||||
|
||||
Standing (I)___________ feet behind the stern of the (B)___________,
|
||||
proceed until you reach the (J)____________.
|
||||
|
||||
With your back to the (J)_______________ sign, go straight (ascending or
|
||||
descending as necessary) until you are surrounded by (O)___________
|
||||
columns, equidistant from you.
|
||||
|
||||
Head towards the only fountain you can see. When you reach it, climb
|
||||
(Q)___________ the (P)___________ (M)___________ stairs.
|
||||
|
||||
At the first landing, continue (Q)___________ in the same direction the
|
||||
lobby (K)___________ is facing. Stop when you are surrounded by the
|
||||
columns and the aboriginal guards.
|
||||
|
||||
Instead, walk down the longest hall in sight for (E)___________ paces.
|
||||
Turn (N)___________ degrees and pass the Chinese artifacts. Walk as far
|
||||
as you can go in a straight line.
|
||||
|
||||
|
||||
Turn away from the @u[Welwitschia Mirabilis] and proceed until you are
|
||||
at the furthest of two displays of (C)___________.
|
||||
|
||||
|
||||
WRITE DOWN THE ITEM NUMBER OF THE "COMMON SPLIT GILL": _______________
|
||||
|
||||
|
||||
Retrace your steps until you reach a plexiglass case containing a floor
|
||||
map. Walk (L)___________ until you are overlooking the (D)___________.
|
||||
|
||||
Look in that direction, between the homes of Everest and Fujiyama, until
|
||||
you spot an object from the cover of (A)___________. Go there.
|
||||
|
||||
|
||||
WRITE DOWN THE VERTICAL SCALE (1 INCH = ?? MILES): __________________
|
||||
|
||||
ADD ALL THE DIGITS OF THE THREE NUMBERS YOU HAVE WRITTEN DOWN: ________
|
|
@ -0,0 +1,24 @@
|
|||
|
||||
sound ids (sounds marked with a * are looping sounds)
|
||||
|
||||
S-BEEP 1
|
||||
S-BOOP 2
|
||||
S-DRONE 10 33K * drone of frob worshippers in dream
|
||||
S-BLOOD 3 50K axe hitting maintenance man
|
||||
S-HATCH 6 46K rusty hatch in tomb opening
|
||||
S-ATTACK 4 21K * rats attacking
|
||||
S-ELCRSH 7 60K elevator pulling wall out
|
||||
S-DIE 12 44K flier after stone thrown at it
|
||||
S-PSYCHO 13 57K * demon in alchemy lab getting prof
|
||||
S-MONSTR 18 50K * things in pit in altar area
|
||||
S-VOICE 15 52K * zombie urchins chanting
|
||||
S-ZOMBIE 17 39K * frob noises in inner lair
|
||||
S-SPARKY 11 40K electrical zap of high voltage line in water
|
||||
S-CRETIN 16 25K * frob frying with high voltage electricity
|
||||
S-CRACK 8 8K crack of stone
|
||||
S-GHIDRA 9 58K frob flapping away
|
||||
|
||||
sounds cut for reasons of space
|
||||
|
||||
S-SQUEAL 5 23K single rat
|
||||
S-STORMY 14 54K * storm
|
|
@ -0,0 +1,22 @@
|
|||
The Lurking Frob
|
||||
The Lurking Evil
|
||||
The Lurking Terror
|
||||
The Lurking Horror
|
||||
The Lurking Thing
|
||||
The Lurking Death
|
||||
The Lurking Fear => used by HPL
|
||||
The Lurking Claw
|
||||
The Lurker Below
|
||||
The Lurker Beneath
|
||||
The Lurker in the Cold
|
||||
The Lurker in the Dark
|
||||
The Lurker at the Threshold => used by HPL
|
||||
The Lurker in Darkness => used by HPL?
|
||||
The Lurker from Outside
|
||||
The Lurker
|
||||
The Lurking => Hey, if King can have "The Shining"...
|
||||
|
||||
Cold Grue
|
||||
Cold Death
|
||||
Cold Fear
|
||||
Cold Terror
|
|
@ -0,0 +1,370 @@
|
|||
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" "
|
||||
" ****|
|
||||
|"
|
||||
" (other than you)"
|
||||
" / Serial number "
|
||||
" You awaken in a cold sweat."
|
||||
" and feel something."
|
||||
" around gives you a new perspective on it, but
|
||||
reveals no new information."
|
||||
" around."
|
||||
" as you attempt this feat."
|
||||
" between "
|
||||
" can be melted."
|
||||
" contains "
|
||||
" decide where."
|
||||
" directly."
|
||||
" do that yourself"
|
||||
" doesn't appear to want or need help."
|
||||
" doesn't work very well."
|
||||
" first"
|
||||
" first."
|
||||
" first?"
|
||||
" fly!"
|
||||
" get it first."
|
||||
" has it"
|
||||
" has no effect."
|
||||
" here."
|
||||
" in "
|
||||
" is "
|
||||
" is "
|
||||
" is adequate."
|
||||
" is already in "
|
||||
" is as quiet as a graveyard"
|
||||
" is closed."
|
||||
" is empty"
|
||||
" is empty."
|
||||
" is going to sprout."
|
||||
" is now "
|
||||
" is right here!"
|
||||
" is sleeping."
|
||||
" is suicidal."
|
||||
" is uninterested."
|
||||
" isn't broken."
|
||||
" isn't in "
|
||||
" isn't likely to respond."
|
||||
" isn't open."
|
||||
" it!"
|
||||
" leave "
|
||||
" might get dizzy."
|
||||
" move"
|
||||
" of a possible 100, in "
|
||||
" on "
|
||||
" onto "
|
||||
" out of "
|
||||
" refuses to let you search him."
|
||||
" reveals "
|
||||
" reveals nothing."
|
||||
" standing."
|
||||
" that!"
|
||||
" to "
|
||||
" to taste,
|
||||
only worse."
|
||||
" very much."
|
||||
" waits for you to say something."
|
||||
" will oblige."
|
||||
" with "
|
||||
" with "
|
||||
"!"
|
||||
"!"
|
||||
"!"
|
||||
"!"
|
||||
"'s right in front of you"
|
||||
"(Type RESTART, RESTORE, or QUIT):|
|
||||
>"
|
||||
"** Disk Failure **"
|
||||
", and are in "
|
||||
", especially in light of your exhaustion."
|
||||
", leaving you in the dark"
|
||||
"."
|
||||
"."
|
||||
"."
|
||||
"."
|
||||
"."
|
||||
"."
|
||||
". This puts you in the class (graded on the curve) of "
|
||||
": "
|
||||
"?"
|
||||
"?"
|
||||
"?|
|
||||
(Y is affirmative): >"
|
||||
"Aarrrgggghhhhh!"
|
||||
"All you can tell is that "
|
||||
"An appalling idea!"
|
||||
"An excellent question."
|
||||
"Aside from you, there's "
|
||||
"At first, you think \"Maybe it was all just a bad dream,\" but no such
|
||||
luck. It appears to be for real. That's too bad, although
|
||||
something gnawing on your fingertips thinks its pretty wonderful, or at
|
||||
least fairly tasty."
|
||||
"At the moment, "
|
||||
"Be real."
|
||||
"Beats me"
|
||||
"Biting"
|
||||
"Brief"
|
||||
"But "
|
||||
"But "
|
||||
"Cheery, aren't you?"
|
||||
"Closed."
|
||||
"Despite your friendly nature, "
|
||||
"Do you wish to leave the game"
|
||||
"Do you wish to restart"
|
||||
"Don't ever bother applying for a job as an armaments expert."
|
||||
"Don't get a sore neck."
|
||||
"Don't you think you should ask "
|
||||
"Done."
|
||||
"Driving "
|
||||
"Dropped."
|
||||
"Fiddling with"
|
||||
"He"
|
||||
"Here begins"
|
||||
"Here ends"
|
||||
"Hmmm ... "
|
||||
"Holding up"
|
||||
"How do you do that with "
|
||||
"How peculiar!"
|
||||
"How singularly useless."
|
||||
"How strange. Fighting "
|
||||
"Huh?"
|
||||
"Huh?"
|
||||
"I don't know how."
|
||||
"I don't think you scared "
|
||||
"I doubt that the \"cutting edge\" of "
|
||||
"I know the food here is terrible, but this is ridiculous!"
|
||||
"I think "
|
||||
"I think "
|
||||
"I wouldn't do that, "
|
||||
"I'm not sure that "
|
||||
"If you're really stuck, you can order maps and InvisiClues Hint
|
||||
Booklets using the order form that came in your package."
|
||||
"Inspection reveals that "
|
||||
"It"
|
||||
"It already is off."
|
||||
"It could be lurking right behind you"
|
||||
"It feels cold."
|
||||
"It looks "
|
||||
"It seems "
|
||||
"It smells just like "
|
||||
"It tastes "
|
||||
"It tastes exactly as you'd expect "
|
||||
"It's "
|
||||
"It's "
|
||||
"It's a little too heavy"
|
||||
"It's already here!"
|
||||
"It's closed."
|
||||
"It's here!"
|
||||
"It's impolite to point."
|
||||
"It's in "
|
||||
"It's locked."
|
||||
"It's not clear how."
|
||||
"It's not in anything."
|
||||
"It's not in that!"
|
||||
"It's not open."
|
||||
"It's unlikely that "
|
||||
"It's warm."
|
||||
"Kicking"
|
||||
"Lifting"
|
||||
"Lowering"
|
||||
"Maybe the urchin ripped it off"
|
||||
"Most people cook things in ovens."
|
||||
"Moving "
|
||||
"Nice try."
|
||||
"No one here seems interested in trading."
|
||||
"Nobody is awaiting your answer."
|
||||
"Nobody's home."
|
||||
"Not a chance."
|
||||
"Nothing interesting happens, except that a yellow smiling face appears
|
||||
in a small box next to the legend \"Sorry, Syntax Error. Hope you have a
|
||||
nice day anyway.\""
|
||||
"Nothing much happens, as the computer is powered off."
|
||||
"Okay, "
|
||||
"On "
|
||||
"On a vacation, no doubt?"
|
||||
"One should never assume it's safe to walk around in the dark.
|
||||
For example, something just grabbed you from behind and dragged you
|
||||
off to its lair."
|
||||
"Opened."
|
||||
"Opening "
|
||||
"Pay with what?"
|
||||
"Perhaps it isn't for sale."
|
||||
"Perhaps some magical assistance?"
|
||||
"Perhaps you should go to a bazaar."
|
||||
"Please use compass directions instead."
|
||||
"Pounding on a door is of little use."
|
||||
"Pushing"
|
||||
"Restarting."
|
||||
"Sometimes, during your future existence, you remember your old life.
|
||||
At these times, you wish you had died instead."
|
||||
"Somewhere nearby, I'm sure"
|
||||
"Strange concept, cutting "
|
||||
"Successful college graduates never say \"Hello\" to "
|
||||
"Super-brief"
|
||||
"THE LURKING HORROR|
|
||||
An Interactive Horror|
|
||||
Copyright (c) 1987 by Infocom, Inc. All rights reserved.|
|
||||
THE LURKING HORROR is a trademark of Infocom, Inc.|
|
||||
Release "
|
||||
"Talking to yourself?"
|
||||
"That hiding place is too obvious."
|
||||
"That was a rhetorical question."
|
||||
"That would be a good trick."
|
||||
"That would involve quite a contortion!"
|
||||
"That's not a person!"
|
||||
"The disk is correct."
|
||||
"The light is snuffed out"
|
||||
"There's no good surface on "
|
||||
"There's no noticeable smell here."
|
||||
"There's no place to hide here."
|
||||
"There's no point in shaking that."
|
||||
"There's no way to close "
|
||||
"There's nothing here to type on."
|
||||
"This has no effect."
|
||||
"Thrown."
|
||||
"Time passes..."
|
||||
"Tired?"
|
||||
"Trying to "
|
||||
"Trying to break"
|
||||
"Turning "
|
||||
"Unfortunately, you aren't really a qualified hacker."
|
||||
"Urchin"
|
||||
"Use prepositions instead: LOOK AT the object, LOOK INSIDE it,
|
||||
LOOK UNDER it, etc."
|
||||
"Using language like that was until recently grounds for probation!"
|
||||
"Verbose"
|
||||
"Verifying..."
|
||||
"Wasn't that fun?"
|
||||
"Waving"
|
||||
"What a boring idea."
|
||||
"What a grisly idea."
|
||||
"Whoosh!"
|
||||
"Why knock on "
|
||||
"Why would you send for "
|
||||
"Why?"
|
||||
"With "
|
||||
"Would you like to restart the game from the beginning, restore a saved
|
||||
game position, or end this session of the game?"
|
||||
"You already are."
|
||||
"You already have it."
|
||||
"You are "
|
||||
"You are "
|
||||
"You are empty-handed."
|
||||
"You aren't snake-like enough to get under "
|
||||
"You can't edit that."
|
||||
"You can't get to that!"
|
||||
"You can't plug that in."
|
||||
"You can't put "
|
||||
"You can't read in the dark."
|
||||
"You can't turn "
|
||||
"You can't unplug that."
|
||||
"You can't wedge open "
|
||||
"You cannot close that."
|
||||
"You dream of "
|
||||
"You have it"
|
||||
"You hear a very odd noise, sort of like breathing. It's hard to tell where
|
||||
it's coming from."
|
||||
"You hear nothing unsettling"
|
||||
"You may well wait quite a while."
|
||||
"You miss. (Now you know why few technical schools have football teams
|
||||
in the Rose Bowl.)"
|
||||
"You must address "
|
||||
"You must tell me how to do that to "
|
||||
"You reach into "
|
||||
"You see nothing special about "
|
||||
"You settle down to sleep, but you really aren't tired, so you
|
||||
thrash around for a while and then give up."
|
||||
"You should take "
|
||||
"You sleep uneventfully and awake refreshed."
|
||||
"You slip and slide on the wax. It's like walking on wet ice. You can
|
||||
barely keep upright, but it's worse for the maintenance man. His gait
|
||||
is so jerky and lurching that each time he tries to take a step he
|
||||
falls! His persistence is impressive, but in vain. You slip (literally)
|
||||
by before he can grab you."
|
||||
"You slip and slide on the wax. It's like walking on wet ice. You can
|
||||
barely keep upright, but you manage to lose your balance in just the
|
||||
right way to keep going."
|
||||
"You would surely freeze to death before you woke."
|
||||
"You'll never sharpen anything with that!"
|
||||
"You're already holding it!"
|
||||
"You're holding it. Are you planning to juggle it?"
|
||||
"You're holding too many things and can't quite get them all arranged
|
||||
to take it as well."
|
||||
"You're no longer wearing "
|
||||
"You're welcome, I guess."
|
||||
"You've been up for a long time, and it was starting to look like an
|
||||
all-nighter there for a while. Your tired brain could use the rest. You
|
||||
stretch out as best you can. Time passes as you toss and turn fitfully,
|
||||
sleeping only in snatches."
|
||||
"Your blazing gaze is insufficient."
|
||||
"Your load is too heavy"
|
||||
"Your reply is ignored."
|
||||
"Your score is "
|
||||
"Your taste is unusual."
|
||||
"attack"
|
||||
"behind "
|
||||
"being carried by"
|
||||
"carrying "
|
||||
"changed"
|
||||
"climb onto "
|
||||
"closed"
|
||||
"closed"
|
||||
"closed"
|
||||
"cross"
|
||||
"danger of freezing to death"
|
||||
"died"
|
||||
"do"
|
||||
"do"
|
||||
"drink"
|
||||
"early evening"
|
||||
"early morning"
|
||||
"erase"
|
||||
"erase the lettering from"
|
||||
"fill it with"
|
||||
"get into "
|
||||
"give "
|
||||
"go that way."
|
||||
"good health"
|
||||
"holding "
|
||||
"in"
|
||||
"in "
|
||||
"in anything."
|
||||
"it"
|
||||
"kill"
|
||||
"late afternoon"
|
||||
"late evening"
|
||||
"look inside"
|
||||
"make "
|
||||
"make out anything."
|
||||
"mid-day"
|
||||
"mid-morning"
|
||||
"move"
|
||||
"nothing"
|
||||
"on"
|
||||
"on your feet."
|
||||
"open"
|
||||
"open"
|
||||
"open"
|
||||
"open"
|
||||
"pick"
|
||||
"pour"
|
||||
"push things to"
|
||||
"put anything under"
|
||||
"s"
|
||||
"spin"
|
||||
"swim in"
|
||||
"take it; thus, you can't shake it!"
|
||||
"talk to"
|
||||
"that"
|
||||
"that"
|
||||
"that."
|
||||
"there"
|
||||
"there."
|
||||
"throw anything off"
|
||||
"wear"
|
||||
"wide awake"
|
||||
"your bare hands"
|
||||
"|
|
||||
| **** You have "
|
44
verbs.zil
44
verbs.zil
|
@ -198,6 +198,7 @@
|
|||
S "Do you wish to ""leave the game">
|
||||
<YES?>>
|
||||
<NOT .ASK?>>
|
||||
%<IFSOUND <KILL-SOUNDS>>
|
||||
<QUIT>)
|
||||
(T
|
||||
<TELL ,OKAY>)>>
|
||||
|
@ -208,6 +209,7 @@ S "Do you wish to ""leave the game">
|
|||
<TELL S "Do you wish to ""restart">
|
||||
<COND (<YES?>
|
||||
<TELL "Restarting." CR>
|
||||
%<IFSOUND <KILL-SOUNDS>>
|
||||
<RESTART>
|
||||
<TELL ,FAILED>)>>
|
||||
|
||||
|
@ -216,6 +218,7 @@ S "Do you wish to ""leave the game">
|
|||
<GLOBAL FAILED "Failed.|">
|
||||
|
||||
<ROUTINE FINISH ()
|
||||
%<IFSOUND <KILL-SOUNDS>>
|
||||
<USL>
|
||||
<CRLF>
|
||||
%<DEBUG-CODE <TELL-C-INTS>>
|
||||
|
@ -249,14 +252,25 @@ game position, or end this session of the game?" CR>
|
|||
(T
|
||||
<RFALSE>)>>
|
||||
|
||||
<ROUTINE V-RESTORE ()
|
||||
<COND (<RESTORE> <RTRUE>)
|
||||
<ROUTINE V-RESTORE ("AUX" X Y)
|
||||
<SET X <GET ,SOUND-FLAG 0>>
|
||||
%<IFSOUND <KILL-SOUNDS>>
|
||||
<COND (<RESTORE>
|
||||
<RTRUE>)
|
||||
(T
|
||||
%<IFSOUND <COND (<G? .X 1>
|
||||
<SOUNDS </ .X 16>
|
||||
,S-START
|
||||
<MOD .X 16>>)>>
|
||||
<TELL ,FAILED>)>>
|
||||
|
||||
<ROUTINE V-SAVE ("AUX" X)
|
||||
<PUTB ,OOPS-INBUF 1 0>
|
||||
<SET X <SAVE>>
|
||||
%<IFSOUND <COND (<G? <GET ,SOUND-FLAG 0> 1>
|
||||
<SOUNDS </ <GET ,SOUND-FLAG 0> 16>
|
||||
,S-START
|
||||
<MOD <GET ,SOUND-FLAG 0> 16>>)>>
|
||||
<COND (<ZERO? .X>
|
||||
<TELL ,FAILED>)
|
||||
(ELSE
|
||||
|
@ -694,7 +708,7 @@ they are identical." CR>)
|
|||
|
||||
<ROUTINE PRE-GIVE ()
|
||||
<COND (<AND <WINNER? ,PLAYER>
|
||||
<NOT <HELD? ,PRSO>>
|
||||
<NOT <HELD? ,PRSO>>>
|
||||
<TELL
|
||||
,YOU-HAVE-TO "get it first." CR>)>>
|
||||
|
||||
|
@ -1774,19 +1788,19 @@ to take it as well." CR>)>
|
|||
|
||||
;"subtitle movement"
|
||||
|
||||
<CONSTANT REXIT 0>
|
||||
<CONSTANT UEXIT 1>
|
||||
<CONSTANT NEXIT 2>
|
||||
<CONSTANT FEXIT 3>
|
||||
<CONSTANT CEXIT 4>
|
||||
<CONSTANT DEXIT 5>
|
||||
;<CONSTANT REXIT 0>
|
||||
;<CONSTANT UEXIT 1>
|
||||
;<CONSTANT NEXIT 2>
|
||||
;<CONSTANT FEXIT 3>
|
||||
;<CONSTANT CEXIT 4>
|
||||
;<CONSTANT DEXIT 5>
|
||||
|
||||
<CONSTANT NEXITSTR 0>
|
||||
<CONSTANT FEXITFCN 0>
|
||||
<CONSTANT CEXITFLAG 1>
|
||||
<CONSTANT CEXITSTR 1>
|
||||
<CONSTANT DEXITOBJ 1>
|
||||
<CONSTANT DEXITSTR 1>
|
||||
;<CONSTANT NEXITSTR 0>
|
||||
;<CONSTANT FEXITFCN 0>
|
||||
;<CONSTANT CEXITFLAG 1>
|
||||
;<CONSTANT CEXITSTR 1>
|
||||
;<CONSTANT DEXITOBJ 1>
|
||||
;<CONSTANT DEXITSTR 1>
|
||||
|
||||
;<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
|
||||
<REPEAT ()
|
||||
|
|
17
yuggoth.zil
17
yuggoth.zil
|
@ -30,6 +30,10 @@ lifeless. A path descends into a shallow bowl of black basalt.")
|
|||
|
||||
<ROUTINE RANDOM-YUGGOTH-F (RARG)
|
||||
<COND (<RARG? ENTER>
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-DRONE ,S-START
|
||||
<COND (<HERE? ,YUGGOTH> 2)
|
||||
(ELSE 4)>>>
|
||||
<QUEUE I-YUGGOTH 2>)>>
|
||||
|
||||
<ROOM BOWL-ROOM
|
||||
|
@ -61,6 +65,8 @@ pushed against the pile by the crowd around you.")
|
|||
<COND ;(<RARG? LOOK>
|
||||
<TELL
|
||||
CR>)
|
||||
(<RARG? ENTER>
|
||||
%<IFSOUND <SOUNDS ,S-DRONE ,S-START 6>>)
|
||||
(<RARG? BEG>
|
||||
<COND (<VERB? WALK>
|
||||
<COND (<EQUAL? ,P-WALK-DIR ,P?UP>
|
||||
|
@ -149,13 +155,18 @@ is a symbol." CR>)
|
|||
unwilling to approach the stone." CR>)
|
||||
(<AND <HERE? ,INNER-LAIR>
|
||||
<NOT <FSET? ,SMOOTH-STONE ,TOUCHBIT>>>
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-CRACK>>
|
||||
<TELL
|
||||
"You pick up the stone. It has a long jagged crack that almost breaks
|
||||
it in half. As you pick it up, you feel it bump to one side. Then, as
|
||||
you are holding it in your hand, something pushes its way out through
|
||||
the crack, breaking the stone into two pieces. Something small, pale,
|
||||
and damp blinks its watery eyes at you. It hisses, gaining strength,
|
||||
and spreads membranous wings. It takes to the air, at first clumsily, then
|
||||
and spreads membranous wings. ">
|
||||
%<IFSOUND
|
||||
<SOUNDS ,S-GHIDRA>>
|
||||
<TELL "It takes to the air, at first clumsily, then
|
||||
with increased assurance, and disappears into the gloom. One eerie
|
||||
cry drifts back to where you stand." CR CR>
|
||||
<TELL
|
||||
|
@ -204,9 +215,11 @@ retreats." CR>)
|
|||
|
||||
<ROUTINE OBJ-OFF-ROOF (OBJ)
|
||||
<MOVE .OBJ ,COURTYARD>
|
||||
%<IFSOUND <SOUNDS ,S-DIE ,S-INIT>>
|
||||
<TELL
|
||||
CTHE .OBJ " disappears over the south edge of the building">
|
||||
<COND (<IN? ,FLIER ,HERE>
|
||||
%<IFSOUND <SOUNDS ,S-DIE>>
|
||||
<TELL ", and the creature ">
|
||||
<COND (<EQUAL? .OBJ ,SMOOTH-STONE>
|
||||
<SCORE-OBJECT ,FLIER>
|
||||
|
@ -244,6 +257,7 @@ CTHE .OBJ " disappears over the south edge of the building">
|
|||
<CRLF>
|
||||
<COND (<EQUAL? <SETG YUGGOTH-COUNT <+ ,YUGGOTH-COUNT 1>> 1>
|
||||
<MOVE ,LURKER ,HERE>
|
||||
%<IFSOUND <SOUNDS ,S-DRONE ,S-START 8>>
|
||||
<TELL
|
||||
"Suddenly, the dimness becomes darkness, and the crowd around you explodes
|
||||
with excitement. You are jostled and shoved from all sides. A low keening
|
||||
|
@ -263,6 +277,7 @@ stoops, its mandibles grasping you. You are lifted towards its gaping
|
|||
maw. The stench and the sounds issuing from it are overwhelming, and
|
||||
you fall unconscious." CR CR>
|
||||
<DEQUEUE I-LURKER-APPEARS>
|
||||
%<IFSOUND <SOUNDS ,S-DRONE ,S-STOP>>
|
||||
<COND (<IN? ,CHAIR ,TERMINAL-ROOM>
|
||||
<MOVE ,CHAIR ,HERE>
|
||||
<MOVE ,PLAYER ,CHAIR>)>
|
||||
|
|
Loading…
Reference in New Issue