Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Similar topics
    Latest topics
    » Add me on discord if you want to catch up!
    Tue Feb 05, 2019 5:36 am by Gizmo92883

    » 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

    Navigation
     Portal
     Index
     Memberlist
     Profile
     FAQ
     Search
    Club Penguin Events
    Advertisement

    Copy Everyones Emotes Actions And Snowballs! Script By Me

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

    Posts : 114
    Reputation : 0
    Join date : 2010-09-08
    Age : 23
    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.]
    Ozzyozborn13
    Ozzyozborn13
    Admin

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

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

    Posts : 114
    Reputation : 0
    Join date : 2010-09-08
    Age : 23
    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

    Back to top

    - Similar topics

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