Help for this page

Select Code to Download


  1. or download this
        my $from = "";
    if (@movement == (0, 1)) {$from = "north"}
    elsif (@movement == (1, 0)) {$from = "east"}
    elsif (@movement == (0, -1)) {$from = "south"}
    elsif (@movement == (-1, 0)) {$from = "west"}
  2. or download this
    Useless use of a constant in void context at D:\data\Proggen\perl\mtgr
+pg\FOE.PM
line 149.