i WAS THINKING OF USING IT IN A RPG IM WORKING ON, WELL IT'S A PROJECT I USING TO LEARN PERL. I WAS GOING TO USE THE SWITCH MODULE FOR THINGS LIKE MOVEMENT.
ROUGH EXAMPLE CODE NOT TESTED.
USE SWITCH;
SUB DIRECTIONS {
WHILE {
$DIRECTIONS= (<STDIN>);
CHOMP $DIRECTIONS
$DIRECTIONS =~ TR/A-Z/a-z/;
SWITCH {
CASE 'NORTH' {PRINT "$HERONAME HAS LEFT NORTH"}
CASE 'SOUTH' {PRINT "$HERONAME HAS LEFT SOUTH"}
CASE 'EAST' {PRINT "$HERONAME HAS LEFT EAST"}
CASE 'WEST' {PRINT "$HERONAME HAS LEFT WEST"}
}
}
}
BASICALY THATS WHAY IM TRYING TO DO...BASICALY |