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.