#!/usr/bin/perl

use Minecraft::RCON;
use IO::Handle;
STDOUT->autoflush(1);

my $tpuser = 'devanchya';
my $jumpdistance = 100;
my $height = 250;

my $quickskip = 2283;

my $startx = -8048;
my $startz = -8064;

my $endx = 7952;
my $endz = 7936;

my $jumps = 16000;


my $rcon = Minecraft::RCON->new( { address => 'IPADD', password => 'P00wworord' } );
if ($rcon->connect){
    #print $rcon->command('help');
    # Direction and Vector direction
    my $dx = 1;
    my $dz = 0;

    #length of segment of movement
    my $segment = 1;

    my $x = 0;
    my $z = 0;
    my $pass = 0;
    for( my $k = 0; $k < $jumps; ++$k) {
       # make step, add direction veector to current possition
       $x += $dx;
       $z += $dz;
       ++$pass;
       #print "Moving $x $z on $pass\n";
       my $locx = $x * $jumpdistance;
       my $locz = $z * $jumpdistance;
       print "Moving $locx $locz on $pass ($k $dx $dz [$x $z])\n";
       print $rcon->command("say moving $tpuser to $locx $height $locz");
       print $rcon->command("tp $tpuser $locx $height $locz");
       if( $k < $quickskip )
        { print "sleep 1\n"; sleep(1); }
       else
        { print "sleep 7\n"; sleep(7); }
       if( $pass == $segment ) {
           if( $k > $quickskip ) {
             print "sleep 45\n";
             sleep(45);  #pause longer each segment
           }
           my $save = $dx;
           $pass = 0;
           $dx = -$dz;
           $dz = $save;
           ++$segment if( $dz == 0 );
       }

       #print $rcon->command("tp $tpuser 5650 $height 0");
     }
 #   sleep 10;
 #   print $rcon->command('forge tps 0');
}
else {
    print "Oh dang, connection failed!\n";
    # Error capturing and fetching is in the works...
}
$rcon->disconnect;