Maze 2008: Sample Program

0403b.pl.txt

    if($key eq "kr")
    {
      if ($maze[$Y][$X+1] ne "#")
      {   
        $X++;
        if ($maze[$Y][$X] eq "P")
        {
          $NumberOfLivesIHave--;
        }
        if ($maze[$Y][$X] eq "T")
        {
          $NumberOfLivesIHave++;
        }
      }
    }