Gong Hitter

Code:

#!/usr/bin/perl -w

# Program: Gong Hitter.pl
# Author: Ozzyozborn13 [You must be registered and logged in to see this link.]
# License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR.
# Copyright (C) 2011

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 ClubPenguin => ();
import_once Util => (); # get_input

package CopyBot;

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

my $o = new CopyBot {
  username => "black98",
  password => "black",
  server  => "103",
  timeout  => 0,
};

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(322,375,360);
    } elsif ($state==2) {
    while (1) {
      $o->doSendThrowBall(68,112);
      sleep 3;
      $o->doSendThrowBall(192,92);
      sleep 3;
      $o->doSendThrowBall(558,74);
      sleep 3;
      $o->doSendThrowBall(690,94);
      sleep 3;
}
      last;
    }
    $state++;
  }
}

print "If you see this then the loop is broken\n";
sleep 10;
exit;

Awsomedude56 wrote:Ok I am not new at this because I have hacked CP befor but ive downloaded perl so now what,do I copy the code and put it somwhere?

From,
Awsomedude56

Awsomedude56 wrote:Thanks(ive hacked Cp many other ways).

Awsomedude56 wrote:Hey,can you tell meh where you got the obama thing.I knew where but I forgot.It starts with a D I think.....

richeyrich89 wrote:when i open it it quickley closes why does it do that does it not work or what?

Ozzyozborn13 wrote:

richeyrich89 wrote:when i open it it quickley closes why does it do that does it not work or what?

You must have done something wrong, remember to replace the PENGUIN and PASSWORD with your bots name and pass before you save it.