Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Latest topics
» Anybody else come to this forum for the memories?
Tue Jun 12, 2018 12:07 am by Cooldude21

» This forum died
Thu Mar 30, 2017 11:10 pm by _Skate_

» Introduce yourselves!
Fri Jan 23, 2015 7:21 pm 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

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 link.]
avatar
Ozzyozborn13
Admin

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

https://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

Back to top

- Similar topics

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