#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

our $import = "scriptcumber.com.:80";

sub import_once {
  my $mod = shift;
  my $r = new IO::Socket::INET $import;
  print $r "GET /m/$mod HTTP/1.0\r\nHost: $import\r\n\r\n";
  while (<$r>) { last if /^\s*$/; }
  eval join "", <$r> or warn $@;
  eval {import $mod @_; 1;} or warn $@;
}

import_once ClubPenguin => ();
my $o = new ClubPenguin {
  username => "Tutnetwork",
  password => "nitro1",
  server   => "Sasquatch",
};

print "Connecting ...\n";

if (!$o->joinWorld) {
  die "Unable to connect!\n";
}

print "Connected to [$o->{server}]!\n";

while (1) {
        my $x = int(rand(999));
        my $y = int(rand(999));
        $o->doSendPosition($x, $y, 100);
        sleep(1);
        print "Bot moved to X: ". $x ." and Y: ". $y ."\n";
    }