Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Latest topics
» This forum died
Thu Mar 30, 2017 11:10 pm by _Skate_

» Introduce yourselves!
Fri Jan 23, 2015 7:21 pm by Gizmo92883

» Anybody else come to this forum for the memories?
Wed Nov 26, 2014 12:46 am by Gizmo92883

» Ozzy's Bot Script
Mon May 13, 2013 8:31 am by Pig

» Goodbye BCPB Forums.
Tue Sep 18, 2012 6:37 pm by 43nînjâ17

» Follow bot script (100% Credit to Cp-Cheater )
Sun Sep 16, 2012 4:55 pm by Dentonbrooks

» Xat Main Owner Hacker
Fri Aug 17, 2012 2:32 am by 43nînjâ17

» xat message big
Sat Aug 11, 2012 12:32 am by 43nînjâ17

» CPPS GLICH "Auto Talker"
Sat Aug 11, 2012 12:25 am by 43nînjâ17

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
Club Penguin Events
Advertisement

Auto target hitter

View previous topic View next topic Go down

Auto target hitter

Post  Ozzyozborn13 on Fri Dec 24, 2010 7:15 pm

This script brings your bot to the Snow Forts and it will throw snowballs at the target forever.

Code:
#!/usr/bin/perl

# Program: Auto Target 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 [You must be registered and logged in to see this link.]

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 or die "$import: $!\n";
  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 => ();
import_once Util => (); # get_input

package CopyBot;

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

my $o = new CopyBot {
  username => "Username",
  password => "Password",
  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(801,520,265);
    } elsif ($state==2) {
    while (1) {
      $o->doSendThrowBall(670,80);
      sleep 2;
}
      last;
    }
    $state++;
  }
}
print "If you see this then the loop is broken\n";
sleep 10;
exit;


Last edited by Ozzyozborn13 on Sat Jan 22, 2011 12:29 am; edited 1 time in total

_________________
[You must be registered and logged in to see this image.]



[You must be registered and logged in to see this link.]

[You must be registered and logged in to see this link.]



[You must be registered and logged in to see this image.]
avatar
Ozzyozborn13
Admin

Posts : 211
Reputation : 19
Join date : 2010-08-28

http://www.youtube.com/ozzyozborn13

Back to top Go down

AUTO TARGET HITTER

Post  oznm on Sat Dec 25, 2010 5:00 pm

DUDE!
This is aweomse!
avatar
oznm

Posts : 17
Reputation : 1
Join date : 2010-12-22

Back to top Go down

View previous topic View next topic Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum