#!/usr/bin/perl -w

use strict;
use vars qw($opt_m);
use Getopt::Std;
use Term::ANSIScreen qw(:cursor :screen :color);

$|++, cls;
getopts('m:');
die "Please specify map file" unless $opt_m;

{
    local @ARGV = $opt_m;
    locate;
    while(<>) { print }
}

while(<>) {
    if (/X = (\d+), Y = (\d+)/) {
        locate($2 + 1, $1 + 1); 
        print colored(".", 'bold yellow');
        select(undef, undef, undef, 0.25);
    }
}