Teleport Bot [UPDATED]

Code:

#!/usr/bin/perl

# Program: Teleport Bot.pl
# Author: Cpgizmo92883cp http://www.youtube.com/Cpgizmo92883
# Copyright (C) 2011
# License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR.

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

use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};

import_once ClubPenguin => ();
import_once Util => (); # get_input

package CopyBot;

use strict;
use warnings;
our @ISA = qw(ClubPenguin);

my $o = new CopyBot {
  username => (shift || Util::get_input("Username: ", "")),
  password => (shift || Util::get_input("Password: ", "")),
  server => (shift || Util::get_input("Server: ", "")),
  timeout  => 0,
};

my $room = (shift || Util::get_input("Room: ", ""));
my $speed = (shift || Util::get_input("Speed 1 to 10: ", ""));

print "Connecting...\n";
die "No good!\n" unless $o->joinWorld;
print "Connected to [$o->{server}]!\n";

our $state = 0;

while (1) {
  if (!$o->consume) {
    print scalar(localtime).": [$$] *YAWN* ($state)\n";
    select(undef,undef,undef,1);
    if (!$state) {
  } elsif ($state==1) {
    $o->doJoinRoom($room);
    while (1) {
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 49, 265);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 210, 273);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 400, 226);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 719, 266);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 566, 291);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    $o->doJoinRoom($room, 347, 419);
    sleep 2;
    $o->doJoinRoom(410);
    sleep $speed;
    }
      last;
    }
    $state++;
  }
}

exit;
#Exit

Gizmo92883 wrote:i just havent updated penguin reverse engineer Yet

Gizmo92883 wrote:nope its not updated il update it