title_screen = 
        "* Adams ADVENTURE * Version TI/001.2",
        "  Adventure  Box 3435  Longwood FL 32750",
        "",
        "  This program will allow you to have an",
        "adventure   without  ever  leaving  your",
        "armchair!  You  will find yourself in  a",
        "strange  new world.   You'll  be able to",
        "examine, take,  and otherwise manipulate",
        "the objects  you find  there.  You  will",
        "also be able to travel  from location to",
        "location.",
        "",
        "  I'll be your puppet in this adventure.",
        "You  command  me  with  2  word  English",
        "sentences.  I have a vocabulary of  over",
        "120  words, so if one word doesn't work,",
        "try another!",
        "",
        "  Some commands I know are: HELP, QUIT,",
        "SAVE GAME, SCORE, and TAKE INVENTORY.",
        "",
        "   The author has worked for over a year",
        "on this program, so please don't copy or",
        "accept a pirated copy!  Now press ENTER!"
        ;

word_length = 3;
light_time = 15000;
max_load = 9;

flag flag_00;
flag flag_01;
flag flag_02;
flag flag_03;
flag flag_04;
flag flag_05;
flag flag_06;
flag flag_07;
flag flag_08;
flag flag_09;
flag flag_10;
flag flag_11;
flag flag_12;
flag flag_13;
flag flag_14;
flag (night) flag_15;
flag (runout) flag_16;
flag flag_17;
flag flag_18;
flag flag_19;
flag flag_20;
flag flag_21;
flag flag_22;
flag flag_23;
flag flag_24;
flag flag_25;
flag flag_26;
flag flag_27;
flag flag_28;
flag flag_29;
flag flag_30;
flag flag_31;

timreg tr_00;
timreg tr_01;
timreg tr_02;
timreg tr_03;
timreg tr_04;
timreg tr_05;
timreg tr_06;
timreg tr_07;
timreg tr_08;
timreg tr_09;
timreg tr_10;
timreg tr_11;
timreg tr_12;
timreg tr_13;
timreg tr_14;
timreg tr_15;

roomreg rr_00;
roomreg rr_01;
roomreg rr_02;
roomreg rr_03;
roomreg rr_04;
roomreg rr_05;
roomreg rr_06;
roomreg rr_07;
roomreg rr_08;
roomreg rr_09;
roomreg rr_10;
roomreg rr_11;
roomreg rr_12;
roomreg rr_13;
roomreg rr_14;
roomreg rr_15;

noun(north) nor;
noun(south) sou;
noun(east)  eas;
noun(west)  wes;
noun(up)    up;
noun(down)  dow;
verb(go)    go;
verb(drop)  dro;
verb(get)   get, take;

# 98 messages

alias msg_000 = "";
alias msg_001 = "Count Cristo's been CURSED! There's one way for him to flee! Find it, and he'll go FREE!";
alias msg_002 = "It belongs to the Medium.";
alias msg_003 = "Spirit vibrations drive me from the room.";
alias msg_004 = "The print's too small for the unaided eye.";
alias msg_005 = "I can't do that.";
alias msg_006 = "Flying glass kills me!";
alias msg_007 = "Nothing happened.";
alias msg_008 = "The window's open.";
alias msg_009 = "The window just slammed shut!";
alias msg_010 = "For a reading, just 'SUMMON MEDIUM MAEGEN' today!!";
alias msg_011 = "I see nothing very special.";
alias msg_012 = "Phosphorescent letters are very hard to read in bright light!";
alias msg_013 = "Amongst the GRAVES is a four leaf clover.";
alias msg_014 = "The raven cries something outside.";
alias msg_015 = "One of the test tubes EXPLODED!";
alias msg_016 = "This glass can't be broken.";
alias msg_017 = "They appear to be mixable.";
alias msg_018 = "There's something written there.";
alias msg_019 = "A sepulchral voice says:";
alias msg_020 = "OK.";
alias msg_021 = "The safe's combination lock is numbered from 33 to 38.";
alias msg_022 = "The ring glows briefly & the door vanishes.";
alias msg_023 = "OUCH!";
alias msg_024 = "A sign here says:";
alias msg_025 = "There's a man here.";
alias msg_026 = "He's wearing a sapphire ring.";
alias msg_027 = "I slid back down.";
alias msg_028 = "A beam of light shines on a grave.";
alias msg_029 = "The pins fall out of the doll!";
alias msg_030 = "The plaque says: 'Safe --> 38 33'";
alias msg_031 = "This grave is reserved for you!";
alias msg_032 = "There's a CLAP OF THUNDER!";
alias msg_033 = "The Ju-Ju man says:'My bag is now yours! It's magic will help you -CRACK- the curse!'.";
alias msg_034 = "HURRAH! Look who is in the room!";
alias msg_035 = "I'm now 4 feet tall!";
alias msg_036 = "It's much to heavy to LIFT!";
alias msg_037 = "I'm too big.";
alias msg_038 = "You startled the Medium & she vanished.";
alias msg_039 = "On what?";
alias msg_040 = "A maid chased me with a broom, for tracking soot through the Ballroom! I wonder where I am?";
alias msg_041 = "The sweep pops out, thanks me, hands me a piece of paper, and then vanishes!";
alias msg_042 = "As I dust off the Idol, it begins to glow!";
alias msg_043 = "He's wearing a rabbit's foot.";
alias msg_044 = "HELP ME, I'm stuck!";
alias msg_045 = "Luck wasn't with me!";
alias msg_046 = "The doll looks like Count Cristo. There're pins in it!";
alias msg_047 = "The Bird says: 'Ask for ADVENTURE 5, -THE COUNT-, at your favorite computer dealer. It will be LOVE AT FIRST BYTE!'";
alias msg_048 = "There's some soup here.";
alias msg_049 = "I see a hole under it!";
alias msg_050 = "The nails were rusted, but I got them out.";
alias msg_051 = "It's hard work, but it seems to be coming loose.";
alias msg_052 = "I hear some strange sounds, as if someone were moaning.";
alias msg_053 = "I've got it!";
alias msg_054 = "A heavy-duty exhaust fan comes on & sucks me up!";
alias msg_055 = "It says: 'Say ZAP to restore someone changed to stone!'";
alias msg_056 = "The statue is made of stone.";
alias msg_057 = "I hear nothing.";
alias msg_058 = "They won't budge!";
alias msg_059 = "It won't budge!";
alias msg_060 = "He doesn't budge!";
alias msg_061 = "I'll need something to pry them off the wall!";
alias msg_062 = "It's a book on removing curses. It says: 'With knife in hand you take a stand. Circle coffin and...' The rest of the page is missing!!";
alias msg_063 = "It's very dark. The only light is from the idol.";
alias msg_064 = "That's illegal!";
alias msg_065 = "Double bubble toil & trouble, the incantations are about to peak!";
alias msg_066 = "There's an antique hammer here.";
alias msg_067 = "There's a Clap of Thunder, and suddenly the stone statue begins to crack. I may be in trouble now, there's someone in the room with me!";
alias msg_068 = "It looks almost like lemonade. Yummy!";
alias msg_069 = "You've been turned into a broomstick & a witch rides off on you!";
alias msg_070 = "There's witch's brew there.";
alias msg_071 = "The cell door slams shut!";
alias msg_072 = "You've been sprung.";
alias msg_073 = "...wave the stick and hold the lamp and don't forget to yell 'CHANT'! Oh yes, to help it succeed, a doll you'll need...";
alias msg_074 = "Welcome to ADVENTURE 4: 'VOODOO CASTLE' by Alexis ADAMS. Dedicated to all MOMS!";
alias msg_075 = "How?";
alias msg_076 = "It appears to be stuck to the floor!";
alias msg_077 = "There's no room in there for me!";
alias msg_078 = "My idol acted strangely.";
alias msg_079 = "I've no container.";
alias msg_080 = "Some dust fell off it and it glowed briefly.";
alias msg_081 = "It's very faint.";
alias msg_082 = "It's much louder up here.";
alias msg_083 = "There's a book there.";
alias msg_084 = "There's a stick there.";
alias msg_085 = "Boy, it looks dusty.";
alias msg_086 = "It's glowing.";
alias msg_087 = "Strange hobby you have.";
alias msg_088 = "Check out the fireplace.";
alias msg_089 = "It's empty.";
alias msg_090 = "I hear someone mumbling.";
alias msg_091 = "Saw the grating!";
alias msg_092 = "I haven't got a knife!";
alias msg_093 = "An inscription on the ring says: 'WAVE ME!'";
alias msg_094 = "The Medium appears and says: 'Keep a good luck charm on you & your friend. I also see a -moving- bag helping you through a tight squeeze!'";
alias msg_095 = "It will take some strong magic to get me through that!";
alias msg_096 = "Use a number!";
alias msg_097 = "The knife made no impression on it!";


# 25 rooms

room rm_001 
    "I am in a chapel.",
    n_to rm_009,
    s_to rm_002,
    e_to rm_004,
    w_to rm_010;

room rm_002 
    "I am in a Dingy-Looking Stairwell.",
    n_to rm_001,
    s_to rm_024,
    e_to rm_003,
    w_to rm_011;

room rm_003 
    "I am in a room in the castle.",
    n_to rm_005,
    w_to rm_002;

room rm_004 
    "I am in a Tunnel.",
    w_to rm_001;

room rm_005 
    "I am in a room in the castle.",
    s_to rm_003,
    e_to rm_007;

room rm_006 
    "I'm in Medium Maegen's Mad Room.",
    w_to rm_008;

room rm_007 
    "I am in a room in the castle.",
    e_to rm_017,
    w_to rm_005;

room rm_008 
    "I am in a room in the castle.";

room rm_009 
    "I am in a room in the castle.",
    s_to rm_001;

room rm_010 
    "I am in a Ballroom.",
    e_to rm_001;

room rm_011 
    "I am in a dungeon.",
    s_to rm_013,
    e_to rm_002;

room rm_012 
    "I'm in the Armory.",
    w_to rm_013;

room rm_013 
    "I am in a torture chamber.",
    n_to rm_011,
    e_to rm_012;

room rm_014 
    "I am in a chimney.",
    d_to rm_015;

room rm_015 
    "I am in a large fireplace.",
    s_to rm_010;

room rm_016 
    "I am in a room in the castle.",
    u_to rm_003;

room rm_017 
    "I am in a Lab.",
    w_to rm_007;

room rm_018 
    "I am in a narrow part of the chimney.",
    d_to rm_014;

room rm_019 
    "I am in a Graveyard.",
    e_to rm_013;

room rm_020 
    "I am in a parlor.",
    d_to rm_002;

room rm_021 
    "I am in a Jail Cell.";

room rm_022 
    "I'm on a ledge.",
    s_to rm_009;

room rm_023 
    "I am in a hidden VOODOO room.",
    s_to rm_008;

room rm_024 
    "I am in a room in the castle.",
    n_to rm_002;

room rm_025 
    "I am in a lot of TROUBLE!";

item itm_000 (kni) 
    "Bloody Knife" rm_004;

item itm_001 
    "Ledge" void;

item itm_002 (wri) 
    "Plaque" rm_008;

item itm_003 (hea) 
    "Animal heads" rm_005;

item itm_004 (gla) 
    "Broken glass" rm_002;

item itm_005 
    "Big kettle" rm_003;

item itm_006 
    "Dark hole" void;

item itm_007 (shi) 
    "Shield" rm_012;

item itm_008 
    "Stairs" rm_002;

item (light) itm_009 (ido) 
    "Brightly glowing idol" void;

item itm_010 
    "Open Window" rm_009;

item itm_011 
    "Dark Chimney" void;

item itm_012 
    "Closed Flue" rm_015;

item itm_013 
    "Open Flue" void;

item itm_014 (clo) 
    "Four leaf clover" void;

item itm_015 
    "Graves" rm_019;

item itm_016 (pot) 
    "Cast iron pot" rm_007;

item itm_017 
    "Closed Coffin" rm_001;

item itm_018 
    "Crystal Ball" rm_006;

item itm_019 
    "Closed Window" void;

item itm_020 
    "Large fireplace" rm_010;

item itm_021 (soo) 
    "Soot" rm_014;

item itm_022 
    "Tiny open door" rm_013;

item itm_023 
    "Spirit Medium" void;

item itm_024 (rin) 
    "Sapphire ring" void;

item itm_025 (bag) 
    "Ju-Ju bag" rm_017;

item itm_026 
    "Open Coffin" void;

item itm_027 
    "Slick chute leading downward" void;

item itm_028 
    "Ju-Ju man" void;

item itm_029 
    "Slippery chute leading upward" rm_008;

item itm_030 
    "Wide crack in the wall" void;

item itm_031 (foo) 
    "Rabbit's foot" rm_016;

item itm_032 (swo) 
    "Dull & broken sword" rm_012;

item itm_033 
    "Open Safe" void;

item itm_034 
    "Stuck Chimney Sweep" rm_018;

item itm_035 (tub) 
    "Test tubes" rm_017;

item itm_036 
    "Closed Safe" void;

item itm_037 (che) 
    "Labeled chemicals" rm_017;

item itm_038 (sho) 
    "Pocket Shovel" rm_011;

item itm_039 (che) 
    "Mixed Chemicals" void;

item itm_040 
    "Wide open door" void;

item itm_041 (nai) 
    "Nails" void;

item itm_042 (ido) 
    "Dusty Idol" rm_015;

item itm_043 (dol) 
    "Doll" rm_022;

item itm_044 (boa) 
    "Wooden boards" void;

item itm_045 (ham) 
    "Antique hammer" void;

item itm_046 
    "Grating" void;

item itm_047 (saw) 
    "Rusting SAW" rm_019;

item itm_048 
    "Button in the wall" void;

item itm_049 (pap) 
    "Paper" void;

item itm_050 (boo) 
    "Voodoo book" void;

item itm_051 (sta) 
    "Ju-Ju man statue" rm_020;

item itm_052 (sti) 
    "Stick" void;

item itm_053 
    "Open wall" void;

item itm_054 
    "Open jail cell" rm_011;

item itm_055 
    "Knight's Suit of Armor" rm_012;

item itm_056 
    "Closed cell door" rm_021;

item itm_057 (gra) 
    "Broken grating" void;

item itm_058 (lea) 
    "Advertising leaflet" rm_021;

item itm_059 
    "Crack in the wall" rm_008;

item itm_060 
    "Hole in the wall" rm_008;

item itm_061 (roc) 
    "Pieces of rock" void;

item itm_062 (pag) 
    "Page torn from a book" rm_023;

item itm_063 
    "Smiling Count Cristo!" void;

item itm_064 
    "Wooden boards nailed to the chimney wall." rm_014;

item itm_065 
    "Massive stone door with a SAPPHIRE set into it." rm_004;

act auto 25
{
    here (itm_010);        # Open Window
    msg_014;    # "The raven cries something outside.";
    
}

act auto 100
{
    in (rm_009);
    here (itm_010);        # Open Window
    !avail (itm_014);        # Four leaf clover
    msg_009;    # "The window just slammed shut!";
    swap itm_010, itm_019;        # Open Window        # Closed Window
    
}

act auto 100
{
    !in (rm_009);
    exists (itm_019);        # Closed Window
    swap itm_010, itm_019;        # Open Window        # Closed Window
    
}

act auto 45
{
    in (rm_019);
    !exists (itm_014);        # Four leaf clover
    msg_028;    # "A beam of light shines on a grave.";
    
}

act auto 30
{
    avail (itm_035);        # Test tubes
    !has (itm_007);        # Shield
    msg_015;    # "One of the test tubes EXPLODED!";
    msg_006;    # "Flying glass kills me!";
    ignore;
    quit;
    
}

act auto 30
{
    avail (itm_035);        # Test tubes
    has (itm_007);        # Shield
    msg_015;    # "One of the test tubes EXPLODED!";
    
}

act auto 100
{
    in (rm_015);
    set (flag_15);
    off flag_15;
    
}

act auto 50
{
    has (itm_021);        # Soot
    in (rm_010);
    msg_040;    # "A maid chased me with a broom, for tracking soot through the Ballroom! I wonder where I am?";
    goto rm_011;
    
}

act auto 100
{
    in (rm_003);
    set (flag_15);
    off flag_15;
    
}

act auto 100
{
    in (rm_018);
    exists (itm_034);        # Stuck Chimney Sweep
    msg_052;    # "I hear some strange sounds, as if someone were moaning.";
    
}

act auto 35
{
    in (rm_014);
    exists (itm_034);        # Stuck Chimney Sweep
    msg_052;    # "I hear some strange sounds, as if someone were moaning.";
    
}

act auto 35
{
    in (rm_015);
    exists (itm_034);        # Stuck Chimney Sweep
    msg_052;    # "I hear some strange sounds, as if someone were moaning.";
    
}

act auto 100
{
    in (rm_025);
    msg_045;    # "Luck wasn't with me!";
    quit;
    
}

act auto 100
{
    !set (flag_07);
    msg_074;    # "Welcome to ADVENTURE 4: 'VOODOO CASTLE' by Alexis ADAMS. Dedicated to all MOMS!";
    on flag_07;
    
}

act auto 7
{
    has (itm_042);        # Dusty Idol
    msg_078;    # "My idol acted strangely.";
    msg_080;    # "Some dust fell off it and it glowed briefly.";
    
}

act auto 35
{
    avail (itm_028);        # Ju-Ju man
    msg_090;    # "I hear someone mumbling.";
    
}


act go cel
{
    here (itm_054);        # Open jail cell
    !here (itm_014);        # Four leaf clover
    msg_071;    # "The cell door slams shut!";
    goto rm_021;
    
}

act go sta
{
    here (itm_008);        # Stairs
    goto rm_020;
    
}

act go hol
{
    here (itm_006);        # Dark hole
    goto rm_016;
    on flag_15;
    
}

act go flu
{
    in (rm_015);
    here (itm_013);        # Open Flue
    on flag_15;
    goto rm_014;
    
}

act go fir
{
    here (itm_020);        # Large fireplace
    goto rm_015;
    
}

act go chu
{
    here (itm_027);        # Slick chute leading downward
    msg_020;    # "OK.";
    goto rm_008;
    
}

act go chu
{
    here (itm_029);        # Slippery chute leading upward
    msg_027;    # "I slid back down.";
    
}

act go chi
{
    here (itm_013);        # Open Flue
    goto rm_014;
    on flag_15;
    
}

act go doo
{
    here (itm_022);        # Tiny open door
    msg_005;    # "I can't do that.";
    msg_037;    # "I'm too big.";
    msg_095;    # "It will take some strong magic to get me through that!";
    
}

act go pot
{
    here (itm_054);        # Open jail cell
    msg_020;    # "OK.";
    
}

act go win
{
    here (itm_010);        # Open Window
    goto rm_022;
    msg_020;    # "OK.";
    
}

act go cra
{
    here (itm_030);        # Wide crack in the wall
    msg_020;    # "OK.";
    goto rm_023;
    
}

act go led
{
    in (rm_009);
    here (itm_001);        # Ledge
    msg_047;    # "The Bird says: 'Ask for ADVENTURE 5, -THE COUNT-, at your favorite computer dealer. It will be LOVE AT FIRST BYTE!'";
    
}

act go cof
{
    here (itm_026);        # Open Coffin
    msg_077;    # "There's no room in there for me!";
    
}

act go hol
{
    here (itm_060);        # Hole in the wall
    goto rm_006;
    msg_038;    # "You startled the Medium & she vanished.";
    zap itm_023;        # Spirit Medium
    
}

act go doo
{
    here (itm_040);        # Wide open door
    goto rm_019;
    
}

act go cra
{
    here (itm_059);        # Crack in the wall
    msg_005;    # "I can't do that.";
    msg_037;    # "I'm too big.";
    msg_095;    # "It will take some strong magic to get me through that!";
    
}

act mov ket
{
    here (itm_005);        # Big kettle
    !here (itm_006);        # Dark hole
    drop itm_006;        # Dark hole
    msg_020;    # "OK.";
    
}

act mov ket
{
    here (itm_006);        # Dark hole
    here (itm_006);        # Dark hole
    zap itm_006;        # Dark hole
    
}

act mov arm
{
    avail (itm_055);        # Knight's Suit of Armor
    msg_020;    # "OK.";
    
}

act bre win
{
    here (itm_019);        # Closed Window
    msg_016;    # "This glass can't be broken.";
    
}

act bre bal
{
    in (rm_006);
    msg_028;    # "A beam of light shines on a grave.";
    msg_031;    # "This grave is reserved for you!";
    die;
    
}

act bre tub
{
    avail (itm_035);        # Test tubes
    !has (itm_007);        # Shield
    msg_015;    # "One of the test tubes EXPLODED!";
    msg_006;    # "Flying glass kills me!";
    ignore;
    quit;
    
}

act bre sta
{
    avail (itm_051);        # Ju-Ju man statue
    msg_020;    # "OK.";
    swap itm_051, itm_061;        # Ju-Ju man statue        # Pieces of rock
    
}

act get swe
{
    here (itm_034);        # Stuck Chimney Sweep
    msg_060;    # "He doesn't budge!";
    
}

act get gra
{
    avail (itm_057);        # Broken grating
    msg_020;    # "OK.";
    get itm_057;        # Broken grating
    
}

act get inv
{
    .inv;
    
}

act get bal
{
    here (itm_018);        # Crystal Ball
    msg_019;    # "A sepulchral voice says:";
    msg_002;    # "It belongs to the Medium.";
    
}

act get clo
{
    here (itm_014);        # Four leaf clover
    get itm_014;        # Four leaf clover
    
}

act get clo
{
    !exists (itm_014);        # Four leaf clover
    in (rm_019);
    get itm_014;        # Four leaf clover
    msg_020;    # "OK.";
    
}

act get rin
{
    here (itm_026);        # Open Coffin
    !exists (itm_024);        # Sapphire ring
    get itm_024;        # Sapphire ring
    msg_020;    # "OK.";
    
}

act get arm
{
    here (itm_055);        # Knight's Suit of Armor
    msg_005;    # "I can't do that.";
    msg_036;    # "It's much to heavy to LIFT!";
    
}

act get bag
{
    avail (itm_025);        # Ju-Ju bag
    exists (itm_028);        # Ju-Ju man
    get itm_025;        # Ju-Ju bag
    msg_020;    # "OK.";
    
}

act get hea
{
    !set (flag_00);
    avail (itm_032);        # Dull & broken sword
    here (itm_003);        # Animal heads
    get itm_003;        # Animal heads
    drop itm_036;        # Closed Safe
    msg_020;    # "OK.";
    on flag_00;
    
}

act get hea
{
    set (flag_00);
    avail (itm_003);        # Animal heads
    get itm_003;        # Animal heads
    msg_020;    # "OK.";
    
}

act get ket
{
    here (itm_005);        # Big kettle
    msg_005;    # "I can't do that.";
    msg_036;    # "It's much to heavy to LIFT!";
    
}

act get hea
{
    !set (flag_00);
    avail (itm_003);        # Animal heads
    msg_058;    # "They won't budge!";
    msg_061;    # "I'll need something to pry them off the wall!";
    
}

act get pin
{
    here (itm_043);        # Doll
    msg_005;    # "I can't do that.";
    msg_058;    # "They won't budge!";
    
}

act get nai
{
    avail (itm_041);        # Nails
    msg_020;    # "OK.";
    get itm_041;        # Nails
    
}

act get foo
{
    !exists (itm_031);        # Rabbit's foot
    here (itm_026);        # Open Coffin
    get itm_031;        # Rabbit's foot
    msg_020;    # "OK.";
    
}

act get foo
{
    avail (itm_031);        # Rabbit's foot
    get itm_031;        # Rabbit's foot
    msg_020;    # "OK.";
    
}

act get ham
{
    avail (itm_045);        # Antique hammer
    get itm_045;        # Antique hammer
    msg_020;    # "OK.";
    
}

act get ham
{
    here (itm_033);        # Open Safe
    !set (flag_05);
    get itm_045;        # Antique hammer
    msg_020;    # "OK.";
    on flag_05;
    
}

act get bag
{
    here (itm_025);        # Ju-Ju bag
    msg_076;    # "It appears to be stuck to the floor!";
    
}

act get sou
{
    here (itm_005);        # Big kettle
    msg_079;    # "I've no container.";
    
}

act get boo
{
    avail (itm_025);        # Ju-Ju bag
    exists (itm_028);        # Ju-Ju man
    !exists (itm_050);        # Voodoo book
    get itm_050;        # Voodoo book
    msg_020;    # "OK.";
    
}

act get boo
{
    avail (itm_050);        # Voodoo book
    get itm_050;        # Voodoo book
    msg_020;    # "OK.";
    
}

act get sti
{
    avail (itm_025);        # Ju-Ju bag
    !exists (itm_052);        # Stick
    exists (itm_028);        # Ju-Ju man
    get itm_052;        # Stick
    msg_020;    # "OK.";
    
}

act get sti
{
    avail (itm_052);        # Stick
    get itm_052;        # Stick
    msg_020;    # "OK.";
    
}

act get nai
{
    here (itm_064);        # Wooden boards nailed to the chimney wall.
    has (itm_045);        # Antique hammer
    msg_050;    # "The nails were rusted, but I got them out.";
    swap itm_064, itm_044;        # Wooden boards nailed to the chimney wall.        # Wooden boards
    steal itm_041;        # Nails
    
}

act get boa
{
    avail (itm_044);        # Wooden boards
    !set (flag_08);
    get itm_044;        # Wooden boards
    drop itm_046;        # Grating
    on flag_08;
    
}

act get boa
{
    avail (itm_044);        # Wooden boards
    get itm_044;        # Wooden boards
    msg_020;    # "OK.";
    
}

act get bre
{
    msg_079;    # "I've no container.";
    
}

act get rin
{
    here (itm_024);        # Sapphire ring
    get itm_024;        # Sapphire ring
    msg_020;    # "OK.";
    
}

act hel any
{
    in (rm_010);
    msg_088;    # "Check out the fireplace.";
    
}

act hel any
{
    here (itm_046);        # Grating
    msg_091;    # "Saw the grating!";
    
}

act hel swe
{
    here (itm_034);        # Stuck Chimney Sweep
    msg_075;    # "How?";
    
}

act hel any
{
    msg_007;    # "Nothing happened.";
    
}

act inv any
{
    .inv;
    
}

act dro foo
{
    has (itm_031);        # Rabbit's foot
    msg_039;    # "On what?";
    
}

act dig gra
{
    avail (itm_038);        # Pocket Shovel
    msg_019;    # "A sepulchral voice says:";
    msg_087;    # "Strange hobby you have.";
    
}

act dig any
{
    avail (itm_038);        # Pocket Shovel
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    
}

act on man
{
    avail (itm_031);        # Rabbit's foot
    here (itm_026);        # Open Coffin
    msg_020;    # "OK.";
    msg_032;    # "There's a CLAP OF THUNDER!";
    zap itm_031;        # Rabbit's foot
    
}

act on flo
{
    has (itm_031);        # Rabbit's foot
    drop itm_031;        # Rabbit's foot
    msg_020;    # "OK.";
    
}

act wav bag
{
    in (rm_008);
    !exists (itm_030);        # Wide crack in the wall
    avail (itm_025);        # Ju-Ju bag
    msg_032;    # "There's a CLAP OF THUNDER!";
    delay;
    delay;
    swap itm_030, itm_059;        # Wide crack in the wall        # Crack in the wall
    
}

act wav rin
{
    here (itm_065);        # Massive stone door with a SAPPHIRE set into it.
    has (itm_024);        # Sapphire ring
    swap itm_027, itm_065;        # Slick chute leading downward        # Massive stone door with a SAPPHIRE set into it.
    msg_022;    # "The ring glows briefly & the door vanishes.";
    
}

act wav sti
{
    avail (itm_043);        # Doll
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    delay;
    try
    {
        avail (itm_009);        # Brightly glowing idol
        in (rm_001);
        set (flag_03);
        delay;
        msg_032;        # "There's a CLAP OF THUNDER!";
        msg_065;        # "Double bubble toil & trouble, the incantations are about to peak!";
        on flag_06;
    }
    
}

act wav any
{
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    
}

act pre swe
{
    in (rm_018);
    here (itm_034);        # Stuck Chimney Sweep
    msg_041;    # "The sweep pops out, thanks me, hands me a piece of paper, and then vanishes!";
    zap itm_034;        # Stuck Chimney Sweep
    steal itm_049;        # Paper
    
}

act pre but
{
    here (itm_048);        # Button in the wall
    msg_054;    # "A heavy-duty exhaust fan comes on & sucks me up!";
    goto rm_018;
    
}

act sav gam
{
    save;
    
}

act rea wri
{
    avail (itm_002);        # Plaque
    avail (itm_004);        # Broken glass
    set (flag_15);
    msg_030;    # "The plaque says: 'Safe --> 38 33'";
    
}

act rea boo
{
    avail (itm_050);        # Voodoo book
    msg_062;    # "It's a book on removing curses. It says: 'With knife in hand you take a stand. Circle coffin and...' The rest of the page is missing!!";
    
}

act rea lab
{
    avail (itm_037);        # Labeled chemicals
    msg_017;    # "They appear to be mixable.";
    
}

act rea pap
{
    avail (itm_049);        # Paper
    msg_055;    # "It says: 'Say ZAP to restore someone changed to stone!'";
    
}

act rea pag
{
    avail (itm_062);        # Page torn from a book
    msg_073;    # "...wave the stick and hold the lamp and don't forget to yell 'CHANT'! Oh yes, to help it succeed, a doll you'll need...";
    
}

act rea wri
{
    avail (itm_002);        # Plaque
    !avail (itm_004);        # Broken glass
    msg_005;    # "I can't do that.";
    msg_004;    # "The print's too small for the unaided eye.";
    
}

act rea wri
{
    avail (itm_002);        # Plaque
    avail (itm_004);        # Broken glass
    msg_005;    # "I can't do that.";
    msg_012;    # "Phosphorescent letters are very hard to read in bright light!";
    
}

act rea lea
{
    avail (itm_058);        # Advertising leaflet
    msg_020;    # "OK.";
    msg_010;    # "For a reading, just 'SUMMON MEDIUM MAEGEN' today!!";
    
}

act rea rin
{
    avail (itm_024);        # Sapphire ring
    msg_093;    # "An inscription on the ring says: 'WAVE ME!'";
    
}

act ope cel
{
    !has (itm_014);        # Four leaf clover
    msg_005;    # "I can't do that.";
    
}

act ope flu
{
    here (itm_012);        # Closed Flue
    swap itm_012, itm_013;        # Closed Flue        # Open Flue
    msg_020;    # "OK.";
    drop itm_011;        # Dark Chimney
    
}

act ope doo
{
    in (rm_013);
    msg_020;    # "OK.";
    
}

act ope cof
{
    here (itm_017);        # Closed Coffin
    swap itm_017, itm_026;        # Closed Coffin        # Open Coffin
    msg_020;    # "OK.";
    
}

act ope doo
{
    here (itm_065);        # Massive stone door with a SAPPHIRE set into it.
    msg_005;    # "I can't do that.";
    msg_059;    # "It won't budge!";
    
}

act ope saf
{
    in (rm_005);
    here (itm_033);        # Open Safe
    msg_020;    # "OK.";
    
}

act ope bag
{
    exists (itm_028);        # Ju-Ju man
    avail (itm_025);        # Ju-Ju bag
    msg_020;    # "OK.";
    
}

act ope saf
{
    here (itm_036);        # Closed Safe
    msg_021;    # "The safe's combination lock is numbered from 33 to 38.";
    
}

act ope win
{
    here (itm_019);        # Closed Window
    msg_059;    # "It won't budge!";
    
}

act clo flu
{
    here (itm_013);        # Open Flue
    swap itm_012, itm_013;        # Closed Flue        # Open Flue
    msg_020;    # "OK.";
    zap itm_011;        # Dark Chimney
    
}

act clo cof
{
    here (itm_026);        # Open Coffin
    swap itm_017, itm_026;        # Closed Coffin        # Open Coffin
    msg_020;    # "OK.";
    
}

act clo doo
{
    msg_059;    # "It won't budge!";
    
}

act tur 38
{
    !set (flag_01);
    here (itm_036);        # Closed Safe
    on flag_01;
    msg_020;    # "OK.";
    
}

act tur 33
{
    set (flag_01);
    here (itm_036);        # Closed Safe
    swap itm_033, itm_036;        # Open Safe        # Closed Safe
    msg_020;    # "OK.";
    
}

act tur 34
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act tur 35
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act tur 36
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act tur 37
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act tur loc
{
    here (itm_036);        # Closed Safe
    msg_096;    # "Use a number!";
    
}

act tur 33
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act tur 38
{
    here (itm_036);        # Closed Safe
    off flag_01;
    msg_020;    # "OK.";
    
}

act loo wri
{
    avail (itm_002);        # Plaque
    msg_018;    # "There's something written there.";
    
}

act loo gra
{
    here (itm_015);        # Graves
    !exists (itm_014);        # Four leaf clover
    msg_013;    # "Amongst the GRAVES is a four leaf clover.";
    msg_024;    # "A sign here says:";
    msg_031;    # "This grave is reserved for you!";
    
}

act loo gra
{
    here (itm_015);        # Graves
    exists (itm_014);        # Four leaf clover
    msg_024;    # "A sign here says:";
    msg_031;    # "This grave is reserved for you!";
    
}

act loo saf
{
    here (itm_036);        # Closed Safe
    msg_021;    # "The safe's combination lock is numbered from 33 to 38.";
    
}

act loo saf
{
    here (itm_033);        # Open Safe
    !exists (itm_045);        # Antique hammer
    drop itm_045;        # Antique hammer
    msg_066;    # "There's an antique hammer here.";
    
}

act loo lea
{
    avail (itm_058);        # Advertising leaflet
    msg_018;    # "There's something written there.";
    
}

act loo bal
{
    in (rm_006);
    here (itm_018);        # Crystal Ball
    msg_011;    # "I see nothing very special.";
    goto rm_004;
    msg_003;    # "Spirit vibrations drive me from the room.";
    
}

act loo bag
{
    avail (itm_025);        # Ju-Ju bag
    !exists (itm_050);        # Voodoo book
    exists (itm_052);        # Stick
    msg_083;    # "There's a book there.";
    
}

act loo che
{
    avail (itm_039);        # Mixed Chemicals
    msg_068;    # "It looks almost like lemonade. Yummy!";
    
}

act loo saf
{
    in (rm_005);
    here (itm_033);        # Open Safe
    exists (itm_045);        # Antique hammer
    msg_020;    # "OK.";
    msg_089;    # "It's empty.";
    
}

act loo bag
{
    avail (itm_025);        # Ju-Ju bag
    !exists (itm_052);        # Stick
    !exists (itm_050);        # Voodoo book
    exists (itm_028);        # Ju-Ju man
    msg_083;    # "There's a book there.";
    msg_084;    # "There's a stick there.";
    
}

act loo dol
{
    avail (itm_043);        # Doll
    msg_046;    # "The doll looks like Count Cristo. There're pins in it!";
    
}

act loo cof
{
    here (itm_026);        # Open Coffin
    msg_024;    # "A sign here says:";
    msg_001;    # "Count Cristo's been CURSED! There's one way for him to flee! Find it, and he'll go FREE!";
    msg_025;    # "There's a man here.";
    try
    {
        !exists (itm_031);        # Rabbit's foot
        msg_043;        # "He's wearing a rabbit's foot.";
    }
    try
    {
        !exists (itm_024);        # Sapphire ring
        msg_026;        # "He's wearing a sapphire ring.";
    }
    
}

act loo che
{
    avail (itm_037);        # Labeled chemicals
    msg_017;    # "They appear to be mixable.";
    
}

act loo pot
{
    avail (itm_016);        # Cast iron pot
    msg_070;    # "There's witch's brew there.";
    
}

act loo ket
{
    here (itm_005);        # Big kettle
    in (rm_003);
    !exists (itm_006);        # Dark hole
    msg_020;    # "OK.";
    msg_049;    # "I see a hole under it!";
    msg_048;    # "There's some soup here.";
    
}

act loo sta
{
    avail (itm_051);        # Ju-Ju man statue
    msg_056;    # "The statue is made of stone.";
    
}

act loo cel
{
    in (rm_011);
    msg_011;    # "I see nothing very special.";
    
}

act loo rin
{
    avail (itm_024);        # Sapphire ring
    msg_018;    # "There's something written there.";
    
}

act loo bag
{
    exists (itm_050);        # Voodoo book
    !exists (itm_052);        # Stick
    exists (itm_028);        # Ju-Ju man
    avail (itm_025);        # Ju-Ju bag
    msg_084;    # "There's a stick there.";
    
}

act loo ido
{
    avail (itm_042);        # Dusty Idol
    msg_085;    # "Boy, it looks dusty.";
    msg_011;    # "I see nothing very special.";
    
}

act loo ido
{
    avail (itm_009);        # Brightly glowing idol
    msg_086;    # "It's glowing.";
    
}

act loo any
{
    msg_011;    # "I see nothing very special.";
    
}

act dus ido
{
    avail (itm_042);        # Dusty Idol
    msg_042;    # "As I dust off the Idol, it begins to glow!";
    swap itm_009, itm_042;        # Brightly glowing idol        # Dusty Idol
    
}

act cir cof
{
    in (rm_001);
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    delay;
    try
    {
        !exists (itm_031);        # Rabbit's foot
        avail (itm_009);        # Brightly glowing idol
        has (itm_000);        # Bloody Knife
        on flag_03;
        msg_032;        # "There's a CLAP OF THUNDER!";
        on flag_15;
        msg_063;        # "It's very dark. The only light is from the idol.";
    }
    
}

act qui any
{
    quit;
    
}

act dri bre
{
    avail (itm_016);        # Cast iron pot
    msg_032;    # "There's a CLAP OF THUNDER!";
    delay;
    msg_069;    # "You've been turned into a broomstick & a witch rides off on you!";
    ignore;
    quit;
    
}

act dri che
{
    avail (itm_039);        # Mixed Chemicals
    msg_032;    # "There's a CLAP OF THUNDER!";
    swap itm_040, itm_022;        # Wide open door        # Tiny open door
    zap itm_037;        # Labeled chemicals
    zap itm_039;        # Mixed Chemicals
    delay;
    delay;
    msg_035;    # "I'm now 4 feet tall!";
    
}

act dri sou
{
    here (itm_005);        # Big kettle
    msg_020;    # "OK.";
    zap itm_044;        # Wooden boards
    
}

act saw gra
{
    here (itm_046);        # Grating
    has (itm_047);        # Rusting SAW
    msg_051;    # "It's hard work, but it seems to be coming loose.";
    msg_020;    # "OK.";
    zap itm_046;        # Grating
    drop itm_048;        # Button in the wall
    delay;
    msg_053;    # "I've got it!";
    steal itm_057;        # Broken grating
    
}

act saw any
{
    has (itm_047);        # Rusting SAW
    here (itm_056);        # Closed cell door
    msg_072;    # "You've been sprung.";
    goto rm_011;
    
}

act saw any
{
    has (itm_047);        # Rusting SAW
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    
}

act mix che
{
    avail (itm_037);        # Labeled chemicals
    swap itm_039, itm_037;        # Mixed Chemicals        # Labeled chemicals
    msg_020;    # "OK.";
    
}

act shr any
{
    msg_075;    # "How?";
    
}

act lis any
{
    avail (itm_028);        # Ju-Ju man
    msg_033;    # "The Ju-Ju man says:'My bag is now yours! It's magic will help you -CRACK- the curse!'.";
    
}

act lis any
{
    in (rm_015);
    exists (itm_034);        # Stuck Chimney Sweep
    msg_052;    # "I hear some strange sounds, as if someone were moaning.";
    msg_081;    # "It's very faint.";
    
}

act lis any
{
    exists (itm_034);        # Stuck Chimney Sweep
    in (rm_014);
    msg_052;    # "I hear some strange sounds, as if someone were moaning.";
    msg_082;    # "It's much louder up here.";
    
}

act lis cry
{
    in (rm_009);
    msg_047;    # "The Bird says: 'Ask for ADVENTURE 5, -THE COUNT-, at your favorite computer dealer. It will be LOVE AT FIRST BYTE!'";
    
}

act lis any
{
    here (itm_034);        # Stuck Chimney Sweep
    msg_044;    # "HELP ME, I'm stuck!";
    
}

act lis any
{
    msg_057;    # "I hear nothing.";
    
}

act sha swo
{
    in (rm_000);
    
}

act sli any
{
    here (itm_027);        # Slick chute leading downward
    goto rm_008;
    
}

act dan any
{
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    
}

act yel med
{
    !exists (itm_023);        # Spirit Medium
    in (rm_006);
    msg_020;    # "OK.";
    .noun_nl;
    drop itm_023;        # Spirit Medium
    msg_094;    # "The Medium appears and says: 'Keep a good luck charm on you & your friend. I also see a -moving- bag helping you through a tight squeeze!'";
    
}

act yel zap
{
    avail (itm_051);        # Ju-Ju man statue
    zap itm_051;        # Ju-Ju man statue
    drop itm_028;        # Ju-Ju man
    .noun_nl;
    msg_067;    # "There's a Clap of Thunder, and suddenly the stone statue begins to crack. I may be in trouble now, there's someone in the room with me!";
    msg_090;    # "I hear someone mumbling.";
    
}

act yel cha
{
    in (rm_001);
    avail (itm_009);        # Brightly glowing idol
    avail (itm_014);        # Four leaf clover
    set (flag_06);
    avail (itm_043);        # Doll
    msg_032;    # "There's a CLAP OF THUNDER!";
    delay;
    msg_029;    # "The pins fall out of the doll!";
    drop itm_063;        # Smiling Count Cristo!
    msg_034;    # "HURRAH! Look who is in the room!";
    success;
    quit;
    
}

act yel any
{
    msg_020;    # "OK.";
    .noun_nl;
    msg_007;    # "Nothing happened.";
    
}

act cut ido
{
    avail (itm_042);        # Dusty Idol
    avail (itm_000);        # Bloody Knife
    msg_078;    # "My idol acted strangely.";
    msg_080;    # "Some dust fell off it and it glowed briefly.";
    
}

act cut any
{
    avail (itm_000);        # Bloody Knife
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    msg_097;    # "The knife made no impression on it!";
    
}

act cut any
{
    !has (itm_000);        # Bloody Knife
    msg_005;    # "I can't do that.";
    msg_092;    # "I haven't got a knife!";
    
}

act rub ido
{
    avail (itm_042);        # Dusty Idol
    msg_078;    # "My idol acted strangely.";
    msg_080;    # "Some dust fell off it and it glowed briefly.";
    
}

act rub rin
{
    avail (itm_024);        # Sapphire ring
    msg_018;    # "There's something written there.";
    
}

act rub any
{
    msg_020;    # "OK.";
    msg_007;    # "Nothing happened.";
    
}

act smo pot
{
    msg_064;    # "That's illegal!";
    
}

act hug dol
{
    avail (itm_043);        # Doll
    msg_023;    # "OUCH!";
    
}


treasure=rm_000;
initial=rm_001;