183 lines
8.9 KiB
Plaintext
183 lines
8.9 KiB
Plaintext
|
|
<FILE-FLAGS SENTENCE-ENDS?>
|
|
<BEGIN-SEGMENT VOYAGE>
|
|
<CONSTANT J-PILING 60>
|
|
<DEFINE-ROUTINE HIRO-MATSU-REFUSES>
|
|
<DEFINE-ROUTINE YABU-BOARDS-SKIFF>
|
|
<DEFINE-ROUTINE I-SKIFF>
|
|
<GLOBAL SKIFF-CNT 0 %<> WORD>
|
|
<ROOM IN-THE-SEA (LOC ROOMS) (DESC "In the Sea") (SYNONYM SEA) (LDESC
|
|
"You are in the raging sea between the galley and the rocky,
|
|
wave-tormented shore.") (FLAGS ONBIT OUTSIDE) (GLOBAL LG-SEA LG-LAND LG-BAY
|
|
LG-RODRIGUES) (GENERIC GENERIC-SEA-F) (ACTION IN-THE-SEA-F)>
|
|
<DEFINE-ROUTINE IN-THE-SEA-F>
|
|
<DEFINE-ROUTINE I-DROWN>
|
|
<OBJECT LG-GALLEY (LOC IN-THE-SEA) (DESC "galley") (OWNER TORANAGA) (SYNONYM
|
|
GALLEY BOAT SHIP) (FLAGS VEHBIT) (DESCFCN LG-GALLEY-DESC) (GENERIC
|
|
GENERIC-GALLEY-F) (ACTION LG-GALLEY-F)>
|
|
<DEFINE-ROUTINE LG-GALLEY-DESC>
|
|
<DEFINE-ROUTINE LG-GALLEY-F>
|
|
<DEFINE-ROUTINE FRUSTRATED>
|
|
<DEFINE-ROUTINE DRESS-BLACKTHORNE>
|
|
<ROOM GALLEY (LOC ROOMS) (SCENE S-VOYAGE) (DESC "Toranaga's Galley") (SYNONYM
|
|
GALLEY) (OWNER TORANAGA) (SCORE 11) (FDESC
|
|
"It is near noon and you are standing on the quarterdeck of the galley
|
|
under an overcast sky. During the first night the galley had sped
|
|
southward down the east coast of the Izu peninsula. When it came abreast
|
|
of the southmost cape, Cape Ito, Rodrigues had set the course West South
|
|
West and had left the safety of the coast for the open sea, heading for
|
|
a landfall at Cape Shinto two hundred miles away.|
|
|
|
|
|
\"What do you think, Ingeles?\" asks Rodrigues.|
|
|
\"I think there'll be a storm,\" you reply.|
|
|
\"When?\"|
|
|
\"Before sunset\" you answer.|
|
|
|
|
|
The storm comes before sunset and catches you out to sea. Land is
|
|
ten miles away.") (AFTER VOYAGE-AFTER-F) (FORE TO MAIN-DECK) (DOWN TO MAIN-DECK
|
|
) (FLAGS ONBIT OUTSIDE) (GLOBAL LG-GALLEY CREWMEN LG-RODRIGUES LG-SEA LG-LAND
|
|
LG-BAY ANCHOR) (GENERIC GENERIC-GALLEY-F) (ACTION GALLEY-F)>
|
|
<DEFINE-ROUTINE GALLEY-F>
|
|
<OBJECT GALLEY-WHEEL (LOC GALLEY) (SCENE S-VOYAGE) (OWNER GALLEY) (DESC "helm")
|
|
(SYNONYM WHEEL RUDDER HELM TILLER) (FLAGS CANT-HOLD) (DESCFCN GALLEY-WHEEL-DESC
|
|
) (ACTION GALLEY-WHEEL-F)>
|
|
<DEFINE-ROUTINE GALLEY-WHEEL-DESC>
|
|
<DEFINE-ROUTINE GALLEY-WHEEL-F>
|
|
<OBJECT SAFETY-LINE (LOC GALLEY) (SCENE S-VOYAGE) (DESC "safety line") (SYNONYM
|
|
LINE LIFELINE ROPE) (ADJECTIVE SAFETY LIFE) (FLAGS OPENABLE WEARABLE) (ACTION
|
|
SAFETY-LINE-F)>
|
|
<DEFINE-ROUTINE SAFETY-LINE-F>
|
|
<ROOM MAIN-DECK (SCENE S-VOYAGE) (LOC ROOMS) (DESC "Main Deck") (SYNONYM DECK)
|
|
(ADJECTIVE MAIN) (AFT TO GALLEY) (UP TO GALLEY) (DOWN SORRY
|
|
"There's nothing of interest below decks.") (FLAGS ONBIT OUTSIDE SCOREBIT) (
|
|
GLOBAL LG-GALLEY LG-SEA LG-LAND LG-BAY LG-RODRIGUES) (GENERIC GENERIC-DECK-F) (
|
|
ACTION MAIN-DECK-F)>
|
|
<DEFINE-ROUTINE MAIN-DECK-F>
|
|
<OBJECT SKIFF (LOC MAIN-DECK) (SCENE S-VOYAGE) (DESC "skiff") (SYNONYM SKIFF
|
|
BOAT) (FLAGS TAKEBIT VEHBIT OPENBIT CONTBIT SEARCHBIT SCOREBIT) (COUNT 0) (SIZE
|
|
200) (CAPACITY 200) (DESCFCN SKIFF-DESC) (ACTION SKIFF-F)>
|
|
<DEFINE-ROUTINE SKIFF-DESC>
|
|
<DEFINE-ROUTINE SKIFF-F>
|
|
<GLOBAL SEARCHED? <>>
|
|
<OBJECT ANCHOR (LOC MAIN-DECK) (SCENE S-VOYAGE) (DESC "anchor") (SYNONYM ANCHOR
|
|
) (SIZE 200) (FLAGS AN TAKEBIT SCOREBIT) (ACTION ANCHOR-F)>
|
|
<DEFINE-ROUTINE ANCHOR-F>
|
|
<DEFINE-ROUTINE I-ALL-ON-DECK>
|
|
<OBJECT OARS (LOC MAIN-DECK) (DESC "oars") (SYNONYM OARS OAR) (FLAGS NDESCBIT)
|
|
(ACTION OARS-F)>
|
|
<DEFINE-ROUTINE OARS-F>
|
|
<OBJECT OARSMEN (SCENE S-VOYAGE) (LOC MAIN-DECK) (DESC "oarsmen") (SYNONYM
|
|
OARSMEN OARSMAN MEN MAN ROWER ROWERS CREW CREWMEN) (ADJECTIVE OARS) (FLAGS
|
|
NDESCBIT PERSON JAPANESEBIT PLURAL OPENBIT SEARCHBIT CONTBIT) (ACTION OARSMEN-F
|
|
)>
|
|
<DEFINE-ROUTINE OARSMEN-F>
|
|
<OBJECT GUNWALE (LOC MAIN-DECK) (DESC "gunwale") (SYNONYM GUNWALE GUNWALES RAIL
|
|
RAILS) (FLAGS NDESCBIT TAKEBIT SCOREBIT) (ACTION GUNWALE-F)>
|
|
<GLOBAL GOT-GUNWALE? <>>
|
|
<DEFINE-ROUTINE GUNWALE-F>
|
|
<GLOBAL GALLEY-IN-BAY? <>>
|
|
<DEFINE-ROUTINE I-RODRIGUES>
|
|
<GLOBAL RODRIGUES-CNT 0 %<> WORD>
|
|
<OBJECT LIFE-RING (LOC GALLEY) (DESC "wooden life ring") (FDESC
|
|
"A wooden life ring hangs nearby.") (SYNONYM RING) (ADJECTIVE WOODEN LIFE) (
|
|
FLAGS TAKEBIT) (ACTION LIFE-RING-F)>
|
|
<DEFINE-ROUTINE LIFE-RING-F>
|
|
<OBJECT OAR (DESC "broken oar") (SYNONYM OAR) (ADJECTIVE BROKEN) (FLAGS TAKEBIT
|
|
SCOREBIT) (ACTION OAR-F)>
|
|
<DEFINE-ROUTINE OAR-F>
|
|
<ROOM PEBBLED-BEACH (LOC ROOMS) (DESC "Pebbled Beach") (SYNONYM BEACH) (
|
|
ADJECTIVE PEBBLED) (LDESC
|
|
"The beach here consists of small, rounded pebbles. To the south the
|
|
cliff rises behind a field of larger rocks. Riding at anchor in the bay
|
|
is Toranaga's galley.") (SOUTH TO ROCKY-SHORE) (FLAGS RLANDBIT ONBIT) (GLOBAL
|
|
LG-GALLEY LG-CLIFF LG-SEA LG-LAND LG-BAY LG-RODRIGUES) (ACTION PEBBLED-BEACH-F)
|
|
>
|
|
<DEFINE-ROUTINE SEARCH-PARTY-FOLLOWS>
|
|
<DEFINE-ROUTINE PEBBLED-BEACH-F>
|
|
<OBJECT LG-PATH (LOC LOCAL-GLOBALS) (SCENE S-VOYAGE) (DESC "path") (SYNONYM
|
|
PATH FORESHORE SHORE) (FLAGS NDESCBIT) (ACTION LG-PATH-F)>
|
|
<DEFINE-ROUTINE LG-PATH-F>
|
|
<OBJECT ROCK (DESC "rock") (SYNONYM ROCK STONE PEBBLE) (ADJECTIVE SMALL) (FLAGS
|
|
TAKEBIT)>
|
|
<OBJECT LG-CLIFF (LOC LOCAL-GLOBALS) (OWNER YABU) (DESC "cliff") (SYNONYM CLIFF
|
|
CLIFFS ROCK ROCKS CREVICE CLEFT GULLEY CAVE CAVES) (ADJECTIVE SHEER LOOSE
|
|
HIDDEN) (FLAGS NDESCBIT TRYTAKEBIT TAKEBIT) (ACTION LG-CLIFF-F)>
|
|
<DEFINE-ROUTINE LG-CLIFF-F>
|
|
<OBJECT SEARCH-PARTY (OWNER SEARCH-PARTY) (SCENE S-VOYAGE) (DESC
|
|
"party of samurai") (SYNONYM SAMURAI GUARD GUARDS PARTY MEN) (ADJECTIVE SEARCH)
|
|
(FLAGS PERSON JAPANESEBIT OPENBIT CONTBIT SEARCHBIT PLURAL SCOREBIT) (COUNT 7)
|
|
(DESCFCN SEARCH-PARTY-DESC) (GENERIC GENERIC-SAMURAI-F) (ACTION SEARCH-PARTY-F)
|
|
>
|
|
<DEFINE-ROUTINE SEARCH-PARTY-DESC>
|
|
<DEFINE-ROUTINE SEARCH-PARTY-F>
|
|
<OBJECT PARTY-KIMONO (OWNER SEARCH-PARTY) (LOC SEARCH-PARTY) (DESC "kimonos") (
|
|
SYNONYM KIMONOS CLOTHES) (ADJECTIVE SILK SOAKING WET) (FLAGS NOABIT DONT-ALL
|
|
NDESCBIT TAKEBIT WEARABLE PLURAL) (GENERIC GENERIC-KIMONO-F) (ACTION
|
|
PARTY-KIMONO-F)>
|
|
<DEFINE-ROUTINE GENERIC-KIMONO-F>
|
|
<DEFINE-ROUTINE PARTY-KIMONO-F>
|
|
<ROOM ROCKY-SHORE (LOC ROOMS) (DESC "Rocky Shore") (SYNONYM SHORE) (ADJECTIVE
|
|
ROCKY) (LDESC "Inland from the shore the pebbles become sea-smoothed rocks. To the
|
|
south is a path leading along the cliffs and around the headland. To
|
|
the north is the bay where the galley rides at anchor.") (NORTH TO
|
|
PEBBLED-BEACH) (SOUTH TO CLIFF-PATH) (FLAGS RLANDBIT ONBIT) (GLOBAL LG-CLIFF
|
|
LG-SEA LG-RODRIGUES) (ACTION ROCKY-SHORE-F)>
|
|
<DEFINE-ROUTINE ROCKY-SHORE-F>
|
|
<DEFINE-ROUTINE YABU-PREVENTS>
|
|
<ROOM CLIFF-PATH (LOC ROOMS) (DESC "Cliff Path") (SYNONYM PATH) (ADJECTIVE
|
|
CLIFF) (LDESC "Above you the cliff soars two hundred feet. The white-frothed sea is
|
|
fifty feet below. All around are mountains, not a house or hut in the
|
|
whole bay area. The path dips and rises along the cliff face, very
|
|
unsafe, the surface loose.") (NORTH TO ROCKY-SHORE) (SOUTH TO AROUND-HEADLAND)
|
|
(DOWN TO LEDGE-1) (FLAGS RLANDBIT ONBIT) (GLOBAL LG-CLIFF LG-SEA LG-RODRIGUES
|
|
LG-YABU) (ACTION CLIFF-PATH-F)>
|
|
<DEFINE-ROUTINE CLIFF-PATH-F>
|
|
<CONSTANT SEARCH-FORESHORE
|
|
"You search the foreshore, every crevice and cleft and gulley. The spume
|
|
wind is gusting, tearing tears from your eyes. ">
|
|
<OBJECT LEDGE (LOC CLIFF-PATH) (DESC "narrow ledge") (SYNONYM LEDGE) (ADJECTIVE
|
|
TINY NARROW) (FLAGS NDESCBIT SCOREBIT) (ACTION LEDGE-F)>
|
|
<DEFINE-ROUTINE LEDGE-F>
|
|
<ROOM LEDGE-1 (LOC ROOMS) (DESC "Ledge") (SYNONYM LEDGE) (UP TO CLIFF-PATH) (
|
|
DOWN TO LEDGE-2) (FLAGS RLANDBIT ONBIT)>
|
|
<ROOM LEDGE-2 (LOC ROOMS) (DESC "Ledge") (SYNONYM LEDGE) (UP TO LEDGE-1) (DOWN
|
|
TO LEDGE-3) (FLAGS RLANDBIT ONBIT)>
|
|
<ROOM LEDGE-3 (LOC ROOMS) (DESC "Ledge") (SYNONYM LEDGE) (UP TO LEDGE-2) (DOWN
|
|
TO LEDGE-4) (FLAGS RLANDBIT ONBIT)>
|
|
<ROOM LEDGE-4 (LOC ROOMS) (DESC "Ledge") (SYNONYM LEDGE) (UP TO LEDGE-3) (FLAGS
|
|
RLANDBIT ONBIT SCOREBIT)>
|
|
<ROOM AROUND-HEADLAND (LOC ROOMS) (DESC "Around the Headland") (SYNONYM
|
|
HEADLAND) (LDESC
|
|
"This side of the headland is in the lee of the wind, for which you
|
|
are very grateful. Half a mile away a small fishing village nestles
|
|
on the white-frothed shore.") (NORTH TO CLIFF-PATH) (FLAGS RLANDBIT ONBIT) (
|
|
ACTION AROUND-HEADLAND-F) (GLOBAL LG-CLIFF LG-SEA LG-RODRIGUES LG-YABU
|
|
LG-VILLAGE)>
|
|
<DEFINE-ROUTINE AROUND-HEADLAND-F>
|
|
<DEFINE-ROUTINE I-SEARCH>
|
|
<GLOBAL YABU-CNT 0 %<> WORD>
|
|
<DEFINE-ROUTINE BLACKTHORNE-DALLIES?>
|
|
<GLOBAL YABU-WARNED? <>>
|
|
<GLOBAL YABU-RESIGNED? <>>
|
|
<DEFINE-ROUTINE I-YABU-CLIMBS>
|
|
<GLOBAL YABU-CNT 0 %<> WORD>
|
|
<GLOBAL ROPE-LOWERED? <>>
|
|
<OBJECT YABU-KIMONO (OWNER YABU) (SDESC "kimono") (DESC "kimono") (SYNONYM
|
|
KIMONO ROPE STRIP STRIPS CLOTHES) (ADJECTIVE SILK SOAKING) (FLAGS TAKEBIT
|
|
WEARABLE SCOREBIT) (COUNT 0) (GENERIC GENERIC-KIMONO-F) (ACTION YABU-KIMONO-F)>
|
|
|
|
<DEFINE-ROUTINE YABU-KIMONO-F>
|
|
<OBJECT SLIPPERS (DESC "slippers") (SYNONYM SLIPPERS SLIPPER) (ADJECTIVE THONG)
|
|
(FLAGS TAKEBIT WEARABLE NOABIT PLURAL)>
|
|
<OBJECT LOINCLOTH (DESC "loincloth") (SYNONYM LOINCLOTH CLOTH CLOTHS) (
|
|
ADJECTIVE LOIN) (FLAGS NDESCBIT TAKEBIT WEARABLE PLURAL SCOREBIT) (ACTION
|
|
LOINCLOTH-F)>
|
|
<DEFINE-ROUTINE LOINCLOTH-F>
|
|
<OBJECT YABU-SWORDS (DESC "swords") (OWNER YABU) (SYNONYM SWORDS SWORD) (FLAGS
|
|
TAKEBIT TRYTAKEBIT WEARABLE WEAPONBIT NOABIT PLURAL) (GENERIC GENERIC-SWORD-F)
|
|
(ACTION YABU-SWORDS-F)>
|
|
<DEFINE-ROUTINE YABU-SWORDS-F>
|
|
<DEFINE-ROUTINE I-YABU-RETURNS>
|
|
<GLOBAL YABU-CNT 0 %<> WORD>
|
|
<DEFINE-ROUTINE VOYAGE-AFTER-F>
|
|
<END-SEGMENT> |