Select Code to Download

package player;

...


1;

package gameroom;

...
}

1;

ROOMNAME#INVENTORY_ITEMS~qty,...INVENTORY_ITEMS#ROOMUSEITEMS~qty....RO
+OMUSEITEMS#CONNECTIONS[name~locked_state~key_item,]...CONNECTIONS
BEDROOM#UNIFORM~1,KEYCARD~1,LIGHTER~1#LIGHTSWITCH~1#HALLWAY~LOCKED~KEY
+CARD
HALLWAY###BEDROOM~UNLOCKED,LABORATORY~LOCKED~KEYCARD
LABORATORY#
CONTROL_ROOM#

    WHEREAMI    : Player Position
    USE [] ON []    : USE [item] ON [item]
...
    RINV        : Room Inventory
    QUIT        : Exit game
    ? or HELP    : Help Commands

#!/usr/bin/perl
use 5.14.1;
...
    my $text = shift;
    print "\n\t\t".$text."\n";
}