Select Code to Download

sub process_command {
    print "\n\n:";
...
    }
    ... etcetera ...
}

    $currentRoom = HALLWAY;
    return;

    if ($uniform == HAVE) {
        print "\n\nOne slightly uncomfortable uniform.";
...
    if ($closetKey == HAVE) {
        print "\n\nThe key to the utility closet.";
    }

# At start of program, set up the starting location and description of
+ each object
my $Objects = (
...
       }
   }
}

sub bedroomCommand {
    ...
...
            print "There are no paintings or posters on the wall...
            sleep 5;
        }

    elsif ($command =~ "keycard" or $command =~ "take keycard" ...
        ...
...
                sleep 2;
                $Objects{keycard}{location} = HAVE;
                $Objects{keycard}{description} = 'Your access keycard.
+';