#!/usr/bin/perl

use Map;
use Astar;

if(&Map::load($ARGV[0]) == -1)
{
	die "Map file does not exist!";
}

&Astar::search_nowalls;
@lady=@Map::lady_pos;

$pointer=0;
&Map::draw(0);
do
{
	print "$pointer/".(@Astar::path-1)." >>> ";
	$cmd = <STDIN>;
	chomp $cmd;
	
	if($cmd eq "")
	{
		# forward
		if($pointer==(@Astar::path-1))
		{
			printf "End of the sequence, cannot go further.\n";
		}
		else
		{
			$pointer++;
			&Map::draw($pointer);	
		}
	}
	elsif($cmd eq "b")
	{
		if($pointer==0)
		{
			printf "Beginning of the sequence, cannot go backwards.\n";
		}
		else
		{
			$pointer--;
			&Map::draw($pointer);	
		}

		# backwards
	}
}until($cmd eq "exit");