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 Aug 29, 2017 11:47 am by sudhi578

» 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

Copy Everyones Emotes Actions And Snowballs! Script By Me

View previous topic View next topic Go down

Copy Everyones Emotes Actions And Snowballs! Script By Me

Post  Gizmo92883 on Thu Jan 13, 2011 5:11 pm

this is not a good script to look inside of its not organized at all but it works and the only reason it doesnt copy messages is cuase i dont want to go threw packages and crap so here it is

Code:

#!/usr/bin/perl -w
#Created By Gizmo92883
#CopyRight(c) 2011

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

package CopyBot;

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

print"This Copy Bot Copys Everyones Actions Emotes And Snowballs\n";

my $o = new CopyBot {
username => (shift || Util::get_input("\nYour Copy Bot: ", "")),
password => (shift || Util::get_input("\nCopy Bots Password: ", "")),
server => (shift || Util::get_input("\nServer: ", "")),
};

# Target is used for targeting all players do not edit!
our $target = "";
our $target_follow = $target ? 0 : 1;


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"*Disconnected*\n";
select(undef,undef,undef,1);
    if (!$state) {
  } elsif ($state==1) {
      last;
    }
    $state++;
  }
}

sub handleSendMessage {
  my $self = shift;
  my $room_id_internal = shift;
  my $PenguinID = shift;
  my $said = shift;
  my $who = shift;

  if (my $u = $self->{penguin}->{$PenguinID}) {
    my $who = $u->{name};
    $u->{update} = time;
    if ($target and $who =~ /$target/i) {
    my $who = $u->{$said};
    $target = $who;
    $self->doSendMessage($said = $who);
    $self->doSendMessage ("") ;
    if ($said =~ /hello/i) {
      $who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/$1/;
      $self->doSendMessage("");
    } elsif ($target and $who =~ /$target/i) {
      if ($target_follow && $said =~ /follow/i) {
        $target = "";
        # Blurt out a random scriptcode
        my $scriptcode = int(rand 32) + 1;
        $self->doSendLineMessage($scriptcode);
      } else {
   # Pretend to lag a little bit
        select(undef,undef,undef,0.55);
        $self->doSendMessage($said);
      }
    } else {
      if ($target_follow && $said =~ /follow/i) {
        $target = $who;
        $self->doSendPosition($u->{x},$u->{y});
      }
    }
}
   
                if($said =~ /Coffee Shop/i ) {
                $self->doJoinRoom(110);
           }

                if($said =~ /iceBerg/i) {
                $self->doJoinRoom(805);
           }

                if($said =~ /Town/i) {
                $self->doJoinRoom(100);
           }

                if($said =~ /Book/i) {
                $self->doJoinRoom(111);
           }

                if($said =~ /Dance Club/i) {
                $self->doJoinRoom(120);
           }

                if($said =~ /Lounge/i) {
                $self->doJoinRoom(121);
           }

                if($said =~ /Gift Shop/i ) {
                $self->doJoinRoom(130);
           }

                if($said =~ /Snow Forts/i) {
                $self->doJoinRoom(801);
           }

                if($said =~ /Plaza/i ) {
                $self->doJoinRoom(300);
           }

                if($said =~ /Pet Shop/i) {
                $self->doJoinRoom(310);
           }

                if($said =~ /Play/i) {
                $self->doJoinRoom(340);
           }

                if($said =~ /Pizza Parlour/i) {
                $self->doJoinRoom(330);
           }

                if($said =~ /Forest/i) {
                $self->doJoinRoom(809);
           }

                if($said =~ /Cove/i) {
                $self->doJoinRoom(810);
           }

                if($said =~ /dock/i) {
                $self->doJoinRoom(800);
           }

                if($said =~ /Beach/i) {
                $self->doJoinRoom(400);
           }

                if($said =~ /LightHouse/i) {
                $self->doJoinRoom(410);
           }

                if($said =~ /Beacon/i) {
                $self->doJoinRoom(411);
           }

                if($said =~ /Ship/i) {
                $self->doJoinRoom(420);
           }

                if($said =~ /Shipnest/i) {
                $self->doJoinRoom(423);
           }

                if($said =~ /Ship Hold/i) {
                $self->doJoinRoom(421);
           }

                if($said =~ /Ship Quarters/i) {
                $self->doJoinRoom(422);
           }

                if($said =~ /Rink/i ) {
                $self->doJoinRoom(802);
           }

                if($said =~ /Ski Village/i) {
                $self->doJoinRoom(200);
           }

                if($said =~ /Lodge/i) {
                $self->doJoinRoom(220);
           }

                if($said =~ /Attic/i) {
                $self->doJoinRoom(221);
           }

                if($said =~ /Agent/i) {
                $self->doJoinRoom(212);
           }

                if($said =~ /Command Room/i) {
                $self->doJoinRoom(323);
           }

                if($said =~ /Tube/i) {
                $self->doJoinRoom(213);
           }

                if($said =~ /Dojo/i ) {
                $self->doJoinRoom(321);
           }

                if($said =~ /Ski Hill/i) {
                $self->doJoinRoom(230);
           }

                if($said =~ /Dojo Card/i) {
                $self->doJoinRoom(320);
           }

                if($said =~ /Ninja Hideout/i ) {
                $self->doJoinRoom(322);
           }

                if($said =~ /Dojo Fire/i ) {
                $self->doJoinRoom(812);
           }

                if($said =~ /Mine/i) {
                $self->doJoinRoom(807);
           }

                if($said =~ /Shack/i) {
                $self->doJoinRoom(808);
           }

                if($said =~ /Cave/i) {
                $self->doJoinRoom(813);
           }

                if($said =~ /Lake/i ) {
                $self->doJoinRoom(814);
           }

                if($said =~ /UnderWater/i) {
                $self->doJoinRoom(815);
           }

                if($said =~ /Recycle/i) {
                $self->doJoinRoom(122);
                }

                if($said =~ /Server/i)    { 
                $o->{server} = (shift || Util::get_input("Server: ", ""));
                $o->joinWorld;
                }
}
}

sub handleSendEmote {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $emote_code = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $target = $u->{target};
$self->doSendEmote($emote_code);
}
}

sub handleSendFrame {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $frame_code = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $target = $u->{target};
$self->doSendFrame($frame_code);
}
}

sub handleSendThrowBall {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $x = shift;
my $y = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $target = $u->{target};
my $who = $u->{name};
$self->doSendThrowBall($x + int(rand(20)),$y + int(rand(20)));
if ($target and $who =~ /$target/i) {
$self->doSendThrowBall($x + int(rand(20)),$y + int(rand(20)));
}
}
}


Last edited by 43nînjâ17 on Thu Jan 13, 2011 9:51 pm; edited 1 time in total (Reason for editing : wasnt coded)
avatar
Gizmo92883

Posts : 113
Reputation : 0
Join date : 2010-09-08
Age : 22
Location : Retired Member

Back to top Go down

Re: Copy Everyones Emotes Actions And Snowballs! Script By Me

Post  Ozzyozborn13 on Thu Jan 13, 2011 5:16 pm

Lol, i made a script sort of like this except it has like 6x as many commands and its fast, and it goes to igloos and it walks to where you throw a snowball.

_________________
[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

http://www.youtube.com/ozzyozborn13

Back to top Go down

ozzy go to chat

Post  Gizmo92883 on Sat Jan 15, 2011 1:41 pm

go to chat
avatar
Gizmo92883

Posts : 113
Reputation : 0
Join date : 2010-09-08
Age : 22
Location : Retired Member

Back to top Go down

Re: Copy Everyones Emotes Actions And Snowballs! Script By Me

Post  Sponsored content


Sponsored content


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