1002 lines
26 KiB
Plaintext
1002 lines
26 KiB
Plaintext
|
|
|
|
.FUNCT HOLD-F,RARG
|
|
EQUAL? RARG,M-ENTER \?ELS5
|
|
FSET? HERE,TOUCHBIT /?ELS5
|
|
CALL QUEUE,I-PASSENGER-SHIP-DEPARTS,12
|
|
RSTACK
|
|
?ELS5: EQUAL? RARG,M-LOOK \?ELS9
|
|
PRINTI "You are in the cargo hold of a giant spaceship. "
|
|
EQUAL? SIDEKICK-EXPLODED,1 \?CND10
|
|
CALL SPLATTERED-DESC
|
|
PRINTI " "
|
|
?CND10: PRINTI "A tiny viewport is set into the curving steel hull, and arched passageways lead in directions that we will arbitrarily call south and southwest."
|
|
RTRUE
|
|
?ELS9: EQUAL? RARG,M-END \FALSE
|
|
ZERO? SIDEKICK-EXPLODED \FALSE
|
|
PRINTI " A radium-powered grenade clatters against the deck! You glimpse a shadowy figure, dressed in black, slipping away. "
|
|
IN? SIDEKICK,HERE \?ELS21
|
|
SET 'FOLLOW-FLAG,12
|
|
CALL QUEUE,I-FOLLOW,2
|
|
SET 'SIDEKICK-EXPLODED,1
|
|
REMOVE SIDEKICK
|
|
MOVE SPLATTERED-SIDEKICK,HERE
|
|
CALL DPRINT-SIDEKICK
|
|
PRINTI " yells to hit the deck, and hurls "
|
|
CALL HIM-HER
|
|
PRINTI "self onto the grenade!
|
|
A sickening explosion splatters "
|
|
CALL DPRINT-SIDEKICK
|
|
PRINTI " all around the room! As you struggle to control your shock and nausea"
|
|
CALL MEMORIAM
|
|
RSTACK
|
|
?ELS21: CALL JIGS-UP,STR?384
|
|
RSTACK
|
|
|
|
|
|
.FUNCT SPLATTERED-DESC
|
|
PRINTI "Little "
|
|
CALL DPRINT,SPLATTERED-SIDEKICK
|
|
PRINTI " cover all the walls, the floor, and the ceiling."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT SPLATTERED-SIDEKICK-F
|
|
EQUAL? PRSA,V?TASTE,V?LICK,V?EAT \FALSE
|
|
PRINT YECHH
|
|
RTRUE
|
|
|
|
|
|
.FUNCT STABLE-F,RARG
|
|
EQUAL? RARG,M-LOOK \FALSE
|
|
PRINTI "This must be the flagship for "
|
|
PRINTD LGOP
|
|
PRINT ATTACK-FLEET
|
|
PRINTI ", since this stable contains "
|
|
PRINTD LGOP
|
|
PRINT ATTACK-FLEET
|
|
PRINTI " Cavalry Mounts. "
|
|
FSET? STALLION,NDESCBIT \?CND6
|
|
PRINTI "The most striking horse is a magnificent white stallion. "
|
|
?CND6: PRINTI "There are exits to the ""north"" and ""west."""
|
|
RTRUE
|
|
|
|
|
|
.FUNCT HOLD-ENTER-F
|
|
IN? PROTAGONIST,STALLION /?THN6
|
|
FSET? STALLION,MUNGBIT \?ELS5
|
|
?THN6: PRINT HORSE-CANT-FIT
|
|
RFALSE
|
|
?ELS5: RETURN HOLD
|
|
|
|
|
|
.FUNCT STALLION-F
|
|
EQUAL? STALLION,WINNER \?ELS5
|
|
EQUAL? PRSA,V?WALK \?ELS10
|
|
IN? PROTAGONIST,STALLION \?ELS10
|
|
SET 'WINNER,PROTAGONIST
|
|
CALL DO-WALK,PRSO
|
|
SET 'WINNER,STALLION
|
|
RETURN WINNER
|
|
?ELS10: EQUAL? PRSA,V?GIDDYAP \?ELS14
|
|
SET 'WINNER,PROTAGONIST
|
|
CALL PERFORM,V?KICK,STALLION
|
|
SET 'WINNER,STALLION
|
|
RTRUE
|
|
?ELS14: PRINTR """Neighhh!!!"""
|
|
?ELS5: EQUAL? PRSA,V?DISEMBARK \?ELS18
|
|
IN? PROTAGONIST,STALLION \?ELS18
|
|
MOVE PROTAGONIST,HERE
|
|
PRINTI "You"
|
|
CALL AND-SIDEKICK,HERE
|
|
PRINTR " dismount."
|
|
?ELS18: EQUAL? PRSA,V?BOARD \?ELS22
|
|
FCLEAR STALLION,NDESCBIT
|
|
RFALSE
|
|
?ELS22: EQUAL? PRSA,V?PUSH-DIR \?ELS24
|
|
EQUAL? PRSI,INTDIR \?ELS24
|
|
FSET STALLION,MUNGBIT
|
|
CALL DO-WALK,P-DIRECTION
|
|
FCLEAR STALLION,MUNGBIT
|
|
FCLEAR STALLION,NDESCBIT
|
|
MOVE STALLION,HERE
|
|
RTRUE
|
|
?ELS24: EQUAL? PRSA,V?BOARD-DIR \?ELS28
|
|
EQUAL? P-PRSA-WORD,W?RIDE \?ELS28
|
|
EQUAL? PRSI,INTDIR \?ELS28
|
|
CALL PERFORM,V?BOARD,INTDIR
|
|
RTRUE
|
|
?ELS28: EQUAL? PRSA,V?EXAMINE \?ELS32
|
|
PRINTR "The stallion is a magnificent white stud."
|
|
?ELS32: EQUAL? PRSA,V?FUCK \?ELS34
|
|
ZERO? NAUGHTY-LEVEL \?ELS39
|
|
CALL PERFORM-PRSA,MALE-GORILLA
|
|
RTRUE
|
|
?ELS39: PRINTR "You and Catherine the Great."
|
|
?ELS34: EQUAL? PRSA,V?KICK \FALSE
|
|
PRINTR "The horse gallops around in a circle."
|
|
|
|
|
|
.FUNCT LONG-CORRIDOR-F,RARG
|
|
EQUAL? RARG,M-LOOK \?ELS5
|
|
PRINTI "You are partway along an ""east-west"" hall of mind-numbing length. Rings of light pulsate along the corridor in rhythm with the ship's throbbing engines"
|
|
EQUAL? LONG-CORRIDOR-LOC,3 \?ELS8
|
|
PRINTI ". A tiny alcove contains"
|
|
CALL APRINT,HOLE
|
|
JUMP ?CND6
|
|
?ELS8: EQUAL? LONG-CORRIDOR-LOC,1 \?CND6
|
|
PRINTI ". Openings lead ""east"" and ""northeast"""
|
|
?CND6: PRINTI "."
|
|
RTRUE
|
|
?ELS5: EQUAL? RARG,M-END \FALSE
|
|
IN? STALLION,HERE \FALSE
|
|
PRINTI " The stallion whinnies then gallops "
|
|
EQUAL? LONG-CORRIDOR-LOC,1 \?ELS17
|
|
MOVE STALLION,STABLE
|
|
PRINTI "ea"
|
|
JUMP ?CND15
|
|
?ELS17: MOVE STALLION,AT-MAIN-HATCH
|
|
PRINTI "we"
|
|
?CND15: PRINTR "st."
|
|
|
|
|
|
.FUNCT LONG-CORRIDOR-EXIT-F
|
|
EQUAL? LONG-CORRIDOR-LOC,1 \?ELS5
|
|
IN? PROTAGONIST,STALLION /?THN11
|
|
FSET? STALLION,MUNGBIT \?ELS10
|
|
?THN11: PRINT HORSE-CANT-FIT
|
|
RFALSE
|
|
?ELS10: RETURN HOLD
|
|
?ELS5: PRINT CANT-GO
|
|
RFALSE
|
|
|
|
|
|
.FUNCT LONG-CORRIDOR-MOVEMENT-F
|
|
IN? PROTAGONIST,STALLION \?ELS3
|
|
CALL LONG-CORRIDOR-ENTER-F,TRUE-VALUE
|
|
RSTACK
|
|
?ELS3: EQUAL? PRSO,P?EAST \?ELS5
|
|
EQUAL? LONG-CORRIDOR-LOC,1 \?ELS8
|
|
RETURN STABLE
|
|
?ELS8: DEC 'LONG-CORRIDOR-LOC
|
|
JUMP ?CND1
|
|
?ELS5: EQUAL? LONG-CORRIDOR-LOC,10 \?ELS12
|
|
RETURN AT-MAIN-HATCH
|
|
?ELS12: INC 'LONG-CORRIDOR-LOC
|
|
?CND1: CALL DESCRIBE-ROOM
|
|
IN? SIDEKICK,HERE \?CND15
|
|
CALL SIDEKICK-FOLLOWS-YOU
|
|
RETURN ROOMS
|
|
?CND15: RETURN ROOMS
|
|
|
|
|
|
.FUNCT AT-MAIN-HATCH-F,RARG
|
|
EQUAL? RARG,M-ENTER \?ELS5
|
|
FSET PRIVATE-CABIN-DOOR,LOCKEDBIT
|
|
RTRUE
|
|
?ELS5: EQUAL? RARG,M-LOOK \?ELS7
|
|
PRINTI "To the ""north,"" the main hatch of the flagship is "
|
|
CALL OPEN-CLOSED,HATCH
|
|
PRINTI ". A long corridor leads ""east."""
|
|
RTRUE
|
|
?ELS7: EQUAL? RARG,M-END \?ELS9
|
|
CALL ULTIMATELY-IN?,THORBAST-SWORD
|
|
ZERO? STACK \?THN12
|
|
EQUAL? SPACESHIP-SCENE-STATUS,3 \?ELS9
|
|
?THN12: EQUAL? SPACESHIP-SCENE-STATUS,1 /?ELS9
|
|
CALL I-PASSENGER-SHIP-DEPARTS
|
|
RSTACK
|
|
?ELS9: EQUAL? RARG,M-END \FALSE
|
|
FSET? SPACE-YACHT,TOUCHBIT \FALSE
|
|
EQUAL? SIDEKICK-EXPLODED,1 \FALSE
|
|
SET 'SIDEKICK-EXPLODED,2
|
|
MOVE SIDEKICK,HERE
|
|
REMOVE SPLATTERED-SIDEKICK
|
|
PRINTI " You hear panting as "
|
|
CALL DPRINT-SIDEKICK
|
|
PRINTR " dashes up behind you, somewhat out of breath. ""Good, you're still here! Thank God that time traveller who wandered by the hold had a matter reconstituter!"""
|
|
|
|
|
|
.FUNCT LONG-CORRIDOR-ENTER-F,ON-HORSE-IN-LONG-CORRIDOR=0
|
|
IN? PROTAGONIST,STALLION \?ELS5
|
|
PRINTI "Kicking your proud mount forcefully in the flank, you gallop down a long corridor pulsing with light. Above the echoes of the hoofbeats, you can hear, almost feel, the throbbing of mighty engines. After a minute of wild riding"
|
|
PRINT ELLIPSIS
|
|
ZERO? ON-HORSE-IN-LONG-CORRIDOR /?CND6
|
|
EQUAL? PRSO,P?EAST \?ELS12
|
|
SET 'HERE,AT-MAIN-HATCH
|
|
JUMP ?CND6
|
|
?ELS12: SET 'HERE,STABLE
|
|
?CND6: EQUAL? HERE,AT-MAIN-HATCH \?ELS17
|
|
SET 'LONG-CORRIDOR-LOC,1
|
|
MOVE STALLION,STABLE
|
|
RETURN STALLION
|
|
?ELS17: SET 'LONG-CORRIDOR-LOC,10
|
|
MOVE STALLION,AT-MAIN-HATCH
|
|
RETURN STALLION
|
|
?ELS5: RETURN LONG-CORRIDOR
|
|
|
|
|
|
.FUNCT HATCH-ENTER-F
|
|
FSET? HATCH,OPENBIT /?ELS5
|
|
CALL DO-FIRST,STR?66,HATCH
|
|
CALL THIS-IS-IT,HATCH
|
|
RFALSE
|
|
?ELS5: IN? PROTAGONIST,STALLION /?THN8
|
|
FSET? STALLION,MUNGBIT \?ELS7
|
|
?THN8: PRINT HORSE-CANT-FIT
|
|
RFALSE
|
|
?ELS7: RETURN IN-SPACE
|
|
|
|
|
|
.FUNCT WHITE-SUIT-F
|
|
EQUAL? PRSA,V?TAKE-OFF \?ELS5
|
|
EQUAL? HERE,IN-SPACE \?ELS5
|
|
CALL QUEUE,I-CHILL,-1
|
|
RFALSE
|
|
?ELS5: EQUAL? PRSA,V?PUT-ON \FALSE
|
|
FSET? PRSI,ACTORBIT \FALSE
|
|
CALL WASTES
|
|
RSTACK
|
|
|
|
|
|
.FUNCT SPACE-YACHT-ENTER-F
|
|
IN? THORBAST,HERE \?ELS5
|
|
CALL DO-FIRST,STR?390
|
|
RFALSE
|
|
?ELS5: EQUAL? SPACESHIP-SCENE-STATUS,1 \?ELS7
|
|
PRINT CANT-GO
|
|
RFALSE
|
|
?ELS7: RETURN SPACE-YACHT
|
|
|
|
|
|
.FUNCT IN-SPACE-F,RARG
|
|
EQUAL? RARG,M-ENTER \?ELS5
|
|
CALL DEQUEUE,I-PASSENGER-SHIP-DEPARTS
|
|
SET 'CHILL-COUNTER,0
|
|
CALL QUEUE,I-CHILL,-1
|
|
CALL THIS-IS-IT,YOUNG-WOMAN
|
|
CALL THIS-IS-IT,BEM
|
|
CALL THIS-IS-IT,THORBAST
|
|
ZERO? SPACESHIP-SCENE-STATUS \FALSE
|
|
REMOVE BEM
|
|
REMOVE YOUNG-WOMAN
|
|
REMOVE THORBAST
|
|
SET 'THORBAST-ATTACKED,FALSE-VALUE
|
|
SET 'FIGHT-COUNTER,0
|
|
SET 'DISARM-PROB,0
|
|
SET 'FREE-MOVE-COUNTER,0
|
|
FSET SWORD,NARTICLEBIT
|
|
FCLEAR IN-SPACE,MUNGBIT
|
|
PUTP SWORD,P?SDESC,STR?391
|
|
CALL QUEUE,I-FIGHT,-1
|
|
SET 'BEM-COUNTER,0
|
|
CALL QUEUE,I-BEM,-1
|
|
RSTACK
|
|
?ELS5: EQUAL? RARG,M-LOOK \?ELS12
|
|
PRINTI "You are floating in outer space near a "
|
|
PRINTD BATTLESHIP
|
|
PRINTI " (to the ""south"")"
|
|
EQUAL? SPACESHIP-SCENE-STATUS,1 /?CND13
|
|
PRINTI " and"
|
|
CALL APRINT,PASSENGER-SHIP
|
|
PRINTI " (to the ""north"")"
|
|
?CND13: PRINTI ". "
|
|
PRINT BATTLESHIP-DESC
|
|
PRINTI " Saturn looms above (below?) you, her rings sparkling in the sunlight."
|
|
RTRUE
|
|
?ELS12: EQUAL? RARG,M-SMELL \FALSE
|
|
PRINTI "The rumors that "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " enjoys munching on hunks of raw garlic seem to be true. Let's hope "
|
|
CALL HE-SHE
|
|
PRINTI " doesn't talk anymore."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT BATTLESHIP-F
|
|
EQUAL? PRSA,V?EXAMINE \?ELS5
|
|
PRINT BATTLESHIP-DESC
|
|
CRLF
|
|
RTRUE
|
|
?ELS5: EQUAL? PRSA,V?WALK-TO,V?BOARD,V?ENTER \?ELS7
|
|
EQUAL? HERE,IN-SPACE \?ELS12
|
|
CALL DO-WALK,P?SOUTH
|
|
RSTACK
|
|
?ELS12: CALL GLOBAL-IN?,BATTLESHIP,HERE
|
|
ZERO? STACK /FALSE
|
|
PRINT LOOK-AROUND
|
|
RTRUE
|
|
?ELS7: EQUAL? PRSA,V?DISEMBARK,V?EXIT,V?LEAVE \FALSE
|
|
EQUAL? HERE,AT-MAIN-HATCH \?ELS21
|
|
CALL DO-WALK,P?NORTH
|
|
RSTACK
|
|
?ELS21: EQUAL? HERE,IN-SPACE \?ELS23
|
|
PRINT LOOK-AROUND
|
|
RTRUE
|
|
?ELS23: PRINT CANT-FROM-HERE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT PASSENGER-SHIP-F
|
|
EQUAL? SPACESHIP-SCENE-STATUS,1 \?ELS5
|
|
CALL CANT-SEE,PASSENGER-SHIP
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?BOARD,V?WALK-TO,V?ENTER \?ELS7
|
|
EQUAL? HERE,IN-SPACE \?ELS12
|
|
CALL DO-WALK,P?NORTH
|
|
RSTACK
|
|
?ELS12: EQUAL? HERE,SPACE-YACHT \?ELS14
|
|
PRINT LOOK-AROUND
|
|
RTRUE
|
|
?ELS14: PRINT CANT-FROM-HERE
|
|
RTRUE
|
|
?ELS7: EQUAL? PRSA,V?DISEMBARK,V?EXIT,V?LEAVE \?ELS18
|
|
EQUAL? HERE,SPACE-YACHT \?ELS23
|
|
CALL DO-WALK,P?SOUTH
|
|
RSTACK
|
|
?ELS23: PRINT LOOK-AROUND
|
|
RTRUE
|
|
?ELS18: EQUAL? PRSA,V?SEARCH \FALSE
|
|
PRINT NOTHING-NEW
|
|
RTRUE
|
|
|
|
|
|
.FUNCT GENERIC-SHIP-F
|
|
EQUAL? SPACESHIP-SCENE-STATUS,1 \FALSE
|
|
RETURN BATTLESHIP
|
|
|
|
|
|
.FUNCT I-CHILL
|
|
INC 'CHILL-COUNTER
|
|
EQUAL? HERE,IN-SPACE \?THN4
|
|
FSET? WHITE-SUIT,WORNBIT \?CND1
|
|
?THN4: SET 'CHILL-COUNTER,0
|
|
CALL DEQUEUE,I-CHILL
|
|
RFALSE
|
|
?CND1: PRINTI " "
|
|
EQUAL? CHILL-COUNTER,1 \?ELS10
|
|
PRINTR "It sure gets chilly this far from the sun!"
|
|
?ELS10: EQUAL? CHILL-COUNTER,2,3 \?ELS12
|
|
PRINTR "You're becoming frigid."
|
|
?ELS12: CALL JIGS-UP,STR?392
|
|
RSTACK
|
|
|
|
|
|
.FUNCT I-BEM
|
|
INC 'BEM-COUNTER
|
|
EQUAL? HERE,IN-SPACE /?ELS3
|
|
EQUAL? BEM-COUNTER,12 \FALSE
|
|
SET 'SPACESHIP-SCENE-STATUS,3
|
|
CALL DEQUEUE,I-BEM
|
|
REMOVE BEM
|
|
REMOVE YOUNG-WOMAN
|
|
RFALSE
|
|
?ELS3: EQUAL? BEM-COUNTER,1 /FALSE
|
|
?CND1: PRINTI " "
|
|
EQUAL? BEM-COUNTER,2 \?ELS13
|
|
MOVE BEM,HERE
|
|
PRINTI "A "
|
|
PRINTD BEM
|
|
PRINTI ", sort of a cross between a space squid and a humanoid tree, swims into view. Its hideous ""bark"" is covered with squirmy little suckers, and its branches wave about like tentacles. It takes one look around and heads straight towards the defenseless "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINT PERIOD-CR
|
|
RTRUE
|
|
?ELS13: EQUAL? BEM-COUNTER,3 \?ELS15
|
|
PRINTI "The alien monstrosity reaches the "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI ", and its tentacles begin undulating toward "
|
|
CALL HER-HIS
|
|
PRINTR " clothing."
|
|
?ELS15: EQUAL? BEM-COUNTER,12 \?ELS17
|
|
SET 'FOLLOW-FLAG,4
|
|
CALL QUEUE,I-FOLLOW,2
|
|
REMOVE BEM
|
|
REMOVE YOUNG-WOMAN
|
|
CALL DEQUEUE,I-BEM
|
|
SET 'SPACESHIP-SCENE-STATUS,3
|
|
PRINTI "The tree-squid finishes disrobing and untying the frenzied "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI ". Wrapping a suckered tentacle around "
|
|
CALL HER-HIS
|
|
PRINTR " midsection, it swims away. You hear a shriek from the void, which slowly fades."
|
|
?ELS17: PRINTI "The monster "
|
|
CALL BEGIN-CONTINUE
|
|
PRINTI "undress the poor "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI ", who "
|
|
CALL BEGIN-CONTINUE
|
|
PRINTR "shriek in terror."
|
|
|
|
|
|
.FUNCT BEGIN-CONTINUE
|
|
EQUAL? BEM-COUNTER,4 \?ELS3
|
|
PRINTI "begin"
|
|
JUMP ?CND1
|
|
?ELS3: PRINTI "continue"
|
|
?CND1: PRINTI "s to "
|
|
RTRUE
|
|
|
|
|
|
.FUNCT I-FIGHT
|
|
INC 'FIGHT-COUNTER
|
|
EQUAL? HERE,IN-SPACE /?ELS3
|
|
CALL QUEUE,I-PASSENGER-SHIP-DEPARTS,6
|
|
CALL DEQUEUE,I-FIGHT
|
|
RFALSE
|
|
?ELS3: FSET? THORBAST,MUNGBIT \?CND1
|
|
CALL DEQUEUE,I-FIGHT
|
|
RFALSE
|
|
?CND1: PRINTI " "
|
|
EQUAL? FIGHT-COUNTER,1 \?ELS8
|
|
MOVE THORBAST,HERE
|
|
MOVE YOUNG-WOMAN,HERE
|
|
PRINTI "A figure in black, doubtless the same person who tossed the grenade into the hold, is near the smaller ship. Given "
|
|
CALL HIS-HER
|
|
PRINTI " mean expression and characteristic black outfit, it must be "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI ", the Chief Assassin for "
|
|
PRINTD LGOP
|
|
PRINTI ".
|
|
"
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " is struggling with a "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " of wealthy garb and demeanor. Noticing you, "
|
|
CALL HE-SHE
|
|
PRINTI " straps the "
|
|
ZERO? MALE /?CND9
|
|
PRINTI "wo"
|
|
?CND9: PRINTI "man to the hull of"
|
|
CALL TPRINT,PASSENGER-SHIP
|
|
PRINTI " and jumps toward you, stopping just a few feet away.
|
|
With a chillingly evil grin, "
|
|
CALL HE-SHE
|
|
PRINTI " draws a long, pointed sword."
|
|
FSET? THORBAST,TOUCHBIT /?CND13
|
|
FSET THORBAST,TOUCHBIT
|
|
PRINTI " ""Ah, the escaped prisoner. Disposing of you will be a small but enjoyable feather in my cap."""
|
|
FSET? NOSE,MUNGBIT /?CND13
|
|
PRINTI " As "
|
|
CALL HE-SHE
|
|
PRINTI " speaks, a foul odor wafts toward you."
|
|
?CND13: CRLF
|
|
JUMP ?CND6
|
|
?ELS8: IN? THORBAST-SWORD,THORBAST /?ELS20
|
|
DEC 'FIGHT-COUNTER
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " eyes you warily."
|
|
CRLF
|
|
JUMP ?CND6
|
|
?ELS20: GRTR? FIGHT-COUNTER,1 \?ELS22
|
|
ZERO? THORBAST-ATTACKED \?ELS22
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " takes advantage of your inactivity and "
|
|
EQUAL? FREE-MOVE-COUNTER,2 \?ELS27
|
|
CALL SHISHKABOB
|
|
JUMP ?CND6
|
|
?ELS27: INC 'FREE-MOVE-COUNTER
|
|
PRINTI "launches a fierce attack. You dodge, avoiding the blade more by luck than by skill."
|
|
CRLF
|
|
JUMP ?CND6
|
|
?ELS22: RANDOM 100
|
|
LESS? DISARM-PROB,STACK /?ELS31
|
|
SET 'DISARM-PROB,0
|
|
MOVE THORBAST-SWORD,HERE
|
|
FSET THORBAST-SWORD,TAKEBIT
|
|
FCLEAR THORBAST-SWORD,NDESCBIT
|
|
CALL THIS-IS-IT,THORBAST-SWORD
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " feints backward and then launches a blow straight at your neck! Moving with a speed rarely associated with anything besides self-preservation, you parry, knocking the sword out of "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI "'s hands! It drifts toward you, spinning slowly."
|
|
CRLF
|
|
JUMP ?CND6
|
|
?ELS31: GRTR? FIGHT-COUNTER,24 \?ELS33
|
|
PRINTI "Fatigue overcomes you. "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI ", exhibiting more stamina, "
|
|
CALL SHISHKABOB
|
|
JUMP ?CND6
|
|
?ELS33: EQUAL? FIGHT-COUNTER,6,12,18 \?CND36
|
|
PRINTI "Your strength "
|
|
FSET? IN-SPACE,MUNGBIT /?ELS41
|
|
FSET IN-SPACE,MUNGBIT
|
|
PRINTI "begin"
|
|
JUMP ?CND39
|
|
?ELS41: PRINTI "continue"
|
|
?CND39: PRINTI "s to ebb. "
|
|
?CND36: ADD DISARM-PROB,12 >DISARM-PROB
|
|
RANDOM 100
|
|
LESS? 33,STACK /?ELS46
|
|
CALL DPRINT,THORBAST
|
|
PRINTI "'s blade whirls invisibly toward you. Ducking, you feel the blade whiz by an inch above "
|
|
PRINTD HEAD
|
|
PRINTI "!"
|
|
JUMP ?CND44
|
|
?ELS46: RANDOM 100
|
|
LESS? 50,STACK /?ELS48
|
|
PRINTI "You fend off a volley of powerful blows, leaving you dizzy."
|
|
JUMP ?CND44
|
|
?ELS48: CALL DPRINT,THORBAST
|
|
PRINTI " lunges at your chest, but your own blade knocks "
|
|
CALL HIS-HER
|
|
PRINTI " away in the nick of time."
|
|
?CND44: CRLF
|
|
?CND6: SET 'THORBAST-ATTACKED,FALSE-VALUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT SHISHKABOB
|
|
CALL JIGS-UP,STR?393
|
|
RSTACK
|
|
|
|
|
|
.FUNCT THORBAST-F,OARG=0
|
|
ZERO? OARG /?ELS5
|
|
EQUAL? OARG,M-OBJDESC? /TRUE
|
|
EQUAL? PRSA,V?EXAMINE /?CND10
|
|
PRINTI " "
|
|
?CND10: PRINTI "Chief Assassin "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " floats before you, "
|
|
CALL HIS-HER
|
|
PRINTI " black-garbed body almost invisible against the backdrop of space. "
|
|
CALL HE-SHE,TRUE-VALUE
|
|
PRINTI " is "
|
|
IN? THORBAST-SWORD,THORBAST \?ELS17
|
|
PRINTI "brandishing a deadly-looking sword."
|
|
RTRUE
|
|
?ELS17: PRINTI "tensed, as though ready to strike like a snake."
|
|
RTRUE
|
|
?ELS5: EQUAL? THORBAST,WINNER \?ELS21
|
|
EQUAL? PRSA,V?WHAT \?ELS30
|
|
EQUAL? PRSO,LGOP /?THN27
|
|
?ELS30: EQUAL? PRSA,V?TELL-ABOUT \?ELS26
|
|
EQUAL? PRSO,ME \?ELS26
|
|
EQUAL? PRSI,LGOP \?ELS26
|
|
?THN27: PRINTI """Just the name is enough to psych out a wimp like you. In fact, they simply liked the initials L.G.O.P. and "
|
|
PRINTD LGOP
|
|
PRINTR " was the first thing they thought of."""
|
|
?ELS26: CALL DPRINT,THORBAST
|
|
PRINTI " ignores you, although "
|
|
CALL HIS-HER
|
|
PRINTI " evil grin widens a bit."
|
|
CRLF
|
|
CALL STOP
|
|
RSTACK
|
|
?ELS21: EQUAL? PRSA,V?FOLLOW \?ELS36
|
|
EQUAL? FOLLOW-FLAG,7 \?ELS41
|
|
PRINT DONT-WANT-TO
|
|
RTRUE
|
|
?ELS41: EQUAL? FOLLOW-FLAG,12 \FALSE
|
|
CALL DO-WALK,P?SW
|
|
RSTACK
|
|
?ELS36: EQUAL? PRSA,V?LEAP,V?WALK-AROUND \?ELS45
|
|
CALL DPRINT,THORBAST
|
|
PRINTI ", who's nobody's fool, keeps you in front of "
|
|
CALL HIM-HER
|
|
PRINT PERIOD-CR
|
|
RTRUE
|
|
?ELS45: EQUAL? PRSA,V?GIVE \?ELS47
|
|
EQUAL? PRSO,SWORD \?ELS47
|
|
CALL DPRINT,THORBAST
|
|
PRINTI ", delighted by your gift, "
|
|
CALL SHISHKABOB
|
|
RSTACK
|
|
?ELS47: EQUAL? PRSA,V?CUT,V?KILL \?ELS51
|
|
CALL PLAYER-CANT-SEE
|
|
ZERO? STACK \TRUE
|
|
ZERO? PRSI \?CND52
|
|
IN? SWORD,PROTAGONIST /?THN60
|
|
IN? THORBAST-SWORD,PROTAGONIST \?ELS59
|
|
?THN60: SET 'PRSI,SWORD
|
|
PRINTI "[with the sword]"
|
|
CRLF
|
|
JUMP ?CND52
|
|
?ELS59: SET 'PRSI,HANDS
|
|
?CND52: EQUAL? PRSI,THORBAST-SWORD,SWORD \?ELS68
|
|
MOVE PRSI,PROTAGONIST
|
|
SET 'THORBAST-ATTACKED,TRUE-VALUE
|
|
IN? THORBAST-SWORD,THORBAST \?ELS73
|
|
RANDOM 100
|
|
LESS? 25,STACK /?ELS76
|
|
PRINTI "Your sword misses "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " by inches!"
|
|
JUMP ?CND74
|
|
?ELS76: RANDOM 100
|
|
LESS? 33,STACK /?ELS78
|
|
PRINTI "You nick "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " on the arm, drawing blood!"
|
|
JUMP ?CND74
|
|
?ELS78: RANDOM 100
|
|
LESS? 50,STACK /?ELS80
|
|
PRINTI "With a clang of steel, your sword smashes against "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI "'s!"
|
|
JUMP ?CND74
|
|
?ELS80: PRINTI "A mighty swing, but "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " easily dodges in this light gravity."
|
|
?CND74: CRLF
|
|
RTRUE
|
|
?ELS73: CALL DPRINT,THORBAST
|
|
PRINTI " somersaults in a neat circle, easily avoiding your thrust and ending up back in front of you. Further proof of "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI "'s uncanny "
|
|
CALL VISIBLE?,THORBAST-SWORD
|
|
ZERO? STACK /?ELS87
|
|
PRINTI "agility"
|
|
JUMP ?CND85
|
|
?ELS87: PRINTI "legerdemain"
|
|
?CND85: MOVE THORBAST-SWORD,THORBAST
|
|
FSET THORBAST-SWORD,NDESCBIT
|
|
FCLEAR THORBAST-SWORD,TAKEBIT
|
|
PRINTI ": "
|
|
CALL HE-SHE
|
|
PRINTI " is again holding"
|
|
CALL TRPRINT,THORBAST-SWORD
|
|
RSTACK
|
|
?ELS68: PRINT YOU-CANT
|
|
PRINTI "expect to kill a tough g"
|
|
ZERO? MALE /?ELS94
|
|
PRINTI "uy"
|
|
JUMP ?CND92
|
|
?ELS94: PRINTI "al"
|
|
?CND92: PRINTI " like "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " with"
|
|
CALL ARPRINT,PRSI
|
|
RSTACK
|
|
?ELS51: EQUAL? PRSA,V?GIVE \?ELS99
|
|
EQUAL? PRSO,THORBAST-SWORD \?ELS99
|
|
SET 'SPACESHIP-SCENE-STATUS,2
|
|
REMOVE THORBAST
|
|
REMOVE THORBAST-SWORD
|
|
SET 'FOLLOW-FLAG,7
|
|
CALL QUEUE,I-FOLLOW,2
|
|
CALL DEQUEUE,I-FIGHT
|
|
FSET THORBAST,MUNGBIT
|
|
PRINTI "As "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " accepts the sword, "
|
|
CALL INCREMENT-SCORE,5,15
|
|
CALL HE-SHE
|
|
PRINTI " realizes that such a gesture is the final proof that you are the good guy, and therefore "
|
|
CALL HE-SHE
|
|
PRINTI " hasn't got a chance of winning. Being a practical person, "
|
|
CALL DPRINT,THORBAST
|
|
PRINTI " saves both of you a lot of time and aggravation by goring "
|
|
CALL HIM-HER
|
|
PRINTI "self on "
|
|
CALL HIS-HER
|
|
PRINTI " own blade. Spewing droplets of blood, "
|
|
CALL HIS-HER
|
|
PRINTI " body drifts away into the blackness of space."
|
|
CRLF
|
|
RETURN 8
|
|
?ELS99: EQUAL? PRSA,V?SMELL \?ELS105
|
|
CALL PERFORM-PRSA,ODOR
|
|
RTRUE
|
|
?ELS105: EQUAL? PRSA,V?EXAMINE \FALSE
|
|
CALL THORBAST-F,M-OBJDESC
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT THORBAST-SUIT-F
|
|
EQUAL? PRSA,V?TAKE-OFF,V?TAKE \FALSE
|
|
CALL IMPOSSIBLES
|
|
RSTACK
|
|
|
|
|
|
.FUNCT THORBAST-SWORD-F
|
|
EQUAL? PRSA,V?RETURN \FALSE
|
|
ZERO? PRSI \FALSE
|
|
IN? THORBAST,HERE \FALSE
|
|
CALL PERFORM,V?GIVE,THORBAST-SWORD,THORBAST
|
|
RTRUE
|
|
|
|
|
|
.FUNCT YOUNG-WOMAN-F,OARG
|
|
ZERO? OARG /?ELS5
|
|
EQUAL? HERE,IN-SPACE \FALSE
|
|
EQUAL? OARG,M-OBJDESC? /TRUE
|
|
PRINTI " A "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " of refined bearing"
|
|
CALL DESCRIBE-YOUNG-WOMAN
|
|
RSTACK
|
|
?ELS5: ZERO? MALE /?ELS22
|
|
CALL NOUN-USED,W?MAN,YOUNG-WOMAN
|
|
ZERO? STACK \?THN19
|
|
?ELS22: ZERO? MALE \?ELS18
|
|
CALL NOUN-USED,W?WOMAN,YOUNG-WOMAN
|
|
ZERO? STACK /?ELS18
|
|
?THN19: EQUAL? PRSO,YOUNG-WOMAN \?ELS29
|
|
CALL PERFORM-PRSA,MAN-WOMAN,PRSI
|
|
RTRUE
|
|
?ELS29: CALL PERFORM-PRSA,PRSO,MAN-WOMAN
|
|
RTRUE
|
|
?ELS18: EQUAL? YOUNG-WOMAN,WINNER \?ELS33
|
|
IN? BEM,HERE \?ELS36
|
|
EQUAL? PRSA,V?SHUT-UP \?ELS36
|
|
EQUAL? PRSO,ROOMS \?ELS36
|
|
PRINTI "You might as well tell the stars not to shine."
|
|
CRLF
|
|
JUMP ?CND34
|
|
?ELS36: IN? BEM,HERE \?ELS40
|
|
PRINTI "The "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " is too busy screaming to reply."
|
|
CRLF
|
|
JUMP ?CND34
|
|
?ELS40: EQUAL? PRSA,V?WHAT \?ELS46
|
|
EQUAL? PRSO,LGOP /?THN43
|
|
?ELS46: EQUAL? PRSA,V?TELL-ABOUT \?ELS42
|
|
EQUAL? PRSO,ME \?ELS42
|
|
EQUAL? PRSI,LGOP \?ELS42
|
|
?THN43: PRINTI """They've built up a real interplanetary rep for debauchery, but actually they're just plain Kansas girls -- a group of sisters from Wichita, the daughters of Gus and Elmira Leather."""
|
|
CRLF
|
|
JUMP ?CND34
|
|
?ELS42: PRINTI "The "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " blinks shyly, but says nothing."
|
|
CRLF
|
|
?CND34: CALL STOP
|
|
RSTACK
|
|
?ELS33: CALL TOUCHING?,YOUNG-WOMAN
|
|
ZERO? STACK /?ELS52
|
|
IN? THORBAST,HERE \?ELS52
|
|
CALL PERFORM,V?KILL,BEM
|
|
RTRUE
|
|
?ELS52: EQUAL? PRSA,V?EXAMINE \?ELS56
|
|
EQUAL? HERE,IN-SPACE \?ELS56
|
|
PRINTI "The "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
CALL DESCRIBE-YOUNG-WOMAN
|
|
CRLF
|
|
RTRUE
|
|
?ELS56: EQUAL? PRSA,V?FOLLOW \?ELS60
|
|
EQUAL? FOLLOW-FLAG,4 \?ELS65
|
|
PRINT DONT-WANT-TO
|
|
RTRUE
|
|
?ELS65: EQUAL? FOLLOW-FLAG,5 \?ELS67
|
|
CALL DO-WALK,P?NORTH
|
|
RSTACK
|
|
?ELS67: EQUAL? FOLLOW-FLAG,6 \FALSE
|
|
CALL DO-WALK,P?EAST
|
|
RSTACK
|
|
?ELS60: EQUAL? PRSA,V?SAVE-SOMETHING \?ELS71
|
|
EQUAL? HERE,IN-SPACE \?ELS71
|
|
PRINTI "Psst! "
|
|
IN? BEM,HERE \?ELS78
|
|
PRINTI "Kill"
|
|
CALL TRPRINT,BEM
|
|
RSTACK
|
|
?ELS78: PRINTI "Untie"
|
|
CALL TRPRINT,YOUNG-WOMAN
|
|
RSTACK
|
|
?ELS71: EQUAL? PRSA,V?UNTIE \?ELS82
|
|
EQUAL? HERE,IN-SPACE \?ELS82
|
|
IN? THORBAST,HERE \?ELS89
|
|
CALL PERFORM,V?TOUCH,YOUNG-WOMAN
|
|
RTRUE
|
|
?ELS89: IN? BEM,HERE \?ELS91
|
|
CALL DO-FIRST,STR?394
|
|
RSTACK
|
|
?ELS91: MOVE YOUNG-WOMAN,SPACE-YACHT
|
|
SET 'FOLLOW-FLAG,5
|
|
CALL QUEUE,I-FOLLOW,2
|
|
PRINTI "You untie"
|
|
CALL TPRINT,YOUNG-WOMAN
|
|
PRINTI " who, beckoning you to follow, enters"
|
|
CALL TRPRINT,PASSENGER-SHIP
|
|
RSTACK
|
|
?ELS82: EQUAL? PRSA,V?KISS,V?FUCK,V?TOUCH /?THN98
|
|
EQUAL? PRSA,V?EAT \FALSE
|
|
?THN98: EQUAL? HERE,IN-SPACE \FALSE
|
|
ZERO? NAUGHTY-LEVEL /FALSE
|
|
CALL V-RAPE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT DESCRIBE-YOUNG-WOMAN
|
|
PRINTI " is tied to the hull of the "
|
|
PRINTD PASSENGER-SHIP
|
|
PRINTI ". "
|
|
CALL HER-HIS,TRUE-VALUE
|
|
PRINTI " elegantly expensive tunic is torn, exposing delicate white skin."
|
|
IN? BEM,HERE \TRUE
|
|
PRINTI " A "
|
|
PRINTD BEM
|
|
PRINTI " is attacking"
|
|
CALL TPRINT,YOUNG-WOMAN
|
|
PRINTI ", who is understandably screaming at the top of "
|
|
CALL HER-HIS
|
|
PRINTI " lungs."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT BEM-F
|
|
CALL TOUCHING?,BEM
|
|
ZERO? STACK /?ELS5
|
|
IN? THORBAST,HERE \?ELS10
|
|
CALL DO-WALK,P?NORTH
|
|
RSTACK
|
|
?ELS10: REMOVE BEM
|
|
CALL DEQUEUE,I-BEM
|
|
SET 'FOLLOW-FLAG,4
|
|
CALL QUEUE,I-FOLLOW,2
|
|
SET 'BEM-COUNTER,12
|
|
PRINTR "The tree-monster squawks and flees, proving that its bark is worse than its bite."
|
|
?ELS5: EQUAL? PRSA,V?FOLLOW \FALSE
|
|
EQUAL? FOLLOW-FLAG,4 \FALSE
|
|
PRINT DONT-WANT-TO
|
|
RTRUE
|
|
|
|
|
|
.FUNCT I-PASSENGER-SHIP-DEPARTS
|
|
EQUAL? SPACESHIP-SCENE-STATUS,1 /FALSE
|
|
SET 'SPACESHIP-SCENE-STATUS,1
|
|
REMOVE THORBAST
|
|
REMOVE BEM
|
|
REMOVE YOUNG-WOMAN
|
|
CALL DEQUEUE,I-BEM
|
|
IN? THORBAST-SWORD,IN-SPACE \?CND4
|
|
REMOVE THORBAST-SWORD
|
|
?CND4: CALL IN-SPACE?
|
|
ZERO? STACK /FALSE
|
|
PRINTI " A rumbling from outside the ship sends shivers running through the deck."
|
|
EQUAL? HERE,HOLD /?THN13
|
|
EQUAL? HERE,AT-MAIN-HATCH \?CND10
|
|
FSET? HATCH,OPENBIT \?CND10
|
|
?THN13: PRINTI " Through the "
|
|
EQUAL? HERE,HOLD \?ELS19
|
|
PRINTI "viewport"
|
|
JUMP ?CND17
|
|
?ELS19: PRINTI "hatchway"
|
|
?CND17: PRINTI ", you see"
|
|
CALL TPRINT,PASSENGER-SHIP
|
|
PRINTI " roaring away on a tail of ion flame!"
|
|
?CND10: CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT SPACE-YACHT-F,RARG
|
|
EQUAL? RARG,M-END \FALSE
|
|
IN? YOUNG-WOMAN,HERE \FALSE
|
|
SET 'FOLLOW-FLAG,6
|
|
CALL QUEUE,I-FOLLOW,2
|
|
REMOVE YOUNG-WOMAN
|
|
FCLEAR PRIVATE-CABIN-DOOR,LOCKEDBIT
|
|
MOVE PHOTO,PROTAGONIST
|
|
CALL INCREMENT-SCORE,17,13,TRUE-VALUE
|
|
PRINTI " The "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " turns to you. ""I am called Elysi"
|
|
ZERO? MALE /?ELS10
|
|
PRINTI "a"
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "um"
|
|
?CND8: PRINTI "; my "
|
|
ZERO? MALE /?ELS16
|
|
PRINTI "fa"
|
|
JUMP ?CND14
|
|
?ELS16: PRINTI "mo"
|
|
?CND14: PRINTI "ther is the wealthiest "
|
|
ZERO? MALE \?CND20
|
|
PRINTI "wo"
|
|
?CND20: PRINTI "man in the system. You will be grandly rewarded for saving me from that horrid kidnapper.""
|
|
"
|
|
CALL SHE-HE,TRUE-VALUE
|
|
PRINTI " grabs a photo off the wall, scribbles on the back of it, and hands it to you. ""Here is "
|
|
ZERO? MALE /?ELS25
|
|
PRINTI "fa"
|
|
JUMP ?CND23
|
|
?ELS25: PRINTI "mo"
|
|
?CND23: PRINTI "ther's address; see "
|
|
CALL HIM-HER
|
|
PRINTI " the next time you're on Ganymede, and you will be handsomely repaid. But now, I must retire to my cabin to recover from this hideous ordeal."" "
|
|
ZERO? MALE /?ELS31
|
|
PRINTI "She curtsie"
|
|
JUMP ?CND29
|
|
?ELS31: PRINTI "He bow"
|
|
?CND29: PRINTI "s, a bit unsteadily, and exits to the east, closing the door behind "
|
|
CALL HER-HIM
|
|
PRINT PERIOD-CR
|
|
RTRUE
|
|
|
|
|
|
.FUNCT PRIVATE-CABIN-DOOR-F
|
|
EQUAL? PRSA,V?KNOCK \FALSE
|
|
IN? YOUNG-WOMAN,IN-SPACE /FALSE
|
|
EQUAL? SPACESHIP-SCENE-STATUS,3 /FALSE
|
|
PRINTI """Please leave me to rest!"""
|
|
FSET? PRIVATE-CABIN-DOOR,LOCKEDBIT /?CND8
|
|
FSET PRIVATE-CABIN-DOOR,LOCKEDBIT
|
|
FSET? PRIVATE-CABIN-DOOR,OPENBIT \?ELS13
|
|
FCLEAR PRIVATE-CABIN-DOOR,OPENBIT
|
|
PRINTI " The door closes and y"
|
|
JUMP ?CND11
|
|
?ELS13: PRINTI " Y"
|
|
?CND11: PRINTI "ou hear a click as the door is locked."
|
|
?CND8: CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT PRIVATE-CABIN-ENTER-F
|
|
FSET? PRIVATE-CABIN-DOOR,OPENBIT \?ELS3
|
|
FCLEAR PRIVATE-CABIN-DOOR,OPENBIT
|
|
FSET PRIVATE-CABIN-DOOR,LOCKEDBIT
|
|
PRINTI "Private Cabin
|
|
You have entered a plush sleeping cabin. The "
|
|
CALL DPRINT,YOUNG-WOMAN
|
|
PRINTI " is standing in the center of the cabin, clutching "
|
|
CALL HER-HIS
|
|
PRINTI " clothes, looking shocked to see you."
|
|
ZERO? NAUGHTY-LEVEL \?ELS6
|
|
PRINTI " Naturally, you apologize and beat a hasty retreat."
|
|
JUMP ?CND4
|
|
?ELS6: CRLF
|
|
PRINTI " ""How dare you come in here without knocking! Am I to be allowed no privacy at all? Will my horror never end? Will..."" "
|
|
CALL SHE-HE,TRUE-VALUE
|
|
PRINTI " trails off and, as the multiple shocks of the day set in, begins sobbing. Moved, you take "
|
|
CALL HER-HIM
|
|
PRINTI " in your arms."
|
|
EQUAL? NAUGHTY-LEVEL,1 \?ELS11
|
|
PRINTI " One thing leads to another..."
|
|
JUMP ?CND9
|
|
?ELS11: CRLF
|
|
PRINTI " You dry "
|
|
CALL HER-HIS
|
|
PRINTI " tears, and as your bodies press closer, hysteria slowly turns to lust. You tenderly lead Elysi"
|
|
ZERO? MALE /?ELS16
|
|
PRINTI "a"
|
|
JUMP ?CND14
|
|
?ELS16: PRINTI "um"
|
|
?CND14: PRINTI " to the bed, and within seconds, your bodies lock together in slow rhythm.
|
|
After a series of spectacular climaxes, Elysi"
|
|
ZERO? MALE /?ELS22
|
|
PRINTI "a"
|
|
JUMP ?CND20
|
|
?ELS22: PRINTI "um"
|
|
?CND20: PRINTI " is struck with an idea. ""Would ... would you like to tie me up? It really turns me on..."""
|
|
?CND9: CRLF
|
|
PRINTI " Much, much later, making sure that Elysi"
|
|
ZERO? MALE /?ELS28
|
|
PRINTI "a"
|
|
JUMP ?CND26
|
|
?ELS28: PRINTI "um"
|
|
?CND26: PRINTI " is sleeping peacefully, you tiptoe out of the cabin, closing the door."
|
|
?CND4: CRLF
|
|
CRLF
|
|
CALL DESCRIBE-ROOM
|
|
RFALSE
|
|
?ELS3: CALL THIS-IS-IT,PRIVATE-CABIN-DOOR
|
|
CALL DO-FIRST,STR?66,PRIVATE-CABIN-DOOR
|
|
RFALSE
|
|
|
|
|
|
.FUNCT PHOTO-F
|
|
FSET? PHOTO,UNTEEDBIT /FALSE
|
|
EQUAL? PRSA,V?READ \?ELS7
|
|
PRINTI " ""Elysi"
|
|
ZERO? MALE /?ELS10
|
|
PRINTI "a's Dadd"
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "um's Momm"
|
|
?CND8: PRINTR "y
|
|
The Big House With All The Windows
|
|
Ganymede"""
|
|
?ELS7: EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTI "It is a "
|
|
CALL DPRINT,PHOTO
|
|
PRINTI " with writing on the back:"
|
|
CRLF
|
|
CALL PERFORM,V?READ,PHOTO
|
|
RTRUE
|
|
|
|
.ENDI
|