Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.

Join the forum, it's quick and easy

Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Best Club Penguin Bots
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Best Club Penguin Bots

A Place For Club Penguin Bots And Awesome Stuff Like That

Similar topics
Latest topics
» Add me on discord if you want to catch up!
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyTue Feb 05, 2019 5:36 am by Gizmo92883

» Anybody else come to this forum for the memories?
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyTue Jun 12, 2018 12:07 am by Cooldude21

» This forum died
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyThu Mar 30, 2017 11:10 pm by _Skate_

» Introduce yourselves!
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyFri Jan 23, 2015 7:21 pm by Gizmo92883

» Ozzy's Bot Script
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyMon May 13, 2013 8:31 am by Pig

» Goodbye BCPB Forums.
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyTue Sep 18, 2012 6:37 pm by 43nînjâ17

» Follow bot script (100% Credit to Cp-Cheater )
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptySun Sep 16, 2012 4:55 pm by Dentonbrooks

» Xat Main Owner Hacker
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptyFri Aug 17, 2012 2:32 am by 43nînjâ17

» xat message big
Copy Everyones Emotes Actions And Snowballs! Script By Me EmptySat Aug 11, 2012 12:32 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

2 posters

Best Club Penguin Bots :: Bot Scripts :: Perl Bot Scripts

Go down

Copy Everyones Emotes Actions And Snowballs! Script By Me Empty Copy Everyones Emotes Actions And Snowballs! Script By Me

Post  Gizmo92883 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)
Gizmo92883
Gizmo92883

Posts : 114
Reputation : 0
Join date : 2010-09-08
Age : 29
Location : Retired Member

Back to top Go down

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

Post  Ozzyozborn13 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.
Ozzyozborn13
Ozzyozborn13
Admin

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

https://www.youtube.com/ozzyozborn13

Back to top Go down

Copy Everyones Emotes Actions And Snowballs! Script By Me Empty ozzy go to chat

Post  Gizmo92883 Sat Jan 15, 2011 1:41 pm

go to chat
Gizmo92883
Gizmo92883

Posts : 114
Reputation : 0
Join date : 2010-09-08
Age : 29
Location : Retired Member

Back to top Go down

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

Post  Sponsored content


Sponsored content


Back to top Go down

Back to top

- Similar topics

Best Club Penguin Bots :: Bot Scripts :: Perl Bot Scripts

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