Final Revision
parent
3a4d17d26a
commit
eb8982c216
File diff suppressed because it is too large
Load Diff
56
c1.zil
56
c1.zil
|
@ -40,7 +40,7 @@ spell scrolls." CR>)
|
|||
<MAGIC-DOOR-EXIT>)
|
||||
(ELSE ,DULL-ROOM-RETURN)>>
|
||||
|
||||
<GLOBAL DULL-ROOM-RETURN <>>
|
||||
<GLOBAL DULL-ROOM-RETURN:OBJECT <>>
|
||||
|
||||
"EARTH"
|
||||
|
||||
|
@ -646,7 +646,7 @@ see a fat, pointed tongue.">
|
|||
"There's no hinge there; it's not a door!" CR>)>)>>
|
||||
|
||||
<ROUTINE WONT-FIT ()
|
||||
<TELL "It won't fit." CR>>
|
||||
<TELL "Your hand won't fit in." CR>>
|
||||
|
||||
<ROUTINE MOUTH-CONTENTS ("AUX" STR)
|
||||
<SET STR " Sitting on the tongue">
|
||||
|
@ -739,7 +739,7 @@ ruin." CR>)>)>>
|
|||
<OBJECT ZIPPER
|
||||
(IN RUINS-ROOM)
|
||||
(DESC "zipper")
|
||||
(SYNONYM ZIPPER HOLE POCKET POUCH)
|
||||
(SYNONYM ZIPPER AABBCC ;"HOLE" POCKET POUCH)
|
||||
(ADJECTIVE SILVER DIMLY LIT)
|
||||
(ACTION ZIPPER-F)
|
||||
(CONTFCN ZIPPER-F)
|
||||
|
@ -769,9 +769,8 @@ ruin." CR>)>)>>
|
|||
<MAKE-OUT>)>)
|
||||
(<EQUAL? .RARG ,M-BEG>
|
||||
<COND (<AND <NOT-IN-VEHICLE?>
|
||||
<OR <VERB? TAKE>
|
||||
<NOT <FSET? ,ZIPPER ,OPENBIT>>>>
|
||||
<TELL "That's outside." CR>)
|
||||
<NOT <VERB? FIND WHAT WHERE WHO>>>
|
||||
<TELL "That's not in here." CR>)
|
||||
(<AND <VERB? LOOK-INSIDE> <EQUAL? ,PRSO ,ZIPPER>>
|
||||
<PERFORM ,V?LOOK>
|
||||
<RTRUE>)
|
||||
|
@ -788,12 +787,14 @@ ruin." CR>)>)>>
|
|||
(<AND <VERB? OPEN REZROV>
|
||||
<EQUAL? ,PRSO ,ZIPPER>
|
||||
<NOT <FSET? ,ZIPPER ,OPENBIT>>>
|
||||
<PUT <GETPT ,ZIPPER ,P?SYNONYM> 1 ,W?HOLE>
|
||||
<FSET ,ZIPPER ,OPENBIT>
|
||||
<TELL
|
||||
"Opening the zipper reveals the outside world." CR>)
|
||||
<TELL "Opened. ">
|
||||
<CANT-SEE-OUTSIDE>)
|
||||
(<AND <VERB? CLOSE>
|
||||
<EQUAL? ,PRSO ,ZIPPER>
|
||||
<FSET? ,ZIPPER ,OPENBIT>>
|
||||
<PUT <GETPT ,ZIPPER ,P?SYNONYM> 1 ,W?ZIPPER>
|
||||
<FCLEAR ,ZIPPER ,OPENBIT>
|
||||
<TELL
|
||||
,YOU-ARE-NOW "in a private little world of your own." CR>)
|
||||
|
@ -803,11 +804,17 @@ ruin." CR>)>)>>
|
|||
(<OR <VERB? DISEMBARK>
|
||||
<AND <VERB? DROP> <EQUAL? ,PRSO ,ZIPPER>>>
|
||||
<COND (<FSET? ,ZIPPER ,OPENBIT>
|
||||
<SETG LIT <LIT? ,HERE>>
|
||||
<MOVE ,PLAYER <LOC ,ZIPPER>>
|
||||
<MOVE ,ZIPPER ,PLAYER>
|
||||
<TELL
|
||||
"You get out of the hole." CR>)
|
||||
<COND (<NOT <LOC ,ZIPPER>>
|
||||
<EMERGE-AND-DROWN>)
|
||||
(ELSE
|
||||
<SETG LIT <LIT? ,HERE>>
|
||||
<MOVE ,PLAYER <LOC ,ZIPPER>>
|
||||
<MOVE ,ZIPPER ,PLAYER>
|
||||
<TELL
|
||||
"You get out of the hole." CR>
|
||||
<COND (,OGRE-MURDEROUS?
|
||||
<I-OGRE-KILLS-YOU>)>
|
||||
<RTRUE>)>)
|
||||
(ELSE
|
||||
<TELL
|
||||
,YOU-HAVE-TO " open the " 'ZIPPER " first." CR>)>)>)
|
||||
|
@ -819,6 +826,7 @@ ruin." CR>)>)>>
|
|||
<TELL-OPEN-CLOSED ,ZIPPER>)
|
||||
(<AND <VERB? OPEN REZROV>
|
||||
<NOT <FSET? ,ZIPPER ,OPENBIT>>>
|
||||
<PUT <GETPT ,ZIPPER ,P?SYNONYM> 1 ,W?HOLE>
|
||||
<FSET ,ZIPPER ,OPENBIT>
|
||||
<COND (<NOT ,LIT> <SETG LIT <LIT? ,HERE>>)>
|
||||
<TELL
|
||||
|
@ -831,6 +839,7 @@ ruin." CR>)>)>>
|
|||
the area.">)>
|
||||
<CRLF>)
|
||||
(<AND <VERB? CLOSE> <FSET? ,ZIPPER ,OPENBIT>>
|
||||
<PUT <GETPT ,ZIPPER ,P?SYNONYM> 1 ,W?ZIPPER>
|
||||
<FCLEAR ,ZIPPER ,OPENBIT>
|
||||
<SETG LIT <LIT? ,HERE>>
|
||||
<TELL
|
||||
|
@ -869,7 +878,7 @@ the area.">)>
|
|||
though something was thrust into your hand, there's something there. Oops,
|
||||
it slipped away again." CR>)>)
|
||||
(<VERB? BOARD>
|
||||
<COND (<NOT <HELD? ,ZIPPER>>
|
||||
<COND (<NOT <IN? ,ZIPPER ,PLAYER>>
|
||||
<DONT-HAVE-THAT>)
|
||||
(<FSET? ,ZIPPER ,OPENBIT>
|
||||
<COND (<OR <EQUAL? ,HERE
|
||||
|
@ -879,9 +888,10 @@ it slipped away again." CR>)>)
|
|||
,IN-PIPE-2>
|
||||
<EQUAL? ,HERE ,IN-SEWER ,RUINED-PIPE
|
||||
,PAST-CABINET>
|
||||
<EQUAL? ,HERE ,CABINET>>
|
||||
<TELL
|
||||
"An impossible maneuver under the circumstances." CR>
|
||||
<EQUAL? ,HERE ,CABINET>
|
||||
<AND <EQUAL? ,HERE ,OUBLIETTE>
|
||||
<G? ,WATER-FLAG 0>>>
|
||||
<IMPOSSIBLE-MANEUVER>
|
||||
<RTRUE>)>
|
||||
<COND (<NOT ,ZIPPER-SCROLL?>
|
||||
<SETG ZIPPER-SCROLL? T>
|
||||
|
@ -1366,6 +1376,8 @@ hermit looks glum." CR>>
|
|||
"\"I like avalanches. They keep people away. Usually.\"" CR>)
|
||||
(<EQUAL? .OBJ ,ZORKMID>
|
||||
<MATERIALISM>)
|
||||
(<EQUAL? .OBJ ,FISH ,BREAD>
|
||||
<TELL "He perks up at the mention of food." CR>)
|
||||
(<EQUAL? .OBJ ,LIFE-CUBE ,HUT ,HERMIT>
|
||||
<TELL
|
||||
"\"I've been living up here for many years. Wanted to get
|
||||
|
@ -1423,7 +1435,7 @@ of a rock not five minutes' walk from here. It was perfect.\"" CR>)>>
|
|||
<ROCKS-TUMBLING>)
|
||||
(ELSE
|
||||
<TELL ,ROCKS-PRECARIOUS ,PERIOD>)>)>)
|
||||
(<VERB? CLIMB-FOO CLIMB-UP CLIMB-ON>
|
||||
(<VERB? CLIMB-FOO CLIMB-UP CLIMB-ON CLIMB-OVER>
|
||||
<DO-WALK ,P?UP>)
|
||||
(<VERB? RUB MOVE PUSH LESOCH KICK MALYON>
|
||||
<COND (<EQUAL? ,HERE ,VOLCANO-BASE
|
||||
|
@ -1539,7 +1551,7 @@ trail heads west." CR>)>>
|
|||
(EAST TO CLIFF-BOTTOM)
|
||||
(IN TO OGRE-CAVE)
|
||||
(NORTH TO OGRE-CAVE)
|
||||
(UP "There's no path that way.")
|
||||
(UP "There's no way up here.")
|
||||
(ACTION CAVE-ENTRANCE-F)
|
||||
(FLAGS RLANDBIT OUTSIDE ONBIT)
|
||||
(GLOBAL GLOBAL-CLIFF GLOBAL-CAVE GLOBAL-ROCKS)
|
||||
|
@ -1664,6 +1676,9 @@ credit." CR>>
|
|||
"This small but cozy hole is the ogre's lair. Moldy, filthy furs piled
|
||||
in one corner make a crude bed. There is a rocky crawl up to the main
|
||||
part of the cave." CR>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<COND (<EQUAL? ,OHERE ,DULL-ROOM>
|
||||
<I-OGRE-KILLS-YOU T>)>)
|
||||
(<EQUAL? .RARG ,M-BEG>
|
||||
<COND (<AND <VERB? LISTEN> <NOT ,PRSO>>
|
||||
<OGRE-NOISES>)
|
||||
|
@ -1686,6 +1701,7 @@ part of the cave." CR>)
|
|||
<SET L <LOC ,MAGIC-BOX>>
|
||||
<COND (<AND .L
|
||||
<IN? .L ,ROOMS>
|
||||
<NOT <EQUAL? .L ,EMPORIUM>>
|
||||
<NOT <GETP .L ,P?CUBE>>
|
||||
<EQUAL? <GETP ,HERE ,P?CUBE> ,MAGIC-BOX-CUBE>>
|
||||
<COND (<EQUAL? .L ,CASTLE>
|
||||
|
@ -1818,7 +1834,7 @@ bear.">
|
|||
<TELL
|
||||
" He is currently six inches of concentrated ugliness.">)>
|
||||
<CRLF>)
|
||||
(<AND <VERB? GIVE WAVE-AT> <EQUAL? ,PRSI ,OGRE>>
|
||||
(<AND <VERB? GIVE SHOW WAVE-AT> <EQUAL? ,PRSI ,OGRE>>
|
||||
<GIVE-TO-OGRE>)
|
||||
(<VERB? LISTEN>
|
||||
<TELL CTHE ,OGRE " sounds ">
|
||||
|
|
35
c2.zil
35
c2.zil
|
@ -169,16 +169,19 @@ to reach the bottom." CR>>
|
|||
(FLAGS RWATERBIT ONBIT)
|
||||
(GLOBAL WATER)>
|
||||
|
||||
<ROUTINE EMERGE-AND-DROWN ()
|
||||
<COND (<NOT <EQUAL? ,CHANGED? ,GROUPER>>
|
||||
<JIGS-UP
|
||||
"You have reemerged beneath the water. There is no air here.
|
||||
You drown.">)>>
|
||||
|
||||
<ROUTINE OCEAN-FLOOR-F (RARG)
|
||||
<COND (<EQUAL? .RARG ,M-LOOK>
|
||||
<TELL
|
||||
"You are deep beneath the waves, near a small pile of rocks and broken
|
||||
coral that make up the nest of a grouper." CR>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<COND (<NOT <EQUAL? ,CHANGED? ,GROUPER>>
|
||||
<JIGS-UP
|
||||
"You have reemerged beneath the ocean. There is no air here.
|
||||
You drown.">)>)
|
||||
<EMERGE-AND-DROWN>)
|
||||
(<EQUAL? .RARG ,M-BEG>
|
||||
<COND (<VERB? WALK SWIM>
|
||||
<COND (<EQUAL? ,CHANGED? ,GROUPER>
|
||||
|
@ -207,7 +210,7 @@ surface." CR CR>
|
|||
(<EQUAL? ,CHANGED? ,GROUPER>
|
||||
<FUN-IN-OCEAN>)>)>>
|
||||
|
||||
<GLOBAL ATE-AS-GROUPER? <>>
|
||||
<GLOBAL ATE-AS-GROUPER?:FLAG <>>
|
||||
|
||||
<OBJECT GROUPER-NEST
|
||||
(IN OCEAN-FLOOR)
|
||||
|
@ -346,9 +349,9 @@ a few moments, its curiosity unsated." CR>)>>
|
|||
(FLAGS RLANDBIT)
|
||||
(GLOBAL TRAP-DOOR WATER)>
|
||||
|
||||
<GLOBAL WATER-FLAG 0> ;"how full is oubliette?"
|
||||
<GLOBAL FREEZE-FLAG 0> ;"how much ice is there?"
|
||||
<GLOBAL FREEZE-COUNT 0> ;"how near death from hypothermia?"
|
||||
<GLOBAL WATER-FLAG:NUMBER 0> ;"how full is oubliette?"
|
||||
<GLOBAL FREEZE-FLAG:NUMBER 0> ;"how much ice is there?"
|
||||
<GLOBAL FREEZE-COUNT:NUMBER 0> ;"how near death from hypothermia?"
|
||||
|
||||
<ROUTINE OUBLIETTE-DOWN-EXIT ()
|
||||
<COND (,SMALL-FLAG
|
||||
|
@ -517,7 +520,7 @@ hypothermia.">>
|
|||
(<VERB? RUB>
|
||||
<TELL "It's cold." CR>)>)>>
|
||||
|
||||
<GLOBAL WATER-HEIGHTS
|
||||
<GLOBAL WATER-HEIGHTS:TABLE
|
||||
<PLTABLE "one-quarter" "half" "three-quarters" "completely">>
|
||||
|
||||
<OBJECT INFLOW
|
||||
|
@ -735,12 +738,12 @@ and even as a ruin, its essence is still perfect." CR>)>>
|
|||
(THINGS <PSEUDO (MOSSY SLIME MOSS-PSEUDO)
|
||||
(<> MOSS MOSS-PSEUDO)>)>
|
||||
|
||||
<GLOBAL LONG-PIPE-DESC
|
||||
<GLOBAL LONG-PIPE-DESC:STRING
|
||||
"You are inside a small ceramic pipe nearly filled with fast-flowing cold
|
||||
water. The walls of the pipe are slippery and overgrown with mossy slime
|
||||
wherever an irregularity shields the growth from the force of the water. ">
|
||||
|
||||
<GLOBAL LONG-PIPE-DESC-2
|
||||
<GLOBAL LONG-PIPE-DESC-2:STRING
|
||||
"Going east (against the current) would be nearly impossible. Going west
|
||||
is almost unavoidable.">
|
||||
|
||||
|
@ -851,7 +854,7 @@ confused, you are dashed against the rocks at the bottom of the cistern.">)>>
|
|||
(EAST TO CELL-HALL-EAST)
|
||||
(ACTION PRISON-F)
|
||||
(FLAGS RLANDBIT)
|
||||
(GLOBAL TRAP-DOOR STAIRS EAST-WALL)
|
||||
(GLOBAL TRAP-DOOR EAST-WALL)
|
||||
(THINGS <PSEUDO (<> SLIME MOSS-PSEUDO)
|
||||
(<> MOSS MOSS-PSEUDO)
|
||||
(<> FUNGUS MOSS-PSEUDO)>)>
|
||||
|
@ -966,6 +969,7 @@ spell.")
|
|||
<NOT <FSET? .L ,OPENBIT>>>
|
||||
<TELL-OPEN-CLOSED .L>)
|
||||
(<AND <VERB? OPEN>
|
||||
<EQUAL? ,PRSO ,CABINET ,PAST-CABINET>
|
||||
<NOT <FSET? ,PRSO ,OPENBIT>>>
|
||||
<FSET ,PRSO ,OPENBIT>
|
||||
<TELL "Opened." CR>)>)
|
||||
|
@ -1025,6 +1029,7 @@ materializes before you!" CR>
|
|||
<TELL
|
||||
"The cabinet bursts open">
|
||||
<COND (<AND <NOT <IN? ,PLAYER ,CABINET>>
|
||||
<NOT <IN? ,PLAYER ,PAST-CABINET>>
|
||||
<FIRST? ,PRSO>>
|
||||
<TELL ", revealing ">
|
||||
<PRINT-CONTENTS ,PRSO>)>
|
||||
|
@ -1084,7 +1089,7 @@ as you watch. While not good as new, the book looks much better">)>
|
|||
<TELL "There's no spell in ">
|
||||
<THE-PRSO>)>)>>
|
||||
|
||||
<GLOBAL DEAD-BOOK-SCORE 15>
|
||||
<GLOBAL DEAD-BOOK-SCORE:NUMBER 15>
|
||||
|
||||
<ROUTINE CELL-PSEUDO ()
|
||||
<COND (<VERB? EXAMINE LOOK-INSIDE>
|
||||
|
@ -1124,7 +1129,7 @@ bright red and yellow coruscations. The only exit is down." CR>)
|
|||
<SETG ROC-COUNT 0>
|
||||
<QUEUE I-ROC -1>)>>
|
||||
|
||||
<GLOBAL SEEN-TOWER? <>>
|
||||
<GLOBAL SEEN-TOWER?:FLAG <>>
|
||||
|
||||
<ROUTINE ROC-GRABS-PLAYER ("OPTIONAL" (FALL? <>))
|
||||
<MOVE ,ROC ,HERE>
|
||||
|
@ -1338,7 +1343,7 @@ ravenous like all young birds, gobbles you down.">)>)>>
|
|||
(ELSE
|
||||
<TELL "a " 'CONNECTIVITY-CUBE>)>
|
||||
<TELL " there." CR>)
|
||||
(<OR <HOSTILE-VERB?> <VERB? OPEN>>
|
||||
(<OR <HOSTILE-VERB?> <VERB? OPEN RAISE>>
|
||||
<COND (<IMMOBILIZED?> <RTRUE>)
|
||||
(<IN? ,ROC ,HERE>
|
||||
<TELL
|
||||
|
|
268
c3.zil
268
c3.zil
|
@ -42,7 +42,7 @@ floor opens into thin air which goes a long way down before anything
|
|||
solid is reached." CR>
|
||||
<RFALSE>)>>
|
||||
|
||||
<GLOBAL FALL-WARNING? <>>
|
||||
<GLOBAL FALL-WARNING?:FLAG <>>
|
||||
|
||||
<ROUTINE AIR-ROOM-F (RARG)
|
||||
<COND (<EQUAL? .RARG ,M-LOOK>
|
||||
|
@ -233,7 +233,7 @@ of carpets">
|
|||
'RANDOM-CARPET " that's shabby and badly made">)>)>
|
||||
<TELL ,PERIOD>>
|
||||
|
||||
<GLOBAL MERCHANT-FLAG <>>
|
||||
<GLOBAL MERCHANT-FLAG:FLAG <>>
|
||||
|
||||
<ROUTINE MERCHANT-F ("OPTIONAL" (RARG <>) "AUX" PREV)
|
||||
<SETG MERCHANT-FLAG T>
|
||||
|
@ -445,7 +445,7 @@ thief!\"">
|
|||
<KICKED-OUT>
|
||||
<RTRUE>)>>
|
||||
|
||||
<GLOBAL ASKED-FOR <>>
|
||||
<GLOBAL ASKED-FOR:FLAG <>>
|
||||
|
||||
<ROUTINE KICKED-OUT ("AUX" (L <LOC ,PLAYER>))
|
||||
<COND (<FSET? .L ,VEHBIT>
|
||||
|
@ -462,10 +462,10 @@ thief!\"">
|
|||
"The merchant says, \"Time is money, and you've wasted too much of mine!\"">
|
||||
<KICKED-OUT>)>>
|
||||
|
||||
<GLOBAL YOUR-OFFER 0>
|
||||
<GLOBAL MERCHANT-WANTS 900>
|
||||
<GLOBAL MERCHANT-COUNT 0>
|
||||
<GLOBAL MERCHANT-SAYS
|
||||
<GLOBAL YOUR-OFFER:NUMBER 0>
|
||||
<GLOBAL MERCHANT-WANTS:NUMBER 900>
|
||||
<GLOBAL MERCHANT-COUNT:NUMBER 0>
|
||||
<GLOBAL MERCHANT-SAYS:TABLE
|
||||
<PLTABLE
|
||||
"\"These carpets are the epitome of the weaver's art, woven
|
||||
by skilled native craftsmen with pride in their work. The Flatheads themselves
|
||||
|
@ -615,15 +615,18 @@ to fall apart.">
|
|||
<EQUAL? ,PRSI ,SHEARS ,KNIFE>>
|
||||
<CARPET-CRUMBLES>)>)>>
|
||||
|
||||
<GLOBAL SITTING? <>>
|
||||
<GLOBAL SITTING?:FLAG <>>
|
||||
|
||||
<ROUTINE IMPOSSIBLE-MANEUVER ()
|
||||
<TELL
|
||||
"An impossible maneuver under the circumstances." CR>>
|
||||
|
||||
<ROUTINE CANT-GET-ON? ()
|
||||
<COND (<FSET? ,HERE ,RAIRBIT>
|
||||
<TELL
|
||||
"A good thought, but a little too late to save you, I'm afraid." CR>)
|
||||
(<FSET? ,HERE ,RWATERBIT>
|
||||
<TELL
|
||||
"Impossible under the circumstances." CR>)
|
||||
<IMPOSSIBLE-MANEUVER>)
|
||||
(<HELD? ,PRSO>
|
||||
<TELL
|
||||
,YOU-HAVE-TO " put it down first." CR>)>>
|
||||
|
@ -848,13 +851,15 @@ fringe of the carpet starts to ruffle expectantly." CR>)
|
|||
<TELL ,PERIOD>)>
|
||||
<RTRUE>>
|
||||
|
||||
<GLOBAL RIPPLES "The carpet ripples excitedly">
|
||||
<GLOBAL RIPPLES:STRING "The carpet ripples excitedly">
|
||||
|
||||
<ROUTINE GET-OFF-FIRST ()
|
||||
<TELL
|
||||
,YOU-HAVE-TO " get off the carpet first." CR>>
|
||||
|
||||
<ROUTINE CARPET-CRUMBLES ()
|
||||
<COND (<IN? ,PLAYER ,PRSO>
|
||||
<MOVE ,PLAYER ,HERE>)>
|
||||
<REMOVE ,PRSO>
|
||||
<TELL
|
||||
"As the first thread is cut, the " 'PRSO " crumbles to dust." CR>>
|
||||
|
@ -911,7 +916,10 @@ Abdul el-Flathead|
|
|||
(<AND <VERB? CASKLY>
|
||||
<NOT <IN? ,CARPET-LABEL ,MAGIC-CARPET>>>
|
||||
<TELL ,NOTHING-HAPPENS>)
|
||||
(<VERB? TAKE MUNG>
|
||||
(<OR <VERB? TAKE MUNG>
|
||||
<AND <VERB? CUT>
|
||||
,PRSI
|
||||
<FSET? ,PRSI ,WEAPONBIT>>>
|
||||
<FSET ,PRSO ,RMUNGBIT>
|
||||
<COND (<AND <IN? ,PLAYER ,MAGIC-CARPET>
|
||||
<FSET? ,HERE ,RAIRBIT>>
|
||||
|
@ -1014,9 +1022,9 @@ CR>)>)>>
|
|||
CTHE ,PRSO " falls, dwindling below you, never to be seen again." CR>)
|
||||
(ELSE <RTRUE>)>>
|
||||
|
||||
<GLOBAL NS-COUNT 0>
|
||||
<GLOBAL EW-COUNT 0>
|
||||
<GLOBAL UD-COUNT 0>
|
||||
<GLOBAL NS-COUNT:NUMBER 0>
|
||||
<GLOBAL EW-COUNT:NUMBER 0>
|
||||
<GLOBAL UD-COUNT:NUMBER 0>
|
||||
|
||||
<ROOM LOST-IN-CLOUDS
|
||||
(IN ROOMS)
|
||||
|
@ -1116,7 +1124,7 @@ is undisturbed by the heat." CR>)
|
|||
<TELL
|
||||
"A small patch of lava cools, but it is swept away." CR>>
|
||||
|
||||
<GLOBAL SMELL-LAVA "It smells like boiling brimstone.|">
|
||||
<GLOBAL SMELL-LAVA:STRING "It smells like boiling brimstone.|">
|
||||
|
||||
<ROUTINE LAVA-PSEUDO ()
|
||||
<COND (<VERB? EXAMINE TAKE SWIM THROUGH>
|
||||
|
@ -1166,7 +1174,7 @@ the flow." CR>)
|
|||
<SETG ROCK-ARRIVED? T>
|
||||
<QUEUE I-ROCK-ARRIVES 2>)>)>>
|
||||
|
||||
<GLOBAL ROCK-ARRIVED? <>>
|
||||
<GLOBAL ROCK-ARRIVED?:FLAG <>>
|
||||
|
||||
<OBJECT LAVA-ROCK
|
||||
(DESC "lava fragment")
|
||||
|
@ -1225,7 +1233,7 @@ CTHE ,PRSI " hisses and sizzles when you touch the lava with it." CR>)>)
|
|||
(MOLTEN LAVA LAVA-PSEUDO)
|
||||
(<> MOUNTAIN VOLCANO-PSEUDO)>)>
|
||||
|
||||
<GLOBAL GOT-MAGIC-CUBE? <>>
|
||||
<GLOBAL GOT-MAGIC-CUBE?:FLAG <>>
|
||||
|
||||
<ROUTINE OUTCROPPING-ROOM-F (RARG)
|
||||
<COND (<EQUAL? .RARG ,M-LOOK>
|
||||
|
@ -1288,7 +1296,7 @@ flat top about four feet across which is roughly square.">
|
|||
and cubical.">)>
|
||||
<CLEVER-CONTENTS ,OUTCROPPING-ROOM
|
||||
" On the top of the outcropping"
|
||||
,MAGIC-CUBE>
|
||||
,MAGIC-CUBE>
|
||||
<CRLF>)
|
||||
(<AND <VERB? PUT PUT-ON>
|
||||
<EQUAL? ,PRSI ,OUTCROPPING>>
|
||||
|
@ -1380,7 +1388,11 @@ light coming from ">
|
|||
<TELL " has been reduced
|
||||
to a thin, barely glowing stream of tiny blobs that drips, spurts
|
||||
and sputters uselessly to the ground. There it collects into a small pile
|
||||
which is slowly disappearing, perhaps by evaporation." CR>)>)>>
|
||||
which is slowly disappearing, perhaps by evaporation." CR>)>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?PILE>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?LIGHTS>)>>
|
||||
|
||||
<ROUTINE TELL-LIGHT-SOURCE ()
|
||||
<COND (<EQUAL? ,LIT ,WINNER>
|
||||
|
@ -1402,7 +1414,7 @@ which is slowly disappearing, perhaps by evaporation." CR>)>)>>
|
|||
(THINGS <PSEUDO (LIGHT POOL POOL-PSEUDO)>)>
|
||||
|
||||
<ROUTINE POOL-PSEUDO ()
|
||||
<COND (<VERB? THROUGH> <DO-WALK ,P?DOWN>)
|
||||
<COND (<VERB? THROUGH BOARD> <DO-WALK ,P?DOWN>)
|
||||
(<VERB? EXAMINE> <PERFORM ,V?LOOK> <RTRUE>)
|
||||
(<AND <VERB? THROW DROP>
|
||||
<EQUAL? ,PRSI ,PSEUDO-OBJECT>>
|
||||
|
@ -1441,6 +1453,7 @@ center of the room." CR>)>)
|
|||
<I-GRUES-NOTICE T>
|
||||
<RTRUE>)>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?PILE>
|
||||
<COND (<NOT <EQUAL? ,CHANGED? ,GRUE>>
|
||||
<COND (<NOT <EQUAL? ,OHERE ,DARK-CAVE>>
|
||||
<QUEUE I-GRUES-NOTICE 1>
|
||||
|
@ -1455,7 +1468,9 @@ a larger area." CR CR>)
|
|||
"You make your way carefully in the almost non-existent light down to an
|
||||
area filled with dim shapes. They move about purposefully, making horrible
|
||||
gurgling noises. The floor is rough and jumbled near the walls, so you
|
||||
haven't been noticed yet." CR CR>)>)>)>>
|
||||
haven't been noticed yet." CR CR>)>)>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?LIGHTS>)>>
|
||||
|
||||
<ROOM LIGHT-POOL
|
||||
(IN ROOMS)
|
||||
|
@ -1478,6 +1493,7 @@ which sticks up out of the light." CR>)
|
|||
<EQUAL? ,PRSO <> ,ROOMS ,PSEUDO-OBJECT>>
|
||||
<DO-WALK ,P?OUT>)>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?PILE>
|
||||
<QUEUE I-FRIED-GRUE 2>
|
||||
<TELL
|
||||
"You enter the pool, which is composed of the accumulated dribbles of light
|
||||
|
@ -1486,7 +1502,9 @@ light tickles">
|
|||
<COND (<EQUAL? ,CHANGED? ,GRUE>
|
||||
<TELL " at first, but then it begins to burn and your eyes are
|
||||
hurting severely">)>
|
||||
<TELL ,PERIOD CR>)>>
|
||||
<TELL ,PERIOD CR>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?LIGHTS>)>>
|
||||
|
||||
<ROOM PILLAR-ROOM
|
||||
(IN ROOMS)
|
||||
|
@ -1509,13 +1527,17 @@ fear." CR>)
|
|||
(ELSE
|
||||
<TELL
|
||||
"almost imperceptible light. You can barely see dim shapes capering in
|
||||
the dark." CR>)>)>>
|
||||
the dark." CR>)>)
|
||||
(<EQUAL? .RARG ,M-ENTER>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?PILE>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<PUT <GETPT ,LIGHT ,P?SYNONYM> 2 ,W?LIGHTS>)>>
|
||||
|
||||
<OBJECT PILLAR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "pillar")
|
||||
(SYNONYM PILLAR GLYPHS)
|
||||
(ADJECTIVE MARBLE SHORT ERODED)
|
||||
(ADJECTIVE MARBLE ERODED STUMP)
|
||||
(FLAGS NDESCBIT SURFACEBIT READBIT)
|
||||
(ACTION PILLAR-F)
|
||||
(TEXT "The only readable ones say \"D.L. 1985.\"")>
|
||||
|
@ -1523,20 +1545,24 @@ the dark." CR>)>)>>
|
|||
<ROUTINE PILLAR-F ("AUX" (IGNORE? <>))
|
||||
<COND (<VERB? EXAMINE LOOK-INSIDE>
|
||||
<TELL
|
||||
"This is a short, squat marble pillar covered with eroded glyphs. It
|
||||
"This is the stump of a marble pillar covered with eroded glyphs. It
|
||||
barely projects out of the pool of light. The grues seem awed by it.">
|
||||
<COND (<AND <IN? ,FIRE-CUBE ,PILLAR-ROOM>
|
||||
<NOT <EQUAL? ,HERE ,PILLAR-ROOM>>>
|
||||
<SET IGNORE? ,FIRE-CUBE>
|
||||
<TELL
|
||||
" There is something small and white on the pillar.">)>
|
||||
<CLEVER-CONTENTS ,PILLAR-ROOM
|
||||
" On top of the pillar"
|
||||
.IGNORE?>
|
||||
<COND (<EQUAL? ,HERE ,LIGHT-POOL>
|
||||
<TELL
|
||||
" You can't see the top of the pillar from here.">)
|
||||
(ELSE
|
||||
<TELL
|
||||
" There is something small and white on the pillar.">
|
||||
<CLEVER-CONTENTS ,PILLAR-ROOM
|
||||
" On top of the pillar"
|
||||
.IGNORE?>)>)>
|
||||
<CRLF>)
|
||||
(<THROW-ONTO ,PILLAR ,PILLAR-ROOM>
|
||||
<RTRUE>)
|
||||
(<VERB? CLIMB-ON CLIMB-FOO BOARD>
|
||||
(<VERB? CLIMB-ON CLIMB-UP CLIMB-FOO BOARD>
|
||||
<COND (<EQUAL? ,HERE ,GRUE-CAVE>
|
||||
<TELL
|
||||
"It's in the pool, out of reach from here." CR>)
|
||||
|
@ -1645,7 +1671,7 @@ glassware are carelessly stacked in corners.">)>
|
|||
north side of the room whose lock mechanism is visible. ">
|
||||
<DESCRIBE-VAULT-DOOR>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<MAKE-JUNK>)>>
|
||||
<COND (<VERB? BLORPLE> <MAKE-JUNK>)>)>>
|
||||
|
||||
<OBJECT VAULT-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
|
@ -1758,7 +1784,7 @@ five burly guards are coming." CR>)>)
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "iron door")
|
||||
(SYNONYM DOOR)
|
||||
(ADJECTIVE IRON NORTH N)
|
||||
(ADJECTIVE IRON NORTH)
|
||||
(FLAGS DOORBIT LOCKED)
|
||||
(ACTION IRON-DOOR-F)>
|
||||
|
||||
|
@ -1770,7 +1796,7 @@ five burly guards are coming." CR>)>)
|
|||
(<VERB? THROUGH>
|
||||
<DO-WALK ,P?NORTH>)>>
|
||||
|
||||
<GLOBAL SPELLS-USED 0>
|
||||
<GLOBAL SPELLS-USED:FLAG 0>
|
||||
|
||||
<ROUTINE SCALES-ROOM-F (RARG "AUX" P1 P2)
|
||||
<COND (<EQUAL? .RARG ,M-LOOK>
|
||||
|
@ -1795,7 +1821,7 @@ five burly guards are coming." CR>)>)
|
|||
<TELL "a closed">)>
|
||||
<TELL " iron door. To the south is the inner vault. Its
|
||||
steel door is ">
|
||||
<COND (<FSET? ,IRON-DOOR ,OPENBIT>
|
||||
<COND (<FSET? ,VAULT-DOOR ,OPENBIT>
|
||||
<TELL "open">)
|
||||
(ELSE
|
||||
<TELL "closed">)>
|
||||
|
@ -1831,9 +1857,10 @@ that they are.">)
|
|||
<CUBES-TO-PILES>
|
||||
<COND (,TIME-CUBE-SCORE?
|
||||
<SETG TREASURY-GUARDED? T>)>
|
||||
<MAKE-JUNK>)>>
|
||||
<COND (<VERB? BLORPLE>
|
||||
<MAKE-JUNK>)>)>>
|
||||
|
||||
<GLOBAL FAKE-CUBE-LIST
|
||||
<GLOBAL FAKE-CUBE-LIST:TABLE
|
||||
<LTABLE 0
|
||||
CUBE-1 CUBE-2 CUBE-3 CUBE-4 CUBE-5 CUBE-6
|
||||
CUBE-7 CUBE-8 CUBE-9 CUBE-10 CUBE-11 TIME-CUBE>>
|
||||
|
@ -1848,11 +1875,10 @@ that they are.">)
|
|||
<PUT .BUF 0 0>
|
||||
<SETG P-QNEXT .BUF>>
|
||||
|
||||
<ROUTINE CUBES-TO-PILES ("AUX" (CNT 1) L)
|
||||
<ROUTINE CUBES-TO-PILES ("AUX" L)
|
||||
<SET L ,FAKE-CUBE-LIST>
|
||||
<REPEAT ()
|
||||
<COND (<IGRTR? CNT 13> <RETURN>)>
|
||||
<MOVE <GET .L .CNT> ,PILE-1>>
|
||||
<DO (CNT 2 13)
|
||||
<MOVE <GET .L .CNT> ,PILE-1>>
|
||||
<COND (<EQUAL? ,TIME-CUBE ,BLORPLE-OBJECT>
|
||||
<REMOVE ,TIME-CUBE>
|
||||
<COND (<NOT ,TIME-CUBE-SCORE?>
|
||||
|
@ -1863,37 +1889,31 @@ that they are.">)
|
|||
<LOC ,BLORPLE-OBJECT>>
|
||||
<SETG BLORPLE-OBJECT <>>)>>
|
||||
|
||||
<GLOBAL TIME-CUBE-SCORE? <>>
|
||||
<GLOBAL TIME-CUBE-SCORE?:FLAG <>>
|
||||
|
||||
<ROUTINE JUGGLE-CUBES ("AUX" (CNT 1) BUF (P1 0) (P2 0) Q)
|
||||
<ROUTINE JUGGLE-CUBES ("AUX" BUF (P1 0) (P2 0) Q)
|
||||
<ROB ,PILE-1 ,SCALES-ROOM>
|
||||
<ROB ,PILE-2 ,SCALES-ROOM>
|
||||
<REPEAT ()
|
||||
<COND (<IGRTR? CNT 13> <RETURN>)>
|
||||
<SET Q <PICK-ONE ,FAKE-CUBE-LIST>>
|
||||
<FSET .Q ,NDESCBIT>
|
||||
<COND (<OR <EQUAL? .P2 6>
|
||||
<AND <L? .P1 6> <PROB 50>>>
|
||||
<SET P1 <+ .P1 1>>
|
||||
<MOVE .Q ,PILE-1>)
|
||||
(ELSE
|
||||
<MOVE .Q ,PILE-2>
|
||||
<SET P2 <+ .P2 1>>)>>
|
||||
<DO (CNT 2 13)
|
||||
<SET Q <PICK-ONE ,FAKE-CUBE-LIST>>
|
||||
<FSET .Q ,NDESCBIT>
|
||||
<COND (<OR <EQUAL? .P2 6>
|
||||
<AND <L? .P1 6> <PROB 50>>>
|
||||
<SET P1 <+ .P1 1>>
|
||||
<MOVE .Q ,PILE-1>)
|
||||
(ELSE
|
||||
<MOVE .Q ,PILE-2>
|
||||
<SET P2 <+ .P2 1>>)>>
|
||||
<SET BUF ,P-QBUF>
|
||||
<SET Q <FIRST? ,PILE-1>>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .Q> <RETURN>)>
|
||||
<PUTP .Q ,P?NAME .BUF>
|
||||
<PUT .BUF 0 <CUBE-ADJ .Q>>
|
||||
<SET BUF <REST .BUF 10>>
|
||||
<SET Q <NEXT? .Q>>>
|
||||
<SET Q <FIRST? ,PILE-2>>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .Q> <RETURN>)>
|
||||
<PUTP .Q ,P?NAME .BUF>
|
||||
<PUT .BUF 0 <CUBE-ADJ .Q>>
|
||||
<SET BUF <REST .BUF 10>>
|
||||
<SET Q <NEXT? .Q>>>>
|
||||
<MAP-CONTENTS (Q ,PILE-1)
|
||||
<PUTP .Q ,P?NAME .BUF>
|
||||
<PUT .BUF 0 <CUBE-ADJ .Q>>
|
||||
<SET BUF <REST .BUF 10>>>
|
||||
<MAP-CONTENTS (Q ,PILE-2)
|
||||
<PUTP .Q ,P?NAME .BUF>
|
||||
<PUT .BUF 0 <CUBE-ADJ .Q>>
|
||||
<SET BUF <REST .BUF 10>>>
|
||||
<RTRUE>>
|
||||
|
||||
<ROUTINE TELL-PILE (PILE OTHER)
|
||||
<TELL
|
||||
|
@ -1920,12 +1940,11 @@ that they are.">)
|
|||
<RFALSE>)>>
|
||||
|
||||
<ROUTINE MAKE-JUNK ()
|
||||
<COND (<VERB? BLORPLE>
|
||||
<FCLEAR ,VAULT-DOOR ,OPENBIT>
|
||||
<COND (<HELD? ,TREASURE>
|
||||
<MOVE ,JUNK <LOC ,TREASURE>>
|
||||
<FSET ,TREASURE ,NDESCBIT>
|
||||
<MOVE ,TREASURE ,INNER-VAULT>)>)>>
|
||||
<FCLEAR ,VAULT-DOOR ,OPENBIT>
|
||||
<COND (<HELD? ,TREASURE>
|
||||
<MOVE ,JUNK <LOC ,TREASURE>>
|
||||
<FSET ,TREASURE ,NDESCBIT>
|
||||
<MOVE ,TREASURE ,INNER-VAULT>)>>
|
||||
|
||||
<OBJECT JUNK
|
||||
(SYNONYM JUNK PASTE GILT LEAD)
|
||||
|
@ -1947,22 +1966,21 @@ lead coins." CR>)
|
|||
<TELL "The junk looks valuable again." CR>)
|
||||
(ELSE <RTRUE>)>)>>
|
||||
|
||||
<GLOBAL IS-GLOWING " is glowing with a faint blue glow.">
|
||||
<GLOBAL IS-GLOWING:STRING " is glowing with a faint blue glow.">
|
||||
|
||||
<ROUTINE MEASURE (OBJ "AUX" (F <FIRST? .OBJ>) (CNT 0))
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN .CNT>)
|
||||
(<GETP .F ,P?CUBE> ;"REAL CUBE"
|
||||
<SET CNT <+ .CNT ,REAL-VALUE>>)
|
||||
(<GETPT .F ,P?NAME> ;"FAKE CUBE"
|
||||
<SET CNT <+ .CNT ,FAKE-VALUE>>)
|
||||
(<OR <FSET? .F ,MAGICBIT>
|
||||
<FSET? .F ,SCROLLBIT>>
|
||||
<SET CNT <+ .CNT 1>>)>
|
||||
<SET F <NEXT? .F>>>>
|
||||
<ROUTINE MEASURE (OBJ "AUX" F (CNT 0))
|
||||
<MAP-CONTENTS (F .OBJ)
|
||||
(<RETURN .CNT>)
|
||||
<COND (<GETP .F ,P?CUBE> ;"REAL CUBE"
|
||||
<SET CNT <+ .CNT ,REAL-VALUE>>)
|
||||
(<GETPT .F ,P?NAME> ;"FAKE CUBE"
|
||||
<SET CNT <+ .CNT ,FAKE-VALUE>>)
|
||||
(<OR <FSET? .F ,MAGICBIT>
|
||||
<FSET? .F ,SCROLLBIT>>
|
||||
<SET CNT <+ .CNT 1>>)>>>
|
||||
|
||||
<GLOBAL REAL-VALUE 3>
|
||||
<GLOBAL FAKE-VALUE 2>
|
||||
<GLOBAL REAL-VALUE:NUMBER 3>
|
||||
<GLOBAL FAKE-VALUE:NUMBER 2>
|
||||
|
||||
<OBJECT ALARM-FAIRY
|
||||
(DESC "alarm fairy")
|
||||
|
@ -1993,8 +2011,8 @@ ceiling, out of reach, and jeers at you." CR>)
|
|||
"\"Missed me! Missed me! Now you have to kiss me!\" It plants a smooch
|
||||
on your cheek." CR>)>>
|
||||
|
||||
<GLOBAL GUARDS-FLAG 0>
|
||||
<GLOBAL TREASURY-GUARDED? <>>
|
||||
<GLOBAL GUARDS-FLAG:NUMBER 0>
|
||||
<GLOBAL TREASURY-GUARDED?:FLAG <>>
|
||||
|
||||
<OBJECT PILE-1
|
||||
(IN SCALES-ROOM)
|
||||
|
@ -2016,32 +2034,29 @@ on your cheek." CR>)>>
|
|||
(GENERIC GENERIC-RANDOM-F)
|
||||
(ACTION PILE-F)>
|
||||
|
||||
<GLOBAL WHITE-CUBE "featureless white cube">
|
||||
<GLOBAL WHITE-CUBE:STRING "featureless white cube">
|
||||
|
||||
<ROUTINE PILE-LOOP (OBJ "AUX" (F <FIRST? .OBJ>) (1ST? T) (CNT 0) N CUBE?)
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F>
|
||||
<COND (<G? .CNT 0>
|
||||
<COND (<NOT .1ST?>
|
||||
<TELL " and ">)>
|
||||
<TELL N .CNT " " ,WHITE-CUBE>
|
||||
<COND (<G? .CNT 1> <TELL "s">)>)>
|
||||
<RETURN>)>
|
||||
<SET N <NEXT? .F>>
|
||||
<SET CUBE? <GETPT .F ,P?NAME>>
|
||||
<COND (<OR <NOT .CUBE?> ;"not a cube?"
|
||||
<NOT <ZERO? <GETP .F ,P?NAME>>>>
|
||||
<COND (<NOT .1ST?>
|
||||
<COND (<AND <NOT .N> <ZERO? .CNT>>
|
||||
<TELL " and ">)
|
||||
(ELSE <TELL ", ">)>)
|
||||
(T <SET 1ST? <>>)>
|
||||
<COND (<NOT <GETPT .F ,P?NAME>>
|
||||
<TELL A .F>)
|
||||
(ELSE
|
||||
<TELL THE .F>)>)
|
||||
(ELSE <SET CNT <+ .CNT 1>>)>
|
||||
<SET F .N>>>
|
||||
<ROUTINE PILE-LOOP (OBJ "AUX" F N (1ST? T) (CNT 0) CUBE?)
|
||||
<MAP-CONTENTS (F N .OBJ)
|
||||
(END <COND (<G? .CNT 0>
|
||||
<COND (<NOT .1ST?>
|
||||
<TELL " and ">)>
|
||||
<TELL N .CNT " " ,WHITE-CUBE>
|
||||
<COND (<G? .CNT 1> <TELL "s">)>)>)
|
||||
<SET CUBE? <GETPT .F ,P?NAME>>
|
||||
<COND (<OR <NOT .CUBE?> ;"not a cube?"
|
||||
<NOT <ZERO? <GETP .F ,P?NAME>>>>
|
||||
<COND (<NOT .1ST?>
|
||||
<COND (<AND <NOT .N> <ZERO? .CNT>>
|
||||
<TELL " and ">)
|
||||
(ELSE <TELL ", ">)>)
|
||||
(T <SET 1ST? <>>)>
|
||||
<COND (<NOT <GETPT .F ,P?NAME>>
|
||||
<TELL A .F>)
|
||||
(ELSE
|
||||
<TELL THE .F>)>)
|
||||
(ELSE <SET CNT <+ .CNT 1>>)>>
|
||||
>
|
||||
|
||||
<ROUTINE PILE-F ()
|
||||
<COND (<VERB? EXAMINE>
|
||||
|
@ -2066,6 +2081,11 @@ etc." CR>)
|
|||
<COND (<AND <NOT <HELD? ,PRSO>>
|
||||
<EQUAL? <ITAKE> ,M-FATAL <>>>
|
||||
<RTRUE>)
|
||||
(<EQUAL? ,PRSO
|
||||
,MAGIC-CARPET ,RANDOM-CARPET ,ZIPPER>
|
||||
<MOVE ,PRSO ,HERE>
|
||||
<TELL
|
||||
"You put it on the floor near " THE ,PRSI ,PERIOD>)
|
||||
(ELSE
|
||||
<MOVE ,PRSO ,PRSI>
|
||||
<FSET ,PRSO ,TOUCHBIT>
|
||||
|
@ -2273,12 +2293,10 @@ on it." CR>)
|
|||
<TELL "s">)>
|
||||
<TELL "." CR>>
|
||||
|
||||
<ROUTINE CUBE-COUNT (OBJ "AUX" (CNT 0) (CONT <FIRST? .OBJ>))
|
||||
<REPEAT ()
|
||||
<COND (<NOT .CONT> <RETURN>)
|
||||
(<NOT <ZERO? <GETPT .CONT ,P?NAME>>>
|
||||
<SET CNT <+ .CNT 1>>)
|
||||
(<FIRST? .CONT>
|
||||
<SET CNT <+ .CNT <CUBE-COUNT .CONT>>>)>
|
||||
<SET CONT <NEXT? .CONT>>>
|
||||
.CNT>
|
||||
<ROUTINE CUBE-COUNT (OBJ "AUX" (CNT 0))
|
||||
<MAP-CONTENTS (CONT .OBJ)
|
||||
(END <RETURN .CNT>)
|
||||
<COND (<NOT <ZERO? <GETPT .CONT ,P?NAME>>>
|
||||
<SET CNT <+ .CNT 1>>)
|
||||
(<FIRST? .CONT>
|
||||
<SET CNT <+ .CNT <CUBE-COUNT .CONT>>>)>>>
|
||||
|
|
147
c4.zil
147
c4.zil
|
@ -69,11 +69,11 @@ like a deflated balloon on the ground.">
|
|||
ones can do here.\"">)>
|
||||
<CRLF>>
|
||||
|
||||
<GLOBAL ROCK-MOVED? <>>
|
||||
<GLOBAL ROCK-MOVED?:FLAG <>>
|
||||
|
||||
<GLOBAL YOU-LOC 5>
|
||||
<GLOBAL ROCK-LOC 5>
|
||||
<GLOBAL OTHER-ROCK-LOC 7>
|
||||
<GLOBAL YOU-LOC:NUMBER 5>
|
||||
<GLOBAL ROCK-LOC:NUMBER 5>
|
||||
<GLOBAL OTHER-ROCK-LOC:NUMBER 7>
|
||||
|
||||
<ROUTINE DESCRIBE-PLAIN ("OPTIONAL" (ROCKS? T))
|
||||
<COND (<HELD? ,PLAYER ,ROCK>
|
||||
|
@ -105,7 +105,7 @@ ones can do here.\"">)>
|
|||
<ROCK-DIRECTION ,OTHER-ROCK-LOC>)>
|
||||
<TELL ".">)>>
|
||||
|
||||
<GLOBAL PLAIN-WALLS
|
||||
<GLOBAL PLAIN-WALLS:TABLE
|
||||
<TABLE #BYTE 0
|
||||
#BYTE %<+ 2 8 128> ;"1 -- E, S, SW"
|
||||
#BYTE %<+ 2 4 8> ;"2 -- E, W, S"
|
||||
|
@ -208,9 +208,9 @@ carefully before answering. ">
|
|||
one, though not as odd as the last. It was
|
||||
as unprepossessing as you. Of course, I am the most handsome.\"" CR>)>>
|
||||
|
||||
<GLOBAL ROCK-TALKED? <>>
|
||||
<GLOBAL ROCK-BRIBED? <>>
|
||||
<GLOBAL TRIED-BOARDING? <>>
|
||||
<GLOBAL ROCK-TALKED?:FLAG <>>
|
||||
<GLOBAL ROCK-BRIBED?:FLAG <>>
|
||||
<GLOBAL TRIED-BOARDING?:FLAG <>>
|
||||
|
||||
<ROUTINE ROCK-F ("OPTIONAL" (RARG <>))
|
||||
<COND (<EQUAL? ,WINNER ,ROCK>
|
||||
|
@ -329,7 +329,7 @@ rock says, \"Hey! What is this? What about my privacy?\"">
|
|||
nice. Then you could ride on top and admire me from that angle. It's a
|
||||
rare privilege.\"" CR>>
|
||||
|
||||
<GLOBAL IT-TICKLES "The rock bobs in place. \"That tickles!\"|">
|
||||
<GLOBAL IT-TICKLES:STRING "The rock bobs in place. \"That tickles!\"|">
|
||||
|
||||
<ROUTINE ROCK-WALK (DIR "AUX" ROW COL)
|
||||
<QUEUE I-OTHER-ROCK -1>
|
||||
|
@ -437,10 +437,10 @@ settle yourself carefully on top. ">
|
|||
(<NOT <EQUAL? ,OTHER-ROCK-LOC ,YOU-LOC>>
|
||||
<TELL ,TOO-FAR>)>)>>
|
||||
|
||||
<GLOBAL ROCK-IRRITATION
|
||||
<GLOBAL ROCK-IRRITATION:STRING
|
||||
"The rock grumbles in irritation. \"Go away,\" it says.|">
|
||||
|
||||
<GLOBAL TOO-FAR "It's too far away.|">
|
||||
<GLOBAL TOO-FAR:STRING "It's too far away.|">
|
||||
|
||||
"LIGHT"
|
||||
|
||||
|
@ -578,7 +578,7 @@ the bright blue background." CR>)
|
|||
"A rabbit hops across the meadow, twitches its nose at you, and
|
||||
then scampers away." CR>)>)>>
|
||||
|
||||
<GLOBAL RABBIT-FLAG <>>
|
||||
<GLOBAL RABBIT-FLAG:FLAG <>>
|
||||
|
||||
<OBJECT SHEARS
|
||||
(IN MEADOW-ROOM)
|
||||
|
@ -593,7 +593,7 @@ then scampers away." CR>)>)>>
|
|||
<TELL
|
||||
"This is a very nice pair of pruning shears, such as a gardener
|
||||
would own." CR>)
|
||||
(<AND <VERB? CUT>
|
||||
;(<AND <VERB? CUT>
|
||||
<NOT <HELD? ,SHEARS>>>
|
||||
<NOT-HOLDING ,SHEARS>)>>
|
||||
|
||||
|
@ -629,7 +629,7 @@ would own." CR>)
|
|||
in the meadow. It's like a well-kept garden.">)>
|
||||
<CRLF>>
|
||||
|
||||
<GLOBAL WEED-PLANTED? 2>
|
||||
<GLOBAL WEED-PLANTED?:NUMBER 2>
|
||||
|
||||
<ROUTINE WEED-F ()
|
||||
<COND (<VERB? EXAMINE>
|
||||
|
@ -667,7 +667,12 @@ earth with it." CR>)>
|
|||
<TELL
|
||||
"You now have a weed cutting." CR>)>)
|
||||
(<AND <VERB? PLANT>
|
||||
<EQUAL? ,PRSI <> ,GROUND>>
|
||||
<OR <EQUAL? ,PRSI ,GROUND ,GLOBAL-CAVE>
|
||||
<AND <EQUAL? ,PRSI ,PSEUDO-OBJECT>
|
||||
<EQUAL? ,P-PNAM ,W?DIRT>>
|
||||
<AND <NOT ,PRSI>
|
||||
<OR <FSET? ,HERE ,OUTSIDE>
|
||||
<EQUAL? ,HERE ,OGRE-CAVE ,OGRE-BEDROOM>>>>>
|
||||
<COND (<AND <FSET? ,HERE ,RLANDBIT>
|
||||
<NOT <GETP ,HERE ,P?CUBE>>
|
||||
<IN? ,WINNER ,HERE>>
|
||||
|
@ -828,7 +833,7 @@ fluid." CR>)
|
|||
(FLAGS RLANDBIT)
|
||||
(THINGS <PSEUDO (BLACK MARBLE MARBLE-PSEUDO)>)>
|
||||
|
||||
<GLOBAL MAZE-EXIT-FLAG <>>
|
||||
<GLOBAL MAZE-EXIT-FLAG:FLAG <>>
|
||||
|
||||
<ROUTINE MAZE-ANTEROOM-F (RARG)
|
||||
<COND (<EQUAL? .RARG ,M-LOOK>
|
||||
|
@ -845,10 +850,11 @@ rose.">)>
|
|||
(<AND <EQUAL? .RARG ,M-LEAVE>
|
||||
<NOT <VERB? BLORPLE>>>
|
||||
<SETG MAZE-EXIT-FLAG <>>
|
||||
<PUT ,MAZE-ANTEROOM ,P?EXITS 0>
|
||||
<PUTP ,MAZE-ANTEROOM ,P?EXITS 0>
|
||||
<OCT-HOLE-DISAPPEARS>)>>
|
||||
|
||||
<ROUTINE OCT-HOLE-DISAPPEARS ()
|
||||
<REMOVE ,OCTAGONAL-HOLE>
|
||||
<TELL
|
||||
"You slide through the " ,OCT-HOLE ", which constricts and disappears as
|
||||
soon as you are through it." CR CR>>
|
||||
|
@ -873,7 +879,7 @@ every particular." CR>)
|
|||
delicate filigree one might expect on a real but ornamental counterpart is
|
||||
here. As though that challenge was not enough, the artist set the carving deep
|
||||
in the stone of the wall." CR>)>)
|
||||
(<VERB? OPEN>
|
||||
(<VERB? OPEN REZROV>
|
||||
<YOU-CANT-X-PRSO "open">)
|
||||
(<VERB? CLOSE>
|
||||
<YOU-CANT-X-PRSO "close">)
|
||||
|
@ -916,17 +922,13 @@ through. You notice that the arm pointing north is now dull pot-metal.">
|
|||
<TELL "There is a " 'COMPASS-ROSE " here">)>
|
||||
<TELL ,PERIOD>>
|
||||
|
||||
<GLOBAL COMPASS-ROSE-STATE 0>
|
||||
<GLOBAL COMPASS-ROSE-ARMS 0>
|
||||
<GLOBAL COMPASS-ROSE-STATE:NUMBER 0>
|
||||
<GLOBAL COMPASS-ROSE-ARMS:NUMBER 0>
|
||||
|
||||
<ROUTINE ARM-DIRECTION (N "AUX" (CNT 1) (L <GET ,DIR-TABLE 0>))
|
||||
<REPEAT ()
|
||||
<COND (<G? .CNT .L>
|
||||
<RETURN>)
|
||||
(<EQUAL? <GET ,DIR-TABLE .CNT> .N>
|
||||
<RETURN <GET ,DIR-TABLE <+ .CNT 2>>>)
|
||||
(ELSE
|
||||
<SET CNT <+ .CNT 3>>)>>>
|
||||
<ROUTINE ARM-DIRECTION (N "AUX" (L <GET ,DIR-TABLE 0>))
|
||||
<DO (CNT 1 .L 3)
|
||||
<COND (<EQUAL? <GET ,DIR-TABLE .CNT> .N>
|
||||
<RETURN <GET ,DIR-TABLE <+ .CNT 2>>>)>>>
|
||||
|
||||
<ROUTINE COMPASS-ROSE-F ("AUX" (N 1) (1ST? T))
|
||||
<COND (<VERB? EXAMINE>
|
||||
|
@ -986,7 +988,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "north rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE NORTH N SILVER LEAD)
|
||||
(ADJECTIVE NORTH SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-NORTH)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -996,7 +998,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "east rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE EAST E SILVER LEAD)
|
||||
(ADJECTIVE EAST SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-EAST)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1006,7 +1008,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "west rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE WEST W SILVER LEAD GOLD)
|
||||
(ADJECTIVE WEST SILVER LEAD GOLD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-WEST)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1016,7 +1018,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "south rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE SOUTH S SILVER LEAD)
|
||||
(ADJECTIVE SOUTH SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-SOUTH)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1026,7 +1028,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "northeast rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE NORTHEAST NE SILVER LEAD)
|
||||
(ADJECTIVE NE SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-NE)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1036,7 +1038,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "northwest rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE NORTHWEST NW SILVER LEAD)
|
||||
(ADJECTIVE NW SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-NW)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1046,7 +1048,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "southeast rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE SOUTHEAST SE SILVER LEAD)
|
||||
(ADJECTIVE SE SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-SE)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1056,7 +1058,7 @@ the north wall of the room.">)>
|
|||
(IN LOCAL-GLOBALS)
|
||||
(DESC "southwest rune")
|
||||
(SYNONYM RUNE RUNES)
|
||||
(ADJECTIVE SOUTHWEST SW SILVER LEAD)
|
||||
(ADJECTIVE SW SILVER LEAD)
|
||||
(FLAGS NDESCBIT READBIT)
|
||||
(EXITS %,C-SW)
|
||||
(GENERIC GENERIC-RANDOM-F)
|
||||
|
@ -1096,19 +1098,35 @@ of inlaid ">
|
|||
(SYNONYM HOLE DOOR)
|
||||
(ADJECTIVE OCTAGONAL)
|
||||
(DESC "octagonal hole")
|
||||
(FLAGS DOORBIT NDESCBIT AN CONTBIT OPENBIT)
|
||||
(FLAGS DOORBIT NDESCBIT AN CONTBIT OPENBIT VEHBIT)
|
||||
(GENERIC GENERIC-HOLE-F)
|
||||
(ACTION OCTAGONAL-HOLE-F)>
|
||||
|
||||
<ROUTINE OCTAGONAL-HOLE-F ("AUX" E)
|
||||
<ROUTINE OCTAGONAL-HOLE-F ("AUX" E PT PTS)
|
||||
<COND (<AND <EQUAL? ,HERE ,MAZE-2>
|
||||
<NOT <IN? ,MAZE-2-DOOR ,HERE>>>
|
||||
<IN? ,MAZE-2-DOOR ,HERE>>
|
||||
<MAZE-2-DOOR-F>)
|
||||
(<VERB? REZROV>
|
||||
<TELL ,IT-IS-ALREADY "open." CR>)
|
||||
(<VERB? LOOK-INSIDE>
|
||||
<TELL ,NOW-BLACK CR>)
|
||||
(<VERB? EXAMINE>
|
||||
<TELL "It looks like an " ,OCT-HOLE ,PERIOD>)
|
||||
(<VERB? THROUGH>
|
||||
(<AND <VERB? PUT THROW DROP>
|
||||
<HELD? ,PRSO>
|
||||
<EQUAL? ,PRSI ,OCTAGONAL-HOLE>>
|
||||
<SET E <GETP ,HERE ,P?EXITS>>
|
||||
<SET E <DIR-BASE .E ,DIR-BIT ,DIR-DIR>>
|
||||
<SET PT <GETPT ,HERE .E>>
|
||||
<SET PTS <PTSIZE .PT>>
|
||||
<COND (<OR <EQUAL? .PTS ,UEXIT>
|
||||
<AND <EQUAL? .PTS ,CEXIT>
|
||||
<VALUE <GETB .PT ,CEXITFLAG>>>>
|
||||
<MOVE ,PRSO <GETB .PT ,REXIT>>
|
||||
<TELL CTHE ,PRSO " disappears into the hole." CR>)
|
||||
(ELSE
|
||||
<TELL "It won't go." CR>)>)
|
||||
(<VERB? THROUGH BOARD>
|
||||
<SET E <GETP ,HERE ,P?EXITS>>
|
||||
<COND (<L? .E 256>
|
||||
<DO-WALK <DIR-BASE .E ,DIR-BIT ,DIR-DIR>>)>)>>
|
||||
|
@ -1121,7 +1139,7 @@ of inlaid ">
|
|||
(FLAGS AN NDESCBIT TAKEBIT TRYTAKEBIT)
|
||||
(ACTION MAZE-2-DOOR-F)>
|
||||
|
||||
<GLOBAL OCT-HOLE "octagonal hole">
|
||||
<GLOBAL OCT-HOLE:STRING "octagonal hole">
|
||||
|
||||
<ROUTINE DESCRIBE-PLUG ()
|
||||
<TELL
|
||||
|
@ -1389,20 +1407,17 @@ appears in the wall below the rune.">
|
|||
(ELSE
|
||||
<TELL ,NOTHING-HAPPENS>)>)>)>>
|
||||
|
||||
<ROUTINE TELL-WALLS ("OPTIONAL" (N <>) "AUX" (CNT 1)
|
||||
(L <GET ,DIR-TABLE 0>) (1ST? T) (OLD <>))
|
||||
<ROUTINE TELL-WALLS ("OPTIONAL" (N <>)
|
||||
"AUX" (L <GET ,DIR-TABLE 0>) (1ST? T) (OLD <>))
|
||||
<COND (<NOT .N> <SET N <GETP ,HERE ,P?WALLS>>)>
|
||||
<REPEAT ()
|
||||
<COND (<G? .CNT .L>
|
||||
<TELL " and " .OLD>
|
||||
<RETURN>)
|
||||
(<NOT <ZERO? <BAND <GET ,DIR-TABLE .CNT> .N>>>
|
||||
<COND (.OLD
|
||||
<COND (.1ST? <SET 1ST? <>>)
|
||||
(ELSE <TELL ", ">)>
|
||||
<TELL .OLD>)>
|
||||
<SET OLD <GET ,DIR-TABLE <+ .CNT 2>>>)>
|
||||
<SET CNT <+ .CNT 3>>>>
|
||||
<DO (CNT 1 .L 3)
|
||||
(<TELL " and " .OLD>)
|
||||
<COND (<NOT <ZERO? <BAND <GET ,DIR-TABLE .CNT> .N>>>
|
||||
<COND (.OLD
|
||||
<COND (.1ST? <SET 1ST? <>>)
|
||||
(ELSE <TELL ", ">)>
|
||||
<TELL .OLD>)>
|
||||
<SET OLD <GET ,DIR-TABLE <+ .CNT 2>>>)>>>
|
||||
|
||||
"MAGIC"
|
||||
|
||||
|
@ -1468,11 +1483,11 @@ black emptiness to the east." CR>)
|
|||
<COND (<EQUAL? <COUNT-CUBES> 13> <RTRUE>)
|
||||
(ELSE <RFALSE>)>>
|
||||
|
||||
<ROUTINE COUNT-CUBES ("AUX" (CNT 0) (N 0))
|
||||
<REPEAT ()
|
||||
<COND (<GOT? <GET ,CUBE-LIST <* .CNT 2>>>
|
||||
<SET N <+ .N 1>>)>
|
||||
<COND (<IGRTR? CNT 12> <RETURN .N>)>>>
|
||||
<ROUTINE COUNT-CUBES ("AUX" (N 0))
|
||||
<DO (CNT 0 12)
|
||||
<COND (<GOT? <GET ,CUBE-LIST <* .CNT 2>>>
|
||||
<SET N <+ .N 1>>)>>
|
||||
.N>
|
||||
|
||||
<ROUTINE MAGIC-DOOR-EXIT ()
|
||||
<COND (<HAS-ALL-CUBES?>
|
||||
|
@ -1571,6 +1586,7 @@ You drown as well.">)
|
|||
<QUEUE I-WATER-RISING 3>)>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<REMOVE ,PLAYER>
|
||||
<DEQUEUE I-WATER-RISING>
|
||||
<COND (<AND <NOT ,DEAD?>
|
||||
<ONLY? ,ZIPPER ,HERE>
|
||||
<ONLY? ,GIRGOL-SCROLL ,ZIPPER>
|
||||
|
@ -1589,9 +1605,9 @@ rocks and boulders">
|
|||
<JIGS-UP
|
||||
", again and again. Finally, you succumb.">)>)>>
|
||||
|
||||
<GLOBAL RUINS-SCORE 25>
|
||||
<GLOBAL RUINS-SCORE:NUMBER 25>
|
||||
|
||||
<GLOBAL TIME-SICK
|
||||
<GLOBAL TIME-SICK:STRING
|
||||
"As you leave, your consciousness is wrenched as though your memories
|
||||
were being torn apart. ">
|
||||
|
||||
|
@ -1633,7 +1649,7 @@ were being torn apart. ">
|
|||
<TELL "closed.">)>
|
||||
<CRLF>)>>
|
||||
|
||||
<GLOBAL WATER-TABLE
|
||||
<GLOBAL WATER-TABLE:TABLE
|
||||
<PTABLE
|
||||
"You are in a small area not yet flooded."
|
||||
"The water has left only a tiny area dry."
|
||||
|
@ -1664,6 +1680,7 @@ imprisonment. A massive oak cabinet dominates one wall. ">
|
|||
<TELL-OPEN-CLOSED ,PAST-CABINET>
|
||||
<TELL-OPEN-CLOSED ,CELL-DOOR>)
|
||||
(<EQUAL? .RARG ,M-LEAVE>
|
||||
<DEQUEUE I-PRISON-GUARDS>
|
||||
<REMOVE ,PLAYER>
|
||||
<COND (<AND <NOT ,DEAD?>
|
||||
<NOT <FSET? ,PAST-CABINET ,RMUNGBIT>>
|
||||
|
@ -1725,11 +1742,11 @@ the shouts of guards and the rattle of weapons." CR>)
|
|||
<TELL ,PERIOD>
|
||||
<RFALSE>)>>
|
||||
|
||||
<GLOBAL PAST-CELL-GUARDS-KILL-YOU
|
||||
<GLOBAL PAST-CELL-GUARDS-KILL-YOU:STRING
|
||||
"You exit into a tangle of guards, who promptly dispatch you for escaping
|
||||
and resisting arrest.">
|
||||
|
||||
<GLOBAL DOOR-LOCKED "The door is closed and locked">
|
||||
<GLOBAL DOOR-LOCKED:STRING "The door is closed and locked">
|
||||
|
||||
"CONNECTIVITY CUBE"
|
||||
|
||||
|
@ -1790,7 +1807,7 @@ a similar gap." CR>)
|
|||
(SYNONYM QWORD)
|
||||
(FLAGS NDESCBIT)>
|
||||
|
||||
<GLOBAL CUBE-LIST
|
||||
<GLOBAL CUBE-LIST:TABLE
|
||||
<PTABLE EARTH-CUBE <VOC "AQ" ADJECTIVE>
|
||||
WATER-CUBE <VOC "BQ" ADJECTIVE>
|
||||
AIR-CUBE <VOC "CQ" ADJECTIVE>
|
||||
|
|
|
@ -0,0 +1,89 @@
|
|||
SPELLBREAKER "ENCHANTER CARDS"
|
||||
------------------------------------------------------------
|
||||
Barsap
|
||||
Royal Magician
|
||||
(Turned into a newt, 972)
|
||||
|
||||
"The hardest trick is making it look easy."
|
||||
|
||||
First performed before royalty, 850
|
||||
Appointed Royal Magician, 875
|
||||
Greatest skills: juggling, creative accounting
|
||||
Guild membership revoked for dues evasion, 960
|
||||
Last book read: "Magic with Mirrors"
|
||||
Double Fanucci handicap: 19
|
||||
------------------------------------------------------------
|
||||
Barbel of Gurth
|
||||
Arbiter, Diplomat
|
||||
|
||||
"When I was a boy, I was told that any Enchanter could
|
||||
become a Guildmaster. Now I'm beginning to believe it."
|
||||
|
||||
Son of Delbor, advisor to Lord Dimwit Flathead
|
||||
Inventor of the golmac spell
|
||||
Guildmaster of Gurth City chapter since 933
|
||||
President of GAC (Gurth Arbiters Congress)
|
||||
Greatest skills: arbitrating, speaking in toungues
|
||||
Responsible for restoration of high enchantmant dues
|
||||
Double Fanucci handicap: 42
|
||||
------------------------------------------------------------
|
||||
Gustar Woomax
|
||||
Chronicler of Magic
|
||||
|
||||
"If history can teach us the difference between good and bad
|
||||
magic, it can teach us anything."
|
||||
|
||||
Author of "A Brief History of Magic," "Bizboz at Galepath,"
|
||||
"Mage versus Archmage," "Revenge of the Dornbeasts,"
|
||||
"The Granola Riots" (co-authored by Wilbar Memboob),
|
||||
and "The Coconut of Quendor: Reality or Illusion?"
|
||||
Born in Greater Borphee, 880
|
||||
Attended GUE Tech, 907-911
|
||||
Favorite author: Bizboz
|
||||
Greatest skill: none known
|
||||
Double Fanucci handicap: 620
|
||||
------------------------------------------------------------
|
||||
Dimithio of Borphee
|
||||
"The Cheerful Sorcerer"
|
||||
(Founder of the Borphee Enchanter's Guild)
|
||||
|
||||
"Magic doesn't have to be great to be useful, nor does magic
|
||||
have to be useful to be great."
|
||||
|
||||
Studied under Yooman, the Musican Mage
|
||||
Animal lover (adapted nitfol spell for egg-laying mammals)
|
||||
Tremendously well read and good natured
|
||||
Greatest skill: fireworks displays
|
||||
Despised by Holnac the Cynic
|
||||
Double Fanucci handicap: 127
|
||||
------------------------------------------------------------
|
||||
Forburn the Wily
|
||||
Double Fanucci Champion
|
||||
|
||||
"The Encyclopedia Frobozzica calls Double Fanucci a 'game
|
||||
played with cards.' I don't play games; I don't play
|
||||
anything."
|
||||
|
||||
Never formally studied magic
|
||||
First won a spell book from an unsuspecting G.U.E. Tech
|
||||
student in a 902 Fanucci match
|
||||
Raised the level of play in Double Fanucci championships
|
||||
Brought new meaning to the word "chiseler"
|
||||
Greatest skill: drawing Trebled Fromps
|
||||
Double Fanucci handicap: 0.01
|
||||
------------------------------------------------------------
|
||||
Berknip
|
||||
Oldest Active Necromancer
|
||||
(662-750, 841-present)
|
||||
|
||||
"No one weeps for a necromancer."
|
||||
|
||||
Survived by 7 children and 39 grandchildren in 750 G.U.E.
|
||||
(he has since out-relived them)
|
||||
Greatest skill: assisting historical biographers
|
||||
Hobby: antiques (making and collecting)
|
||||
Inexplicably afraid of swords and powdered milk
|
||||
Vegetarian (adapted nitfol spell for raw oysters and crispy
|
||||
whole fish)
|
||||
Double Fanucci handicap: unmeasurable
|
||||
------------------------------------------------------------
|
57
globals.zil
57
globals.zil
|
@ -5,6 +5,17 @@
|
|||
<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>
|
||||
|
||||
<SYNONYM NORTH N>
|
||||
<SYNONYM SOUTH S>
|
||||
<SYNONYM EAST E>
|
||||
<SYNONYM WEST W>
|
||||
<SYNONYM DOWN D>
|
||||
<SYNONYM UP U>
|
||||
<SYNONYM NE NORTHEAST>
|
||||
<SYNONYM NW NORTHWEST>
|
||||
<SYNONYM SE SOUTHEAST>
|
||||
<SYNONYM SW SOUTHWEST>
|
||||
|
||||
<GLOBAL HERE <>>
|
||||
|
||||
<GLOBAL LIT <>>
|
||||
|
@ -35,13 +46,10 @@
|
|||
<CONSTANT DIR-DIR 2>
|
||||
<CONSTANT DIR-NAME 3>
|
||||
|
||||
<ROUTINE DIR-BASE (DIR I O "AUX" (CNT 0) (L <GET ,DIR-TABLE 0>))
|
||||
<REPEAT ()
|
||||
<COND (<G? .CNT .L> <RFALSE>)
|
||||
(<EQUAL? <GET ,DIR-TABLE <+ .CNT .I>> .DIR>
|
||||
<RETURN <GET ,DIR-TABLE <+ .CNT .O>>>)
|
||||
(ELSE
|
||||
<SET CNT <+ .CNT 3>>)>>>
|
||||
<ROUTINE DIR-BASE (DIR I O "AUX" (L <GET ,DIR-TABLE 0>))
|
||||
<DO (CNT 0 .L 3)
|
||||
<COND (<EQUAL? <GET ,DIR-TABLE <+ .CNT .I>> .DIR>
|
||||
<RETURN <GET ,DIR-TABLE <+ .CNT .O>>>)>>>
|
||||
|
||||
"global objects and associated routines"
|
||||
|
||||
|
@ -188,7 +196,7 @@ Always return RFALSE (not handled) if you have resolved the problem."
|
|||
<OBJECT LIGHT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "light")
|
||||
(SYNONYM LIGHT LIGHTS PILE)
|
||||
(SYNONYM LIGHT LIGHTS PHOTONS)
|
||||
(ADJECTIVE PILE)
|
||||
(ACTION LIGHT-F)>
|
||||
|
||||
|
@ -423,7 +431,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "north wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE NORTH N)
|
||||
(ADJECTIVE NORTH)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-NORTH)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -432,7 +440,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "east wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE EAST E BLANK)
|
||||
(ADJECTIVE EAST BLANK)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-EAST)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -441,7 +449,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "west wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE WEST W)
|
||||
(ADJECTIVE WEST)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-WEST)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -450,7 +458,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "south wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE SOUTH S)
|
||||
(ADJECTIVE SOUTH)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-SOUTH)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -459,7 +467,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "northeast wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE NORTHEAST NE)
|
||||
(ADJECTIVE NE)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-NE)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -468,7 +476,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "northwest wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE NORTHWEST NW)
|
||||
(ADJECTIVE NW)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-NW)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -477,7 +485,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "southeast wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE SOUTHEAST SE)
|
||||
(ADJECTIVE SE)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-SE)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -486,7 +494,7 @@ the desired direction." CR>)
|
|||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "southwest wall")
|
||||
(SYNONYM WALL)
|
||||
(ADJECTIVE SOUTHWEST SW)
|
||||
(ADJECTIVE SW)
|
||||
(ACTION WALL-F)
|
||||
(EXITS %,C-SW)
|
||||
(GENERIC GENERIC-RANDOM-F)>
|
||||
|
@ -530,8 +538,12 @@ the desired direction." CR>)
|
|||
(ELSE
|
||||
<TELL
|
||||
"It's still there." CR>)>)
|
||||
(<AND <VERB? PUT> <EQUAL? ,GROUND ,PRSI>>
|
||||
<PERFORM ,V?PLANT ,PRSO>
|
||||
(<AND <VERB? PUT>
|
||||
<EQUAL? ,GROUND ,PRSI>>
|
||||
<COND (<EQUAL? ,PRSO ,WEED>
|
||||
<PERFORM ,V?PLANT ,WEED>)
|
||||
(ELSE
|
||||
<PERFORM ,V?DROP ,PRSO>)>
|
||||
<RTRUE>)
|
||||
(<VERB? CLIMB-UP CLIMB-ON CLIMB-FOO BOARD>
|
||||
<TELL ,WASTE-OF-TIME>)
|
||||
|
@ -551,9 +563,14 @@ the desired direction." CR>)
|
|||
|
||||
<OBJECT WALLS
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(FLAGS NDESCBIT TOUCHBIT)
|
||||
(DESC "wall")
|
||||
(SYNONYM WALL WALLS)>
|
||||
(SYNONYM WALL WALLS)
|
||||
(FLAGS NDESCBIT TOUCHBIT)
|
||||
(ACTION WALLS-F)>
|
||||
|
||||
<ROUTINE WALLS-F ()
|
||||
<COND (<FSET? ,HERE ,RAIRBIT>
|
||||
<TELL "What wall?" CR>)>>
|
||||
|
||||
<OBJECT GLOBAL-GRUE
|
||||
(IN GLOBAL-OBJECTS)
|
||||
|
|
17
guild.zil
17
guild.zil
|
@ -158,7 +158,7 @@ the south is the entry of the Guild Hall. ">
|
|||
efts, and salamanders. Toads and frogs hop excitedly about.">)
|
||||
(ELSE
|
||||
<TELL
|
||||
"There is a meeting of the Guildmasters going on. You are standing among
|
||||
"There is a meeting of the guildmasters going on. You are standing among
|
||||
a group of about ten sorcerers, each the master of an Enchanters Guild chapter
|
||||
somewhere in the land.">
|
||||
<COND (<G? ,OCOUNT 0>
|
||||
|
@ -174,6 +174,7 @@ somewhere in the land.">
|
|||
'ORKAN ", one of your colleagues, says, \"Stay. Be quiet. Don't
|
||||
embarrass us.\"" CR>)
|
||||
(<AND <VERB? SAY> <NOT ,PRSO>>
|
||||
<END-QUOTE>
|
||||
<TELL
|
||||
'ORKAN " quiets you. \"Interruptions will only annoy them.\"" CR>)
|
||||
(<AND <VERB? LISTEN>
|
||||
|
@ -528,10 +529,13 @@ CTHE ,SHADOW " snatches it greedily." CR>)
|
|||
"The frozen shadow is impervious to harm." CR>)
|
||||
(ELSE <FREEZES-YOU>)>)
|
||||
(<VERB? ESPNIS>
|
||||
<TELL
|
||||
<COND (<EQUAL? ,HERE ,TIME-STOPPED?>
|
||||
<TELL ,NOTHING-HAPPENS>)
|
||||
(ELSE
|
||||
<TELL
|
||||
"The shadow begins to nod off but with great effort resists and
|
||||
awakens. ">
|
||||
<FREEZES-YOU>)
|
||||
<FREEZES-YOU>)>)
|
||||
(<VERB? YOMIN>
|
||||
<TELL
|
||||
"You feel your own innermost desires, petty jealousies, and unworthy
|
||||
|
@ -544,6 +548,8 @@ the background in a disturbing way." CR>)
|
|||
(<AND <VERB? TELL> ,FROZEN?>
|
||||
<TELL "You cannot speak." CR>
|
||||
<END-QUOTE>)
|
||||
(<VERB? EMPATHIZE>
|
||||
<TELL "You sense in return a blast of cold." CR>)
|
||||
(<AND <NOT ,FROZEN?>
|
||||
<G? ,SHADOW-COUNT 4>
|
||||
<L? ,SHADOW-COUNT 8>>
|
||||
|
@ -648,7 +654,10 @@ you free it!" CR>)
|
|||
<FREEZES-YOU>)>)
|
||||
(<AND <VERB? PUT>
|
||||
<EQUAL? ,PRSI ,HYPERCUBE>>
|
||||
<COND (<EQUAL? ,TIME-STOPPED? ,HERE>
|
||||
<COND (<EQUAL? ,PRSO ,ME>
|
||||
<PERFORM ,V?BOARD ,PRSI>
|
||||
<RTRUE>)
|
||||
(<EQUAL? ,TIME-STOPPED? ,HERE>
|
||||
<COND (<SET F <FIRST? ,HYPERCUBE>>
|
||||
<TELL
|
||||
CTHE .F " is already there." CR>)
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
;"GENERICS"
|
||||
|
||||
<ROUTINE GENERIC-CUBE-F (TBL LEN
|
||||
"AUX" F (CNT 1) (LAST? <>) (CONT <>) CUBE?)
|
||||
"AUX" F (CNT 1) (CONT <>) CUBE?)
|
||||
<COND (<VERB? ASK-ABOUT TELL-ME-ABOUT COUNT>
|
||||
<GET .TBL .CNT>)
|
||||
(ELSE
|
||||
|
@ -50,7 +50,9 @@
|
|||
(ELSE ,RANDOM-CARPET)>>
|
||||
|
||||
<ROUTINE GENERIC-HOLE-F (TBL LEN)
|
||||
<COND (<EQUAL? ,HERE ,MAZE-2> ,OCTAGONAL-HOLE)
|
||||
<COND (<OR <IN? ,OCTAGONAL-HOLE ,HERE>
|
||||
<EQUAL? ,HERE ,MAZE-2>>
|
||||
,OCTAGONAL-HOLE)
|
||||
(ELSE ,GLOBAL-HOLE)>>
|
||||
|
||||
<ROUTINE GENERIC-RANDOM-F (TBL LEN)
|
||||
|
@ -338,7 +340,7 @@ construction it made, the figure approaches the center. ">
|
|||
"It grows smaller and smaller, and just before it disappears, the hypercube
|
||||
vanishes with a pop, and " THE ,MAGIC-CUBE " melts in your hand like an
|
||||
ice cube." CR CR
|
||||
"You find yourself back in Belwit Square, all the Guildmasters and even
|
||||
"You find yourself back in Belwit Square, all the guildmasters and even
|
||||
Belboz crowding around you. \"A new age begins today,\" says Belboz after
|
||||
hearing your story. \"The age of magic is ended, as it must, for as magic
|
||||
can confer absolute power, so it can also produce absolute evil. We may
|
||||
|
@ -449,6 +451,8 @@ head." CR>)
|
|||
<GLOBAL AWAKE -1>
|
||||
|
||||
<ROUTINE I-TIRED ("AUX" (FORG <>))
|
||||
<QUEUE I-TIRED 8>
|
||||
<COND (<HELD? ,MAGIC-CUBE> <RTRUE>)>
|
||||
<COND (<G? ,LOAD-ALLOWED 10>
|
||||
<SETG LOAD-ALLOWED <- ,LOAD-ALLOWED 10>>)>
|
||||
<COND (<G? ,FUMBLE-NUMBER 1>
|
||||
|
@ -459,8 +463,6 @@ head." CR>)
|
|||
<SETG SPELL-ROOM <- ,SPELL-ROOM 1>>)>
|
||||
<COND (<EQUAL? ,SPELL-ROOM 0>
|
||||
<SET FORG T>)>)>
|
||||
<QUEUE I-TIRED 8>
|
||||
<COND (<HELD? ,MAGIC-CUBE> <RTRUE>)>
|
||||
<SETG AWAKE <+ ,AWAKE 1>>
|
||||
<COND (<G? ,AWAKE 8>
|
||||
<TELL
|
||||
|
@ -538,18 +540,23 @@ their appointment.">)
|
|||
<QUEUE I-AVALANCHE -1>
|
||||
<TELL CR
|
||||
"Tons of rock and dirt continue their downward plunge." CR>)>)>
|
||||
<COND (<EQUAL? .TF? ,OGRE-BEDROOM ,OGRE-CAVE>
|
||||
<COND (<AND <EQUAL? .TF? ,OGRE-BEDROOM ,OGRE-CAVE>
|
||||
<EQUAL? ,HERE ,OGRE-BEDROOM ,OGRE-CAVE>>
|
||||
<I-OGRE-KILLS-YOU T>)>
|
||||
<COND (<EQUAL? .TF? ,PAST-RUINS-ROOM>
|
||||
<COND (<AND <EQUAL? .TF? ,PAST-RUINS-ROOM>
|
||||
<EQUAL? ,HERE ,PAST-RUINS-ROOM>>
|
||||
<QUEUE I-WATER-RISING 3>
|
||||
<TELL CR
|
||||
"The water begins to rise again." CR>)>
|
||||
<COND (<EQUAL? .TF? ,CASTLE>
|
||||
<COND (<AND <EQUAL? .TF? ,CASTLE>
|
||||
<EQUAL? ,HERE ,CASTLE>>
|
||||
<COND (<EQUAL? ,SHADOW-COUNT 8>
|
||||
<TELL CR
|
||||
"\"Fool!\" chortles the shadow." CR>)>
|
||||
<RTRUE>)>>
|
||||
|
||||
<GLOBAL OGRE-MURDEROUS? <>>
|
||||
|
||||
<ROUTINE I-OGRE-KILLS-YOU ("OPTIONAL" (GIRGOL? <>))
|
||||
<COND (<OR <TIME-FROZEN?>
|
||||
,SNEEZY?
|
||||
|
@ -557,6 +564,9 @@ their appointment.">)
|
|||
<QUEUE I-OGRE-KILLS-YOU 2>
|
||||
<RFALSE>)>
|
||||
<COND (<EQUAL? ,HERE ,OGRE-CAVE ,OGRE-BEDROOM>
|
||||
<COND (<IN? ,PLAYER ,ZIPPER>
|
||||
<SETG OGRE-MURDEROUS? T>
|
||||
<RTRUE>)>
|
||||
<COND (<NOT .GIRGOL?> <CRLF>)>
|
||||
<TELL
|
||||
"The ogre, impatient with your presence and your impudent intrusion, ">
|
||||
|
@ -566,7 +576,7 @@ their appointment.">)
|
|||
<JIGS-UP>)>>
|
||||
|
||||
<ROUTINE I-ESPNIS ()
|
||||
<COND (<EQUAL? ,TIME-STOPPED? ,HERE>
|
||||
<COND (<TIME-FROZEN?>
|
||||
<QUEUE I-ESPNIS 2>)
|
||||
(<NOT ,ESPNIS?> <RFALSE>)>
|
||||
<COND (<IN? ,ESPNIS? ,HERE>
|
||||
|
@ -596,12 +606,21 @@ tail again in the process." CR>)
|
|||
<TELL
|
||||
"With a rather unsettling lack of uniformity, " THE .SF " returns
|
||||
to its former size.">
|
||||
<COND (<AND <IN? .SF ,WINNER>
|
||||
<EQUAL? .SF ,WEED>
|
||||
<COND (<AND <EQUAL? .SF ,WEED>
|
||||
<FSET? ,WEED ,RMUNGBIT>>
|
||||
<MOVE .SF ,HERE>
|
||||
<TELL
|
||||
" It's too heavy to carry.">)>
|
||||
<COND (<IN? .SF ,WINNER>
|
||||
<MOVE .SF ,HERE>
|
||||
<TELL
|
||||
" It's too heavy to carry.">)
|
||||
(<EQUAL? <LOC .SF> ,BOTTLE>
|
||||
<MOVE .SF <META-LOC ,BOTTLE>>
|
||||
<REMOVE ,BOTTLE>
|
||||
<TELL
|
||||
" It bursts the bottle!">)
|
||||
(<EQUAL? <LOC .SF>
|
||||
,MAGIC-CARPET
|
||||
,RANDOM-CARPET>
|
||||
<MOVE .SF <META-LOC .SF>>)>)>
|
||||
<CRLF>)>)>)
|
||||
(ELSE
|
||||
<SETG SMALL-FLAG <>>
|
||||
|
@ -762,8 +781,12 @@ curtain above you. If you don't do something soon, you will die!" CR>)
|
|||
<G? ,ROCK-SLIDE-COUNT 3>>>
|
||||
<DEQUEUE I-AVALANCHE>
|
||||
<SETG ROCK-SLIDE-COUNT 0>
|
||||
<COND (<IN? ,PLAYER ,ZIPPER>
|
||||
<TELL
|
||||
"Although you can't see or feel it, y">)
|
||||
(ELSE <TELL "Y">)>
|
||||
<JIGS-UP
|
||||
"You are swept away down the cliff face by thousands of tons of rock.
|
||||
"ou are swept away down the cliff face by thousands of tons of rock.
|
||||
A huge cloud of dust blowing away down the valley is your only memorial.">)
|
||||
(<EQUAL? ,HERE ,CLIFF-TOP ,CLIFF-MIDDLE ,CLIFF-BOTTOM>
|
||||
<ROCKS-TUMBLING>)>)>>
|
||||
|
@ -816,11 +839,15 @@ A huge cloud of dust blowing away down the valley is your only memorial.">)
|
|||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN>)>
|
||||
<SET N <NEXT? .F>>
|
||||
<COND (<EQUAL? .F ,WATER-CUBE ,PLAYER ,GROUPER> T)
|
||||
(<OR <NOT <FSET? .F ,CONTBIT>>
|
||||
<COND (<EQUAL? .F ,PLAYER ,GROUPER> T)
|
||||
(<AND <EQUAL? .F ,WATER-CUBE>
|
||||
<QUEUED? I-CUBE-SINKS>>
|
||||
T)
|
||||
(<OR <EQUAL? .F ,ZIPPER>
|
||||
<NOT <FSET? .F ,CONTBIT>>
|
||||
<AND <FSET? .F ,OPENBIT>
|
||||
<PROB 75>>>
|
||||
<MOVE .F ,OCEAN-FLOOR>
|
||||
<MOVE .F ,OCEAN-FLOOR>
|
||||
<FCLEAR .F ,NDESCBIT>
|
||||
<COND (<EQUAL? ,HERE .RM>
|
||||
<TELL
|
||||
|
@ -954,7 +981,9 @@ are open again." CR>)>)>)>>
|
|||
<ROUTINE I-ROC ()
|
||||
<COND (<EQUAL? ,HERE ,GUARD-TOWER>
|
||||
<SETG ROC-COUNT <+ ,ROC-COUNT 1>>
|
||||
<COND (<G? ,ROC-COUNT 4>
|
||||
<COND (<IN? ,PLAYER ,ZIPPER>
|
||||
<RFALSE>)
|
||||
(<G? ,ROC-COUNT 4>
|
||||
<DEQUEUE I-ROC>
|
||||
<ROC-GRABS-PLAYER>
|
||||
<CRLF>
|
||||
|
|
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,39 @@
|
|||
-Spell- -English-
|
||||
|
||||
s AIMFIZ transport yourself to someone's location
|
||||
e BLORB STRONG-BOX-SPELL
|
||||
e CLEESH NEWT-SPELL
|
||||
e EXEX HASTE-SPELL
|
||||
e FILFRE CREDITS-SPELL
|
||||
es FROTZ LIGHT-SPELL
|
||||
s FWEEP turn caster into a bat
|
||||
s GASPAR resurrection
|
||||
es GNUSTO WRITE-MAGIC-SPELL
|
||||
s GOLMAC travel temporally
|
||||
e GONDAR QUENCH-SPELL
|
||||
e GUNCHO BANISH-SPELL
|
||||
es IZYUK FLY-SPELL
|
||||
e KREBF REPAIR-SPELL
|
||||
e KULCAD DISPEL-SPELL
|
||||
s MALYON bring life to inanimate objects
|
||||
s MEEF cause plants to wilt
|
||||
e MELBOR PROTECTION-SPELL
|
||||
e NITFOL TALK-TO-ANIMALS-SPELL
|
||||
e OZMOO CHEAT-DEATH-SPELL
|
||||
s PULVER cause liquids to dry up
|
||||
es REZROV OPEN-SPELL
|
||||
s SWANZO exorcise an inhabiting presence
|
||||
s VARDIK shield a mind from an evil spirit
|
||||
e VAXUM CHARM-SPELL
|
||||
s VEZZA view the future
|
||||
s YOMIN mind probe
|
||||
s YONK augment the power of certain spells
|
||||
e ZIFMIA SUMMON-SPELL
|
||||
|
||||
-Potion- -English-
|
||||
|
||||
s BERZIO obviate need for food and drink
|
||||
s BLORT see in the dark
|
||||
s FLAXO exquisite torture
|
||||
s FOOBLE increase coordination
|
||||
s VILSTU obviate need for breathing
|
114
magic.zil
114
magic.zil
|
@ -65,7 +65,7 @@ e ZIFMIA SUMMON-SPELL
|
|||
|
||||
<GLOBAL SEEN-BLORPLE? <>>
|
||||
|
||||
<ROUTINE SPELL-BOOK-F ("AUX" (F <FIRST? ,SPELL-BOOK>))
|
||||
<ROUTINE SPELL-BOOK-F ("AUX" F)
|
||||
<COND (<VERB? EXAMINE>
|
||||
<TELL
|
||||
"This is your well-used old " 'SPELL-BOOK ", first given to you by Belboz
|
||||
|
@ -104,10 +104,8 @@ that you can read them." CR>)>
|
|||
<TELL "My Spell Book|
|
||||
|
|
||||
">
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN>)>
|
||||
<TELL CTHE .F " (" <GETP .F ,P?TEXT> ")." CR>
|
||||
<SET F <NEXT? .F>>>
|
||||
<MAP-CONTENTS (F ,SPELL-BOOK)
|
||||
<TELL CTHE .F " (" <GETP .F ,P?TEXT> ")." CR>>
|
||||
<COND (<AND ,CLEESHED? <NOT ,SEEN-BLORPLE?>>
|
||||
<SEE-BLORPLE>
|
||||
<TELL
|
||||
|
@ -433,7 +431,7 @@ without a " 'SPELL-BOOK ,PERIOD>
|
|||
They slip out of your memory as soon as you cram them in." CR>
|
||||
<RTRUE>)
|
||||
(<NOT <G? ,SPELL-ROOM 0>>
|
||||
<FORGET-SPELL ,PRSO>
|
||||
<FORGET-SPELL>
|
||||
<SETG SPELL-ROOM 1>
|
||||
<SET FORGET T>)>)>
|
||||
<SETG SPELL-ROOM <- ,SPELL-ROOM 1>>
|
||||
|
@ -468,39 +466,29 @@ likely that something may have been forgotten in the shuffle." CR>)>
|
|||
" The spell is long and complicated.">)>
|
||||
<CRLF>>
|
||||
|
||||
<ROUTINE FORGET-SPELL (SPL "AUX" F CNT TBL (NUM 0) (SP <>))
|
||||
<ROUTINE FORGET-SPELL ("AUX" F TBL (NUM 0) (SP <>))
|
||||
<SET F <FIRST? ,SPELL-BOOK>>
|
||||
<SET TBL ,FORGET-TBL>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN>)
|
||||
(<G? <SET CNT <GETP .F ,P?COUNT>> 0>
|
||||
<REPEAT ()
|
||||
<SET SP .F>
|
||||
<PUT .TBL 1 .F>
|
||||
<SET NUM <+ .NUM 1>>
|
||||
<SET TBL <REST .TBL 2>>
|
||||
<COND (<L? <SET CNT <- .CNT 1>> 1>
|
||||
<RETURN>)>>)>
|
||||
(<G? <GETP .F ,P?COUNT> 0>
|
||||
<SET SP .F>
|
||||
<PUT .TBL 1 .F>
|
||||
<SET NUM <+ .NUM 1>>
|
||||
<SET TBL <REST .TBL 2>>)>
|
||||
<SET F <NEXT? .F>>>
|
||||
<COND (<AND <G? .NUM 0>
|
||||
<EQUAL? <GETP .SP ,P?COUNT> .NUM>>
|
||||
<PUTP .SP ,P?COUNT <- .NUM 1>>
|
||||
<RTRUE>)>
|
||||
<PUT ,FORGET-TBL 0 .NUM>
|
||||
<COND (<ZERO? .NUM> <RTRUE>)>
|
||||
<SET SPL <RANDOM-ELEMENT ,FORGET-TBL>>
|
||||
<PUTP .SPL ,P?COUNT <- <GETP .SPL ,P?COUNT> 1>>>
|
||||
<COND (<G? .NUM 1>
|
||||
<PUT ,FORGET-TBL 0 .NUM>
|
||||
<SET SP <RANDOM-ELEMENT ,FORGET-TBL>>)>
|
||||
<PUTP .SP ,P?COUNT <- <GETP .SP ,P?COUNT> 1>>>
|
||||
|
||||
<GLOBAL FORGET-TBL <LTABLE 0 0 0 0 0 0 0 0 0 0>>
|
||||
<GLOBAL FORGET-TBL <LTABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>>
|
||||
|
||||
<ROUTINE FORGET-ALL ("AUX" F)
|
||||
<SETG SPELL-ROOM ,SPELL-MAX>
|
||||
<SET F <FIRST? ,SPELL-BOOK>>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN>)
|
||||
(ELSE
|
||||
<PUTP .F ,P?COUNT 0>
|
||||
<SET F <NEXT? .F>>)>>>
|
||||
<MAP-CONTENTS (F ,SPELL-BOOK)
|
||||
<PUTP .F ,P?COUNT 0>>>
|
||||
|
||||
<ROUTINE WEAR-OFF-SPELLS ("OPTIONAL" (SLEEP? T))
|
||||
<COND (,CHANGED?
|
||||
|
@ -781,27 +769,25 @@ on which it is written." CR>
|
|||
;GASPAR-SPELL
|
||||
;YONK-SPELL
|
||||
|
||||
<ROUTINE V-SPELLS ("AUX" (CNT <GET ,ALL-SPELLS 0>) S (ANY <>) (OS <>) TMP)
|
||||
<ROUTINE V-SPELLS ("AUX" S (ANY <>) (OS <>) TMP)
|
||||
<TELL
|
||||
"The gnusto, rezrov, and frotz spells are yours forever. Other than that,
|
||||
you have ">
|
||||
<REPEAT ()
|
||||
<COND (<EQUAL? .CNT 0>
|
||||
<COND (.OS
|
||||
<SPELL-PRINT .OS .ANY T>
|
||||
<SET ANY T>)>
|
||||
<COND (<NOT .ANY>
|
||||
<TELL "no spells memorized.">)
|
||||
(T
|
||||
<TELL " committed to memory.">)>
|
||||
<CRLF>
|
||||
<RTRUE>)>
|
||||
<COND (<SET TMP <SPELL-TIMES <GET ,ALL-SPELLS .CNT>>>
|
||||
<COND (.OS
|
||||
<SPELL-PRINT .OS .ANY>
|
||||
<SET ANY T>)>
|
||||
<SET OS .TMP>)>
|
||||
<SET CNT <- .CNT 1>>>>
|
||||
<DO (CNT <GET ,ALL-SPELLS 0> 1 -1)
|
||||
<COND (<SET TMP <SPELL-TIMES <GET ,ALL-SPELLS .CNT>>>
|
||||
<COND (.OS
|
||||
<SPELL-PRINT .OS .ANY>
|
||||
<SET ANY T>)>
|
||||
<SET OS .TMP>)>>
|
||||
<COND (.OS
|
||||
<SPELL-PRINT .OS .ANY T>
|
||||
<SET ANY T>)>
|
||||
<COND (<NOT .ANY>
|
||||
<TELL "no spells memorized.">)
|
||||
(T
|
||||
<TELL " committed to memory.">)>
|
||||
<CRLF>
|
||||
<RTRUE>>
|
||||
|
||||
<ROUTINE SPELL-PRINT (S ANY "OPTIONAL" (PAND? <>) "AUX" X)
|
||||
<COND (.ANY
|
||||
|
@ -854,6 +840,9 @@ you have ">
|
|||
<TELL
|
||||
"Abruptly, your surroundings shift.">
|
||||
<COND (<FSET? <LOC ,PLAYER> ,VEHBIT>
|
||||
<SETG SITTING? <>>
|
||||
<COND (<EQUAL? ,HERE ,MIDAIR>
|
||||
<MOVE <LOC ,PLAYER> ,LOST-ON-LAND>)>
|
||||
<TELL
|
||||
" The spell leaves " THE <LOC ,PLAYER> " behind.">)>
|
||||
<MOVE ,PLAYER ,HERE>
|
||||
|
@ -1012,20 +1001,17 @@ with identical brightness.">)
|
|||
nearby." CR>)>>
|
||||
|
||||
<ROUTINE DETECT-MAGIC (OBJ "OPTIONAL" (1ST? T) "AUX" F)
|
||||
<SET F <FIRST? .OBJ>>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .F> <RETURN <NOT .1ST?>>)
|
||||
(<NOT <EQUAL? .F ,PLAYER ,PILE-1 ,PILE-2>>
|
||||
<COND (<AND <VISIBLE? .F>
|
||||
<MAGIC? .F>>
|
||||
<SET 1ST? <>>
|
||||
<TELL
|
||||
CTHE .F ,IS-GLOWING CR>)
|
||||
(<AND <SEE-INSIDE? .F>
|
||||
<FIRST? .F>>
|
||||
<COND (<DETECT-MAGIC .F .1ST?>
|
||||
<SET 1ST? <>>)>)>)>
|
||||
<SET F <NEXT? .F>>>>
|
||||
<MAP-CONTENTS (F .OBJ)
|
||||
(END <RETURN <NOT .1ST?>>)
|
||||
<COND (<NOT <EQUAL? .F ,PLAYER ,PILE-1 ,PILE-2>>
|
||||
<COND (<AND <VISIBLE? .F>
|
||||
<MAGIC? .F>>
|
||||
<SET 1ST? <>>
|
||||
<TELL CTHE .F ,IS-GLOWING CR>)
|
||||
(<AND <SEE-INSIDE? .F>
|
||||
<FIRST? .F>>
|
||||
<COND (<DETECT-MAGIC .F .1ST?>
|
||||
<SET 1ST? <>>)>)>)>>>
|
||||
|
||||
<ROUTINE MAGIC? (OBJ)
|
||||
<COND (<FSET? .OBJ ,MAGICBIT> <RTRUE>)
|
||||
|
@ -1243,7 +1229,9 @@ the gnusto spell will work on it." CR>)>)>>
|
|||
<V-NO-OP>)>>
|
||||
|
||||
<ROUTINE V-MALYON ()
|
||||
<COND (<FSET? ,PRSO ,PERSON>
|
||||
<COND (<TIME-FROZEN?>
|
||||
<TELL ,NOTHING-HAPPENS>)
|
||||
(<FSET? ,PRSO ,PERSON>
|
||||
<TELL
|
||||
"Wow! " ,IT-LOOKS-LIKE THE ,PRSO " is now alive! What a magician you are!" CR>)
|
||||
(<FSET? ,PRSO ,TAKEBIT>
|
||||
|
@ -1265,6 +1253,8 @@ little jig, and a moment later returns to normal." CR>)
|
|||
<FSET? ,PRSO ,DOORBIT>>
|
||||
<COND (<FSET? ,PRSO ,OPENBIT>
|
||||
<ALREADY-OPEN>)
|
||||
(<TIME-FROZEN?>
|
||||
<TELL ,NOTHING-HAPPENS>)
|
||||
(<NOT <FSET? ,PRSO ,SCROLLBIT>>
|
||||
<TELL "Silently, ">
|
||||
<TELL THE ,PRSO " swings open">
|
||||
|
|
216
misc.zil
216
misc.zil
|
@ -24,166 +24,43 @@
|
|||
|
||||
;"SUSPECT tell macro and friends"
|
||||
|
||||
<COND (<GASSIGNED? ZILCH> ;"version for when compiling"
|
||||
<DEFMAC TELL ("ARGS" A)
|
||||
<FORM PROG ()
|
||||
!<MAPF ,LIST
|
||||
<FUNCTION ("AUX" E P O)
|
||||
<COND (<EMPTY? .A> <MAPSTOP>)
|
||||
(<SET E <NTH .A 1>>
|
||||
<SET A <REST .A>>)>
|
||||
<COND (<TYPE? .E ATOM>
|
||||
<COND (<OR <=? <SET P <SPNAME .E>>
|
||||
"CRLF">
|
||||
<=? .P "CR">>
|
||||
<MAPRET '<CRLF>>)
|
||||
;(<=? .P "V">
|
||||
<MAPRET '<VPRINT>>)
|
||||
(<EMPTY? .A>
|
||||
<ERROR INDICATOR-AT-END? .E>)
|
||||
(ELSE
|
||||
<SET O <NTH .A 1>>
|
||||
<SET A <REST .A>>
|
||||
<COND (<OR <=? <SET P <SPNAME .E>>
|
||||
"DESC">
|
||||
<=? .P "D">
|
||||
<=? .P "OBJ">
|
||||
<=? .P "O">>
|
||||
<MAPRET
|
||||
<PFORM DPRINT .O>>)
|
||||
(<=? .P "CD">
|
||||
<MAPRET
|
||||
<PFORM CDPRINT .O>>)
|
||||
(<=? .P "THE">
|
||||
<MAPRET
|
||||
<PFORM THE-PRINT .O>>)
|
||||
(<=? .P "CTHE">
|
||||
<MAPRET
|
||||
<PFORM CTHE-PRINT .O>>)
|
||||
(<OR <=? .P "A">
|
||||
<=? .P "AN">>
|
||||
<MAPRET
|
||||
<PFORM PRINTA .O>>)
|
||||
(<OR <=? .P "NUM">
|
||||
<=? .P "N">>
|
||||
<MAPRET
|
||||
<FORM PRINTN .O>>)
|
||||
(<OR <=? .P "CHAR">
|
||||
<=? .P "CHR">
|
||||
<=? .P "C">>
|
||||
<MAPRET
|
||||
<FORM PRINTC
|
||||
<CHTYPE .O FIX>>>)
|
||||
(ELSE
|
||||
<MAPRET
|
||||
<FORM PRINT
|
||||
<FORM GETP .O .E>>>)>)>)
|
||||
(<TYPE? .E STRING ZSTRING>
|
||||
<MAPRET
|
||||
<COND (<==? <LENGTH .E> 1>
|
||||
<FORM PRINTC
|
||||
<CHTYPE <1 .E> FIX>>)
|
||||
(ELSE
|
||||
<FORM PRINTI .E>)>>)
|
||||
(<AND <TYPE? .E FORM>
|
||||
<==? <NTH .E 1> QUOTE>>
|
||||
<MAPRET
|
||||
<FORM PRINTD
|
||||
<MAKE-GVAL <NTH .E 2>>>>)
|
||||
(<TYPE? .E FORM LVAL GVAL>
|
||||
<MAPRET <FORM PRINT .E>>)
|
||||
(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>>)
|
||||
(ELSE ;"version for when interpreting"
|
||||
<DEFINE TELL ("TUPLE" A)
|
||||
<MAPR <>
|
||||
<FUNCTION ("AUX" E P O)
|
||||
<COND (<EMPTY? .A> <MAPLEAVE>)
|
||||
(<SET E <NTH .A 1>>
|
||||
<SET A <REST .A>>)>
|
||||
<COND (<TYPE? .E ATOM>
|
||||
<COND (<OR <=? <SET P <SPNAME .E>>
|
||||
"CRLF">
|
||||
<=? .P "CR">>
|
||||
<CRLF>)
|
||||
;(<=? .P "V"> <VPRINT>)
|
||||
(<AND <GASSIGNED? .E>
|
||||
<TYPE? ,.E OBJECT>>
|
||||
<PRINTD ,.E>)
|
||||
(<EMPTY? .A>
|
||||
<ERROR INDICATOR-AT-END? .E>)
|
||||
(ELSE
|
||||
<SET O <NTH .A 1>>
|
||||
<SET A <REST .A>>
|
||||
<COND (<OR <=? <SET P <SPNAME .E>>
|
||||
"DESC">
|
||||
<=? .P "D">
|
||||
<=? .P "OBJ">
|
||||
<=? .P "O">>
|
||||
<DPRINT .O>)
|
||||
(<=? .P "CD">
|
||||
<DPRINT .O T>)
|
||||
;(<=? .P "HE/SHE">
|
||||
<HE/SHE-PRINT .O>)
|
||||
;(<=? .P "HIM/HER">
|
||||
<HIM/HER-PRINT .O>)
|
||||
;(<=? .P "HIS/HER">
|
||||
<HIM/HER-PRINT .O T>)
|
||||
(<=? .P "THE">
|
||||
<THE-PRINT .O>)
|
||||
(<=? .P "CTHE">
|
||||
<CTHE-PRINT .O>)
|
||||
(<OR <=? .P "A">
|
||||
<=? .P "AN">>
|
||||
<PRINTA .O>)
|
||||
(<OR <=? .P "NUM">
|
||||
<=? .P "N">>
|
||||
<PRINTN .O>)
|
||||
(<OR <=? .P "CHAR">
|
||||
<=? .P "CHR">
|
||||
<=? .P "C">>
|
||||
<PRINTC .O>)
|
||||
(ELSE
|
||||
<PRINT <GETP .O .E>>)>)>)
|
||||
(<TYPE? .E STRING ZSTRING>
|
||||
<PRINTI .E>)
|
||||
(<AND <TYPE? .E FORM>
|
||||
<==? <NTH .E 1> QUOTE>>
|
||||
<PRINTD <GVAL <NTH .E 2>>>)
|
||||
(<TYPE? .E FORM LVAL GVAL>
|
||||
<PRINT .E>)
|
||||
(ELSE <ERROR UNKNOWN-TYPE .E>)>>>>
|
||||
)>
|
||||
<TELL-TOKENS (CRLF CR) <CRLF>
|
||||
(NUM N) * <PRINTN .X>
|
||||
(CHAR CHR C) * <PRINTC .X>
|
||||
D ,PRSO <DPRINT-PRSO>
|
||||
D ,PRSI <DPRINT-PRSI>
|
||||
D * <DPRINT .X>
|
||||
CD ,PRSO <CDPRINT-PRSO>
|
||||
CD ,PRSI <CDPRINT-PRSI>
|
||||
CD * <CDPRINT .X>
|
||||
THE ,PRSO <THE-PRINT-PRSO>
|
||||
THE ,PRSI <THE-PRINT-PRSI>
|
||||
THE * <THE-PRINT .X>
|
||||
CTHE ,PRSO <CTHE-PRINT-PRSO>
|
||||
CTHE ,PRSI <CTHE-PRINT-PRSI>
|
||||
CTHE * <CTHE-PRINT .X>
|
||||
(A AN) ,PRSO <PRINTA-PRSO>
|
||||
(A AN) ,PRSI <PRINTA-PRSI>
|
||||
(A AN) * <PRINTA .X>>
|
||||
|
||||
<DEFINE PFORM (APP OBJ "AUX" A)
|
||||
<COND (<AND <TYPE? .OBJ LVAL GVAL>
|
||||
<MEMQ <SET A <CHTYPE .OBJ ATOM>> '[PRSO PRSI]>>
|
||||
<COND (<==? .APP DPRINT>
|
||||
<COND (<==? .A PRSO> <FORM DPRINT-PRSO>)
|
||||
(ELSE <FORM DPRINT-PRSI>)>)
|
||||
(<==? .APP CDPRINT>
|
||||
<COND (<==? .A PRSO> <FORM CDPRINT-PRSO>)
|
||||
(ELSE <FORM CDPRINT-PRSI>)>)
|
||||
(<==? .APP THE-PRINT>
|
||||
<COND (<==? .A PRSO> <FORM THE-PRINT-PRSO>)
|
||||
(ELSE <FORM THE-PRINT-PRSI>)>)
|
||||
(<==? .APP CTHE-PRINT>
|
||||
<COND (<==? .A PRSO> <FORM CTHE-PRINT-PRSO>)
|
||||
(ELSE <FORM CTHE-PRINT-PRSI>)>)
|
||||
(<==? .APP PRINTA>
|
||||
<COND (<==? .A PRSO> <FORM PRINTA-PRSO>)
|
||||
(ELSE <FORM PRINTA-PRSI>)>)
|
||||
(ELSE <ERROR .APP .OBJ>)>)
|
||||
(<ASSIGNED? EXT>
|
||||
<FORM .APP .OBJ .EXT>)
|
||||
(ELSE
|
||||
<FORM .APP .OBJ>)>>
|
||||
|
||||
<DEFINE MAKE-GVAL (E)
|
||||
<COND (<OR <GASSIGNED? MUDDLE>
|
||||
<NOT <TYPE? .E ATOM>>>
|
||||
<FORM GVAL .E>)
|
||||
(ELSE
|
||||
<CHTYPE .E GVAL>)>>
|
||||
;<TELL-TOKENS (CRLF CR) <CRLF>
|
||||
(DESC D OBJ O) <DPRINT .X>
|
||||
CD <CDPRINT .X>
|
||||
THE <THE-PRINT .X>
|
||||
CTHE <CTHE-PRINT .X>
|
||||
(A AN) <PRINTA .X>
|
||||
(NUM N) <PRINTN .X>
|
||||
(CHAR CHR C) <PRINTC .X>
|
||||
<DPRINT ,PRSO> <DPRINT-PRSO>
|
||||
<DPRINT ,PRSI> <DPRINT-PRSI>
|
||||
<CDPRINT ,PRSO> <CDPRINT-PRSO>
|
||||
<CDPRINT ,PRSI> <CDPRINT-PRSI>
|
||||
<THE-PRINT ,PRSO> <THE-PRINT-PRSO>
|
||||
<THE-PRINT ,PRSI> <THE-PRINT-PRSI>
|
||||
<CTHE-PRINT ,PRSO> <CTHE-PRINT-PRSO>
|
||||
<CTHE-PRINT ,PRSI> <CTHE-PRINT-PRSI>
|
||||
<PRINTA ,PRSO> <PRINTA-PRSO>
|
||||
<PRINTA ,PRSI> <PRINTA-PRSI>>
|
||||
|
||||
<ROUTINE CTHE-PRINT-PRSO ()
|
||||
<THE-PRINT ,PRSO T>>
|
||||
|
@ -830,19 +707,16 @@ be include when the crunch comes."
|
|||
|
||||
<GLOBAL CLOCK-WAIT <>>
|
||||
|
||||
<GLOBAL C-TABLE %<COND (<GASSIGNED? ZILCH>
|
||||
'<ITABLE NONE 26>)
|
||||
(T
|
||||
'<ITABLE NONE 52>)>>
|
||||
<GLOBAL C-TABLE <ITABLE 13 <> <>>>
|
||||
|
||||
<CONSTANT C-TABLELEN 52>
|
||||
<GLOBAL C-INTS 52>
|
||||
<CONSTANT C-INTLEN 4> ;"length of an interrupt entry in bytes"
|
||||
<CONSTANT C-RTN 0> ;"word offset of routine name"
|
||||
<CONSTANT C-TICK 1> ;"word offset of count"
|
||||
|
||||
<CONSTANT C-TABLELEN 52> ;"length of interrupt table in bytes"
|
||||
<GLOBAL C-INTS 52> ;"start of queued interrupts in bytes"
|
||||
%<DEBUG-CODE <GLOBAL C-MAXINTS 52>>
|
||||
|
||||
<CONSTANT C-INTLEN 4> ;"length of an interrupt entry"
|
||||
<CONSTANT C-RTN 0> ;"offset of routine name"
|
||||
<CONSTANT C-TICK 1> ;"offset of count"
|
||||
|
||||
<ROUTINE DEQUEUE (RTN)
|
||||
<COND (<SET RTN <QUEUED? .RTN>>
|
||||
<PUT .RTN ,C-RTN 0>)>>
|
||||
|
@ -888,7 +762,7 @@ be include when the crunch comes."
|
|||
<COND (%<COND (<GASSIGNED? ZILCH>
|
||||
'<G? .INT ,CLOCK-HAND>)
|
||||
(ELSE
|
||||
'<L=? <LENGTH .INT> <LENGTH ,CLOCK-HAND>>)>
|
||||
'<L? <LENGTH .INT> <LENGTH ,CLOCK-HAND>>)>
|
||||
<SET TICK <- <+ .TICK 3>>>)>
|
||||
<PUT .INT ,C-TICK .TICK>
|
||||
.INT>
|
||||
|
@ -950,7 +824,7 @@ be include when the crunch comes."
|
|||
<COND (<N==? <LENGTH .OBJ> 3>
|
||||
<ERROR BAD-THING .OBJ>)>
|
||||
<MAPRET <COND (<NTH .OBJ 2>
|
||||
<VOC <SPNAME <NTH .OBJ 2>>>)>
|
||||
<VOC <SPNAME <NTH .OBJ 2>> NOUN>)>
|
||||
<COND (<NTH .OBJ 1>
|
||||
<VOC <SPNAME <NTH .OBJ 1>> ADJECTIVE>)>
|
||||
<3 .OBJ>>>
|
||||
|
|
55
parser.zil
55
parser.zil
|
@ -33,13 +33,20 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
|
||||
<GLOBAL WINNER 0>
|
||||
|
||||
<GLOBAL P-LEXV <ITABLE BYTE 120>>
|
||||
<GLOBAL AGAIN-LEXV <ITABLE BYTE 120>>
|
||||
<GLOBAL RESERVE-LEXV <ITABLE BYTE 120>>
|
||||
<GLOBAL P-LEXV
|
||||
<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
|
||||
<GLOBAL AGAIN-LEXV
|
||||
<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
|
||||
<GLOBAL RESERVE-LEXV
|
||||
<ITABLE 59 (LEXV) 0 #BYTE 0 #BYTE 0> ;<ITABLE BYTE 120>>
|
||||
<GLOBAL RESERVE-PTR <>>
|
||||
|
||||
<GLOBAL P-INBUF <ITABLE BYTE 60>> ;"INBUF - Input buffer for READ"
|
||||
<GLOBAL OOPS-INBUF <ITABLE BYTE 60>>
|
||||
<GLOBAL P-INBUF
|
||||
<ITABLE 120 (BYTE LENGTH) 0>
|
||||
;<ITABLE BYTE 60>> ;"INBUF - Input buffer for READ"
|
||||
<GLOBAL OOPS-INBUF
|
||||
<ITABLE 120 (BYTE LENGTH) 0>
|
||||
;<ITABLE BYTE 60>>
|
||||
<GLOBAL OOPS-TABLE <TABLE <> <> <> <>>>
|
||||
<CONSTANT O-PTR 0> "word pointer to unknown token in P-LEXV"
|
||||
<CONSTANT O-START 1> "word pointer to sentence start in P-LEXV"
|
||||
|
@ -82,10 +89,10 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<TABLE 0 0 0 0 0 0 0 0 0 0>>
|
||||
|
||||
<GLOBAL P-VTBL
|
||||
<TABLE 0 0 0 0>>
|
||||
<TABLE 0 #BYTE 0 #BYTE 0>>
|
||||
|
||||
<GLOBAL P-OVTBL
|
||||
<TABLE 0 0 0 0>>
|
||||
<TABLE 0 #BYTE 0 #BYTE 0>>
|
||||
|
||||
<GLOBAL P-NCN 0>
|
||||
|
||||
|
@ -262,13 +269,14 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<SETG QUOTE-FLAG <>>
|
||||
<RETURN>)
|
||||
(<SET WRD <KNOWN-WORD? .PTR .VERB>>
|
||||
<COND (<ZERO? ,P-LEN> <SET NW 0>)
|
||||
(T <SET NW <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>>)>
|
||||
<COND (<AND <EQUAL? .WRD ,W?TO>
|
||||
<EQUAL? .VERB ,ACT?TELL ,ACT?ASK>
|
||||
;"next clause added 8/20/84 by JW to
|
||||
enable TELL MY NAME TO BEAST"
|
||||
<NOT <ZERO?
|
||||
<WT? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
|
||||
,PS?VERB ,P1?VERB>>>>
|
||||
<WT? .NW ,PS?VERB ,P1?VERB>>>>
|
||||
<PUT ,P-ITBL ,P-VERB ,ACT?TELL>
|
||||
<SET WRD ,W?QUOTE>)
|
||||
(<AND <EQUAL? .WRD ,W?THEN>
|
||||
|
@ -315,9 +323,7 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<OR <EQUAL? .LEN 1>
|
||||
<AND <EQUAL? .LEN 2>
|
||||
<EQUAL? .VERB ,ACT?WALK ;,ACT?FLY>>
|
||||
<AND <EQUAL? <SET NW
|
||||
<GET ,P-LEXV
|
||||
<+ .PTR ,P-LEXELEN>>>
|
||||
<AND <EQUAL? .NW
|
||||
,W?THEN
|
||||
,W?PERIOD
|
||||
,W?QUOTE>
|
||||
|
@ -353,9 +359,7 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<NOT <ZERO? <WT? .WRD ,PS?OBJECT>>>>
|
||||
<SET VAL 0>>>
|
||||
<COND (<AND <G? ,P-LEN 1>
|
||||
<EQUAL? <GET ,P-LEXV
|
||||
<+ .PTR ,P-LEXELEN>>
|
||||
,W?OF>
|
||||
<EQUAL? .NW ,W?OF>
|
||||
<ZERO? .VAL>
|
||||
<NOT <EQUAL? .WRD
|
||||
,W?ALL ,W?ONE ,W?A>>
|
||||
|
@ -364,8 +368,7 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<SET OF-FLAG T>)
|
||||
(<AND <NOT <ZERO? .VAL>>
|
||||
<OR <ZERO? ,P-LEN>
|
||||
<EQUAL? <GET ,P-LEXV <+ .PTR 2>>
|
||||
,W?THEN ,W?PERIOD>>>
|
||||
<EQUAL? .NW ,W?THEN ,W?PERIOD>>>
|
||||
<SETG P-END-ON-PREP T>
|
||||
<COND (<L? ,P-NCN 2>
|
||||
<PUT ,P-ITBL ,P-PREP1 .VAL>
|
||||
|
@ -384,9 +387,7 @@ with 'P-'. Local variables are not restricted in any way."
|
|||
<RETURN>)>)>)
|
||||
(<EQUAL? .WRD ,W?OF>
|
||||
<COND (<OR <NOT .OF-FLAG>
|
||||
<EQUAL?
|
||||
<GET ,P-LEXV <+ .PTR ,P-LEXELEN>>
|
||||
,W?PERIOD ,W?THEN>>
|
||||
<EQUAL? .NW ,W?PERIOD ,W?THEN>>
|
||||
<CANT-USE .PTR>
|
||||
<RFALSE>)
|
||||
(T
|
||||
|
@ -1207,15 +1208,15 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
|
|||
|
||||
<GLOBAL P-ADJN <>>
|
||||
|
||||
<GLOBAL P-PRSO <ITABLE NONE 80>>
|
||||
<GLOBAL P-PRSO <ITABLE 80 <>>>
|
||||
|
||||
<GLOBAL P-PRSI <ITABLE NONE 80>>
|
||||
<GLOBAL P-PRSI <ITABLE 80 <>>>
|
||||
|
||||
<GLOBAL P-BUTS <ITABLE NONE 80>>
|
||||
<GLOBAL P-BUTS <ITABLE 80 <>>>
|
||||
|
||||
<GLOBAL P-MERGE <ITABLE NONE 80>>
|
||||
<GLOBAL P-MERGE <ITABLE 80 <>>>
|
||||
|
||||
<GLOBAL P-OCLAUSE <ITABLE NONE 80>>
|
||||
<GLOBAL P-OCLAUSE <ITABLE 80 <>>>
|
||||
|
||||
<GLOBAL P-MATCHLEN 0>
|
||||
|
||||
|
@ -1241,7 +1242,9 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
|
|||
<COND (.WAS-ALL <SETG P-GETFLAGS ,P-ALL>)>
|
||||
<RETURN .WV>)
|
||||
(T
|
||||
<SET NW <GET .PTR ,P-LEXELEN>>
|
||||
<COND (<==? .EPTR <REST .PTR ,P-WORDLEN>>
|
||||
<SET NW 0>)
|
||||
(T <SET NW <GET .PTR ,P-LEXELEN>>)>
|
||||
<COND (<EQUAL? .WRD ,W?ALL ,W?BOTH>
|
||||
<SETG P-GETFLAGS ,P-ALL>
|
||||
<COND (<EQUAL? .NW ,W?OF>
|
||||
|
|
|
@ -0,0 +1,900 @@
|
|||
<OBJECT BURIN
|
||||
(IN PLAYER)
|
||||
(DESC "magic burin")
|
||||
<ROOM DULL-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Nondescript Room")
|
||||
(OUT PER DULL-ROOM-EXIT)
|
||||
(SOUTH PER DULL-ROOM-EXIT)
|
||||
<OBJECT EARTH-CUBE
|
||||
(DESC "cube")
|
||||
<ROOM EARTH-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Packed Earth")
|
||||
(NORTH PER MAGIC-BOX-EXIT)
|
||||
(EAST TO HALL-OF-STONE)
|
||||
(WEST TO CAVE-ENTRANCE)
|
||||
(SOUTH TO CLIFF-MIDDLE)
|
||||
(DOWN PER MIDAIR-EXIT)
|
||||
<ROOM HALL-OF-STONE
|
||||
(IN ROOMS)
|
||||
(DESC "Hall of Stone")
|
||||
(NORTH TO SOUTH-SNAKE-ROOM)
|
||||
(SOUTH TO RUINS-ROOM)
|
||||
<ROOM NORTH-SNAKE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "North of Serpent")
|
||||
(SOUTH PER SNAKE-ROOM-EXIT)
|
||||
(NORTH TO TEMPLE-ROOM)
|
||||
(EAST PER SNAKE-ROOM-EXIT)
|
||||
(WEST PER SNAKE-ROOM-EXIT)
|
||||
<ROOM SOUTH-SNAKE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Smooth Room")
|
||||
(NORTH PER SNAKE-ROOM-EXIT)
|
||||
(SOUTH TO HALL-OF-STONE)
|
||||
(EAST PER SNAKE-ROOM-EXIT)
|
||||
(WEST PER SNAKE-ROOM-EXIT)
|
||||
<OBJECT SNAKE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "serpent")
|
||||
<ROOM TEMPLE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Temple")
|
||||
(SOUTH TO NORTH-SNAKE-ROOM)
|
||||
<OBJECT IDOL
|
||||
(IN TEMPLE-ROOM)
|
||||
(DESC "rodent idol")
|
||||
<OBJECT TEETH
|
||||
(IN IDOL)
|
||||
(DESC "fangs")
|
||||
<OBJECT MOUTH
|
||||
(IN IDOL)
|
||||
(DESC "mouth")
|
||||
<OBJECT OPAL
|
||||
(IN IDOL)
|
||||
(DESC "opal eye")
|
||||
<OBJECT OPAL-SHARD
|
||||
(DESC "opal shard")
|
||||
<OBJECT ZIPPER
|
||||
(IN RUINS-ROOM)
|
||||
(DESC "zipper")
|
||||
<ROOM RUINS-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Ruins Room")
|
||||
(NORTH TO HALL-OF-STONE)
|
||||
(SOUTH "The ruins end here.")
|
||||
(DOWN TO RUINED-PIPE IF SMALL-FLAG)
|
||||
<OBJECT RUINS-CHANNEL
|
||||
(IN RUINS-ROOM)
|
||||
(DESC "channel")
|
||||
<OBJECT RUINS-INFLOW
|
||||
(IN RUINS-ROOM)
|
||||
(DESC "inflow pipe")
|
||||
<OBJECT RUINS-OUTFLOW
|
||||
(IN RUINS-ROOM)
|
||||
(DESC "outflow pipe")
|
||||
<ROOM CLIFF-TOP
|
||||
(IN ROOMS)
|
||||
(DESC "Cliff Top")
|
||||
(DOWN TO CLIFF-MIDDLE)
|
||||
(UP PER CLIFF-TOP-EXIT) ;"BOULDER-1"
|
||||
<ROOM BOULDER-1
|
||||
(IN ROOMS)
|
||||
(DESC "Boulder")
|
||||
(UP TO BOULDER-2)
|
||||
(DOWN TO CLIFF-TOP)
|
||||
<ROOM BOULDER-2
|
||||
(IN ROOMS)
|
||||
(DESC "Boulder")
|
||||
(UP TO BOULDER-3)
|
||||
(DOWN TO BOULDER-1)
|
||||
<ROOM BOULDER-3
|
||||
(IN ROOMS)
|
||||
(DESC "Boulder")
|
||||
(UP TO MOUNTAIN-TOP)
|
||||
(DOWN TO BOULDER-2)
|
||||
<ROOM MOUNTAIN-TOP
|
||||
(IN ROOMS)
|
||||
(DESC "Mountain Top")
|
||||
(IN PER HUT-ROOM-EXIT)
|
||||
(WEST PER HUT-ROOM-EXIT)
|
||||
(DOWN PER CLIFF-TOP-EXIT ;CLIFF-TOP)
|
||||
<ROOM HUT-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Stone Hut")
|
||||
(OUT PER HUT-ROOM-EXIT ;MOUNTAIN-TOP)
|
||||
(EAST PER HUT-ROOM-EXIT ;MOUNTAIN-TOP)
|
||||
<OBJECT HUT
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "stone hut")
|
||||
<OBJECT HERMIT
|
||||
(IN HUT-ROOM)
|
||||
(DESC "hermit")
|
||||
<OBJECT GLOBAL-CLIFF
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "cliff")
|
||||
<OBJECT GLOBAL-ROCKS
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "rock")
|
||||
<ROOM CLIFF-MIDDLE
|
||||
(IN ROOMS)
|
||||
(DESC "Cliff Middle")
|
||||
(UP TO CLIFF-TOP)
|
||||
(DOWN TO CLIFF-BOTTOM)
|
||||
<ROOM CLIFF-BOTTOM
|
||||
(IN ROOMS)
|
||||
(DESC "Cliff Bottom")
|
||||
(UP TO CLIFF-MIDDLE)
|
||||
(DOWN "You're at the bottom already.")
|
||||
(WEST TO CAVE-ENTRANCE)
|
||||
(EAST "There's no path that way.")
|
||||
(SOUTH "There's no path that way.")
|
||||
<OBJECT GLOBAL-CAVE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "cave")
|
||||
<ROOM CAVE-ENTRANCE
|
||||
(IN ROOMS)
|
||||
(DESC "Cave Entrance")
|
||||
(EAST TO CLIFF-BOTTOM)
|
||||
(IN TO OGRE-CAVE)
|
||||
(NORTH TO OGRE-CAVE)
|
||||
(UP "There's no path that way.")
|
||||
<ROOM OGRE-CAVE
|
||||
(IN ROOMS)
|
||||
(DESC "Cave")
|
||||
(OUT TO CAVE-ENTRANCE)
|
||||
(SOUTH TO CAVE-ENTRANCE)
|
||||
(DOWN PER OGRE-BEDROOM-EXIT)
|
||||
<ROOM OGRE-BEDROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Ogre Lair")
|
||||
(UP TO OGRE-CAVE)
|
||||
(OUT TO OGRE-CAVE)
|
||||
<OBJECT MAGIC-BOX
|
||||
(IN OGRE-BEDROOM)
|
||||
(DESC "gold box")
|
||||
<OBJECT OGRE
|
||||
(IN OGRE-CAVE)
|
||||
(DESC "ogre")
|
||||
;<OBJECT CLUB
|
||||
(IN OGRE)
|
||||
(DESC "club")
|
||||
<OBJECT WATER-CUBE
|
||||
(IN MAGIC-BOX)
|
||||
(DESC "cube")
|
||||
<ROOM WATER-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Water Room")
|
||||
(NORTH TO OUBLIETTE)
|
||||
(EAST PER MAGIC-BOX-EXIT)
|
||||
(SOUTH TO OCEAN-ROOM)
|
||||
<ROOM OCEAN-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Mid-Ocean")
|
||||
<ROOM LOST-IN-OCEAN
|
||||
(IN ROOMS)
|
||||
(DESC "Open Ocean")
|
||||
<ROOM OCEAN-FLOOR
|
||||
(IN ROOMS)
|
||||
(DESC "Ocean Floor")
|
||||
(UP TO OCEAN-ROOM)
|
||||
<OBJECT GROUPER-NEST
|
||||
(IN OCEAN-FLOOR)
|
||||
(DESC "grouper nest")
|
||||
<OBJECT BOTTLE
|
||||
(IN OCEAN-ROOM)
|
||||
(DESC "bottle")
|
||||
<OBJECT GROUPER
|
||||
(IN OCEAN-ROOM)
|
||||
(DESC "grouper")
|
||||
<ROOM OUBLIETTE
|
||||
(IN ROOMS)
|
||||
(DESC "Oubliette")
|
||||
(DOWN PER OUBLIETTE-DOWN-EXIT)
|
||||
(UP PER OUBLIETTE-UP-EXIT) ;"PRISON"
|
||||
<OBJECT ICEBERG
|
||||
(DESC "ice floe")
|
||||
<OBJECT INFLOW
|
||||
(IN OUBLIETTE)
|
||||
(DESC "inflow pipe")
|
||||
<OBJECT OUTFLOW
|
||||
(IN OUBLIETTE)
|
||||
(DESC "outflow pipe")
|
||||
<ROOM IN-CHANNEL
|
||||
(IN ROOMS)
|
||||
(DESC "In Channel")
|
||||
(UP TO OUBLIETTE)
|
||||
(WEST TO IN-PIPE)
|
||||
(EAST "The current is too strong." ;IN-PIPE-2)
|
||||
<OBJECT WATER-PIPE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "pipe")
|
||||
<OBJECT OUBLIETTE-CHANNEL
|
||||
(IN OUBLIETTE)
|
||||
(DESC "channel")
|
||||
<ROOM IN-PIPE
|
||||
(IN ROOMS)
|
||||
(DESC "In Pipe")
|
||||
(EAST "The current is too strong." ;IN-CHANNEL)
|
||||
(WEST TO IN-PIPE-2)
|
||||
<ROOM IN-PIPE-2
|
||||
(IN ROOMS)
|
||||
(DESC "In Pipe")
|
||||
(EAST "The current is too strong." ;IN-PIPE)
|
||||
(WEST TO RUINED-PIPE)
|
||||
<OBJECT CHUNK
|
||||
(IN IN-PIPE-2)
|
||||
(DESC "crack")
|
||||
<ROOM RUINED-PIPE
|
||||
(IN ROOMS)
|
||||
(DESC "Ruined Pipe")
|
||||
(EAST "The current is too strong." ;IN-PIPE-2)
|
||||
(WEST TO IN-SEWER)
|
||||
(UP TO RUINS-ROOM)
|
||||
(OUT TO RUINS-ROOM)
|
||||
<ROOM IN-SEWER
|
||||
(IN ROOMS)
|
||||
(DESC "In Pipe")
|
||||
(EAST "The current is too strong." ;RUINED-PIPE)
|
||||
<ROOM PRISON
|
||||
(IN ROOMS)
|
||||
(DESC "Dungeon")
|
||||
(DOWN PER PRISON-DOWN-EXIT ;OUBLIETTE)
|
||||
(UP TO GUARD-TOWER)
|
||||
(EAST TO CELL-HALL-EAST)
|
||||
<OBJECT TRAP-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "trap door")
|
||||
<ROOM CELL-HALL-EAST
|
||||
(IN ROOMS)
|
||||
(DESC "Dungeon East End")
|
||||
(WEST TO PRISON)
|
||||
(NORTH TO CELL-EAST)
|
||||
<ROOM CELL-EAST
|
||||
(IN ROOMS)
|
||||
(DESC "Dungeon Cell")
|
||||
(SOUTH TO CELL-HALL-EAST)
|
||||
<OBJECT CABINET
|
||||
(IN CELL-EAST)
|
||||
(DESC "massive cabinet")
|
||||
<OBJECT PAST-CABINET
|
||||
(IN PAST-CELL-EAST)
|
||||
(DESC "massive cabinet")
|
||||
<OBJECT KEY
|
||||
(IN BELBOZ)
|
||||
(DESC "wrought iron key")
|
||||
<OBJECT DEAD-BOOK
|
||||
(IN CABINET)
|
||||
(DESC "moldy book")
|
||||
<ROOM GUARD-TOWER
|
||||
(IN ROOMS)
|
||||
(DESC "Guard Tower")
|
||||
(DOWN TO PRISON)
|
||||
(UP "You'll need to flap your wings harder than that.")
|
||||
<OBJECT ROC
|
||||
(DESC "roc")
|
||||
<ROOM ROC-NEST
|
||||
(IN ROOMS)
|
||||
(DESC "In Roc Nest")
|
||||
(OUT "The nest is perched on a pinnacle of rock. It's a long way down.")
|
||||
<OBJECT EGG
|
||||
(IN ROC-NEST)
|
||||
(DESC "roc egg")
|
||||
<OBJECT BABY-ROC
|
||||
(DESC "roc chick")
|
||||
<OBJECT AIR-CUBE
|
||||
(IN MOUTH)
|
||||
(DESC "cube")
|
||||
<ROOM AIR-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Air Room")
|
||||
(NORTH TO GLACIER-ROOM)
|
||||
(WEST TO BAZAAR)
|
||||
(SOUTH PER MIDAIR-EXIT) ;"EITHER WARNING OR MIDAIR"
|
||||
(DOWN PER MAGIC-BOX-EXIT)
|
||||
<ROOM GLACIER-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Glacier")
|
||||
<ROOM EMPORIUM
|
||||
(IN ROOMS)
|
||||
(DESC "Emporium")
|
||||
(WEST TO BAZAAR IF EMPORIUM-DOOR IS OPEN)
|
||||
(OUT TO BAZAAR IF EMPORIUM-DOOR IS OPEN)
|
||||
<OBJECT EMPORIUM-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "shop door")
|
||||
<OBJECT ZORKMID
|
||||
(IN MOUNTAIN-TOP)
|
||||
(DESC "gold coin")
|
||||
<OBJECT MERCHANT
|
||||
(IN EMPORIUM)
|
||||
(DESC "merchant")
|
||||
<ROOM BAZAAR
|
||||
(IN ROOMS)
|
||||
(DESC "Bazaar")
|
||||
(EAST PER EMPORIUM-EXIT)
|
||||
(IN PER EMPORIUM-EXIT)
|
||||
<OBJECT RANDOM-CARPET
|
||||
(DESC "scruffy red carpet")
|
||||
<OBJECT MAGIC-CARPET
|
||||
(DESC "beautiful blue carpet")
|
||||
<OBJECT CARPET-LABEL
|
||||
(IN MAGIC-CARPET)
|
||||
(DESC "label")
|
||||
<ROOM MIDAIR
|
||||
(IN ROOMS)
|
||||
(DESC "Midair")
|
||||
<ROOM LOST-IN-CLOUDS
|
||||
(IN ROOMS)
|
||||
(DESC "In Thick Clouds")
|
||||
<ROOM LOST-ON-LAND
|
||||
(IN ROOMS)
|
||||
(DESC "Wilderness")
|
||||
<OBJECT FIRE-CUBE
|
||||
(IN PILLAR-ROOM)
|
||||
(DESC "cube")
|
||||
<ROOM FIRE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Fire Room")
|
||||
(SOUTH TO CLIFF-TOP)
|
||||
(NORTH TO VOLCANO-ROOM)
|
||||
(EAST PER MAGIC-BOX-EXIT)
|
||||
<ROOM VOLCANO-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Volcano")
|
||||
<ROOM VOLCANO-BASE
|
||||
(IN ROOMS)
|
||||
(DESC "Volcano Base")
|
||||
<OBJECT LAVA-ROCK
|
||||
(DESC "lava fragment")
|
||||
<ROOM OUTCROPPING-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Outcropping")
|
||||
<OBJECT OUTCROPPING
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "outcropping")
|
||||
<OBJECT DARK-CUBE
|
||||
(IN OTHER-ROCK)
|
||||
(DESC "cube")
|
||||
<ROOM DARK-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Dark Room")
|
||||
(DOWN TO DARK-CAVE)
|
||||
(UP PER MAGIC-BOX-EXIT)
|
||||
<ROOM DARK-CAVE
|
||||
(IN ROOMS)
|
||||
(DESC "Dark Cave")
|
||||
(DOWN TO GRUE-CAVE)
|
||||
<ROOM GRUE-CAVE
|
||||
(IN ROOMS)
|
||||
(DESC "Grue Cave")
|
||||
(UP TO DARK-CAVE)
|
||||
(IN TO LIGHT-POOL)
|
||||
(DOWN TO LIGHT-POOL)
|
||||
<ROOM LIGHT-POOL
|
||||
(IN ROOMS)
|
||||
(DESC "Light Pool")
|
||||
(OUT TO GRUE-CAVE)
|
||||
(UP TO GRUE-CAVE)
|
||||
<ROOM PILLAR-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "On Pillar")
|
||||
(DOWN TO LIGHT-POOL)
|
||||
<OBJECT PILLAR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "pillar")
|
||||
<OBJECT MIND-CUBE
|
||||
(IN MAZE-1)
|
||||
(DESC "cube")
|
||||
<ROOM MIND-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "No Place")
|
||||
(EAST PER SCALES-ROOM-EXIT)
|
||||
(SOUTH PER PLAIN-ROOM-EXIT)
|
||||
(WEST PER MIND-BOX-EXIT)
|
||||
<ROOM INNER-VAULT
|
||||
(IN ROOMS)
|
||||
(DESC "Inner Vault")
|
||||
(OUT TO SCALES-ROOM IF VAULT-DOOR IS OPEN)
|
||||
(NORTH TO SCALES-ROOM IF VAULT-DOOR IS OPEN)
|
||||
<OBJECT VAULT-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "vault door")
|
||||
<ROOM SCALES-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Outer Vault")
|
||||
(OUT PER IRON-DOOR-EXIT)
|
||||
(NORTH PER IRON-DOOR-EXIT)
|
||||
(SOUTH TO INNER-VAULT IF VAULT-DOOR IS OPEN)
|
||||
<OBJECT IRON-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "iron door")
|
||||
<OBJECT TREASURE
|
||||
(IN INNER-VAULT)
|
||||
(DESC "treasure")
|
||||
<OBJECT JUNK
|
||||
(DESC "pile of junk")
|
||||
<OBJECT ALARM-FAIRY
|
||||
(DESC "alarm fairy")
|
||||
<OBJECT PILE-1
|
||||
(IN SCALES-ROOM)
|
||||
(DESC "first pile")
|
||||
<OBJECT PILE-2
|
||||
(IN SCALES-ROOM)
|
||||
(DESC "second pile")
|
||||
<OBJECT CUBE-1
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-2
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-3
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-4
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-5
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-6
|
||||
(IN PILE-1)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-7
|
||||
(IN PILE-2)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-8
|
||||
(IN PILE-2)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-9
|
||||
(IN PILE-2)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-10
|
||||
(IN PILE-2)
|
||||
(DESC "cube")
|
||||
<OBJECT CUBE-11
|
||||
(IN PILE-2)
|
||||
(DESC "cube")
|
||||
<ROOM PLAIN-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Plain")
|
||||
<OBJECT LINES
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "lines")
|
||||
<OBJECT ROCK
|
||||
(IN PLAIN-ROOM)
|
||||
(DESC "green eyed rock")
|
||||
<OBJECT OTHER-ROCK
|
||||
(IN PLAIN-ROOM)
|
||||
(DESC "brown eyed rock")
|
||||
<OBJECT LIGHT-CUBE
|
||||
(IN GROUPER-NEST)
|
||||
(DESC "cube")
|
||||
<ROOM LIGHT-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Light Room")
|
||||
(SOUTH PER MAGIC-BOX-EXIT)
|
||||
(WEST TO VOLCANO-BASE)
|
||||
<OBJECT LIFE-CUBE
|
||||
(IN HUT-ROOM)
|
||||
(DESC "cube")
|
||||
<ROOM LIFE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Soft Room")
|
||||
(EAST PER MAGIC-BOX-EXIT)
|
||||
(SOUTH TO MEADOW-ROOM)
|
||||
<ROOM MEADOW-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Meadow")
|
||||
<OBJECT SHEARS
|
||||
(IN MEADOW-ROOM)
|
||||
(DESC "pair of pruning shears")
|
||||
<OBJECT WEED
|
||||
(IN MEADOW-ROOM)
|
||||
(DESC "weed")
|
||||
<OBJECT DEATH-CUBE
|
||||
(IN PRISON)
|
||||
(DESC "cube")
|
||||
<ROOM DEATH-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Boneyard")
|
||||
(OUT TO BELWIT-SQUARE)
|
||||
(NORTH TO BELWIT-SQUARE)
|
||||
(WEST PER MAGIC-BOX-EXIT)
|
||||
<OBJECT CHANGE-CUBE
|
||||
(IN CHUNK)
|
||||
(DESC "cube")
|
||||
<ROOM CHANGE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Changing Room")
|
||||
(NORTH TO BARE-ROOM)
|
||||
(WEST TO MAZE-ANTEROOM)
|
||||
(EAST PER MAGIC-BOX-EXIT)
|
||||
<ROOM BARE-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Bare Room")
|
||||
<ROOM MAZE-ANTEROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Carving Room")
|
||||
(NORTH TO MAZE-9 IF MAZE-EXIT-FLAG)
|
||||
<OBJECT COMPASS-CARVING
|
||||
(IN MAZE-ANTEROOM)
|
||||
(DESC "carving")
|
||||
<OBJECT COMPASS-ROSE
|
||||
(IN BARE-ROOM)
|
||||
(DESC "compass rose")
|
||||
<OBJECT NORTH-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "north rune")
|
||||
<OBJECT EAST-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "east rune")
|
||||
<OBJECT WEST-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "west rune")
|
||||
<OBJECT SOUTH-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "south rune")
|
||||
<OBJECT NE-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "northeast rune")
|
||||
<OBJECT NW-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "northwest rune")
|
||||
<OBJECT SE-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "southeast rune")
|
||||
<OBJECT SW-RUNE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "southwest rune")
|
||||
<ROOM MAZE-1
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(SOUTH TO MAZE-4)
|
||||
(SE TO MAZE-5)
|
||||
(EAST TO MAZE-2)
|
||||
<OBJECT OCTAGONAL-HOLE
|
||||
(IN MAZE-2)
|
||||
(DESC "octagonal hole")
|
||||
<OBJECT MAZE-2-DOOR
|
||||
(IN MAZE-2)
|
||||
(DESC "alabaster plug")
|
||||
<ROOM MAZE-2
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(WEST TO MAZE-1 IF OCTAGONAL-HOLE IS OPEN)
|
||||
(SW TO MAZE-4)
|
||||
(SOUTH TO MAZE-5)
|
||||
(SE TO MAZE-6)
|
||||
(EAST TO MAZE-3)
|
||||
<ROOM MAZE-3
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(WEST TO MAZE-2)
|
||||
(SW TO MAZE-5)
|
||||
(SOUTH TO MAZE-6)
|
||||
<ROOM MAZE-4
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(NORTH TO MAZE-1)
|
||||
(NE TO MAZE-2)
|
||||
(EAST TO MAZE-5)
|
||||
(SE TO MAZE-8)
|
||||
(SOUTH TO MAZE-7)
|
||||
<ROOM MAZE-5
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(NORTH TO MAZE-2)
|
||||
(EAST TO MAZE-6)
|
||||
(SOUTH TO MAZE-8)
|
||||
(WEST TO MAZE-4)
|
||||
<ROOM MAZE-6
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(NORTH TO MAZE-3)
|
||||
(SOUTH TO MAZE-9)
|
||||
(SW TO MAZE-8)
|
||||
(WEST TO MAZE-5)
|
||||
(NW TO MAZE-2)
|
||||
<ROOM MAZE-7
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(NORTH TO MAZE-4)
|
||||
(NE TO MAZE-5)
|
||||
(EAST TO MAZE-8)
|
||||
<ROOM MAZE-8
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(WEST TO MAZE-7)
|
||||
(NW TO MAZE-4)
|
||||
(NORTH TO MAZE-5)
|
||||
(NE TO MAZE-6)
|
||||
(EAST TO MAZE-9)
|
||||
<ROOM MAZE-9
|
||||
(IN ROOMS)
|
||||
(DESC "Octagonal Room")
|
||||
(WEST TO MAZE-8)
|
||||
(NW TO MAZE-5)
|
||||
(NORTH TO MAZE-6)
|
||||
(SOUTH TO MAZE-ANTEROOM)
|
||||
<OBJECT MAGIC-CUBE
|
||||
(IN OUTCROPPING-ROOM)
|
||||
(DESC "cube")
|
||||
<ROOM MAGIC-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Magic Room")
|
||||
(NORTH TO MEADOW-ROOM)
|
||||
(EAST PER MAGIC-DOOR-EXIT)
|
||||
(SOUTH PER MAGIC-BOX-EXIT)
|
||||
<OBJECT TIME-CUBE
|
||||
(DESC "cube")
|
||||
<ROOM TIME-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Sand Room")
|
||||
(UP TO PAST-RUINS-ROOM)
|
||||
(DOWN TO PAST-CELL-EAST)
|
||||
<ROOM PAST-RUINS-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "Ruins Room")
|
||||
(NORTH "The water is too deep and cold.")
|
||||
(SOUTH "The water is too deep and cold.")
|
||||
<OBJECT SACK
|
||||
(IN PAST-RUINS-ROOM)
|
||||
(DESC "sack")
|
||||
<ROOM PAST-CELL-EAST
|
||||
(IN ROOMS)
|
||||
(DESC "Dungeon Cell")
|
||||
(SOUTH PER PAST-CELL-EAST-EXIT)
|
||||
<OBJECT CELL-DOOR
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "cell door")
|
||||
<OBJECT CONNECTIVITY-CUBE
|
||||
(IN ROC-NEST)
|
||||
(DESC "cube")
|
||||
<ROOM CONNECTIVITY-ROOM
|
||||
(IN ROOMS)
|
||||
(DESC "String Room")
|
||||
(EAST PER MAGIC-BOX-EXIT)
|
||||
(SOUTH TO RETREAT)
|
||||
<OBJECT QWORD
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "handwritten word")
|
||||
<OBJECT GLOBAL-OBJECTS
|
||||
<OBJECT LOCAL-GLOBALS
|
||||
(IN GLOBAL-OBJECTS)
|
||||
<OBJECT ROOMS
|
||||
(IN TO ROOMS)>
|
||||
<OBJECT INTNUM
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "number")
|
||||
<OBJECT PSEUDO-OBJECT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "pseudo")
|
||||
<OBJECT IT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "it")
|
||||
<OBJECT NOT-HERE-OBJECT
|
||||
(DESC "it")
|
||||
<OBJECT LIGHT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "light")
|
||||
<OBJECT GLOBAL-HOLE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "hole")
|
||||
<OBJECT CEILING
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "ceiling")
|
||||
<OBJECT ICE
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "ice")
|
||||
<OBJECT AIR
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "air")
|
||||
<OBJECT HANDS
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "your hand")
|
||||
<OBJECT HEAD
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "your head")
|
||||
<OBJECT EYES
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "your eyes")
|
||||
<OBJECT PLAYER
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "it")
|
||||
<OBJECT ME
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "yourself")
|
||||
<OBJECT GLOBAL-ROOM
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "room")
|
||||
<OBJECT NORTH-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "north wall")
|
||||
<OBJECT EAST-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "east wall")
|
||||
<OBJECT WEST-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "west wall")
|
||||
<OBJECT SOUTH-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "south wall")
|
||||
<OBJECT NE-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "northeast wall")
|
||||
<OBJECT NW-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "northwest wall")
|
||||
<OBJECT SE-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "southeast wall")
|
||||
<OBJECT SW-WALL
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "southwest wall")
|
||||
<OBJECT DIRT
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "dirt")
|
||||
<OBJECT GROUND
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "ground")
|
||||
<OBJECT CORRIDOR
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "passage")
|
||||
<OBJECT WALLS
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "wall")
|
||||
<OBJECT GLOBAL-GRUE
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "lurking grue")
|
||||
<OBJECT GRUE
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "grue")
|
||||
<OBJECT LOCAL-WATER
|
||||
(DESC "water")
|
||||
<OBJECT WATER
|
||||
(IN LOCAL-GLOBALS)
|
||||
(DESC "water")
|
||||
<ROOM RETREAT
|
||||
(IN ROOMS)
|
||||
(DESC "Enchanters' Retreat")
|
||||
<OBJECT BELBOZ
|
||||
(IN RETREAT)
|
||||
(DESC "Belboz")
|
||||
<OBJECT GLOBAL-SLEEP
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "sleep")
|
||||
<OBJECT MAGIC
|
||||
(IN GLOBAL-OBJECTS)
|
||||
(DESC "magic")
|
||||
<OBJECT KNIFE
|
||||
(IN PLAYER)
|
||||
(DESC "knife")
|
||||
<ROOM GUILD-HALL
|
||||
(IN ROOMS)
|
||||
(DESC "Guild Hall")
|
||||
(NORTH TO COUNCIL-CHAMBER)
|
||||
(SOUTH TO BELWIT-SQUARE)
|
||||
(OUT TO BELWIT-SQUARE)
|
||||
<OBJECT BREAD
|
||||
(IN GUILD-HALL)
|
||||
(DESC "chunk of rye bread")
|
||||
<OBJECT FISH
|
||||
(IN GUILD-HALL)
|
||||
(DESC "smoked fish")
|
||||
<ROOM COUNCIL-CHAMBER
|
||||
(IN ROOMS)
|
||||
(DESC "Council Chamber")
|
||||
(SOUTH TO GUILD-HALL)
|
||||
(OUT TO GUILD-HALL)
|
||||
<OBJECT SORCERER
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "sorcerer")
|
||||
<OBJECT SPEAKER
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "speaker")
|
||||
<OBJECT ORKAN
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "Orkan of Thriff")
|
||||
<OBJECT SNEFFLE
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "Sneffle")
|
||||
<OBJECT HOOBLY
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "Hoobly")
|
||||
<OBJECT GZORNENPLATZ
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "Gzornenplatz")
|
||||
<OBJECT ARDIS
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "Ardis")
|
||||
<ROOM BELWIT-SQUARE
|
||||
(IN ROOMS)
|
||||
(DESC "Belwit Square")
|
||||
(NORTH TO GUILD-HALL)
|
||||
(EAST "You wander around for a while and end up back in the square.")
|
||||
(WEST "You wander around for a while and end up back in the square.")
|
||||
(SOUTH "A remarkably surly guard blocks your way.")
|
||||
<OBJECT SHADOW
|
||||
(IN COUNCIL-CHAMBER)
|
||||
(DESC "shadowy figure")
|
||||
<OBJECT CLOUD
|
||||
(IN BELWIT-SQUARE)
|
||||
(DESC "cloud of orange smoke")
|
||||
<ROOM CASTLE
|
||||
(IN ROOMS)
|
||||
(DESC "Castle")
|
||||
<OBJECT HYPERCUBE
|
||||
(DESC "construction")
|
||||
<OBJECT SPELL-BOOK
|
||||
(IN PLAYER)
|
||||
(DESC "spell book")
|
||||
<OBJECT BLORPLE-SPELL
|
||||
(IN CASTLE) ;"so MOBY-FIND can find it"
|
||||
(DESC "blorple spell")
|
||||
<OBJECT LESOCH-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "lesoch spell")
|
||||
<OBJECT SNAVIG-SPELL
|
||||
(IN CASTLE) ;"so MOBY-FIND can find it"
|
||||
(DESC "snavig spell")
|
||||
<OBJECT GIRGOL-SCROLL
|
||||
(IN CASTLE) ;"so MOBY-FIND can find it"
|
||||
(DESC "flimsy scroll")
|
||||
<OBJECT GIRGOL-SPELL
|
||||
(IN GIRGOL-SCROLL)
|
||||
(DESC "girgol spell")
|
||||
<OBJECT JINDAK-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "jindak spell")
|
||||
<OBJECT ESPNIS-SCROLL
|
||||
(IN OGRE-BEDROOM)
|
||||
(DESC "dusty scroll")
|
||||
<OBJECT ESPNIS-SPELL
|
||||
(IN ESPNIS-SCROLL)
|
||||
(DESC "espnis spell")
|
||||
<OBJECT TINSOT-SCROLL
|
||||
(IN GLACIER-ROOM)
|
||||
(DESC "white scroll")
|
||||
<OBJECT TINSOT-SPELL
|
||||
(IN TINSOT-SCROLL)
|
||||
(DESC "tinsot spell")
|
||||
<OBJECT THROCK-SCROLL
|
||||
(IN CLIFF-MIDDLE)
|
||||
(DESC "dirty scroll")
|
||||
<OBJECT THROCK-SPELL
|
||||
(IN THROCK-SCROLL)
|
||||
(DESC "throck spell")
|
||||
<OBJECT CASKLY-SCROLL
|
||||
(IN ROC-NEST)
|
||||
(DESC "stained scroll")
|
||||
<OBJECT CASKLY-SPELL
|
||||
(IN CASKLY-SCROLL)
|
||||
(DESC "caskly spell")
|
||||
<OBJECT LISKON-SCROLL
|
||||
(IN BOTTLE)
|
||||
(DESC "damp scroll")
|
||||
<OBJECT LISKON-SPELL
|
||||
(IN LISKON-SCROLL)
|
||||
(DESC "liskon spell")
|
||||
<OBJECT MALYON-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "malyon spell")
|
||||
<OBJECT GNUSTO-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "gnusto spell")
|
||||
<OBJECT FROTZ-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "frotz spell")
|
||||
<OBJECT REZROV-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "rezrov spell")
|
||||
<OBJECT YOMIN-SPELL
|
||||
(IN SPELL-BOOK)
|
||||
(DESC "yomin spell")
|
||||
<OBJECT SPELL-COPY
|
||||
(DESC "original")
|
||||
<OBJECT BLANK-SCROLL
|
||||
(IN PAST-CABINET)
|
||||
(DESC "vellum scroll")
|
|
@ -0,0 +1,51 @@
|
|||
---Summary of magic spells---
|
||||
Earth
|
||||
Air
|
||||
Fire
|
||||
Water
|
||||
Dark/Light
|
||||
Mind
|
||||
Death/Life
|
||||
Change
|
||||
Magic
|
||||
Time
|
||||
Connectivity
|
||||
-------------------------|-----------------------
|
||||
Spell English | E A F W D I X C M T =
|
||||
-------------------------|-----------------------
|
||||
s *AIMFIZ go to person | I =
|
||||
e BLORB strong box | E M
|
||||
6 BLORPLE connections | M =
|
||||
e CLEESH newt | W C
|
||||
e EXEX haste | F T
|
||||
e *FILFRE fireworks | F D
|
||||
es FROTZ light | D C
|
||||
s FWEEP bat | A C
|
||||
s GASPAR resurrect | A X
|
||||
6 GIRGOL stop time | C T
|
||||
es GNUSTO write magic | C M
|
||||
s GOLMAC time travel | M T
|
||||
e GONDAR quench | F X
|
||||
e *GUNCHO banish | X =
|
||||
es IZYUK fly | A C
|
||||
e KREBF repair | C =
|
||||
e *KULCAD dispel | I M
|
||||
6 LESOCH wind | A F
|
||||
s MALYON animate | F X
|
||||
s MEEF wilt | W X
|
||||
e MELBOR protection | E M
|
||||
e NITFOL animal talk | I C
|
||||
e OZMOO cheat death | X T
|
||||
s PULVER dry up | F W
|
||||
es REZROV open | E C
|
||||
6 SNAVIG grue | E C
|
||||
s SWANZO exorcise | X M
|
||||
s VARDIK mind shield | E I
|
||||
e VAXUM charm | A I
|
||||
s VEZZA view future | I T
|
||||
s YOMIN mind probe | D I
|
||||
s *YONK augment | M T
|
||||
e ZIFMIA summon | I =
|
||||
-------------------------|-----------------------
|
||||
E A F W D I X C M T =
|
||||
|
221
syntax.zil
221
syntax.zil
|
@ -5,20 +5,14 @@
|
|||
<BUZZ $BUZZ A AN THE IS ARE AM AND OF THEN ALL ONE BUT EXCEPT \. \, \"
|
||||
PLEASE HERE SOME G AGAIN OOPS>
|
||||
|
||||
<SYNONYM WITH USING>
|
||||
;<SYNONYM THROUGH THRU>
|
||||
<SYNONYM ON ONTO>
|
||||
<SYNONYM IN INSIDE INTO>
|
||||
<SYNONYM UNDER BELOW BENEATH UNDERNEATH>
|
||||
<SYNONYM AROUND ALONG>
|
||||
<SYNONYM ALL BOTH>
|
||||
<PREP-SYNONYM WITH USING>
|
||||
;<PREP-SYNONYM THROUGH THRU>
|
||||
<PREP-SYNONYM ON ONTO>
|
||||
<PREP-SYNONYM IN INSIDE INTO>
|
||||
<PREP-SYNONYM UNDER BELOW BENEATH UNDERNEATH>
|
||||
<PREP-SYNONYM AROUND ALONG>
|
||||
|
||||
<SYNONYM NORTH N>
|
||||
<SYNONYM SOUTH S>
|
||||
<SYNONYM EAST E>
|
||||
<SYNONYM WEST W>
|
||||
<SYNONYM DOWN D>
|
||||
<SYNONYM UP U>
|
||||
<SYNONYM ALL BOTH>
|
||||
|
||||
\
|
||||
|
||||
|
@ -29,15 +23,15 @@
|
|||
<SYNTAX BRIEF = V-BRIEF>
|
||||
|
||||
<SYNTAX SUPER = V-SUPER-BRIEF>
|
||||
<SYNONYM SUPER SUPERBRIEF>
|
||||
<VERB-SYNONYM SUPER SUPERBRIEF>
|
||||
|
||||
<SYNTAX DIAGNOSE = V-DIAGNOSE>
|
||||
|
||||
<SYNTAX I = V-INVENTORY>
|
||||
<SYNONYM I INVENTORY>
|
||||
<VERB-SYNONYM I INVENTORY>
|
||||
|
||||
<SYNTAX QUIT = V-QUIT>
|
||||
<SYNONYM QUIT Q>
|
||||
<VERB-SYNONYM QUIT Q>
|
||||
|
||||
<SYNTAX RESTAR = V-RESTART>
|
||||
|
||||
|
@ -62,7 +56,7 @@
|
|||
|
||||
<SYNTAX ANSWER = V-ANSWER>
|
||||
<SYNTAX ANSWER OBJECT = V-REPLY>
|
||||
<SYNONYM ANSWER REPLY RESPOND>
|
||||
<VERB-SYNONYM ANSWER REPLY RESPOND>
|
||||
|
||||
<SYNTAX APPLY OBJECT (HELD MANY HAVE) TO OBJECT = V-PUT PRE-PUT>
|
||||
|
||||
|
@ -70,12 +64,12 @@
|
|||
<SYNTAX ASK OBJECT (FIND PERSON) FOR OBJECT = V-ASK-FOR PRE-ASK-FOR>
|
||||
<SYNTAX ASK ABOUT OBJECT = V-ASK-ABOUT PRE-ASK-ABOUT>
|
||||
<SYNTAX ASK OBJECT (FIND PERSON) ABOUT OBJECT = V-ASK-ABOUT PRE-ASK-ABOUT>
|
||||
<SYNONYM ASK QUERY QUIZ>
|
||||
<VERB-SYNONYM ASK QUERY QUIZ>
|
||||
|
||||
<SYNTAX ATTACK OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) = V-ATTACK>
|
||||
<SYNTAX ATTACK OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-ATTACK>
|
||||
<SYNONYM ATTACK ASSAULT FIGHT HIT STRIKE>
|
||||
<VERB-SYNONYM ATTACK ASSAULT FIGHT HIT STRIKE>
|
||||
|
||||
<SYNTAX BITE OBJECT = V-BITE>
|
||||
|
||||
|
@ -83,13 +77,13 @@
|
|||
<SYNTAX BLOW OUT OBJECT = V-LAMP-OFF>
|
||||
|
||||
<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
|
||||
<SYNONYM BOARD EMBARK RIDE>
|
||||
<VERB-SYNONYM BOARD EMBARK RIDE>
|
||||
|
||||
<SYNTAX BURN OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM HAVE) = V-BURN>
|
||||
<SYNTAX BURN DOWN OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM HAVE) = V-BURN>
|
||||
<SYNONYM BURN IGNITE>
|
||||
<VERB-SYNONYM BURN IGNITE>
|
||||
|
||||
<SYNTAX CLIMB OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-FOO>
|
||||
<SYNTAX CLIMB ON OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-CLIMB-ON>
|
||||
|
@ -99,41 +93,43 @@
|
|||
<SYNTAX CLIMB IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
|
||||
<SYNTAX CLIMB OFF OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
|
||||
<SYNTAX CLIMB OUT OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-DISEMBARK>
|
||||
<SYNONYM CLIMB SCALE>
|
||||
<VERB-SYNONYM CLIMB SCALE>
|
||||
|
||||
<SYNTAX DESCEN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
|
||||
|
||||
<SYNTAX LIE DOWN OBJECT (FIND RLANDBIT) = V-SLEEP>
|
||||
<SYNTAX LIE ON OBJECT (FIND VEHBIT) = V-BOARD>
|
||||
;<SYNONYM LIE>
|
||||
;<VERB-SYNONYM LIE>
|
||||
|
||||
<SYNTAX CLOSE OBJECT (FIND CONTBIT) (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
= V-CLOSE PRE-CLOSE>
|
||||
<SYNONYM CLOSE SHUT ZIP>
|
||||
<VERB-SYNONYM CLOSE SHUT ZIP>
|
||||
|
||||
<SYNTAX COMPARE OBJECT TO OBJECT = V-COMPARE>
|
||||
<SYNTAX COMPARE OBJECT WITH OBJECT = V-COMPARE>
|
||||
|
||||
<SYNTAX COUNT OBJECT = V-COUNT>
|
||||
<SYNTAX COUNT OBJECT IN OBJECT = V-COUNT>
|
||||
;<SYNONYM COUNT>
|
||||
;<VERB-SYNONYM COUNT>
|
||||
|
||||
<SYNTAX CROSS OBJECT = V-CROSS>
|
||||
<SYNONYM CROSS FORD TRAVERSE>
|
||||
<VERB-SYNONYM CROSS FORD TRAVERSE>
|
||||
|
||||
<SYNTAX CUT OBJECT WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
|
||||
<SYNTAX CUT THROUGH OBJECT WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD) = V-CUT>
|
||||
<SYNONYM CUT SLICE SLASH SEVER SPLIT DIVIDE PRUNE>
|
||||
<SYNTAX CUT OBJECT
|
||||
WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD HAVE) = V-CUT>
|
||||
<SYNTAX CUT THROUGH OBJECT
|
||||
WITH OBJECT (FIND WEAPONBIT) (CARRIED HELD HAVE) = V-CUT>
|
||||
<VERB-SYNONYM CUT SLICE SLASH SEVER SPLIT DIVIDE PRUNE>
|
||||
|
||||
<SYNTAX SHIT = V-CURSE>
|
||||
<SYNONYM SHIT DAMN FUCK>
|
||||
<VERB-SYNONYM SHIT DAMN FUCK>
|
||||
|
||||
<SYNTAX CRACK OBJECT (ON-GROUND IN-ROOM) = V-MUNG>
|
||||
<SYNTAX CRACK OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
|
||||
WITH OBJECT (HELD CARRIED TAKE) = V-MUNG>
|
||||
<SYNTAX CRACK DOWN OBJECT (ON-GROUND IN-ROOM HELD CARRIED)
|
||||
WITH OBJECT (HELD CARRIED TAKE) = V-MUNG>
|
||||
<SYNONYM CRACK DESTROY BREAK SMASH WRECK SCRATCH>
|
||||
<VERB-SYNONYM CRACK DESTROY BREAK SMASH WRECK SCRATCH>
|
||||
|
||||
<SYNTAX DIG IN OBJECT = V-DIG>
|
||||
<SYNTAX DIG WITH OBJECT = V-DIG>
|
||||
|
@ -142,31 +138,31 @@
|
|||
WITH OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE) = V-DIG>
|
||||
<SYNTAX DIG IN OBJECT (ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (FIND TOOLBIT) (HELD CARRIED HAVE) = V-DIG>
|
||||
<SYNONYM DIG EXCAVATE>
|
||||
<VERB-SYNONYM DIG EXCAVATE>
|
||||
|
||||
<SYNTAX DISEMBARK = V-DISEMBARK>
|
||||
<SYNTAX DISEMBARK OBJECT (ON-GROUND IN-ROOM) = V-DISEMBARK>
|
||||
<SYNONYM DISEMBARK DEBARK>
|
||||
<VERB-SYNONYM DISEMBARK DEBARK>
|
||||
|
||||
<SYNTAX DRINK OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-DRINK>
|
||||
<SYNTAX DRINK FROM OBJECT (HELD CARRIED) = V-DRINK-FROM>
|
||||
<SYNONYM DRINK SIP SWALLOW>
|
||||
<VERB-SYNONYM DRINK SIP SWALLOW>
|
||||
|
||||
<SYNTAX DROP OBJECT (HELD MANY HAVE) = V-DROP PRE-DROP>
|
||||
<SYNTAX DROP OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
|
||||
<SYNTAX DROP OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
|
||||
<SYNTAX DROP OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
|
||||
<SYNONYM DROP RELEASE DUMP>
|
||||
<VERB-SYNONYM DROP RELEASE DUMP>
|
||||
|
||||
<SYNTAX EAT OBJECT (HELD CARRIED ON-GROUND IN-ROOM MANY) = V-EAT>
|
||||
<SYNONYM EAT CONSUME TASTE ;INGEST GOBBLE>
|
||||
<VERB-SYNONYM EAT CONSUME TASTE ;INGEST GOBBLE>
|
||||
|
||||
<SYNTAX ENTER = V-ENTER>
|
||||
<SYNTAX ENTER OBJECT = V-THROUGH>
|
||||
;<SYNTAX ENTER = V-ENTER>
|
||||
<SYNTAX ENTER OBJECT (FIND RLANDBIT) = V-THROUGH>
|
||||
|
||||
<SYNTAX EXIT = V-EXIT>
|
||||
<SYNTAX EXIT OBJECT = V-EXIT>
|
||||
<SYNONYM EXIT DEPART WITHDRAW>
|
||||
;<SYNTAX EXIT = V-EXIT>
|
||||
<SYNTAX EXIT OBJECT (FIND RLANDBIT) = V-EXIT>
|
||||
<VERB-SYNONYM EXIT DEPART WITHDRAW>
|
||||
|
||||
<SYNTAX EXAMINE OBJECT (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
= V-EXAMINE PRE-EXAMINE>
|
||||
|
@ -175,16 +171,16 @@
|
|||
<SYNTAX EXAMINE ON OBJECT (HELD CARRIED IN-ROOM ON-GROUND)
|
||||
= V-LOOK-INSIDE>
|
||||
<SYNTAX EXAMINE FOR OBJECT = V-FIND>
|
||||
<SYNONYM EXAMINE INSPECT DESCRIBE CHECK OBSERVE WATCH>
|
||||
<VERB-SYNONYM EXAMINE INSPECT DESCRIBE CHECK OBSERVE WATCH>
|
||||
|
||||
;<SYNTAX EXORCISE OBJECT = V-EXORCISE>
|
||||
;<SYNTAX EXORCISE OUT OBJECT (FIND PERSON) = V-EXORCISE>
|
||||
;<SYNTAX EXORCISE AWAY OBJECT (FIND PERSON) = V-EXORCISE>
|
||||
;<SYNONYM EXORCISE BANISH DRIVE>
|
||||
;<VERB-SYNONYM EXORCISE BANISH DRIVE>
|
||||
|
||||
<SYNTAX EXTINGUISH OBJECT
|
||||
(MANY HELD CARRIED ON-GROUND IN-ROOM TAKE HAVE) = V-LAMP-OFF>
|
||||
;<SYNONYM EXTINGUISH DOUSE>
|
||||
;<VERB-SYNONYM EXTINGUISH DOUSE>
|
||||
|
||||
<SYNTAX FILL OBJECT (FIND CONTBIT) (HELD TAKE HAVE) = V-FILL>
|
||||
<SYNTAX FILL OBJECT (FIND CONTBIT) (HELD TAKE HAVE)
|
||||
|
@ -193,17 +189,18 @@
|
|||
AT OBJECT = V-FILL>
|
||||
|
||||
<SYNTAX FIND OBJECT = V-FIND>
|
||||
;<SYNONYM FIND SEEK SEE>
|
||||
;<VERB-SYNONYM FIND SEEK SEE>
|
||||
|
||||
<SYNTAX FLY = V-FLY>
|
||||
<SYNTAX FLY OBJECT = V-FLY>
|
||||
<SYNONYM FLY LAUNCH>
|
||||
|
||||
<SYNTAX FOLLOW = V-FOLLOW>
|
||||
<SYNTAX FOLLOW OBJECT = V-FOLLOW>
|
||||
<SYNONYM FOLLOW PURSUE CHASE>
|
||||
<VERB-SYNONYM FOLLOW PURSUE CHASE>
|
||||
|
||||
<SYNTAX FORGET OBJECT = V-FORGET>
|
||||
<SYNONYM FORGET UNLEARN ;UNMEMORIZE>
|
||||
<VERB-SYNONYM FORGET UNLEARN ;UNMEMORIZE>
|
||||
|
||||
<SYNTAX GIVE OBJECT (MANY HELD HAVE)
|
||||
TO OBJECT (FIND PERSON) (ON-GROUND) = V-GIVE PRE-GIVE>
|
||||
|
@ -212,15 +209,15 @@
|
|||
<SYNTAX GIVE OBJECT (FIND PERSON) (ON-GROUND) WITH OBJECT (MANY HELD HAVE)
|
||||
= V-SGIVE PRE-SGIVE>
|
||||
<SYNTAX GIVE OBJECT FOR OBJECT = V-OFFER>
|
||||
<SYNONYM GIVE HAND OFFER FEED ;PRESENT>
|
||||
<VERB-SYNONYM GIVE HAND OFFER FEED ;PRESENT>
|
||||
|
||||
<SYNTAX HELLO = V-HELLO>
|
||||
<SYNTAX HELLO OBJECT = V-HELLO>
|
||||
<SYNONYM HELLO HI ;GREETINGS>
|
||||
<VERB-SYNONYM HELLO HI ;GREETINGS>
|
||||
|
||||
<SYNTAX HELP = V-HELP>
|
||||
<SYNTAX HELP OBJECT = V-HELP>
|
||||
<SYNONYM HELP HINT ;HINTS>
|
||||
<VERB-SYNONYM HELP HINT ;HINTS>
|
||||
|
||||
<SYNTAX HIDE = V-HIDE>
|
||||
<SYNTAX HIDE OBJECT (HELD HAVE) = V-HIDE>
|
||||
|
@ -229,7 +226,7 @@
|
|||
<SYNTAX HIDE OBJECT (HELD HAVE) FROM OBJECT = V-HIDE>
|
||||
<SYNTAX HIDE IN OBJECT = V-BOARD>
|
||||
<SYNTAX HIDE FROM OBJECT = V-HIDE-FROM>
|
||||
<SYNONYM HIDE CONCEAL ;STASH>
|
||||
<VERB-SYNONYM HIDE CONCEAL ;STASH>
|
||||
|
||||
<SYNTAX INFLAT OBJECT = V-INFLATE>
|
||||
|
||||
|
@ -242,21 +239,21 @@
|
|||
<SYNTAX JUMP OFF OBJECT = V-LEAP>
|
||||
<SYNTAX JUMP ON OBJECT = V-CLIMB-ON>
|
||||
<SYNTAX JUMP TO OBJECT = V-CLIMB-ON>
|
||||
<SYNONYM JUMP LEAP DIVE>
|
||||
<VERB-SYNONYM JUMP LEAP DIVE>
|
||||
|
||||
<SYNTAX KICK OBJECT = V-KICK PRE-OPEN>
|
||||
|
||||
<SYNTAX KILL OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) = V-KILL>
|
||||
<SYNTAX KILL OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-KILL>
|
||||
<SYNONYM KILL MURDER SLAY STAB>
|
||||
<VERB-SYNONYM KILL MURDER SLAY STAB>
|
||||
|
||||
<SYNTAX KISS OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) = V-KISS>
|
||||
|
||||
<SYNTAX KNOCK AT OBJECT = V-KNOCK>
|
||||
<SYNTAX KNOCK ON OBJECT = V-KNOCK>
|
||||
<SYNTAX KNOCK DOWN OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) = V-ATTACK>
|
||||
<SYNONYM KNOCK RAP>
|
||||
<VERB-SYNONYM KNOCK RAP>
|
||||
|
||||
<SYNTAX LAND = V-LAND>
|
||||
|
||||
|
@ -270,7 +267,7 @@
|
|||
<SYNTAX LISTEN FOR OBJECT = V-LISTEN>
|
||||
|
||||
<SYNTAX LOCK OBJECT (ON-GROUND IN-ROOM) WITH OBJECT
|
||||
(HELD CARRIED ON-GROUND IN-ROOM) = V-LOCK>
|
||||
(HELD CARRIED HAVE) = V-LOCK>
|
||||
|
||||
<SYNTAX LOOK = V-LOOK>
|
||||
<SYNTAX LOOK AROUND OBJECT (FIND RLANDBIT) = V-LOOK>
|
||||
|
@ -289,19 +286,19 @@
|
|||
<SYNTAX LOOK UP OBJECT IN OBJECT = V-WHAT>
|
||||
<SYNTAX LOOK FOR OBJECT = V-FIND>
|
||||
<SYNTAX LOOK OBJECT = V-CHASTISE>
|
||||
<SYNONYM LOOK L STARE GAZE>
|
||||
<VERB-SYNONYM LOOK L STARE GAZE>
|
||||
|
||||
<SYNTAX LOWER OBJECT = V-LOWER>
|
||||
<SYNTAX LOWER OBJECT IN OBJECT = V-LOWER-INTO>
|
||||
<SYNTAX LOWER OBJECT DOWN OBJECT = V-LOWER-INTO>
|
||||
|
||||
<SYNTAX MELT OBJECT WITH OBJECT (HELD CARRIED ON-GROUND IN-ROOM) = V-MELT>
|
||||
<SYNONYM MELT THAW>
|
||||
<VERB-SYNONYM MELT THAW>
|
||||
|
||||
<SYNTAX MOVE = V-WALK-AROUND>
|
||||
<SYNTAX MOVE OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
|
||||
<SYNTAX ROLL UP OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
|
||||
<SYNONYM MOVE SHIFT>
|
||||
<VERB-SYNONYM MOVE SHIFT>
|
||||
|
||||
<SYNTAX PAY OBJECT (MANY HELD HAVE) = V-PAY>
|
||||
<SYNTAX PAY OBJECT (FIND PERSON) WITH OBJECT (MANY HELD HAVE) = V-PAY>
|
||||
|
@ -313,7 +310,7 @@
|
|||
<SYNTAX PULL OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
|
||||
<SYNTAX PULL ON OBJECT (ON-GROUND IN-ROOM) = V-MOVE>
|
||||
<SYNTAX PULL DOWN OBJECT = V-LOWER>
|
||||
<SYNONYM PULL TUG DRAG>
|
||||
<VERB-SYNONYM PULL TUG DRAG>
|
||||
|
||||
<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
= V-OPEN PRE-OPEN>
|
||||
|
@ -322,32 +319,32 @@
|
|||
<SYNTAX OPEN OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE)
|
||||
= V-OPEN PRE-OPEN>
|
||||
<SYNONYM OPEN UNZIP>
|
||||
<VERB-SYNONYM OPEN UNZIP>
|
||||
|
||||
<SYNTAX PICK OBJECT = V-PICK>
|
||||
<SYNTAX PICK OBJECT WITH OBJECT = V-PICK>
|
||||
<SYNTAX PICK UP OBJECT (FIND TAKEBIT) (ON-GROUND MANY) = V-TAKE PRE-TAKE>
|
||||
|
||||
<SYNTAX PLUG OBJECT WITH OBJECT = V-PLUG>
|
||||
<SYNONYM PLUG CLOG BLOCK>
|
||||
<VERB-SYNONYM PLUG CLOG BLOCK>
|
||||
|
||||
<SYNTAX REPAIR OBJECT = V-REPAIR>
|
||||
<SYNTAX REPAIR OBJECT WITH OBJECT = V-REPAIR>
|
||||
<SYNONYM REPAIR PATCH FIX>
|
||||
<VERB-SYNONYM REPAIR PATCH FIX>
|
||||
|
||||
<SYNTAX POINT AT OBJECT = V-POINT>
|
||||
<SYNTAX POINT TO OBJECT = V-POINT>
|
||||
<SYNONYM POINT GESTURE>
|
||||
<VERB-SYNONYM POINT GESTURE>
|
||||
|
||||
<SYNTAX POKE OBJECT (FIND PERSON) (ON-GROUND IN-ROOM)
|
||||
WITH OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-MUNG>
|
||||
<SYNONYM POKE JAB BLIND>
|
||||
<VERB-SYNONYM POKE JAB BLIND>
|
||||
|
||||
<SYNTAX POUR OBJECT (HELD CARRIED) = V-POUR>
|
||||
<SYNTAX POUR OBJECT (HELD CARRIED) IN OBJECT = V-POUR>
|
||||
<SYNTAX POUR OBJECT (HELD CARRIED) ON OBJECT = V-POUR>
|
||||
<SYNTAX POUR OBJECT (HELD CARRIED) FROM OBJECT = V-POUR>
|
||||
<SYNONYM POUR EMPTY SPILL>
|
||||
<VERB-SYNONYM POUR EMPTY SPILL>
|
||||
|
||||
<SYNTAX PUMP UP OBJECT = V-PUMP>
|
||||
<SYNTAX PUMP UP OBJECT WITH OBJECT = V-PUMP>
|
||||
|
@ -357,7 +354,7 @@
|
|||
<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) OBJECT = V-PUSH-TO>
|
||||
<SYNTAX PUSH OBJECT (IN-ROOM ON-GROUND) TO OBJECT = V-PUSH-TO>
|
||||
<SYNTAX PUSH OBJECT UNDER OBJECT = V-PUT-UNDER>
|
||||
<SYNONYM PUSH PRESS SHOVE>
|
||||
<VERB-SYNONYM PUSH PRESS SHOVE>
|
||||
|
||||
<SYNTAX PUT OBJECT (HELD MANY HAVE) IN OBJECT = V-PUT PRE-PUT>
|
||||
<SYNTAX PUT OBJECT (HELD MANY HAVE) DOWN OBJECT = V-PUT PRE-PUT>
|
||||
|
@ -368,11 +365,11 @@
|
|||
<SYNTAX PUT OBJECT (HELD MANY HAVE) UNDER OBJECT = V-PUT-UNDER>
|
||||
<SYNTAX PUT ON OBJECT (IN-ROOM ON-GROUND CARRIED MANY) = V-WEAR>
|
||||
<SYNTAX PUT OBJECT (HELD MANY HAVE) BEHIND OBJECT = V-PUT-BEHIND>
|
||||
<SYNONYM PUT STUFF INSERT PLACE LAY FIT WEDGE>
|
||||
<VERB-SYNONYM PUT STUFF INSERT PLACE LAY FIT WEDGE>
|
||||
|
||||
<SYNTAX RAISE OBJECT = V-RAISE>
|
||||
<SYNTAX RAISE UP OBJECT = V-RAISE>
|
||||
<SYNONYM RAISE LIFT>
|
||||
<VERB-SYNONYM RAISE LIFT>
|
||||
|
||||
<SYNTAX REACH IN OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
|
||||
|
||||
|
@ -382,31 +379,31 @@
|
|||
THROUGH OBJECT = V-READ PRE-READ>
|
||||
<SYNTAX READ ABOUT OBJECT = V-WHAT>
|
||||
<SYNTAX READ ABOUT OBJECT IN OBJECT = V-WHAT>
|
||||
;<SYNONYM READ>
|
||||
;<VERB-SYNONYM READ>
|
||||
|
||||
<SYNTAX REMOVE OBJECT = V-TAKE-OFF>
|
||||
<SYNONYM REMOVE SHED>
|
||||
<VERB-SYNONYM REMOVE SHED>
|
||||
|
||||
<SYNTAX SAY TO OBJECT (FIND PERSON) (IN-ROOM) = V-TELL>
|
||||
<SYNTAX SAY = V-SAY>
|
||||
<SYNONYM SAY TALK CALL>
|
||||
<VERB-SYNONYM SAY TALK CALL>
|
||||
|
||||
<SYNTAX SEARCH OBJECT = V-SEARCH>
|
||||
<SYNTAX SEARCH IN OBJECT = V-SEARCH>
|
||||
<SYNTAX SEARCH FOR OBJECT = V-FIND>
|
||||
<SYNONYM SEARCH RUMMAGE ;FRISK>
|
||||
<VERB-SYNONYM SEARCH RUMMAGE ;FRISK>
|
||||
|
||||
<SYNTAX SEND FOR OBJECT = V-SEND>
|
||||
|
||||
<SYNTAX SHAKE OBJECT = V-SHAKE>
|
||||
<SYNTAX SHAKE OBJECT AT OBJECT = V-WAVE-AT>
|
||||
<SYNONYM SHAKE ;JOSTLE RATTLE>
|
||||
<VERB-SYNONYM SHAKE ;JOSTLE RATTLE>
|
||||
|
||||
<SYNTAX SHARPEN OBJECT WITH OBJECT (FIND TOOLBIT) (HAVE) = V-SHARPEN>
|
||||
;<SYNONYM SHARPEN HONE>
|
||||
;<VERB-SYNONYM SHARPEN HONE>
|
||||
|
||||
<SYNTAX SHOOT OBJECT = V-SHOOT>
|
||||
<SYNONYM SHOOT FIRE>
|
||||
<VERB-SYNONYM SHOOT FIRE>
|
||||
|
||||
<SYNTAX SHOW OBJECT TO OBJECT = V-SHOW>
|
||||
<SYNTAX SHOW OBJECT OBJECT = V-SSHOW PRE-SSHOW>
|
||||
|
@ -415,7 +412,7 @@
|
|||
<SYNTAX SIT DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-SIT>
|
||||
<SYNTAX SIT IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
|
||||
<SYNTAX SIT AT OBJECT = V-SIT>
|
||||
<SYNONYM SIT REST MEDITATE>
|
||||
<VERB-SYNONYM SIT REST MEDITATE>
|
||||
|
||||
<SYNTAX SLEEP = V-SLEEP>
|
||||
<SYNTAX SLEEP IN OBJECT (IN-ROOM ON-GROUND) = V-BOARD>
|
||||
|
@ -430,16 +427,16 @@
|
|||
<SYNTAX SNOOZE ON OBJECT (IN-ROOM ON-GROUND) = V-BOARD>
|
||||
|
||||
<SYNTAX SKIP = V-SKIP>
|
||||
<SYNONYM SKIP HOP CAVORT GAMBOL>
|
||||
<VERB-SYNONYM SKIP HOP CAVORT GAMBOL>
|
||||
|
||||
<SYNTAX SLIDE OBJECT UNDER OBJECT = V-PUT-UNDER>
|
||||
|
||||
<SYNTAX SMELL = V-SMELL>
|
||||
<SYNTAX SMELL OBJECT = V-SMELL>
|
||||
<SYNONYM SMELL SNIFF>
|
||||
<VERB-SYNONYM SMELL SNIFF>
|
||||
|
||||
<SYNTAX SPIN OBJECT = V-SPIN>
|
||||
<SYNONYM SPIN WHIRL ROTATE>
|
||||
<VERB-SYNONYM SPIN WHIRL ROTATE>
|
||||
|
||||
<SYNTAX SQUEEZE OBJECT = V-SQUEEZE>
|
||||
<SYNTAX SQUEEZE OBJECT (HELD MANY HAVE) ON OBJECT = V-PUT PRE-PUT>
|
||||
|
@ -447,16 +444,16 @@
|
|||
<SYNTAX STAND = V-STAND>
|
||||
<SYNTAX STAND UP OBJECT (FIND RLANDBIT) = V-STAND>
|
||||
<SYNTAX STAND ON OBJECT = V-STAND-ON>
|
||||
<SYNONYM STAND RISE>
|
||||
<VERB-SYNONYM STAND RISE>
|
||||
|
||||
<SYNTAX SWIM = V-SWIM>
|
||||
<SYNTAX SWIM IN OBJECT = V-SWIM>
|
||||
<SYNONYM SWIM BATHE WADE>
|
||||
<VERB-SYNONYM SWIM BATHE WADE>
|
||||
|
||||
<SYNTAX SWING OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE) = V-SWING>
|
||||
<SYNTAX SWING OBJECT (FIND WEAPONBIT) (HELD CARRIED HAVE)
|
||||
AT OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) = V-SWING>
|
||||
<SYNONYM SWING THRUST>
|
||||
<VERB-SYNONYM SWING THRUST>
|
||||
|
||||
<SYNTAX TAKE OBJECT (FIND TAKEBIT) (ON-GROUND IN-ROOM MANY) = V-TAKE PRE-TAKE>
|
||||
<SYNTAX TAKE IN OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-BOARD PRE-BOARD>
|
||||
|
@ -472,7 +469,7 @@
|
|||
<SYNTAX TAKE OBJECT (FIND TAKEBIT) (IN-ROOM CARRIED MANY)
|
||||
IN OBJECT = V-TAKE PRE-TAKE>
|
||||
<SYNTAX TAKE OFF OBJECT = V-TAKE-OFF>
|
||||
<SYNONYM TAKE GRAB CATCH GET HOLD CARRY SNATCH>
|
||||
<VERB-SYNONYM TAKE GRAB CATCH GET HOLD CARRY SNATCH>
|
||||
|
||||
<SYNTAX TELL OBJECT (FIND PERSON) (IN-ROOM) = V-TELL>
|
||||
<SYNTAX TELL OBJECT ABOUT OBJECT = V-TELL-ABOUT PRE-TELL-ABOUT>
|
||||
|
@ -481,7 +478,7 @@
|
|||
|
||||
<SYNTAX THANK OBJECT = V-THANK>
|
||||
<SYNTAX THANK = V-THANK>
|
||||
<SYNONYM THANK THANKS>
|
||||
<VERB-SYNONYM THANK THANKS>
|
||||
|
||||
<SYNTAX THROW OBJECT (HELD CARRIED HAVE)
|
||||
AT OBJECT (ON-GROUND IN-ROOM) = V-THROW>
|
||||
|
@ -494,22 +491,22 @@
|
|||
<SYNTAX THROW OBJECT (HELD MANY HAVE) DOWN OBJECT = V-THROW>
|
||||
<SYNTAX THROW OBJECT (HELD MANY HAVE) IN OBJECT = V-THROW>
|
||||
<SYNTAX THROW OBJECT (HELD MANY HAVE) ON OBJECT = V-THROW>
|
||||
<SYNONYM THROW HURL TOSS PITCH>
|
||||
<VERB-SYNONYM THROW HURL TOSS PITCH>
|
||||
|
||||
<SYNTAX TIE OBJECT TO OBJECT = V-TIE>
|
||||
<SYNTAX TIE UP OBJECT (FIND PERSON) (ON-GROUND IN-ROOM) WITH OBJECT
|
||||
(FIND TOOLBIT) (ON-GROUND IN-ROOM HELD CARRIED HAVE) = V-TIE-UP>
|
||||
<SYNONYM TIE FASTEN ATTACH>
|
||||
<VERB-SYNONYM TIE FASTEN ATTACH>
|
||||
|
||||
<SYNTAX TIME = V-TIME>
|
||||
<SYNONYM TIME T>
|
||||
<VERB-SYNONYM TIME T>
|
||||
|
||||
<SYNTAX TORTUR OBJECT = V-TORTURE>
|
||||
|
||||
<SYNTAX TOUCH OBJECT = V-RUB>
|
||||
<SYNTAX TOUCH OBJECT WITH OBJECT = V-RUB>
|
||||
<SYNTAX TOUCH OBJECT TO OBJECT = V-SRUB PRE-SRUB>
|
||||
<SYNONYM TOUCH FEEL PAT PET RUB>
|
||||
<VERB-SYNONYM TOUCH FEEL PAT PET RUB>
|
||||
|
||||
<SYNTAX TURN OBJECT TO OBJECT = V-TURN>
|
||||
<SYNTAX TURN OBJECT = V-TURN>
|
||||
|
@ -519,22 +516,22 @@
|
|||
<SYNTAX TURN OFF OBJECT
|
||||
(HELD CARRIED ON-GROUND IN-ROOM TAKE) = V-LAMP-OFF>
|
||||
<SYNTAX TURN OVER OBJECT = V-TURN-OVER>
|
||||
<SYNONYM TURN FLIP SHUT SET>
|
||||
<VERB-SYNONYM TURN FLIP ;SHUT SET>
|
||||
|
||||
<SYNTAX UNLOCK OBJECT (ON-GROUND IN-ROOM)
|
||||
WITH OBJECT = V-UNLOCK>
|
||||
WITH OBJECT (HELD CARRIED HAVE) = V-UNLOCK>
|
||||
|
||||
<SYNTAX UNTIE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) = V-UNTIE>
|
||||
<SYNTAX UNTIE OBJECT (ON-GROUND IN-ROOM HELD CARRIED) FROM OBJECT = V-UNTIE>
|
||||
<SYNONYM UNTIE FREE UNFASTEN UNATTACH>
|
||||
<VERB-SYNONYM UNTIE FREE UNFASTEN UNATTACH>
|
||||
|
||||
<SYNTAX WAIT = V-WAIT>
|
||||
<SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
|
||||
<SYNONYM WAIT Z>
|
||||
<VERB-SYNONYM WAIT Z>
|
||||
|
||||
<SYNTAX WAKE OBJECT (FIND RLANDBIT) = V-ALARM>
|
||||
<SYNTAX WAKE UP OBJECT (FIND RLANDBIT) = V-ALARM>
|
||||
<SYNONYM WAKE AWAKE SURPRISE STARTLE ROUSE>
|
||||
<VERB-SYNONYM WAKE AWAKE SURPRISE STARTLE ROUSE>
|
||||
|
||||
<SYNTAX WALK = V-WALK-AROUND>
|
||||
<SYNTAX WALK OBJECT = V-WALK>
|
||||
|
@ -546,32 +543,32 @@
|
|||
<SYNTAX WALK UP OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-UP>
|
||||
<SYNTAX WALK DOWN OBJECT (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
|
||||
<SYNTAX WALK TO OBJECT = V-WALK-TO>
|
||||
<SYNONYM WALK GO RUN PROCEED STEP>
|
||||
<VERB-SYNONYM WALK GO RUN PROCEED STEP>
|
||||
|
||||
<SYNTAX WAVE OBJECT (HELD CARRIED) = V-WAVE>
|
||||
<SYNTAX WAVE AT OBJECT = V-WAVE-AT>
|
||||
<SYNTAX WAVE TO OBJECT = V-WAVE-AT>
|
||||
<SYNTAX YELL AT OBJECT = V-WAVE-AT>
|
||||
<SYNTAX WAVE OBJECT (HELD CARRIED) AT OBJECT = V-WAVE>
|
||||
<SYNONYM WAVE ;MOTION BECKON>
|
||||
<VERB-SYNONYM WAVE ;MOTION BECKON>
|
||||
|
||||
<SYNTAX WEAR OBJECT = V-WEAR>
|
||||
|
||||
<SYNTAX WHAT OBJECT = V-WHAT>
|
||||
;<SYNONYM WHAT WHATS>
|
||||
;<VERB-SYNONYM WHAT WHATS>
|
||||
|
||||
<SYNTAX WHERE = V-WHERE>
|
||||
<SYNTAX WHERE OBJECT = V-WHERE>
|
||||
;<SYNONYM WHERE WHERES>
|
||||
;<VERB-SYNONYM WHERE WHERES>
|
||||
|
||||
<SYNTAX WHO = V-WHO>
|
||||
<SYNTAX WHO OBJECT = V-WHO>
|
||||
;<SYNONYM WHO WHOS>
|
||||
;<VERB-SYNONYM WHO WHOS>
|
||||
|
||||
<SYNTAX YAWN = V-YAWN>
|
||||
|
||||
<SYNTAX YELL = V-YELL>
|
||||
<SYNONYM YELL SCREAM SHOUT>
|
||||
<VERB-SYNONYM YELL SCREAM SHOUT>
|
||||
|
||||
\^L
|
||||
|
||||
|
@ -580,10 +577,10 @@
|
|||
<SYNTAX CAST OBJECT = V-CAST>
|
||||
<SYNTAX CAST OBJECT ON OBJECT = V-CAST>
|
||||
<SYNTAX CAST OBJECT AT OBJECT = V-CAST>
|
||||
<SYNONYM CAST INCANT INVOKE>
|
||||
<VERB-SYNONYM CAST INCANT INVOKE>
|
||||
|
||||
<SYNTAX LEARN OBJECT (HELD CARRIED MANY) = V-LEARN>
|
||||
<SYNONYM LEARN MEMORIZE ;KNOW>
|
||||
<VERB-SYNONYM LEARN MEMORIZE ;KNOW>
|
||||
|
||||
<SYNTAX SPELLS = V-SPELLS>
|
||||
|
||||
|
@ -635,23 +632,24 @@
|
|||
WITH OBJECT (FIND TOOLBIT) = V-WRITE-ON PRE-WRITE-ON>
|
||||
<SYNTAX WRITE IN OBJECT (HELD CARRIED)
|
||||
WITH OBJECT (FIND TOOLBIT) = V-WRITE-ON PRE-WRITE-ON>
|
||||
<SYNONYM WRITE PRINT INSCRIBE SCRIBE>
|
||||
<VERB-SYNONYM WRITE PRINT INSCRIBE SCRIBE>
|
||||
|
||||
<SYNTAX PRY OBJECT WITH OBJECT = V-PRY>
|
||||
<SYNTAX PRY OUT OBJECT WITH OBJECT = V-PRY>
|
||||
<VERB-SYNONYM PRY LEVER LOOSEN>
|
||||
|
||||
<SYNTAX PLANT OBJECT = V-PLANT>
|
||||
<SYNTAX PLANT OBJECT IN OBJECT = V-PLANT>
|
||||
<SYNONYM PLANT BURY>
|
||||
<VERB-SYNONYM PLANT BURY>
|
||||
|
||||
<SYNTAX YES = V-YES>
|
||||
<SYNONYM YES Y OKAY>
|
||||
<VERB-SYNONYM YES Y OKAY>
|
||||
<SYNTAX NO = V-NO>
|
||||
<SYNONYM NO NOPE>
|
||||
<VERB-SYNONYM NO NOPE>
|
||||
|
||||
<SYNTAX BUY OBJECT FROM OBJECT (FIND PERSON) = V-BUY>
|
||||
<SYNTAX BUY OBJECT WITH OBJECT = V-BUY>
|
||||
<SYNONYM BUY PURCHASE>
|
||||
<VERB-SYNONYM BUY PURCHASE>
|
||||
|
||||
<SYNTAX SELL OBJECT TO OBJECT (FIND PERSON) = V-SELL>
|
||||
<SYNTAX SELL OBJECT OBJECT = V-SSELL PRE-SSELL>
|
||||
|
@ -665,12 +663,12 @@
|
|||
<SYNTAX LURK IN OBJECT = V-SLAVER>
|
||||
|
||||
<SYNTAX SLAVER = V-SLAVER>
|
||||
<SYNONYM SLAVER DROOL SALIVATE GURGLE>
|
||||
<VERB-SYNONYM SLAVER DROOL SALIVATE GURGLE>
|
||||
|
||||
<SYNTAX ERASE OBJECT = V-ERASE>
|
||||
|
||||
<SYNTAX ADMIRE OBJECT (FIND PERSON) = V-ADMIRE>
|
||||
<SYNONYM ADMIRE COMPLIMENT>
|
||||
<VERB-SYNONYM ADMIRE COMPLIMENT>
|
||||
|
||||
<SYNTAX COPY OBJECT (FIND READBIT)
|
||||
WITH OBJECT (FIND TOOLBIT) = V-COPY>
|
||||
|
@ -681,4 +679,9 @@
|
|||
<SYNTAX COPY OBJECT (FIND READBIT) = V-COPY>
|
||||
|
||||
<SYNTAX BARGAIN WITH OBJECT (FIND PERSON) = V-BARGAIN>
|
||||
<SYNONYM BARGAIN HAGGLE>
|
||||
<VERB-SYNONYM BARGAIN HAGGLE>
|
||||
|
||||
<SYNTAX LOVE OBJECT (FIND PERSON) = V-EMPATHIZE>
|
||||
<SYNTAX PRAY FOR OBJECT (FIND PERSON) = V-EMPATHIZE>
|
||||
<SYNTAX SYMPATHIZE WITH OBJECT (FIND PERSON) = V-EMPATHIZE>
|
||||
<VERB-SYNONYM SYMPATHIZE EMPATHIZE>
|
160
verbs.zil
160
verbs.zil
|
@ -187,30 +187,29 @@
|
|||
|
||||
<GLOBAL FAILED "Failed.|">
|
||||
|
||||
<ROUTINE FINISH ("OPTIONAL" (REPEATING <>))
|
||||
<ROUTINE FINISH ("AUX" WRD)
|
||||
<V-SCORE>
|
||||
<CRLF>
|
||||
%<DEBUG-CODE <TELL-C-INTS>>
|
||||
<COND (<NOT .REPEATING>
|
||||
<V-SCORE>
|
||||
<CRLF>)>
|
||||
<TELL
|
||||
<REPEAT ()
|
||||
<CRLF>
|
||||
<TELL
|
||||
"Would you like to restart the game from the beginning, restore a saved
|
||||
game position, or end this session of the game?|
|
||||
(Type RESTART, RESTORE, or QUIT):|
|
||||
>">
|
||||
<READ ,P-INBUF ,P-LEXV>
|
||||
<COND (<EQUAL? <GET ,P-LEXV 1> ,W?RESTAR>
|
||||
<RESTART>
|
||||
<TELL ,FAILED>
|
||||
<FINISH T>)
|
||||
(<EQUAL? <GET ,P-LEXV 1> ,W?RESTOR>
|
||||
<COND (<RESTORE>
|
||||
<TELL ,OKAY>)
|
||||
(T
|
||||
<TELL ,FAILED>
|
||||
<FINISH T>)>)
|
||||
(T
|
||||
<QUIT>)>>
|
||||
<READ ,P-INBUF ,P-LEXV>
|
||||
<SET WRD <GET ,P-LEXV 1>>
|
||||
<COND (<EQUAL? .WRD ,W?RESTAR>
|
||||
<RESTART>
|
||||
<TELL ,FAILED>)
|
||||
(<EQUAL? .WRD ,W?RESTOR>
|
||||
<COND (<RESTORE>
|
||||
<TELL ,OKAY>)
|
||||
(T
|
||||
<TELL ,FAILED>)>)
|
||||
(<EQUAL? .WRD ,W?QUIT ,W?Q>
|
||||
<QUIT>)>>>
|
||||
|
||||
<ROUTINE YES? ()
|
||||
<PRINTI "?|
|
||||
|
@ -276,21 +275,17 @@ game position, or end this session of the game?|
|
|||
<GLOBAL COPR-NOTICE
|
||||
" a transcript of interaction with SPELLBREAKER.">
|
||||
|
||||
<ROUTINE V-VERSION ("AUX" (CNT 17))
|
||||
<TELL <COND (<PROB 99> "SPELLBREAKER")
|
||||
(ELSE "MAGE")>
|
||||
"|
|
||||
<ROUTINE V-VERSION ()
|
||||
<TELL
|
||||
"SPELLBREAKER|
|
||||
An Interactive Fantasy|
|
||||
Copyright (c) 1985 by Infocom, Inc. All rights reserved.|
|
||||
SPELLBREAKER is a trademark of Infocom, Inc.|
|
||||
Release ">
|
||||
<PRINTN <BAND <GET 0 1> *3777*>>
|
||||
<TELL " / Serial number ">
|
||||
<REPEAT ()
|
||||
<COND (<G? <SET CNT <+ .CNT 1>> 23>
|
||||
<RETURN>)
|
||||
(T
|
||||
<PRINTC <GETB 0 .CNT>>)>>
|
||||
<DO (CNT 18 23)
|
||||
<PRINTC <GETB 0 .CNT>>>
|
||||
<CRLF>>
|
||||
|
||||
<ROUTINE V-$VERIFY ()
|
||||
|
@ -344,14 +339,11 @@ Release ">
|
|||
<PERFORM ,V?TELL ,PRSO>
|
||||
<RTRUE>)>>
|
||||
|
||||
<ROUTINE FIND-IN (WHERE WHAT "AUX" W)
|
||||
<SET W <FIRST? .WHERE>>
|
||||
<REPEAT ()
|
||||
<COND (<NOT .W> <RFALSE>)
|
||||
(<AND <FSET? .W .WHAT>
|
||||
<VISIBLE? .W>>
|
||||
<RETURN .W>)>
|
||||
<SET W <NEXT? .W>>>>
|
||||
<ROUTINE FIND-IN (WHERE WHAT)
|
||||
<MAP-CONTENTS (W .WHERE)
|
||||
(END <RFALSE>)
|
||||
<COND (<AND <FSET? .W .WHAT> <VISIBLE? .W>>
|
||||
<RETURN .W>)>>>
|
||||
|
||||
"V-ASK-FOR -- transform into PRSO, GIVE PRSI TO ME"
|
||||
|
||||
|
@ -380,7 +372,10 @@ Release ">
|
|||
|
||||
<ROUTINE PRE-BOARD ("AUX" AV)
|
||||
<SET AV <LOC ,WINNER>>
|
||||
<COND (<FSET? ,PRSO ,VEHBIT>
|
||||
<COND (<OR <FSET? ,PRSO ,VEHBIT>
|
||||
<AND <EQUAL? ,PRSO ,PSEUDO-OBJECT>
|
||||
<EQUAL? <GETP ,PSEUDO-OBJECT ,P?ACTION>
|
||||
,POOL-PSEUDO>>>
|
||||
<COND (<EQUAL? .AV ,PRSO>
|
||||
<TELL ,YOU-ARE ,PERIOD>)
|
||||
(<AND <FSET? .AV ,VEHBIT>
|
||||
|
@ -590,14 +585,6 @@ the luncheon.">
|
|||
(ELSE
|
||||
<TELL ,NOW-BLACK>)>)>>
|
||||
|
||||
<ROUTINE V-ENTER ("AUX" VEHICLE)
|
||||
<COND (<SET VEHICLE <FIND-IN ,HERE ,VEHBIT>>
|
||||
<PERFORM ,V?BOARD .VEHICLE>
|
||||
<RTRUE>)
|
||||
(<GETPT ,HERE ,P?IN>
|
||||
<DO-WALK ,P?IN>)
|
||||
(ELSE <V-WALK-AROUND>)>>
|
||||
|
||||
<ROUTINE PRE-EXAMINE ()
|
||||
<COND (<NOT ,LIT>
|
||||
<TELL ,TOO-DARK>)>>
|
||||
|
@ -626,7 +613,8 @@ is glowing brightly." CR>)
|
|||
<TELL "You see nothing special about "><THE-PRSO>>
|
||||
|
||||
<ROUTINE V-EXIT ()
|
||||
<COND (<AND ,PRSO <FSET? ,PRSO ,VEHBIT>>
|
||||
<COND (<AND <NOT <EQUAL? ,PRSO ,ROOMS>>
|
||||
<FSET? ,PRSO ,VEHBIT>>
|
||||
<PERFORM ,V?DISEMBARK ,PRSO>
|
||||
<RTRUE>)
|
||||
(<GETPT ,HERE ,P?OUT>
|
||||
|
@ -965,7 +953,8 @@ before you leaped.">)
|
|||
<ROUTINE V-OPEN ("AUX" F STR)
|
||||
<COND (<OR <AND <NOT <FSET? ,PRSO ,CONTBIT>>
|
||||
<NOT <FSET? ,PRSO ,DOORBIT>>>
|
||||
<FSET? ,PRSO ,SCROLLBIT>>
|
||||
<FSET? ,PRSO ,SCROLLBIT>
|
||||
<FSET? ,PRSO ,SURFACEBIT>>
|
||||
<TELL "You must tell me how to do that to ">
|
||||
<A-PRSO>)
|
||||
(<NOT <EQUAL? <GETP ,PRSO ,P?CAPACITY> 0>>
|
||||
|
@ -1021,23 +1010,19 @@ before you leaped.">)
|
|||
(ELSE
|
||||
<YOU-CANT-X-THAT "pour">)>>
|
||||
|
||||
<ROUTINE EMPTY-ALL (FROM TO "AUX" (F <FIRST? .FROM>) N R)
|
||||
<COND (<NOT .F>
|
||||
<ROUTINE EMPTY-ALL (FROM TO "AUX" F N R)
|
||||
<COND (<NOT <FIRST? .FROM>>
|
||||
<TELL CTHE .FROM " is empty." CR>)
|
||||
(ELSE
|
||||
<REPEAT ()
|
||||
<COND (.F
|
||||
<SET N <NEXT? .F>>
|
||||
<TELL D .F ": ">
|
||||
<SET R
|
||||
<COND (.TO
|
||||
<PERFORM ,V?PUT .F .TO>)
|
||||
(ELSE
|
||||
<PERFORM ,V?DROP .F>)>>
|
||||
<COND (<EQUAL? .R ,M-FATAL> <RTRUE>)
|
||||
(ELSE <SET F .N>)>)
|
||||
(T
|
||||
<RTRUE>)>>)>>
|
||||
<MAP-CONTENTS (F N .FROM)
|
||||
<TELL D .F ": ">
|
||||
<SET R
|
||||
<COND (.TO
|
||||
<PERFORM ,V?PUT .F .TO>)
|
||||
(ELSE
|
||||
<PERFORM ,V?DROP .F>)>>
|
||||
<COND (<EQUAL? .R ,M-FATAL> <RTRUE>)>>
|
||||
<RTRUE>)>>
|
||||
|
||||
<ROUTINE V-PUMP ()
|
||||
<TELL "It's not clear how." CR>>
|
||||
|
@ -1300,6 +1285,11 @@ the ogre destroys you.">)
|
|||
don't know how much it hurt.">)
|
||||
(ELSE
|
||||
<IMPOSSIBLE-TO-SLEEP>)>)
|
||||
(<AND <NOT .FORCE?>
|
||||
<OR <IN? ,PLAYER ,CABINET>
|
||||
<IN? ,PLAYER ,PAST-CABINET>>>
|
||||
<TELL
|
||||
"It's too cramped in here to sleep comfortably." CR>)
|
||||
(T
|
||||
<COND (<EQUAL? ,HERE ,GLACIER-ROOM>
|
||||
<SETG FREEZE-COUNT 9>)>
|
||||
|
@ -1330,8 +1320,10 @@ don't know how much it hurt.">)
|
|||
(<IN? ,PLAYER ,ZIPPER>
|
||||
<TELL "in the nothingness">)
|
||||
(ELSE
|
||||
<MOVE ,PLAYER ,HERE>
|
||||
<TELL "on the floor">)>
|
||||
<TELL "on the floor">
|
||||
<COND (<NOT <IN? ,PLAYER ,HERE>>
|
||||
<TELL " next to " THE <LOC ,PLAYER>>
|
||||
<MOVE ,PLAYER ,HERE>)>)>
|
||||
<TELL " and">)>
|
||||
<TELL " drift off, renewing your powers and
|
||||
refreshing your mind. Time passes as you snore blissfully." CR CR>
|
||||
|
@ -1354,7 +1346,6 @@ possessions!">)>)>
|
|||
<WEAR-OFF-SPELLS>
|
||||
<RTRUE>)>>
|
||||
|
||||
|
||||
<GLOBAL DREAMS
|
||||
<LTABLE 0
|
||||
"a group of mages clustered around a magic mirror in which
|
||||
|
@ -1483,7 +1474,7 @@ smokes."
|
|||
|
||||
<ROUTINE NOT-IN-VEHICLE? ("AUX" (V <LOC ,WINNER>))
|
||||
<AND ,PRSO
|
||||
<NOT <EQUAL? ,PRSO .V>>
|
||||
<NOT <EQUAL? ,PRSO .V ,ROOMS>>
|
||||
<NOT <HELD? ,PRSO>>
|
||||
<NOT <HELD? ,PRSO .V>>>>
|
||||
|
||||
|
@ -1514,13 +1505,22 @@ smokes."
|
|||
<END-QUOTE>)>>
|
||||
|
||||
<ROUTINE V-THANK ()
|
||||
<COND (<FSET? ,PRSO ,PERSON>
|
||||
<COND (<NOT ,PRSO>
|
||||
<TELL "You're welcome, I guess." CR>)
|
||||
(<FSET? ,PRSO ,PERSON>
|
||||
<UNINTERESTED ,PRSO>)
|
||||
(T
|
||||
<HOW-DO-YOU> <A-PRSO?>)>>
|
||||
|
||||
<ROUTINE V-THROUGH ("AUX" M)
|
||||
<COND (<FSET? ,PRSO ,VEHBIT>
|
||||
<COND (<EQUAL? ,PRSO ,ROOMS>
|
||||
<COND (<SET M <FIND-IN ,HERE ,VEHBIT>>
|
||||
<PERFORM ,V?BOARD .M>
|
||||
<RTRUE>)
|
||||
(<GETPT ,HERE ,P?IN>
|
||||
<DO-WALK ,P?IN>)
|
||||
(ELSE <V-WALK-AROUND>)>)
|
||||
(<FSET? ,PRSO ,VEHBIT>
|
||||
<PERFORM ,V?BOARD ,PRSO>
|
||||
<RTRUE>)
|
||||
(<NOT <FSET? ,PRSO ,TAKEBIT>>
|
||||
|
@ -1760,21 +1760,17 @@ to take it as well." CR>)>
|
|||
<RTRUE>)>>
|
||||
|
||||
<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
|
||||
<COND (<SET X <FIRST? .OBJ>>
|
||||
<REPEAT ()
|
||||
<SET CNT <+ .CNT 1>>
|
||||
<COND (<NOT <SET X <NEXT? .X>>>
|
||||
<RETURN>)>>)>
|
||||
.CNT>
|
||||
<MAP-CONTENTS (X .OBJ)
|
||||
(END <RETURN .CNT>)
|
||||
<SET CNT <+ .CNT 1>>>>
|
||||
|
||||
;"WEIGHT: Gets sum of SIZEs of supplied object, recursing to nth level."
|
||||
|
||||
<ROUTINE WEIGHT (OBJ "AUX" CONT (WT 0))
|
||||
<COND (<EQUAL? .OBJ ,ZIPPER ,SPELL-BOOK> T)
|
||||
(<SET CONT <FIRST? .OBJ>>
|
||||
<REPEAT ()
|
||||
<SET WT <+ .WT <WEIGHT .CONT>>>
|
||||
<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
|
||||
(ELSE
|
||||
<MAP-CONTENTS (CONT .OBJ)
|
||||
<SET WT <+ .WT <WEIGHT .CONT>>>>)>
|
||||
<+ .WT <GETP .OBJ ,P?SIZE>>>
|
||||
|
||||
^\L
|
||||
|
@ -2033,6 +2029,8 @@ long description (fdesc or ldesc), otherwise will print short."
|
|||
<ROUTINE JIGS-UP ("OPTIONAL" (DESC <>))
|
||||
<SETG WINNER ,PLAYER>
|
||||
<COND (.DESC <TELL .DESC>)>
|
||||
<COND (<EQUAL? ,HERE ,INNER-VAULT ,SCALES-ROOM>
|
||||
<MAKE-JUNK>)>
|
||||
<FORGET-ALL>
|
||||
<SETG FALLING? <>>
|
||||
<TELL "|
|
||||
|
@ -2089,6 +2087,8 @@ start all over with someone else. All this effort, too.">>
|
|||
<COND (<AND <FSET? .F ,TAKEBIT>
|
||||
<NOT <EQUAL? .F .IGNORE>>>
|
||||
<SET 1ST? T>
|
||||
<COND (<IN? ,PLAYER .F>
|
||||
<MOVE ,PLAYER ,HERE>)>
|
||||
<COND (.TO <MOVE .F .TO>)
|
||||
(ELSE <REMOVE .F>)>)>
|
||||
<SET F .N>)
|
||||
|
@ -2137,6 +2137,9 @@ start all over with someone else. All this effort, too.">>
|
|||
(<AND <SEE-INSIDE? .L>
|
||||
<VISIBLE? .L>>
|
||||
<RTRUE>)
|
||||
(<AND <EQUAL? ,HERE ,VOLCANO-ROOM>
|
||||
<EQUAL? .L ,OUTCROPPING-ROOM>>
|
||||
<RTRUE>)
|
||||
(T
|
||||
<RFALSE>)>>
|
||||
|
||||
|
@ -2388,3 +2391,6 @@ CTHE ,PRSI ,HAS-NO-SURFACE ,PERIOD>>
|
|||
<COND (<EQUAL? ,PRSO ,ROOMS>
|
||||
<TELL "Don't get a sore neck." CR>)
|
||||
(ELSE <PERFORM ,V?WHAT ,PRSO> <RTRUE>)>>
|
||||
|
||||
<ROUTINE V-EMPATHIZE ()
|
||||
<TELL "A nice sentiment." CR>>
|
||||
|
|
|
@ -0,0 +1,378 @@
|
|||
-date- -rel- -size- -pre- -obj- -glo- -voc-
|
||||
5/20 13 66554 16454 179 140 638
|
||||
5/20 14 66520 16469 179 140 638
|
||||
5/21 14 68452 16598 181 141 644
|
||||
5/21 15 68494 16645 183 141 645
|
||||
5/22 17 70064 16673 182 145 647
|
||||
5/22 20 71098 16836 184 148 653
|
||||
5/23 21 72396 16946 186 149 657
|
||||
5/23 22 74738 17027 188 154 658
|
||||
5/24 23 74748 17032 188 155 658
|
||||
5/24 24 75162 17073 189 155 660
|
||||
5/24 25 76512 17306 190 158 676
|
||||
5/24 26 76610 17303 190 158 676
|
||||
5/24 27 77102 17333 190 158 679
|
||||
5/24 28 80376 17830 204 159 691
|
||||
5/24 29 80394 17845 204 159 691
|
||||
5/24 30 81454 17926 206 159 694
|
||||
5/25 31 81598 17961 207 159 695
|
||||
5/29 32 82386 18032 208 160 695
|
||||
5/30 33 84666 18220 213 161 700
|
||||
5/30 34 84664 18222 213 162 700
|
||||
5/31 35 86940 18386 217 161 707
|
||||
5/31 36 86950 18388 217 162 707
|
||||
5/31 37 87834 18423 218 164 707
|
||||
6/03 38 89926 18762 227 167 718
|
||||
6/03 39 89814 18763 227 166 719
|
||||
6/03 40 89812 18763 227 166 719
|
||||
6/03 41 90480 18797 228 166 719
|
||||
6/04 42 90952 18859 229 165 723
|
||||
6/04 43 91660 18889 230 165 722
|
||||
6/04 44 93598 19263 238 169 737
|
||||
6/05 45 95128 19435 242 170 745
|
||||
6/06 46 95388 19486 243 170 746
|
||||
6/06 47 95610 19494 243 170 747
|
||||
6/07 48 96604 19688 245 170 759
|
||||
6/07 49 96612 19695 245 170 760
|
||||
6/07 50 97764 19759 245 170 763
|
||||
6/07 51 97760 19776 245 170 764
|
||||
6/10 52 98206 19844 246 170 768
|
||||
6/10 52 98204 19844 246 170 768
|
||||
6/10 53 98314 19856 246 170 768
|
||||
6/11 54 98410 19856 246 170 768
|
||||
6/11 55 99286 19853 246 172 764
|
||||
6/11 56 99278 19846 246 172 763
|
||||
6/12 57 99292 19848 246 173 763
|
||||
6/12 58 99324 19848 246 173 763
|
||||
6/12 59 99298 19857 246 173 764
|
||||
6/12 59 99306 19857 246 173 764
|
||||
6/12 59 99324 19857 246 173 764
|
||||
6/12 59 99336 19869 246 173 764
|
||||
6/12 59 99330 19869 246 173 764
|
||||
6/12 59 99334 19869 246 173 764
|
||||
6/12 60 99330 19858 245 173 764
|
||||
6/13 61 99682 19918 245 174 768
|
||||
6/13 62 99682 19918 245 174 768
|
||||
6/13 63 99682 19918 245 174 768
|
||||
6/13 64 101206 19957 245 175 768
|
||||
6/13 65 101204 19959 245 176 768
|
||||
6/14 66 102492 20096 247 176 772
|
||||
6/14 66 102492 20096 247 176 772
|
||||
6/14 67 102490 20096 247 176 772
|
||||
6/14 68 102616 20096 247 176 772
|
||||
6/14 69 102618 20098 247 176 772
|
||||
6/15 70 103690 20241 247 176 778
|
||||
6/15 71 103754 20248 247 177 778
|
||||
6/15 72 103436 20312 247 177 778
|
||||
6/15 73 103530 20316 247 177 778
|
||||
6/17 74 104230 20393 247 177 779
|
||||
6/17 74 105386 20439 247 177 780
|
||||
6/17 75 106402 20519 247 177 783
|
||||
6/17 75 106406 20521 247 178 783
|
||||
6/18 75 106406 20521 247 178 783
|
||||
6/18 76 107214 20526 247 178 783
|
||||
6/18 76 107212 20526 247 178 783
|
||||
6/18 77 109802 20603 248 178 788
|
||||
6/18 77 109796 20603 248 178 788
|
||||
6/19 77 109796 20603 248 178 788
|
||||
6/19 78 110120 20594 247 178 788
|
||||
6/19 78 110932 20630 247 177 791
|
||||
6/19 78 110930 20630 247 177 791
|
||||
6/20 78 110930 20630 247 177 791
|
||||
6/20 78 110930 20630 247 177 791
|
||||
6/20 79 111590 20623 247 176 791
|
||||
6/20 79 111590 20623 247 176 791
|
||||
6/20 79 111592 20623 247 176 791
|
||||
6/20 80 111840 20646 247 176 792
|
||||
6/21 81 112946 20746 247 179 797
|
||||
6/24 82 113810 20806 247 179 801
|
||||
6/24 82 113808 20806 247 179 801
|
||||
6/24 82 113804 20806 247 179 801
|
||||
6/24 82 113804 20806 247 179 801
|
||||
6/24 82 115522 20970 249 180 804
|
||||
6/25 82 115530 20970 249 180 804
|
||||
6/25 83 116110 21010 249 180 806
|
||||
6/25 84 116840 21170 250 180 807
|
||||
6/26 85 117186 21171 250 180 807
|
||||
6/26 86 117324 21173 250 181 807
|
||||
6/27 87 117962 21238 250 181 810
|
||||
6/27 87 118220 21238 250 181 810
|
||||
6/28 88 118510 21242 250 180 810
|
||||
6/28 89 118742 21266 250 181 811
|
||||
6/28 89 118742 21266 250 181 811
|
||||
6/28 89 119128 21582 250 181 811
|
||||
6/28 89 119164 21582 250 181 811
|
||||
7/01 90 119526 21493 252 183 811
|
||||
7/02 91 119850 21495 252 184 811
|
||||
7/02 92 119902 21517 252 184 812
|
||||
7/02 92 119904 21517 252 184 812
|
||||
7/02 92 120224 21540 252 184 813
|
||||
7/02 92 120222 21540 252 184 813
|
||||
7/02 92 120220 21537 252 184 813
|
||||
7/03 93 120306 21537 252 184 813
|
||||
7/03 93 123774 24789 252 184 813
|
||||
7/03 93 121664 22273 252 184 851
|
||||
7/03 93 122132 22273 252 184 851
|
||||
7/03 93 122134 22266 252 184 850
|
||||
7/05 94 123278 22301 252 185 852
|
||||
7/05 94 123282 22301 252 185 852
|
||||
7/08 95 123368 22299 252 184 852
|
||||
7/08 96 126010 22431 251 186 860
|
||||
7/08 96 125974 22431 251 186 860
|
||||
7/10 97 131730 22627 251 194 869
|
||||
7/10 97 131656 22691 251 194 869
|
||||
7/10 97 131082 22619 251 192 867
|
||||
7/10 97 131018 22619 251 192 867
|
||||
7/10 98 130818 22659 252 194 867
|
||||
7/11 99 130224 22661 252 198 867
|
||||
7/11 99 130236 22661 252 198 867
|
||||
7/11 99 130236 22661 252 198 867
|
||||
7/11 100 130246 22661 252 198 867
|
||||
7/11 101 129610 22445 252 200 867
|
||||
7/12 102 130336 22574 254 202 869
|
||||
7/12 102 130334 22574 254 202 869
|
||||
7/12 103 130442 22574 254 202 869
|
||||
7/15 103 130442 22574 254 202 869
|
||||
7/15 104 130686 22568 254 201 869
|
||||
7/15 104 130694 22568 254 201 869
|
||||
7/16 105 130758 22564 254 202 870
|
||||
7/17 106 130514 22511 254 205 869
|
||||
7/17 107 130546 22550 254 204 871
|
||||
7/17 107 130544 22550 254 204 871
|
||||
7/17 107 130610 22552 254 205 871
|
||||
7/18 108 130730 22552 254 205 871
|
||||
7/18 108 130954 22581 254 205 873
|
||||
7/18 108 130990 22573 254 205 873
|
||||
7/18 109 131048 22573 254 205 873
|
||||
7/19 110 131282 22587 254 212 873
|
||||
7/19 110 131096 22587 254 212 873
|
||||
7/19 110 130966 22587 254 212 873
|
||||
7/19 110 131066 22621 254 220 873
|
||||
7/22 111 130498 22629 254 230 873
|
||||
7/22 111 130496 22629 254 230 873
|
||||
7/24 112 130702 22597 253 229 871
|
||||
7/24 112 130688 22597 253 229 871
|
||||
7/26 113 130978 23380 253 239 915
|
||||
7/26 113 131222 23452 254 238 916
|
||||
7/26 113 131284 23448 254 238 916
|
||||
7/26 113 130554 23415 254 236 917
|
||||
7/26 114 130696 23406 254 236 918
|
||||
7/29 115 130916 23411 254 236 918
|
||||
7/29 115 129882 23276 254 233 912
|
||||
7/30 115 130880 23408 254 238 917
|
||||
7/30 116 130274 23262 254 237 917
|
||||
7/31 117 130342 23267 254 238 917
|
||||
7/31 117 129094 23127 254 234 911
|
||||
8/01 117 129036 23127 254 234 911
|
||||
8/01 117 128898 23129 254 235 911
|
||||
8/01 118 128954 23138 254 235 912
|
||||
8/01 118 128952 23138 254 235 912
|
||||
8/01 118 128964 23138 254 235 912
|
||||
8/01 119 130266 23278 254 239 918
|
||||
8/01 119 130266 23278 254 239 918
|
||||
8/01 119 130266 23278 254 239 918
|
||||
8/01 120 130266 23278 254 239 918
|
||||
8/01 119 130266 23278 254 239 918
|
||||
8/01 120 130254 23278 254 239 918
|
||||
8/01 120 130224 23278 254 239 918
|
||||
8/01 120 130222 23278 254 239 918
|
||||
8/02 121 128872 23143 254 236 912
|
||||
8/02 121 128870 23143 254 236 912
|
||||
8/03 122 128878 23145 254 237 912
|
||||
8/05 122 128930 23155 254 238 913
|
||||
8/05 123 128960 23223 254 235 913
|
||||
8/06 124 130374 23369 254 239 919
|
||||
8/07 124 130410 23375 254 241 919
|
||||
8/07 124 130404 23375 254 240 919
|
||||
8/08 125 130494 23389 254 240 920
|
||||
8/09 126 130494 23389 254 240 920
|
||||
8/10 126 130514 22411 254 240 920
|
||||
8/12 126 130514 22411 254 240 920
|
||||
8/12 126 130744 22413 254 240 920
|
||||
8/12 126 130742 22413 254 240 920
|
||||
8/13 127 131332 22427 254 240 920
|
||||
8/13 127 131064 22427 254 240 920
|
||||
8/15 128 131130 22464 254 240 924
|
||||
8/15 128 130946 22466 254 239 924
|
||||
8/15 129 131068 22478 254 239 924
|
||||
8/16 130 131088 22476 254 240 924
|
||||
8/16 130 131048 22271 254 240 889
|
||||
8/19 130 131058 22271 254 240 889
|
||||
8/19 131 131058 22271 254 240 889
|
||||
8/19 131 131060 22262 253 240 889
|
||||
8/19 131 131058 22271 254 240 889
|
||||
8/19 131 130750 22274 252 240 895
|
||||
8/19 131 130904 22279 252 240 895
|
||||
8/20 132 130970 22269 251 240 898
|
||||
8/20 132 128294 22269 251 240 898
|
||||
8/20 132 128294 22269 251 240 898
|
||||
8/20 132 130644 22269 251 240 898
|
||||
8/20 132 130656 22269 251 240 898
|
||||
8/20 132 131396 22298 251 240 900
|
||||
8/20 132 131396 22298 251 240 900
|
||||
8/21 132 130410 22210 251 239 897
|
||||
8/21 132 130410 22210 251 239 897
|
||||
8/21 132 130410 22210 251 239 897
|
||||
8/21 133 130410 22210 251 239 897
|
||||
8/21 133 130446 22210 251 239 897
|
||||
8/21 133 130492 22251 251 240 900
|
||||
8/22 133 130502 22243 251 240 899
|
||||
8/22 134 130764 22278 251 240 909
|
||||
8/22 134 130722 22259 251 240 907
|
||||
8/22 134 130706 22243 251 240 905
|
||||
8/23 135 129090 22085 251 235 899
|
||||
8/23 135 129274 22065 252 235 898
|
||||
8/23 135 129126 22057 252 235 897
|
||||
8/23 135 129126 22057 252 235 897
|
||||
8/26 136 129214 22064 252 235 898
|
||||
8/26 136 129214 22064 252 235 898
|
||||
8/26 136 129214 22064 252 235 898
|
||||
8/26 137 129068 22063 252 235 898
|
||||
8/26 137 129022 22066 252 235 898
|
||||
8/27 138 128992 22089 252 236 900
|
||||
8/27 139 129214 22069 252 236 899
|
||||
8/27 139 129166 22065 252 236 899
|
||||
8/28 139 128904 22066 252 236 899
|
||||
8/28 139 129034 22086 252 236 901
|
||||
8/28 139 128988 22086 252 236 901
|
||||
8/29 140 128988 22086 252 236 901
|
||||
8/29 140 129300 22131 252 237 904
|
||||
8/30 141 129404 22122 251 237 906
|
||||
8/30 141 129456 22125 251 237 906
|
||||
9/03 142 129698 22156 251 237 910
|
||||
9/03 142 129700 22158 251 237 910
|
||||
9/03 143 129700 22158 251 237 910
|
||||
9/04 143 129746 22172 251 237 911
|
||||
9/04 143 129628 22172 251 237 911
|
||||
9/04 143 129628 22172 251 237 911
|
||||
9/04 144 129768 22194 251 237 912
|
||||
9/05 144 129256 22197 251 237 912
|
||||
9/06 144 128592 22124 251 238 905
|
||||
9/09 145 129302 22197 251 238 911
|
||||
9/09 145 129102 22195 251 237 911
|
||||
9/09 146 129374 22184 251 237 909
|
||||
9/09 146 129422 22136 251 237 909
|
||||
9/09 146 129432 22136 251 237 909
|
||||
9/09 146 129378 22118 251 237 909
|
||||
9/09 146 129378 22118 251 237 909
|
||||
9/09 146 129198 22136 251 237 909
|
||||
9/09 146 129198 22136 251 237 909
|
||||
9/10 147 129318 22112 251 237 912
|
||||
9/10 148 128916 22056 249 237 911
|
||||
9/11 149 128796 22066 249 238 910
|
||||
9/11 150 128950 22068 249 238 910
|
||||
9/11 151 128950 22064 249 238 910
|
||||
9/11 152 128540 21747 249 238 869
|
||||
9/12 153 128542 21747 249 238 869
|
||||
9/12 54 128634 21747 249 238 869
|
||||
9/12 53 128588 21747 249 238 869
|
||||
9/12 54 128432 21657 249 235 862
|
||||
9/12 55 128438 21665 249 235 862
|
||||
9/13 56 128428 21665 249 235 862
|
||||
9/13 56 128496 21665 249 235 862
|
||||
9/13 56 128502 21665 249 235 862
|
||||
9/13 56 128442 21665 249 235 862
|
||||
9/13 57 128426 21665 249 235 862
|
||||
9/13 58 128506 21672 249 235 863
|
||||
9/13 59 128504 21672 249 235 863
|
||||
9/13 59 128512 21674 249 236 863
|
||||
9/13 60 128496 21653 249 236 860
|
||||
9/16 61 128628 21661 249 236 861
|
||||
9/16 62 128474 21546 249 236 844
|
||||
9/16 62 128474 21546 249 236 844
|
||||
9/16 62 128474 21546 249 236 844
|
||||
9/16 62 128474 21546 249 236 844
|
||||
9/16 63 128480 21546 249 236 844
|
||||
9/17 63 128480 21546 249 236 844
|
||||
9/19 64 128480 21546 249 236 844
|
||||
9/19 64 128156 21540 249 236 844
|
||||
9/20 64 128156 21540 249 236 844
|
||||
9/20 64 128156 21540 249 236 844
|
||||
10/25 64 128480 0 249 236 844
|
||||
10/25 64 128156 0 249 236 844
|
||||
10/25 64 128480 0 249 236 844
|
||||
10/25 64 136390 0 249 236 844
|
||||
10/25 64 128156 0 249 236 844
|
||||
10/25 64 128156 0 249 236 844
|
||||
10/30 65 128156 0 249 236 844
|
||||
10/30 65 128156 0 249 236 844
|
||||
11/04 65 128156 0 249 236 844
|
||||
11/04 65 128156 0 249 236 844
|
||||
11/05 65 128156 0 249 236 844
|
||||
11/05 65 128156 21540 249 236 844
|
||||
11/07 65 128168 21540 249 236 844
|
||||
11/07 65 128168 21540 249 236 844
|
||||
11/08 66 128168 21540 249 236 844
|
||||
11/08 66 128168 21540 249 236 844
|
||||
11/08 66 128168 21540 249 236 844
|
||||
11/08 66 128168 0 249 236 844
|
||||
11/08 66 128168 21540 249 236 844
|
||||
11/11 66 128168 21540 249 236 844
|
||||
11/11 66 128168 21540 249 236 844
|
||||
11/11 66 128164 0 249 236 844
|
||||
11/11 66 128142 21540 249 236 844
|
||||
11/26 67 128148 21540 249 236 844
|
||||
11/26 67 128148 21540 249 236 844
|
||||
11/26 68 128148 21540 249 236 844
|
||||
11/26 69 128148 21540 249 236 844
|
||||
12/16 69 128148 21540 249 236 844
|
||||
12/16 69 128148 21540 249 236 844
|
||||
1/29 69 128148 21540 249 236 844
|
||||
1/30 70 128148 21540 249 236 844
|
||||
1/30 70 128148 21540 249 236 844
|
||||
1/31 70 128120 21511 248 236 844
|
||||
2/28 71 128548 21515 248 237 845
|
||||
2/28 71 128546 21515 248 237 845
|
||||
2/28 71 128556 21515 248 237 845
|
||||
3/05 71 128638 21515 248 237 845
|
||||
3/05 71 128554 21515 248 237 845
|
||||
3/07 71 128780 21563 248 237 845
|
||||
3/07 71 128602 21563 248 237 845
|
||||
3/07 71 128550 21511 248 237 845
|
||||
3/13 71 128622 21511 248 237 845
|
||||
3/14 71 128548 21511 248 237 845
|
||||
3/14 71 128520 21511 248 237 845
|
||||
3/17 71 128424 21511 248 237 845
|
||||
3/17 71 128460 21511 248 237 845
|
||||
3/28 71 128508 21511 248 237 845
|
||||
4/03 72 128498 21511 248 237 845
|
||||
4/03 73 128498 21511 248 237 845
|
||||
4/09 74 128498 21511 248 237 845
|
||||
4/17 75 128498 21511 248 237 845
|
||||
4/17 76 128498 21511 248 237 845
|
||||
4/17 77 128498 21511 248 237 845
|
||||
4/17 78 128498 21511 248 237 845
|
||||
4/17 79 128498 21511 248 237 845
|
||||
4/17 80 128498 21511 248 237 845
|
||||
4/17 81 128498 21511 248 237 845
|
||||
4/17 82 128498 21511 248 237 845
|
||||
4/17 83 128498 21511 248 237 845
|
||||
4/17 84 128498 21511 248 237 845
|
||||
4/18 75 128498 21511 248 237 845
|
||||
4/18 76 128498 21511 248 237 845
|
||||
4/18 77 128498 21511 248 237 845
|
||||
5/27 77 128498 21511 248 237 845
|
||||
5/27 78 128520 21511 248 237 845
|
||||
7/07 79 128498 21511 248 237 845
|
||||
7/08 79 128748 21578 248 238 849
|
||||
7/08 79 128750 21578 248 238 849
|
||||
7/08 79 128750 21578 248 238 849
|
||||
7/08 80 128896 21583 248 237 850
|
||||
7/09 81 128912 21593 248 237 850
|
||||
7/15 82 128890 21593 248 237 850
|
||||
7/16 82 128960 21593 248 237 850
|
||||
7/16 82 128942 21593 248 237 850
|
||||
7/16 82 128874 21593 248 237 850
|
||||
7/16 82 128884 21593 248 237 850
|
||||
7/17 82 128880 21593 248 237 850
|
||||
7/23 82 128880 21593 248 237 850
|
||||
7/23 83 128920 21573 248 237 850
|
||||
7/24 84 128912 21573 248 237 850
|
||||
8/27 85 128914 21573 248 237 850
|
||||
8/29 86 128928 21573 248 237 850
|
||||
9/04 87 128916 21573 248 237 850
|
||||
9/18 88 128916 21573 248 237 850
|
||||
9/18 88 128916 21573 248 237 850
|
||||
9/18 88 128916 21573 248 237 850
|
||||
9/18 88 128916 21573 248 237 850
|
||||
9/18 88 128336 21563 248 237 850
|
|
@ -0,0 +1,50 @@
|
|||
I've read over your Z6.TXT. It really has the same problem as mine,
|
||||
which is that it's a plot without any (enough?) associated problems.
|
||||
The plots are even pretty similar.
|
||||
|
||||
Specifics:
|
||||
|
||||
1. In mine, it's you who is the cause of all the problems, as the most
|
||||
powerful Enchanter in the land. In yours it's some other Enchanter, but
|
||||
the differences in the effect on the plot are fairly small. I like my
|
||||
idea better (surprise!) because I like the idea of "power corrupts"
|
||||
in regard to even the best intentioned good guy (yourself) when
|
||||
confronted with the potentially unlimited power of magic.
|
||||
|
||||
2. I'm not too keen on your killing off Belboz, and I sort of like my
|
||||
idea of consulting him as a sage. This is pretty minor though.
|
||||
|
||||
3. I like the idea of spells in your book fading as concepts are removed
|
||||
from the universe. In fact, it might be a good idea if some of this has
|
||||
happened already when the game opens.
|
||||
|
||||
4. I would like to figure out some use for the cubes other than in the
|
||||
final battle. My theory is approximately that the cubes you find can
|
||||
reactivate the kind of magic they control. The details of this in
|
||||
relation to individual problems is fuzzy, though. The idea would be
|
||||
that you find out by using them what they are good for, and thus know
|
||||
enough by the final battle to use them as weapons against the bad guy.
|
||||
For example, you might use a cube that controlled the concept
|
||||
"transformation" to become a grue in the "Grue Heaven" problem.
|
||||
|
||||
5. I hate chess problems. (Sorry, Steve).
|
||||
|
||||
General:
|
||||
|
||||
1. I think the "Expert" rating need not mean the game can't be played.
|
||||
What I mean by this is that even a difficult game that you can do a lot
|
||||
of exploring in even without solving problems is not going to be seen as
|
||||
being as hard as (say) Starcross or Hitchhiker's where there is a
|
||||
difficult problem right near the start.
|
||||
|
||||
2. If this is going to be collaboration, the critical time is
|
||||
unfortunately right now. After May 6 I will be able to devote full time
|
||||
to it. It's between now and then (less than six weeks) that is the real
|
||||
problem. Is there any time soon when we can get together for a
|
||||
brainstorming session to get the plot and problems more fully designed?
|
||||
Are you really going to have enough time in the next six weeks to do a
|
||||
lot of work?
|
||||
|
||||
3. And what about Naomi?
|
||||
|
||||
Dave
|
|
@ -0,0 +1,62 @@
|
|||
1. Browsie back cover.
|
||||
|
||||
In MAGE, third in the ENCHANTER series, the world is menaced
|
||||
by the threatened destruction of magic itself, and only you can
|
||||
save it.
|
||||
|
||||
You owe your position as head of the Enchanters Guild to your
|
||||
clever and innovative use of magic, but now magic has become
|
||||
unreliable and intermittent. The foundations of the kingdom
|
||||
are threatened.
|
||||
|
||||
Who or what is causing this calamity? In a journey through the
|
||||
very structure of the magical universe, from the Zorkian underworld
|
||||
to the far reaches of the higher dimensions, you search for
|
||||
the source of the unmaking.
|
||||
|
||||
You must use all your wit to prepare for the final confrontation,
|
||||
uncovering the tools and powers to meet the ultimate evil. The
|
||||
outcome is uncertain when evil's dark purposes are at last exposed,
|
||||
but a mage never falters.
|
||||
|
||||
The Table of Contents for the instruction manual is on page 11.
|
||||
Take a look at it to find out what you should read before you begin
|
||||
the story.
|
||||
|
||||
2. Package back cover.
|
||||
|
||||
MAGE, the mysterious conclusion to the ENCHANTER trilogy, explores
|
||||
the strange underpinnings of the Zorkian universe. A world founded
|
||||
on magic and sorcery suddenly finds itself without magic, and you,
|
||||
the head of the Enchanters Guild, are the only mage who can find
|
||||
the reason. The very structure of the universe is under siege, and
|
||||
only a journey through the foundation of magic itself will reveal
|
||||
the terrifying reason.
|
||||
|
||||
3. Instruction Manual Intro.
|
||||
|
||||
Welcome to the world of the Enchanter saga -- a world founded on magic,
|
||||
where guilds of magicians have mastered the powers of sorcery; a
|
||||
world now threatened with destruction.
|
||||
|
||||
You distinguished yourself among the young Enchanters by defeating the
|
||||
evil warlock Krill, whose attempt to subjugate the land was thwarted by
|
||||
your cleverness, as your inexperience allowed you to succeed where
|
||||
others might have failed. This earned you a place on the Circle of
|
||||
Enchanters, second only to the great Belboz the Necromancer. Then Belboz
|
||||
himself was nearly destroyed, and your rescue of him from the evil demon
|
||||
Jeearr earned you the ultimate honor given a mage, the leadership of the
|
||||
Circle of Enchanters.
|
||||
|
||||
Now, a crisis has befallen the kingdom. Magic itself seems to be
|
||||
failing. Spells fail to work or go strangely awry, the populace is
|
||||
confused and restive, and even the Enchanters Guild is baffled. A great
|
||||
conclave of the Guildmasters is ordained, and it is at this conclave
|
||||
that the final conflict between good and evil begins to unfold.
|
||||
|
||||
If you're familiar with Infocom's interactive fiction, you may not feel
|
||||
like reading this entire manual. However, you should at least read
|
||||
about the use of magic (on page x). Also look at the appendix of
|
||||
recognized verbs (on page x); some of the verbs listed are found in all
|
||||
Infocom stories, while others are included especially for MAGE. All
|
||||
wizards will want to familiarize themselves with this list.
|
|
@ -0,0 +1,153 @@
|
|||
Thoughts on Z6
|
||||
|
||||
Z6 opens during a meeting of the Guild Masters in the ancient Guild Hall
|
||||
at Borphee. The meeting has been called to discuss the problem of the
|
||||
deterioration of magic. As magic is widely used in "mundane" industries
|
||||
and applications, this threatens the very fabric of civilization.
|
||||
Master after master details in a heart-rending way how the magic method
|
||||
of (for example) dry cleaning clothes no longer works or is unreliable.
|
||||
In a less-and-less subtle way, the Masters begin to accuse the Guild of
|
||||
Enchanters of not "holding up their end." Anger begins to rise among
|
||||
the Enchanters.
|
||||
|
||||
Suddenly, without any warning, all the masters saving only yourself are
|
||||
CLEESHed.
|
||||
* * *
|
||||
|
||||
You notice a sinister cloaked figure scurrying suspiciously out of the
|
||||
hall, and follow. In Belwit Square the figure disappears in a puff of
|
||||
orange smoke, leaving behind only a pure-white cube with nothing written
|
||||
on it.
|
||||
|
||||
You decide to consult Belboz, who has retired to the Enchanter's
|
||||
equivalent of a monastery, so you AIMFIZ yourself to him. He recalls a
|
||||
legend that the universe was constructed of such blocks, not materially
|
||||
but conceptually, and each block represented a concept. (Various
|
||||
funny/serious analogies with sub-atomic physics and ZIL can be made
|
||||
here). But he remembers that the process involved writing mystic runes
|
||||
representing the concept on the block, and this one is blank. This is
|
||||
especially disturbing because that means that someone may be trying to
|
||||
introduce new concepts by creating new blocks, or worse yet, erasing
|
||||
concepts by erasing the letters from existing blocks!
|
||||
|
||||
By a whizz-bang new spell that uses the Law of Contagion and the Law of
|
||||
Similarity, it is be possible to find out where the other blocks are if
|
||||
this one has touched them recently, and sure enough, you can reach their
|
||||
locales quite easily. These are the locations of the problems, and each
|
||||
problem rewards you with a block.
|
||||
|
||||
This is done by BLORPLEing a cube. It produces a room with you inside it
|
||||
whose doors open to the locations of things that have recently touched the
|
||||
object you BLORPLE. (How's that for advanced magical technology, sports
|
||||
fans?) Some of the doors may be locked, even. When you go through a door
|
||||
the BLORPLEd object (usually a cube) goes with you.
|
||||
|
||||
* * *
|
||||
|
||||
Possible problems:
|
||||
|
||||
1) The Worm Ouroboros. In this problem a giant serpent (we're talking
|
||||
circa 200 feet long and maybe 15 feet thick) guards a block. You can't
|
||||
get by the serpent, but you can convince him to eat his own tail. This
|
||||
is done by creating and then enticing him through a dimensional gate
|
||||
that warps back around to where his tail is. Making this a
|
||||
possible-to-solve problem is the big challenge. The gate must be made
|
||||
plausible, not to mention understandable, etc.
|
||||
|
||||
2) Oubliette. An oubliette is a cell-like pit in which prisoners are
|
||||
dropped whom you wish to basically ignore. The only way out is at the
|
||||
top. Has a water channel for sanitation or something. Idea is to
|
||||
freeze the water over the outlet and float out. Above the cell is a
|
||||
cube.
|
||||
|
||||
3) Self-built Maze. This starts as a solid rock cell, no doors, no
|
||||
windows. You have a spell that detects secret doors. Here, however,
|
||||
every wall actually has one potentially, so the first wall you use it on
|
||||
always has one. It leads into another similar cell. Etc. The idea
|
||||
here is that the last cell of six (?) has the cube in it, and the exit
|
||||
out. Is this too repetitious and silly?
|
||||
|
||||
4) Nowhere. This is a featureless plain in another dimension, inhabited
|
||||
by large flat-bottomed boulders which you can push around because they
|
||||
float frictionlessly on the mirror-smooth surface. The idea would be to
|
||||
use some mechanism (perhaps billiards-like) to push a boulder over to a
|
||||
cube which you can then grab. Alternately you would have to ride a
|
||||
boulder and induce it somehow to do what you want.
|
||||
|
||||
5) Grue Heaven. This takes place in a dimension inhabited entirely by
|
||||
Grues, and in fact is favored by them since, although the supply of
|
||||
adventurers is chancy at best, there is never any light there, because
|
||||
the physical laws are different and a photon is a big fuzzy thing about
|
||||
the size of a tennis ball. (Could be amusing if you have a light
|
||||
source). Idea here is to shape-shift into a Grue, enabling you to (a)
|
||||
see in the dark and (b) not look conspicuously adventurer-like and thus
|
||||
be invited to lunch. The Grues have a cube in the grue temple, which
|
||||
you can steal.
|
||||
|
||||
6) Flying Carpet. Trick here is to learn how to operate it, find a cube
|
||||
in a roc's nest, evade the roc, etc.
|
||||
|
||||
7) Appointment in Samarra. Not sure what to do with this, but some
|
||||
dangerous being (perhaps Death, perhaps someone less lofty) sees you at
|
||||
some point in the game and looks startled. Later, in a different point
|
||||
in the game, he encounters you with much more aplomb. He was startled
|
||||
because he saw you in the first place and knew you had an appointment
|
||||
with him in the second place, and you weren't there.
|
||||
|
||||
8) Scales. There is a standard old brain-teaser involving how to find
|
||||
one non-canonical coin (in this it would be a cube) in a pile of N given
|
||||
only M chances to weigh them. This could be hoked up into cubes and
|
||||
charges of some magical item, for example. The prize would be the
|
||||
non-canonical cube (the only real one).
|
||||
|
||||
9) Labyrinth. This is an alternative to the Self-made Maze idea. Here
|
||||
you have concentric circles which you can push (physically or magically)
|
||||
to line up entrances and exits. There used to be a kid's game like
|
||||
this, and the idea was get your marbles to the center before your
|
||||
opponent. Here the idea is to get you to the center before ... what?
|
||||
|
||||
10) Another Silly Maze. This one can't be mapped by the usual
|
||||
techniques because it consists of only one room and each wall has a
|
||||
door. It is the sequence of directions that's important. Not sure what
|
||||
clues if any you get as to what virtual room you are in. Not sure if
|
||||
the world could stand another *^%&*^ maze problem anyway.
|
||||
|
||||
* * *
|
||||
|
||||
What's Really Going On?:
|
||||
|
||||
The theory is that actually you, and not some other force, are
|
||||
responsible for collecting the cubes and banishing them to other
|
||||
dimensions, planes, etc. This is being done by a creature analogous to
|
||||
the Shadow in Z3, which is working to create an environment it will find
|
||||
more to its liking. This would include, for example, god-like powers
|
||||
for Enchanters, no distinction between creatures such as itself (spirits
|
||||
and the like) and material beings, instant correspondance between
|
||||
thought and deed, and so on. We're talking a real power-trip here.
|
||||
|
||||
The catch is that after all this is revealed during the final climactic
|
||||
battle with the creature, it also becomes clear that such a development
|
||||
(both the bringing to life of the dark side of the Enchanter's power and
|
||||
the realignment of the universe) is inherent in the idea of magic, and
|
||||
eventually some other Enchanter will get into the same situation. The
|
||||
only solution is to destroy the magic-related cubes, which destroys
|
||||
magic and perhaps plunges the world into a dark age, but saves it from
|
||||
that form of evil forever (or at least until Z7).
|
||||
|
||||
* * *
|
||||
|
||||
The Cubes:
|
||||
|
||||
They represent concepts in the physical universe, and possessing them
|
||||
gives you power over that aspect of the universe.
|
||||
|
||||
Possible cubes include
|
||||
|
||||
Earth, Air, Fire, Water: the elements
|
||||
Existence, Length, Breadth, Volume, Time: the dimensions
|
||||
Animation, Transformation, Creation: the actions
|
||||
Mind, Essence, Lightning, Mass, Magic: the forces
|
||||
|
||||
There could also be others, of course. For example, there might be lesser
|
||||
cubes that embody adjectives and nouns. Arranging (joining?) them properly
|
||||
would produce (e.g.) a dog house or a house dog.
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue