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

» Anybody else come to this forum for the memories?
Emote Panic Bot EmptyTue Jun 12, 2018 12:07 am by Cooldude21

» This forum died
Emote Panic Bot EmptyThu Mar 30, 2017 11:10 pm by _Skate_

» Introduce yourselves!
Emote Panic Bot EmptyFri Jan 23, 2015 7:21 pm by Gizmo92883

» Ozzy's Bot Script
Emote Panic Bot EmptyMon May 13, 2013 8:31 am by Pig

» Goodbye BCPB Forums.
Emote Panic Bot EmptyTue Sep 18, 2012 6:37 pm by 43nînjâ17

» Follow bot script (100% Credit to Cp-Cheater )
Emote Panic Bot EmptySun Sep 16, 2012 4:55 pm by Dentonbrooks

» Xat Main Owner Hacker
Emote Panic Bot EmptyFri Aug 17, 2012 2:32 am by 43nînjâ17

» xat message big
Emote Panic Bot EmptySat Aug 11, 2012 12:32 am by 43nînjâ17

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
Club Penguin Events
Advertisement

Emote Panic Bot

Go down

Emote Panic Bot Empty 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.]
Ozzyozborn13
Ozzyozborn13
Admin

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

https://www.youtube.com/ozzyozborn13

Back to top Go down

Emote Panic Bot Empty ---

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


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