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