Help for this page

Select Code to Download


  1. or download this
    my @displacement = (
    [-1, -1],
    [-1,  0],
...

    return $map[$y][$x] eq $wall;
}
  2. or download this
    if ((!&test2($xCur, $yCur, $wall) && !&test3($xCur, $yCur, $wall) && &test5($xCur, $yCur, $wall) && &test6($xCur, $yCur, $wall) && !&test9($xCur, $yCur, $wall))&& (!&test1($xCur, $yCur, $wall) &&  !&test7($xCur, $yCur, $wall) ) || (&test1($xCur, $yCur, $wall) && &test4($xCur, $yCur, $wall) && &test7($xCur, $yCur, $wall) && !&test8($xCur, $yCur, $wall)))
  3. or download this
    if(grep { check_coord($xCur, $yCur, $wall, $_) } 2..8) {