magrathea.zabstr

<ROOM HATCHWAY (LOC ROOMS) (DESC "Hatchway") (DOWN TO RAMP IF HATCH IS OPEN) (
OUT TO RAMP IF HATCH IS OPEN) (SOUTH TO RAMP IF HATCH IS OPEN) (FLAGS ONBIT
RLANDBIT) (GLOBAL STAIRS HEART-OF-GOLD HATCH)> 
<OBJECT HATCH (LOC LOCAL-GLOBALS) (DESC "hatch") (ADJECTIVE DOOR) (SYNONYM
HATCH DOOR) (FLAGS DOORBIT OPENBIT) (ACTION HATCH-F)> 
<VOC "NORTH" NOUN> 
<VOC "SOUTH" NOUN> 
<VOC "FROB" ADJ> 
<VOC "HAND" ADJ> 
<DEFINE-ROUTINE HATCH-F> 
<ROOM RAMP (LOC ROOMS) (DESC "On the Ramp") (FDESC
"You are on the ramp leading from the starship Heart of Gold down to the
surface of the legendary lost planet of Magrathea, which isn't.  Lost,
that is.  It isn't lost because if it were, you wouldn't be here, but
you are, so it isn't.  If the logic of all that is too much for you,
just go down to the surface or up to the hatchway.  Go anywhere else and
you'll just get into awful difficulties.  Not that you'll take any
notice, of course; just don't say you weren't warned.") (NORTH TO HATCHWAY IF
HATCH IS OPEN) (UP TO HATCHWAY IF HATCH IS OPEN) (SOUTH TO BLIGHTED-GROUND) (
WEST SORRY "You bang you head against the ship's side.") (EAST PER
FALL-OFF-RAMP) (NE SORRY "You bang you head against the ship's side.") (NW
SORRY "You bang you head against the ship's side.") (SE PER FALL-OFF-RAMP) (SW
PER FALL-OFF-RAMP) (DOWN TO BLIGHTED-GROUND) (GLOBAL HATCH) (FLAGS RLANDBIT
ONBIT)> 
<DEFINE-ROUTINE FALL-OFF-RAMP> 
<ROOM BLIGHTED-GROUND (LOC ROOMS) (DESC "Blighted Ground") (LDESC
"The surface of Magrathea is barren and inhospitable: a cold, constant
wind, a sifting of dust, no sign of life or movement.  In short, it is not
unlike a Chinese restaurant after 11.00 at night when they all want to go 
home.  The only difference is that there isn't a little silent gang of
waiters staring sullenly at the back of your neck.  The ramp lies upwards to
the north; to the south-east, there's an unhealthy-looking crater.") (NORTH TO
RAMP) (SOUTH PER WANDER-AROUND) (WEST PER WANDER-AROUND) (EAST PER
WANDER-AROUND) (NE PER WANDER-AROUND) (NW PER WANDER-AROUND) (SW PER
WANDER-AROUND) (FLAGS ONLANDBIT ONBIT)> 
<DEFINE-ROUTINE WANDER-AROUND> 
<ROOM LIP1 (LOC ROOMS) (DESC "Crater Lip") (FDESC
"The dusty ground rises here before falling away into a
crater.  The crater seems rather new, as if it had been created by the
impact of something huge and confused, travelling downwards at high
velocity.  It is as if a sperm whale had inexplicably materialized
several miles above the surface of Magrathea and immediately plunged
downwards, reaching terminal velocity almost immediately, terminal
incomprehension soon afterwards, and, finally, terminal impact just as
it was wondering whether it was going to have a nice day.  This
impression is heightened by the shards of whalebone and meat you can see
glistening here and there around the crater.

The crater continues south-west and south-east, and the blighted ground
lies to the north-west.") (LDESC
"You are on the rim of a great crater which continues to the south-west
and south-east, while the blighted ground lies north-west") (WEST PER
SLOPE-SCRAMBLE) (EAST PER SLOPE-SCRAMBLE) (NORTH PER SLOPE-SCRAMBLE) (SOUTH PER
DEATH-BY-BLUBBER) (NW TO BLIGHTED-GROUND) (NE PER SLOPE-SCRAMBLE) (SW TO LIP4)
(SE TO LIP2) (FLAGS ONLANDBIT ONBIT) (GLOBAL WHALE-CRATER)> 
<DEFINE-ROUTINE DEATH-BY-BLUBBER> 
<DEFINE-ROUTINE SLOPE-SCRAMBLE> 
<ROOM LIP2 (LOC ROOMS) (LDESC
"The rim of the whale crater continues northwest and
southwest. The scene of the whale's final disiluusionment lies below
you, but there's no way down") (DESC "Crater Lip") (WEST PER DEATH-BY-BLUBBER)
(EAST PER SLOPE-SCRAMBLE) (NORTH PER SLOPE-SCRAMBLE) (SOUTH PER SLOPE-SCRAMBLE)
(NW TO LIP1) (NE PER WANDER-AROUND) (SW TO LIP3) (SE PER SLOPE-SCRAMBLE) (FLAGS
ONLANDBIT ONBIT) (GLOBAL WHALE-CRATER)> 
<ROOM LIP3 (LOC ROOMS) (DESC "Crater Lip") (LDESC
"The crater lip continues north-east and north-west.
Below you is a build-your-own-dead-whale kit (glue not included).
There's no way down.") (NORTH PER DEATH-BY-BLUBBER) (NE TO LIP2) (EAST PER
SLOPE-SCRAMBLE) (SE PER SLOPE-SCRAMBLE) (SOUTH PER SLOPE-SCRAMBLE) (SW PER
SLOPE-SCRAMBLE) (WEST PER SLOPE-SCRAMBLE) (NW TO LIP4) (FLAGS ONLANDBIT ONBIT)
(GLOBAL WHALE-CRATER)> 
<ROOM LIP4 (LOC ROOMS) (DESC "Crater Lip") (FDESC
"The crater lip continues northeast and southeast here, and below you is
a ledge.  If you fell from here to the ledge you would probably
break and ankle and nobody would hear you screaming and you
would die from pain and exposure.  On the other hand, if you
climbed down carefully, you'd have no trouble.  So what are you
making all the fuss about?") (LDESC
"The crater lip continues northeat and southeast here,
and below you is a ledge.") (NORTH PER SLOPE-SCRAMBLE) (NE TO LIP1) (EAST TO
LEDGE) (DOWN TO LEDGE) (SE TO LIP3) (SOUTH PER SLOPE-SCRAMBLE) (SW PER
SLOPE-SCRAMBLE) (WEST PER SLOPE-SCRAMBLE) (NW PER SLOPE-SCRAMBLE) (FLAGS ONBIT
ONLANDBIT) (GLOBAL WHALE-CRATER)> 
<ROOM LEDGE (LOC ROOMS) (DESC "Ledge") (FDESC
"This ledge lies halfway between the crater lip and the
floor of the whale crater itself. It doesn't seem quite like any ledge
you've encountered before, perhaps because of the pillars on either side
of you and the rather nice wall - marble, perhaps, or ivory? - between
you and the steep but survivable slope down to the crater floor.") (LDESC
"This ledge lies halfway between the crater lip and the floor of the whale
crater itself.") (NORTH PER DEATH-BY-BLUBBER) (NE PER DEATH-BY-BLUBBER) (EAST
PER DOWN-TO-CRATER) (SE PER DEATH-BY-BLUBBER) (SOUTH PER DEATH-BY-BLUBBER) (SW
SORRY "You bang your head on the rock face.") (NW SORRY
"You bang your head on the rock face.") (FLAGS ONBIT ONLANDBIT) (GLOBAL
WHALE-CRATER)> 
<DEFINE-ROUTINE DOWN-TO-CRATER> 
<OBJECT WHALE-CRATER-BOX (LOC LOCAL-GLOBALS) (FLAGS CONTBIT TRANSBIT NDESCBIT)>

<ROOM WHALE-CRATER (LOC ROOMS) (DESC "Crater") (FDESC
"The floor of this deeply crufty crater is splattered with all kinds of disgusting stuff.  Film at eleven."
) (LDESC "This is the whale crater, liberally supplied with whale.") (FLAGS
ONLANDBIT ONBIT)>