testpathing

package testpathing;

use strict;
use Plugins;
use Log qw(debug message warning error);

return unless
Plugins::register('testpathing', 'testpathing', \&on_unload);

my $chooks = Commands::register(
      ['testit', "testpathing", \&commandHandler]
   );

sub on_unload {
   Commands::unregister($chooks);
}

sub commandHandler {
    my $pathfinding = new PathFinding;
    my $testfield = new Field(name => 'prontera');
    my $teststart = {
        x => 155,
        y => 150,
    };
    my $testend = {
        x => 155,
        y => 155,
    };
    $pathfinding->reset(
        field => $testfield,
        start => $teststart,
        dest => $testend);
    my $ret = $pathfinding->runcount;
}

return 1;