Help for this page

Select Code to Download


  1. or download this
    my $room = ( {
    
            TEXT => $string,
    ...
            CMDS => { %cmds },
    #       EVENTS => \&events,
              } );
    
  2. or download this
     foreach (@rooms)
            {
                    ($rr->{TITLE}, $rr->{TEXT}, $rr->{EXITS}, $rr->{THINGS
    +}, $rr->{ITEMS}) =  split ":", $_;
    ...
            };
            return \@a;