Maze Game: Sample Program

0403.pl

#!/usr/bin/perl
use strict;
require Term::Screen;

my ($crt, $Y, $X, $key, $end_game);

#
# This is a limited-function code example. Decide what it does and how...
#
$crt=new Term::Screen;
$crt->clrscr();
$Y=10;
$X=10;
$crt->at($Y,$X)->puts("O");
while($end_game != 1) {
  $key = $crt->getch();
  if (length($key) != 1) # Handle multi-character input
  {
    $crt->at($Y,$X)->puts(" ");
    if ($key eq "kl") {
      $X--; }
    elsif ($key eq "kr") {
         $X++; }
      elsif ($key eq "ku") {
          $Y--; }
        elsif ($key eq "kd") {
          $Y++; }
    $crt->at($Y,$X)->puts("O");
  }
  else {
    if ( ($key eq 'Q') || ($key eq 'q') ) {
      $end_game = 1;
    }
  }
}
Last updated: 20120225-13:18