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 = 10000;
max_load = 7;

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;

# 80 messages

alias msg_000 = "";
alias msg_001 = "Good morning, Mr. Phelps. Your Mission (should you decide to accept it) is to prevent this automated nuclear reactor from being destroyed by a saboteur's TIME BOMB!";
alias msg_002 = "Nothing happened.";
alias msg_003 = "My bomb detector";
alias msg_004 = "wails ALARMINGLY!";
alias msg_005 = "CLICK!";
alias msg_006 = "I can't do that.";
alias msg_007 = "It appears locked.";
alias msg_008 = "button is now unlocked.";
alias msg_009 = "The blue";
alias msg_010 = "The yellow";
alias msg_011 = "There's a Bright flash & I hear something fall to the floor. I can't see what it is from here, though.";
alias msg_012 = "* * * * B O O O O O O O O M ! * * * *";
alias msg_013 = "The saboteur (who has also rewired the security system) is a heart patient. He plans to commit SUICIDE with the reactor! He is still loose in the building.";
alias msg_014 = "You'll find Security keys & a map in the manila envelope lying next to the tape player.";
alias msg_015 = "politely beeps...";
alias msg_016 = "angrily buzzes...";
alias msg_017 = "Strange...";
alias msg_018 = "Most doors & windows are under automated security control.";
alias msg_019 = "A metallic voice says:";
alias msg_020 = "'Show authorization, please.'";
alias msg_021 = "'Authorization INSUFFICIENT for access.'";
alias msg_022 = "The door opens just long enough for me to scurry through.";
alias msg_023 = "I'm on the 2nd floor. Below, I see the control room surrounding the reactor core. There's a wide ledge just under the window.";
alias msg_024 = "In this Adventure there is NO scoring. Either you make it or ...";
alias msg_025 = "Tell me with what? Example: 'WITH FIST'";
alias msg_026 = "Be sure I'm carrying it!";
alias msg_027 = "The recorder goes flying through the glass, and lands in the control room. Boy, what a mess!";
alias msg_028 = "Click! The room lights dim, and         a screen drops from the ceiling.        You hear a hidden projector start.     ";
alias msg_029 = "The screen illuminates for awhile, but there's no movie!?";
alias msg_030 = "The projector stops, the screen rises, and the lights return.";
alias msg_031 = "A movie runs, telling about the reactor and it's construction.                    Interesting highlights:              ";
alias msg_032 = "    1) Plastic DEFORMS strangely in            radiation.                           2) Even short exposure to HIGH             radiation is LETHAL, so suit up!";
alias msg_033 = "The radiation did something to my pail!";
alias msg_034 = "Holding a Radiation Suit";
alias msg_035 = "doesn't provide much protection for me. As I fall down retching, I hear/feel the BOMB explode!";
alias msg_036 = "Welcome to Adventure number 3: 'MISSION IMPOSSIBLE' by Scott Adams, dedicated to Maegen Adams.";
alias msg_037 = "A business suit";
alias msg_038 = "It won't budge!";
alias msg_039 = "Something won't fit through the door.";
alias msg_040 = "I turn the knob and push";
alias msg_041 = "gently on the door...";
alias msg_042 = "hard on the door...";
alias msg_043 = "It opens slightly.";
alias msg_044 = "It's closed.";
alias msg_045 = "The water spills on the bomb and";
alias msg_046 = "the control panel, which immediately shorts out, triggering the BOMB!";
alias msg_047 = "defuses it! FANTASTIC, You completed an IMPOSSIBLE mission!";
alias msg_048 = "The water soaks into the floor.";
alias msg_049 = "Say that again, but use a color!";
alias msg_050 = "I'm looking into the control room. I notice that the door is blocked by some debris.";
alias msg_051 = "In the distance you hear a dull thud, as if someone fell or dropped something heavy.";
alias msg_052 = "Something fell to the floor.";
alias msg_053 = "It's unreadable.";
alias msg_054 = "It's still connected.";
alias msg_055 = "Oh Boy... I think I did something...";
alias msg_056 = "It made an odd sound.";
alias msg_057 = "'TV deactivated.'";
alias msg_058 = "I don't know where to look.";
alias msg_059 = "Tell me how?";
alias msg_060 = "Try starting it.";
alias msg_061 = "Perhaps I should FRISK him?";
alias msg_062 = "It's a seamless box with 1 small hole for the red wire.";
alias msg_063 = "The TV camera is slowly scanning the window area.";
alias msg_064 = "The TV camera is powered down.";
alias msg_065 = "It seems safe. Shall I sit down?";
alias msg_066 = "The only help I can think of is to: 'Examine everything closely!'";
alias msg_067 = "I see nothing special.";
alias msg_068 = "HUH?";
alias msg_069 = "A minute ago someone ran out of this room! By the way, I seem to be carrying something.";
alias msg_070 = "Someone came into the room! He saw me, and ran out!";
alias msg_071 = "I see no one here.";
alias msg_072 = "'The owner of the badge is not present!'";
alias msg_073 = "Hi! Look for Adventure number 4: 'VOODOO CASTLE' at your favorite computer store! (Now back to our current program.)";
alias msg_074 = "The Final Countdown starts in";
alias msg_075 = "turns!";
alias msg_076 = "Some time passes...";
alias msg_077 = "There is something written there.";
alias msg_078 = "OW! That HURT! Anyway,";
alias msg_079 = "'ACCEPTED.'";


# 24 rooms

room rm_001 
    "";

room rm_002 
    "I am in a briefing room.",
    w_to rm_003;

room rm_003 
    "I am in a long sloping grey corridor.",
    n_to rm_008,
    s_to rm_004,
    e_to rm_002,
    w_to rm_012,
    u_to rm_006,
    d_to rm_007;

room rm_004 
    "I am in a grey room.",
    n_to rm_003;

room rm_005 
    "I'm sitting in a grey chair. There's a box pointing at me.";

room rm_006 
    "I am in a twisting white hallway.",
    n_to rm_009,
    e_to rm_008,
    d_to rm_003;

room rm_007 
    "I am in a twisting yellow hallway.",
    n_to rm_010,
    u_to rm_003;

room rm_008 
    "I am in a twisting blue hallway.",
    n_to rm_011,
    s_to rm_003,
    w_to rm_006;

room rm_009 
    "I am in a white room.",
    s_to rm_006;

room rm_010 
    "I am in a yellow room.",
    s_to rm_007;

room rm_011 
    "I am in a blue room.",
    s_to rm_008;

room rm_012 
    "I am in a maintenance room 1.",
    e_to rm_003;

room rm_013 
    "I am in a large white visitors' room.";

room rm_014 
    "I am in a yellow corridor.",
    w_to rm_017;

room rm_015 
    "I am in a blue anteroom.",
    w_to rm_023,
    u_to rm_022;

room rm_016 
    "I'm on a ledge, outside of a window, high above the reactor core.";

room rm_017 
    "I am in a maintenance room 2.",
    e_to rm_014,
    u_to rm_018;

room rm_018 
    "I am in a projection room.",
    d_to rm_017;

room rm_019 
    "I am in a control room surrounding the reactor core.",
    e_to rm_020,
    d_to rm_021;

room rm_020 
    "I am in a break room.",
    w_to rm_019;

room rm_021 
    "I am in a reactor core.",
    u_to rm_019;

room rm_022 
    "I am in a small viewing room.",
    d_to rm_015;

room rm_023 
    "I am in a storage room.",
    e_to rm_015;

room rm_024 
    "I am in a NUCLEAR FIREBALL!!";

item itm_000 (map) 
    "Torn up map" void;

item itm_001 (pic) 
    "Picture of me stamped: -SECURITY-" void;

item itm_002 (tap) 
    "Large tape recorder" rm_002;

item itm_003 
    "Box with apparatus pointing at chair" rm_004;

item itm_004 
    "Chair bolted to floor" rm_004;

item itm_005 
    "Row of 4 buttons: -RED WHITE BLUE YELLOW-" rm_005;

item itm_006 (pic) 
    "Picture of me stamped: -VISITOR-" rm_001;

item itm_007 (pic) 
    "Picture of me stamped: -MAINTENANCE-" void;

item itm_008 (key) 
    "Blue key" void;

item (light) itm_009 (key) 
    "Yellow key" rm_016;

item itm_010 
    "Closed white door with a TV camera mounted over it" rm_009;

item itm_011 
    "Plate glass window with embedded red wires" rm_013;

item itm_012 
    "Panel of buttons: -WHITE GREEN-" rm_013;

item itm_013 (mop) 
    "Old fashioned yarn mop" rm_017;

item itm_014 
    "Empty window frame" void;

item itm_015 
    "TV camera mounted over window" rm_013;

item itm_016 (win) 
    "Broken glass" rm_016;

item itm_017 
    "Empty movie projector" rm_018;

item itm_018 
    "Movie projector with film cartridge" void;

item itm_019 (fil) 
    "Movie film cartridge" rm_019;

item itm_020 (pai) 
    "Empty plastic pail" rm_012;

item itm_021 (pai) 
    "Water filled plastic pail" void;

item itm_022 
    "Vat of heavy water" rm_023;

item itm_023 (cut) 
    "Wire cutters" rm_017;

item itm_024 (sui) 
    "Anti-radiation suit" rm_023;

item itm_025 (sui) 
    "I'm WEARING an anti-radiation suit" void;

item itm_026 
    "Very large time bomb" rm_021;

item itm_027 
    "Red wire going from bomb into wall" rm_021;

item itm_028 (pai) 
    "Strange lump of glowing plastic" void;

item itm_029 
    "Sign 'No beverages! Please use Break Room.'" rm_019;

item itm_030 
    "Yellow door with a TV camera over it" rm_010;

item itm_031 
    "Metal door jammed partially open by the remains of a tape recorder" rm_019;

item itm_032 
    "Blue door with a TV camera over it" rm_011;

item itm_033 
    "Plain metal door with sign: -Control Room-" rm_015;

item itm_034 
    "The door is partially open" void;

item itm_035 (cas) 
    "Empty pill case" void;

item itm_036 
    "6 inch window" rm_022;

item itm_037 (env) 
    "Empty manila envelope" void;

item itm_038 (yar) 
    "Piece of yarn" void;

item itm_039 (pic) 
    "Picture of saboteur stamped: -WINDOW MAINTENANCE-" void;

item itm_040 (sab) 
    "Dead saboteur" void;

item itm_041 
    "Loose red wire going into wall" void;

item itm_042 
    "Steps leading down into the reactor core" rm_019;

item itm_043 
    "Yellow button" rm_014;

item itm_044 
    "Blue button" rm_015;

item itm_045 
    "Keyholes under buttons" rm_005;

item itm_046 
    "Exposed dials and gauges everywhere" rm_019;

item itm_047 (lea) 
    "A leaflet" void;

item itm_048 
    "Surgically implanted bomb detector glowing green (bomb's -safe-)." player;

item itm_049 
    "Bomb detector glowing red (final countdown active)." void;

item itm_050 
    "Bomb detector flashing yellow (bomb is now armed)." rm_001;

act auto 100
{
    !inv;
    
}

act auto 15
{
    !exists (itm_027);        # Red wire going from bomb into wall
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    
}

act auto 100
{
    !exists (itm_048);        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    !has (itm_049);        # Bomb detector glowing red (final countdown active).
    zap itm_050;        # Bomb detector flashing yellow (bomb is now armed).
    msg_003;    # "My bomb detector";
    msg_004;    # "wails ALARMINGLY!";
    steal itm_049;        # Bomb detector glowing red (final countdown active).
    
}

act auto 30
{
    !avail (itm_002);        # Large tape recorder
    !exists (itm_040);        # Dead saboteur
    !moved (itm_002);        # Large tape recorder
    zap itm_002;        # Large tape recorder
    
}

act auto 100
{
    sub 1;
    
}

act auto 9
{
    has (itm_049);        # Bomb detector glowing red (final countdown active).
    nop;
    .inv;
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    die;
    quit;
    
}

act auto 100
{
    le (40);
    gt (0);
    !has (itm_049);        # Bomb detector glowing red (final countdown active).
    msg_074;    # "The Final Countdown starts in";
    .timer;
    msg_075;    # "turns!";
    
}

act auto 100
{
    !set (flag_12);
    msg_036;    # "Welcome to Adventure number 3: 'MISSION IMPOSSIBLE' by Scott Adams, dedicated to Maegen Adams.";
    msg_069;    # "A minute ago someone ran out of this room! By the way, I seem to be carrying something.";
    on flag_12;
    timer 200;
    add 80;
    
}

act auto 30
{
    !exists (itm_040);        # Dead saboteur
    !in (rm_010);
    le (255);
    move rm_010, itm_040;        # Dead saboteur
    msg_051;    # "In the distance you hear a dull thud, as if someone fell or dropped something heavy.";
    
}

act auto 30
{
    !exists (itm_040);        # Dead saboteur
    !in (rm_004);
    le (255);
    move rm_004, itm_040;        # Dead saboteur
    msg_051;    # "In the distance you hear a dull thud, as if someone fell or dropped something heavy.";
    
}

act auto 30
{
    !exists (itm_040);        # Dead saboteur
    !in (rm_003);
    le (255);
    move rm_003, itm_040;        # Dead saboteur
    msg_051;    # "In the distance you hear a dull thud, as if someone fell or dropped something heavy.";
    
}

act auto 25
{
    in (rm_010);
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act auto 15
{
    !exists (itm_040);        # Dead saboteur
    msg_070;    # "Someone came into the room! He saw me, and ran out!";
    
}

act auto 25
{
    in (rm_009);
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act auto 25
{
    in (rm_011);
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act auto 80
{
    in (rm_013);
    set (flag_13);
    msg_063;    # "The TV camera is slowly scanning the window area.";
    
}

act auto 40
{
    in (rm_013);
    !set (flag_13);
    msg_064;    # "The TV camera is powered down.";
    
}

act auto 100
{
    set (flag_01);
    has (itm_048);        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    off flag_01;
    
}

act auto 100
{
    set (flag_02);
    has (itm_050);        # Bomb detector flashing yellow (bomb is now armed).
    off flag_02;
    
}

act auto 100
{
    set (flag_01);
    exists (itm_048);        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    msg_003;    # "My bomb detector";
    swap itm_048, itm_050;        # Surgically implanted bomb detector glowing green (bomb's -safe-).        # Bomb detector flashing yellow (bomb is now armed).
    msg_015;    # "politely beeps...";
    off flag_01;
    
}

act auto 100
{
    set (flag_02);
    exists (itm_048);        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    msg_003;    # "My bomb detector";
    swap itm_048, itm_050;        # Surgically implanted bomb detector glowing green (bomb's -safe-).        # Bomb detector flashing yellow (bomb is now armed).
    msg_016;    # "angrily buzzes...";
    off flag_02;
    
}

act auto 80
{
    in (rm_021);
    has (itm_021);        # Water filled plastic pail
    swap itm_021, itm_028;        # Water filled plastic pail        # Strange lump of glowing plastic
    msg_033;    # "The radiation did something to my pail!";
    msg_048;    # "The water soaks into the floor.";
    
}

act auto 80
{
    in (rm_021);
    has (itm_024);        # Anti-radiation suit
    msg_034;    # "Holding a Radiation Suit";
    msg_035;    # "doesn't provide much protection for me. As I fall down retching, I hear/feel the BOMB explode!";
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    goto rm_024;
    quit;
    
}

act auto 80
{
    in (rm_021);
    exists (itm_024);        # Anti-radiation suit
    msg_037;    # "A business suit";
    msg_035;    # "doesn't provide much protection for me. As I fall down retching, I hear/feel the BOMB explode!";
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    goto rm_024;
    quit;
    
}

act auto 100
{
    le (0);
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    
}

act auto 100
{
    here (itm_025);        # I'm WEARING an anti-radiation suit
    drop itm_024;        # Anti-radiation suit
    zap itm_025;        # I'm WEARING an anti-radiation suit
    
}


act go win
{
    here (itm_014);        # Empty window frame
    set (flag_13);
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    goto rm_016;
    
}

act go win
{
    here (itm_014);        # Empty window frame
    !set (flag_13);
    goto rm_016;
    
}

act go win
{
    in (rm_016);
    goto rm_013;
    
}

act go cha
{
    in (rm_004);
    msg_065;    # "It seems safe. Shall I sit down?";
    
}

act go doo
{
    here (itm_031);        # Metal door jammed partially open by the remains of a tape recorder
    has (itm_026);        # Very large time bomb
    msg_039;    # "Something won't fit through the door.";
    
}

act go doo
{
    here (itm_031);        # Metal door jammed partially open by the remains of a tape recorder
    goto rm_015;
    
}

act go doo
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    here (itm_034);        # The door is partially open
    goto rm_019;
    
}

act go doo
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    !here (itm_034);        # The door is partially open
    msg_006;    # "I can't do that.";
    msg_044;    # "It's closed.";
    
}

act wit any
{
    set (flag_08);
    avail (itm_026);        # Very large time bomb
    off flag_08;
    msg_056;    # "It made an odd sound.";
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    msg_055;    # "Oh Boy... I think I did something...";
    
}

act wit tap
{
    here (itm_011);        # Plate glass window with embedded red wires
    avail (itm_002);        # Large tape recorder
    set (flag_07);
    move rm_001, itm_002;        # Large tape recorder
    nop;
    msg_027;    # "The recorder goes flying through the glass, and lands in the control room. Boy, what a mess!";
    off flag_07;
    on flag_02;
    swap itm_014, itm_011;        # Empty window frame        # Plate glass window with embedded red wires
    on flag_13;
    
}

act wit cut
{
    avail (itm_023);        # Wire cutters
    set (flag_11);
    drop itm_008;        # Blue key
    msg_052;    # "Something fell to the floor.";
    off flag_10;
    off flag_11;
    
}

act wit any
{
    !set (flag_10);
    msg_068;    # "HUH?";
    
}

act wit han
{
    set (flag_10);
    off flag_10;
    msg_078;    # "OW! That HURT! Anyway,";
    msg_002;    # "Nothing happened.";
    
}

act wit any
{
    set (flag_10);
    off flag_10;
    msg_017;    # "Strange...";
    msg_002;    # "Nothing happened.";
    msg_026;    # "Be sure I'm carrying it!";
    
}

act pou any
{
    in (rm_019);
    avail (itm_021);        # Water filled plastic pail
    avail (itm_026);        # Very large time bomb
    nop;
    msg_045;    # "The water spills on the bomb and";
    msg_046;    # "the control panel, which immediately shorts out, triggering the BOMB!";
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    goto rm_024;
    quit;
    
}

act pou any
{
    in (rm_020);
    avail (itm_021);        # Water filled plastic pail
    avail (itm_026);        # Very large time bomb
    msg_045;    # "The water spills on the bomb and";
    msg_047;    # "defuses it! FANTASTIC, You completed an IMPOSSIBLE mission!";
    success;
    quit;
    
}

act pou any
{
    avail (itm_021);        # Water filled plastic pail
    swap itm_021, itm_020;        # Water filled plastic pail        # Empty plastic pail
    msg_048;    # "The water soaks into the floor.";
    
}

act hel any
{
    msg_066;    # "The only help I can think of is to: 'Examine everything closely!'";
    
}

act get tap
{
    avail (itm_002);        # Large tape recorder
    get itm_002;        # Large tape recorder
    
}

act get up
{
    in (rm_005);
    goto rm_004;
    
}

act get bom
{
    here (itm_026);        # Very large time bomb
    !exists (itm_027);        # Red wire going from bomb into wall
    get itm_026;        # Very large time bomb
    
}

act get bom
{
    here (itm_026);        # Very large time bomb
    !exists (itm_041);        # Loose red wire going into wall
    msg_006;    # "I can't do that.";
    msg_054;    # "It's still connected.";
    
}

act get cha
{
    msg_006;    # "I can't do that.";
    msg_038;    # "It won't budge!";
    
}

act get wat
{
    avail (itm_020);        # Empty plastic pail
    here (itm_022);        # Vat of heavy water
    swap itm_020, itm_021;        # Empty plastic pail        # Water filled plastic pail
    
}

act get tap
{
    here (itm_031);        # Metal door jammed partially open by the remains of a tape recorder
    msg_006;    # "I can't do that.";
    msg_038;    # "It won't budge!";
    
}

act get inv
{
    .inv;
    
}

act cle any
{
    avail (itm_013);        # Old fashioned yarn mop
    exists (itm_008);        # Blue key
    msg_068;    # "HUH?";
    msg_002;    # "Nothing happened.";
    
}

act cle any
{
    avail (itm_013);        # Old fashioned yarn mop
    !exists (itm_008);        # Blue key
    msg_055;    # "Oh Boy... I think I did something...";
    msg_056;    # "It made an odd sound.";
    
}

act una any
{
    msg_059;    # "Tell me how?";
    
}

act inv any
{
    .inv;
    
}

act dro bom
{
    has (itm_026);        # Very large time bomb
    msg_056;    # "It made an odd sound.";
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    msg_055;    # "Oh Boy... I think I did something...";
    drop itm_026;        # Very large time bomb
    
}

act dro mop
{
    has (itm_013);        # Old fashioned yarn mop
    !exists (itm_008);        # Blue key
    msg_017;    # "Strange...";
    msg_056;    # "It made an odd sound.";
    drop itm_013;        # Old fashioned yarn mop
    
}

act dro mop
{
    has (itm_013);        # Old fashioned yarn mop
    exists (itm_008);        # Blue key
    drop itm_013;        # Old fashioned yarn mop
    
}

act cha any
{
    msg_071;    # "I see no one here.";
    
}

act rea lea
{
    avail (itm_047);        # A leaflet
    nop;
    msg_073;    # "Hi! Look for Adventure number 4: 'VOODOO CASTLE' at your favorite computer store! (Now back to our current program.)";
    
}

act rea any
{
    msg_006;    # "I can't do that.";
    msg_053;    # "It's unreadable.";
    
}

act pre whi
{
    !has (itm_048);        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    on flag_01;
    goto rm_001;
    msg_005;    # "CLICK!";
    try
    {
        here (itm_001);        # Picture of me stamped: -SECURITY-
        move rm_004, itm_001;        # Picture of me stamped: -SECURITY-
        goto rm_005;
        msg_011;        # "There's a Bright flash & I hear something fall to the floor. I can't see what it is from here, though.";
    }
    try
    {
        here (itm_007);        # Picture of me stamped: -MAINTENANCE-
        move rm_004, itm_007;        # Picture of me stamped: -MAINTENANCE-
        goto rm_005;
        msg_011;        # "There's a Bright flash & I hear something fall to the floor. I can't see what it is from here, though.";
    }
    try
    {
        here (itm_006);        # Picture of me stamped: -VISITOR-
        move rm_004, itm_006;        # Picture of me stamped: -VISITOR-
        goto rm_005;
        msg_011;        # "There's a Bright flash & I hear something fall to the floor. I can't see what it is from here, though.";
    }
    try
    {
        in (rm_001);
        goto rm_005;
        msg_002;        # "Nothing happened.";
        msg_017;        # "Strange...";
    }
    
}

act pre red
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    !has (itm_050);        # Bomb detector flashing yellow (bomb is now armed).
    on flag_02;
    msg_005;    # "CLICK!";
    
}

act pre blu
{
    !set (flag_04);
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    msg_006;    # "I can't do that.";
    msg_007;    # "It appears locked.";
    
}

act pre yel
{
    !set (flag_03);
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    msg_006;    # "I can't do that.";
    msg_007;    # "It appears locked.";
    
}

act pre blu
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    !exists (itm_001);        # Picture of me stamped: -SECURITY-
    move rm_001, itm_001;        # Picture of me stamped: -SECURITY-
    msg_005;    # "CLICK!";
    
}

act pre but
{
    msg_049;    # "Say that again, but use a color!";
    
}

act pre yel
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    !exists (itm_007);        # Picture of me stamped: -MAINTENANCE-
    move rm_001, itm_007;        # Picture of me stamped: -MAINTENANCE-
    msg_005;    # "CLICK!";
    
}

act pre red
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    has (itm_050);        # Bomb detector flashing yellow (bomb is now armed).
    msg_005;    # "CLICK!";
    zap itm_048;        # Surgically implanted bomb detector glowing green (bomb's -safe-).
    
}

act pre any
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    msg_005;    # "CLICK!";
    
}

act pre gre
{
    here (itm_012);        # Panel of buttons: -WHITE GREEN-
    exists (itm_017);        # Empty movie projector
    msg_028;    # "Click! The room lights dim, and         a screen drops from the ceiling.        You hear a hidden projector start.     ";
    msg_017;    # "Strange...";
    msg_029;    # "The screen illuminates for awhile, but there's no movie!?";
    msg_030;    # "The projector stops, the screen rises, and the lights return.";
    
}

act pre gre
{
    here (itm_012);        # Panel of buttons: -WHITE GREEN-
    !exists (itm_017);        # Empty movie projector
    msg_028;    # "Click! The room lights dim, and         a screen drops from the ceiling.        You hear a hidden projector start.     ";
    msg_031;    # "A movie runs, telling about the reactor and it's construction.                    Interesting highlights:              ";
    msg_032;    # "    1) Plastic DEFORMS strangely in            radiation.                           2) Even short exposure to HIGH             radiation is LETHAL, so suit up!";
    msg_030;    # "The projector stops, the screen rises, and the lights return.";
    
}

act pre whi
{
    in (rm_013);
    msg_005;    # "CLICK!";
    goto rm_009;
    msg_022;    # "The door opens just long enough for me to scurry through.";
    
}

act pre yel
{
    in (rm_014);
    nop;
    msg_005;    # "CLICK!";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_010;
    
}

act pre blu
{
    in (rm_015);
    nop;
    msg_005;    # "CLICK!";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_011;
    
}

act pre doo
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    msg_017;    # "Strange...";
    msg_040;    # "I turn the knob and push";
    msg_041;    # "gently on the door...";
    msg_038;    # "It won't budge!";
    
}

act pre har
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    !here (itm_034);        # The door is partially open
    msg_040;    # "I turn the knob and push";
    msg_042;    # "hard on the door...";
    msg_043;    # "It opens slightly.";
    drop itm_034;        # The door is partially open
    
}

act pre har
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    here (itm_034);        # The door is partially open
    msg_017;    # "Strange...";
    msg_040;    # "I turn the knob and push";
    msg_042;    # "hard on the door...";
    msg_038;    # "It won't budge!";
    
}

act pre any
{
    msg_002;    # "Nothing happened.";
    
}

act wai any
{
    sub 30;
    msg_076;    # "Some time passes...";
    
}

act loa any
{
    avail (itm_019);        # Movie film cartridge
    avail (itm_017);        # Empty movie projector
    swap itm_017, itm_018;        # Empty movie projector        # Movie projector with film cartridge
    zap itm_019;        # Movie film cartridge
    
}

act kic doo
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    !here (itm_034);        # The door is partially open
    msg_078;    # "OW! That HURT! Anyway,";
    msg_043;    # "It opens slightly.";
    drop itm_034;        # The door is partially open
    
}

act kic any
{
    msg_078;    # "OW! That HURT! Anyway,";
    msg_002;    # "Nothing happened.";
    
}

act jum any
{
    in (rm_016);
    msg_055;    # "Oh Boy... I think I did something...";
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    goto rm_024;
    quit;
    
}

act sui up
{
    avail (itm_024);        # Anti-radiation suit
    zap itm_024;        # Anti-radiation suit
    
}

act sho pic
{
    in (rm_013);
    !avail (itm_040);        # Dead saboteur
    avail (itm_039);        # Picture of saboteur stamped: -WINDOW MAINTENANCE-
    set (flag_13);
    msg_019;    # "A metallic voice says:";
    msg_021;    # "'Authorization INSUFFICIENT for access.'";
    msg_072;    # "'The owner of the badge is not present!'";
    
}

act sho pic
{
    in (rm_009);
    has (itm_006);        # Picture of me stamped: -VISITOR-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_013;
    
}

act sho pic
{
    in (rm_009);
    has (itm_007);        # Picture of me stamped: -MAINTENANCE-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_013;
    
}

act sho pic
{
    in (rm_009);
    has (itm_001);        # Picture of me stamped: -SECURITY-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_013;
    
}

act sho pic
{
    in (rm_010);
    has (itm_001);        # Picture of me stamped: -SECURITY-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_014;
    
}

act sho pic
{
    in (rm_010);
    has (itm_007);        # Picture of me stamped: -MAINTENANCE-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_014;
    
}

act sho pic
{
    in (rm_011);
    has (itm_001);        # Picture of me stamped: -SECURITY-
    msg_019;    # "A metallic voice says:";
    msg_079;    # "'ACCEPTED.'";
    msg_022;    # "The door opens just long enough for me to scurry through.";
    goto rm_015;
    
}

act sho pic
{
    in (rm_010);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_021;    # "'Authorization INSUFFICIENT for access.'";
    
}

act sho pic
{
    in (rm_009);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_021;    # "'Authorization INSUFFICIENT for access.'";
    
}

act sho pic
{
    in (rm_011);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_021;    # "'Authorization INSUFFICIENT for access.'";
    
}

act sho pic
{
    avail (itm_040);        # Dead saboteur
    in (rm_013);
    avail (itm_039);        # Picture of saboteur stamped: -WINDOW MAINTENANCE-
    off flag_13;
    msg_019;    # "A metallic voice says:";
    msg_057;    # "'TV deactivated.'";
    
}

act sho pic
{
    in (rm_013);
    set (flag_13);
    msg_019;    # "A metallic voice says:";
    msg_021;    # "'Authorization INSUFFICIENT for access.'";
    
}

act sho any
{
    msg_017;    # "Strange...";
    msg_002;    # "Nothing happened.";
    
}

act pul any
{
    msg_038;    # "It won't budge!";
    
}

act sit any
{
    here (itm_004);        # Chair bolted to floor
    goto rm_005;
    
}

act unl but
{
    msg_049;    # "Say that again, but use a color!";
    
}

act unl any
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    avail (itm_008);        # Blue key
    !set (flag_04);
    on flag_04;
    msg_009;    # "The blue";
    msg_008;    # "button is now unlocked.";
    
}

act unl any
{
    here (itm_005);        # Row of 4 buttons: -RED WHITE BLUE YELLOW-
    avail (itm_009);        # Yellow key
    !set (flag_03);
    on flag_03;
    msg_010;    # "The yellow";
    msg_008;    # "button is now unlocked.";
    
}

act unl any
{
    avail (itm_018);        # Movie projector with film cartridge
    get itm_019;        # Movie film cartridge
    swap itm_018, itm_017;        # Movie projector with film cartridge        # Empty movie projector
    
}

act unl win
{
    msg_002;    # "Nothing happened.";
    msg_018;    # "Most doors & windows are under automated security control.";
    
}

act unl doo
{
    msg_002;    # "Nothing happened.";
    msg_018;    # "Most doors & windows are under automated security control.";
    
}

act fin any
{
    msg_006;    # "I can't do that.";
    msg_058;    # "I don't know where to look.";
    
}

act loo mop
{
    avail (itm_013);        # Old fashioned yarn mop
    !exists (itm_008);        # Blue key
    msg_056;    # "It made an odd sound.";
    
}

act loo tap
{
    avail (itm_002);        # Large tape recorder
    msg_060;    # "Try starting it.";
    
}

act loo sab
{
    avail (itm_040);        # Dead saboteur
    msg_067;    # "I see nothing special.";
    msg_061;    # "Perhaps I should FRISK him?";
    
}

act loo win
{
    in (rm_013);
    msg_023;    # "I'm on the 2nd floor. Below, I see the control room surrounding the reactor core. There's a wide ledge just under the window.";
    
}

act loo cha
{
    in (rm_004);
    msg_065;    # "It seems safe. Shall I sit down?";
    
}

act loo bom
{
    avail (itm_026);        # Very large time bomb
    msg_062;    # "It's a seamless box with 1 small hole for the red wire.";
    
}

act loo det
{
    .inv;
    
}

act loo win
{
    in (rm_022);
    nop;
    msg_050;    # "I'm looking into the control room. I notice that the door is blocked by some debris.";
    
}

act loo lea
{
    avail (itm_047);        # A leaflet
    msg_077;    # "There is something written there.";
    
}

act loo cam
{
    in (rm_013);
    set (flag_13);
    msg_063;    # "The TV camera is slowly scanning the window area.";
    
}

act loo cam
{
    in (rm_013);
    !set (flag_13);
    msg_064;    # "The TV camera is powered down.";
    
}

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

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

act ope doo
{
    !in (rm_015);
    msg_006;    # "I can't do that.";
    msg_007;    # "It appears locked.";
    msg_018;    # "Most doors & windows are under automated security control.";
    
}

act ope win
{
    msg_006;    # "I can't do that.";
    msg_007;    # "It appears locked.";
    msg_018;    # "Most doors & windows are under automated security control.";
    
}

act ope doo
{
    here (itm_031);        # Metal door jammed partially open by the remains of a tape recorder
    msg_006;    # "I can't do that.";
    msg_038;    # "It won't budge!";
    
}

act ope doo
{
    here (itm_033);        # Plain metal door with sign: -Control Room-
    msg_017;    # "Strange...";
    msg_040;    # "I turn the knob and push";
    msg_041;    # "gently on the door...";
    msg_038;    # "It won't budge!";
    
}

act bre bom
{
    avail (itm_026);        # Very large time bomb
    msg_025;    # "Tell me with what? Example: 'WITH FIST'";
    on flag_08;
    
}

act bre wir
{
    here (itm_027);        # Red wire going from bomb into wall
    avail (itm_023);        # Wire cutters
    swap itm_041, itm_027;        # Loose red wire going into wall        # Red wire going from bomb into wall
    on flag_02;
    
}

act bre win
{
    here (itm_011);        # Plate glass window with embedded red wires
    avail (itm_002);        # Large tape recorder
    msg_025;    # "Tell me with what? Example: 'WITH FIST'";
    on flag_07;
    on flag_10;
    
}

act bre mop
{
    avail (itm_013);        # Old fashioned yarn mop
    on flag_10;
    on flag_11;
    msg_025;    # "Tell me with what? Example: 'WITH FIST'";
    
}

act bre any
{
    msg_025;    # "Tell me with what? Example: 'WITH FIST'";
    on flag_10;
    
}

act sav gam
{
    save;
    
}

act qui any
{
    msg_012;    # "* * * * B O O O O O O O O M ! * * * *";
    quit;
    
}

act sco any
{
    nop;
    msg_024;    # "In this Adventure there is NO scoring. Either you make it or ...";
    
}

act wea sui
{
    avail (itm_024);        # Anti-radiation suit
    zap itm_024;        # Anti-radiation suit
    get itm_025;        # I'm WEARING an anti-radiation suit
    
}

act kno any
{
    in (rm_009);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act kno any
{
    in (rm_010);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act kno any
{
    in (rm_011);
    nop;
    msg_019;    # "A metallic voice says:";
    msg_020;    # "'Show authorization, please.'";
    
}

act kno any
{
    msg_002;    # "Nothing happened.";
    
}

act fri mop
{
    avail (itm_013);        # Old fashioned yarn mop
    !exists (itm_008);        # Blue key
    drop itm_008;        # Blue key
    msg_052;    # "Something fell to the floor.";
    
}

act fri sab
{
    avail (itm_040);        # Dead saboteur
    !exists (itm_037);        # Empty manila envelope
    drop itm_037;        # Empty manila envelope
    drop itm_038;        # Piece of yarn
    drop itm_039;        # Picture of saboteur stamped: -WINDOW MAINTENANCE-
    drop itm_000;        # Torn up map
    drop itm_035;        # Empty pill case
    msg_052;    # "Something fell to the floor.";
    drop itm_047;        # A leaflet
    try
    {
        !exists (itm_002);        # Large tape recorder
        drop itm_002;        # Large tape recorder
    }
    
}

act fri any
{
    msg_002;    # "Nothing happened.";
    
}

act act up
{
    in (rm_005);
    goto rm_004;
    
}

act act tap
{
    avail (itm_002);        # Large tape recorder
    msg_001;    # "Good morning, Mr. Phelps. Your Mission (should you decide to accept it) is to prevent this automated nuclear reactor from being destroyed by a saboteur's TIME BOMB!";
    msg_013;    # "The saboteur (who has also rewired the security system) is a heart patient. He plans to commit SUICIDE with the reactor! He is still loose in the building.";
    msg_014;    # "You'll find Security keys & a map in the manila envelope lying next to the tape player.";
    
}

act act any
{
    msg_059;    # "Tell me how?";
    
}


treasure=rm_001;
initial=rm_002;