2002 lines
54 KiB
Plaintext
2002 lines
54 KiB
Plaintext
"HEDGEMAZE for ANTHILL (C)1986 by Infocom Inc. All Rights Reserved."
|
|
|
|
<ROOM GAME-ROOM
|
|
(IN ROOMS)
|
|
(DESC "Game Room")
|
|
(LDESC
|
|
"This was your favorite room as a child. Each summer Uncle Buddy would
|
|
have props and models from his various movies brought here for the
|
|
amusement of his numerous guests. There is a scale model of downtown
|
|
Tokyo here. Doorways lead south, east and west. There is a door to the
|
|
north.")
|
|
(FLAGS RLANDBIT LOCKEDBIT)
|
|
(NORTH TO PATIO IF PATIO-DOOR IS OPEN)
|
|
(EAST TO SHORT-HALL)
|
|
(WEST TO DINING-ROOM)
|
|
(SOUTH TO FOYER)
|
|
(GLOBAL PATIO-DOOR WINDOW)
|
|
(CAPACITY 20) ;"Tell--sun coming up"
|
|
(THINGS <PSEUDO (CENTRAL PARK PARK-PSEUDO)
|
|
(PLASTIC DOME DOME-PSEUDO)
|
|
(TINY TRUCK TRUCK-PSEUDO)
|
|
(<> ROCKET ROCKET-PSEUDO)
|
|
(<> HOLE DOME-HOLE-PSEUDO)
|
|
(MELTED SPOT DOME-HOLE-PSEUDO)>)>
|
|
|
|
<ROUTINE PARK-PSEUDO ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"It's Tokyo Central Park, filled with little plastic trees and shrubs, and
|
|
little plastic people sitting on little plastic benches. Tokyo's Main Street
|
|
stops on the west side of the park then continues on the east side of the
|
|
park. ">
|
|
<COND (<EQUAL? ,DOG-LOC 6>
|
|
<TELL
|
|
"In the western half of the park you can't help but notice
|
|
the out-of-place " D ,DOG>
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>;"missile"
|
|
<TELL
|
|
" with a small rocket buzzing around it.">)
|
|
(T
|
|
<TELL ".">)>
|
|
<COND (<AND <NOT <EQUAL? ,TRUCK-LOC 33>>
|
|
<NOT <EQUAL? ,TRUCK-LOC 30>>>
|
|
<TELL
|
|
" A tiny truck is near some plastic trees in the eastern half of
|
|
the park.">)>
|
|
;<CRLF>)
|
|
(T
|
|
<TELL "In the eastern half of the park there">
|
|
<COND (<FSET? ,MONUMENT ,TRASHED-BIT>
|
|
<TELL
|
|
" are bits and pieces of a smashed monument. ">
|
|
<COND (<AND <NOT <FSET? ,DOG ,CLUTCHING-BIT>>
|
|
,RING-UNDER-DOME>
|
|
<TELL
|
|
"Lying near the remains of the monument is" A ,RING ". ">)>)
|
|
(T
|
|
<TELL " is a monument. ">)>
|
|
<COND (<FSET? ,RING ,ON-MONUMENT-BIT>
|
|
<TELL
|
|
"There is" A ,RING " perched on top of the monument. ">)>
|
|
<COND (<EQUAL? ,DOG-LOC 7>
|
|
<TELL
|
|
"The " D ,DOG " is standing in front of the monument and a ">
|
|
<COND (<EQUAL? ,TRUCK-LOC 30>
|
|
<TELL "smashed ">)>
|
|
<TELL "truck is at his feet.">
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>
|
|
<TELL
|
|
" There is a rocket flying around the dog.">)>)
|
|
(<EQUAL? ,DOG-LOC 30>
|
|
<TELL
|
|
"Scattered on the west and east sides of the park are pieces of fur and scales,
|
|
mixed with bits of wire and a couple of servomotors.">
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<TELL
|
|
" A " D ,RING " is lying near the debris.">)>)>)>
|
|
<CRLF>
|
|
<RTRUE>)
|
|
(<TOUCHING? ,PSEUDO-OBJECT>
|
|
<TELL
|
|
"You can't touch the park. It's under the plastic dome." CR>)>>
|
|
|
|
<ROUTINE DOME-PSEUDO ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"The thick plastic dome covers the model of downtown Tokyo">
|
|
<COND (<L? ,BURN-DOME 3>
|
|
<TELL ". There is a ">
|
|
<COND (<EQUAL? ,BURN-DOME 2>
|
|
<TELL "slightly melted spot">)
|
|
(<EQUAL? ,BURN-DOME 1>
|
|
<TELL "melted spot, almost a hole">)
|
|
(<EQUAL? ,BURN-DOME 0>
|
|
<TELL "small hole">)>
|
|
<TELL " on the dome's eastern side">)>
|
|
<TELL "." CR>)
|
|
(<VERB? LOOK-INSIDE>
|
|
<PERFORM ,V?EXAMINE ,TOKYO>
|
|
<RTRUE>)
|
|
(<AND <VERB? PUT>
|
|
<EQUAL? ,BURN-DOME 0>> ;"hole burned in dome"
|
|
<TELL "You don't want to ruin the delicate model." CR>)>>
|
|
|
|
<ROUTINE DOME-HOLE-PSEUDO () ;"SEM--ELSE HERE?"
|
|
<COND (<EQUAL? ,BURN-DOME 3>
|
|
<CANT-SEE-ANY>)
|
|
(<AND <VERB? EXAMINE>
|
|
<L? ,BURN-DOME 3>> ;"was ,dome-hole"
|
|
<TELL "There is a ">
|
|
<COND (<EQUAL? ,BURN-DOME 2>
|
|
<TELL "slightly melted spot">)
|
|
(<EQUAL? ,BURN-DOME 1>
|
|
<TELL "melted spot, almost a hole,">)
|
|
(<EQUAL? ,BURN-DOME 0>
|
|
<TELL "hole about the size of an orange">)>
|
|
<TELL " on the dome's eastern side." CR>)
|
|
(<AND <VERB? REACH-IN>
|
|
<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<EQUAL? ,BURN-DOME 0>>
|
|
<TELL "The " D ,RING ": ">
|
|
<PERFORM ,V?TAKE ,RING>
|
|
<RTRUE>)
|
|
(<VERB? LOOK-INSIDE>
|
|
<TELL "You see downtown Tokyo." CR>)
|
|
(<AND <VERB? PUT>
|
|
<EQUAL? ,BURN-DOME 0>> ;"hole burned in dome"
|
|
<TELL "You don't want to ruin the delicate model." CR>)>>
|
|
|
|
<ROUTINE TRUCK-PSEUDO ()
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,TRUCK-LOC 33> ;"OFF STAGE"
|
|
<TELL "You can't see any tiny truck here." CR>)
|
|
(<EQUAL? ,TRUCK-LOC 30>
|
|
<TELL
|
|
"The tiny truck is smashed into tiny bits and pieces." CR>)
|
|
(T
|
|
<TELL
|
|
"It's a tiny truck with a small radar dish which is pointing at" TR ,DOG>)>)
|
|
(<TOUCHING? ,PSEUDO-OBJECT>
|
|
<TELL
|
|
"You can't reach the tiny truck. It's under the plastic dome." CR>)>>
|
|
|
|
<ROUTINE ROCKET-PSEUDO ()
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,ROCKET-LOC 33>
|
|
<TELL "You can't see any rocket here." CR>)
|
|
(<EQUAL? ,ROCKET-LOC 30>
|
|
<TELL
|
|
"You can't see any rocket here. It has been destroyed." CR>)
|
|
(T
|
|
<TELL
|
|
"The rocket is circling around" TR ,DOG>)>)
|
|
(<TOUCHING? ,PSEUDO-OBJECT>
|
|
<TELL
|
|
"You can't reach the rocket. It's under the plastic dome." CR>)>>
|
|
|
|
<OBJECT TOKYO
|
|
(IN GAME-ROOM)
|
|
(DESC "scale model of downtown Tokyo")
|
|
(SYNONYM TOKYO CITY DOWNTO MODEL)
|
|
(ADJECTIVE SCALE DOWNTO)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION TOKYO-F)>
|
|
|
|
<ROUTINE TOKYO-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"It's the scale model of downtown Tokyo used in the movie \"Atomic
|
|
Chihuahuas From Hell.\" In the center of the model is Tokyo Central Park. ">
|
|
<TELL "In the eastern half of the park there ">
|
|
<COND (<FSET? ,MONUMENT ,TRASHED-BIT>
|
|
<TELL
|
|
"are bits and pieces of a smashed monument.">
|
|
<COND (<AND <NOT <FSET? ,DOG ,CLUTCHING-BIT>>
|
|
,RING-UNDER-DOME>
|
|
<TELL
|
|
" Lying near the remains of the monument is" A ,RING ".">)>)
|
|
(T
|
|
<TELL "is a monument.">)>
|
|
<COND (<FSET? ,RING ,ON-MONUMENT-BIT>
|
|
<TELL
|
|
" There is" A ,RING " perched on top of the monument.">)>
|
|
<TELL
|
|
" Stretching east and west from the park is Tokyo's main street. ">
|
|
|
|
;"mention dog" <COND (<EQUAL? ,DOG-LOC 30>
|
|
<TELL
|
|
"Scattered throughout the park are pieces of fur and scales mixed with
|
|
bits of wire and a couple of servomotors.">
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<TELL
|
|
" A " D ,RING " is lying near the debris.">)>)
|
|
(<EQUAL? ,DOG-LOC 20>
|
|
<TELL
|
|
"West of the park," T ,DOG " is lying in the street.">)
|
|
(<EQUAL? ,DOG-LOC 40>
|
|
<TELL
|
|
"Scattered in the street east of the park are pieces of fur and scales
|
|
mixed with bits of wire and a couple of servomotors.">
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<TELL
|
|
" A " D ,RING " is lying near the debris.">)>)
|
|
(<AND <L? ,DOG-LOC 6>
|
|
<G? ,DOG-LOC 0>>
|
|
<TELL
|
|
"In the street west of the park there is an " D ,DOG>
|
|
<COND (<OR <EQUAL? ,DOG-LOC ,TANK-LOC <- ,TANK-LOC 1>>
|
|
<EQUAL? ,DOG-LOC ,PLANE-LOC <- ,PLANE-LOC 1>>>
|
|
<TELL " under attack">)>
|
|
<TELL ".">)
|
|
(<EQUAL? ,DOG-LOC 6 7>
|
|
<TELL "There is an " D ,DOG " in the park">
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>
|
|
<TELL " with a rocket buzzing around it">)>
|
|
<TELL ".">)
|
|
(<G? ,DOG-LOC 7>
|
|
<TELL
|
|
"There is an " D ,DOG " in the street east of the park">
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>
|
|
<TELL " with a rocket buzzing around it">)>
|
|
<TELL ".">)>
|
|
<TELL
|
|
" The entire model is covered by a thick plastic dome">
|
|
<COND (<L? ,BURN-DOME 3>
|
|
<TELL " which has a ">
|
|
<COND (<EQUAL? ,BURN-DOME 2>
|
|
<TELL "slightly melted spot">)
|
|
(<EQUAL? ,BURN-DOME 1>
|
|
<TELL "melted spot">)
|
|
(<EQUAL? ,BURN-DOME 0>
|
|
<TELL "small hole">)>
|
|
<TELL " in it near the east end">)>
|
|
<TELL
|
|
". Outside the dome on the model there are five buttons: a blue button, a
|
|
black button, a green button, a white button and a red button." CR>)>>
|
|
|
|
<OBJECT MONUMENT
|
|
(IN GAME-ROOM)
|
|
(DESC "monument")
|
|
(SYNONYM MONUMENT)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION MONUMENT-F)>
|
|
|
|
<ROUTINE MONUMENT-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL "It's ">
|
|
<COND (<FSET? ,MONUMENT ,TRASHED-BIT>
|
|
<TELL "what's left of ">)>
|
|
<TELL
|
|
"a memorial dedicated to the brave Japanese men and women who have died
|
|
defending Tokyo against various monsters">
|
|
<COND (<FSET? ,RING ,ON-MONUMENT-BIT>
|
|
<TELL ". A " D ,RING " is sitting atop the monument">)
|
|
(<AND <FSET? ,MONUMENT ,TRASHED-BIT>
|
|
<NOT <FSET? ,DOG ,CLUTCHING-BIT>>>
|
|
<TELL
|
|
". There is" A ,RING " lying next to the monument rubble">)>
|
|
<TELL "." CR>)
|
|
(<TOUCHING? ,MONUMENT>
|
|
<TELL
|
|
"You can't reach" T ,MONUMENT ". It's under the plastic dome." CR>)>>
|
|
|
|
<OBJECT RING
|
|
(IN GAME-ROOM)
|
|
(DESC "Big Diamond Ring")
|
|
(SYNONYM RING)
|
|
(ADJECTIVE DIAMOND BIG)
|
|
(FLAGS WEARBIT NDESCBIT TRYTAKEBIT TAKEBIT ON-MONUMENT-BIT)
|
|
(SIZE 2)
|
|
(VALUE 10)
|
|
(ACTION RING-F)>
|
|
|
|
<GLOBAL RING-UNDER-DOME T>
|
|
|
|
<ROUTINE RING-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<TELL
|
|
"It's" T ,RING " from Uncle Buddy's movie \"The Big Diamond Ring.\"" CR>)
|
|
(<AND <VERB? TAKE>
|
|
<FSET? ,RING ,TRYTAKEBIT>>
|
|
<COND (<EQUAL? ,BURN-DOME 0> ;"hole burned in dome"
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<FCLEAR ,RING ,TRYTAKEBIT>
|
|
<FCLEAR ,DOG ,CLUTCHING-BIT>
|
|
<FCLEAR ,RING ,NDESCBIT>
|
|
<SETG RING-UNDER-DOME <>>
|
|
<RFALSE>)
|
|
(T
|
|
<TELL
|
|
"It's in the park in the middle of downtown Tokyo, the model that is.
|
|
Despite the hole, you can't reach it from here." CR>)>)
|
|
(T
|
|
<TELL
|
|
"It's under the plastic dome. You can't reach it." CR>)>)
|
|
(<AND <VERB? CUT>
|
|
<PRSI? ,RING>>
|
|
<TELL
|
|
"You don't think that's a real diamond, do you? Not in one of Uncle
|
|
Buddy's movies." CR>)>>
|
|
|
|
<OBJECT TANK
|
|
(IN GAME-ROOM)
|
|
(SDESC "tiny tanks")
|
|
(SYNONYM TANK TANKS)
|
|
(ADJECTIVE TINY)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION TANK-F)>
|
|
|
|
<ROUTINE TANK-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,TANK-LOC 33> ;"OFF STAGE"
|
|
<TELL "You can't see any " D ,TANK " here." CR>)
|
|
(T
|
|
<RFALSE>)>)
|
|
(<TOUCHING? ,TANK>
|
|
<TELL
|
|
"You can't reach" T ,TANK " under the plastic dome." CR>)>>
|
|
|
|
<OBJECT PLANE
|
|
(IN GAME-ROOM)
|
|
(SDESC "puny plane")
|
|
(SYNONYM PLANE AIRPLANE PLANES)
|
|
(ADJECTIVE PUNY)
|
|
(FLAGS NDESCBIT TRYTAKEBIT)
|
|
(ACTION PLANE-F)>
|
|
|
|
<ROUTINE PLANE-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,PLANE-LOC 33> ;"OFF STAGE"
|
|
<TELL "You can't see any " D ,PLANE " here." CR>)
|
|
(T
|
|
<RFALSE>)>)
|
|
(<TOUCHING? ,PLANE>
|
|
<TELL
|
|
"You can't reach" T ,PLANE " under the plastic dome." CR>)>>
|
|
|
|
<OBJECT DOG
|
|
(IN GAME-ROOM)
|
|
(DESC "Atomic Chihuahua")
|
|
(SYNONYM CHIHUAHUA DOG MONSTER)
|
|
(ADJECTIVE ATOMIC)
|
|
(FLAGS NDESCBIT VOWELBIT)
|
|
(ACTION DOG-F)>
|
|
|
|
<ROUTINE DOG-F ()
|
|
<COND (<VERB? EXAMINE>
|
|
<COND (<EQUAL? ,DOG-LOC 30 40>
|
|
<TELL
|
|
"There's nothing left but bits of fur and scales mixed with pieces of wire
|
|
and a couple of servomotors." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL
|
|
"Being atomic, it bears little resemblance to the prancing rats you're
|
|
used to seeing, except for the bulging eyes, of course. It has a furry
|
|
underbelly, but in most places scales have replaced hair, giving it a
|
|
more reptilian look. Its front paws are now heavy, clawed appendages
|
|
and it has fierce-looking fangs. ">
|
|
<COND (<EQUAL? ,DOG-LOC 20>
|
|
<TELL
|
|
"It's lying on its side in the street, west of the park.">)
|
|
(T
|
|
<TELL
|
|
"It's standing on its hind legs balanced by its huge mutated spiny tail.">)>
|
|
<COND (<AND <G? ,HIT-POINTS 29>
|
|
<L? ,HIT-POINTS 33>> ;"SEM"
|
|
<TELL " It seems near death.">)
|
|
(<AND <G? ,HIT-POINTS 25>
|
|
<L? ,HIT-POINTS 29>>
|
|
<TELL
|
|
" The repeated attacks are taking their toll.">)>
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<TELL
|
|
" It's clutching" A ,RING " with its claws.">)>
|
|
<CRLF>)>)
|
|
(<TOUCHING? ,DOG>
|
|
<COND (<AND <VERB? TAKE>
|
|
<PRSI? ,DOG>
|
|
<PRSO? ,RING>
|
|
<EQUAL? ,BURN-DOME 0>
|
|
<FSET? ,DOG ,CLUTCHING-BIT>>
|
|
<RFALSE>)>
|
|
<TELL
|
|
"You can't reach" T ,DOG ". It's under the plastic dome." CR>)>>
|
|
|
|
<OBJECT RED-BUTTON ;"bark/breath fire"
|
|
(IN GAME-ROOM)
|
|
(DESC "red button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE RED)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION RED-BUTTON-F)>
|
|
|
|
<GLOBAL BURN-DOME 3>
|
|
<GLOBAL DOG-BREATH 3>
|
|
|
|
<ROUTINE RED-BUTTON-F () ;"bark/breath fire"
|
|
<COND (<VERB? PUSH>
|
|
<COND (<DOG-DEAD?>
|
|
<RTRUE>)
|
|
(<EQUAL? ,DOG-BREATH 0>
|
|
<TELL
|
|
"You hear a faint gagging noise coming from" T ,DOG ", then see a little smoke
|
|
rise from his nostrils." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG DOG-BREATH <- ,DOG-BREATH 1>>
|
|
<COND (<EQUAL? ,DOG-LOC ,PLANE-LOC>
|
|
<COND (<EQUAL? ,PLANES-LEFT 2>
|
|
<SETG PLANES-LEFT 1>
|
|
<PUTP ,PLANE ,P?SDESC "puny plane">
|
|
<TELL
|
|
"A gout of flame from the maw of the plutonium puppy burns up one
|
|
of the puny planes." CR>)
|
|
(T
|
|
;<REMOVE ,PLANE>
|
|
;"SEM" <MOVE ,PLANE ,P-NMERGE> ;"temp fix"
|
|
<SETG PLANES-LEFT 0>
|
|
<SETG PLANE-LOC 30>
|
|
<TELL
|
|
"An eight-inch flame shoots from the dog's mouth, burning up the remaining
|
|
puny plane." CR>)>)
|
|
(<AND <EQUAL? ,DOG-LOC 6 7>
|
|
<NOT <EQUAL? ,ROCKET-LIFE 0>>>
|
|
<DEQUEUE ,I-ROCKET-ATTACK>
|
|
<SETG ROCKET-LIFE 0>
|
|
<SETG ROCKET-LOC 30>
|
|
<TELL
|
|
"The dog barks a flame, which burns the rocket to a crisp. (Japanese
|
|
taxpayers are bound to complain about this useless and expensive waste
|
|
of military hardware.)" CR>)
|
|
(<AND <EQUAL? ,DOG-LOC 10>
|
|
<EQUAL? ,ROCKET-LIFE 0>
|
|
<NOT <EQUAL? ,BURN-DOME 0>>>
|
|
<SETG BURN-DOME <- ,BURN-DOME 1>>
|
|
<TELL "The " D ,DOG " breathes fire which ">
|
|
<COND (<EQUAL? ,BURN-DOME 2>
|
|
<TELL "slightly melts a spot">)
|
|
(<EQUAL? ,BURN-DOME 1>
|
|
<TELL
|
|
"melts the spot even more. There is almost a hole">)
|
|
(<EQUAL? ,BURN-DOME 0>
|
|
<TELL "burns a small hole">)>
|
|
<TELL " in the plastic dome." CR>)
|
|
(T
|
|
<TELL
|
|
"A flame shoots from the dog's mouth into the air." CR>)>)>)>>
|
|
|
|
<OBJECT WHITE-BUTTON ;"swipe"
|
|
(IN GAME-ROOM)
|
|
(DESC "white button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE WHITE)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION WHITE-BUTTON-F)>
|
|
|
|
<ROUTINE WHITE-BUTTON-F () ;"swipe"
|
|
<COND (<VERB? PUSH>
|
|
<COND (<DOG-DEAD?>
|
|
<RTRUE>)>
|
|
<TELL "The " D ,DOG " swipes at ">
|
|
<COND (<EQUAL? ,DOG-LOC ,PLANE-LOC>;"SEM COULD I CUT THIS COND"
|
|
<TELL "the " D ,PLANE ", striking ">
|
|
<COND (<EQUAL? ,PLANES-LEFT 2>
|
|
<TELL "one">)
|
|
(T
|
|
<TELL "it">)>
|
|
<TELL
|
|
". A puff of black smoke begins to trail from the puny plane. ">
|
|
<COND (<EQUAL? ,PLANES-LEFT 2>
|
|
<TELL
|
|
"It rolls to one side, then heads down, crashing in a Tokyo suburb">)
|
|
(T
|
|
<TELL
|
|
"It tumbles out of control, crashing in the parking lot of the Tokyo
|
|
Disneyland">)>
|
|
<SETG PLANES-LEFT <- ,PLANES-LEFT 1>>
|
|
<PUTP ,PLANE ,P?SDESC "puny plane">
|
|
<COND (<EQUAL? ,PLANES-LEFT 0>
|
|
;<REMOVE ,PLANE>
|
|
<MOVE ,PLANE ,P-NMERGE> ;"temp fix"
|
|
<SETG PLANES-LEFT 0>
|
|
<SETG PLANE-LOC 30>)>)
|
|
(<AND <EQUAL? ,DOG-LOC ,ROCKET-LOC>
|
|
<NOT <EQUAL? ,ROCKET-LOC 30>>>
|
|
<TELL "the rocket, barely missing it">)
|
|
(T
|
|
<TELL "thin air">)>
|
|
<TELL "." CR>)>>
|
|
|
|
<ROUTINE DOG-DEAD? ()
|
|
<COND (<EQUAL? ,DOG-LOC 30 40>
|
|
<TELL "A servomotor ">
|
|
<COND (<EQUAL? ,DOG-LOC 40>
|
|
<TELL "east of ">)
|
|
(T
|
|
<TELL "in ">)>
|
|
<TELL "the park spins for a moment." CR>)
|
|
(<EQUAL? ,DOG-LOC 20>
|
|
<COND (<PRSI? ,RED-BUTTON>
|
|
<TELL
|
|
"A slight puff of smoke emerges slowly from" T ,DOG "'s left nostril." CR>)
|
|
(T
|
|
<TELL
|
|
"You press" T ,PRSO " but nothing happens." CR>)>)>>
|
|
|
|
<GLOBAL PLANES-LEFT 2>
|
|
<GLOBAL TANKS-LEFT 2>
|
|
|
|
<OBJECT GREEN-BUTTON ;"Forward"
|
|
(IN GAME-ROOM)
|
|
(DESC "green button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE GREEN)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION GREEN-BUTTON-F)>
|
|
|
|
<GLOBAL ROCKET-LOC 33>
|
|
|
|
<ROUTINE GREEN-BUTTON-F () ;"forward"
|
|
<COND (<VERB? PUSH>
|
|
<COND (<DOG-DEAD?>
|
|
<RTRUE>)
|
|
(<EQUAL? ,DOG-LOC ,TANK-LOC ,PLANE-LOC>
|
|
<TELL
|
|
"The gunfire prevents" T ,DOG " from moving further forward." CR>)
|
|
(<EQUAL? ,DOG-LOC 10> ;"last room"
|
|
<TELL
|
|
"The " D ,DOG " bumps its atomic snout into the plastic
|
|
dome covering the model." CR>)
|
|
(T ;"walk the dog"
|
|
<SETG DOG-LOC <+ ,DOG-LOC 1>>
|
|
<TELL "The " D ,DOG ", in ">
|
|
<COND (<G? ,HIT-POINTS 8>
|
|
<TELL "a wounded waddle,">)
|
|
(T
|
|
<TELL "its best prehistoric prance,">)>
|
|
<TELL " moves ">
|
|
<COND (<EQUAL? ,DOG-LOC 6> ;"Westside of Park"
|
|
<TELL
|
|
"into the west end of the park, violating all leash laws." CR>)
|
|
(<EQUAL? ,DOG-LOC 7> ;"Eastside of Park"
|
|
<TELL
|
|
"to the east end of the park right in front of a monument, near the tiny
|
|
truck.">
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>
|
|
<SETG ROCKET-LOC 7>
|
|
<TELL
|
|
" The rocket follows close behind.">)>
|
|
<CRLF>)
|
|
(<EQUAL? ,DOG-LOC 8>
|
|
<TELL
|
|
"forward, crushing the monument. Dozens of local pigeons commence mourning. ">
|
|
<FSET ,MONUMENT ,TRASHED-BIT>
|
|
<COND (<NOT <FSET? ,DOG ,CLUTCHING-BIT>>
|
|
<FCLEAR ,RING ,ON-MONUMENT-BIT>
|
|
<TELL
|
|
"The " D ,RING " tumbles off the monument onto the ground. ">)>
|
|
<TELL
|
|
"The dog leaves the park and moves into the street">
|
|
<COND (<AND <NOT <EQUAL? ,DOG-LOC ,ROCKET-LOC>>
|
|
<NOT <EQUAL? ,ROCKET-LOC 30>>>
|
|
<SETG ROCKET-LOC ,DOG-LOC>
|
|
<TELL
|
|
". The rocket follows close behind">)>
|
|
<TELL "." CR>)
|
|
(<EQUAL? ,DOG-LOC 9>
|
|
<TELL "further east, then comes to a stop.">
|
|
<COND (<AND <NOT <EQUAL? ,DOG-LOC ,ROCKET-LOC>>
|
|
<NOT <EQUAL? ,ROCKET-LOC 30>>>
|
|
<SETG ROCKET-LOC ,DOG-LOC>
|
|
<TELL " The rocket follows close behind.">)>
|
|
<CRLF>)
|
|
(<EQUAL? ,DOG-LOC 2>
|
|
<TELL "east, then comes to a stop." CR>)
|
|
(T
|
|
<TELL
|
|
"further east, then comes to a stop." CR>)>)>
|
|
<COND (<AND <EQUAL? ,DOG-LOC 2>
|
|
<NOT <EQUAL? ,DOG-LOC ,TANK-LOC ,PLANE-LOC>>>
|
|
<SETG TANK-LOC 5>
|
|
<SETG PLANE-LOC 7>
|
|
<QUEUE I-TANK-ATTACK 2>
|
|
<TELL CR
|
|
"Suddenly, several blocks east of" T ,DOG ", a pair of " D ,TANK " turn a
|
|
corner onto the main street. They're heading straight for" T ,DOG ". Out
|
|
of the corner of your eye you notice a puny plane flying over the park. The
|
|
puny plane banks, turning towards the main street." CR>)
|
|
(<EQUAL? ,DOG-LOC 6> ;"Park"
|
|
<QUEUE I-ROCKET-ATTACK 2>
|
|
<SETG ROCKET-LOC 6>
|
|
<SETG TRUCK-LOC 7>
|
|
<TELL CR
|
|
"Suddenly out from under a clump of trees at the east end of the park, a
|
|
tiny truck with a rocket mounted on it rolls into view. (Apparently,
|
|
violating Tokyo's leash laws is not taken lightly.) A small radar dish
|
|
on the tiny truck spins furiously until it locks in on" T ,DOG " and
|
|
stops. A puff of smoke comes from the back of the rocket as it blasts
|
|
off toward the dog." CR>)>
|
|
<RTRUE>)
|
|
;(<VERB? EXAMINE>
|
|
<TELL
|
|
"The " D ,GREEN-BUTTON " is labeled \"Forward.\"">)>>
|
|
|
|
<GLOBAL HIT-POINTS 0>
|
|
|
|
<GLOBAL DOG-LOC 1> ;"1-first room of downtown Tokyo"
|
|
<GLOBAL TANK-LOC 33> ;"33-offstage"
|
|
<GLOBAL PLANE-LOC 33> ;"33-offstage" "7-east park"
|
|
|
|
<ROUTINE I-TANK-ATTACK ("AUX" HITS (TANK-IN-RANGE <>) (PLANE-IN-RANGE <>))
|
|
<COND (<AND <EQUAL? ,TANKS-LEFT 0>
|
|
<EQUAL? ,PLANES-LEFT 0>>
|
|
<DEQUEUE I-TANK-ATTACK>
|
|
<RFALSE>)>
|
|
<QUEUE I-TANK-ATTACK -1>
|
|
<SET HITS ,HIT-POINTS>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<CRLF>)>
|
|
<COND (<AND <EQUAL? ,DOG-LOC ,TANK-LOC>
|
|
<EQUAL? ,DOG-LOC ,PLANE-LOC>>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The " D ,DOG " continues to take fire from" T ,TANK " and" T ,PLANE ".">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS <+ ,PLANES-LEFT ,TANKS-LEFT>>>)
|
|
(T
|
|
;"Tanks" <COND (<EQUAL? ,TANK-LOC ,DOG-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The " D ,DOG " continues to take hits from" T ,TANK ".">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,TANKS-LEFT>>)
|
|
(<NOT <EQUAL? ,TANKS-LEFT 0>>
|
|
<SETG TANK-LOC <- ,TANK-LOC 1>>
|
|
<COND (<EQUAL? ,TANK-LOC ,DOG-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL "The tanks ">
|
|
<COND (<G? ,HIT-POINTS 0>
|
|
<TELL "continue">)
|
|
(T
|
|
<TELL "begin">)>
|
|
<TELL
|
|
" to fire as they roll to a stop at the foot of the mutant
|
|
Mexican hairless.">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,TANKS-LEFT>>)
|
|
(<EQUAL? <+ ,DOG-LOC 1> ,TANK-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The tanks, only a block away, begin firing as they move within range.">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,TANKS-LEFT>>)
|
|
(<NOT <EQUAL? ,TANK-LOC ,DOG-LOC>>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The tanks, a few blocks away, continue to advance toward the radiated
|
|
sewer rat.">)>)>)>
|
|
<COND (<NOT <EQUAL? ,TANKS-LEFT 0>>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL " ">)>)>
|
|
;"Planes" <COND (<EQUAL? ,PLANE-LOC ,DOG-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The " D ,DOG " continues to take fire from" T ,PLANE ".">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,PLANES-LEFT>>)
|
|
(<NOT <EQUAL? ,PLANES-LEFT 0>>
|
|
<SETG PLANE-LOC <- ,PLANE-LOC 1>>
|
|
<COND (<EQUAL? ,PLANE-LOC ,DOG-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The planes, spewing bullet-shaped death, reach the radioactive reptile
|
|
and begin circling around it.">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,PLANES-LEFT>>)
|
|
(<EQUAL? <+ ,DOG-LOC 1> ,PLANE-LOC>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The planes, only a block away, begin firing as they move within range.">)>
|
|
<SETG HIT-POINTS <+ ,HIT-POINTS ,PLANES-LEFT>>)
|
|
(<NOT <EQUAL? ,PLANE-LOC ,DOG-LOC>>
|
|
<COND (<EQUAL? ,PLANE-LOC 6>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"Over the park, a second puny plane joins the first one.">)>
|
|
<PUTP ,PLANE ,P?SDESC "puny planes">)
|
|
(<EQUAL? ,PLANE-LOC 5>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The puny planes swoop out of the park and down the street">)>
|
|
<COND (<EQUAL? ,DOG-LOC 4>
|
|
<COND (<AND
|
|
<EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL " firing at" T ,DOG>)>
|
|
<SETG HIT-POINTS
|
|
<+ ,HIT-POINTS ,PLANES-LEFT>>)>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL ".">)>)
|
|
(T
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
"The planes, a few blocks away, continue to fly toward the radiated sewer
|
|
rat.">)>)>)>)>)>
|
|
<COND (<G? ,HIT-POINTS .HITS>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<COND (<EQUAL? ,PLANE-LOC 30>
|
|
<TELL ;" " <PICK-ONE ,DOG-IN-PAIN>>)
|
|
(T
|
|
<TELL " " <PICK-ONE ,DOG-IN-PAIN>>)>)>
|
|
<COND (<G? ,HIT-POINTS 19>
|
|
;<G? ,HIT-POINTS 33>
|
|
<DEQUEUE I-TANK-ATTACK>
|
|
<SETG DOG-LOC 20> ;"dead in street west of park"
|
|
<SETG TANK-LOC 33> ;"off stage"
|
|
<SETG PLANE-LOC 33> ;"off stage"
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
" The " D ,DOG " starts to shake as if he has to go outside, then stumbles and
|
|
falls to the ground.~
|
|
~
|
|
*** The " D ,DOG " has died ***~
|
|
~
|
|
Tokyo is saved!" CR CR>
|
|
<TELL "The ">
|
|
<COND (<NOT <EQUAL? ,TANKS-LEFT 0>>
|
|
<TELL "tiny tank">
|
|
<COND (<EQUAL? ,TANKS-LEFT 2>
|
|
<TELL "s turn">)
|
|
(T
|
|
<TELL " turns">)>
|
|
<TELL" onto a side street and disappear">
|
|
<COND (<EQUAL? ,TANKS-LEFT 1>
|
|
<TELL "s">)>
|
|
<COND (<EQUAL? ,PLANES-LEFT 0>
|
|
<TELL ".">)
|
|
(T
|
|
<TELL " as the puny plane">
|
|
<COND (<EQUAL? ,PLANES-LEFT 2>
|
|
<TELL "s tip their">)
|
|
(T
|
|
<TELL " tips its">)>
|
|
<TELL" wings and head">
|
|
<COND (<EQUAL? ,PLANES-LEFT 1>
|
|
<TELL"s">)>
|
|
<TELL " for home.">)>)
|
|
(T
|
|
<TELL "puny plane">
|
|
<COND (<EQUAL? ,PLANES-LEFT 2>
|
|
<TELL "s tip their">)
|
|
(T
|
|
<TELL " tips its">)>
|
|
<TELL" wings and head">
|
|
<COND (<EQUAL? ,PLANES-LEFT 1>
|
|
<TELL"s">)>
|
|
<TELL " for home.">)>)>)
|
|
(<AND <G? ,HIT-POINTS 15>
|
|
<NOT <G? .HITS 15>>>
|
|
;<AND <G? ,HIT-POINTS 29>
|
|
<NOT <G? .HITS 29>>>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
" The repeated attacks weaken" T ,DOG " and it seems near death.">)>)
|
|
(<AND <G? ,HIT-POINTS 11>
|
|
<NOT <G? .HITS 11>>>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL
|
|
" The repeated attacks begin to take their toll on" T ,DOG ".">)>)>)>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<CRLF>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE I-ROCKET-ATTACK ()
|
|
<COND (<EQUAL? ,ROCKET-LOC 30>
|
|
<RFALSE>)>
|
|
<QUEUE I-ROCKET-ATTACK -1>
|
|
<SETG ROCKET-LIFE <- ,ROCKET-LIFE 1>>
|
|
<COND (<EQUAL? ,ROCKET-LIFE 0>
|
|
<COND (<AND <EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,GAME-ROOM>>
|
|
<TELL CR
|
|
"The rocket swoops down, striking" T ,DOG " in the chest. The " D ,DOG "
|
|
explodes and pieces of fur and scales, mixed with bits of wire and a
|
|
couple of servomotors, scatter throughout the area.~
|
|
~
|
|
*** The " D ,DOG " has died ***~
|
|
~
|
|
Tokyo is saved!" CR>)>
|
|
<SETG ROCKET-LOC 30>
|
|
<DEQUEUE I-ROCKET-ATTACK>
|
|
<COND (<EQUAL? ,DOG-LOC 6 7>
|
|
<SETG DOG-LOC 30>)
|
|
(T
|
|
<SETG DOG-LOC 40>)>);"dead east of park"
|
|
(T
|
|
<COND (<AND <EQUAL? ,ROCKET-LIFE 3>
|
|
<EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,HERE>>
|
|
<TELL CR
|
|
"The rocket speeds toward" T ,DOG " and begins circling as it nears." CR>)
|
|
(<AND <EQUAL? ,ROCKET-LIFE 2>
|
|
<EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,HERE>>
|
|
<TELL CR
|
|
"The rocket begins bobbing up and down, sniffing for just the right spot as
|
|
it circles" TR ,DOG>)
|
|
(<AND <EQUAL? ,ROCKET-LIFE 1>
|
|
<EQUAL? ,HERE ,GAME-ROOM>
|
|
<LIT? ,HERE>>
|
|
<TELL CR
|
|
"Suddenly the rocket makes a wide turn out in front of" T ,DOG ". It seems
|
|
to have found the spot it was looking for. The rocket's speed increases as it
|
|
heads right for the dog's heart!" CR>)>)>>
|
|
|
|
<GLOBAL DOG-IN-PAIN
|
|
<LTABLE 0
|
|
"The Atomic Chihuahua's bulging eyes wince with pain as several rounds fire
|
|
into its chest."
|
|
"As the gunfire strikes the Atomic Chihuahua, its heavy reptilian tail
|
|
pounds the street's pavement angrily."
|
|
"As bullets pierce the dazed dog's scales he pauses momentarily, remembering
|
|
his younger days with Xavier Cugat."
|
|
"The Atomic Chihuahua takes two rounds in the throat and gasps. (Two rounds to
|
|
you and me, but that's 14 rounds to little scale-face!)">>
|
|
|
|
<OBJECT BLUE-BUTTON ;"clutch"
|
|
(IN GAME-ROOM)
|
|
(DESC "blue button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE BLUE)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION BLUE-BUTTON-F)>
|
|
|
|
<ROUTINE BLUE-BUTTON-F () ;"clutch"
|
|
<COND (<VERB? PUSH>
|
|
<COND (<DOG-DEAD?>
|
|
<RTRUE>)>
|
|
<TELL "The " D ,DOG>
|
|
<COND (<FSET? ,DOG ,CLUTCHING-BIT>
|
|
<TELL
|
|
" clutches" T ,RING " more tightly." CR>)
|
|
(<EQUAL? ,DOG-LOC 7>
|
|
<TELL
|
|
" clutches" T ,RING " in its front claws." CR>
|
|
<FCLEAR ,RING ,ON-MONUMENT-BIT>
|
|
<FSET ,DOG ,CLUTCHING-BIT>)
|
|
(T
|
|
<TELL
|
|
" grasps at thin air with its front claws." CR>)>)>>
|
|
|
|
<OBJECT BLACK-BUTTON ;"stomp"
|
|
(IN GAME-ROOM)
|
|
(DESC "black button")
|
|
(SYNONYM BUTTON)
|
|
(ADJECTIVE BLACK)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION BLACK-BUTTON-F)>
|
|
|
|
<GLOBAL TRUCK-LOC 33>
|
|
<GLOBAL ROCKET-LIFE 4>
|
|
|
|
<ROUTINE BLACK-BUTTON-F () ;"stomp"
|
|
<COND (<VERB? PUSH>
|
|
<COND (<DOG-DEAD?>
|
|
<RTRUE>)>
|
|
<COND (<EQUAL? ,DOG-LOC ,TANK-LOC>
|
|
<COND (<AND <EQUAL? ,TANKS-LEFT 2>
|
|
<PROB 50>>
|
|
<PUTP ,TANK ,P?SDESC "tiny tank">
|
|
<TELL
|
|
"Just as" T ,DOG " is about to raise its hind leg, one of the tiny tanks
|
|
drives up onto its toenail. As" T ,DOG " raises its hind leg, the tiny
|
|
tank is lifted off the ground and hurled through the air into the middle
|
|
of a nearby apartment building, demolishing a large portion of it. Hundreds
|
|
of house plants fall to their deaths. The " D ,DOG " stomps the street's
|
|
pavement with its clawed foot.">
|
|
<SETG TANKS-LEFT 1>)
|
|
(T
|
|
<TELL
|
|
"The " D ,DOG " lifts its hind leg and, just as you thought this game was
|
|
going to become even more base, stomps its clawed foot down on ">
|
|
<COND (<EQUAL? ,TANKS-LEFT 2>
|
|
<TELL "one of the tiny tanks">
|
|
<PUTP ,TANK ,P?SDESC "tiny tank">
|
|
<SETG TANKS-LEFT 1>)
|
|
(T
|
|
<TELL "the other tiny tank">
|
|
<MOVE ,TANK ,P-NMERGE> ;"temp fix"
|
|
<SETG TANKS-LEFT 0>
|
|
<SETG TANK-LOC 30>)>
|
|
<TELL ", crushing it.">)>)
|
|
(<AND <EQUAL? ,TRUCK-LOC 7> ;"East Park"
|
|
<EQUAL? ,DOG-LOC 7>>
|
|
<TELL
|
|
"The Chihuahua raises his hind leg and soundly stomps the tiny truck,
|
|
smashing it to bits.">
|
|
<COND (<NOT <EQUAL? ,ROCKET-LIFE 0>>
|
|
<TELL
|
|
" The rocket heads straight for the Atomic Chihuahua, then begins to
|
|
swerve and dive erratically. It sails past the Atomic Chihuahua,
|
|
colliding with Tokyo's tallest building, the Ginsu Building, corporate
|
|
headquarters of the Ginsu Knife Company. Just as your mind pauses to
|
|
consider the possibility of a Ginsu knife standing up to this kind of
|
|
punishment, the rocket explodes and the entire building collapses. Tokyo
|
|
isn't saved but millions of late-night TV viewers are.">)>
|
|
;<CRLF>
|
|
<SETG TRUCK-LOC 30>
|
|
<SETG ROCKET-LOC 30>
|
|
<SETG ROCKET-LIFE 0>
|
|
<DEQUEUE ,I-ROCKET-ATTACK>)
|
|
(<EQUAL? ,DOG-LOC 6 7>
|
|
<TELL
|
|
"The " D ,DOG " lifts its hind leg (no, not that!) and stomps its scaly
|
|
claw down on the grass, creating a children's wading pool.">)
|
|
(T
|
|
<TELL
|
|
"The " D ,DOG " lifts its hind leg and stomps its clawed foot down on the
|
|
street's pavement.">)>
|
|
<CRLF>)>>
|
|
|
|
<ROOM SHORT-HALL
|
|
(IN ROOMS)
|
|
(DESC "Short Hall")
|
|
(LDESC
|
|
"This is a short hall stretching east and west. Doorways lead north to the
|
|
ladies' room and south to the men's room.")
|
|
(SOUTH TO MENS-ROOM)
|
|
(NORTH TO LADIES-ROOM)
|
|
(EAST TO SCREENING-ROOM)
|
|
(WEST TO GAME-ROOM)
|
|
(GLOBAL WINDOW)
|
|
(CAPACITY 20) ;"Tell--sun coming up"
|
|
(FLAGS RLANDBIT)>
|
|
|
|
<ROOM MENS-ROOM
|
|
(IN ROOMS)
|
|
(DESC "Men's Room")
|
|
(NORTH TO SHORT-HALL)
|
|
(FLAGS RLANDBIT)
|
|
(GLOBAL TOILET WATER)
|
|
(CAPACITY 10) ;"don't light room when sun comes up"
|
|
(ACTION MENS-ROOM-F)>
|
|
|
|
<ROUTINE MENS-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<DESCRIBE-BATHROOM "men's">)>>
|
|
|
|
<ROUTINE DESCRIBE-BATHROOM (GENDER)
|
|
<TELL
|
|
"This is an ordinary restroom which looks like a "
|
|
.GENDER " room in a theatre.">>
|
|
|
|
<ROOM LADIES-ROOM
|
|
(IN ROOMS)
|
|
(DESC "Ladies' Room")
|
|
(SOUTH TO SHORT-HALL)
|
|
(FLAGS RLANDBIT)
|
|
(GLOBAL TOILET WATER)
|
|
(CAPACITY 10) ;"don't light room when sun comes up"
|
|
(ACTION LADIES-ROOM-F)>
|
|
|
|
<ROUTINE LADIES-ROOM-F (RARG)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<DESCRIBE-BATHROOM "ladies'">)>>
|
|
|
|
<SETG X-N 1> ;"these are temporary until compiler fix."
|
|
<SETG X-E 2>
|
|
<SETG X-W 4>
|
|
<SETG X-S 8>
|
|
<SETG X-H 16>
|
|
|
|
<CONSTANT X-N 1>
|
|
<CONSTANT X-E 2>
|
|
<CONSTANT X-W 4>
|
|
<CONSTANT X-S 8>
|
|
<CONSTANT X-H 16>
|
|
|
|
<ROOM ENTRANCE-TO-MAZE
|
|
(IN ROOMS)
|
|
(DESC "Entrance to Hedge Maze")
|
|
(LDESC
|
|
"This is the entrance to the hedge maze. Aunt Hildegarde told you never
|
|
to go into the maze without the map, and of course you would go in
|
|
anyway and she would have to come in and find you.~
|
|
~
|
|
Guests were forever getting lost in the maze at parties. Sometimes you
|
|
wished Cousin Herman would go in and never come out. But you always had
|
|
the feeling he was thinking the same about you, only more seriously.
|
|
Tall hedges, thick and green, stretch along paths leading to the east and
|
|
west and a grass path north enters the maze. A stone walkway leads south.")
|
|
(NORTH PER ENTER-HM)
|
|
(EAST TO NORTHEAST-JUNCTION)
|
|
(WEST TO NORTHWEST-JUNCTION)
|
|
(SOUTH TO NORTH-GARDEN)
|
|
(FLAGS RLANDBIT OUTDOORSBIT ONBIT)
|
|
(GLOBAL HEDGE-MAZE-OBJ)>
|
|
|
|
<ROUTINE ENTER-HM ()
|
|
<FCLEAR ,HEDGE-MAZE ,TOUCHBIT>
|
|
<SETG HM-ROOM 439>
|
|
<COND (<AND <NOT <ULTIMATELY-IN? ,VERTICAL-MAP>>
|
|
<NOT <ULTIMATELY-IN? ,HORIZONTAL-MAP>>>
|
|
<TELL
|
|
"You feel uneasy going into the hedge maze knowing Aunt Hildegarde isn't here
|
|
to help you find your way out." CR CR>)>
|
|
<QUEUE I-HEDGE-FOOTSTEPS <+ 30 <RANDOM 20>>>
|
|
,HEDGE-MAZE>
|
|
|
|
<ROUTINE I-HEDGE-FOOTSTEPS ()
|
|
<COND (<EQUAL? ,HERE ,HEDGE-MAZE>
|
|
<QUEUE I-HEDGE-FOOTSTEPS <+ 30 <RANDOM 20>>>
|
|
<TELL CR
|
|
"You hear footsteps on the other side of the hedge." CR>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<OBJECT HEDGE-MAZE-OBJ
|
|
(IN LOCAL-GLOBALS)
|
|
(DESC "hedge maze")
|
|
(SYNONYM MAZE LABYRINTYH)
|
|
(ADJECTIVE HEDGE)
|
|
(FLAGS NDESCBIT)
|
|
(ACTION HEDGE-MAZE-OBJ-F)>
|
|
|
|
<ROUTINE HEDGE-MAZE-OBJ-F ()
|
|
<COND (<VERB? ENTER EXIT LEAVE WALK-TO DISEMBARK>
|
|
<V-WALK-AROUND>)>>
|
|
|
|
<ROOM HEDGE-MAZE
|
|
(IN ROOMS)
|
|
(DESC "Hedge Maze")
|
|
(FLAGS RLANDBIT CAVEBIT ONBIT)
|
|
(CAPACITY 1)
|
|
(GLOBAL HEDGE-MAZE-OBJ)
|
|
(ACTION HEDGE-MAZE-F)>
|
|
|
|
<GLOBAL HM-ROOM 439>
|
|
<GLOBAL HM-BITS 15>
|
|
|
|
<ROUTINE HEDGE-MAZE-F (RARG "AUX" (PATHS 0) OLD STEPS DIR)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<TELL "You are in a hedge maze of astonishing complexity. ">
|
|
|
|
;"find out how many paths lead out of current room"
|
|
<COND (<BTST ,HM-BITS ,X-N>
|
|
<SET PATHS <+ .PATHS 1>>)>
|
|
<COND (<BTST ,HM-BITS ,X-E>
|
|
<SET PATHS <+ .PATHS 1>>)>
|
|
<COND (<BTST ,HM-BITS ,X-W>
|
|
<SET PATHS <+ .PATHS 1>>)>
|
|
<COND (<BTST ,HM-BITS ,X-S>
|
|
<SET PATHS <+ .PATHS 1>>)>
|
|
<COND (<G? .PATHS 1>
|
|
<TELL "Paths lead ">)
|
|
(T
|
|
<TELL "A path leads ">)>
|
|
;"tell direction path(s) lead in"
|
|
<COND (<BTST ,HM-BITS ,X-N>
|
|
<TELL "north">
|
|
<SET PATHS <PUNCTUATION .PATHS>>)>
|
|
<COND (<BTST ,HM-BITS ,X-S>
|
|
<TELL "south">
|
|
<SET PATHS <PUNCTUATION .PATHS>>)>
|
|
<COND (<BTST ,HM-BITS ,X-E>
|
|
<TELL "east">
|
|
<SET PATHS <PUNCTUATION .PATHS>>)>
|
|
<COND (<BTST ,HM-BITS ,X-W>
|
|
<TELL "west">
|
|
<SET PATHS <PUNCTUATION .PATHS>>)>
|
|
<COND (<BTST ,HM-BITS ,X-H> ;"x-h checks for hole"
|
|
<TELL
|
|
CR CR "There is a hole in the ground here from your previous excavations.">
|
|
<MOVE ,MAZE-HOLE ,HERE>)>
|
|
<RTRUE>)
|
|
(<EQUAL? .RARG ,M-ENTER>
|
|
<SETG HM-BITS <GETB ,HM-TABLE ,HM-ROOM>>
|
|
<OBJECTS-TO-ROOM ,HM-ROOM>)
|
|
(<EQUAL? .RARG ,M-BEG>
|
|
<COND (<VERB? WALK>
|
|
<SET OLD ,HM-ROOM>
|
|
<OBJECTS-TO-TABLE .OLD>
|
|
<COND (<AND <EQUAL? ,P-WALK-DIR ,P?NORTH>
|
|
<BTST ,HM-BITS ,X-N>>
|
|
<SET DIR "north">
|
|
<SET STEPS <HEDGE-WALK ,X-N>>)
|
|
(<AND <EQUAL? ,P-WALK-DIR ,P?SOUTH>
|
|
<BTST ,HM-BITS ,X-S>>
|
|
<COND (<EQUAL? ,HM-ROOM 439>
|
|
<GOTO ,ENTRANCE-TO-MAZE>
|
|
<RTRUE>)
|
|
(<EQUAL? ,HM-ROOM 388>
|
|
<TELL
|
|
"You make your way 10 feet south along the path." CR CR>
|
|
<GOTO ,HEART-OF-MAZE>
|
|
<RTRUE>)>
|
|
<SET DIR "south">
|
|
<SET STEPS <HEDGE-WALK ,X-S>>)
|
|
(<AND <EQUAL? ,P-WALK-DIR ,P?EAST>
|
|
<BTST ,HM-BITS ,X-E>>
|
|
<SET DIR "east">
|
|
<SET STEPS <HEDGE-WALK ,X-E>>)
|
|
(<AND <EQUAL? ,P-WALK-DIR ,P?WEST>
|
|
<BTST ,HM-BITS ,X-W>>
|
|
<SET DIR "west">
|
|
<SET STEPS <HEDGE-WALK ,X-W>>)
|
|
(<EQUAL? ,P-WALK-DIR ,P?UP>
|
|
<TELL "Please don't climb the hedges." CR>
|
|
<RFATAL>)
|
|
(<EQUAL? ,P-WALK-DIR ,P?DOWN>
|
|
<TELL "You burrow furiously to no avail." CR>
|
|
<RFATAL>)
|
|
(ELSE
|
|
<OBJECTS-TO-ROOM .OLD>
|
|
<TELL <PICK-ONE ,HEDGE-CRASH> "." CR>
|
|
<RFATAL>)>
|
|
<FCLEAR ,HEDGE-MAZE ,TOUCHBIT>
|
|
<TELL
|
|
"You make your way " N <* 10 .STEPS> " feet " .DIR " along the path." CR CR>
|
|
<GOTO ,HEDGE-MAZE>)>)>>
|
|
|
|
<ROOM HEART-OF-MAZE
|
|
(IN ROOMS)
|
|
(DESC "Hedge Maze")
|
|
(LDESC
|
|
"You are in a hedge maze of astonishing complexity. A path leads north.")
|
|
(FLAGS RLANDBIT CAVEBIT ONBIT)
|
|
(CAPACITY 1)
|
|
(GLOBAL HEDGE-MAZE-OBJ)
|
|
(NORTH PER OUT-OF-HEART-OF-MAZE)
|
|
(SOUTH "You walk face first into the hedge.")
|
|
(WEST "You walk face first into the hedge.")
|
|
(EAST "You walk face first into the hedge.")
|
|
(NE "You walk face first into the hedge.")
|
|
(NW "You walk face first into the hedge.")
|
|
(SE "You walk face first into the hedge.")
|
|
(SW "You walk face first into the hedge.")
|
|
(DOWN "You burrow furiously to no avail.")>
|
|
|
|
<ROUTINE OUT-OF-HEART-OF-MAZE ()
|
|
<FCLEAR ,HEDGE-MAZE ,TOUCHBIT>
|
|
<TELL
|
|
"You make your way 10 feet north along the path." CR CR>
|
|
,HEDGE-MAZE>
|
|
|
|
<OBJECT HEART-OF-MAZE-HOLE
|
|
(DESC "hole")
|
|
(SYNONYM HOLE)
|
|
(FLAGS CONTBIT OPENBIT SEARCHBIT)
|
|
(CAPACITY 11)
|
|
(ACTION HEART-OF-MAZE-HOLE-F)>
|
|
|
|
<ROUTINE HEART-OF-MAZE-HOLE-F ()
|
|
<COND (<VERB? OPEN CLOSE>
|
|
<CANT-OPEN-CLOSE>)>>
|
|
|
|
<OBJECT RUBBER-STAMP
|
|
(IN HEART-OF-MAZE-HOLE)
|
|
(DESC "Buck Palace's large rubber stamp")
|
|
(SYNONYM STAMP)
|
|
(ADJECTIVE RUBBER POSTAL)
|
|
(SIZE 10)
|
|
(VALUE 10)
|
|
(FLAGS TAKEBIT NARTICLEBIT)
|
|
(ACTION RUBBER-STAMP-F)>
|
|
|
|
<OBJECT SHOVEL
|
|
(IN WEST-GARDEN)
|
|
(DESC "shovel")
|
|
(FDESC "A small shovel is lying amongst the flower beds.")
|
|
(SYNONYM SHOVEL SPADE)
|
|
(FLAGS TAKEBIT)
|
|
(SIZE 20)>
|
|
|
|
<ROUTINE PUNCTUATION (PATHS)
|
|
<COND (<EQUAL? .PATHS 4>
|
|
<TELL ", ">)
|
|
(<EQUAL? .PATHS 3>
|
|
<TELL ", ">)
|
|
(<EQUAL? .PATHS 2>
|
|
<TELL " and ">)
|
|
(T
|
|
<TELL ".">)>
|
|
<SET PATHS <- .PATHS 1>>
|
|
<RETURN .PATHS>>
|
|
|
|
<ROUTINE HEDGE-WALK (BIT "AUX" (STEPS 0) MBITS)
|
|
<SET MBITS ,HM-BITS>
|
|
<REPEAT ()
|
|
<COND (<AND <EQUAL? .BIT ,X-N> <BTST .MBITS ,X-N>>
|
|
<SETG HM-ROOM <- ,HM-ROOM 1>>)
|
|
(<AND <EQUAL? .BIT ,X-S> <BTST .MBITS ,X-S>>
|
|
<SETG HM-ROOM <+ ,HM-ROOM 1>>)
|
|
(<AND <EQUAL? .BIT ,X-E> <BTST .MBITS ,X-E>>
|
|
<SETG HM-ROOM <+ ,HM-ROOM 20>>)
|
|
(<AND <EQUAL? .BIT ,X-W> <BTST .MBITS ,X-W>>
|
|
<SETG HM-ROOM <- ,HM-ROOM 20>>)
|
|
(ELSE
|
|
<RETURN .STEPS>)>
|
|
<SET STEPS <+ .STEPS 1>>
|
|
<COND (<NOT <ZERO? <GETB ,HM-TABLE ,HM-ROOM>>>
|
|
<RETURN .STEPS>)
|
|
(ELSE
|
|
<SET MBITS %<+ ,X-N ,X-E ,X-W ,X-S>>)>>>
|
|
|
|
<ROUTINE OBJECTS-TO-TABLE (SLOC "AUX" TBL (CNT 0) (F <FIRST? ,HEDGE-MAZE>) N)
|
|
<REMOVE ,MAZE-HOLE>
|
|
<SET TBL ,HEDGE-OBJECTS-TABLE>
|
|
<REPEAT ()
|
|
<COND (.F <SET N <NEXT? .F>>)
|
|
(ELSE <RETURN>)>
|
|
<COND (<EQUAL? .F ,WINNER>)
|
|
(<FSET? .F ,TAKEBIT>
|
|
<REPEAT ()
|
|
<COND (<==? <GET .TBL .CNT> 0>
|
|
<PUT .TBL .CNT .SLOC>
|
|
<PUT .TBL <+ .CNT 1> .F>
|
|
<SET CNT <+ .CNT 2>>
|
|
<REMOVE .F>
|
|
<RETURN>)
|
|
(ELSE
|
|
<SET CNT <+ .CNT 2>>)>>)>
|
|
<SET F .N>>>
|
|
|
|
<ROUTINE OBJECTS-TO-ROOM (SLOC "AUX" TBL (CNT 0))
|
|
<SET TBL ,HEDGE-OBJECTS-TABLE>
|
|
<REPEAT ()
|
|
<COND (<NOT <L? .CNT ,HEDGE-OBJECT-TABLE-LENGTH>>
|
|
<RETURN>)
|
|
(<EQUAL? <GET .TBL .CNT> .SLOC>
|
|
<PUT .TBL .CNT 0>
|
|
<MOVE <GET .TBL <+ .CNT 1>> ,HEDGE-MAZE>)>
|
|
<SET CNT <+ .CNT 2>>>>
|
|
|
|
<CONSTANT HEDGE-OBJECT-TABLE-LENGTH 70> ;"currently ? takeable objects"
|
|
|
|
<GLOBAL HEDGE-OBJECTS-TABLE ;"length should be 2*number of takeable objects"
|
|
<TABLE 0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0
|
|
0 0 0 0 0 0 0 0 0 0>>
|
|
|
|
<GLOBAL HM-TABLE
|
|
<TABLE
|
|
;"0" <BYTE 0>
|
|
;"1" <BYTE 0>
|
|
;"2" <BYTE 0>
|
|
;"3" <BYTE 0>
|
|
;"4" <BYTE 0>
|
|
;"5" <BYTE 0>
|
|
;"6" <BYTE 0>
|
|
;"7" <BYTE 0>
|
|
;"8" <BYTE 0>
|
|
;"9" <BYTE 0>
|
|
;"10" <BYTE 0>
|
|
;"11" <BYTE 0>
|
|
;"12" <BYTE 0>
|
|
;"13" <BYTE 0>
|
|
;"14" <BYTE 0>
|
|
;"15" <BYTE 0>
|
|
;"16" <BYTE 0>
|
|
;"17" <BYTE 0>
|
|
;"18" <BYTE 0>
|
|
;"19" <BYTE 0>
|
|
|
|
;"20" <BYTE 0>
|
|
;"21" <BYTE ,X-S ,X-E>
|
|
;"22" <BYTE 0>
|
|
;"23" <BYTE 0>
|
|
;"24" <BYTE ,X-N ,X-E>
|
|
;"25" <BYTE ,X-S ,X-E>
|
|
;"26" <BYTE ,X-N ,X-E>
|
|
;"27" <BYTE ,X-E ,X-S>
|
|
;"28" <BYTE 0>
|
|
;"29" <BYTE 0>
|
|
;"30" <BYTE 0>
|
|
;"31" <BYTE ,X-N>
|
|
;"32" <BYTE ,X-S ,X-E>
|
|
;"33" <BYTE 0>
|
|
;"34" <BYTE 0>
|
|
;"35" <BYTE 0>
|
|
;"36" <BYTE 0>
|
|
;"37" <BYTE 0>
|
|
;"38" <BYTE 0>
|
|
;"39" <BYTE ,X-N ,X-E>
|
|
|
|
;"40" <BYTE 0>
|
|
;"41" <BYTE 0>
|
|
;"42" <BYTE 0>
|
|
;"43" <BYTE 0>
|
|
;"44" <BYTE 0>
|
|
;"45" <BYTE 0>
|
|
;"46" <BYTE ,X-W>
|
|
;"47" <BYTE 0>
|
|
;"48" <BYTE 0>
|
|
;"49" <BYTE 0>
|
|
;"50" <BYTE 0>
|
|
;"51" <BYTE 0>
|
|
;"52" <BYTE 0>
|
|
;"53" <BYTE 0>
|
|
;"54" <BYTE 0>
|
|
;"55" <BYTE 0>
|
|
;"56" <BYTE 0>
|
|
;"57" <BYTE 0>
|
|
;"58" <BYTE 0>
|
|
;"59" <BYTE 0>
|
|
|
|
;"60" <BYTE 0>
|
|
;"61" <BYTE ,X-W>
|
|
;"62" <BYTE ,X-S ,X-E>
|
|
;"63" <BYTE ,X-N ,X-E ,X-S>
|
|
;"64" <BYTE ,X-W ,X-E ,X-N>
|
|
;"65" <BYTE 0>
|
|
;"66" <BYTE 0>
|
|
;"67" <BYTE 0>
|
|
;"68" <BYTE ,X-E ,X-S>
|
|
;"69" <BYTE 0>
|
|
;"70" <BYTE 0>
|
|
;"71" <BYTE 0>
|
|
;"72" <BYTE ,X-W ,X-E ,X-N>
|
|
;"73" <BYTE ,X-S ,X-E>
|
|
;"74" <BYTE 0>
|
|
;"75" <BYTE 0>
|
|
;"76" <BYTE ,X-N ,X-E>
|
|
;"77" <BYTE ,X-S ,X-E>
|
|
;"78" <BYTE 0>
|
|
;"79" <BYTE ,X-W ,X-N>
|
|
|
|
;"80" <BYTE 0>
|
|
;"81" <BYTE 0>
|
|
;"82" <BYTE 0>
|
|
;"83" <BYTE 0>
|
|
;"84" <BYTE 0>
|
|
;"85" <BYTE ,X-W ,X-S ,X-E>
|
|
;"86" <BYTE 0>
|
|
;"87" <BYTE ,X-N ,X-W>
|
|
;"88" <BYTE 0>
|
|
;"89" <BYTE 0>
|
|
;"90" <BYTE 0>
|
|
;"91" <BYTE 0>
|
|
;"92" <BYTE 0>
|
|
;"93" <BYTE 0>
|
|
;"94" <BYTE 0>
|
|
;"95" <BYTE 0>
|
|
;"96" <BYTE 0>
|
|
;"97" <BYTE 0>
|
|
;"98" <BYTE 0>
|
|
;"99" <BYTE 0>
|
|
|
|
;"100" <BYTE 0>
|
|
;"101" <BYTE ,X-S>
|
|
;"102" <BYTE ,X-W ,X-N>
|
|
;"103" <BYTE 0>
|
|
;"104" <BYTE 0>
|
|
;"105" <BYTE 0>
|
|
;"106" <BYTE 0>
|
|
;"107" <BYTE 0>
|
|
;"108" <BYTE 0>
|
|
;"109" <BYTE ,X-S ,X-E>
|
|
;"110" <BYTE 0>
|
|
;"111" <BYTE 0>
|
|
;"112" <BYTE ,X-N ,X-W>
|
|
;"113" <BYTE ,X-W ,X-S>
|
|
;"114" <BYTE 0>
|
|
;"115" <BYTE ,X-N ,X-E>
|
|
;"116" <BYTE 0>
|
|
;"117" <BYTE ,X-W ,X-S>
|
|
;"118" <BYTE 0>
|
|
;"119" <BYTE ,X-N ,X-E>
|
|
|
|
;"120" <BYTE 0>
|
|
;"121" <BYTE 0>
|
|
;"122" <BYTE 0>
|
|
;"123" <BYTE 0>
|
|
;"124" <BYTE 0>
|
|
;"125" <BYTE ,X-W ,X-E ,X-S>
|
|
;"126" <BYTE 0>
|
|
;"127" <BYTE 0>
|
|
;"128" <BYTE ,X-N ,X-W>
|
|
;"129" <BYTE 0>
|
|
;"130" <BYTE 0>
|
|
;"131" <BYTE 0>
|
|
;"132" <BYTE 0>
|
|
;"133" <BYTE 0>
|
|
;"134" <BYTE 0>
|
|
;"135" <BYTE 0>
|
|
;"136" <BYTE 0>
|
|
;"137" <BYTE 0>
|
|
;"138" <BYTE 0>
|
|
;"139" <BYTE 0>
|
|
|
|
;"140" <BYTE 0>
|
|
;"141" <BYTE ,X-S>
|
|
;"142" <BYTE ,X-E ,X-N>
|
|
;"143" <BYTE ,X-W ,X-S>
|
|
;"144" <BYTE ,X-W ,X-S ,X-N>
|
|
;"145" <BYTE ,X-W ,X-E ,X-N>
|
|
;"146" <BYTE 0>
|
|
;"147" <BYTE 0>
|
|
;"148" <BYTE 0>
|
|
;"149" <BYTE 0>
|
|
;"150" <BYTE ,X-S ,X-E>
|
|
;"151" <BYTE 0>
|
|
;"152" <BYTE 0>
|
|
;"153" <BYTE 0>
|
|
;"154" <BYTE ,X-N ,X-E>
|
|
;"155" <BYTE 0>
|
|
;"156" <BYTE ,X-W ,X-S>
|
|
;"157" <BYTE 0>
|
|
;"158" <BYTE ,X-N ,X-E>
|
|
;"159" <BYTE 0>
|
|
|
|
;"160" <BYTE 0>
|
|
;"161" <BYTE 0>
|
|
;"162" <BYTE 0>
|
|
;"163" <BYTE 0>
|
|
;"164" <BYTE 0>
|
|
;"165" <BYTE 0>
|
|
;"166" <BYTE ,X-S>
|
|
;"167" <BYTE 0>
|
|
;"168" <BYTE 0>
|
|
;"169" <BYTE ,X-N ,X-W>
|
|
;"170" <BYTE 0>
|
|
;"171" <BYTE 0>
|
|
;"172" <BYTE 0>
|
|
;"173" <BYTE 0>
|
|
;"174" <BYTE 0>
|
|
;"175" <BYTE 0>
|
|
;"176" <BYTE 0>
|
|
;"177" <BYTE 0>
|
|
;"178" <BYTE 0>
|
|
;"179" <BYTE 0>
|
|
|
|
;"180" <BYTE 0>
|
|
;"181" <BYTE ,X-E>
|
|
;"182" <BYTE ,X-W ,X-E ,X-S>
|
|
;"183" <BYTE 0>
|
|
;"184" <BYTE 0>
|
|
;"185" <BYTE ,X-W ,X-N>
|
|
;"186" <BYTE 0>
|
|
;"187" <BYTE 0>
|
|
;"188" <BYTE 0>
|
|
;"189" <BYTE 0>
|
|
;"190" <BYTE ,X-W ,X-E ,X-S>
|
|
;"191" <BYTE 0>
|
|
;"192" <BYTE 0>
|
|
;"193" <BYTE ,X-N>
|
|
;"194" <BYTE ,X-W ,X-S ,X-E>
|
|
;"195" <BYTE ,X-W ,X-N ,X-E>
|
|
;"196" <BYTE ,X-S ,X-E>
|
|
;"197" <BYTE 0>
|
|
;"198" <BYTE ,X-W ,X-N>
|
|
;"199" <BYTE 0>
|
|
|
|
;"200" <BYTE 0>
|
|
;"201" <BYTE 0>
|
|
;"202" <BYTE 0>
|
|
;"203" <BYTE 0>
|
|
;"204" <BYTE 0>
|
|
;"205" <BYTE 0>
|
|
;"206" <BYTE ,X-S>
|
|
;"207" <BYTE 0>
|
|
;"208" <BYTE 0>
|
|
;"209" <BYTE ,X-N ,X-E>
|
|
;"210" <BYTE 0>
|
|
;"211" <BYTE 0>
|
|
;"212" <BYTE 0>
|
|
;"213" <BYTE 0>
|
|
;"214" <BYTE 0>
|
|
;"215" <BYTE 0>
|
|
;"216" <BYTE 0>
|
|
;"217" <BYTE 0>
|
|
;"218" <BYTE 0>
|
|
;"219" <BYTE 0>
|
|
|
|
;"220" <BYTE 0>
|
|
;"221" <BYTE 0>
|
|
;"222" <BYTE ,X-W ,X-S ,X-E>
|
|
;"223" <BYTE 0>
|
|
;"224" <BYTE 0>
|
|
;"225" <BYTE ,X-N ,X-E>
|
|
;"226" <BYTE 0>
|
|
;"227" <BYTE 0>
|
|
;"228" <BYTE 0>
|
|
;"229" <BYTE 0>
|
|
;"230" <BYTE ,X-W ,X-S>
|
|
;"231" <BYTE 0>
|
|
;"232" <BYTE 0>
|
|
;"233" <BYTE 0>
|
|
;"234" <BYTE ,X-W ,X-N>
|
|
;"235" <BYTE 0>
|
|
;"236" <BYTE 0>
|
|
;"237" <BYTE ,X-S ,X-E>
|
|
;"238" <BYTE 0>
|
|
;"239" <BYTE ,X-W ,X-N>
|
|
|
|
;"240" <BYTE 0>
|
|
;"241" <BYTE 0>
|
|
;"242" <BYTE 0>
|
|
;"243" <BYTE 0>
|
|
;"244" <BYTE 0>
|
|
;"245" <BYTE ,X-W ,X-S ,X-E>
|
|
;"246" <BYTE 0>
|
|
;"247" <BYTE 0>
|
|
;"248" <BYTE ,X-N ,X-E>
|
|
;"249" <BYTE 0>
|
|
;"250" <BYTE 0>
|
|
;"251" <BYTE 0>
|
|
;"252" <BYTE 0>
|
|
;"253" <BYTE 0>
|
|
;"254" <BYTE 0>
|
|
;"255" <BYTE 0>
|
|
;"256" <BYTE 0>
|
|
;"257" <BYTE 0>
|
|
;"258" <BYTE 0>
|
|
;"259" <BYTE 0>
|
|
|
|
;"260" <BYTE 0>
|
|
;"261" <BYTE ,X-W ,X-S>
|
|
;"262" <BYTE ,X-N ,X-S ,X-W>
|
|
;"263" <BYTE 0>
|
|
;"264" <BYTE ,X-N ,X-E>
|
|
;"265" <BYTE 0>
|
|
;"266" <BYTE 0>
|
|
;"267" <BYTE 0>
|
|
;"268" <BYTE 0>
|
|
;"269" <BYTE ,X-W ,X-S>
|
|
;"270" <BYTE 0>
|
|
;"271" <BYTE 0>
|
|
;"272" <BYTE ,X-N ,X-E>
|
|
;"273" <BYTE ,X-E ,X-S>
|
|
;"274" <BYTE 0>
|
|
;"275" <BYTE ,X-N ,X-W>
|
|
;"276" <BYTE 0>
|
|
;"277" <BYTE ,X-W ,X-S>
|
|
;"278" <BYTE 0>
|
|
;"279" <BYTE ,X-N ,X-E>
|
|
|
|
;"280" <BYTE 0>
|
|
;"281" <BYTE 0>
|
|
;"282" <BYTE 0>
|
|
;"283" <BYTE 0>
|
|
;"284" <BYTE 0>
|
|
;"285" <BYTE 0>
|
|
;"286" <BYTE ,X-E ,X-S>
|
|
;"287" <BYTE ,X-N ,X-E>
|
|
;"288" <BYTE 0>
|
|
;"289" <BYTE 0>
|
|
;"290" <BYTE 0>
|
|
;"291" <BYTE 0>
|
|
;"292" <BYTE 0>
|
|
;"293" <BYTE 0>
|
|
;"294" <BYTE 0>
|
|
;"295" <BYTE 0>
|
|
;"296" <BYTE 0>
|
|
;"297" <BYTE 0>
|
|
;"298" <BYTE 0>
|
|
;"299" <BYTE 0>
|
|
|
|
;"300" <BYTE 0>
|
|
;"301" <BYTE ,X-E ,X-S>
|
|
;"302" <BYTE 0>
|
|
;"303" <BYTE 0>
|
|
;"304" <BYTE ,X-W ,X-N ,X-E>
|
|
;"305" <BYTE 0>
|
|
;"306" <BYTE 0>
|
|
;"307" <BYTE ,X-W>
|
|
;"308" <BYTE ,X-W ,X-S>
|
|
;"309" <BYTE 0>
|
|
;"310" <BYTE 0>
|
|
;"311" <BYTE ,X-N>
|
|
;"312" <BYTE 0>
|
|
;"313" <BYTE ,X-W ,X-S>
|
|
;"314" <BYTE 0>
|
|
;"315" <BYTE ,X-N ,X-E>
|
|
;"316" <BYTE ,X-W ,X-S>
|
|
;"317" <BYTE 0>
|
|
;"318" <BYTE 0>
|
|
;"319" <BYTE ,X-W ,X-N>
|
|
|
|
;"320" <BYTE 0>
|
|
;"321" <BYTE 0>
|
|
;"322" <BYTE 0>
|
|
;"323" <BYTE 0>
|
|
;"324" <BYTE 0>
|
|
;"325" <BYTE 0>
|
|
;"326" <BYTE 0>
|
|
;"327" <BYTE 0>
|
|
;"328" <BYTE 0>
|
|
;"329" <BYTE 0>
|
|
;"330" <BYTE 0>
|
|
;"331" <BYTE 0>
|
|
;"332" <BYTE 0>
|
|
;"333" <BYTE 0>
|
|
;"334" <BYTE 0>
|
|
;"335" <BYTE 0>
|
|
;"336" <BYTE 0>
|
|
;"337" <BYTE 0>
|
|
;"338" <BYTE 0>
|
|
;"339" <BYTE 0>
|
|
|
|
;"340" <BYTE 0>
|
|
;"341" <BYTE ,X-W ,X-S>
|
|
;"342" <BYTE 0>
|
|
;"343" <BYTE 0>
|
|
;"344" <BYTE ,X-W ,X-N>
|
|
;"345" <BYTE ,X-W ,X-S>
|
|
;"346" <BYTE ,X-W ,X-E ,X-N>
|
|
;"347" <BYTE ,X-S ,X-E>
|
|
;"348" <BYTE 0>
|
|
;"349" <BYTE 0>
|
|
;"350" <BYTE 0>
|
|
;"351" <BYTE ,X-N ,X-E>
|
|
;"352" <BYTE ,X-W ,X-S>
|
|
;"353" <BYTE 0>
|
|
;"354" <BYTE ,X-N ,X-E>
|
|
;"355" <BYTE ,X-W ,X-E ,X-S>
|
|
;"356" <BYTE 0>
|
|
;"357" <BYTE 0>
|
|
;"358" <BYTE 0>
|
|
;"359" <BYTE ,X-N ,X-E>
|
|
|
|
;"360" <BYTE 0>
|
|
;"361" <BYTE 0>
|
|
;"362" <BYTE 0>
|
|
;"363" <BYTE 0>
|
|
;"364" <BYTE 0>
|
|
;"365" <BYTE 0>
|
|
;"366" <BYTE 0>
|
|
;"367" <BYTE 0>
|
|
;"368" <BYTE 0>
|
|
;"369" <BYTE 0>
|
|
;"370" <BYTE 0>
|
|
;"371" <BYTE 0>
|
|
;"372" <BYTE 0>
|
|
;"373" <BYTE 0>
|
|
;"374" <BYTE 0>
|
|
;"375" <BYTE 0>
|
|
;"376" <BYTE 0>
|
|
;"377" <BYTE 0>
|
|
;"378" <BYTE 0>
|
|
;"379" <BYTE 0>
|
|
|
|
;"380" <BYTE 0>
|
|
;"381" <BYTE ,X-S ,X-E>
|
|
;"382" <BYTE ,X-N ,X-E>
|
|
;"383" <BYTE ,X-S ,X-E>
|
|
;"384" <BYTE 0>
|
|
;"385" <BYTE 0>
|
|
;"386" <BYTE ,X-W ,X-N>
|
|
;"387" <BYTE 0>
|
|
;"388" <BYTE ,X-S ,X-E>
|
|
;"389" <BYTE 0>
|
|
;"390" <BYTE 0>
|
|
;"391" <BYTE 0>
|
|
;"392" <BYTE ,X-S ,X-E>
|
|
;"393" <BYTE ,X-N>
|
|
;"394" <BYTE 0>
|
|
;"395" <BYTE ,X-W ,X-S ,X-E>
|
|
;"396" <BYTE 0>
|
|
;"397" <BYTE 0>
|
|
;"398" <BYTE ,X-N ,X-E>
|
|
;"399" <BYTE 0>
|
|
|
|
;"400" <BYTE 0>
|
|
;"401" <BYTE 0>
|
|
;"402" <BYTE 0>
|
|
;"403" <BYTE 0>
|
|
;"404" <BYTE 0>
|
|
;"405" <BYTE 0>
|
|
;"406" <BYTE 0>
|
|
;"407" <BYTE 0>
|
|
;"408" <BYTE 0>
|
|
;"409" <BYTE 0>
|
|
;"410" <BYTE 0>
|
|
;"411" <BYTE 0>
|
|
;"412" <BYTE 0>
|
|
;"413" <BYTE 0>
|
|
;"414" <BYTE 0>
|
|
;"415" <BYTE 0>
|
|
;"416" <BYTE 0>
|
|
;"417" <BYTE 0>
|
|
;"418" <BYTE 0>
|
|
;"419" <BYTE 0>
|
|
|
|
;"420" <BYTE 0>
|
|
;"421" <BYTE 0>
|
|
;"422" <BYTE ,X-W ,X-S ,X-E>
|
|
;"423" <BYTE ,X-W ,X-N>
|
|
;"424" <BYTE ,X-S ,X-E>
|
|
;"425" <BYTE 0>
|
|
;"426" <BYTE 0>
|
|
;"427" <BYTE ,X-W ,X-N ,X-E>
|
|
;"428" <BYTE ,X-W ,X-S>
|
|
;"429" <BYTE 0>
|
|
;"430" <BYTE 0>
|
|
;"431" <BYTE ,X-W ,X-N>
|
|
;"432" <BYTE ,X-W ,X-S>
|
|
;"433" <BYTE 0>
|
|
;"434" <BYTE ,X-W ,X-S ,X-N>
|
|
;"435" <BYTE ,X-W ,X-N ,X-E>
|
|
;"436" <BYTE ,X-E ,X-S>
|
|
;"437" <BYTE ,X-N>
|
|
;"438" <BYTE ,X-W ,X-S ,X-E>
|
|
;"439" <BYTE ,X-W ,X-S ,X-E ,X-N>
|
|
|
|
;"440" <BYTE 0>
|
|
;"441" <BYTE ,X-W>
|
|
;"442" <BYTE 0>
|
|
;"443" <BYTE 0>
|
|
;"444" <BYTE 0>
|
|
;"445" <BYTE 0>
|
|
;"446" <BYTE 0>
|
|
;"447" <BYTE 0>
|
|
;"448" <BYTE 0>
|
|
;"449" <BYTE 0>
|
|
;"450" <BYTE 0>
|
|
;"451" <BYTE 0>
|
|
;"452" <BYTE 0>
|
|
;"453" <BYTE 0>
|
|
;"454" <BYTE 0>
|
|
;"455" <BYTE 0>
|
|
;"456" <BYTE 0>
|
|
;"457" <BYTE 0>
|
|
;"458" <BYTE 0>
|
|
;"459" <BYTE 0>
|
|
|
|
;"460" <BYTE 0>
|
|
;"461" <BYTE 0>
|
|
;"462" <BYTE ,X-W ,X-E ,X-S>
|
|
;"463" <BYTE 0>
|
|
;"464" <BYTE ,X-W ,X-N ,X-S>
|
|
;"465" <BYTE ,X-N ,X-S ,X-E>
|
|
;"466" <BYTE 0>
|
|
;"467" <BYTE ,X-W ,X-N>
|
|
;"468" <BYTE ,X-S>
|
|
;"469" <BYTE ,X-E ,X-N>
|
|
;"470" <BYTE ,X-E ,X-S>
|
|
;"471" <BYTE 0>
|
|
;"472" <BYTE 0>
|
|
;"473" <BYTE 0>
|
|
;"474" <BYTE ,X-N ,X-E>
|
|
;"475" <BYTE ,X-W ,X-S ,X-E>
|
|
;"476" <BYTE ,X-W ,X-S ,X-N>
|
|
;"477" <BYTE 0>
|
|
;"478" <BYTE ,X-N ,X-W>
|
|
;"479" <BYTE 0>
|
|
|
|
;"480" <BYTE 0>
|
|
;"481" <BYTE ,X-E>
|
|
;"482" <BYTE 0>
|
|
;"483" <BYTE 0>
|
|
;"484" <BYTE 0>
|
|
;"485" <BYTE 0>
|
|
;"486" <BYTE 0>
|
|
;"487" <BYTE 0>
|
|
;"488" <BYTE 0>
|
|
;"489" <BYTE 0>
|
|
;"490" <BYTE ,X-W>
|
|
;"491" <BYTE 0>
|
|
;"492" <BYTE 0>
|
|
;"493" <BYTE 0>
|
|
;"494" <BYTE 0>
|
|
;"495" <BYTE 0>
|
|
;"496" <BYTE 0>
|
|
;"497" <BYTE 0>
|
|
;"498" <BYTE 0>
|
|
;"499" <BYTE 0>
|
|
|
|
;"500" <BYTE 0>
|
|
;"501" <BYTE 0>
|
|
;"502" <BYTE 0>
|
|
;"503" <BYTE ,X-E ,X-S>
|
|
;"504" <BYTE ,X-N ,X-E>
|
|
;"505" <BYTE 0>
|
|
;"506" <BYTE ,X-E>
|
|
;"507" <BYTE ,X-S ,X-E>
|
|
;"508" <BYTE ,X-E ,X-N>
|
|
;"509" <BYTE 0>
|
|
;"510" <BYTE 0>
|
|
;"511" <BYTE ,X-S ,X-E>
|
|
;"512" <BYTE 0>
|
|
;"513" <BYTE 0>
|
|
;"514" <BYTE ,X-N ,X-W ,X-S>
|
|
;"515" <BYTE ,X-W ,X-N ,X-S>
|
|
;"516" <BYTE 0>
|
|
;"517" <BYTE ,X-N ,X-E ,X-S>
|
|
;"518" <BYTE 0>
|
|
;"519" <BYTE ,X-W ,X-N>
|
|
|
|
;"520" <BYTE 0>
|
|
;"521" <BYTE ,X-W ,X-S>
|
|
;"522" <BYTE ,X-N ,X-W>
|
|
;"523" <BYTE ,X-W>
|
|
;"524" <BYTE ,X-W ,X-S>
|
|
;"525" <BYTE ,X-N ,X-W ,X-S>
|
|
;"526" <BYTE ,X-W ,X-N>
|
|
;"527" <BYTE ,X-W>
|
|
;"528" <BYTE 0>
|
|
;"529" <BYTE ,X-W ,X-S>
|
|
;"530" <BYTE 0>
|
|
;"531" <BYTE ,X-N ,X-W ,X-E>
|
|
;"532" <BYTE 0>
|
|
;"533" <BYTE 0>
|
|
;"534" <BYTE 0>
|
|
;"535" <BYTE 0>
|
|
;"536" <BYTE 0>
|
|
;"537" <BYTE 0>
|
|
;"538" <BYTE 0>
|
|
;"539" <BYTE 0>
|
|
|
|
;"540" <BYTE 0>
|
|
;"541" <BYTE 0>
|
|
;"542" <BYTE 0>
|
|
;"543" <BYTE 0>
|
|
;"544" <BYTE 0>
|
|
;"545" <BYTE 0>
|
|
;"546" <BYTE 0>
|
|
;"547" <BYTE 0>
|
|
;"548" <BYTE 0>
|
|
;"549" <BYTE 0>
|
|
;"550" <BYTE 0>
|
|
;"551" <BYTE 0>
|
|
;"552" <BYTE ,X-E ,X-S>
|
|
;"553" <BYTE 0>
|
|
;"554" <BYTE 0>
|
|
;"555" <BYTE ,X-N ,X-S ,X-E>
|
|
;"556" <BYTE ,X-N ,X-E>
|
|
;"557" <BYTE ,X-E ,X-W ,X-S>
|
|
;"558" <BYTE 0>
|
|
;"559" <BYTE ,X-N ,X-E>
|
|
|
|
;"560" <BYTE 0>
|
|
;"561" <BYTE ,X-E ,X-S>
|
|
;"562" <BYTE 0>
|
|
;"563" <BYTE 0>
|
|
;"564" <BYTE ,X-N>
|
|
;"565" <BYTE ,X-E ,X-S>
|
|
;"566" <BYTE 0>
|
|
;"567" <BYTE 0>
|
|
;"568" <BYTE ,X-W ,X-N>
|
|
;"569" <BYTE ,X-E ,X-S>
|
|
;"570" <BYTE ,X-N ,X-E>
|
|
;"571" <BYTE 0>
|
|
;"572" <BYTE 0>
|
|
;"573" <BYTE 0>
|
|
;"574" <BYTE 0>
|
|
;"575" <BYTE 0>
|
|
;"576" <BYTE 0>
|
|
;"577" <BYTE 0>
|
|
;"578" <BYTE 0>
|
|
;"579" <BYTE 0>
|
|
|
|
;"580" <BYTE 0>
|
|
;"581" <BYTE 0>
|
|
;"582" <BYTE 0>
|
|
;"583" <BYTE 0>
|
|
;"584" <BYTE 0>
|
|
;"585" <BYTE 0>
|
|
;"586" <BYTE 0>
|
|
;"587" <BYTE 0>
|
|
;"588" <BYTE 0>
|
|
;"589" <BYTE 0>
|
|
;"590" <BYTE 0>
|
|
;"591" <BYTE 0>
|
|
;"592" <BYTE 0>
|
|
;"593" <BYTE ,X-S ,X-E>
|
|
;"594" <BYTE ,X-N ,X-E>
|
|
;"595" <BYTE 0>
|
|
;"596" <BYTE 0>
|
|
;"597" <BYTE 0>
|
|
;"598" <BYTE ,X-E>
|
|
;"599" <BYTE 0>
|
|
|
|
;"600" <BYTE 0>
|
|
;"601" <BYTE 0>
|
|
;"602" <BYTE ,X-S ,X-E>
|
|
;"603" <BYTE 0>
|
|
;"604" <BYTE 0>
|
|
;"605" <BYTE ,X-W ,X-N ,X-S>
|
|
;"606" <BYTE 0>
|
|
;"607" <BYTE 0>
|
|
;"608" <BYTE 0>
|
|
;"609" <BYTE ,X-N ,X-W ,X-E>
|
|
;"610" <BYTE 0>
|
|
;"611" <BYTE ,X-W ,X-S>
|
|
;"612" <BYTE ,X-W ,X-S ,X-N>
|
|
;"613" <BYTE ,X-N ,X-W>
|
|
;"614" <BYTE ,X-W>
|
|
;"615" <BYTE 0>
|
|
;"616" <BYTE ,X-W ,X-S>
|
|
;"617" <BYTE ,X-W ,X-N>
|
|
;"618" <BYTE ,X-W ,X-S>
|
|
;"619" <BYTE ,X-N ,X-W>
|
|
|
|
;"620" <BYTE 0>
|
|
;"621" <BYTE 0>
|
|
;"622" <BYTE 0>
|
|
;"623" <BYTE 0>
|
|
;"624" <BYTE 0>
|
|
;"625" <BYTE 0>
|
|
;"626" <BYTE 0>
|
|
;"627" <BYTE 0>
|
|
;"628" <BYTE 0>
|
|
;"629" <BYTE 0>
|
|
;"630" <BYTE 0>
|
|
;"631" <BYTE 0>
|
|
;"632" <BYTE 0>
|
|
;"633" <BYTE 0>
|
|
;"634" <BYTE 0>
|
|
;"635" <BYTE 0>
|
|
;"636" <BYTE 0>
|
|
;"637" <BYTE 0>
|
|
;"638" <BYTE 0>
|
|
;"639" <BYTE 0>
|
|
|
|
;"640" <BYTE 0>
|
|
;"641" <BYTE 0>
|
|
;"642" <BYTE ,X-S ,X-W>
|
|
;"643" <BYTE 0>
|
|
;"644" <BYTE 0>
|
|
;"645" <BYTE 0>
|
|
;"646" <BYTE 0>
|
|
;"647" <BYTE 0>
|
|
;"648" <BYTE 0>
|
|
;"649" <BYTE ,X-N ,X-W>
|
|
;"650" <BYTE 0>
|
|
;"651" <BYTE ,X-E ,X-S>
|
|
;"652" <BYTE 0>
|
|
;"653" <BYTE 0>
|
|
;"654" <BYTE 0>
|
|
;"655" <BYTE ,X-W ,X-N ,X-S>
|
|
;"656" <BYTE ,X-N ,X-S ,X-E>
|
|
;"657" <BYTE 0>
|
|
;"658" <BYTE 0>
|
|
;"659" <BYTE ,X-N ,X-E>
|
|
|
|
;"660" <BYTE 0>
|
|
;"661" <BYTE 0>
|
|
;"662" <BYTE 0>
|
|
;"663" <BYTE 0>
|
|
;"664" <BYTE 0>
|
|
;"665" <BYTE 0>
|
|
;"666" <BYTE 0>
|
|
;"667" <BYTE 0>
|
|
;"668" <BYTE 0>
|
|
;"669" <BYTE 0>
|
|
;"670" <BYTE 0>
|
|
;"671" <BYTE 0>
|
|
;"672" <BYTE 0>
|
|
;"673" <BYTE 0>
|
|
;"674" <BYTE 0>
|
|
;"675" <BYTE 0>
|
|
;"676" <BYTE 0>
|
|
;"677" <BYTE 0>
|
|
;"678" <BYTE 0>
|
|
;"679" <BYTE 0>
|
|
|
|
;"680" <BYTE 0>
|
|
;"681" <BYTE ,X-W ,X-S>
|
|
;"682" <BYTE 0>
|
|
;"683" <BYTE 0>
|
|
;"684" <BYTE 0>
|
|
;"685" <BYTE 0>
|
|
;"686" <BYTE 0>
|
|
;"687" <BYTE 0>
|
|
;"688" <BYTE 0>
|
|
;"689" <BYTE 0>
|
|
;"690" <BYTE ,X-W ,X-N ,X-S>
|
|
;"691" <BYTE ,X-N ,X-W>
|
|
;"692" <BYTE ,X-S>
|
|
;"693" <BYTE 0>
|
|
;"694" <BYTE 0>
|
|
;"695" <BYTE 0>
|
|
;"696" <BYTE ,X-W ,X-N>
|
|
;"697" <BYTE ,X-S>
|
|
;"698" <BYTE 0>
|
|
;"699" <BYTE ,X-N ,X-W>>>
|
|
|
|
<GLOBAL HEDGE-CRASH
|
|
<LTABLE 0
|
|
"You walk right into a thick hedge"
|
|
"You march face first into a hedge">>
|
|
|