/ Hamil by Jonathan R. Partington
/
/ This game (c) Copyright J. R. Partington, but freely distributable.
/
/ To quote the author:
/
/ "Personally, I am happy for people to convert the games for any system
/ they like, as long as they give due acknowledgements (and don't
/ attempt to make any money out of them without consulting me first!)"
/
/ Graham Nelson and Adam Atkinson would also like to thank Topologika
/ Software for handing publication rights for this game back to the
/ author at the end of 1999, enabling him to make the game available
/ this way.
/
/ INITIAL PART OF DATABASE
/ ------------------------
/
!POSSESSIONS CHAP1 PLAYER
!POSSESSIONS CHAP2 SLAB
!POSSESSIONS CHAP3 LAMP ROD STEAK
!POSSESSIONS MUS5 BOOM
!POSSESSIONS CURVE1 HEX
!POSSESSIONS CURVE2 BOTTLE
!POSSESSIONS HOBROOM LADY GOBLET
!POSSESSIONS VAMPROOM COFFIN
!POSSESSIONS FIRE2 BRUNN HELM
!POSSESSIONS COURT2 JACKDAW FOUNTAIN
!POSSESSIONS CURTROOM TAPESTRY
!POSSESSIONS H10 CROWN
!POSSESSIONS CAVE1 TYRAN
!POSSESSIONS CAVE2 WHISTLE
!POSSESSIONS CAVE3 FOLIO
!POSSESSIONS MUS2 EGG
!POSSESSIONS BELOWPLAT BUST
!POSSESSIONS MURALRM MURAL WHEEL
!POSSESSIONS VAULT GARLIC
!POSSESSIONS TERMINUS GIRLS
!POSSESSIONS DEND4 STATUE
!POSSESSIONS DEND5 TALISMAN
!POSSESSIONS CURVE3 CHEESE
!POSSESSIONS CUPBOARD RUBY
!POSSESSIONS MAIZE7 PAINTING
!POSSESSIONS ENCROOM EMERALDS
!POSSESSIONS DUSTROOM DUST
!POSSESSIONS PIT3 CRYSTALS
!POSSESSIONS LAB10 CROZIER
!POSSESSIONS LAB5 DWARF
!POSSESSIONS LAB6 MUMMY
!POSSESSIONS LAB7 ORC
!POSSESSIONS LAB8 ZOMBIE
!POSSESSIONS LAB9 KOBOLD
!POSSESSIONS CHAMBER WAND
!PROP CHAP1 LIGHT
!PROP CHAP2 LIGHT VISITED
!PROP CHAP3 LIGHT VISITED
!PROP COURT1 LIGHT SPACIOUS
!PROP COURT2 LIGHT SPACIOUS WATERY
!PROP COURT3 LIGHT SPACIOUS
!PROP SUBSROOM WATERY
!PROP FIRE1 LIGHT
!PROP H0 LIGHT DISORIENT
!PROP H1 LIGHT DISORIENT
!PROP H2 LIGHT DISORIENT
!PROP H3 LIGHT DISORIENT
!PROP H4 LIGHT DISORIENT
!PROP H5 LIGHT DISORIENT
!PROP H6 LIGHT DISORIENT
!PROP H7 LIGHT DISORIENT
!PROP H8 LIGHT DISORIENT
!PROP H9 LIGHT DISORIENT
!PROP H10 LIGHT DISORIENT
!PROP H11 LIGHT DISORIENT
!PROP PLAIN1 LIGHT SPACIOUS DISORIENT
!PROP PLAIN2 LIGHT SPACIOUS DISORIENT VISITED
!PROP PLAIN3 LIGHT SPACIOUS DISORIENT VISITED
!PROP PLAIN4 LIGHT SPACIOUS DISORIENT VISITED
!PROP PLAIN5 LIGHT SPACIOUS DISORIENT VISITED
!PROP PLAIN6 LIGHT SPACIOUS DISORIENT VISITED
!PROP ENDRM LIGHT
!PROP L1 LIGHT SPACIOUS DISORIENT
!PROP L2 LIGHT SPACIOUS DISORIENT
!PROP L3 LIGHT SPACIOUS DISORIENT
!PROP L4 LIGHT SPACIOUS DISORIENT
!PROP L5 LIGHT SPACIOUS DISORIENT
!PROP L6 LIGHT SPACIOUS DISORIENT
!PROP L7 LIGHT SPACIOUS DISORIENT
!PROP L8 LIGHT SPACIOUS DISORIENT
!PROP L9 LIGHT SPACIOUS DISORIENT
!PROP L10 LIGHT SPACIOUS DISORIENT
!PROP L11 LIGHT SPACIOUS DISORIENT
!PROP L13 LIGHT SPACIOUS DISORIENT
!PROP L14 LIGHT SPACIOUS DISORIENT
!PROP L15 LIGHT SPACIOUS DISORIENT
!PROP L16 LIGHT SPACIOUS DISORIENT
!PROP L17 LIGHT SPACIOUS DISORIENT
!PROP L18 LIGHT SPACIOUS DISORIENT
!PROP L19 LIGHT SPACIOUS DISORIENT
!PROP L20 LIGHT SPACIOUS DISORIENT
!PROP L21 LIGHT SPACIOUS DISORIENT
!PROP L22 LIGHT SPACIOUS DISORIENT
!PROP L23 LIGHT SPACIOUS DISORIENT
!PROP L24 LIGHT SPACIOUS DISORIENT
!PROP FOR1 LIGHT
!PROP FOR2 LIGHT
!PROP FOR3 LIGHT
!PROP FOR4 LIGHT
!PROP TERMINUS LIGHT
!PROP SNARKPIT DISORIENT
!PROP SN1 DROPLOSE DISORIENT
!PROP SN2 DROPLOSE
!PROP SN3 DROPLOSE
!PROP SN4 DROPLOSE
!PROP SN5 DROPLOSE
!PROP SN6 DROPLOSE
!PROP SN7 DROPLOSE
!PROP SN8 DROPLOSE
!PROP SN9 DROPLOSE
!PROP SNX DROPLOSE
!PROP DEPTHS DROPLOSE
!PROP MAIZE1 SPACIOUS LIGHT DISORIENT
!PROP MAIZE2 SPACIOUS LIGHT DISORIENT VISITED
!PROP MAIZE3 SPACIOUS LIGHT DISORIENT VISITED
!PROP MAIZE4 SPACIOUS LIGHT DISORIENT VISITED
!PROP MAIZE5 SPACIOUS LIGHT DISORIENT VISITED
!PROP MAIZE6 SPACIOUS LIGHT DISORIENT VISITED
!PROP MAIZE7 SPACIOUS LIGHT DISORIENT / not visited as worth 12 pts
!PROP FISHROOM LIGHT
!PROP GROVE LIGHT SPACIOUS
!PROP COFFIN NOTAKE
!PROP GOBLET NOTAKE
!PROP LADY NOTAKE
!PROP SLAB NOTAKE
!PROP VAMPIRE NOTAKE
!PROP JACKDAW NOTAKE
!PROP BRUNN NOTAKE
!PROP TYRAN NOTAKE
!PROP FOUNTAIN NOTAKE
!PROP DRAGON NOTAKE
!PROP MURAL NOTAKE
!PROP GIRLS NOTAKE
!PROP STATUE NOTAKE
!PROP DUST NOTAKE
!PROP DWARF NOTAKE
!PROP ORC NOTAKE
!PROP MUMMY NOTAKE
!PROP ZOMBIE NOTAKE
!PROP KOBOLD NOTAKE
!VAR STRENGTH 8 / Can carry 8 objects,
!VAR OBJHELD 0 / and is not carrying any initially.
!VAR NOPTER 32
!VAR TYRDIST 6
!VAR HEXVAR 4 / ONLY 1,2,3 helpful
!VAR EGGVAR 8
!VAR GLOPVAR 6 / only 0 to 4 helpful
!VAR GARLVAR 10 / < 10 useful
!END
/
/ PRELIMINARY SECTION
/ -------------------
/
!PRECOMMAND PREPROG
!POSTCOMMAND POSTPROG
!WELCOME WELCPROG
/
/ Program-defined properties.
/
!PROPERTY LIGHT 0 / Light source (objects and rooms).
!PROPERTY INVIS 1 / Invisibility (objects only).
!PROPERTY HIDING 2 / Hides objects it holds (objects only).
!PROPERTY VISITED 1 / Visited (rooms only).
!PROPERTY DISORIENT 2 / "Disorientation" property (rooms only).
/
/ User-defined properties.
/
!PROPERTY NOTAKE 3 / Cannot be taken (objects only).
!PROPERTY ZAPPED 3 / Rooms only - destroyed by rockfall
!PROPERTY NOTN 4
!PROPERTY NOTE 5
!PROPERTY NOTS 6
!PROPERTY NOTW 7 / for use in LMAZE
!PROPERTY SPACIOUS 8 / can throw boom
!PROPERTY WATERY 9 / there is water here
!PROPERTY DROPLOSE 10 / mainly for snark passages
/
/ Directions.
/
!DIRECTION B / Dummy direction to make GO BACK work.
!DIRECTION D
!DIRECTION E
!DIRECTION N
!DIRECTION NE
!DIRECTION NW
!DIRECTION S
!DIRECTION SE
!DIRECTION SW
!DIRECTION U
!DIRECTION W
!DIRECTION H / for hex
/
/ Special meanings of words.
/
!SPECIAL ALLSPEC / To detect the word "ALL".
!SPECIAL DOORSPEC
!SPECIAL INVSPEC / To detect the word "INVENTORY".
!SPECIAL ONOFFSPEC
!SPECIAL LIDSPEC
!SPECIAL WATERSPEC
!SPECIAL COINSPEC
!SPECIAL FARESPEC
!SPECIAL WALTZSPEC
!SPECIAL RUNESPEC
/
/ Variables.
/
/ The four workspace variables must appear first.
!VARIABLE VAR0
!VARIABLE VAR1
!VARIABLE VAR2
!VARIABLE VAR3
/ Now other variables.
!VARIABLE OBJHELD
!VARIABLE STRENGTH
!VARIABLE LASTLOC
!VARIABLE LOITER
!VARIABLE NOPTER
!VARIABLE VCHECK
!VARIABLE TYRDIST
!VARIABLE HEXVAR
!VARIABLE PLAINVAR
!VARIABLE SNARKVAR
!VARIABLE EGGVAR
!VARIABLE CHEESEVAR
!VARIABLE GLOPVAR
!VARIABLE SPCOUNT
!VARIABLE DRCOUNT
!VARIABLE GARLVAR
!VARIABLE PENULT
/
/ OBJECTS SECTION
/ ---------------
/
/ Player must be first object.
!OBJECT PLAYER HOLDING HOLDING HOLDING
/ Now the objects for this database.
!OBJECT BOOM BOOM1 BOOM2 BOOM1
!OBJECT BOTTLE BOT1 BOT2 BOT1
!OBJECT COFFIN COFFM1 MNULL COFFM1
!OBJECT GOBLET GOB1 GOB2 GOB1
!OBJECT HEX HEX1 HEX2 HEX1
!OBJECT LADY LADY1 MNULL LADY1
!OBJECT LAMP LAMPMS1 LAMPMS2 LAMPMS1
!OBJECT ROD RODMS1 RODMS2 RODMS1
!OBJECT SLAB SLABMS1 MNULL SLABMS1
!OBJECT STEAK STEAKMS1 STEAKMS2 STEAKMS1
!OBJECT VAMPIRE VAMP1 MNULL VAMP1
!OBJECT DEEDS DEEDS1 DEEDS2 DEEDS1
!OBJECT JACKDAW JACKM JACKM2 JACKM
!OBJECT HELM HELM1 HELM2 HELM1
!OBJECT BRUNN BRUNN1 MNULL BRUNN1
!OBJECT COIN1 C1M1 C1M2 C1M1
!OBJECT COIN2 C2M1 C2M2 C2M1
!OBJECT COIN3 C3M1 C3M2 C3M1
!OBJECT COIN4 C4M1 C4M2 C4M1
!OBJECT COIN5 C5M1 C5M2 C5M1
!OBJECT COIN6 C6M1 C6M2 C6M1
!OBJECT COIN7 C7M1 C7M2 C7M1
!OBJECT COIN8 C8M1 C8M2 C8M1
!OBJECT TAPESTRY TAP1 MNULL TAP1
!OBJECT DUMMY MNULL MNULL MNULL / used in Hamil maze
!OBJECT RING RINGM1 RINGM2 RINGM1
!OBJECT CROWN CROWN1 CROWN2 CROWN1
!OBJECT TYRAN TYR1 MNULL TYR1
!OBJECT FOUNTAIN MNULL MNULL MNULL
!OBJECT DOG MNULL MNULL MNULL
!OBJECT BUST BUST1 BUST2 BUST1
!OBJECT WHISTLE WHIST1 WHIST2 WHIST1
!OBJECT PEARLS PEARLS1 PEARLS2 PEARLS1
!OBJECT EGG EGG1 EGG2 EGG1
!OBJECT MURAL MNULL MNULL MNULL
!OBJECT DRAGON DRAG1 MNULL DRAG1
!OBJECT SAPPHIRE SAP1 SAP2 SAP1
!OBJECT FOLIO FOLIO1 FOLIO2 FOLIO1
!OBJECT GARLIC GARLIC1 GARLIC2 GARLIC1
!OBJECT GIRLS MNULL MNULL MNULL
!OBJECT STATUE STATMESS MNULL STATMESS
!OBJECT TALISMAN TAL1 TAL2 TAL1
!OBJECT RUBY RUBY1 RUBY2 RUBY1
!OBJECT CHEESE CHEESE1 CHEESE2 CHEESE1
!OBJECT PAINTING PAINT1 PAINT2 PAINT1
!OBJECT EMERALDS EMER1 EMER2 EMER1
!OBJECT CRYSTALS CRY1 CRY2 CRY1
!OBJECT WHEEL WHEEL1 WHEEL2 WHEEL1
!OBJECT CROZIER CROZ1 CROZ2 CROZ1
!OBJECT DWARF DWA1 MNULL DWA1
!OBJECT MUMMY MUM1 MNULL MUM1
!OBJECT ORC ORC1 MNULL ORC1
!OBJECT ZOMBIE ZOM1 MNULL ZOM1
!OBJECT KOBOLD KOB1 MNULL KOB1
!OBJECT DUST MNULL MNULL MNULL
!OBJECT WAND WANDM1 WANDM2 WANDM1
/
/ ROOMS SECTION
/ -------------
/
/ Rooms for this database.
!ROOM CHAMBER CHAMBM1 CHAMBM2
!ROOM CHAP1 CHAP1MS1 CHAP1MS2
!ROOM CHAP2 CHAP2MS1 CHAP2MS2
!ROOM CHAP3 CHAP3MS1 CHAP3MS2
!ROOM CRYPT CRYPTMS1 CRYPTMS2
!ROOM PWROOM PWM1 PWM2
!ROOM VAMPROOM VAMPM1 VAMPM1
!ROOM MUS6 MUS61 MUS62
!ROOM WPASS WPASSM1 WPASSM1
!ROOM COURT1 COURT1M1 COURT1M2
!ROOM COURT2 COURT2M1 COURT2M2
!ROOM COURT3 COURT3M1 COURT3M2
!ROOM FORK1 FORK1M1 FORK1M1
!ROOM CURVE1 CURVE11 CURVE11
!ROOM CURVE2 CURVE21 CURVE21
!ROOM CURVE3 CURVE31 CURVE31
!ROOM DUSTROOM DUSTR1 DUSTR2
!ROOM HOBROOM HOBM1 HOBM2
!ROOM SUBSROOM SUBSM1 SUBSM2
!ROOM CAVE1 CAVE1M1 CAVE1M2
!ROOM CAVE2 CAVE21 CAVE22
!ROOM CAVE3 CAVE31 CAVE32
!ROOM FIRE1 FIRE1M1 FIRE1M1
!ROOM PLAIN1 PLAINM10 PLAINM11
!ROOM PLAIN2 PLAINM20 PLAINM21
!ROOM PLAIN3 PLAINM20 PLAINM21
!ROOM PLAIN4 PLAINM20 PLAINM21
!ROOM PLAIN5 PLAINM20 PLAINM21
!ROOM PLAIN6 PLAINM20 PLAINM21
!ROOM ENTERHAM ENTERM1 ENTERM2
!ROOM CURTROOM CURTR1 CURTR2
!ROOM FIRE2 FIRE2M1 FIRE2M2
!ROOM H0 HMAZE0 HMAZE
!ROOM H1 HMAZE HMAZE
!ROOM H2 HMAZE HMAZE
!ROOM H3 HMAZE HMAZE
!ROOM H4 HMAZE HMAZE
!ROOM H5 HMAZE HMAZE
!ROOM H6 HMAZE HMAZE
!ROOM H7 HMAZE HMAZE
!ROOM H8 HMAZE HMAZE
!ROOM H9 H9M1 H9M2
!ROOM H10 H10M1 H10M2
!ROOM H11 H11M1 H11M1
!ROOM ENDRM ENDRM1 ENDRM2
!ROOM VAULT VAULT1 VAULT2
!ROOM L1 LWMESS LWMESS
!ROOM L2 LWMESS LWMESS
!ROOM L3 LWMESS LWMESS
!ROOM L4 LWMESS LWMESS
!ROOM L5 LWMESS LWMESS
!ROOM L6 LWMESS LWMESS
!ROOM L7 LWMESS LWMESS
!ROOM L8 LWMESS LWMESS
!ROOM L9 LWMESS LWMESS
!ROOM L10 LWMESS LWMESS
!ROOM L11 LWMESS LWMESS
!ROOM L13 PLATEAU1 PLATEAU2
!ROOM L14 LWMESS LWMESS
!ROOM L15 LWMESS LWMESS
!ROOM L16 LWMESS LWMESS
!ROOM L17 LWMESS LWMESS
!ROOM L18 LWMESS LWMESS
!ROOM L19 LWMESS LWMESS
!ROOM L20 LWMESS LWMESS
!ROOM L21 LWMESS LWMESS
!ROOM L22 LWMESS LWMESS
!ROOM L23 LWMESS LWMESS
!ROOM L24 LWMESS LWMESS
!ROOM BELOWPLAT BELP1 BELP2
!ROOM MUS1 MUS11 MUS12
!ROOM MUS2 DENDM1 DENDM1
!ROOM MUS3 MUS31 MUS32
!ROOM MUS4 MUS41 MUS42
!ROOM MURALRM MURAL1 MURAL2
!ROOM FOR1 FOR11 FOR12
!ROOM FOR2 FOR21 FOR22
!ROOM FOR3 FOR31 FOR32
!ROOM FOR4 FOR41 FOR42
!ROOM SNARKPIT SPIT1 SPIT2
!ROOM SN1 SN10 SN10
!ROOM SN2 SN20 SN20
!ROOM SN3 SN30 SN30
!ROOM SN4 SN40 SN40
!ROOM SN5 SN50 SN50
!ROOM SN6 SN60 SN60
!ROOM SN7 SN70 SN70
!ROOM SN8 SN80 SN80
!ROOM SN9 SN90 SN90
!ROOM SNX SNX0 SNX0
!ROOM DEPTHS DEP1 DEP2
!ROOM TERMINUS TER1 TER1
!ROOM MUS5 MUS51 MUS52
!ROOM DEND4 DENDM1 DENDM1
!ROOM DEND5 DENDM1 DENDM1
!ROOM CORRIDOR CORR1 CORR2
!ROOM DEND6 DENDM1 DENDM1
!ROOM FISHROOM FISH1 FISH2
!ROOM CUPBOARD CUP1 CUP1
!ROOM GROVE GROVE1 GROVE2
!ROOM MAIZE1 MAIZEL MAIZES
!ROOM MAIZE2 MAIZEL MAIZES
!ROOM MAIZE3 MAIZEL MAIZES
!ROOM MAIZE4 MAIZEL MAIZES
!ROOM MAIZE5 MAIZEL MAIZES
!ROOM MAIZE6 MAIZEL MAIZES
!ROOM MAIZE7 MAIZEL MAIZES
!ROOM FORK2 FORK2M1 FORK2M1
!ROOM FORK3 FORK3M1 FORK3M1
!ROOM LAB0 LABM LABM
!ROOM LAB1 LABM LABM
!ROOM LAB2 LABM LABM
!ROOM LAB3 LABM LABM
!ROOM LAB4 LABM LABM
!ROOM LAB5 LABM LABM
!ROOM LAB6 LABM LABM
!ROOM LAB7 LABM LABM
!ROOM LAB8 LABM LABM
!ROOM LAB9 LABM LABM
!ROOM LAB10 LABM2 LABM2
!ROOM PIT1 PIT11 PIT12
!ROOM PIT2 PIT21 PIT22
!ROOM PIT3 PIT31 PIT31
!ROOM ENCROOM DENDM1 DENDM1
/
/ EXITS SECTION
/ -------------
/
!EXIT CHAMBER
N CRYPT
NW MURALRM SETMURAL
W WPASS
SW FORK1
S HOBROOM
SE SUBSROOM
E FIRE1
NE ENTERHAM
!EXIT CHAP1
E CHAP2
N CHAP1 KILLCHAP
!EXIT CHAP2
W CHAP1
E CHAP3
D CRYPT OGPROG
!EXIT CHAP3
W CHAP2
!EXIT CRYPT
W VAMPROOM
S CHAMBER JACKPLACE
E PWROOM
!EXIT PWROOM
W CRYPT
E CURTROOM CHECKDOOR
!EXIT VAMPROOM
E CRYPT
!EXIT WPASS
E CHAMBER
SW COURT3
!EXIT COURT1
E COURT2
W ENDRM PORTPROG
!EXIT COURT2
W COURT1
E COURT3
N MUS1
S FOR1
!EXIT COURT3
W COURT2
NE WPASS
!EXIT ENDRM
E COURT1 PORT2
N VAULT
!EXIT VAULT
S ENDRM
!EXIT FORK1
W CURVE1
S CORRIDOR
NE CHAMBER
!EXIT CURVE1
E FORK1
SW FORK2
!EXIT CURVE2
E CORRIDOR
NW FORK2
!EXIT HOBROOM
N CHAMBER
!EXIT SUBSROOM
E CAVE1
S PLAIN1
U PLAIN1
NW CHAMBER
!EXIT CAVE1
W SUBSROOM
NE L8 TYRSTART
!EXIT FIRE1
W CHAMBER
E FIRE2 FLAMEPROG
!EXIT FIRE2
W FIRE1
!EXIT ENTERHAM
SW CHAMBER
E H0 TREMORPROG
!EXIT CURTROOM
W PWROOM
!EXIT H0
E H3 HEPROG
!EXIT H1
E H2 HEPROG
S H3 HSPROG
!EXIT H2
S H4 HSPROG
SW H3 HSWPROG
W H1 HWPROG
!EXIT H3
N H1 HNPROG
NE H2 HNEPROG
E H4 HEPROG
SE H6 HSEPROG
S H5 HSPROG
!EXIT H4
N H2 HNPROG
S H6 HSPROG
SW H5 HSWPROG
W H3 HWPROG
!EXIT H5
N H3 HNPROG
NE H4 HNEPROG
E H6 HEPROG
S H7 HSPROG
!EXIT H6
N H4 HNPROG
E H9 HEPROG
S H8 HSPROG
SW H7 HSWPROG
W H5 HWPROG
!EXIT H7
N H5 HNPROG
NE H6 HNEPROG
E H8 HEPROG
!EXIT H8
N H6 HNPROG
W H7 HWPROG
!EXIT H10
S H11
!EXIT H11
N H10
W ENTERHAM TREMOR2
!EXIT L1
E L2 LEPROG
S L4 LSPROG
!EXIT L2
W L1 LWPROG
S L5 LSPROG
!EXIT L3
E L4 LEPROG
S L7 LSPROG
!EXIT L4
N L1 LNPROG
E L5 LEPROG
S L8 LSPROG
W L3 LWPROG
!EXIT L5
N L2 LNPROG
E L6 LEPROG
S L9 LSPROG
W L4 LWPROG
!EXIT L6
W L5 LWPROG
S L10 LSPROG
!EXIT L7
N L3 LNPROG
E L8 LEPROG
!EXIT L8
N L4 LNPROG
E L9 LEPROG
S L15 LSPROG
D L13 ENTERPLAT
SE L13 ENTERPLAT
W L7 LWPROG
!EXIT L9
N L5 LNPROG
E L10 LEPROG
S L16 LSPROG
W L8 LWPROG
!EXIT L10
N L6 LNPROG
E L11 LEPROG
S L17 LSPROG
W L9 LWPROG
!EXIT L11
S L18 LSPROG
W L10 LWPROG
!EXIT L13
D BELOWPLAT WTTYR
!EXIT L14
E L15 LEPROG
S L19 LSPROG
!EXIT L15
N L8 LNPROG
E L16 LEPROG
S L20 LSPROG
W L14 LWPROG
!EXIT L16
N L9 LNPROG
E L17 LEPROG
S L21 LSPROG
W L15 LWPROG
!EXIT L17
N L10 LNPROG
E L18 LEPROG
S L22 LSPROG
W L16 LWPROG
!EXIT L18
N L11 LNPROG
W L17 LWPROG
!EXIT L19
N L14 LNPROG
E L20 LEPROG
!EXIT L20
N L15 LNPROG
E L21 LEPROG
S L23 LSPROG
W L19 LWPROG
!EXIT L21
N L16 LNPROG
E L22 LEPROG
S L24 LSPROG
W L20 LWPROG
!EXIT L22
N L17 LNPROG
W L21 LWPROG
!EXIT L23
N L20 LNPROG
E L24 LEPROG
!EXIT L24
N L21 LNPROG
W L23 LWPROG
!EXIT BELOWPLAT
U L13 TYRMANGL
W CAVE2
!EXIT CAVE2
E BELOWPLAT
D CAVE1 SCRAM
!EXIT PLAIN1
N SUBSROOM
D SUBSROOM
NE PLAIN1 DIEPLAIN
E PLAIN1 DIEPLAIN
NW PLAIN1 DIEPLAIN
W PLAIN1 DIEPLAIN
S PLAIN2 PLAINS
SE PLAIN2 PLAINSE
SW PLAIN2 PLAINSW
H PLAIN2
!EXIT PLAIN2
N PLAIN1 PLAINN
NE PLAIN1 PLAINNE
NW PLAIN1 PLAINNW
E PLAIN2 DIEPLAIN
W PLAIN2 DIEPLAIN
SE PLAIN3 PLAINSE
SW PLAIN3 PLAINSW
S PLAIN3 PLAINS
H PLAIN3
!EXIT PLAIN3
N PLAIN2 PLAINN
NE PLAIN2 PLAINNE
NW PLAIN2 PLAINNW
E PLAIN3 DIEPLAIN
W PLAIN3 DIEPLAIN
SE PLAIN4 PLAINSE
SW PLAIN4 PLAINSW
S PLAIN4 PLAINS
H PLAIN4
!EXIT PLAIN4
N PLAIN3 PLAINN
NE PLAIN3 PLAINNE
NW PLAIN3 PLAINNW
E PLAIN4 DIEPLAIN
W PLAIN4 DIEPLAIN
SE PLAIN5 PLAINSE
SW PLAIN5 PLAINSW
S PLAIN5 PLAINS
H PLAIN5
!EXIT PLAIN5
N PLAIN4 PLAINN
NE PLAIN4 PLAINNE
NW PLAIN4 PLAINNW
E PLAIN5 DIEPLAIN
W PLAIN5 DIEPLAIN
SE PLAIN6 PLAINSE
SW PLAIN6 PLAINSW
S PLAIN6 PLAINS
H PLAIN6
!EXIT PLAIN6
N PLAIN5 PLAINN
NE PLAIN5 PLAINNE
NW PLAIN5 PLAINNW
SE PLAIN6 DIEPLAIN
S PLAIN6 DIEPLAIN
SW PLAIN6 DIEPLAIN
W PLAIN6 DIEPLAIN
E PLAIN6 DIEPLAIN
H CHAP1 / hex here player never
!EXIT MUS1
N MUS5
W MUS2
E MUS3
S COURT2
!EXIT MUS2
E MUS1
!EXIT MUS3
W MUS1
E MUS4
!EXIT FOR1
N COURT2
SE FOR3
SW FOR2
!EXIT FOR2
NE FOR1
E FOR3
SE FOR4
W MAIZE1
!EXIT FOR3
NW FOR1
W FOR2
SW FOR4
E CAVE3 BRUSHPROG
!EXIT FOR4
NE FOR3
NW FOR2
S GROVE GROVEPROG
!EXIT CAVE3
W FOR3
!EXIT MURALRM
SE CHAMBER PAUSEHINT
NW DUSTROOM PAUSEHINT
!EXIT MUS4
W MUS3
D SNARKPIT
!EXIT SNARKPIT
U MUS4
D SN1 RANDSN
N SN1 SNENT0
NE SN1 SNENT1
E SN1 SNENT2
SE SN1 SNENT3
S SN1 SNENT4
SW SN1 SNENT5
W SN1 SNENT6
NW SN1 SNENT7
!EXIT SN1
U SNARKPIT
D SN2
!EXIT SN2
U SN1
D SN3
!EXIT SN3
U SN2
D SN4
!EXIT SN4
U SN3
D SN5
!EXIT SN5
U SN4
D SN6
!EXIT SN6
U SN5
D SN7
!EXIT SN7
U SN6
D SN8
!EXIT SN8
U SN7
D SN9
!EXIT SN9
U SN8
D SNX
!EXIT SNX
U SN9
D DEPTHS MEETSNARK
!EXIT DEPTHS
U SNX
!EXIT MUS5
N DEND4
E MUS6
W DEND5
S MUS1
!EXIT CORRIDOR
N FORK1
S FISHROOM FISHPROG
E CURVE3
W CURVE2
!EXIT DEND4
S MUS5
!EXIT DEND5
E MUS5
!EXIT FISHROOM
N CORRIDOR
S CUPBOARD FISHP2
!EXIT CUPBOARD
N FISHROOM
!EXIT GROVE
N FOR4
!EXIT MAIZE1
W FOR2
E MAIZE2
!EXIT MAIZE2
N MAIZE1
SE MAIZE3
!EXIT MAIZE3
N MAIZE1
S MAIZE1
NE MAIZE2
SW MAIZE4
!EXIT MAIZE4
S MAIZE2
E MAIZE2
NW MAIZE3
W MAIZE5
!EXIT MAIZE5
E MAIZE3
NE MAIZE3
NW MAIZE4
SE MAIZE6
!EXIT MAIZE6
SW MAIZE4
NE MAIZE4
SE MAIZE5
E MAIZE7 SETVIS
!EXIT MAIZE7
E MAIZE5
NW MAIZE5
NE MAIZE6
!EXIT MUS6
W MUS5
E DUSTROOM
!EXIT DUSTROOM
SE MURALRM SETMURAL
W MUS6
!EXIT FORK2
W ENCROOM ENCPROG
NE CURVE1
SE CURVE2
!EXIT FORK3
S LAB0
E PIT1
NW CURVE3
!EXIT CURVE3
W CORRIDOR
SE FORK3
!EXIT ENCROOM
E FORK2
!EXIT PIT1
W FORK3
E PIT2 TESTMONST
!EXIT PIT2
W PIT1
E PIT3
D PIT2 INTOPIT
!EXIT PIT3
W PIT2
!EXIT LAB0
N FORK3
NW LAB1
NE LAB5
E LAB5
SE LAB5
S LAB5
SW LAB5
W LAB5
!EXIT LAB1
S LAB0
N LAB2
NE LAB6
E LAB6
SE LAB6
SW LAB6
W LAB6
NW LAB6
!EXIT LAB2
NW LAB1
SE LAB3
N LAB5
NE LAB5
E LAB5
S LAB7
SW LAB7
W LAB7
!EXIT LAB3
W LAB2
E LAB4
N LAB6
NE LAB6
SE LAB6
S LAB8
SW LAB8
NW LAB8
!EXIT LAB4
SE LAB3
N LAB9
NE LAB9
E LAB9
S LAB9
SW LAB7
W LAB7
NW LAB7
!EXIT LAB5
SW LAB0
N LAB2
NE LAB5
E LAB5
SE LAB5
S LAB5
W LAB5
NW LAB5
!EXIT LAB6
W LAB1
NE LAB3
N LAB6
E LAB6
SE LAB6
S LAB6
SW LAB6
NW LAB6
!EXIT LAB7
W LAB2
E LAB4
N LAB7
NE LAB7
SE LAB7
S LAB7
SW LAB7
NW LAB7
!EXIT LAB8
E LAB3
W LAB9
N LAB8
NE LAB8
SE LAB8
S LAB8
SW LAB8
NW LAB8
!EXIT LAB9
S LAB4
NW LAB10
N LAB8
NE LAB8
E LAB8
SE LAB8
SW LAB8
W LAB8
!EXIT LAB10
SE LAB9
/
/ INSTRUCTIONS SECTION
/ --------------------
/
!INSTRUCTIONS
ADPROG:
LOAD V VAR0 I 2
GO GZAAN
ARCPROG:
LOAD V VAR0 I 3
GO GZAAN
BLOWPROG:
SKIP UNLESS R ()O EQ WHISTLE
GO WHPROG
RETURN RETRY NONE CANT
BREAKPROG:
SKIP IF H ()O PLAYER
PRINTRET NOTHELD
SKIP UNLESS R ()O EQ EGG
PRINTRET NOEGGBREAK
SKIP3 UNLESS R ()O EQ BOTTLE
MOVE BOTTLE WITH DESTROY
SUB V OBJHELD I 1
PRINTRET OGREMESS
PRINTRET CANTDO
BRUSHPROG:
SKIP2 IF S FOR3 EQ 0
SKIP3 IF R (DRAGON)R EQ FOR3
RETURN
PRINT NOWAYMESS
RETURN ABORT
PRINT DRAGBLOCK
RETURN ABORT
CHECKDOOR:
SKIP2 IF S PWROOM EQ 1
PRINT DOORBLOCK
RETURN ABORT
RETURN
CLOSECOFF:
SKIP IF R (PLAYER)R EQ (COFFIN)R
PRINTRET NOTHERE
SKIP IF S COFFIN EQ 1
PRINTRET COFFACL
LOAD S COFFIN I 2
PRINTRET OKMESS
CLOSEDOOR:
SKIP2 IF R (PLAYER)R EQ CURTROOM
SKIP IF R (PLAYER)R EQ PWROOM
PRINTRET NOTHERE
SKIP IF S PWROOM EQ 1
PRINTRET ALRCLOSED
PRINTRET DOORHEAVY
CLOSEPROG:
SKIP UNLESS M W2SP DOORSPEC
GO CLOSEDOOR
SKIP UNLESS M W2SP LIDSPEC
GO CLOSECOFF
SKIP IF M W2OB
RETURN RETRY NONE CANT
SKIP UNLESS R ()O EQ COFFIN
GO CLOSECOFF
PRINTRET CANTDO
DANCEPROG:
LOAD V VAR0 R 3
PRINTRET DANCEM VAR0
DIEPLAIN:
PRINT GROUNDSUBS
GO DIEPROG
DIEPROG:
PRINT OHDEAR
GOSUB SCORESUB
PRINT SCOREM2
GO QUITS
DRINKPROG:
SKIP2 UNLESS M W2EX
SKIP IF M W2SP WATERSPEC
PRINTRET CANTDO
SKIP4 IF P WATERY (PLAYER)R
SKIP UNLESS H BOTTLE PLAYER
SKIP IF S BOTTLE EQ 2
PRINTRET NODRINK
LOAD S BOTTLE I 1
PRINTRET RELUCDRINK
DROPDUST:
SKIP3 IF R (VAR0)O EQ JACKDAW
SKIP2 IF R (VAR0)O EQ GARLIC
SKIP IF R (VAR0)O EQ STEAK
SKIP UNLESS R (VAR0)O EQ CHEESE
LOAD S (VAR0)O I 2 / poisoned
GO DROPCL
/ Subroutine to drop the object referred to by the reference in VAR0.
/ This should already be in the player's possession.
DROPSUB:
MOVE (VAR0)O WITH TO (PLAYER)R / Move the object.
SUB V OBJHELD I 1 / Update OBJHELD.
SKIP3 UNLESS P DROPLOSE (PLAYER)R
MOVE (VAR0)O WITH DESTROY
PRINT FALLSAWAY
RETURN
SKIP UNLESS R (PLAYER)R EQ DUSTROOM
GO DROPDUST
DROPCL:
SKIP UNLESS R (VAR0)O EQ (HEX)O
GO DROPHEX
DHX1:
RETURN
/ Main DROP program.
DROPPROG:
/ Command decoding section.
SKIP IF M W2EX / Is it "DROP"?
GO DROPFIRST
SKIP UNLESS M W2SP ALLSPEC / Is it "DROP ALL"?
GO DROPALL
SKIP UNLESS M W2SP WATERSPEC
GO DROPWATER
SKIP4 UNLESS M W2SP COINSPEC
DROPPAY:
SKIP IF R (PLAYER)R LT H1
SKIP UNLESS R (PLAYER)R GT H9
PRINTRET NOCOINS
GO DROPALL
SKIP IF M W2OB / Must be "DROP object".
RETURN RETRY NONE CANT / Induce "I don't understand
/ that!" if not.
DROPSY:
/ Now check he has the object.
SKIP IF H ()O PLAYER
PRINTRET NOTHELD
/ And drop it.
RESOLVE VAR0 ()O
GOSUB DROPSUB
PRINTRET OKMESS
/ Drop the first object held by the player.
DROPFIRST:
RESOLVE VAR0 (PLAYER)D
SKIP UNLESS V VAR0 EQ 0 / Holding anything?
PRINTRET NOTHOLDING
GOSUB DROPSUB
PRINTRET OKMESS
/ Drop all objects held by the player. Keep count in VAR3.
DROPALL:
LOAD V VAR3 I 0
RESOLVE VAR0 (PLAYER)D
SKIP UNLESS V VAR0 EQ 0
PRINTRET NOTHOLDING
DROPA1:
GOSUB DROPSUB
ADD V VAR3 I 1
RESOLVE VAR0 (PLAYER)D
SKIP IF V VAR0 EQ 0
GO DROPA1
PRINTRET DROPOBJ1 VAR3
DROPHEX:
SKIP3 UNLESS S HEX EQ 0
LOAD S HEX I 1
PRINT HEXDIES
GO DHX1
SKIP3 UNLESS S HEX EQ 2
SKIP3 IF R (PLAYER)R EQ PLAIN1
MOVE HEX WITH DESTROY
PRINT HEXRAN
GO DHX1
MOVE HEX WITH TO PLAIN2
LOAD V HEXVAR R 2
ADD V HEXVAR I 1
LOAD V VAR1 V HEXVAR
PRINT HEXMOVES VAR1
LOAD S PLAIN2 V VAR1
GO DHX1
DROPWATER:
SKIP UNLESS H BOTTLE PLAYER
SKIP IF S BOTTLE EQ 2
PRINTRET NHOLDWATER
GO EMPTYSUC
EATPROG:
SKIP IF R ()R EQ (PLAYER)R
PRINTRET NOTHERE
SKIP UNLESS R ()O EQ STEAK
GO EATFOOD
SKIP UNLESS R ()O EQ HEX
PRINTRET CRUELHEX
SKIP UNLESS R ()O EQ JACKDAW
PRINTRET RATHERNOT
SKIP UNLESS R ()O EQ EGG
PRINTRET NOEATEGG
SKIP UNLESS R ()O EQ GARLIC
GO EATFOOD
SKIP UNLESS R ()O EQ CHEESE
GO EATFOOD
PRINTRET CANTEAT
EATFOOD:
SKIP IF R ()U EQ PLAYER
PRINTRET NOTHELD
SKIP2 UNLESS S ()O EQ 2
PRINT POISON
GO DIEPROG
MOVE ()O WITH DESTROY
SUB V OBJHELD I 1
SKIP UNLESS R ()O EQ CHEESE
LOAD V CHEESEVAR I 0
SKIP UNLESS R ()O EQ GARLIC
LOAD V GARLVAR I 0
PRINTRET RELUCTEAT
EMPTYPROG:
SKIP IF R ()O EQ BOTTLE
PRINTRET CANTDO
EMPTYBOT:
SKIP IF H BOTTLE PLAYER
PRINTRET NOBOTTLE
SKIP UNLESS S BOTTLE EQ 0
PRINTRET BOTSEALED
SKIP UNLESS S BOTTLE EQ 1
PRINTRET BOTEMPTY
EMPTYSUC:
LOAD S BOTTLE I 1
SKIP2 UNLESS R (PLAYER)R EQ (DRAGON)R
MOVE DRAGON WITH DESTROY
PRINTRET WGDRAG
SKIP UNLESS R (PLAYER)R EQ FIRE1
SKIP IF S FIRE1 EQ 0
PRINTRET OKMESS
LOAD S FIRE1 I 1
UNSET LIGHT FIRE1
PRINTRET EXTINGUISH
ENCPROG:
SKIP UNLESS V GARLVAR LT 10
PRINTRET WTENCH
PRINT ENCHANT
GO DIEPROG
ENTERPLAT:
SKIP UNLESS V NOPTER LT 1
GO ENPTERO
LOAD V VAR0 V NOPTER
PRINT PTEROGET
GO DIEPROG
ENPTERO:
MOVE TYRAN WITH TO L13
PRINTRET TYRTRAP
FAREPROG:
MOVE PLAYER WITH TO H10
LOAD V VAR0 I 0
SKIP UNLESS R (COIN1)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN2)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN3)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN4)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN5)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN6)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN7)R EQ H9
ADD V VAR0 I 1
SKIP UNLESS R (COIN8)R EQ H9
ADD V VAR0 I 1
SKIP2 UNLESS V VAR0 EQ 8
PRINT GIANTHAND
RETURN LOOK
FAREMORE:
MOVE PLAYER WITH TO H9
SKIP IF V VAR0 GT 0
PRINTRET FARESPLEASE
PRINTRET FULLFARE
FEEDPROG:
SKIP IF R ()R EQ (PLAYER)R
PRINTRET NOTHERE
SKIP UNLESS R ()O EQ VAMPIRE
RETURN
SKIP3 UNLESS R ()O EQ LADY
SKIP UNLESS S LADY EQ 1
PRINTRET OHYEAH
GO KILLHOB
SKIP2 UNLESS R ()O EQ TYRAN
PRINT YOUDOFT
GO DIEPROG
SKIP UNLESS R ()O EQ JACKDAW
PRINTRET OHYEAH
SKIP UNLESS R ()O EQ DRAGON
PRINTRET DNOTHUNG
SKIP4 IF R ()O EQ ZOMBIE
SKIP3 IF R ()O EQ DWARF
SKIP2 IF R ()O EQ ORC
SKIP IF R ()O EQ MUMMY
SKIP UNLESS R ()O EQ KOBOLD
PRINTRET NOFOOD
SKIP IF R ()O EQ HEX
PRINTRET CANTDO
SKIP UNLESS S HEX EQ 1
PRINTRET OHYEAH
SKIP IF H STEAK PLAYER
PRINTRET NOFOOD
SKIP UNLESS S STEAK EQ 2
PRINTRET UNAPP
SUB V OBJHELD I 1
MOVE STEAK WITH DESTROY
SKIP2 IF H HEX PLAYER
MOVE HEX WITH DESTROY
PRINTRET WTHEX
LOAD S HEX I 2
PRINTRET HEXGURGLES
FILLPROG:
SKIP UNLESS R ()O EQ GOBLET
PRINTRET NOGOBWAT
SKIP IF R ()O EQ BOTTLE
RETURN RETRY NONE CANT
FILLBOTTLE:
SKIP IF H BOTTLE PLAYER
PRINTRET NOBOTTLE
SKIP UNLESS S BOTTLE EQ 0
PRINTRET BOTSEALED
SKIP UNLESS S BOTTLE EQ 2
PRINTRET BOTFULL
SKIP2 IF M W2SP WATERSPEC
SKIP UNLESS R (PLAYER)R EQ DUSTROOM
PRINTRET TOONARROW
SKIP IF P WATERY (PLAYER)R
PRINTRET NOWATER
LOAD S BOTTLE I 2
PRINTRET OKMESS
FISHPROG:
SKIP UNLESS S FISHROOM EQ 2
RETURN
LOAD S FISHROOM I 0
SKIP2 UNLESS P LIGHT LAMP
SKIP2 IF H LAMP PLAYER
SKIP IF R (LAMP)R EQ FISHROOM
LOAD S FISHROOM I 1
RETURN
FISHP2:
SKIP2 IF S FISHROOM EQ 2
PRINT NOWAYMESS
RETURN ABORT
RETURN
FLAMEPROG:
SKIP2 IF S FIRE1 EQ 1
PRINT FLAMESBLOCK
RETURN ABORT
RETURN
GLOOPPROG:
LOAD V VAR0 I 0
GO GZAAN
GROVEPROG:
SKIP IF V CHEESEVAR LT 6
PRINTRET SLEEPBAD
LOAD V CHEESEVAR I 10 / one dream only
LOAD V GLOPVAR R 4
LOAD V VAR0 V GLOPVAR
PRINTRET SLEEPGOOD VAR0
GZAAN:
LOAD V VAR1 V GLOPVAR
SUB V VAR1 V VAR0
SKIP IF V VAR1 EQ 0
PRINTRET NHAPPENS
SKIP UNLESS R (PLAYER)R EQ DEND4
SKIP IF R (STATUE)R EQ DEND4
PRINTRET NHAPPENS
MOVE STATUE WITH TO VAULT
PRINTRET STATWALKS
HNPROG:
LOAD V VAR0 I 0
GO HCOMMON
HNEPROG:
LOAD V VAR0 I 1
GO HCOMMON
HEPROG:
LOAD V VAR0 I 2
GO HCOMMON
HSEPROG:
LOAD V VAR0 I 3
GO HCOMMON
HSPROG:
LOAD V VAR0 I 4
GO HCOMMON
HSWPROG:
LOAD V VAR0 I 5
GO HCOMMON
HWPROG:
LOAD V VAR0 I 6
GO HCOMMON
HNWPROG:
LOAD V VAR0 I 7
GO HCOMMON
HCOMMON:
MOVE DUMMY WITH TO (PLAYER)R
SKIP UNLESS V VAR0 EQ 0
MOVE DUMMY WITH DIR N
SKIP UNLESS V VAR0 EQ 1
MOVE DUMMY WITH DIR NE
SKIP UNLESS V VAR0 EQ 2
MOVE DUMMY WITH DIR E
SKIP UNLESS V VAR0 EQ 3
MOVE DUMMY WITH DIR SE
SKIP UNLESS V VAR0 EQ 4
MOVE DUMMY WITH DIR S
SKIP UNLESS V VAR0 EQ 5
MOVE DUMMY WITH DIR SW
SKIP UNLESS V VAR0 EQ 6
MOVE DUMMY WITH DIR W
SKIP UNLESS V VAR0 EQ 7
MOVE DUMMY WITH DIR NW
SKIP3 UNLESS P ZAPPED (DUMMY)R
MOVE DUMMY WITH DESTROY
PRINT NOWAYMESS
RETURN ABORT
MOVE DUMMY WITH DESTROY
SET ZAPPED (PLAYER)R
PRINTRET EARTHQUAKE
HORDEPROG:
LOAD V VAR0 I 1
GO PASSPROG
INTOPIT:
PRINT DIVEPIT
GO DIEPROG
/ Program to do INVENTORY command.
INVPROG:
SET LIGHT PLAYER / Ensure place is lit.
DESCRIBE WITH PLAYER / Describe player & possessions.
UNSET LIGHT PLAYER / Get rid of light again.
SKIP IF E (PLAYER)D / Print "Nothing." if he's
PRINT NOTHINGM / not carrying anything.
RETURN
JACKPLACE:
SKIP3 UNLESS S JACKDAW EQ 0
RESOLVE VAR0 (COURT1)R
ADD V VAR0 R 2
MOVE JACKDAW WITH TO (VAR0)R
RETURN
KILLCHAP:
LOAD V VAR0 R 2
PRINT KCHAPMESS VAR0
GO DIEPROG
KILLPROG:
SKIP IF R ()R EQ (PLAYER)R
PRINTRET NOTHERE
SKIP3 UNLESS R ()O EQ HEX
SKIP UNLESS S HEX EQ 1
PRINTRET ALRDEAD
PRINTRET CRUELHEX
SKIP4 UNLESS R ()O EQ LADY
SKIP UNLESS S LADY EQ 1
PRINTRET ALRDEAD
KILLHOB:
PRINT DIEHOBMS
GO DIEPROG
SKIP UNLESS R ()O EQ VAMPIRE
RETURN
SKIP UNLESS R ()O EQ BRUNN
PRINTRET BARRIER
SKIP2 UNLESS R ()O EQ GIRLS
PRINT KARATE
GO DIEPROG
SKIP3 UNLESS R ()O EQ TYRAN
LOAD V VAR0 S TYRAN
PRINT TYRFUTILE VAR0
GO DIEPROG
SKIP3 UNLESS R ()O EQ JACKDAW
SKIP UNLESS S JACKDAW EQ 0
PRINTRET OHYEAH
PRINTRET ALRDEAD
SKIP2 UNLESS R ()O EQ DRAGON
PRINT INCIN
GO DIEPROG
SKIP2 UNLESS R ()O EQ DWARF
PRINT DIEDWARF
GO DIEPROG
SKIP2 UNLESS R ()O EQ MUMMY
PRINT DIEMUM
GO DIEPROG
SKIP2 UNLESS R ()O EQ ORC
PRINT DIEORC
GO DIEPROG
SKIP2 UNLESS R ()O EQ ZOMBIE
PRINT DIEZOM
GO DIEPROG
SKIP2 UNLESS R ()O EQ KOBOLD
PRINT DIEKOB
GO DIEPROG
PRINTRET CANTDO
LAMPPROG:
SKIP UNLESS M W2SP ONOFFSPEC
RETURN RETRY IGNORE MAY ANY
RETURN RETRY OBJECT CANT
LEPROG:
SKIP2 UNLESS P NOTE (PLAYER)R
PRINT SORRYBLOCK
RETURN ABORT
MOVE DUMMY WITH TO (PLAYER)R
MOVE DUMMY WITH DIR E
SET NOTE (PLAYER)R
SET NOTW (DUMMY)R
MOVE TYRAN WITH TO (DUMMY)R
MOVE DUMMY WITH DESTROY
SUB V NOPTER I 1
PRINTRET TYRAVAL
LNPROG:
SKIP2 UNLESS P NOTN (PLAYER)R
PRINT SORRYBLOCK
RETURN ABORT
MOVE DUMMY WITH TO (PLAYER)R
MOVE DUMMY WITH DIR N
SET NOTN (PLAYER)R
SET NOTS (DUMMY)R
MOVE TYRAN WITH TO (DUMMY)R
MOVE DUMMY WITH DESTROY
SUB V NOPTER I 1
PRINTRET TYRAVAL
LSPROG:
SKIP2 UNLESS P NOTS (PLAYER)R
PRINT SORRYBLOCK
RETURN ABORT
MOVE DUMMY WITH TO (PLAYER)R
MOVE DUMMY WITH DIR S
SET NOTS (PLAYER)R
SET NOTN (DUMMY)R
MOVE TYRAN WITH TO (DUMMY)R
MOVE DUMMY WITH DESTROY
SUB V NOPTER I 1
PRINTRET TYRAVAL
LWPROG:
SKIP2 UNLESS P NOTW (PLAYER)R
PRINT SORRYBLOCK
RETURN ABORT
MOVE DUMMY WITH TO (PLAYER)R
MOVE DUMMY WITH DIR W
SET NOTW (PLAYER)R
SET NOTE (DUMMY)R
MOVE TYRAN WITH TO (DUMMY)R
MOVE DUMMY WITH DESTROY
SUB V NOPTER I 1
PRINTRET TYRAVAL
LIFTLID:
SKIP IF R (PLAYER)R EQ (COFFIN)R
PRINTRET NOTHERE
SKIP UNLESS S COFFIN EQ 1
PRINTRET COFFAOP
SKIP2 UNLESS S COFFIN EQ 2
LOAD S COFFIN I 1
PRINTRET OKMESS
LOAD S COFFIN I 1
MOVE VAMPIRE WITH TO (COFFIN)R
LOAD V VCHECK I 1
MOVE DEEDS WITH TO (COFFIN)R
PRINTRET VAMPAPPS
LIFTPROG:
SKIP UNLESS M W2SP LIDSPEC
GO LIFTLID
SKIP IF M W2OB
RETURN RETRY NONE CANT
SKIP IF R (PLAYER)R EQ ()R
PRINTRET NOTHERE
SKIP UNLESS R ()O EQ SLAB
GO LIFTSLAB
SKIP UNLESS R PLAYER EQ ()U
PRINTRET ALRHELD
SKIP UNLESS R ()O EQ MURAL
PRINTRET CANTLIFT
SKIP UNLESS P NOTAKE ()O
PRINTRET TOOHEAVY
PRINTRET PICKDROP
LIFTSLAB:
SKIP UNLESS S SLAB EQ 1
PRINTRET NOHIGHER
SKIP IF H ROD PLAYER
PRINTRET TOOHEAVY
MOVE ROD WITH TO (PLAYER)R
SUB V OBJHELD I 1
LOAD S ROD I 1
LOAD S SLAB I 1
PRINTRET PRISEMESS
/ Program to give the long description of a room.
LOOKPROG:
UNSET VISITED (PLAYER)R / Pretend room not visited to get
/ long description.
RETURN LOOK / And return with request for description.
MECPROG:
SKIP IF R (PLAYER)R LT MAIZE1
SKIP UNLESS R (PLAYER)R GT MAIZE7
PRINTRET NHAPPENS
PRINT MECDIE
GO DIEPROG
MEETSNARK:
LOAD V VAR0 S MURALRM
SUB V VAR0 V SNARKVAR
SKIP2 IF V VAR0 EQ 0
PRINT BOOJUM
GO DIEPROG
SKIP UNLESS E (SAPPHIRE)R
RETURN
MOVE SAPPHIRE WITH TO DEPTHS
PRINTRET NOBOOJ
/ Program to do Magic Move instruction.
MMPROG:
SKIP IF E ()R / Is the object "destroyed"?
PRINTRET CANTDO
MOVE PLAYER WITH TO ()R
RETURN
NOMPROG:
LOAD V VAR0 I 4
GO GZAAN
NYMPROG:
SKIP UNLESS M W2SP WALTZSPEC
SKIP IF R (PLAYER)R EQ TERMINUS
RETURN RETRY NONE CANT
PRINT VALMESS
RETURN RETRY FINISH MAY ANY
OFFPROG:
SKIP IF H LAMP PLAYER
PRINTRET NOTHLAMP
SKIP IF S LAMP EQ 1
PRINTRET ALROFF
LOAD S LAMP I 0
UNSET LIGHT LAMP
SKIP3 UNLESS R (PLAYER)R EQ FISHROOM
SKIP2 IF S FISHROOM EQ 2
LOAD S FISHROOM I 1
PRINTRET FISH11
PRINTRET OKMESS
OGPROG:
SKIP2 IF S SLAB EQ 1
PRINT NOWAYMESS
RETURN ABORT
LOAD S CRYPT R 7
PRINTRET STEPSMESS
ONPROG:
SKIP IF H LAMP PLAYER
PRINTRET NOTHLAMP
SKIP IF S LAMP EQ 0
PRINTRET ALRON
LOAD S LAMP I 1
SET LIGHT LAMP
PRINT OKMESS
UNSET VISITED (PLAYER)R
SKIP2 UNLESS R (PLAYER)R EQ FISHROOM
SKIP IF S FISHROOM EQ 2
LOAD S FISHROOM I 0
RETURN LOOK
OPENBOT:
SKIP IF H BOTTLE PLAYER
PRINTRET NOTHELD
SKIP IF S BOTTLE EQ 0
PRINTRET ALROPEN
LOAD S BOTTLE I 1
SKIP2 IF P NOTAKE TAPESTRY
LOAD V VAR0 I 0
PRINTRET DJINNAP VAR0
MOVE TAPESTRY WITH TO VAULT
SKIP2 UNLESS R (PLAYER)R EQ VAULT
LOAD V VAR0 I 3
PRINTRET DJINNAP VAR0
LOAD V VAR0 I 1
SKIP UNLESS R (PLAYER)R EQ CURTROOM
LOAD V VAR0 I 2
PRINTRET DJINNAP VAR0
OPENDOOR:
SKIP2 IF R (PLAYER)R EQ CURTROOM
SKIP IF R (PLAYER)R EQ PWROOM
PRINTRET NOTHERE
SKIP IF S PWROOM EQ 0
PRINTRET ALROPEN
PRINTRET OHYEAH
OPENPROG:
SKIP UNLESS M W2SP DOORSPEC
GO OPENDOOR
SKIP IF M W2OB
RETURN RETRY NONE CANT
SKIP IF R ()R EQ (PLAYER)R
PRINTRET NOTHERE
SKIP UNLESS R ()O EQ COFFIN
GO LIFTLID
SKIP UNLESS R ()O EQ BOTTLE
GO OPENBOT
SKIP UNLESS R ()O EQ EGG
PRINTRET NOEGGBREAK
SKIP UNLESS R ()O EQ FOLIO
PRINTRET NOTIMEREAD
PRINTRET CANTDO
OPREH:
SKIP UNLESS R (PLAYER)R EQ FISHROOM
SKIP IF S FISHROOM LT 2
PRINTRET NHAPPENS
LOAD S FISHROOM I 2
PRINTRET FISHOPEN
PASSPROG:
SKIP UNLESS R (PLAYER)R EQ PWROOM
SKIP IF S PWROOM EQ 0
PRINTRET NHAPPENS
LOAD V VAR1 S CRYPT
SUB V VAR0 V VAR1
SKIP IF V VAR0 EQ 0
PRINTRET NHAPPENS
LOAD S PWROOM I 1
PRINTRET FLIESOPEN
PAYPROG:
SKIP IF M W2SP FARESPEC
SKIP UNLESS M W2SP COINSPEC
GO DROPPAY
RETURN RETRY NONE CANT
PLAINNW:
LOAD V VAR0 I 1
GO PLAINBACK
PLAINN:
LOAD V VAR0 I 2
GO PLAINBACK
PLAINNE:
LOAD V VAR0 I 3
GO PLAINBACK
PLAINBACK:
SUB V VAR0 S (PLAYER)R
SKIP2 IF V VAR0 EQ 0
PRINT GROUNDSUBS
GO DIEPROG
RETURN
PLAINSE:
LOAD V PLAINVAR I 1
GO PLAINPROG
PLAINS:
LOAD V PLAINVAR I 2
GO PLAINPROG
PLAINSW:
LOAD V PLAINVAR I 3
GO PLAINPROG
PLAINPROG:
LOAD V VAR0 V PLAINVAR
RESOLVE VAR1 (PLAYER)R
ADD V VAR1 I 1
LOAD S (VAR1)R V VAR0
SKIP UNLESS V HEXVAR EQ 4
GO PLAINLUCK
SUB V PLAINVAR V HEXVAR
SKIP2 IF V PLAINVAR EQ 0
PRINT GROUNDSUBS
GO DIEPROG
RETURN
PLAINLUCK:
LOAD V VAR0 R 6
SKIP2 IF V VAR0 EQ 0
PRINT GROUNDSUBS
GO DIEPROG
RETURN
PLAYPROG:
SKIP IF M W2EX
PRINTRET WEAREPLAY
SKIP UNLESS R ()O EQ WHISTLE
GO WHPROG
RETURN RETRY NONE CANT
PORTPROG:
SKIP UNLESS H DEEDS PLAYER
PRINTRET RAISEPORT
PRINT REFUSE
RETURN ABORT
PORT2:
PRINTRET LOWERPORT
POSTHEX:
MOVE HEX WITH DIR H
LOAD V HEXVAR R 2
ADD V HEXVAR I 1 / so 1 to 3 like state of rooms
SKIP3 UNLESS R (HEX)R EQ CHAP1
PRINT FOUNDMAMA
MOVE PEARLS WITH TO PLAIN6
GO POST5
LOAD V VAR1 V HEXVAR
PRINT HEXON VAR1
GO POST5
POSTLAB:
SKIP2 UNLESS R (LASTLOC)R EQ (DWARF)R
PRINT DIEDWARF
GO DIEPROG
SKIP2 UNLESS R (LASTLOC)R EQ (MUMMY)R
PRINT DIEMUM
GO DIEPROG
SKIP2 UNLESS R (LASTLOC)R EQ (ORC)R
PRINT DIEORC
GO DIEPROG
SKIP2 UNLESS R (LASTLOC)R EQ (ZOMBIE)R
PRINT DIEZOM
GO DIEPROG
SKIP2 UNLESS R (LASTLOC)R EQ (KOBOLD)R
PRINT DIEKOB
GO DIEPROG
GO POST15
POSTPROG:
ADD V CHEESEVAR I 1
ADD V GARLVAR I 1
SKIP2 UNLESS H TAPESTRY PLAYER
MOVE TAPESTRY WITH TO (PLAYER)R
SUB V OBJHELD I 1
SKIP3 IF R (LASTLOC)R LT LAB5
SKIP2 IF R (LASTLOC)R GT LAB9
SKIP IF R (PLAYER)R EQ (PENULT)R
GO POSTLAB
POST15:
SKIP UNLESS R (PLAYER)R EQ (VAMPIRE)R
SKIP UNLESS V VCHECK EQ 1 / Just opened coffin
GO POST0
PRINT VAMPKILLS
GO DIEPROG
POST0:
SKIP UNLESS S BOOM LT 2
GO POST2
SUB S BOOM I 1
SKIP IF S BOOM LT 2
GO POST2
UNSET NOTAKE BOOM
SKIP IF R (BOOM)R EQ (PLAYER)R
GO POST2
PRINT BOOMDEATH
GO DIEPROG
POST2:
LOAD V VCHECK I 0
SKIP2 UNLESS E (VAMPIRE)R
SKIP IF P LIGHT (PLAYER)R
MOVE VAMPIRE WITH TO (PLAYER)R
SKIP UNLESS P SPACIOUS (PLAYER)R
GO POST1
SKIP2 UNLESS M MOVED
LOAD V LOITER I 0
GO POST1
ADD V LOITER I 1
SKIP3 IF V LOITER LT 7
LOAD V VAR0 R 7
PRINT DIENASTY VAR0
GO DIEPROG
POST1:
SKIP2 UNLESS R (PLAYER)R EQ H9
SKIP IF M MOVED
GOSUB FAREPROG
SKIP UNLESS R (PLAYER)R EQ (TYRAN)R
GO POSTTYR
POST4:
SKIP2 UNLESS R (PLAYER)R EQ (HEX)R
SKIP IF V HEXVAR EQ 4
GO POSTHEX
POST5:
SKIP IF P LIGHT (EGG)R
GO POST6
SUB V EGGVAR I 1
SKIP IF V EGGVAR LT 1
GO POST6
SKIP2 UNLESS R (EGG)R EQ FOR3
LOAD S FOR3 I 1
UNSET VISITED FOR3
SKIP2 UNLESS H EGG PLAYER
PRINT EGGKILL1
GO DIEPROG
SKIP2 UNLESS R (PLAYER)R EQ (EGG)R
PRINT EGGKILL2
GO DIEPROG
MOVE DRAGON WITH TO (EGG)R
MOVE EGG WITH DESTROY
POST6:
SKIP IF R (PLAYER)R LT MAIZE1
SKIP UNLESS R (PLAYER)R GT MAIZE7
GO POST8
SKIP2 UNLESS R (PLAYER)R EQ (TALISMAN)R
LOAD V SPCOUNT I 0
GO POST8
ADD V SPCOUNT I 1
SKIP2 UNLESS V SPCOUNT GT 1
PRINT SPIRIT
GO DIEPROG
POST8:
SKIP UNLESS H TALISMAN PLAYER
SKIP IF M MOVED
GO POST9
SKIP IF R (PLAYER)R LT MAIZE1
SKIP UNLESS R (PLAYER)R GT MAIZE7
GO POSTTAL1
POSTTAL2:
ADD V DRCOUNT I 1
SKIP4 UNLESS V DRCOUNT EQ 1
POSTTAL1:
LOAD V VAR0 R 5
SKIP UNLESS V VAR0 EQ 0
GO POSTTAL3
GO POST9
SKIP3 UNLESS V DRCOUNT EQ 2
LOAD V VAR0 R 4
SKIP UNLESS V VAR0 EQ 0
GO POST9
POSTTAL3:
LOAD V DRCOUNT I 0
SUB V OBJHELD I 1
MOVE TALISMAN WITH TO (LASTLOC)R
PRINT OOPS
POST9:
SKIP UNLESS R (PLAYER)R EQ VAULT
GO POSTVAULT
POST7:
SKIP UNLESS R (PLAYER)R EQ TERMINUS
GO TERPROG
RETURN
POSTTYR:
SKIP IF M MOVED
SKIP IF S TYRAN EQ 1
GO POST4
SUB V TYRDIST I 1
SKIP2 IF V TYRDIST LT 1
PRINT TYRCLUMP
GO POST4
PRINT TYRCATCH
GO DIEPROG
POSTVAULT:
GOSUB SCORESUB
SKIP IF V VAR0 GT 288
RETURN NEXTCOMM
MOVE PLAYER WITH TO CHAMBER
SET LIGHT VAULT
DESCRIBE WITH VAULT
MOVE PLAYER WITHOUT TO TERMINUS
PRINT HIDDENDOOR
RETURN NEXTCOMM
POURPROG:
SKIP UNLESS M W2SP WATERSPEC
GO DROPWATER
RETURN RETRY NONE CANT
POWERPROG:
LOAD V VAR0 I 2
GO PASSPROG
PRIDEPROG:
LOAD V VAR0 I 3
GO PASSPROG
PREPROG:
LOAD V PENULT V LASTLOC
RESOLVE LASTLOC (PLAYER)R
RETURN
PULLPROG:
SKIP IF R ()O EQ TAPESTRY
RETURN RETRY NONE CANT
GO TAKEPROG
/ Program to make certain the player wants to quit.
QUITPROG:
GOSUB SCORESUB
ADD V VAR0 I 10
PRINT SCOREM3
SKIP IF Q QUITQUERY / Skip if "yes" answer.
RETURN
QUITS:
SKIP UNLESS Q MOREGAMES
RETURN RETRY RESTART MAY ANY
PRINT GROYMESS
RETURN RETRY FINISH MAY ANY / Induce end of game.
RANDSN:
LOAD V SNARKVAR R 7
PRINTRET RANDOMPASS
READPROG:
SKIP IF M W2EX
PRINTRET NOTIMEREAD
SKIP IF M W2OB
GO READ2
SKIP IF H ()O PLAYER
PRINTRET NOTHELD
SKIP UNLESS R ()O EQ DEEDS
PRINTRET NOTKNOW
SKIP UNLESS R ()O EQ FOLIO
PRINTRET NOTIMEREAD
READ2:
SKIP3 IF M W2SP RUNESPEC
SKIP UNLESS M W2OB
SKIP IF R ()O EQ WAND
PRINTRET NOTIMEREAD
SKIP UNLESS H WAND PLAYER
PRINTRET WANDRUNE
PRINTRET NOTHWAND
SAVEPROG:
LOAD S MURALRM I 8
SKIP2 IF R (PLAYER)R LT LAB0
SKIP IF R (PLAYER)R GT LAB10
PRINTRET NOSAVELAB
SKIP IF R (PLAYER)R LT MAIZE1
SKIP UNLESS R (PLAYER)R GT MAIZE7
RETURN RETRY SAVE CANT
PRINTRET NOSAVECORN
SAVENDPROG:
LOAD S MURALRM I 8
SKIP2 IF R (PLAYER)R LT LAB0
SKIP IF R (PLAYER)R GT LAB10
PRINTRET NOSAVELAB
SKIP IF R (PLAYER)R LT MAIZE1
SKIP UNLESS R (PLAYER)R GT MAIZE7
RETURN RETRY SAVEND CANT
PRINTRET NOSAVECORN
SCOREPROG:
GOSUB SCORESUB
ADD V VAR0 I 10
PRINTRET SCOREM1
SCORESUB:
LOAD V VAR0 I 0
SKIP UNLESS P VISITED CRYPT
ADD V VAR0 I 5
SKIP UNLESS R (BOOM)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (GOBLET)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (DEEDS)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (HELM)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (TAPESTRY)R EQ VAULT
ADD V VAR0 I 10
SKIP UNLESS R (RING)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (CROWN)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (BUST)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (PEARLS)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (SAPPHIRE)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (FOLIO)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (PAINTING)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (STATUE)R EQ VAULT
ADD V VAR0 I 8
SKIP UNLESS R (RUBY)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (CRYSTALS)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (EMERALDS)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS R (CROZIER)R EQ VAULT
ADD V VAR0 I 5
SKIP UNLESS S PWROOM EQ 1
ADD V VAR0 I 8
SKIP IF S JACKDAW EQ 0
ADD V VAR0 I 8
SKIP UNLESS S JACKDAW EQ 2
ADD V VAR0 I 2
SKIP UNLESS S LADY EQ 1
ADD V VAR0 I 10
SKIP2 UNLESS E (DEEDS)R
SKIP IF E (VAMPIRE)R
ADD V VAR0 I 10
SKIP IF S FIRE1 EQ 0
ADD V VAR0 I 10
SKIP UNLESS P VISITED H10
ADD V VAR0 I 10
SKIP UNLESS P VISITED BELOWPLAT
ADD V VAR0 I 20
SKIP UNLESS S HEX EQ 2
ADD V VAR0 I 5
SKIP UNLESS E (PEARLS)R
ADD V VAR0 I 10
SKIP UNLESS E (SAPPHIRE)R
ADD V VAR0 I 10
SKIP IF E (EGG)R
ADD V VAR0 I 5
SKIP IF S FOR3 EQ 0
ADD V VAR0 I 9
SKIP UNLESS P VISITED CAVE3
ADD V VAR0 I 9
SKIP UNLESS P VISITED MAIZE7
ADD V VAR0 I 12
SKIP UNLESS P VISITED CUPBOARD
ADD V VAR0 I 10
SKIP UNLESS V GLOPVAR LT 6
ADD V VAR0 I 10
SKIP UNLESS P VISITED ENCROOM
ADD V VAR0 I 10
SKIP UNLESS S PIT1 EQ 1
ADD V VAR0 I 10
SKIP UNLESS P VISITED LAB10
ADD V VAR0 I 13
RETURN
SCRAM:
PRINTRET SCRAMBLE
SETMURAL:
LOAD S MURALRM R 7
RETURN
SETVIS:
SET VISITED MAIZE7 / force short descr
RETURN
SNENT0:
LOAD V SNARKVAR I 0
RETURN
SNENT1:
LOAD V SNARKVAR I 1
RETURN
SNENT2:
LOAD V SNARKVAR I 2
RETURN
SNENT3:
LOAD V SNARKVAR I 3
RETURN
SNENT4:
LOAD V SNARKVAR I 4
RETURN
SNENT5:
LOAD V SNARKVAR I 5
RETURN
SNENT6:
LOAD V SNARKVAR I 6
RETURN
SNENT7:
LOAD V SNARKVAR I 7
RETURN
SPIREPROG:
LOAD V VAR0 I 5
GO PASSPROG
SWAMPPROG:
SKIP2 UNLESS R (PLAYER)R EQ FISHROOM
PRINT FISHFALL
GO DIEPROG
PRINTRET NHAPPENS
/ Subroutine to try to take the object referred to by the
/ reference in VAR0. OBJHELD is updated if it is taken, and
/ VAR1 is set to:
/ 1 if the object was taken.
/ 2 if it was untakeable.
/ 3 if it wasn't taken because the player couldn't carry it.
TAKESUB:
SKIP IF R (VAR0)O EQ PLAYER / Can't take himself!
SKIP2 UNLESS P NOTAKE (VAR0)O / Is it untakeable?
LOAD V VAR1 I 2
RETURN
LOAD V VAR1 V STRENGTH / Check STRENGTH
SUB V VAR1 V OBJHELD / against OBJHELD.
SKIP2 IF V VAR1 GT 0
LOAD V VAR1 I 3
RETURN
SKIP2 IF R (VAR0)O EQ TAPESTRY
MOVE (VAR0)O WITH TO PLAYER / Move the object.
ADD V OBJHELD I 1 / Update OBJHELD.
LOAD V VAR1 I 1
SKIP UNLESS R (VAR0)O EQ ROD
GOSUB TAKEROD
SKIP UNLESS R (VAR0)O EQ TAPESTRY
GOSUB TAKETAPES
RETURN
/ Main TAKE program.
TAKEPROG:
/ Command decoding section.
SKIP IF M W2EX / Is it "TAKE"?
GO TAKEFIRST
SKIP UNLESS M W2SP ALLSPEC / Is it "TAKE ALL"?
GO TAKEALL
SKIP UNLESS M W2SP INVSPEC / Is it "TAKE INVENTORY"?
GO INVPROG
SKIP UNLESS M W2SP WATERSPEC
GO FILLBOTTLE
SKIP4 UNLESS M W2SP COINSPEC
SKIP IF R (PLAYER)R LT H1
SKIP UNLESS R (PLAYER)R GT H9
PRINTRET NOCOINS
GO TAKEALL
SKIP IF M W2OB / Must be "TAKE object".
RETURN RETRY NONE CANT / Induce "I don't understand
/ that!" if not.
/ Now check it's OK to take the given object.
SKIP IF R (PLAYER)R EQ ()R / In the same room?
PRINTRET DONTSEE
SKIP UNLESS R PLAYER EQ ()U / Already holding it?
PRINTRET ALRHELD
SKIP UNLESS R ()O EQ GOBLET
GO TAKEGOB
/ Entry point for Magic Take command.
MTPROG:
RESOLVE VAR0 ()O / Now use TAKESUB to take it.
GOSUB TAKESUB
SKIP UNLESS V VAR1 EQ 2 / Untakeable?
PRINTRET CANTTAKE
SKIP UNLESS V VAR1 EQ 3 / Hands full?
PRINTRET HANDSFULL
SKIP IF R ()O EQ TAPESTRY
PRINTRET OKMESS
RETURN
/ Command was "TAKE". Try to take the first object in the room.
TAKEFIRST:
RESOLVE VAR0 (PLAYER)R / Find first object in room.
RESOLVE VAR0 (VAR0)O
TAKEF1:
SKIP UNLESS V VAR0 EQ 0 / Does object exist?
PRINTRET NOTHNGHERE
GOSUB TAKESUB / Try taking it.
SKIP2 UNLESS V VAR1 EQ 1 / Successful?
PRINTRET OKMESS
RETURN
SKIP UNLESS V VAR1 EQ 3 / Hands full?
PRINTRET HANDSFULL
/ This object wasn't takeable. Try the next object in the room.
ADD V VAR0 I 1536 / Modify reference to point to
/ next object in room.
RESOLVE VAR0 (VAR0)O / Then resolve it.
GO TAKEF1 / And try to take the object.
/ Command was "TAKE ALL". Try taking each object in the room. VAR3
/ keeps track of the number of objects taken.
TAKEALL:
LOAD V VAR3 I 0
/ Now we have a loop to try each object in turn. VAR2 always contains
/ a reference to the next object to be tried.
RESOLVE VAR0 (PLAYER)R / Find first object in room.
RESOLVE VAR0 (VAR0)O
/ N.B. This object always exists, as the player is an object in the room.
TAKEA1:
LOAD V VAR2 V VAR0 / Find next object from this one.
ADD V VAR2 I 1536
RESOLVE VAR2 (VAR2)O
GOSUB TAKESUB / Try taking this object.
SKIP2 UNLESS V VAR1 EQ 3 / Hands full?
PRINT HANDSF2
PRINTRET TOOKOBJ2 VAR3
SKIP UNLESS V VAR1 EQ 1 / Was object taken?
ADD V VAR3 I 1
LOAD V VAR0 V VAR2 / Loop back for next object,
SKIP IF V VAR0 EQ 0 / if it exists.
GO TAKEA1
PRINTRET TOOKOBJ1 VAR3
TAKEGOB:
SKIP UNLESS R (PLAYER)R EQ (LADY)R
SKIP2 IF S LADY EQ 0
UNSET NOTAKE GOBLET
GO MTPROG
PRINT GOBDEATH
GO DIEPROG
TAKEROD:
SKIP IF S ROD EQ 1
RETURN
LOAD S ROD I 0
LOAD S SLAB I 0
PRINTRET SLABFALLS
TAKETAPES:
SKIP IF S TAPESTRY EQ 0
RETURN
SET NOTAKE TAPESTRY
LOAD S CURTROOM I 1
LOAD S TAPESTRY I 1
SET LIGHT CURTROOM
PRINT TCURTMESS
SKIP IF R (VAMPIRE)R EQ CURTROOM
RETURN
MOVE VAMPIRE WITH DESTROY
PRINT CRUMBLES
RETURN
TERPROG:
PRINT DISAPPOINT
GO QUITS
TESTMONST:
SKIP IF S PIT1 EQ 0
RETURN
PRINT MONSTER
GO DIEPROG
THROWPROG:
SKIP UNLESS M W2SP WATERSPEC
GO DROPWATER
SKIP IF M W2OB
RETURN RETRY NONE CANT
SKIP UNLESS R ()O EQ BOOM
GO THROWBOOM
THROWPIT:
SKIP IF H ()O PLAYER
PRINTRET NOTHELD
RESOLVE VAR0 ()O
SKIP IF R (PLAYER)R LT PIT1
SKIP2 UNLESS R (PLAYER)R GT PIT3
GOSUB DROPSUB
PRINTRET OKMESS
SUB V OBJHELD I 1
MOVE ()O WITH DESTROY
PRINT INPIT
SKIP IF S PIT1 EQ 0
RETURN
PRINT THRESH
SKIP UNLESS R ()O EQ JACKDAW
SKIP IF S JACKDAW EQ 2
RETURN
LOAD S PIT1 I 1
PRINTRET SILENCE
THROWBOOM:
SKIP IF H BOOM PLAYER
PRINTRET NOTHELD
SKIP IF P SPACIOUS (PLAYER)R
GO THROWPIT
THROWB2:
SET NOTAKE BOOM
LOAD S BOOM R 1
ADD S BOOM I 3
MOVE BOOM WITH TO (PLAYER)R
SUB V OBJHELD I 1
SKIP UNLESS S JACKDAW EQ 0
SKIP IF R (BOOM)R EQ (JACKDAW)R
PRINTRET BOOMFLIES
LOAD S JACKDAW I 1
UNSET NOTAKE JACKDAW
MOVE RING WITH TO (JACKDAW)R
PRINTRET HIJACK
TIDESPROG:
LOAD V VAR0 I 7
GO PASSPROG
TREMORPROG:
SKIP2 IF S ENTERHAM EQ 0
PRINT NOWAYMESS
RETURN ABORT
PRINT TREMORMESS
LOAD S ENTERHAM I 1
MOVE PLAYER WITH TO H11
MOVE PLAYER WITHOUT TO H0
SKIP UNLESS R (HEX)R EQ H11
LOAD S HEX I 1
LOAD V OBJHELD I 0
RESOLVE VAR0 (COIN1)O
RESOLVE VAR1 (H1)R
ADD V VAR1 R 7
TREMLOOP:
RESOLVE VAR2 (COIN8)O
RESOLVE VAR3 (H8)R
MOVE (VAR0)O WITH TO (VAR1)R
ADD V VAR0 I 1
SUB V VAR2 V VAR0
SKIP UNLESS V VAR2 LT 0
RETURN ABORT
ADD V VAR1 I 1
SUB V VAR3 V VAR1
SKIP UNLESS V VAR3 LT 0
RESOLVE VAR1 (H1)R
GO TREMLOOP
TREMOR2:
PRINTRET ROCKFALL
TRIPEPROG:
LOAD V VAR0 I 4
GO PASSPROG
TYRMANGL:
PRINT TYRAHA
GO DIEPROG
TYRSTART:
SKIP2 UNLESS S CAVE1 EQ 1
PRINT NOWAYMESS
RETURN ABORT
LOAD S CAVE1 I 1
LOAD S TYRAN I 1
MOVE TYRAN WITH TO L8
PRINTRET TYRWAKES
WAVEPROG:
SKIP IF M W2EX
PRINTRET YOUWAVE
SKIP IF R ()U EQ PLAYER
PRINTRET NOTHELD
SKIP UNLESS R ()O EQ WAND
SKIP IF R (PLAYER)R EQ (KOBOLD)R
PRINTRET NHAPPENS
MOVE KOBOLD WITH DESTROY
PRINTRET KOBRUNS
WELCPROG:
PRINT HELLO
LOAD S MURALRM I 8
SKIP UNLESS P VISITED CHAP1
RETURN
SKIP UNLESS Q INSTRUC
PRINTRET INSTRMESS
SET VISITED CHAP1
RETURN
WHPROG:
SKIP IF H WHISTLE PLAYER
PRINTRET NHWHIST
LOAD V VAR0 R 2
PRINT WHMESS VAR0
SKIP UNLESS R ()R EQ (LADY)R
SKIP2 IF S LADY EQ 0
PRINT DOGBAD
GO DIEPROG
LOAD S LADY I 1
UNSET NOTAKE GOBLET
PRINTRET DOGGOOD
WTTYR:
PRINTRET WGTYR
ZOGPROG:
LOAD V VAR0 I 1
GO GZAAN
/
/ WORDS SECTION
/ -------------
/
!WORDS
ADRIC OBEY ADPROG CANT
ALL NONE CANT ALLSPEC
ALSATIAN OBJECT CANT DOG
ALUMINIUM OBJECT CANT COIN4
AMNESIA PRINT AMNESIA CANT
ARCOROC OBEY ARCPROG CANT
ATTACK OBEY KILLPROG REQUEST OBJ
AWAY RETURN CANT B
BACK RETURN CANT B 1
BICYCLE OBJECT CANT DOG / doesnt exist
BIRD OBJECT CANT JACKDAW
BLOW OBEY BLOWPROG REQUEST OBJ
BOOJUM OBJECT CANT DOG / not there
BOOK OBJECT CANT FOLIO
BOOMERANG OBJECT CANT BOOM 4
BOTTLE OBJECT CANT BOTTLE
BOX OBJECT CANT SAPPHIRE
BRASS OBJECT CANT COIN1
BREAK OBEY BREAKPROG REQUEST OBJ
BRONZE OBJECT CANT COIN2
BRUNNHILDE OBJECT CANT BRUNN
BUST OBJECT CANT BUST
CARVING OBJECT CANT BOOM
CENNY OBJECT CANT COIN8
CHEESE OBJECT CANT CHEESE
CLIMB MOVE MAY ANY U
CLOSE OBEY CLOSEPROG REQUEST REC
COFFIN OBJECT CANT COFFIN
COINS NONE CANT COINSPEC
COPPER OBJECT CANT COIN7
CORPSE OBJECT CANT VAMPIRE
CREATURE OBJECT CANT HEX
CROOK OBJECT CANT CROZIER
CROWN OBJECT CANT CROWN
CROZIER OBJECT CANT CROZIER
CRYSTALS OBJECT CANT CRYSTALS
CURTAIN OBJECT CANT TAPESTRY
CYCLOPS OBJECT CANT DOG / not there
DANCE OBEY DANCEPROG CANT
DEEDS PRINT EXPECTED CANT DEEDS
DESCEND MOVE MAY ANY D
DIG OBEY DIGPROG CANT
DILITHIUM OBJECT CANT CRYSTALS
DJINN OBJECT CANT DOG / not there
DOCUMENTS OBJECT CANT DEEDS 3
DOG OBJECT CANT DOG
DOLLIN OBJECT CANT COIN7
DOOR NONE CANT DOORSPEC
DOWN MOVE CANT D 1
DRAGON OBJECT CANT DRAGON
DREAD OBEY DREADPROG CANT
DREAM PRINT DAYDREAM CANT
DRINK OBEY DRINKPROG MAY SPECIAL
DROP OBEY DROPPROG MAY REC
DUST OBJECT CANT DUST
DWARF OBJECT CANT DWARF
EAST MOVE CANT E 1
EAT OBEY EATPROG REQUEST OBJ
EGG OBJECT CANT EGG
EMERALD OBJECT CANT EMERALDS
EMPTY OBEY EMPTYPROG REQUEST OBJ
ENCHANTRESS OBJECT CANT DOG / never there
FARE NONE CANT FARESPEC
FEED OBEY FEEDPROG REQUEST OBJ
FILL OBEY FILLPROG REQUEST OBJ
FINISH OBEY QUITPROG CANT
FISHROOM MOVE CANT FISHROOM 4
FOLIO OBJECT CANT FOLIO
FORGET PRINT LEGION MAY ANY
FOUNTAIN OBJECT CANT FOUNTAIN
GARLIC OBJECT CANT GARLIC
GET OBEY TAKEPROG MAY REC
GIANT OBJECT CANT DOG / not there
GIRLS OBJECT CANT GIRLS 4
GLOOP OBEY GLOOPPROG CANT
GO IGNORE REQUEST DIR
GOBLET OBJECT CANT GOBLET
GOGH OBJECT CANT PAINTING
GOLD OBJECT CANT CROZIER
GUILLIRA OBJECT CANT COIN1
HAMIL PRINT HAMILMESS CANT
HELMET OBJECT CANT HELM 4
HELP PRINT HELP CANT
HEXAPOD OBJECT CANT HEX 3
HOBGOBLIN OBJECT CANT LADY
HORDE OBEY HORDEPROG CANT
INVENTORY OBEY INVPROG CANT INVSPEC 3
IRON OBJECT CANT COIN8
JACKDAW OBJECT CANT JACKDAW 4
JUMP IGNORE REQUEST DIR
KILL OBEY KILLPROG REQUEST OBJ
KOBOLD OBJECT CANT KOBOLD
LADY OBJECT CANT LADY
LAMP OBEY LAMPPROG MAY SPECIAL LAMP
LEAD OBJECT CANT COIN6
LID NONE CANT LIDSPEC
LIFT OBEY LIFTPROG REQUEST REC
LOOK OBEY LOOKPROG CANT
MAIDENS OBJECT CANT GIRLS
MAIDS OBJECT CANT GIRLS 4
/ MAM OBEY MMPROG REQUEST OBJ
/ MAT OBEY MTPROG REQUEST OBJ
MARBLE OBJECT CANT STATUE
MECOHUATL OBEY MECPROG CANT
MICHAEL OBJECT CANT STATUE
MOAN PRINT MOAN CANT
MOVE IGNORE REQUEST DIR
MUMMY OBJECT CANT MUMMY
MURAL OBJECT CANT MURAL
NE MOVE CANT NE
NICKEL OBJECT CANT COIN5
NOMET OBEY NOMPROG CANT
NORTH MOVE CANT N 1
NOTED PRINT NOTEDMESS MAY ANY
NW MOVE CANT NW
NYMPHS OBEY NYMPROG MAY SPECIAL
OBLIVION PRINT OBMESS CANT
OFF OBEY OFFPROG CANT ONOFFSPEC
OGRAM PRINT NHAPPENS CANT
OGRE OBJECT CANT DOG / neither is ever there!
ON OBEY ONPROG CANT ONOFFSPEC
OPEN OBEY OPENPROG REQUEST REC
OPREH OBEY OPREH CANT
ORBICULAR MOVE CANT CHAMBER 3
ORC OBJECT CANT ORC
ORING OBJECT CANT COIN6
PAINTING OBJECT CANT PAINTING
PASSWORD PRINT DTPW CANT
PASTE OBEY PASTEPROG CANT
PAUSE OBEY SAVEPROG CANT
PAY OBEY PAYPROG REQUEST SPECIAL
PEARLS OBJECT CANT PEARLS
PESCUDO OBJECT CANT COIN2
PFENTIME OBJECT CANT COIN5
PICTURE OBJECT CANT PAINTING
PLAY OBEY PLAYPROG MAY OBJ
POUBLE OBJECT CANT COIN4
POUR OBEY POURPROG REQUEST SPECIAL
POWER OBEY POWERPROG CANT
PRIDE OBEY PRIDEPROG CANT
PTERODACTYL OBJECT CANT DOG /not there
PULL OBEY PULLPROG MUST OBJ
QUIT OBEY QUITPROG CANT 1
RAISE OBEY LIFTPROG REQUEST REC
READ OBEY READPROG MAY ANY
RETURN RETURN CANT
REX OBJECT CANT TYRAN
RING OBJECT CANT RING
ROD OBJECT CANT ROD
RUBY OBJECT CANT RUBY
RUN IGNORE REQUEST DIR
RUNES NONE CANT RUNESPEC 4
SAPPHIRE OBJECT CANT SAPPHIRE
SAVE OBEY SAVEPROG CANT
SAVEND OBEY SAVENDPROG CANT
SCORE OBEY SCOREPROG CANT
SE MOVE CANT SE
SHAKES OBJECT CANT FOLIO
SHILLARK OBJECT CANT COIN3
SHUT OBEY CLOSEPROG REQUEST REC
SILVER OBJECT CANT GOBLET
SLAB OBJECT CANT SLAB
SLEEP PRINT CANTSLEEP CANT
SNARK OBJECT CANT DOG / not there
SOUTH MOVE CANT S 1
SPIRE OBEY SPIREPROG CANT
SPIRIT OBJECT CANT DOG / never there
STAKE OBJECT CANT STEAK
STATUE OBJECT CANT STATUE
STEAK OBJECT CANT STEAK
STONE OBJECT CANT SLAB
STOP OBEY QUITPROG CANT
SW MOVE CANT SW
SWAMP OBEY SWAMPPROG CANT
TAKE OBEY TAKEPROG MAY REC
TALISMAN OBJECT CANT TALISMAN 3
TAPESTRY OBJECT CANT TAPESTRY
THE IGNORE MUST REC
THROW OBEY THROWPROG REQUEST REC
TIDES OBEY TIDESPROG CANT
TIN OBJECT CANT COIN3
TRIPE OBEY TRIPEPROG CANT
TYRAN OBJECT CANT TYRAN
UP MOVE CANT U 1
VALKYRIE OBJECT CANT BRUNN
VAMPIRE OBJECT CANT VAMPIRE
VAN OBJECT CANT PAINTING
WAIT PRINT OKMESS CANT
WALTZ NONE CANT WALTZSPEC
WAND OBJECT CANT WAND
WATER NONE CANT WATERSPEC
WAVE OBEY WAVEPROG MAY OBJ
WEST MOVE CANT W 1
WHEEL OBJECT CANT WHEEL
WHISTLE OBJECT CANT WHISTLE
WOOD OBJECT CANT BOOM
WTGROMT OBEY QUITPROG CANT 2 3
ZOG OBEY ZOGPROG CANT
ZOMBIE OBJECT CANT ZOMBIE
/
/ MESSAGES SECTION
/ ----------------
/
/ Descriptions of rooms & objects and other messages. Note that one
/ cannot easily comment this section.
!MESSAGE BELP1
You are in a chamber below the plateau. There is an exit
upwards, at the top of which is standing a Tyrannosaurus
Rex. A narrow tunnel leads off to the west.
!MESSAGE BELP2
You are in the chamber below the plateau.
!MESSAGE BOOM1
!SWITCH BOOM10 BOOM11 BOOM12
!MESSAGE BOOM10
There is a large curved object here, elegantly carved by
skilled craftsmen from the wood of the sacred tree of Hamil!
!MESSAGE BOOM11
There is an elegantly carved boomerang here!
!MESSAGE BOOM12
In the distance there is a flying boomerang.
!MESSAGE BOOM2
!SWITCH BOOM20 BOOM21
!MESSAGE BOOM20
A curved piece of wood.
!MESSAGE BOOM21
A boomerang.
!MESSAGE BOT1
!SWITCH BOT10 BOT11 BOT12
!MESSAGE BOT10
There is a sealed bottle here.
!MESSAGE BOT11
There is an empty bottle here.
!MESSAGE BOT12
There is a bottle of water here.
!MESSAGE BOT2
!SWITCH BOT20 BOT21 BOT22
!MESSAGE BOT20
A sealed bottle.
!MESSAGE BOT21
An empty bottle.
!MESSAGE BOT22
A bottle of water.
!MESSAGE BRUNN1
A huge Valkyrie, swathed in armour, is sleeping here.
!MESSAGE BUST1
There is a platinum bust of Sir Arthur Conan Doyle here!
!MESSAGE BUST2
A platinum bust.
!MESSAGE C1M1
There is a small brass disc here, with the inscription "1 GUILLIRA".
!MESSAGE C1M2
A brass guillira.
!MESSAGE C2M1
There is a small bronze square here, with the inscription "1 PESCUDO".
!MESSAGE C2M2
A bronze pescudo.
!MESSAGE C3M1
There is a small oval piece of tin here, labelled "1 SHILLARK".
!MESSAGE C3M2
A tin shillark.
!MESSAGE C4M1
There is a small aluminium dodecagon here, labelled "1 POUBLE".
!MESSAGE C4M2
An aluminium pouble.
!MESSAGE C5M1
There is a small nickel hexagon here, with the inscription "1 PFENTIME".
!MESSAGE C5M2
A nickel pfentime.
!MESSAGE C6M1
There is a small heptagonal piece of lead here, labelled "1 ORING".
!MESSAGE C6M2
A lead oring.
!MESSAGE C7M1
There is a small copper pentagon here, with the inscription "1 DOLLIN".
!MESSAGE C7M2
A copper dollin.
!MESSAGE C8M1
There is a small triangular piece of iron here, labelled "1 CENNY".
!MESSAGE C8M2
An iron cenny.
!MESSAGE CAVE1M1
You are in a large cave, which contains the bones of many
creatures, both familiar and unfamiliar. The whole place
is redolent of the bizarre - something resembling the
skeleton of a long-extinct brontosaurus is lying in one corner
of the room, in another you can see the remains of a
!SWITCH CAVE1M10 CAVE1M11
!MESSAGE CAVE1M10
pterodactyl. There is an entrance at the west end and an exit
into daylight to the northeast.
!MESSAGE CAVE1M11
pterodactyl. There is an entrance at the west end but the northeastern
exit is blocked by a rockfall. There is a newly-exposed hole high up
the northeastern wall but you will never get back up there in a month
of Sundays.
!MESSAGE CAVE1M2
You are in the cave of prehistoric remains.
!MESSAGE CAVE21
You are in a small cave above the cave of prehistoric remains.
It is possible to scramble down here, but you'll never get up
again.
!MESSAGE CAVE22
You are in a small cave above the cave of prehistoric remains.
!MESSAGE CAVE31
You are in a small cave in the forest which has clearly
been disused for many years. There is daylight to the west.
!MESSAGE CAVE32
You are in the cave in the forest.
!MESSAGE CHAMBM1
You are in a fairly large orbicular chamber with exits in many
directions. The original purpose of this room is not clear,
as it is without decoration of any kind.
!MESSAGE CHAMBM2
You are in the large orbicular chamber.
!MESSAGE CHAP1MS1
You are at the western end of a primitive stone chapel. Light
streams in through the windows, which are set high above your
reach in the entirely featureless walls of the building.
A plain arch leads northwards to the world outside which,
as you know from experience, is extremely hostile.
!MESSAGE CHAP1MS2
You are at the west end of the chapel.
!MESSAGE CHAP2MS1
You are in the middle of a small east-west chapel, which is lit by
windows far above your reach.
!MESSAGE CHAP2MS2
You are in the middle of the chapel.
!MESSAGE CHAP3MS1
You are at the east end of a small chapel, lit by windows far
above your reach. The stone walls are austerely featureless.
!MESSAGE CHAP3MS2
You are at the east end of the chapel.
!MESSAGE CHEESE1
There is a small piece of cheese here.
!MESSAGE CHEESE2
!SWITCH CHEESE20 CHEESE20 CHEESE22
!MESSAGE CHEESE20
A piece of cheese.
!MESSAGE CHEESE22
A rather dusty piece of cheese.
!MESSAGE COFFM1
!SWITCH COFFM10 COFFM11 COFFM10
!MESSAGE COFFM10
There is an extremely heavy coffin here, which is closed.
!MESSAGE COFFM11
There is an extremely heavy coffin here, which is open.
!MESSAGE CORR1
You are in a north-south corridor. There are side passages off to
the east and west here.
!MESSAGE CORR2
You are in the N-S corridor where it meets the side passages.
!MESSAGE COURT1M1
You are at the western end of the court. There is a portal
leading out at this side, above which are inscribed the
words:
THE RIGHTFUL HEIR TO THE KINGDOM OF HAMIL
WILL BE KNOWN BY HIS DEEDS
A lowered portcullis blocks the exit.
!MESSAGE COURT1M2
You are at the western end of the great court.
!MESSAGE COURT2M1
You are in the centre of a great court, by a large stone fountain.
There are gateways leading to the north and south, while the court
continues east and west of here.
!MESSAGE COURT2M2
You are in the centre of the court.
!MESSAGE COURT3M1
You are at the eastern end of a large open court, surrounded by high
brick walls. There is an exit into darkness to the northeast.
!MESSAGE COURT3M2
You are at the eastern end of the great court.
!MESSAGE CROWN1
The ancient crown of the Kings of Hamil is here!
!MESSAGE CROWN2
A crown.
!MESSAGE CROZ1
There is a golden crozier here!
!MESSAGE CROZ2
A golden crozier.
!MESSAGE CRY1
There are some priceless dilithium crystals here!
!MESSAGE CRY2
Some dilithium crystals.
!MESSAGE CRYPTMS1
You are in a crypt below the chapel, a dank and musty
chamber. Sinister passages lead to the east and west, and there
is a hole in the south wall. There are some steps up here,
but they lead nowhere.
On the wall is scrawled the following legend:
!SWITCH CRYPTS0 CRYPTS1 CRYPTS2 CRYPTS3 CRYPTS4 CRYPTS5 CRYPTS6 CRYPTS7
!MESSAGE CRYPTS0
TPM WNLLZSAY HL YAMNY
!MESSAGE CRYPTS1
TPM WNLLZSAY HL PSAYM
!MESSAGE CRYPTS2
TPM WNLLZSAY HL WSZMA
!MESSAGE CRYPTS3
TPM WNLLZSAY HL WAHYM
!MESSAGE CRYPTS4
TPM WNLLZSAY HL TAHWM
!MESSAGE CRYPTS5
TPM WNLLZSAY HL LWHAM
!MESSAGE CRYPTS6
TPM WNLLZSAY HL WNLTM
!MESSAGE CRYPTS7
TPM WNLLZSAY HL THYML
!MESSAGE CRYPTMS2
You are in the crypt.
!MESSAGE CUP1
You are in a small cupboard south of the fish room.
!MESSAGE CURTR1
!SWITCH CURTR10 CURTR11
!MESSAGE CURTR10
You are in a narrow room with a high ceiling. The eastern wall is
covered by an enormous tapestry, which depicts scenes of adventure
and heroism. It must be worth a fortune but you'll never be able to
carry it! There is an exit to the west.
!MESSAGE CURTR11
You are in a narrow room with a high ceiling. High up on the eastern
wall is a small window, through which sunlight is streaming. A cool
breeze blows in through the window. There is an exit to the west.
!MESSAGE CURTR2
!SWITCH CURTR20 CURTR21
!MESSAGE CURTR20
You are in the room with the priceless tapestry.
!MESSAGE CURTR21
You are in the tapestry room.
!MESSAGE CURVE11
You are in a narrow passage curving from southwest to east.
!MESSAGE CURVE21
You are in a narrow passage curving from northwest to east.
!MESSAGE CURVE31
You are in a narrow passage curving from west to southeast.
!MESSAGE DEEDS1
There are some important-looking documents here, which
are unfortunately written in a language you do not know.
!MESSAGE DEEDS2
Some important-looking documents.
!MESSAGE DENDM1
Dead end.
!MESSAGE DEP1
You are in a large cellar with walls of Lewis coral which has
obviously been designed as a home for some exotic beast. There
is a narrow exit upwards.
!MESSAGE DEP2
You are in a Snark house.
!MESSAGE DRAG1
There is a baby dragon here, breathing fire towards you.
!MESSAGE DUSTR1
You are in a small chamber the floor of which is covered by a
thick layer of white dust. There are exits to the west and
southeast.
!MESSAGE DUSTR2
You are in the dust chamber.
!MESSAGE DWA1
There is a vicious dwarf here brandishing an axe.
!MESSAGE EGG1
There is a huge egg here.
!MESSAGE EGG2
A huge egg.
!MESSAGE EMER1
There are some emeralds here!
!MESSAGE EMER2
Some emeralds.
!MESSAGE ENDRM1
You are in the entrance hall to Castle Hamil, which is
filled with knights who greet you as their lord. To the north
there is a passage into a small vault.
!MESSAGE ENDRM2
You are in the entrance hall.
!MESSAGE ENTERM1
!SWITCH ENTERM10 ENTERM11
!MESSAGE ENTERM10
You are in a narrow corridor. To the southwest is the
orbicular chamber and the corridor twists to exit
to the east.
!MESSAGE ENTERM11
You are in a narrow corridor, which enters from the
southwest and ends in a pile of rubble.
!MESSAGE ENTERM2
You are in a narrow twisting corridor.
!MESSAGE EXPECTED
That's what seems to be expected of you!
!MESSAGE FIRE1M1
!SWITCH FIRE1M10 FIRE1M11
!MESSAGE FIRE1M10
You are in a long east-west corridor. The eastern end is blocked by
a wall of fire, which reaches from the floor to the ceiling.
!MESSAGE FIRE1M11
You are in a long east-west corridor. There are the remains
of a fire at the eastern end.
!MESSAGE FIRE2M1
You are in a fairly large cave. There is an exit to the
west over the dying embers of a fire. Wagnerian sounds fill
the air, although it is not clear where they originate.
!MESSAGE FIRE2M2
You are in the Wagnerian cave.
!MESSAGE FISH1
!SWITCH FISH10 FISH11 FISH12
!MESSAGE FISH10
You are in a square room whose walls gleam with pictures of fish of
every description... turbot, halibut, you name it. A passage leads
back to the north.
!MESSAGE FISH11
On the western wall the word SWAMP seems to stand out from the
surrounding blackness, as though produced by a thousand glow-worms.
!MESSAGE FISH12
You are in a square room decorated with pictures of fish. There is
a newly-discovered exit to the south and a passage back to the north.
!MESSAGE FISH2
You are in the fish room.
!MESSAGE FOLIO1
There is a first folio of Shakespeare here!
!MESSAGE FOLIO2
A first folio of Shakespeare.
!MESSAGE FOR11
You are in a dark forest. There are paths to the southeast and southwest
and a gateway leading to the north.
!MESSAGE FOR12
You are in the forest by the gateway to the court.
!MESSAGE FOR21
You are in the forest. There are paths to the east, northeast
and southeast. To the west, the forest ends in a field.
!MESSAGE FOR22
You are in the forest near the field.
!MESSAGE FOR31
You are in the forest. There are paths to the west, northwest and southwest.
!SWITCH FOR310 FOR311
!MESSAGE FOR310
To the east is the entrance to a cave, but this is blocked by
an impenetrable mass of undergrowth.
!MESSAGE FOR311
To the east is the entrance to the cave. There seems to have
been a fairly large fire here recently.
!MESSAGE FOR32
You are in the forest by the entrance to the cave.
!MESSAGE FOR41
You are in the forest. There are paths to the northeast and northwest.
There is some sort of clearing to the south.
!MESSAGE FOR42
You are in the forest by the clearing.
!MESSAGE FORK1M1
The passage forks here, entering from the northeast and
exiting to the south and west.
!MESSAGE FORK2M1
The passage forks here, entering from the west and exiting to
the northeast and southeast.
!MESSAGE FORK3M1
The passage forks here, entering from the northwest and exiting
to the east and south (into a labyrinth).
!MESSAGE GARLIC1
There is a small piece of garlic here.
!MESSAGE GARLIC2
!SWITCH GARLIC20 GARLIC20 GARLIC22
!MESSAGE GARLIC20
A small piece of garlic.
!MESSAGE GARLIC22
A rather dusty piece of garlic.
!MESSAGE GOB1
There is an antique silver goblet here!
!MESSAGE GOB2
The 'hob' goblet.
!MESSAGE GROVE1
You are in a luxurious grove which contains an abundance of beautiful
plants. The sun is shining, birds twitter, bees hum... in fact the
whole atmosphere is soporific in the extreme. Now awake, you find it
difficult to remain so. The only exit is back to the north.
!MESSAGE GROVE2
You are in the grove.
!MESSAGE H9M1
You are in a small valley surrounded by unclimbable rocks. The only
exit, to the west, is blocked. A mighty voice intones "FARES PLEASE!"
!MESSAGE H9M2
You are in the valley.
!MESSAGE H10M1
You are in the Quaternion room. On the wall is scribbled
a selection of obscure algebraic formulae, none of which
seem particularly relevant at this juncture. There
is a narrow exit to the south.
!MESSAGE H10M2
You are in the Quaternion room.
!MESSAGE H11M1
You are in a small cave with an exit to the north and
a narrow archway leading to the west.
!MESSAGE HELM1
There is a richly bejewelled helmet here!
!MESSAGE HELM2
A bejewelled helmet.
!MESSAGE HEX1
!SWITCH HEX10 HEX11
!MESSAGE HEX10
There is a small six-legged creature with a single large eye sitting
on the ground here. It is crying "Mama! Mama!" plaintively in a
squeaky voice.
!MESSAGE HEX11
There is a dead hexapod on the ground here.
!MESSAGE HEX2
!SWITCH HEX20 HEX21 HEX22
!MESSAGE HEX20
A baby hexapod (sobbing).
!MESSAGE HEX21
A baby hexapod (dead).
!MESSAGE HEX22
A baby hexapod (gurgling contentedly).
!MESSAGE HMAZE0
You are in the Maze of Hamil. Light streams in through many
gaps in the rocks. There is the constant sound of rockfalls,
distant and not-so-distant.
!MESSAGE HMAZE
You are in the Maze of Hamil.
!MESSAGE HOBM1
You are in a small room which is furnished as a living room,
though evidently for an inhuman being, to judge from the designs
on the walls. These depict different ways of cooking human
flesh. I hope you have more taste.
!MESSAGE HOBM2
You are in the living room, and still living.
!MESSAGE HOLDING
You are holding:
!MESSAGE JACKM
!SWITCH JACKM0 JACKM1
!MESSAGE JACKM0
There is a jackdaw flying around in circles far above you.
Something it is carrying in its beak glisters in the sunlight.
!MESSAGE JACKM1
There is a dead jackdaw here.
!MESSAGE JACKM2
!SWITCH JACKM21 JACKM21 JACKM22
!MESSAGE JACKM21
A dead jackdaw (ugh!)
!MESSAGE JACKM22
A dead and rather dusty jackdaw.
!MESSAGE KOB1
There is an angry kobold here.
!MESSAGE LABM
You are in the labyrinth.
!MESSAGE LABM2
You are at the centre of the labyrinth.
!MESSAGE LADY1
!SWITCH LADY10 LADY11
!MESSAGE LADY10
There is an old lady here, sitting on a rock. Even in this
light, there appears to be something odd about her.
!MESSAGE LADY11
The mangled remains of an elderly female hobgoblin are here.
!MESSAGE LAMPMS1
There is a cheap bicycle lamp here.
!SWITCH LAMPMOFF LAMPMON
!MESSAGE LAMPMOFF
It is off.
!MESSAGE LAMPMON
It is burning brightly.
!MESSAGE LAMPMS2
A bicycle lamp.
!SWITCH LAMPMOFF LAMPMON
!MESSAGE LWMESS
You are in the Lost World.
!MESSAGE MAIZEL
You are in a huge cornfield. The atmosphere has the scent of
magic and sorcery about it. There are paths in various directions.
!MESSAGE MAIZES
You are in the enchanted maize.
!MESSAGE MUM1
There is a mummy here, shambling towards you.
!MESSAGE MURAL1
You are in a small room with exits to the southeast and northwest. The
whole of one wall is taken up with a large painted mural, which shows
!SWITCH MUR10 MUR11 MUR12 MUR13 MUR14 MUR15 MUR16 MUR17 MUR18
!MESSAGE MUR10
the explorations of Peary.
!MESSAGE MUR11
the explorations of Peary and Marco Polo.
!MESSAGE MUR12
the explorations of Marco Polo.
!MESSAGE MUR13
the explorations of Captain Scott and Marco Polo.
!MESSAGE MUR14
the explorations of Captain Scott.
!MESSAGE MUR15
the explorations of Columbus and Captain Scott.
!MESSAGE MUR16
the explorations of Columbus.
!MESSAGE MUR17
the explorations of Columbus and Peary.
!MESSAGE MUR18
the slaying of some fabulous beast.
!MESSAGE MURAL2
You are in the small room with the painted mural.
!MESSAGE MUS11
You are at the main entrance to the museum. There are passages to the
north, east and west and a gateway to the south.
!MESSAGE MUS12
You are at the main entrance to the museum.
!MESSAGE MUS31
You are in an east-west passage. There is a sign reading "TO THE SNARKS"
and an arrow pointing east.
!MESSAGE MUS32
You are in the east-west passage by the sign.
!MESSAGE MUS41
The passage comes to a dead end here, but there is a hole in the floor.
!MESSAGE MUS42
You are at the end of the passage by the hole in the floor.
!MESSAGE MUS51
You are at a junction of passages in the museum, with corridors
to the north, south, east and west.
!MESSAGE MUS52
You are at the junction of passages in the museum.
!MESSAGE MUS61
You are in a short passage. To the west there is the back entrance
to a museum, and to the east the passage widens into a chamber.
!MESSAGE MUS62
You are at the back entrance to the museum.
!MESSAGE ORC1
There is a huge orc here, who is armed with a mighty bludgeon.
!MESSAGE PAINT1
There is an oil painting by Van Gogh here!
!MESSAGE PAINT2
An oil painting.
!MESSAGE PEARLS1
There is a string of pearls here!
!MESSAGE PEARLS2
A string of pearls.
!MESSAGE PIT11
You are on the western side of a deep pit on an east-west path which
leads to the southern edge of the pit.
!MESSAGE PIT12
You are on the western side of the pit.
!MESSAGE PIT21
You are on an east-west path at the southern edge of the pit.
!MESSAGE PIT22
You are at the brink of the pit.
!MESSAGE PIT31
You are on the eastern side of the pit. The only exit is westwards
along the rim of the pit.
!MESSAGE PLAINM10
You are on a rocky plain which extends in all directions. The ground
is heavily cratered and there are boulders and rocks as far as the
eye can see. A passage leads down into darkness here.
!MESSAGE PLAINM11
You are on the rocky plain by the tunnel.
!MESSAGE PLAINM20
You are on a rocky plain which extends in all directions. The ground
is heavily cratered and there are boulders and rocks as far as the
eye can see.
!MESSAGE PLAINM21
You are on the rocky plain.
!MESSAGE PLATEAU1
You are at the centre of the plateau in the Lost World. Here there
is a passage down into the bowels of the earth.
!MESSAGE PLATEAU2
You are at the centre of the plateau.
!MESSAGE PWM1
You are in a short passage, which enters from the west
!SWITCH PWM10 PWM11
!MESSAGE PWM10
and terminates in a large metal door with no obvious
means of opening. The door bears the legend
HE WHO WISHES TO PROCEED FURTHER MUST SPEAK THE PASSWORD
!MESSAGE PWM11
and leads through an open doorway.
!MESSAGE PWM2
You are in the passage with the metal door.
!SWITCH PWM20 PWM21
!MESSAGE PWM20
The door is closed.
!MESSAGE PWM21
The door is open.
!MESSAGE RINGM1
There is a diamond ring here!
!MESSAGE RINGM2
A diamond ring.
!MESSAGE RODMS1
!SWITCH RODMS10 MNULL
!MESSAGE RODMS10
There is a rusty rod here.
!MESSAGE RODMS2
A rusty rod.
!MESSAGE RUBY1
The lost ruby of Hamil is here!
!MESSAGE RUBY2
A large ruby.
!MESSAGE SAP1
There is a box of sapphires here!
!MESSAGE SAP2
A box of sapphires.
!MESSAGE SLABMS1
!SWITCH SLABMS10 SLABMS11
!MESSAGE SLABMS10
There is an extremely heavy stone slab set into the floor here.
It bears the name O'GRAM.
!MESSAGE SLABMS11
There is a stone slab here, propped up by a rusty rod.
A flight of steps can be seen to descend beneath the slab.
!MESSAGE SN10
You are in a steep twisting passage. On the wall is daubed
the word "UNFORTUNATELY".
!MESSAGE SN20
You are in a steep twisting passage. On the wall is daubed
the word "SNARKS".
!MESSAGE SN30
You are in a steep twisting passage. On the wall is daubed
the word "HAVE".
!MESSAGE SN40
You are in a steep twisting passage. On the wall is daubed
the word "TO".
!MESSAGE SN50
You are in a steep twisting passage. On the wall is daubed
the word "BE".
!MESSAGE SN60
You are in a steep twisting passage. On the wall is daubed
the word "KEPT".
!MESSAGE SN70
You are in a steep twisting passage. On the wall is daubed
the word "DEEP".
!MESSAGE SN80
You are in a steep twisting passage. On the wall is daubed
the word "IN".
!MESSAGE SN90
You are in a steep twisting passage. On the wall is daubed
the word "THE".
!MESSAGE SNX0
You are in a steep twisting passage. On the wall is daubed
the word "GROUND".
!MESSAGE SPIT1
You are in a curiously constructed room. There are steep passages
leading down from here in all eight horizontal directions, each
labelled "TO THE SNARK". There is also a hole in the roof, through
which you will have no trouble returning.
!MESSAGE SPIT2
You are in the room with the eight tunnels leading from it.
!MESSAGE STATMESS
There is a huge marble statue by Michaelangelo here!
!MESSAGE STEAKMS1
There is a rather ancient piece of steak here.
!MESSAGE STEAKMS2
!SWITCH STEAKM20 STEAKM20 STEAKM22
!MESSAGE STEAKM20
An old steak.
!MESSAGE STEAKM22
A dusty piece of steak.
!MESSAGE SUBSM1
You are in a small cavern containing several tiny pools of
water. There are exits to the east and northwest, and a passage
up to the south, but you hear sounds which strongly suggest to you
that subsidence and rockfall are taking place close at hand.
!MESSAGE SUBSM2
You are in the cavern with the pools of water.
!MESSAGE TAL1
There is a primitive talisman here, with the word 'OBLIVION' inscribed
on it.
!MESSAGE TAL2
A talisman.
!MESSAGE TAP1
!SWITCH MNULL TAP11
!MESSAGE TAP11
There is an enormous tapestry here!
!MESSAGE TER1
You are in the departure lounge for Valhalla, a spacious
room filled with riches of every kind. There are a dozen
dancing maidens standing in one corner of the room, looking
expectantly at you. Heavenly sounds fill the air. On the wall
there are three notices, which read ZPNT NAM TPMHA SAYMAL?
ZPNT ZNL TPM WPANLM? and ZPNT HL TPM LMT, LSATMY?
!MESSAGE TYR1
!SWITCH TYR10 TYR11
!MESSAGE TYR10
There is a Tyrannosaurus Rex here, fast asleep, and snoring
thunderously.
!MESSAGE TYR11
A Tyrannosaurus Rex is lumbering towards you.
!MESSAGE VAMPM1
You are in a small sinister chamber smelling of mould
and decay.
!MESSAGE VAMP1
There is a thirsty vampire here, moving towards you with a
vicious gleam in his eye.
!MESSAGE VAULT1
You are in a strongly fortified square vault which is constructed
largely of granite. There are no exits other than the obvious one
by which you arrived.
!MESSAGE VAULT2
You are in the vault.
!MESSAGE WANDM1
There is a small ivory wand here, on which are carved some
mystic runes.
!MESSAGE WANDM2
A wand.
!MESSAGE WHEEL1
There is a bicycle wheel here.
!MESSAGE WHEEL2
A bicycle wheel.
!MESSAGE WHIST1
There is a small whistle here.
!MESSAGE WHIST2
A whistle.
!MESSAGE WPASSM1
You are in a curved passage to the west of the orbicular
chamber. The passage exits into daylight to the southwest.
!MESSAGE ZOM1
A zombie is trudging towards you.
!MESSAGE ALRCLOSED
It's already closed!
!MESSAGE ALRDEAD
The @x33 is already dead, you great raving loony!
!MESSAGE ALRHELD
You're already holding that!
!MESSAGE ALROFF
It's already off!
!MESSAGE ALRON
It's already on!
!MESSAGE ALROPEN
It's already open!
!MESSAGE AMNESIA
I can't remember what that word means.
!MESSAGE BARRIER
An invisible barrier blocks your way. It seems that the Valkyrie
has friends in high places.
!MESSAGE BOOJUM
In the room there is a Snark burbling frumiously to itself. As you
approach, it roars like a Bandersnatch. "Oh no, it's a Boojum!" you
gasp, as you softly and suddenly vanish away.
!MESSAGE BOOMDEATH
The returning boomerang catches you neatly on the side of the
neck, lacerating you badly. You bleed to death.
!MESSAGE BOOMFLIES
You hurl the boomerang into the air with all the strength at
your command. It flies off into the distance.
!MESSAGE BOTEMPTY
The bottle is already empty!
!MESSAGE BOTSEALED
The bottle is sealed!
!MESSAGE BOTFULL
The bottle is already full of water!
!MESSAGE CANTDIG
Unfortunately the ground is too hard for you dig here with your bare
hands.
!MESSAGE CANTDO
You can't do that!
!MESSAGE CANTEAT
You can't eat that!
!MESSAGE CANTLIFT
You can't lift that!
!MESSAGE CANTSLEEP
It's curious, but when you try to sleep at will, you find that
you stay awake thinking.
!MESSAGE CANTTAKE
You can't take that!
!MESSAGE COFFACL
The coffin is already closed!
!MESSAGE COFFAOP
The coffin is already open!
!MESSAGE CRUELHEX
You can't do that! What would its mother say?
!MESSAGE CRUMBLES
A ray of light hits the vampire, who emits a ghastly screech
and then literally crumbles into dust, which is dispersed by
a draught from the window.
!MESSAGE DANCEM
!SWITCH DANC0 DANC1 DANC2 DANC3
!MESSAGE DANC0
You dance a little jig.
!MESSAGE DANC1
You perform an Indian rain dance.
!MESSAGE DANC2
You do the twist.
!MESSAGE DANC3
You perform a Samoan fertility dance.
!MESSAGE DAYDREAM
Life, what is it but a dream?
!MESSAGE DIEHOBMS
You approach the old lady, who stands up and attacks you
viciously. Now that you are close to her you can see that
she is in fact a hobgoblin. However, this is the last thing
you see before becoming an ingredient in one of her recipes.
!MESSAGE DIEDWARF
The dwarf hacks you to pieces with his axe.
!MESSAGE DIEKOB
The kobold pulls out a knife and stabs you.
!MESSAGE DIEMUM
The mummy throttles you to death.
!MESSAGE DIEORC
The orc bludgeons you to a pulp.
!MESSAGE DIEZOM
The zombie crushes you to death.
!MESSAGE DIENASTY
!SWITCH DIEN0 DIEN1 DIEN2 DIEN3 DIEN4 DIEN5 DIEN6 DIEN7
!MESSAGE DIEN0
While you are wondering what to do next, a giant centipede
scuttles in and gives you a poisonous bite in the leg.
!MESSAGE DIEN1
A monstrous crow appears from nowhere, swoops down on you,
and carries you away. Later you are fed to its young.
!MESSAGE DIEN2
A giant weasel enters and gives you a vicious bite, removing your
left arm. You lose more blood than you had to spare.
!MESSAGE DIEN3
A giant rat bounds in and gobbles you up.
!MESSAGE DIEN4
While you are drivelling around, a giant toad crawls in
and leaps upon you, crushing you to death.
!MESSAGE DIEN5
A giant bat flutters by, and pauses to feed on your blood.
!MESSAGE DIEN6
A giant aardvark appears, catches you with its tongue, and
eats you. It must have mistaken you for a giant ant!
!MESSAGE DIEN7
A giant bee buzzes in and stings you. The fact that this is
a cause of the bee's death as well as yours is small consolation.
!MESSAGE DISAPPOINT
The maidens look at you with disappointment. I'm afraid
that you've just missed the last boat to Valhalla.
You scored 299 points out of a maximum of 300.
!MESSAGE DIVEPIT
You dive into the pit and break your neck in three places.
!MESSAGE DJINNAP
A huge djinn appears from the bottle with a WHOOSH. He says sonorously
"Many thanks, oh effulgent one! I will help thee if it be in my power."
!SWITCH DJN0 DJN1 DJN2 DJN3
!MESSAGE DJN0
He then vanishes and reappears after a short while, saying "Alas, it
seems that I cannot aid thee! Farewell!". The djinn then vanishes for good.
!MESSAGE DJN1
He then vanishes and reappears after a short while, saying "I have done thee
service to the best of my powers, oh lustrous one! Farewell!" The djinn
then vanishes for good.
!MESSAGE DJN2
He then takes up the massive tapestry and bears it away. He returns soon
afterwards, saying "I have taken your treasure to the appointed place, oh
splendrous one! Farewell!" The djinn then vanishes for good.
!MESSAGE DJN3
He then vanishes and reappears after a short while bearing the massive
tapestry. He bows and says "I bring your treasure to the appointed
place, oh luminous one! Farewell!" The djinn then vanishes for good.
!MESSAGE DNOTHUNG
The dragon doesn't seem to be hungry. Besides, this one
lives entirely on treacle and you haven't found any yet.
!MESSAGE DONOTP
As you leave the room, a disembodied voice whispers 'Do not pause!'
!MESSAGE DOGBAD
An enormous alsatian appears, snarling and foaming at the mouth.
It sets on you and rends you limb from limb.
!MESSAGE DOGGOOD
An enormous alsatian appears, snarling and foaming at the mouth.
It is about to set on you but sees the old lady as a worthier
opponent and fights a fierce battle with her, eventually tearing
her limb from limb. It then slopes off, exhausted.
!MESSAGE DONTSEE
I don't see that around here!
!MESSAGE DOORBLOCK
I'm afraid I never could walk through sealed doors.
!MESSAGE DOORHEAVY
The door is very heavy, too heavy for you to move.
!MESSAGE DRAGBLOCK
The dragon refuses to let you enter the cave, driving you
back with flames as you approach.
!MESSAGE DROPOBJ1
!SWITCH DROPOBJ3 DROPOBJ2 DROPOBJ3
!MESSAGE DROPOBJ2
You dropped one object.
!MESSAGE DROPOBJ3
You dropped @x37 objects.
!MESSAGE DTPW
Don't expect me to know anything about passwords!
!MESSAGE EARTHQUAKE
As you leave the area, there is another earthquake and the
room you were in is completely demolished.
!MESSAGE EGGKILL1
Suddenly the egg you are carrying gives a loud CRACK, the shell
!SWITCH EGGKILL3
!MESSAGE EGGKILL2
The egg near which you are standing gives a loud CRACK, the shell
!SWITCH EGGKILL3
!MESSAGE EGGKILL3
splits, and a baby dragon emerges. It purrs happily at you,
unfortunately giving you third degree burns in the process.
In fact the dragon's attempt to make friends merely results
in your demise.
!MESSAGE ENCHANT
As you enter the room an enchantress approaches you and embraces you
fervently. This may be more fun than adventuring but in fact she
underestimates her powers and you soon fall into a coma and die.
!MESSAGE EXTINGUISH
You throw the water onto the flames, which die down very rapidly
and are then completely quenched.
!MESSAGE FALLSAWAY
Something softly and suddenly vanishes away.
!MESSAGE FARESPLEASE
The voice repeats "FARES PLEASE!"
!MESSAGE FISHFALL
The ceiling falls in on you and you are quickly crushed to death.
!MESSAGE FISHOPEN
A concealed exit in the south wall silently slides open.
!MESSAGE FLAMESBLOCK
The flames block your way. Well they would, wouldn't they?
!MESSAGE FLIESOPEN
The door flies open.
!MESSAGE FOUNDMAMA
The baby hexapod runs into the arms of a much larger isomorphic
creature, obviously its parent. In a similar high-pitched voice
this creature squeaks "We thank you for seeing our little Alpha
Centauri home safely to us. Pray accept this reward - such baubles
are of no interest to us but we understand that they are highly
regarded by humanoids." She then drops a string of pearls at your
feet and the two of them disappear down a hole in the ground,
which at once closes after them.
!MESSAGE FULLFARE
The voice booms "The fare is 8 slotules, not just @x34!"
!MESSAGE GIANTHAND
The voice bellows "NOTED" and a giant hand appears as if from nowhere
and picks you up. You are carried some distance across breathtaking
rocky scenery by what you see to be a 90-foot cyclops before being
deposited gently on the ground. The cyclops then vanishes and you see that...
!MESSAGE GOBDEATH
You attempt to steal the goblet off the old lady, who
stands up and attacks you viciously. Now that you are
close to her you see that she is in fact a hobgoblin.
However this is the last thing you see before becoming
an ingredient in one of her recipes.
!MESSAGE GROUNDSUBS
The earth opens up and swallows you. You die of bruises, suffocation etc.
!MESSAGE GROYMESS
Well, that's got rid of you then I suppose.
!MESSAGE HAMILMESS
That's the name of the game!
!MESSAGE HANDSFULL
You can't carry anything more - you'll have to drop something
before you can take that.
!MESSAGE HANDSF2
You've had to leave some things, as your hands are now full.
!MESSAGE HELLO
HAMIL - version 3.03. All comments to JRP1 please.
!MESSAGE HELP
To move, give directions (N, NE, E, ... NW, U, D, B(ack)). ON & OFF
control the lamp. Other good words are TAKE, DROP, LOOK, INV, SCORE,
SAVE and QUIT, plus a few you must find for yourself.
!MESSAGE HEXDIES
As you let go of the sobbing hexapod it gives a faint squeak and dies.
!MESSAGE HEXGURGLES
The hexapod gobbles up the steak greedily after which it calms
down considerably, only occasionally burping and saying "Mama?"
!MESSAGE HEXMOVES
You drop the hexapod to the ground. It runs off to the
!SWITCH MNULL HEXM0 HEXM1 HEXM2
!MESSAGE HEXM0
southeast.
!MESSAGE HEXM1
south.
!MESSAGE HEXM2
southwest.
!MESSAGE HEXON
!SWITCH MNULL HEXON0 HEXON1 HEXON2
!MESSAGE HEXON0
The hexapod runs southeast.
!MESSAGE HEXON1
The hexapod runs south.
!MESSAGE HEXON2
The hexapod runs southwest.
!MESSAGE HEXRAN
As you drop the hexapod it scurries away out of sight.
!MESSAGE HIDDENDOOR
Suddenly a narrow crack in the wall begins to widen. You rush for it
and manage to squeeze through, leaving your possessions behind in the
vault, before it closes again. On looking at your new surroundings,
you find that...
!MESSAGE HIJACK
The boomerang catches the jackdaw a passing blow, knocking it
to the ground, dead. The weapon itself continues in flight.
!MESSAGE INCIN
Although young, the dragon has no trouble in taking care of
itself, and you are somewhat incinerated.
!MESSAGE INPIT
You throw the @x33 into the pit.
!MESSAGE INSTRMESS
For more info on how to proceed, type HELP.
Welcome to Hamil, a world containing many wondrous and
terrifying things. The story so far...
You have discovered that the outside world is dangerous. Pursued for
many days and nights by hordes of hostile beings, you have arrived,
breathless, at a sanctuary. It seems that you are trapped, as it would
be foolhardy to venture outside again. However, there may be more to this
place than you think...
!MESSAGE INSTRUC
Do you want me to set the scene?
!MESSAGE KARATE
You attack the nearest maiden, but she turns out to be an expert in
Karate and breaks your neck with a single blow.
!MESSAGE KCHAPMESS
!SWITCH KC0 KC1 KC2
!MESSAGE KC0
You step recklessly through the archway, to be hit
simultaneously by about a dozen arrows, three flying axes,
and a couple of large boulders. This is unfortunate.
!MESSAGE KC1
You step recklessly through the archway, to be set upon
simultaneously by three lions, a leopard and a wolf. This
is not at all pleasant, but if it's any consolation, the wolf
missed out on the best meat.
!MESSAGE KC2
You step recklessly through the archway. A 16-ton weight
lands on your head. This is something of a setback for you.
!MESSAGE KOBRUNS
The kobold suddenly shows signs of terror and runs away from
you at top speed!
!MESSAGE LEGION
I think you should sign up for the French Foreign Legion if you want
to forget.
!MESSAGE LOWERPORT
The portcullis is lowered behind you as you pass.
!MESSAGE MECDIE
An eight-foot goddess with golden hair appears before you and demands
to know why you have summoned her. Finding that you have no convincing
explanation, she carries you off to a fiery furnace, where you are
reduced to ashes.
!MESSAGE MOAN
Nothing interesting ever happens.
!MESSAGE MONSTER
As you reach the edge of the pit a large furry arm reaches out and
pulls you into the murky depths. There are horrendous sounds of
snarling and your body is wrenched to pieces and then eaten.
!MESSAGE MNULL
!MESSAGE MOREGAMES
Do you want another game, oh heroic one?
!MESSAGE NHAPPENS
Nothing interesting happens.
!MESSAGE NHOLDWATER
You're not holding any water!
!MESSAGE NHWHIST
You're not holding a whistle!
!MESSAGE NOBOOJ
In the room there is a Snark burbling frumiously to itself. As you
approach, it gives you an uffish look and then disappears completely.
!MESSAGE NOBOTTLE
You don't have a bottle!
!MESSAGE NOCOINS
Coins? What coins?
!MESSAGE NODRINK
There is nothing here to drink.
!MESSAGE NOEATEGG
You settle down to eat the egg but you find that you can't
even break the shell.
!MESSAGE NOEGGBREAK
Despite all your efforts, you are unable to break the shell.
!MESSAGE NOFIND
You dig in the dust but find nothing.
!MESSAGE NOFOOD
You don't have any suitable food with you.
!MESSAGE NOGOBWAT
The goblet is purely ornamental and might equally well have been
designed for use as a colander. It certainly won't hold anything.
!MESSAGE NOHIGHER
You can't lift the slab any further.
!MESSAGE NOSAVECORN
I'm afraid the spirits of the cornfield would make my life a misery if
I let you save round here.
!MESSAGE NOSAVELAB
Your chances of being saved here are small!
!MESSAGE NOTEDMESS
We endeavour to give satisfaction.
!MESSAGE NOTHELD
You're not holding that!
!MESSAGE NOTHERE
It's not here!
!MESSAGE NOTHINGM
Nothing.
!MESSAGE NOTHLAMP
You're not holding the lamp!
!MESSAGE NOTHNGHERE
There's nothing here you can take easily.
!MESSAGE NOTHOLDING
You're not holding anything!
!MESSAGE NOTHWAND
You're not holding the wand!
!MESSAGE NOTIMEREAD
This is not the time to be catching up on your reading!
!MESSAGE NOTKNOW
You don't know the language they're written in.
!MESSAGE NOWATER
There's no water here!
!MESSAGE NOWAYMESS
You can't go in that direction!
!MESSAGE OBMESS
Nothing memorable happens.
!MESSAGE OGREMESS
A large ogre appears and taps you on the shoulder. "Oy!" he says,
"I'm not having anyone fighting with broken bottles round here!"
He then leaves, taking the bottle with him.
!MESSAGE OHDEAR
Oh dear! You seem to have passed away.
!MESSAGE OHYEAH
Oh yeah? You'd better explain how.
!MESSAGE OKMESS
OK.
!MESSAGE OOPS
Oh, by the way, you seem to have left the talisman behind.
!MESSAGE PICKDROP
Your muscles are not seriously strained as you raise and then
lower the @x33.
!MESSAGE POISON
Well, the @x33 looks most unappetizing now but you eat it
anyway. Shortly afterwards you experience severe stomach pains and die.
!MESSAGE PRISEMESS
You succeed in prising the slab from the ground with the aid of
the metal rod. A flight of steps beneath is revealed, and you
therefore prop the slab up with the rod, leaving a gap through
which you should just be able to squeeze.
!MESSAGE PTEROGET
You have reached the centre of the plateau. Unfortunately there are
still @x34 pterodactyls remaining here, waiting to take off, and
they set upon you vigorously with their talons. I think you have
just become extinct.
!MESSAGE QUITQUERY
Are you certain you want to quit?
!MESSAGE RAISEPORT
The sentries see at once that you are carrying the deeds to
castle Hamil, bow respectfully to you, and raise the portcullis.
!MESSAGE RANDOMPASS
You choose a passage at random and go down it.
!MESSAGE RATHERNOT
I'd rather not try, if it's all the same to you.
!MESSAGE REFUSE
The sentries refuse to raise the portcullis.
!MESSAGE RELUCDRINK
Well, you weren't all that thirsty, but you take a long drink
of water. I'm sorry I've nothing stronger to offer you.
!MESSAGE RELUCTEAT
Well, you weren't really hungry, but you eat the @x33 all
the same. Don't blame me if you get indigestion.
!MESSAGE ROCKFALL
As you leave there is another earth tremor and
the room you were in is completely destroyed.
!MESSAGE SCOREM1
You have scored @x34 points out of a maximum of 300.
!MESSAGE SCOREM2
You scored @x34 points out of a maximum of 300.
!MESSAGE SCOREM3
If you quit now you will have scored @x34 points out of
a maximum of 300.
!MESSAGE SILENCE
Suddenly there is an almighty screech followed by silence.
!MESSAGE SCRAMBLE
You clamber down to the cave below, slip, and land with a thud,
slightly bruising your upper arm in the process.
!MESSAGE SLABFALLS
As you take the rod, the slab falls back into position,
covering the hole beneath.
!MESSAGE SLEEPBAD
You enter a luxurious grove in which the atmosphere is so heady
that you fall asleep almost at once. You awake shortly afterwards
with no (apparent) after-effects.
!MESSAGE SLEEPGOOD
You enter a luxurious grove in which the atmosphere is so heady
that you fall asleep almost at once. The cheese you ate so recently
gives you terrible nightmares, from which you are glad to awaken. The
most vivid one is about a stone statue and a man calling out
!SWITCH SG0 SG1 SG2 SG3 SG4
!MESSAGE SG0
"GLOOP".
!MESSAGE SG1
"ZOG".
!MESSAGE SG2
"ADRIC".
!MESSAGE SG3
"ARCOROC".
!MESSAGE SG4
"NOMET".
!MESSAGE SORRYBLOCK
Sorry, this path has been blocked by an avalanche.
!MESSAGE SPIRIT
Three spirits appear in front of you. They claim to be the servants
of the Maize Goddess, Mecohuatl, and promptly bear you away as a
sacrifice to their deity.
!MESSAGE STATWALKS
To your surprise the statue suddenly comes to life and strides
away down the passage.
!MESSAGE STEPSMESS
You squeeze through the hole and as you do so the
rusty rod snaps. The slab falls back into position, missing
you by inches. Despite all your efforts there is no way
back, so you proceed down the short flight of steps.
!MESSAGE TCURTMESS
You pull down the tapestry from the wall, exposing a small
window, far above your reach, through which the sun is shining
and a refreshing breeze is blowing.
!MESSAGE THRESH
There are sounds of roaring and threshing in the pit.
!MESSAGE TOOHEAVY
You are unable to lift it!
!MESSAGE TOOKOBJ1
!SWITCH NOTHNGHERE TOOKOBJ3 TOOKOBJ4
!MESSAGE TOOKOBJ2
!SWITCH TOOKOBJ4 TOOKOBJ3 TOOKOBJ4
!MESSAGE TOOKOBJ3
You took one object.
!MESSAGE TOOKOBJ4
You took @x37 objects.
!MESSAGE TOOLATE
As you leave the room, a disembodied voice sighs 'Too late!'
!MESSAGE TOONARROW
The neck of the bottle is too narrow for you to get any dust in.
!MESSAGE TREMORMESS
As you leave the room there is a violent earth tremor and a
mighty rushing wind, which between them force you to drop
all your possessions. Moreover a large rock falls, narrowly
missing you and cutting off the way you came in.
!MESSAGE TYRAHA
You rashly venture outside again, to be eagerly devoured by the
Tyrannosaurus Rex. What a fool.
!MESSAGE TYRAVAL
The T.R. follows, causing an avalanche to block the path you took.
!MESSAGE TYRCATCH
The Tyrannosaurus Rex finally catches you and gobbles you up.
It then settles down for a sleep, exhausted by the effort.
!MESSAGE TYRCLUMP
The Tyrannosaurus is still clumping towards you.
!MESSAGE TYRFUTILE
In a fit of optimism you hurl yourself at the Tyrannosaurus Rex.
!SWITCH TYF0 TYF1
!MESSAGE TYF0
It wakes and gobbles you up, and then goes back to sleep (not
that you see this).
!MESSAGE TYF1
It eagerly gobbles you up and then settles down for a sleep
(not that you see this).
!MESSAGE TYRTRAP
You have reached the centre of the plateau, from which the
last pterodactyl has just taken off. However the Tyrannosaurus
follows you, causing a final avalanche (the best) which cuts
off the path by which you got here.
!MESSAGE TYRWAKES
As you pass the Tyrannosaurus, it stirs uneasily and then
wakes, stands up and begins lumbering towards you. You run through
the exit and find yourself on the slopes of the Lost World - a vast
plateau criss-crossed by a network of boulder-strewn paths and populated
by beings long thought extinct. From this point it is also possible to
descend to the centre of the plateau, from which a large flock of
pterodactyls is taking off in perfect formation. Meanwhile, the
Tyrannosaurus is still galumphing towards you, having already caused
a small avalanche which has blocked the path back into its cave.
!MESSAGE UNAPP
The hexapod turns up its nose at your rather unappetizing steak.
!MESSAGE VALMESS
The nymphs burst into a round of applause, a hidden orchestra
plays the Blue Danube, and you waltz the night away. After this
you all embark on the ship for Valhalla and set sail, watched
by a cheering crowd of hobgoblins, orcs, hexapods and many
other exotic beings.
You scored 300 points out of a maximum of 300.
Perhaps you really are quite clever. Well done!
!MESSAGE VAMPAPPS
You lift the lid of the coffin to reveal an elegantly dressed corpse.
Its eyes snap open and it smiles thirstily at you. The vampire (for
such it is) then leaps from the coffin, drops something it was
carrying, and moves towards you with fangs bared.
!MESSAGE VAMPKILLS
The vampire attacks swiftly, enjoying a long refreshing drink at
your expense.
!MESSAGE WANDRUNE
The runes on the wand say:
"Though bold in name
They flee in shame!"
!MESSAGE WEAREPLAY
We are playing!
!MESSAGE WGDRAG
You throw the water at the baby dragon, whose flames are thoroughly
quenched. It gives you a reproachful look and then flies off into the
distance.
!MESSAGE WGTYR
You dive down into the passage just in time to evade the
Tyrannosaurus Rex, which cannot squeeze through and remains
outside roaring at you and glaring at you malevolently.
!MESSAGE WHMESS
!SWITCH WM0 WM1 WM2
!MESSAGE WM0
Toot toot!
!MESSAGE WM1
Beep beep!
!MESSAGE WM2
Phthui!
!MESSAGE WTENCH
As you enter the room an enchantress approaches you but then halts.
"Yeugh! I never could stand garlic!" she says, and vanishes into
thin air. Hard luck (?)
!MESSAGE WTHEX
The hexapod gobbles up the steak, after which it has a new surge
of energy and runs away before you can stop it.
!MESSAGE YOUDOFT
You and the Tyrannosaurus Rex seem to be in agreement then.
The monster gladly accepts your offer and devours you.
!MESSAGE YOUWAVE
You wave, but nobody waves back. Life's like that.
!END
