207 lines
10 KiB
Plaintext
207 lines
10 KiB
Plaintext
|
|
<FILE-FLAGS SENTENCE-ENDS?>
|
|
<BEGIN-SEGMENT AUDIENCE>
|
|
<CONSTANT J-JOKE 70>
|
|
<CONSTANT J-SIT 71>
|
|
<BEGIN-SEGMENT NINJA>
|
|
<ROOM OUTER-CORRIDOR (LOC ROOMS) (SCENE S-TORANAGA) (AFTER
|
|
ISHIDO-VS-TORANAGA-AFTER-F) (DESC "Outer Corridor") (SYNONYM CORRIDOR) (
|
|
ADJECTIVE OUTER) (PICTURE P-OSAKA) (SCORE 3) (FDESC
|
|
"You take your leave of Rodrigues, and then you are on deck,
|
|
your mind whirling from the impact of Osaka, its immensity, the teeming
|
|
anthills
|
|
of people, and the enormous castle that dominates the city. From within
|
|
the castle's vastness comes the soaring beauty of the donjon, seven or
|
|
eight stories high, pointed gables with curved roofs at each level,
|
|
the tiles all gilded and the walls blue.|
|
|
|
|
|
The next day you are brought by Hiro-matsu to Toranaga's keep within
|
|
the castle.") (IN TO AUDIENCE-CHAMBER IF OUTER-DOOR IS OPEN) (EAST TO
|
|
AUDIENCE-CHAMBER IF OUTER-DOOR IS OPEN) (WEST PER STAIRS-EXIT) (DOWN PER
|
|
STAIRS-EXIT) (GLOBAL OUTER-DOOR LG-NINJA) (FLAGS ONBIT) (ACTION
|
|
OUTER-CORRIDOR-F)>
|
|
<DEFINE-ROUTINE STAIRS-EXIT>
|
|
<DEFINE-ROUTINE OUTER-CORRIDOR-F>
|
|
<ROOM AUDIENCE-CHAMBER (LOC ROOMS) (DESC "Audience Chamber") (SYNONYM CHAMBER
|
|
ROOM) (ADJECTIVE AUDIENCE) (WEST TO OUTER-CORRIDOR IF OUTER-DOOR IS OPEN) (EAST
|
|
TO INNER-CORRIDOR IF INNER-DOOR IS OPEN) (IN TO INNER-CORRIDOR IF INNER-DOOR IS
|
|
OPEN) (SOUTH TO SECRET-ROOM IF SECRET-ROOM-DOOR IS OPEN) (GLOBAL INNER-DOOR
|
|
OUTER-DOOR SECRET-ROOM-DOOR LG-NINJA LG-MEN LG-WOMEN) (FLAGS ONBIT SCOREBIT) (
|
|
ACTION AUDIENCE-CHAMBER-F)>
|
|
<GLOBAL POINTEE ALVITO>
|
|
<DEFINE-ROUTINE AUDIENCE-CHAMBER-F>
|
|
<OBJECT VASE (LOC AUDIENCE-CHAMBER) (DESC "vase") (SYNONYM VASE) (ADJECTIVE
|
|
EARTHENWARE CERAMIC) (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT OPENBIT CONTBIT
|
|
SEARCHBIT) (CAPACITY 10) (ACTION VASE-F)>
|
|
<DEFINE-ROUTINE VASE-F>
|
|
<OBJECT FLOWER (LOC VASE) (DESC "cherry blossom") (SYNONYM SPRAY FLOWER BLOSSOM
|
|
) (ADJECTIVE CHERRY) (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (ACTION FLOWER-F)>
|
|
<DEFINE-ROUTINE FLOWER-F>
|
|
<OBJECT DAIS (LOC AUDIENCE-CHAMBER) (DESC "dais") (OWNER TORANAGA) (SYNONYM
|
|
DAIS) (FLAGS NDESCBIT SCOREBIT OPENBIT CONTBIT VEHBIT SEARCHBIT)>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT AUDIENCE>
|
|
<DEFINE-ROUTINE ISHIDO-VS-TORANAGA-AFTER-F>
|
|
<OBJECT FALCON (DESC "peregrine") (OWNER TORANAGA) (SYNONYM FALCON PEREGRINE
|
|
WORK) (FLAGS NDESCBIT RMUNGBIT) (ACTION FALCON-F)>
|
|
<DEFINE-ROUTINE FALCON-F>
|
|
<OBJECT TORANAGAS-GUARDS (DESC "samurai guards") (OWNER TORANAGA) (SYNONYM
|
|
GUARDS SAMURAI) (FLAGS NDESCBIT PERSON JAPANESEBIT PLURAL OPENBIT CONTBIT
|
|
SEARCHBIT NOABIT THE) (GENERIC GENERIC-SAMURAI-F) (ACTION TORANAGAS-GUARDS-F)>
|
|
<DEFINE-ROUTINE TORANAGAS-GUARDS-F>
|
|
<OBJECT ALVITO (LOC GENERIC-OBJECTS) (SCENE S-TORANAGA) (SDESC
|
|
"tonsured priest") (SYNONYM ALVITO PRIEST MAN FATHER JESUIT) (ADJECTIVE FATHER
|
|
MARTIN TONSURED LEAN-FACED PORTUGUESE) (PICTURE P-ALVITO) (FLAGS PERSON
|
|
PORTUGUESEBIT OPENBIT CONTBIT SEARCHBIT SCOREBIT) (GENERIC GENERIC-MAN-F) (
|
|
ACTION ALVITO-F)>
|
|
<DEFINE-ROUTINE ALVITO-F>
|
|
<DEFINE-ROUTINE ALVITO-SPEAKS>
|
|
<GLOBAL ALVITO-TRANSLATES? <>>
|
|
<DEFINE-ROUTINE I-AUDIENCE>
|
|
<GLOBAL AUDIENCE-CNT 0 %<> WORD>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT PRISON>
|
|
<OBJECT LG-LINE (LOC LOCAL-GLOBALS) (SCENE S-PRISON) (DESC "line") (SYNONYM
|
|
LINE) (FLAGS NDESCBIT VEHBIT SCOREBIT) (ACTION LG-LINE-F)>
|
|
<DEFINE-ROUTINE LG-LINE-F>
|
|
<ROOM PRISON (LOC ROOMS) (SCENE S-PRISON S-MARIKO) (SCORE 6) (DESC "Cell Block"
|
|
) (AFTER PRISON-AFTER-F) (SYNONYM PRISON JAIL CELL BLOCK) (ADJECTIVE CELL) (
|
|
FDESC "Toranaga's guards take you to the prison, strip you, and force you
|
|
through the door of one of the cell blocks.|
|
|
|
|
|
At dawn it is feeding time and the guards pass out cups of gruel
|
|
and water through a small opening. The lining up for food and water
|
|
is unusually calm -- without discipline no one would eat. You take
|
|
your ration and pick your way over the bodies toward a corner.") (LDESC
|
|
"This murky and suffocating room is fifty paces long and ten wide and
|
|
packed with naked, sweating Japanese. Scarcely any light filters through
|
|
the boards and beams that make up the walls and low ceiling. A heavy iron
|
|
door seals the prisoners in.") (OUT TO PRISON-COURTYARD IF IRON-DOOR IS OPEN) (
|
|
EAST TO PRISON-COURTYARD IF IRON-DOOR IS OPEN) (FLAGS ONBIT) (GLOBAL LG-LINE
|
|
IRON-DOOR PRISON MADMAN LG-MEN) (THINGS <> PRISONER PRISONER-PSEUDO <>
|
|
PRISONERS PRISONER-PSEUDO) (ACTION PRISON-F)>
|
|
<DEFINE-ROUTINE PRISONER-PSEUDO>
|
|
<DEFINE-ROUTINE PRISON-F>
|
|
<OBJECT IRON-DOOR (SCENE S-PRISON) (LOC LOCAL-GLOBALS) (DESC "iron door") (
|
|
SYNONYM DOOR) (ADJECTIVE IRON) (FLAGS LOCKED LOCKABLE OPENABLE DOORBIT)>
|
|
<OBJECT CUP (SCENE S-PRISON) (DESC "cup") (OWNER GRUEL) (SYNONYM CUP) (FLAGS
|
|
TAKEBIT OPENBIT CONTBIT SEARCHBIT) (CAPACITY 10) (ACTION CUP-F)>
|
|
<DEFINE-ROUTINE CUP-F>
|
|
<OBJECT GRUEL (SCENE S-PRISON) (LOC CUP) (DESC "gruel") (SYNONYM GRUEL RATION
|
|
FOOD) (ADJECTIVE GRUEL) (FLAGS TAKEBIT FOODBIT) (ACTION GRUEL-F)>
|
|
<DEFINE-ROUTINE GRUEL-F>
|
|
<OBJECT THUG (LOC PRISON) (DESC "apelike man") (SYNONYM APE MAN THUG CONVICT
|
|
PRISONER) (ADJECTIVE APELIKE UNSHAVEN FILTHY LICE-RIDDEN FILTHY) (FLAGS AN
|
|
PERSON THE JAPANESEBIT OPENBIT CONTBIT SEARCHBIT SCOREBIT) (HEALTH 3) (DESCFCN
|
|
THUG-DESC) (GENERIC GENERIC-MAN-F) (ACTION THUG-F)>
|
|
<DEFINE-ROUTINE THUG-DESC>
|
|
<DEFINE-ROUTINE THUG-F>
|
|
<CONSTANT YOU-ATTACKS <LTABLE 0 "You butt your head into the man's face."
|
|
"You kick him in the shins and he skips aside."
|
|
"You feign momentary helplessness, then kick him viciously.">>
|
|
<CONSTANT THUG-ATTACKS <LTABLE 0
|
|
"The man leaps at you, trying to knock you down with a vicious
|
|
attack." "The prisoner tries to bite you."
|
|
"The thug kicks out, trying to trip you.">>
|
|
<DEFINE-ROUTINE START-FIGHT>
|
|
<DEFINE-ROUTINE I-PRISON>
|
|
<GLOBAL PRISON-CNT 0 %<> WORD>
|
|
<DEFINE-ROUTINE I-BULLDOG-EATS-IT>
|
|
<OBJECT BULLDOG (DESC "bulldog-like man") (SYNONYM MAN PRISONER BULLDOG AKABO
|
|
GONZALEZ) (ADJECTIVE BULLDOG BULLDOG-LIKE) (FLAGS PERSON JAPANESEBIT THE
|
|
NDESCBIT OPENBIT CONTBIT SEARCHBIT SCOREBIT) (GENERIC GENERIC-MAN-F) (ACTION
|
|
BULLDOG-F)>
|
|
<DEFINE-ROUTINE BULLDOG-F>
|
|
<OBJECT DOMINGO (SDESC "old priest") (DESC "old priest") (SCENE S-PRISON
|
|
S-MARIKO S-ESCAPE) (SYNONYM FATHER PRIEST MAN DOMINGO FRANCISCAN FRIAR EUROPEAN
|
|
) (ADJECTIVE OLD FATHER FRIAR) (FLAGS AN PERSON SPANISHBIT OPENBIT CONTBIT
|
|
SEARCHBIT SCOREBIT) (ACTION DOMINGO-F)>
|
|
<DEFINE-ROUTINE DOMINGO-STARES>
|
|
<DEFINE-ROUTINE DOMINGO-F>
|
|
<DEFINE-ROUTINE DOMINGO-OFFERS-HELP>
|
|
<CONSTANT DOMINGO-RAMBLES <LTABLE 0
|
|
"\"The Japanese truly have but one punishment -- death. They have almost
|
|
no other punishment. Imprisonment is not one of their punishments, my
|
|
son. To them, prison is just a temporary place to keep the man until they
|
|
decide his sentence. Only the guilty come here.\""
|
|
"\"Jesuits put me here, my son. Jesuits and their filthy lies.\""
|
|
"\"Thy ship was Spanish out of where? I'm so glad! The senor is from
|
|
Spanish Flanders? Or the Duchy of Brandenburg? Some part of our
|
|
Dominions in Germania?\""
|
|
"\"Oh, it's so good to talk the blessed mother tongue again.\""
|
|
"\"These men are my flock, senor. They are all my sons in the Blessed
|
|
Lord Jesus. I've converted so many here!\""
|
|
"\"I was put here in September -- it was in the year of our Lord
|
|
fifteen hundred ninety eight.\" You realize with a shock that this was
|
|
almost two years ago! Two years in this filthy hole!">>
|
|
<DEFINE-ROUTINE I-TEACH>
|
|
<OBJECT MADMAN (DESC "madman") (SYNONYM MADMAN MAN) (ADJECTIVE CRAZY MAD INSANE
|
|
POSSESSED) (FLAGS PERSON JAPANESEBIT) (GENERIC GENERIC-CRAZY-F) (ACTION
|
|
MADMAN-F)>
|
|
<DEFINE-ROUTINE MADMAN-F>
|
|
<DEFINE-ROUTINE I-MADMAN>
|
|
<DEFINE-ROUTINE I-BULLDOG>
|
|
<DEFINE-ROUTINE I-OUT-OF-PRISON>
|
|
<ROOM PRISON-COURTYARD (LOC ROOMS) (DESC "Prison Courtyard") (IN TO PRISON IF
|
|
IRON-DOOR IS OPEN) (WEST TO PRISON IF IRON-DOOR IS OPEN) (EAST TO
|
|
OUTSIDE-PRISON IF PRISON-GATE IS OPEN) (FLAGS ONBIT) (GLOBAL LG-LINE LG-MEN
|
|
PRISON-GATE) (THINGS <> PRISONER PRISONER-PSEUDO <> PRISONERS PRISONER-PSEUDO)
|
|
(ACTION PRISON-COURTYARD-F)>
|
|
<DEFINE-ROUTINE PRISON-COURTYARD-F>
|
|
<OBJECT OFFICIAL (LOC PRISON-COURTYARD) (DESC "official") (SYNONYM OFFICIAL) (
|
|
ADJECTIVE SOMBER) (FLAGS NDESCBIT PERSON JAPANESEBIT) (ACTION OFFICIAL-F)>
|
|
<DEFINE-ROUTINE OFFICIAL-F>
|
|
<DEFINE-ROUTINE I-LEAVE-PRISON>
|
|
<GLOBAL LEAVE-CNT 0 %<> WORD>
|
|
<OBJECT BANDIT-LEADER (DESC "bandit leader") (SYNONYM BANDIT LEADER RONIN) (
|
|
ADJECTIVE BANDIT) (FLAGS PERSON JAPANESEBIT) (GENERIC GENERIC-BANDIT-F) (ACTION
|
|
BANDIT-LEADER-F)>
|
|
<DEFINE-ROUTINE GENERIC-BANDIT-F>
|
|
<DEFINE-ROUTINE BANDIT-LEADER-F>
|
|
<OBJECT BANDITS (DESC "bandits") (SYNONYM BANDITS RONIN BANDIT ATTACKER
|
|
ATTACKERS) (FLAGS PERSON JAPANESEBIT PLURAL SCOREBIT) (GENERIC GENERIC-BANDIT-F
|
|
) (ACTION BANDITS-F)>
|
|
<DEFINE-ROUTINE BANDITS-F>
|
|
<OBJECT YABU-PALANQUIN (OWNER YABU) (SCENE S-PRISON) (DESC "palanquin") (
|
|
SYNONYM PALANQUIN LITTER) (FLAGS VEHBIT OPENBIT CONTBIT SEARCHBIT) (CAPACITY
|
|
100) (GENERIC GENERIC-LITTER-F) (ACTION YABU-PALANQUIN-F)>
|
|
<DEFINE-ROUTINE YABU-PALANQUIN-F>
|
|
<ROOM DEEP-WOODS (LOC ROOMS) (DESC "Deep in the Woods") (FLAGS ONBIT) (WEST TO
|
|
OUTSIDE-PRISON) (EAST PER DEEP-WOODS-EXIT) (GLOBAL LG-CASTLE CITY) (ACTION
|
|
DEEP-WOODS-F)>
|
|
<DEFINE-ROUTINE DEEP-WOODS-EXIT>
|
|
<DEFINE-ROUTINE DEEP-WOODS-F>
|
|
<OBJECT LG-CASTLE (LOC LOCAL-GLOBALS) (DESC "Osaka castle") (SYNONYM CASTLE) (
|
|
ADJECTIVE OSAKA)>
|
|
<OBJECT PRISON-GATE (LOC LOCAL-GLOBALS) (DESC "prison gate") (SYNONYM GATE) (
|
|
ADJECTIVE PRISON) (FLAGS DOORBIT TRYTAKEBIT) (ACTION PRISON-GATE-F)>
|
|
<DEFINE-ROUTINE PRISON-GATE-F>
|
|
<DEFINE-ROUTINE CROWD-PSEUDO>
|
|
<ROOM OUTSIDE-PRISON (LOC ROOMS) (DESC "Outside Prison") (WEST TO
|
|
PRISON-COURTYARD IF PRISON-GATE IS OPEN) (FLAGS ONBIT OUTSIDE) (THINGS LARGE
|
|
CROWD CROWD-PSEUDO SPRUCE CROWD CROWD-PSEUDO <> PRISONER PRISONER-PSEUDO <>
|
|
PRISONERS PRISONER-PSEUDO) (ACTION OUTSIDE-PRISON-F)>
|
|
<DEFINE-ROUTINE OUTSIDE-PRISON-F>
|
|
<DEFINE-ROUTINE PRISON-AFTER-F>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT MARIKO>
|
|
<ROOM MAPLE-GLADE (LOC ROOMS) (OWNER MAPLE-GLADE) (SCENE S-MARIKO) (AFTER
|
|
ALVITO-AFTER-F) (SCORE 3) (DESC "Glade of Maples") (FDESC
|
|
"And at last, Toranaga summons you.") (SYNONYM GLADE MAPLES) (FLAGS ONBIT
|
|
OUTSIDE SCOREBIT) (GLOBAL DOMINGO PRISON LG-CREWMEN TEA-HOUSE) (ACTION
|
|
MAPLE-GLADE-F)>
|
|
<DEFINE-ROUTINE MAPLE-GLADE-F>
|
|
<DEFINE-ROUTINE MARIKO-TELL-MARIKO-ABOUT>
|
|
<DEFINE-ROUTINE HOW-I-LEARNED>
|
|
<GLOBAL MARIKO-IMPATIENT 0>
|
|
<GLOBAL YAEMON-BORED? 0>
|
|
<DEFINE-ROUTINE I-YAEMON>
|
|
<GLOBAL YAEMON-CNT 0 %<> WORD>
|
|
<OBJECT PROPHECY (DESC "prophecy") (SYNONYM PROPHECY PREDICTION) (FLAGS
|
|
SCOREBIT)>
|
|
<OBJECT YAEMON (LOC GENERIC-OBJECTS) (SDESC "Yaemon") (SYNONYM BOY YAEMON HEIR)
|
|
(ADJECTIVE YOUNG) (FLAGS PERSON NOABIT NOTHEBIT JAPANESEBIT SCOREBIT) (ACTION
|
|
YAEMON-F)>
|
|
<DEFINE-ROUTINE YAEMON-F>
|
|
<DEFINE-ROUTINE ALVITO-AFTER-F>
|
|
<END-SEGMENT> |