testing navigation

#!/usr/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; my @new_info; my $img_dir = "http://cs.marlboro.edu/~eholder/cgi/ex/tiles/"; open(ROOM, "rooms/room_0.txt") || die "could not find room"; @new_info = ; close ROOM; print "testing navigation"; Print_Board(); print ""; ################################################################# # # What needs to be done: # - Tiles range: 0..8 (0 = UL, 1 = UC ... 7 = DC, 8 = DR) # - Tiles 1(UC), 3(CL), 5(CR), & 7(DC) are potential moves # - This makes Print_Contols Obsolete, so move form to here # - Check name of tile for ex***.gif name (means exit) # - Print for exits # - Need to keep track of tile number for direction # ################################################################# sub Print_Board { # print game board print ""; } sub check_tile { my $is_exit; my $tile = shift; # print "tile = $tile ===="; $tile =~ s/http:\/\/cs\.marlboro\.edu\/\~eholder\/cgi\/ex\/tiles\///g; # print "tile = $tile ===="; $tile =~ s/[^ex]*//g; # print "tile = $tile

"; $tile =~ s/ee//g; $tile =~ s/exe/ex/g; # print "tile = $tile

"; if ($tile eq "ex") { $is_exit = 1; } else { $is_exit = 0; } # print "is_exit = $is_exit

"; return $is_exit; } sub get_direct { my $direct; my $tile = shift; # print "tile = $tile ===="; $tile =~ s/http:\/\/cs\.marlboro\.edu\/\~eholder\/cgi\/ex\/tiles\///g; # print "tile = $tile ===="; $tile =~ s/.gif//g; $tile =~ s/\w\wwall//g; $tile =~ s/center//g; $tile =~ s/ex*//g; $tile =~ s/\s//g; # print "tile = $tile

"; if ($tile eq "up") { $direct = "North"; } if ($tile eq "right") { $direct = "East"; } if ($tile eq "down") { $direct = "South"; } if ($tile eq "lft") { $direct = "West"; } # print "$direct"; return $direct; }