historicalsource
/
zorkzero
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
zorkzero/village.zap

614 lines
17 KiB
Plaintext
Raw Permalink Blame History

.SEGMENT "VILLAGE"
.FUNCT VILLAGE-F
EQUAL? HERE,PARAPET \?CCL3
CALL2 TOUCHING?,VILLAGE
ZERO? STACK /?CCL3
CALL2 CANT-REACH,VILLAGE
RSTACK
?CCL3: EQUAL? PRSA,V?ENTER \?CCL7
EQUAL? HERE,VILLAGE-GATE \?CCL10
CALL2 DO-WALK,P?EAST
RSTACK
?CCL10: CALL1 V-WALK-AROUND
RSTACK
?CCL7: EQUAL? PRSA,V?EXIT \FALSE
CALL1 V-WALK-AROUND
RSTACK
.FUNCT OUTER-BAILEY-F,RARG
EQUAL? RARG,M-LOOK \FALSE
PRINTI "This open area is a rolling meadow extending from the moat to the distant perimeter fortifications. A drawbridge "
FSET? DRAWBRIDGE,OPENBIT \?CCL6
PRINTI "leads over the"
JUMP ?CND4
?CCL6: PRINTI "is raised, leaving an impassable"
?CND4: PRINTI " moat to the southeast, and roads lead northeast, southwest, and northwest."
RTRUE
.FUNCT TREE-STUMP-F,VARG
ZERO? VARG \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL5
GETP TREE-STUMP,P?LDESC
PRINT STACK
FIRST? TREE-STUMP \?CCL8
PRINTC 32
RFALSE
?CCL8: CRLF
RTRUE
?CCL5: EQUAL? PRSA,V?GET-NEAR \?CCL10
ICALL PERFORM,V?ENTER,TREE-STUMP
RTRUE
?CCL10: EQUAL? PRSA,V?LISTEN \?CCL12
ZERO? PLANT-TALKER /?CCL12
PRINTR "The stump is dead and silent."
?CCL12: EQUAL? PRSA,V?ENTER \?CCL16
SET 'JUMP-X,0
SET 'JUMP-Y,0
RFALSE
?CCL16: EQUAL? PRSA,V?EXIT \?CCL18
SET 'JUMP-X,99
SET 'JUMP-Y,99
RFALSE
?CCL18: EQUAL? PRSA,V?RAISE,V?TAKE,V?LOOK-UNDER \FALSE
PRINTR "100 men couldn't uproot this stump!"
.FUNCT PERIMETER-WALL-F,RARG
EQUAL? RARG,M-LOOK \FALSE
PRINTI "Before you rises the massive stone wall which forms the first line of defense for the castle grounds. To the northwest, the huge oak gates "
FSET? OUTER-GATE,OPENBIT \?CCL6
PRINTI "lie wide open, revealing dense forest beyond!"
RTRUE
?CCL6: PRINTI "are closed and reinforced, forming an impassable barrier across the road from the southeast."
RTRUE
.FUNCT WEST-OF-HOUSE-ENTER-F,RARG
FSET? OUTER-GATE,OPENBIT \?CCL3
ZERO? RARG \?CND4
ICALL1 RETURN-FROM-MAP
ICALL2 INC-SCORE,30
PRINTI "You dive through the doors as the castle begins its final tremors! Landing on soft grass, you roll to a stop, and turn to see the castle's final moments. But, oddly, though it is collapsing, it doesn't seem to be getting destroyed. Instead, it is merely shrinking, shrivelling... You rub your eyes in disbelief, as the once mighty castle transforms itself into ever tinier structures. At long last there is stillness, and the dust begins to clear"
PRINT ELLIPSIS
?CND4: RETURN WEST-OF-HOUSE
?CCL3: IN? NW-SE-PASSAGE,HERE \?CCL7
EQUAL? NW-SE-PASSAGE-DIR,P?NW \?CCL7
ZERO? RARG \FALSE
ICALL1 CANT-GO
RFALSE
?CCL7: ZERO? RARG \FALSE
ICALL1 RETURN-FROM-MAP
ICALL2 THIS-IS-IT,OUTER-GATE
ICALL2 DO-FIRST,STR?527
RFALSE
.FUNCT OUTER-GATE-F
EQUAL? PRSA,V?OPEN \FALSE
PRINTR "It would take the power of a wizard to open these massive doors."
.FUNCT I-END-GAME
INC 'END-GAME-COUNTER
EQUAL? END-GAME-COUNTER,12 \?CCL3
ICALL1 RETURN-FROM-MAP
CALL2 JIGS-UP,STR?528
RSTACK
?CCL3: EQUAL? END-GAME-COUNTER,11 \?CCL5
ICALL1 RETURN-FROM-MAP
PRINTR " A great rumble fills the air, and the buildings around you teeter like drunken dancers!"
?CCL5: EQUAL? END-GAME-COUNTER,9 \?CCL7
ICALL1 RETURN-FROM-MAP
PRINTR " Boulders of rubble roll past, threatening to crush you!"
?CCL7: EQUAL? END-GAME-COUNTER,6 \?CCL9
ICALL1 RETURN-FROM-MAP
PRINTR " As the grounds continue to shake, a multitude of rats well up from within and flee toward the perimeter wall."
?CCL9: EQUAL? END-GAME-COUNTER,3 \FALSE
ICALL1 RETURN-FROM-MAP
PRINTI " The "
FSET? HERE,OUTSIDEBIT \?CCL14
PRINTI "ground"
JUMP ?CND12
?CCL14: PRINTI "floor"
?CND12: PRINTR " rolls and shudders, making it difficult to stay on your feet."
.FUNCT WEST-OF-HOUSE-F,RARG
EQUAL? RARG,M-ENTER \?CCL3
ICALL1 RETURN-FROM-MAP
CALL1 UPDATE-STATUS-LINE
RSTACK
?CCL3: EQUAL? RARG,M-END \FALSE
ICALL1 RETURN-FROM-MAP
CRLF
ICALL1 HIT-ANY-KEY
CLEAR 0
CRLF
ICALL2 MARGINAL-PIC,EPILOGUE-LETTER
DIROUT D-SCREEN-OFF
PRINTC 65
DIROUT D-SCREEN-ON
PRINTI "s you stare dumbfounded at the white house, the jester appears, laughing as though at some supreme trick. Then, a low moaning wind begins to blow, and slowly, ever so slowly, his appearance shifts, until you see before you a wizard of incredible age and obvious power. His hoary visage stirs an ancient ancestral memory. He speaks in a new voice, tired but commanding of instant respect. ""I am Megaboz,"" he states, and your skin tingles at the presence of a legend.
""Yes, I still live. I have waited a long time for this day; to meet the one who would guard after I am gone.
""The Great Underground Empire is no more; but Quendor remains. The white house will stand as a warning and reminder of the excesses of the Flatheads. Some day, a new Empire may rise; you -- and your successors -- shall watch over the land, and ensure that future Empire be benevolent. Henceforth, you shall be known as Dungeon Master.
""As promised by Decree, half the wealth of the kingdom is yours!"" Your mind is suddenly filled with images of a vast underground Treasury, piled with unfathomable wealth. But the image is tempered by the ironic knowledge that you will never have use for such wealth. As the image fades, you hear tinkling bells and the voice of the jester/Megaboz: ""Well, I'm outta here! Over to you, Dungeon Master!"" You find yourself alone, left to ponder the years ahead, long years of keeping watch over Quendor and searching, ever searching, for your successor"
PRINT ELLIPSIS
CALL1 FINISH
RSTACK
.FUNCT LOCKER-F
EQUAL? PRSA,V?LOCK \FALSE
EQUAL? PRSO,LOCKER \FALSE
PRINTR "You don't have the right key."
.SEGMENT "0"
.FUNCT POSTER-F
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "The poster shows pin-up model Ursula Flathead (Miss Miznia, 878 GUE) in a typical suggestive pose and minimal cover."
?CCL3: EQUAL? PRSA,V?ROLL \FALSE
PRINTR "You curl it into a tube, but as you let go it flattens again."
.ENDSEG
.SEGMENT "VILLAGE"
.FUNCT GATE-PS
CALL2 PERFORM-PRSA,ARCH
RSTACK
.FUNCT TAX-OFFICE-F,RARG
EQUAL? RARG,M-END \FALSE
IN? ZORKMID-COIN,LOCAL-GLOBALS \FALSE
ICALL2 SETUP-ORPHAN,STR?44
IN? JESTER,HERE /FALSE
ICALL2 DEQUEUE,I-JESTER
MOVE JESTER,HERE
ICALL2 THIS-IS-IT,JESTER
ICALL1 RETURN-FROM-MAP
PRINTI " A bookkeeper is hunched over one of the desks. He looks up as you enter, and you see that it is the jester, wearing suspenders, a bow tie, thick eyeglasses, and a green visor.
"""
GETP TAX-OFFICE,P?RIDDLE
PRINT STACK
CRLF
RTRUE
.SEGMENT "0"
.FUNCT PIGEON-F
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "The pigeon, though strikingly lifelike, is merely a clay reproduction. On the bottom is some tiny writing."
?CCL3: EQUAL? PRSA,V?TAKE \?CCL5
EQUAL? PRSO,PIGEON \?CCL5
CALL2 ULTIMATELY-IN?,PIGEON
ZERO? STACK \FALSE
FSET? OUTER-GATE,OPENBIT /FALSE
ZERO? TIME-STOPPED \FALSE
RANDOM 100
LESS? 10,STACK \?CTR14
GRTR? P-MULT,1 \?CCL15
?CTR14: PRINTI "Your eyes must be starting to play tricks on you. It almost seemed like the clay pigeon "
IN? PIGEON,HERE \?CCL20
PRINTI "hopped"
JUMP ?CND18
?CCL20: PRINTI "squirmed"
?CND18: PRINTR " out of reach at the last second."
?CCL15: CALL2 ITAKE,TRUE-VALUE
EQUAL? STACK,M-FATAL /TRUE
CALL2 ULTIMATELY-IN?,PERCH
ZERO? STACK /?CCL24
PRINTR "Taken."
?CCL24: PRINTI "As you take the pigeon, you feel a dizziness, like that which one gets from drinking Miznian wines too quickly. "
CALL2 META-LOC,PERCH
EQUAL? STACK,HERE /?CTR26
EQUAL? HERE,OUBLIETTE \?CCL27
EQUAL? REMOVED-PERCH-LOC,OUBLIETTE \?CCL27
?CTR26: LOC PROTAGONIST
EQUAL? STACK,YACHT,DB /?CND32
MOVE PROTAGONIST,HERE
?CND32: PRINTR "When the disorientation passes, you seem to have moved a few feet."
?CCL27: ICALL1 CAST-HUNGER-SPELL
PRINTI "The world blurs, then darkens. You blink"
PRINT ELLIPSIS
SET 'HAND-IN-WALDO,FALSE-VALUE
CALL2 MOVE-TO-PERCH,PROTAGONIST
RSTACK
?CCL5: EQUAL? PRSA,V?PUT-ON \FALSE
EQUAL? PRSI,PERCH \FALSE
PRINTR "There's no apparent way to put the pigeon on the perch."
.FUNCT MOVE-TO-PERCH,WHAT,PERCH-LOC,L,OFFSET,RM,OBJ,X,N,TOOK-STUFF
CALL2 META-LOC,PERCH >PERCH-LOC
ZERO? PERCH-LOC /?CND1
IN? PERCH-LOC,ROOMS \?CND1
LOC PERCH
EQUAL? STACK,YACHT,DB \?CND1
LOC PERCH >PERCH-LOC
?CND1: EQUAL? WHAT,PROTAGONIST \?CND6
EQUAL? HERE,PLAIN \?CCL10
ICALL STORE,PLAIN-OFFSET,PLAIN-LOC,PLAIN
JUMP ?CND6
?CCL10: EQUAL? HERE,CONSTRUCTION \?CCL12
ICALL STORE,CONSTRUCTION-OFFSET,CONSTRUCTION-LOC,CONSTRUCTION
JUMP ?CND6
?CCL12: EQUAL? HERE,FR-OFFICES \?CCL14
ICALL STORE,OFFICES-OFFSET,FLOOR-NUMBER,FR-OFFICES
JUMP ?CND6
?CCL14: EQUAL? HERE,OFFICES-NORTH \?CCL16
ICALL STORE,OFFICES-N-OFFSET,FLOOR-NUMBER,OFFICES-NORTH
JUMP ?CND6
?CCL16: EQUAL? HERE,OFFICES-SOUTH \?CCL18
ICALL STORE,OFFICES-S-OFFSET,FLOOR-NUMBER,OFFICES-SOUTH
JUMP ?CND6
?CCL18: EQUAL? HERE,OFFICES-EAST \?CCL20
ICALL STORE,OFFICES-E-OFFSET,FLOOR-NUMBER,OFFICES-EAST
JUMP ?CND6
?CCL20: EQUAL? HERE,OFFICES-WEST \?CND6
ICALL STORE,OFFICES-W-OFFSET,FLOOR-NUMBER,OFFICES-WEST
?CND6: ZERO? PERCH-LOC /?CCL24
EQUAL? WHAT,PROTAGONIST \?CCL27
EQUAL? HERE,MARSH \?CND28
IN? JESTER,NICE-LUNCH-SPOT \?CND28
ICALL1 REMOVE-J
?CND28: ICALL2 GOTO,PERCH-LOC
EQUAL? HERE,LAKE-BOTTOM \?CCL34
ICALL2 JIGS-UP,DROWN
RTRUE
?CCL34: EQUAL? HERE,PLAIN /TRUE
FCLEAR CLOAK,WORNBIT
RTRUE
?CCL27: EQUAL? PERCH-LOC,LAKE-BOTTOM \?CCL37
SET 'PIECE-DROWNED,1
ICALL ROB,WHAT,LAKE-BOTTOM
REMOVE WHAT
RTRUE
?CCL37: CALL FIND-IN,PERCH-LOC,WHITEBIT >X
ZERO? X \?CCL39
CALL FIND-IN,PERCH-LOC,BLACKBIT >X
ZERO? X /?CND38
?CCL39: ICALL ROB,X,WHAT
REMOVE X
?CND38: FIRST? PERCH-LOC >X /?PRG43
?PRG43: ZERO? X /?REP44
NEXT? X >N /?BOGUS47
?BOGUS47: FSET? X,TAKEBIT \?CND48
FSET? X,TRYTAKEBIT /?CND48
CALL FIND-IN,X,TRYTAKEBIT
ZERO? STACK \?CND48
SET 'TOOK-STUFF,TRUE-VALUE
MOVE X,WHAT
?CND48: SET 'X,N
JUMP ?PRG43
?REP44: MOVE WHAT,PERCH-LOC
EQUAL? PERCH-LOC,HERE \FALSE
PRINTI " With a surprisingly high-pitched squeal of alarm,"
ICALL2 APRINT,WHAT
PRINTI " materializes nearby. "
FSET? WHAT,FEMALEBIT \?CCL58
PRINTI "Sh"
JUMP ?CND56
?CCL58: PRINTC 72
?CND56: PRINTI "e seems somewhat dazed by the experience"
ZERO? TOOK-STUFF /?CCL61
PRINTR ", but not too dazed to pick the ground clean."
?CCL61: PRINT PERIOD-CR
RTRUE
?CCL24: CALL2 FIND-PERCH,PERCH >L
ZERO? L /?CCL63
GRTR? L,5000 \?CCL66
SET 'OFFSET,OFFICES-W-OFFSET
SET 'RM,OFFICES-WEST
JUMP ?CND64
?CCL66: GRTR? L,4000 \?CCL68
SET 'OFFSET,OFFICES-E-OFFSET
SET 'RM,OFFICES-EAST
JUMP ?CND64
?CCL68: GRTR? L,3000 \?CCL70
SET 'OFFSET,OFFICES-S-OFFSET
SET 'RM,OFFICES-SOUTH
JUMP ?CND64
?CCL70: GRTR? L,2000 \?CCL72
SET 'OFFSET,OFFICES-N-OFFSET
SET 'RM,OFFICES-NORTH
JUMP ?CND64
?CCL72: GRTR? L,1000 \?CCL74
SET 'OFFSET,OFFICES-OFFSET
SET 'RM,FR-OFFICES
JUMP ?CND64
?CCL74: GRTR? L,399 \?CCL76
SET 'OFFSET,CONSTRUCTION-OFFSET
SET 'RM,CONSTRUCTION
JUMP ?CND64
?CCL76: SET 'OFFSET,PLAIN-OFFSET
SET 'RM,PLAIN
?CND64: EQUAL? WHAT,PROTAGONIST \?CCL79
SUB L,OFFSET >L
EQUAL? RM,PLAIN \?CCL82
DIV L,8
ADD STACK,1 >RANK
MOD L,8
ADD STACK,1 >FILE
SET 'PLAIN-LOC,L
EQUAL? HERE,PLAIN /?CND83
MOVE CLOAK,PROTAGONIST
FSET CLOAK,WORNBIT
LOC PROTAGONIST
FSET? STACK,TAKEBIT \?CCL87
SET 'CLOAK-LOC,HERE
JUMP ?CND83
?CCL87: LOC PROTAGONIST >CLOAK-LOC
?CND83: ICALL UNSTORE,OFFSET,L,RM
JUMP ?CND80
?CCL82: EQUAL? RM,CONSTRUCTION \?CCL89
DIV L,8
ADD STACK,1 >RANK
MOD L,8
ADD STACK,1 >FILE
SET 'CONSTRUCTION-LOC,L
ICALL UNSTORE,OFFSET,L,RM
JUMP ?CND80
?CCL89: SET 'FLOOR-NUMBER,L
ICALL2 OFFICE-UNSTORE,L
?CND80: EQUAL? RM,PLAIN /?CND90
FCLEAR CLOAK,WORNBIT
?CND90: EQUAL? HERE,MARSH \?CND92
IN? JESTER,NICE-LUNCH-SPOT \?CND92
ICALL1 REMOVE-J
?CND92: CALL2 GOTO,RM
RSTACK
?CCL79: EQUAL? WHAT,WHITE-PAWN \?CCL98
EQUAL? RM,PLAIN \?CCL98
SUB L,OFFSET
LESS? STACK,8 \?CCL98
ICALL ROB,WHITE-PAWN,WHITE-QUEEN
SET 'WHAT,WHITE-QUEEN
JUMP ?CND96
?CCL98: EQUAL? WHAT,BLACK-PAWN \?CND96
EQUAL? RM,PLAIN \?CND96
SUB L,OFFSET
GRTR? STACK,55 \?CND96
ICALL ROB,BLACK-PAWN,BLACK-QUEEN
SET 'WHAT,BLACK-QUEEN
?CND96: REMOVE WHAT
ICALL REMOVE-ANY-PIECE,L,WHAT
ICALL PIECE-SNARF,L,WHAT
SUB L,OFFSET
CALL PUT-IN-STORAGE,OFFSET,WHAT,STACK
RSTACK
?CCL63: EQUAL? WHAT,PROTAGONIST \?CCL107
EQUAL? REMOVED-PERCH-LOC,WATER \?CCL110
HLIGHT H-BOLD
PRINTI "Surrounded by Water"
CRLF
HLIGHT H-NORMAL
CALL2 JIGS-UP,DROWN
RSTACK
?CCL110: EQUAL? REMOVED-PERCH-LOC,GROUND,OUBLIETTE \?CCL112
PRINTI "You appear "
EQUAL? REMOVED-PERCH-LOC,OUBLIETTE \?CCL115
PRINTI "knee deep in mud"
PRINT ELLIPSIS
FCLEAR CLOAK,WORNBIT
EQUAL? HERE,MARSH \?CND116
IN? JESTER,NICE-LUNCH-SPOT \?CND116
ICALL1 REMOVE-J
?CND116: CALL2 GOTO,OUBLIETTE
RSTACK
?CCL115: CALL2 JIGS-UP,STR?548
RSTACK
?CCL112: EQUAL? REMOVED-PERCH-LOC,PSEUDO-OBJECT \?CCL121
CALL2 JIGS-UP,STR?549
RSTACK
?CCL121: EQUAL? REMOVED-PERCH-LOC,BROGMOID \?CCL123
CALL2 JIGS-UP,STR?550
RSTACK
?CCL123: CALL2 JIGS-UP,STR?551
RSTACK
?CCL107: EQUAL? REMOVED-PERCH-LOC,OUBLIETTE \?CCL125
MOVE WHAT,OUBLIETTE
ICALL REMOVE-ANY-PIECE,L,WHAT
CALL PIECE-SNARF,L,WHAT
RSTACK
?CCL125: REMOVE WHAT
RTRUE
.FUNCT FIND-PERCH,OBJ,L,CNT
?PRG1: LESS? CNT,STORAGE-TABLE-LENGTH /?CCL5
LOC OBJ
ZERO? STACK /?REP2
LOC OBJ
CALL2 FIND-PERCH,STACK >L
RETURN L
?CCL5: ADD CNT,1
GET STORAGE-TABLE,STACK
EQUAL? STACK,OBJ \?CND3
GET STORAGE-TABLE,CNT >L
RETURN L
?CND3: ADD CNT,2 >CNT
JUMP ?PRG1
?REP2: RETURN L
.ENDSEG
.SEGMENT "VILLAGE"
.FUNCT FR-BLDG-F
EQUAL? PRSA,V?RESEARCH \?CCL3
CALL PICTURED-ENTRY,FR-ILL,STR?552
RSTACK
?CCL3: EQUAL? PRSA,V?EXAMINE \?CCL5
EQUAL? HERE,VILLAGE-CENTER \?CCL8
PRINTR "Most of the building is lost in the clouds."
?CCL8: PRINTR "You're in it!"
?CCL5: EQUAL? PRSA,V?ENTER \?CCL10
EQUAL? HERE,VILLAGE-CENTER \?CCL13
CALL2 DO-WALK,P?EAST
RSTACK
?CCL13: EQUAL? HERE,PHIL-HALL \?CCL15
CALL2 DO-WALK,P?NORTH
RSTACK
?CCL15: PRINT LOOK-AROUND
RTRUE
?CCL10: EQUAL? PRSA,V?EXIT \FALSE
CALL1 V-WALK-AROUND
RSTACK
.FUNCT FR-OFFICES-ENTER-F,RARG
ZERO? RARG /?CCL3
RETURN FR-OFFICES
?CCL3: EQUAL? HERE,FR-HQ \?CCL5
SET 'FLOOR-NUMBER,2
JUMP ?CND1
?CCL5: SET 'FLOOR-NUMBER,399
?CND1: ICALL2 OFFICE-UNSTORE,FLOOR-NUMBER
RETURN FR-OFFICES
.FUNCT OFFICES-F,RARG
EQUAL? RARG,M-ENTER \?CCL3
SET 'BEEN-IN-FR-UPPER-FLOORS,TRUE-VALUE
RETURN BEEN-IN-FR-UPPER-FLOORS
?CCL3: EQUAL? RARG,M-LOOK \FALSE
PRINTI "You are on Floor "
PRINTN FLOOR-NUMBER
PRINTI " of the FrobozzCo Building. The offices of one subsidiary or another can be entered in all four directions. Stairs lead up and down."
RTRUE
.FUNCT FR-FLOOR-F,RARG
EQUAL? PRSO,P?UP \?CCL3
EQUAL? FLOOR-NUMBER,399 \?CCL3
RETURN FR-PENTHOUSE
?CCL3: EQUAL? PRSO,P?DOWN \?CCL7
EQUAL? FLOOR-NUMBER,2 \?CCL7
RETURN FR-HQ
?CCL7: ZERO? RARG \FALSE
ICALL STORE,OFFICES-OFFSET,FLOOR-NUMBER
ICALL STORE,OFFICES-N-OFFSET,FLOOR-NUMBER,OFFICES-NORTH
ICALL STORE,OFFICES-S-OFFSET,FLOOR-NUMBER,OFFICES-SOUTH
ICALL STORE,OFFICES-E-OFFSET,FLOOR-NUMBER,OFFICES-EAST
ICALL STORE,OFFICES-W-OFFSET,FLOOR-NUMBER,OFFICES-WEST
EQUAL? PRSO,P?UP \?CCL14
INC 'FLOOR-NUMBER
JUMP ?CND12
?CCL14: DEC 'FLOOR-NUMBER
?CND12: ICALL2 OFFICE-UNSTORE,FLOOR-NUMBER
RETURN FR-OFFICES
.FUNCT OFFICE-UNSTORE,L
ICALL UNSTORE,OFFICES-OFFSET,L,FR-OFFICES
ICALL UNSTORE,OFFICES-N-OFFSET,L,OFFICES-NORTH
ICALL UNSTORE,OFFICES-S-OFFSET,L,OFFICES-SOUTH
ICALL UNSTORE,OFFICES-E-OFFSET,L,OFFICES-EAST
CALL UNSTORE,OFFICES-W-OFFSET,L,OFFICES-WEST
RSTACK
.FUNCT FR-OUTER-OFFICES-F,RARG
EQUAL? RARG,M-LOOK \FALSE
PRINTI "You are in an office on floor "
PRINTN FLOOR-NUMBER
PRINTI " of the FrobozzCo Building. The office has a lovely "
EQUAL? HERE,OFFICES-NORTH \?CCL6
PRINTI "north"
JUMP ?CND4
?CCL6: EQUAL? HERE,OFFICES-SOUTH \?CCL8
PRINTI "south"
JUMP ?CND4
?CCL8: EQUAL? HERE,OFFICES-EAST \?CCL10
PRINTI "east"
JUMP ?CND4
?CCL10: PRINTI "west"
?CND4: PRINTI "ern exposure. The only exit is to the "
EQUAL? HERE,OFFICES-NORTH \?CCL13
PRINTI "south"
JUMP ?CND11
?CCL13: EQUAL? HERE,OFFICES-SOUTH \?CCL15
PRINTI "north"
JUMP ?CND11
?CCL15: EQUAL? HERE,OFFICES-EAST \?CCL17
PRINTI "west"
JUMP ?CND11
?CCL17: PRINTI "east"
?CND11: PRINTC 46
RTRUE
.FUNCT FR-PENTHOUSE-F,RARG
EQUAL? RARG,M-ENTER \FALSE
FSET? FR-PENTHOUSE,TOUCHBIT /FALSE
SET 'DO-J,TRUE-VALUE
CALL QUEUE,I-JESTER,1
RSTACK
.FUNCT PHIL-ENTER-F,RARG
ZERO? RARG \?CND1
EQUAL? CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC /?CCL2
RETURN PHIL-HALL
?CCL2: PRINTI "The passage takes you from the FrobozzCo Building back into the castle. It widens"
PRINT ELLIPSIS
?CND1: RETURN PHIL-HALL
.ENDSEG
.SEGMENT "LAKE"
.FUNCT FR-BASEMENT-ENTER-F,RARG
ZERO? RARG \?CND1
EQUAL? CURRENT-SPLIT,TEXT-WINDOW-PIC-LOC /?CCL2
RETURN FR-BASEMENT
?CCL2: PRINTI "The passage narrows as it leaves the castle, then widens again as it enters"
PRINT ELLIPSIS
?CND1: RETURN FR-BASEMENT
.ENDSEG
.SEGMENT "0"
.SEGMENT "VILLAGE"
.FUNCT RING-F,AV,HOLDING-STUFF
EQUAL? PRSA,V?WEAR \FALSE
LOC PROTAGONIST >AV
MOVE RING,PROTAGONIST
FSET RING,WORNBIT
PRINTI "As you slip the ring onto your finger, you clumsily "
EQUAL? HERE,UNDER-THE-WORLD,HANGING-FROM-ROOTS,LEDGE-IN-PIT /?CTR5
EQUAL? HERE,MOUTH-OF-CAVE \?CCL6
?CTR5: PRINTI "lose your grip, and plunge downward. "
ICALL PERFORM,V?LEAP,ROOMS
RTRUE
?CCL6: CALL2 CCOUNT,PROTAGONIST
GRTR? STACK,1 \?CCL10
PRINTI "drop everything you were holding."
FSET? AV,DROPBIT \?CCL13
PUSH AV
JUMP ?CND11
?CCL13: PUSH HERE
?CND11: ICALL ROB,PROTAGONIST,STACK,TRUE-VALUE
CRLF
RTRUE
?CCL10: PRINTR "trip over your own feet and just barely manage to keep your balance."
.ENDSEG
.ENDI
Reference in New Issue View Git Blame Copy Permalink