#!/usr/bin/perl
use strict;
use warnings;
use lib "/users/msheffie/workspace/Camel";
use termite;

#opens the grid for the termites to run around on
open (GRID, "grid.txt");
my @grid=<GRID>;
close GRID;

@grid=split(",", $grid[0]);

#creates a new termite
my $term=termite->new(
	grid => "@grid",
	x => "5",
	y => "5",
	direction => "2",
	chip => "0",
);

my $term2=termite->new (
	grid => "@grid", 
	x => "7",
	y => "19",
	direction => "2",
	chip => "0",
);

#prints values so we know the termites got created
print $term->getx, "\n";
print $term2->gety, "\n";
print $term->getgrid, "\n";

for(my $i=0; $i<2000; $i++){
	$term->step(\@grid);
	$term2->step(\@grid);
}

#saves the final grid
open (GRID, ">gridout.txt");
print GRID "@grid";
close GRID;