mirror of
https://github.com/historicalsource/enchanter
synced 2024-04-25 21:49:27 +03:00
873 lines
22 KiB
Plaintext
873 lines
22 KiB
Plaintext
"TERROR for
|
|
ENCHANTER
|
|
(c) Copyright 1983 Infocom, Inc. All Rights Reserved.
|
|
"
|
|
|
|
;"It even strikes fear in the hearts of implementers...."
|
|
|
|
<OBJECT TERROR
|
|
(IN T-I)
|
|
(DESC "lurking evil presence")
|
|
(SYNONYM TERROR PRESENCE FORCE)
|
|
(ADJECTIVE STALKING EVIL LURKING UNSEEN)
|
|
(FLAGS NDESCBIT)
|
|
(GLOBAL TERROR)
|
|
(ACTION TERROR-F)>
|
|
|
|
<ROUTINE TERROR-F ()
|
|
<COND (<VERB? ZIFMIA>
|
|
<TELL
|
|
"As you cast the zifmia spell, you are overpowered with such a sense of
|
|
malice that you cannot continue. All in all, a good thing probably." CR>)
|
|
(<VERB? VAXUM>
|
|
<TELL
|
|
"The terror may be friendlier, but with friends like that...." CR>)
|
|
(<VERB? GUNCHO>
|
|
<REMOVE ,TERROR>
|
|
<TELL
|
|
"The room fills with a horrible noise, darkens to pitch blackness, and
|
|
then lightens. The weight of fear lifts." CR>)>>
|
|
|
|
<OBJECT TMAP
|
|
(IN MAP-ROOM)
|
|
(DESC "map")
|
|
(FDESC
|
|
"Lying on the ground is an old parchment map.")
|
|
(SYNONYM MAP)
|
|
(ADJECTIVE OLD PARCHMENT)
|
|
(FLAGS TAKEBIT READBIT CONTBIT OPENBIT)
|
|
(CAPACITY 100)
|
|
(ACTION TMAP-F)>
|
|
|
|
<OBJECT PENCIL
|
|
(IN MAP-ROOM)
|
|
(DESC "badly worn pencil")
|
|
(FDESC
|
|
"In one corner of the room is a badly worn pencil, inscribed with runes.")
|
|
(SYNONYM PENCIL ERASER RUNES)
|
|
(ADJECTIVE BADLY WORN)
|
|
(FLAGS TAKEBIT READBIT)
|
|
(TEXT
|
|
"It says \"Frobozz Magic Pencil Company.\" Some sort of joke, probably.")
|
|
(ACTION PENCIL-F)>
|
|
|
|
<ROUTINE TMAP-F ()
|
|
<COND (<VERB? KULCAD>
|
|
<TELL
|
|
"At once, a maze of lines forms, connecting all of the spots on the map.
|
|
Suddenly, the world becomes still and cold." CR CR>
|
|
<END-OF-WORLD>
|
|
<RTRUE>)
|
|
(<VERB? OPEN CLOSE PUT>
|
|
<TELL "You can't do that." CR>)
|
|
(<VERB? DRAW-ON>
|
|
<COND (<IN? ,PENCIL ,WINNER>
|
|
<WRITE-HINT>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You have nothing to draw with." CR>)>)
|
|
(<VERB? READ EXAMINE LOOK-INSIDE>
|
|
<TELL
|
|
"The map consists of a drawing with nine points, each represented by
|
|
a strange character, with interconnecting thin pencil lines. Using your
|
|
native alphabet, it looks like this:" CR>
|
|
<DRAW-TMAZE>)>>
|
|
|
|
<GLOBAL PENCIL-COUNT 2>
|
|
<GLOBAL ERASER-COUNT 2>
|
|
|
|
<GLOBAL PENCIL-TBL
|
|
<TABLE "gone" "very nearly gone" "nearly gone">>
|
|
|
|
<GLOBAL ERASER-TBL
|
|
<TABLE "not fit for use" "barely usable" "negligible">>
|
|
|
|
<ROUTINE PENCIL-F ()
|
|
<COND (<VERB? KULCAD>
|
|
<TELL
|
|
"As the pencil dissolves into nothingness, everything becomes still
|
|
and cold." CR CR>
|
|
<END-OF-WORLD>
|
|
<RTRUE>)
|
|
(<VERB? EXAMINE>
|
|
<TELL
|
|
"The pencil is very old and covered with finely inlaid runes. The point is
|
|
">
|
|
<TELL <GET ,PENCIL-TBL ,PENCIL-COUNT>
|
|
" and the attached eraser is "
|
|
<GET ,ERASER-TBL ,ERASER-COUNT>
|
|
"." CR>)>>
|
|
|
|
<OBJECT POINT-B
|
|
(IN TMAP)
|
|
(DESC "point B")
|
|
(SYNONYM B)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 1)>
|
|
|
|
<OBJECT POINT-R
|
|
(IN TMAP)
|
|
(DESC "point R")
|
|
(SYNONYM R)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 2)>
|
|
|
|
<OBJECT POINT-K
|
|
(IN TMAP)
|
|
(DESC "point K")
|
|
(SYNONYM K)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 3)>
|
|
|
|
<OBJECT POINT-H
|
|
(IN TMAP)
|
|
(DESC "point H")
|
|
(SYNONYM H)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 4)>
|
|
|
|
<OBJECT POINT-J
|
|
(IN TMAP)
|
|
(DESC "point J")
|
|
(SYNONYM J)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 5)>
|
|
|
|
<OBJECT POINT-M
|
|
(IN TMAP)
|
|
(DESC "point M")
|
|
(SYNONYM M)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 6)>
|
|
|
|
<OBJECT POINT-V
|
|
(IN TMAP)
|
|
(DESC "point V")
|
|
(SYNONYM V)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 7)>
|
|
|
|
<OBJECT POINT-F
|
|
(IN TMAP)
|
|
(DESC "point F")
|
|
(SYNONYM F)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 8)>
|
|
|
|
<OBJECT POINT-P
|
|
(IN TMAP)
|
|
(DESC "point P")
|
|
(SYNONYM P)
|
|
(ADJECTIVE POINT)
|
|
(FLAGS POINTBIT NDESCBIT)
|
|
(POINT 9)>
|
|
|
|
<CONSTANT T-NW 1>
|
|
<CONSTANT T-WEST 3>
|
|
<CONSTANT T-SW 5>
|
|
<CONSTANT T-SOUTH 7>
|
|
<CONSTANT T-SE 9>
|
|
<CONSTANT T-EAST 11>
|
|
<CONSTANT T-NE 13>
|
|
<CONSTANT T-NORTH 15>
|
|
|
|
<GLOBAL T-DIR-TABLE <TABLE 0 0 0 0 0 "/" 0 "!" 0 "\\">>
|
|
|
|
<ROOM T-A
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" 0 0 ;"WEST" 0 0 ;"SW" 0 0 ;"SOUTH" T-B 1
|
|
;"SE" T-C 0 ;"EAST" T-E 0 ;"NE" 0 0 ;"NORTH" 0 0 -1>)
|
|
(CAPACITY 1)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-B
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" 0 0 ;"WEST" 0 0 ;"SW" 0 0 ;"SOUTH" 0 0
|
|
;"SE" T-D 1 ;"EAST" T-F 1 ;"NE" T-C 0 ;"NORTH" T-A 1 -1>)
|
|
(CAPACITY 2)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-C
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-A 0 ;"WEST" 0 0 ;"SW" T-B 0 ;"SOUTH" T-D 0
|
|
;"SE" T-F 0 ;"EAST" T-G 0 ;"NE" T-E 1 ;"NORTH" 0 0 -1>)
|
|
(CAPACITY 3)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-D
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-B 1 ;"WEST" 0 0 ;"SW" 0 0 ;"SOUTH" 0 0
|
|
;"SE" 0 0 ;"EAST" T-I 0 ;"NE" T-F 1 ;"NORTH" T-C 0 -1>)
|
|
(CAPACITY 4)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-E
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" 0 0 ;"WEST" T-A 0 ;"SW" T-C 1 ;"SOUTH" T-F 0
|
|
;"SE" T-G 1 ;"EAST" 0 0 ;"NE" 0 0 ;"NORTH" 0 0 -1>)
|
|
(CAPACITY 5)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-F
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-C 0 ;"WEST" T-B 1 ;"SW" T-D 1 ;"SOUTH" 0 0
|
|
;"SE" T-I 0 ;"EAST" T-H 0 ;"NE" T-G 1 ;"NORTH" T-E 0 -1>)
|
|
(CAPACITY 6)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-G
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-E 1 ;"WEST" T-C 0 ;"SW" T-F 1 ;"SOUTH" T-I 0
|
|
;"SE" T-H 1 ;"EAST" 0 0 ;"NE" 0 0 ;"NORTH" 0 0 -1>)
|
|
(CAPACITY 7)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-H
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-G 1 ;"WEST" T-F 0 ;"SW" T-I 0 ;"SOUTH" 0 0
|
|
;"SE" 0 0 ;"EAST" 0 0 ;"NE" 0 0 ;"NORTH" 0 0 -1>)
|
|
(CAPACITY 8)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<ROOM T-I
|
|
(IN ROOMS)
|
|
(DESC "Translucent Room")
|
|
(FLAGS RLANDBIT)
|
|
(TMAZE <TABLE
|
|
;"NW" T-F 0 ;"WEST" T-D 0 ;"SW" 0 0 ;"SOUTH" 0 0
|
|
;"SE" 0 0 ;"EAST" 0 0 ;"NE" T-H 0 ;"NORTH" T-G 0 -1>)
|
|
(CAPACITY 9)
|
|
(GLOBAL BLACK-PASSAGE)
|
|
(ACTION TMAZE-F)>
|
|
|
|
<GLOBAL TMAZE-DIRS <TABLE "northwest" "west" "southwest" "south"
|
|
"southeast" "east" "northeast" "north">>
|
|
|
|
<OBJECT BLACK-PASSAGE
|
|
(IN LOCAL-GLOBALS)
|
|
(DESC "black passage")
|
|
(SYNONYM PASSAGE)
|
|
(ADJECTIVE BLACK)
|
|
(ACTION BLACK-PASSAGE-F)>
|
|
|
|
<ROUTINE BLACK-PASSAGE-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The passages are perfectly round and black; the walls seem to be made of
|
|
carbon." CR>)>>
|
|
|
|
<ROUTINE TMAZE-F (RARG "AUX" TBL (NEX 0) (FLG <>) (OFFS 0) (PLU <>))
|
|
<COND (<AND <IN? ,BANISH-SCROLL ,WINNER>
|
|
<EQUAL? ,HERE ,T-A>
|
|
,TERROR-TRAPPED
|
|
<G? ,TERROR-POINT 0>>
|
|
<TELL
|
|
"You hear a horrible anguished scream through the walls of the cavern as the
|
|
terror realizes that it is trapped and its scroll of power stolen!" CR CR>
|
|
<SETG SCORE <+ ,SCORE ,TERROR-POINT>>
|
|
<SETG TERROR-POINT 0>)>
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL
|
|
"This is a peculiar room, whose cream-colored walls are thin and
|
|
translucent." CR>
|
|
<SET TBL <GETP ,HERE ,P?TMAZE>>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <GET .TBL .OFFS> -1>
|
|
<RETURN>)
|
|
(<EQUAL? <GET .TBL <+ .OFFS 1>> 1>
|
|
<SET NEX <+ .NEX 1>>)>
|
|
<SET OFFS <+ .OFFS 2>>>
|
|
<COND (<EQUAL? .NEX 0>
|
|
<TELL
|
|
"There is not a single exit from this place." CR>
|
|
<RTRUE>)
|
|
(<EQUAL? .NEX 1>
|
|
<TELL
|
|
"An exit is">)
|
|
(T
|
|
<SET PLU T>
|
|
<TELL
|
|
"Passages go">)>
|
|
<TELL " to the ">
|
|
<SET OFFS 0>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <GET .TBL .OFFS> -1>
|
|
<RETURN>)
|
|
(<EQUAL? <GET .TBL <+ .OFFS 1>> 1>
|
|
<TELL <GET ,TMAZE-DIRS </ .OFFS 2>>>
|
|
<COND (<G? .NEX 2>
|
|
<SET FLG T>
|
|
<TELL ", ">)
|
|
(<EQUAL? .NEX 2>
|
|
<COND (.FLG <TELL ",">)>
|
|
<TELL " and ">)>
|
|
<SET NEX <- .NEX 1>>)>
|
|
<SET OFFS <+ .OFFS 2>>>
|
|
<TELL "
|
|
and ">
|
|
<COND (.PLU <TELL "they are">)
|
|
(T <TELL "it is">)>
|
|
<TELL
|
|
" very strange indeed, perfectly round and black as pitch." CR>)
|
|
(<EQUAL? .RARG ,M-BEG>
|
|
<COND (<IN? ,TERROR ,HERE>
|
|
<COND (<VERB? WALK>
|
|
<TELL
|
|
"Your feet are leaden with fear, and cold sweat runs down your back as you
|
|
make your way to the door, but you make no progress. Your mind tells you
|
|
you are running, but you aren't getting anywhere." CR>)>)
|
|
(<VERB? WALK>
|
|
<COND (<AND <EQUAL? ,HERE ,T-A>
|
|
<EQUAL? ,PRSO ,P?UP>>
|
|
<GOTO ,DUNGEON>
|
|
<RTRUE>)
|
|
(<AND <G? ,PRSO ,P?UP>
|
|
<EQUAL? <GET <SET TBL <GETP ,HERE ,P?TMAZE>>
|
|
<SET OFFS
|
|
<- <* <- ,PRSO
|
|
,P?UP>
|
|
2>
|
|
1>>>
|
|
1>>
|
|
<GOTO <GET .TBL <- .OFFS 1>>>
|
|
<COND (<IN? ,TERROR ,HERE>
|
|
<TELL
|
|
"An evil presence pervades the room, its source unseen. Fear seeps into
|
|
your mind, like fog. You look fearfully around. There is something
|
|
horrible here." CR>)
|
|
(<CONNECTED? ,HERE <LOC ,TERROR>>
|
|
<TELL
|
|
"You sense that near this place an evil presence lurks. It seems close by
|
|
and is moving." CR>)>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You can't go that way." CR>)>)>)>>
|
|
|
|
<ROUTINE END-OF-WORLD ()
|
|
<TELL
|
|
"You suddenly feel weak and your knees buckle. Just as you collapse to the
|
|
ground, you find yourself in the presence of the Circle. They seem tense
|
|
and frightened and ask desperately about your recent doings. As you tell
|
|
your tale of the map and pencil, they recoil in horror. \"The Terror is
|
|
released!\" cries one. Belboz sinks into his throne. \"We are doomed!\"
|
|
he gasps. One by one, the wizards flee to prepare a hopeless defense." CR>
|
|
<SETG SCORE -10>
|
|
<FINISH>>
|
|
|
|
<ROUTINE DRAW-TMAZE ()
|
|
<FIXED-FONT-ON>
|
|
<TELL CR "B">
|
|
<ECN ,T-A ,T-H ;"Place holder">
|
|
<TELL "J" CR>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<CN ,T-A ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SW>
|
|
<CN ,T-E ,T-SOUTH>
|
|
<CN ,T-E ,T-SE>
|
|
<CRLF>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-A ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SE>
|
|
<CRLF>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-A ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SE>
|
|
<CRLF>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<TELL " K">
|
|
<ECN ,T-C ,T-E>
|
|
<TELL "V" CR>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SW>
|
|
<CN ,T-C ,T-SOUTH>
|
|
<CN ,T-C ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SW>
|
|
<CN ,T-G ,T-SOUTH>
|
|
<CN ,T-G ,T-SE>
|
|
<CRLF>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-E ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SE>
|
|
<CRLF>
|
|
<CN ,T-A ,T-SOUTH>
|
|
<CN ,T-C ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SE>
|
|
<CN ,T-E ,T-SOUTH>
|
|
<CN ,T-G ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SE>
|
|
<CRLF>
|
|
<TELL "R">
|
|
<ECN ,T-B ,T-C>
|
|
<TELL "M">
|
|
<ECN ,T-F ,T-G>
|
|
<TELL "F">
|
|
<TELL CR " ">
|
|
<CN ,T-B ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-F ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-F ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-H ,T-SW>
|
|
<TELL CR " ">
|
|
<CN ,T-B ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-C ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-F ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-F ,T-SE>
|
|
<TELL " ">
|
|
<CN ,T-G ,T-SOUTH>
|
|
<TELL " ">
|
|
<CN ,T-H ,T-SW>
|
|
<TELL CR " ">
|
|
<CN ,T-B ,T-SE>
|
|
<CN ,T-C ,T-SOUTH>
|
|
<CN ,T-F ,T-SW>
|
|
<TELL " ">
|
|
<CN ,T-F ,T-SE>
|
|
<CN ,T-G ,T-SOUTH>
|
|
<CN ,T-H ,T-SW>
|
|
<TELL CR " H">
|
|
<ECN ,T-D ,T-H ;"Place holder">
|
|
<TELL "P" CR CR>
|
|
<FIXED-FONT-OFF>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE FIXED-FONT-ON () <PUT 0 8 <BOR <GET 0 8> 2>>>
|
|
|
|
<ROUTINE FIXED-FONT-OFF() <PUT 0 8 <BAND <GET 0 8> -3>>>
|
|
|
|
<ROUTINE CN (L DIR)
|
|
<COND (<NOT <0? <GET <GETP .L ,P?TMAZE> .DIR>>>
|
|
<TELL <GET ,T-DIR-TABLE .DIR>>)
|
|
(T <TELL " ">)>>
|
|
|
|
<ROUTINE ECN (L DN "AUX" (FLG <>))
|
|
<COND (<NOT <0? <GET <GETP .L ,P?TMAZE> ,T-EAST>>>
|
|
<SET FLG T>
|
|
<TELL "---">)
|
|
(T <TELL " ">)>
|
|
<COND (<NOT <0? <GET <GETP .DN ,P?TMAZE> ,T-SOUTH>>>
|
|
<COND (.FLG <TELL "+">)
|
|
(T <TELL "!">)>)
|
|
(.FLG <TELL "-">)
|
|
(T <TELL " ">)>
|
|
<COND (.FLG <TELL "---">)
|
|
(T <TELL " ">)>>
|
|
|
|
<ROUTINE CONNECT (RM1 RM2 "OPTIONAL" (FLIP <>) "AUX" TBL RMX)
|
|
<SET TBL <GETP .RM1 ,P?TMAZE>>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <SET RMX <GET .TBL 0>> -1>
|
|
<TELL
|
|
"The pencil doesn't seem to allow that line to be drawn." CR>
|
|
<RTRUE>)
|
|
(<EQUAL? .RMX .RM2>
|
|
<COND (<0? <GET .TBL 1>>
|
|
<COND (<NOT .FLIP>
|
|
<CONNECT .RM2 .RM1 T>
|
|
<SETG PENCIL-COUNT
|
|
<- ,PENCIL-COUNT 1>>
|
|
<TELL
|
|
"A thin line now connects the two spots on the map, but the
|
|
pencil point is " <GET ,PENCIL-TBL ,PENCIL-COUNT> "." CR>
|
|
<COND (<EQUAL? ,HERE .RM1 .RM2>
|
|
<DESCRIBE-NEW-EXIT .RM1 .RM2>)>)>
|
|
<PUT .TBL 1 1>
|
|
<COND (<AND <LOC ,TERROR>
|
|
<TWALK <LOC ,TERROR>>>
|
|
<SETG TERROR-TRAPPED <>>
|
|
<ENABLE <QUEUE I-TERROR -1>>)>)
|
|
(T
|
|
<TELL
|
|
"There is already a line connecting those spots." CR>)>
|
|
<RTRUE>)>
|
|
<SET TBL <REST .TBL 4>>>>
|
|
|
|
<ROUTINE DISCONNECT (RM1 RM2 "OPTIONAL" (FLIP <>) "AUX" TBL RMX)
|
|
<SET TBL <GETP .RM1 ,P?TMAZE>>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <SET RMX <GET .TBL 0>> -1>
|
|
<TELL
|
|
"Those two spots aren't connected on the map." CR>
|
|
<RTRUE>)
|
|
(<EQUAL? .RMX .RM2>
|
|
<COND (<0? <GET .TBL 1>>
|
|
<TELL
|
|
"Those two spots aren't connected on the map." CR>)
|
|
(T
|
|
<COND (<NOT .FLIP>
|
|
<DISCONNECT .RM2 .RM1 T>
|
|
<SETG ERASER-COUNT
|
|
<- ,ERASER-COUNT 1>>
|
|
<TELL
|
|
"The line between the two spots is erased, leaving the eraser
|
|
" <GET ,ERASER-TBL ,ERASER-COUNT> "." CR>
|
|
<COND (<EQUAL? ,HERE .RM1 .RM2>
|
|
<DESCRIBE-NEW-EXIT .RM1
|
|
.RM2
|
|
<>>)>)>
|
|
<PUT .TBL 1 0>)>
|
|
<RTRUE>)>
|
|
<SET TBL <REST .TBL 4>>>>
|
|
|
|
<ROUTINE DESCRIBE-NEW-EXIT (RM1 RM2 "OPTIONAL" (MAKE? T)
|
|
"AUX" TMP TBL (OFFS 0))
|
|
<COND (<EQUAL? .RM2 ,HERE>
|
|
<SET TMP .RM1>
|
|
<SET RM1 .RM2>
|
|
<SET RM2 .TMP>)>
|
|
<SET TBL <GETP .RM1 ,P?TMAZE>>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <SET TMP <GET .TBL .OFFS>> .RM2>
|
|
<RETURN>)
|
|
(<EQUAL? .TMP -1>
|
|
<TELL "*ERROR* BAD-EXIT DESCRIBE-NEW-EXIT" CR>
|
|
<RETURN>)
|
|
(T
|
|
<SET OFFS <+ .OFFS 2>>)>>
|
|
<TELL "Suddenly, the ">
|
|
<COND (.MAKE? <TELL "wall">)
|
|
(T <TELL "black passage">)>
|
|
<TELL " to the ">
|
|
<TELL <GET ,TMAZE-DIRS </ .OFFS 2>>>
|
|
<COND (.MAKE?
|
|
<TELL " opens to form a perfectly round and black passage">)
|
|
(T
|
|
<TELL " closes off">)>
|
|
<TELL "!" CR>>
|
|
|
|
|
|
<ROUTINE CONNECTED? (RM1 RM2 "AUX" TBL RMX)
|
|
<SET TBL <GETP .RM1 ,P?TMAZE>>
|
|
<COND (<NOT .TBL> <RFALSE>)>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? <SET RMX <GET .TBL 0>> -1>
|
|
<RFALSE>)
|
|
(<EQUAL? .RMX .RM2>
|
|
<COND (<0? <GET .TBL 1>>
|
|
<RFALSE>)
|
|
(T
|
|
<RTRUE>)>)>
|
|
<SET TBL <REST .TBL 4>>>>
|
|
|
|
;<GLOBAL TERROR-ROOM ,T-I>
|
|
|
|
<GLOBAL TWAIT 0>
|
|
|
|
<GLOBAL TERROR-ARRIVES
|
|
"An evil presence, borne on a cold blast of air, seems to move beside
|
|
you, weighing you down with emanations of malice and hatred. A cold fear
|
|
covers you like fog.">
|
|
|
|
<GLOBAL TERROR-MOVED <>>
|
|
|
|
<ROUTINE I-TERROR ("AUX" RM NRM (FLG <>))
|
|
<COND (,TERROR-TRAPPED
|
|
<SET RM <LOC ,TERROR>>
|
|
<COND (<CONNECTED? ,HERE .RM>
|
|
<MOVE ,TERROR ,HERE>
|
|
<TELL ,TERROR-ARRIVES CR>)>)
|
|
;(<PROB 5> <RFALSE>)
|
|
(<TWALK <SET RM <LOC ,TERROR>>>
|
|
<SETG TERROR-TRAPPED <>>
|
|
<SETG TWAIT 0>
|
|
<MOVE ,TERROR <SET NRM <GET ,TMAZE-ROOMS <GET ,PATH-TBL 2>>>>
|
|
<COND (<EQUAL? ,HERE .NRM>
|
|
<TELL ,TERROR-ARRIVES CR>
|
|
<SET FLG T>)
|
|
(<CONNECTED? ,HERE .NRM>
|
|
<TELL
|
|
"Somewhere near, an evil presence lurks, probing your mind. It
|
|
seems to be moving quickly." CR>
|
|
<SET FLG T>)
|
|
(<CONNECTED? ,HERE .RM>
|
|
<TELL
|
|
"You can no longer sense the evil presence nearby." CR>
|
|
<SET FLG T>)>
|
|
<COND (<NOT ,TERROR-MOVED>
|
|
<SETG TERROR-MOVED T>
|
|
<SETG LOSSAGE <+ ,LOSSAGE 1>>
|
|
<SET FLG T>
|
|
<TELL
|
|
"You feel that two powerful, evil forces are searching each other out.
|
|
As they meet, the air lightens. Belboz appears before you. \"Something
|
|
has disturbed the ancient Terror. Krill himself knows this and will try
|
|
to use it to his purposes. Already, they may have joined together. You
|
|
must not allow the Terror to escape, or we are all doomed!\" He fades into
|
|
the gloom." CR>)>
|
|
<COND (<EQUAL? .NRM ,T-A>
|
|
<END-OF-WORLD>
|
|
<COND (<EQUAL? ,HERE ,T-A>
|
|
<SET FLG T>
|
|
<TELL
|
|
"The presence seems to grow stronger each passing second,
|
|
beating you down with its awesome power." CR>)
|
|
(T
|
|
<SET FLG T>
|
|
<TELL
|
|
"At once, a strange and horrible feeling wells up inside of you.
|
|
An unseen yet awesomely powerful force, exuding pure evil, seems
|
|
to fill the very chamber." CR>)>)>
|
|
.FLG)
|
|
(<TNULL-F> <RTRUE>)
|
|
(<OR <G? <SETG TWAIT <+ ,TWAIT 1>> 6>
|
|
<NOT <SET RM <TWALK1>>>>
|
|
<RTRUE>)
|
|
(T
|
|
<SET NRM <LOC ,TERROR>>
|
|
<COND (<EQUAL? .NRM ,T-I> <RTRUE>)
|
|
(<CONNECTED? .NRM ,T-I>
|
|
<MOVE ,TERROR ,T-I>)
|
|
(<CONNECTED? .NRM ,T-F>
|
|
<MOVE ,TERROR ,T-F>)
|
|
;(T
|
|
<MOVE ,TERROR .RM>)>
|
|
<COND (<IN? ,TERROR ,HERE>
|
|
<TELL ,TERROR-ARRIVES CR>)
|
|
(T
|
|
<TELL
|
|
"From somewhere nearby, an unseen force probes you, and you are gripped
|
|
by a sickening feeling." CR>)>
|
|
<RTRUE>)>>
|
|
|
|
<GLOBAL TERROR-TRAPPED <>>
|
|
|
|
<GLOBAL TWALK-PATHS
|
|
<LTABLE ;A <LTABLE>
|
|
;B <LTABLE 1 3 4 6>
|
|
;C <LTABLE 1 2 5 6 7 4>
|
|
;D <LTABLE 2 3 6 9>
|
|
;E <LTABLE 1 3 6 7>
|
|
;F <LTABLE 3 5 2 4 7 8 9>
|
|
;G <LTABLE 5 3 6 8 9>
|
|
;H <LTABLE 6 7 9>
|
|
;I <LTABLE 4 6 7 8>>>
|
|
|
|
<GLOBAL TMAZE-ROOMS <LTABLE T-A T-B T-C T-D T-E T-F T-G T-H T-I>>
|
|
|
|
<ROUTINE TNULL-F ()
|
|
<SETG TERROR-TRAPPED T>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE TWALK (RM)
|
|
<SETG TWALK-LEVEL 0>
|
|
<SETG TTRIES 0>
|
|
<SETG PSTART .RM>
|
|
<PATH-OUT? .RM>>
|
|
|
|
<GLOBAL TTRIES 0>
|
|
<GLOBAL PSTART <>>
|
|
|
|
<CONSTANT TWALK-MAX 5>
|
|
|
|
;<GLOBAL SLOW-TIMES <LTABLE
|
|
"You feel a passing wave of anger permeating the walls of the room."
|
|
"The feeling of anger from a moment before is greater now."
|
|
"An intense surge of anger fills the very air."
|
|
"This is a bug. Report it."
|
|
"This is a bug. Report it."
|
|
"This is a bug. Report it.">>
|
|
|
|
<GLOBAL PATH-TBL <TABLE 0 0 0 0 0 0 0>>
|
|
|
|
<GLOBAL TWALK-LEVEL 0>
|
|
|
|
<ROUTINE TWALK1 ("AUX" TBL RM NRM (OFFS 1) CNT)
|
|
<SET RM <LOC ,TERROR>>
|
|
<SET TBL <GET ,TWALK-PATHS <GETP .RM ,P?CAPACITY>>>
|
|
<SET CNT <GET .TBL 0>>
|
|
<REPEAT ()
|
|
<COND (<G? .OFFS .CNT>
|
|
<RFALSE>)
|
|
(<CONNECTED? .RM
|
|
<SET NRM <GET ,TMAZE-ROOMS
|
|
<GET .TBL .OFFS>>>>
|
|
<RETURN .NRM>)>
|
|
<SET OFFS <+ .OFFS 1>>>>
|
|
|
|
<ROUTINE PATH-OUT? (RM "AUX" (OFFS 1) TBL (CNT 0) NRM)
|
|
<SETG TTRIES <+ ,TTRIES 1>>
|
|
;<COND (<0? <MOD ,TTRIES 16>>
|
|
<TELL <GET ,SLOW-TIMES </ ,TTRIES 32>> CR>)>
|
|
<SETG TWALK-LEVEL <+ ,TWALK-LEVEL 1>>
|
|
<PUT ,PATH-TBL ,TWALK-LEVEL <GETP .RM ,P?CAPACITY>>
|
|
<COND (<EQUAL? .RM ,T-A>
|
|
<SETG TWALK-LEVEL <- ,TWALK-LEVEL 1>>
|
|
<RTRUE>)
|
|
(<G? ,TWALK-LEVEL ,TWALK-MAX>
|
|
<SETG TWALK-LEVEL <- ,TWALK-LEVEL 1>>
|
|
<RFALSE>)>
|
|
<SET TBL <GET ,TWALK-PATHS <GETP .RM ,P?CAPACITY>>>
|
|
<COND (<0? <SET CNT <GET .TBL 0>>>
|
|
<SETG TWALK-LEVEL <- ,TWALK-LEVEL 1>>
|
|
<RTRUE>)>
|
|
<REPEAT ()
|
|
<COND (<G? .OFFS .CNT>
|
|
<SETG TWALK-LEVEL <- ,TWALK-LEVEL 1>>
|
|
<RFALSE>)
|
|
(<AND <CONNECTED? .RM
|
|
<SET NRM <GET ,TMAZE-ROOMS
|
|
<GET .TBL .OFFS>>>>
|
|
<NOT <EQUAL? .NRM ,PSTART>>
|
|
<PATH-OUT? .NRM>>
|
|
<SETG TWALK-LEVEL <- ,TWALK-LEVEL 1>>
|
|
<RTRUE>)>
|
|
<SET OFFS <+ .OFFS 1>>>>
|
|
|
|
<OBJECT LEGEND-BOOK
|
|
(IN LIBRARY)
|
|
(DESC "dusty book")
|
|
(SYNONYM BOOK PAGE)
|
|
(ADJECTIVE OLD DUSTY FIRST LEGEND)
|
|
(FDESC
|
|
"Amid the tubes is an old and dusty book.")
|
|
(FLAGS TAKEBIT READBIT OPENBIT CONTBIT)
|
|
(SIZE 6)
|
|
(ACTION LEGEND-BOOK-F)>
|
|
|
|
<ROUTINE LEGEND-BOOK-F ()
|
|
<COND (<AND <VERB? CLOSE>
|
|
<FSET? ,PRSO ,OPENBIT>>
|
|
<FCLEAR ,PRSO ,OPENBIT>
|
|
<TELL
|
|
"Closed." CR>)
|
|
(<VERB? READ EXAMINE LOOK-INSIDE OPEN>
|
|
<FSET ,PRSO ,OPENBIT>
|
|
<TELL
|
|
"The first page of the book was the table of contents. Only two chapter names
|
|
can be read: The Legend of the Unseen Terror and The Legend of the Great
|
|
Implementers." CR>)
|
|
(<VERB? TURN>
|
|
<TELL
|
|
"Rather than turning pages, why don't you simply read the legends." CR>)>>
|
|
|
|
<OBJECT LEGEND-ONE
|
|
(IN LEGEND-BOOK)
|
|
(DESC "Legend of the Unseen Terror")
|
|
(SYNONYM LEGEND TERROR)
|
|
(ADJECTIVE UNSEEN)
|
|
(FLAGS READBIT NDESCBIT)
|
|
(GLOBAL TERROR)
|
|
(TEXT
|
|
"This legend, written in an ancient tongue, goes something like this:
|
|
At one time a shapeless and formless manifestation of evil was disturbed
|
|
from millenia of sleep. It was so powerful that it required the combined
|
|
wisdom of the leading enchanters of that age to conquer it. The legend tells
|
|
how the enchanters lured the Terror \"to a recess deep within the earth\" by
|
|
placing there a powerful spell scroll. When it had reached the scroll, the
|
|
enchanters trapped it there with a spell that encased it in the living
|
|
rock. The Terror was so horrible that none would dare speak of it. A comment
|
|
at the end of the narration indicates that the story is considered to be quite
|
|
fanciful; no other chronicles of the age mention the Terror in any form.")>
|
|
|
|
<OBJECT LEGEND-TWO
|
|
(IN LEGEND-BOOK)
|
|
(DESC "Legend of the Great Implementers" )
|
|
(SYNONYM LEGEND IMPLEMENTERS)
|
|
(ADJECTIVE GREAT)
|
|
(FLAGS READBIT NDESCBIT)
|
|
(TEXT
|
|
"This legend, written in an ancient tongue, speaks of the creation
|
|
of the world. A more absurd account can hardly be imagined. The universe,
|
|
it seems, was created by \"Implementers\" who directed the running of great
|
|
engines. These engines produced this world and others, strange and wondrous,
|
|
as a test or puzzle for others of their kind. It goes on to state that these
|
|
beings stand ready to aid those entrapped within their creation. The great
|
|
magician-philosopher Helfax notes that a creation of this kind is morally
|
|
and logically indefensible and discards the theory as \"colossal claptrap
|
|
and kludgery.\"")
|
|
(ACTION LEGEND-TWO-F)>
|
|
|
|
<ROUTINE LEGEND-TWO-F ()
|
|
<COND (<AND <VERB? ZIFMIA> <NOT ,IMP-SEEN>>
|
|
<SETG IMP-SEEN T>
|
|
<TELL
|
|
"The implementers of the world, Marc Blank and Dave Lebling, appear before
|
|
you, looking quite as confused as yourself. They speak:|
|
|
Dave: \"What's happening here?\"|
|
|
Marc: \"Uh, I dunno. YOU wrote this code, not me.\"|
|
|
Dave: \"Hmm. Another day, another bug. Let's see here...\"|
|
|
They disappear a moment later.|
|
|
Dave's voice: \"That should do it.\"" CR>)>> |