#!/usr/local/bin/perl

open(IN, "<typescript") || die "Sorry cannot open file";
open(OUT, ">temp");
$flag=0;
$x=0;
$prev = "";
$curr = "";
$flag_2 = 0;

while($line = <IN>)
{
        print OUT "$line";
        #if ($line =~ /vRmLobject\D+(\d),\s(\d),\s(\d),\s(\d),\s(\d),\s(\d)\D+/)
        #vRmLobject(box, boat, 45, -14, 0, 4, 1, 1, green)
        @lines = split /vRmLobject/, $line;
        $lines[$#lines] = "vRmLobject".$lines[$#lines];
        if ($lines[$#lines] =~ /vRmLobject\(.*?,\s.*?,\s(\d+),\s(.\d+|\d+),\s(.\d+|\d+)/)
        {
        #       print $lines[$#lines];
                $x = $1;
                $y = $2;
                $z = $3;
                print "$x   $y  $z\n";
        }
        #if ($line =~ m/^about_to_try_crossings\[\[boat,\sfather,\sson1,\sson2\],\s\[\]\]\s\n/)
        if ($line =~ m/^about_to_try_crossings.*?,\s\[\]\]\s\n/)
        {
                $x = $x - 15;
                print "x = $x\n";
                if($flag>=1)
                {
                print OUT "VRMLbacktracking-object(box, backtrack, $x, $y, $z, 45, 1, 0.25, orange)vrml\n";
                print "VRMLbacktracking-object(box, backtrack, $x, $y, $z, 1, 2, 0.25, orange)vrml\n";
                }
                $flag++;        
        }

        if ($line =~ /^using_load_of\[(.*)\]/)
        {
                $this_x = $x;
                $this_y = $y;
                $this_z = $z;

                print "$line\n";
                $curr = $1;
                if ($flag_2 == 0)
                {
                        $prev = $1;
                }
                $flag_2++;
#               print "$line\n";


                if ($curr eq $prev)
                {
                        print "T_X = $this_x Y = $this_y Z = $this_z\n";
                        if ($this_y != "")
                        {
                                print OUT "VRMLbacktracking-object(box, backtrack, $this_x, $this_y, $this_z, 45, 1, 0.25, orange)vrml\n";
                        }
                }

                if ($flag_2 == 2)
                {
                        print "Current $curr\n";
                        print "previous $prev\n";
                        $flag_2 = 0;

                }
        }

}
close(IN);
close(OUT);