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

Penguin Flasher Credit To Moon Walker

View previous topic View next topic Go down

Penguin Flasher Credit To Moon Walker

Post  43nînjâ17 on Sat Sep 25, 2010 9:51 pm

Code:

#!/usr/bin/perl -w

#Flasher Goes to he Dock

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

# Initialize
$ClubPenguin::internal_room ||= {};

print "
Goes To The Dock And Blinks
Credit To Moon Walker
______________________
How To Use:
Go To Town
Say Follow
Then go to The Dock
And Say Blink
--------------------
Made By ,Me

";
my $o = new CopyBot {
username => (shift || Util::get_input("Bot Name: ", "test")),
password => (shift || Util::get_input("Bot Password: ", "test")),
server => (shift || Util::get_input("Server: ", "test")),
};

# Who to copy
our $target = "";
# Whether or not to allow copying anyone that says "follow"
our $target_follow = $target ? 0 : 1;

my $xoffset = "";
my $yoffset = "";
print "Connecting to [$o->{server}], Loading System...\n";
die "No good!\n" unless $o->joinWorld;
print "Connected to [$o->{server}]!\n";

while (1) {
if (!$o->consume) {
print scalar(localtime).": [$$] *Disconnected*\n";
select(undef,undef,undef,1);
}
}

sub handleBuddyRequest {
my $self = shift;
my $theirroom = shift;
my $PenguinID = shift;
my $who = shift;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: PENGUIN [$who] (\#$PenguinID) wishes to be your buddy.\n";
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/$1/;
$self->doSendMessage("");
$self->doBuddyAccept($PenguinID);
}

sub handleSendPosition {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $x = shift;
my $y = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] slowly moved to ($x, $y)\n";
$u->{x} = $x;
$u->{y} = $y;
$u->{update} = time;
if ($target and $who =~ /$target/i) {
select(undef,undef,undef,0.75);
$self->doSendPosition($x + $xoffset,$y + $yoffset);
}
}
}

sub handleSendMessage {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $said = shift;

if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] said: $said\n";
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 =~ /Blink/i) {
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("StartinG");
                $self->doSendPosition(300,300);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("bEt U cAnT      dO tHis");
                $self->doSendPosition(100,400);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("hAhAhA    HahA");
                $self->doSendPosition(500,300);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("Large              SpacE");
                $self->doSendPosition(300,500);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("xD xD      xD xD");
                $self->doSendPosition(80,30);
 $self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("bLaH    bLaH bLaH");
                $self->doSendPosition(500,200);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("cOOl    CoOL");
                $self->doSendPosition(400,300);
$self->doSendFrame(51);
                sleep 3;
                $self->doJoinRoom(805);
                sleep 0;
                $self->doJoinRoom(800);
                $self->doSendMessage("oZZy NiNJa LeMon MoOn WaLkEr ReAl TeStEr");
                $self->doSendPosition(350,300);
$self->doSendFrame(51);
                sleep 3;
                  }

}
}

sub handleSendEmote {
my $self = shift;
my $room_id_internal = shift;
my $PenguinID = shift;
my $emote_code = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] emoted [$emote_code]\n";
if ($target and $who =~ /$target/i) {
select(undef,undef,undef,0.55);
$self->doSendEmote($emote_code);
}
}
}

sub handleRemovePlayer {
my $self = shift;
shift; # Not sure what that -1 pooo is for...
my $PenguinID = shift;
if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: RemovePlayer [$who] from internal room [$self->{penguin}->{$self->{PenguinID}}->{internal_room_id}]\n";
if ($target and $who =~ /$target/i) {
$self->{_BuddyFind_PenguinID} = $PenguinID;
$self->doBuddyFind($PenguinID);
}
}
}

sub handleBuddyFind {
my $self = shift;
my $my_room_id_internal = shift;
my $their_room_id_external = shift;
my $their_room_id_internal = "";
my $visitee_PenguinID = "";
if ($their_room_id_external) {
if ($their_room_id_external > 1000) {
$visitee_PenguinID = $their_room_id_external - 1000;
} elsif (my $room = $ClubPenguin::internal_room->{$their_room_id_external}) {
$their_room_id_internal = $room;
}
}
if (my $PenguinID = $self->{_BuddyFind_PenguinID}) {
if (my $u = $self->{penguin}->{$PenguinID}) {
my $x = $u->{x} || 0;
my $y = $u->{y} || 0;
if (my $who = $u->{name}) {
if ($visitee_PenguinID) {
if (my $visitee = $self->{penguin}->{$visitee_PenguinID}) {
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: BuddyFind [$who] found in igloo of [$visitee->{name}] (PenguinID #$visitee_PenguinID)\n";
} else {
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: BuddyFind [$who] found in igloo of (PenguinID #$visitee_PenguinID)\n";
$self->doGetPlayer($visitee_PenguinID);
}
} elsif ($their_room_id_external) {
$self->doJoinRoom($their_room_id_external,$x,$y) if $target and $who =~ /$target/i;
if ($their_room_id_internal) {
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: BuddyFind [$who] found in external room [$their_room_id_external] (previously visited internal room id

[$their_room_id_internal])\n";
} else {
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: BuddyFind [$who] found in external room [$their_room_id_external]\n";
}
} else {
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: BuddyFind [$who] not logged in!\n";
$u->{internal_room_id} = $u->{external_room_id} = 0;
}
}
}
} else {
print scalar(localtime).": [$$] [$self->{username}] BuddyFind no doBuddyFind called yet?\n";
}
}


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 $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] threw a snowball at ($x, $y)\n";
$u->{x} = $x;
$u->{y} = $y;
if ($target and $who =~ /$target/i) {
select(undef,undef,undef,0.25);
$self->doSendThrowBall($x,$y);
}
}
}

43nînjâ17

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

Back to top Go down

Re: Penguin Flasher Credit To Moon Walker

Post  Ozzyozborn13 on Sun Sep 26, 2010 10:22 am

wow i have noticed many mistakes in this script. sleep 0; wont work just so you know.
avatar
Ozzyozborn13
Admin

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

http://www.youtube.com/ozzyozborn13

Back to top Go down

Re: Penguin Flasher Credit To Moon Walker

Post  43nînjâ17 on Sun Sep 26, 2010 10:29 pm

It still works you just have to say blink. Also what does sleep even do? Neutral


Last edited by 43nînjâ17 on Mon Sep 17, 2012 12:27 am; edited 1 time in total

43nînjâ17

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

Back to top Go down

Re: Penguin Flasher Credit To Moon Walker

Post  Ozzyozborn13 on Mon Sep 27, 2010 3:41 pm

43nînjâ17 wrote:It still works you just have to say blink. Also what does sleep even do?

i think it would just be easier to base it on my panic script so it does it automatically and its way faster.
avatar
Ozzyozborn13
Admin

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

http://www.youtube.com/ozzyozborn13

Back to top Go down

panic script

Post  Gizmo92883 on Thu Jan 13, 2011 7:45 pm

the panic script is %50 percent yours hookbot created most of the script you just created the $o commands and stuff
avatar
Gizmo92883

Posts : 113
Reputation : 0
Join date : 2010-09-08
Age : 22
Location : Retired Member

Back to top Go down

Re: Penguin Flasher Credit To Moon Walker

Post  Ozzyozborn13 on Thu Jan 13, 2011 7:55 pm

Gizmo92883 wrote:the panic script is %50 percent yours hookbot created most of the script you just created the $o commands and stuff
Duh, Captain obvious. i just made it really fast and awesome.

_________________
[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 image.]
avatar
Ozzyozborn13
Admin

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

http://www.youtube.com/ozzyozborn13

Back to top Go down

oh thats cool XD

Post  Gizmo92883 on Thu Jan 13, 2011 7:58 pm

oh
avatar
Gizmo92883

Posts : 113
Reputation : 0
Join date : 2010-09-08
Age : 22
Location : Retired Member

Back to top Go down

chat box

Post  Gizmo92883 on Fri Jan 14, 2011 11:53 pm

guys lets chat in chat box talking on posts is lame
avatar
Gizmo92883

Posts : 113
Reputation : 0
Join date : 2010-09-08
Age : 22
Location : Retired Member

Back to top Go down

Re: Penguin Flasher Credit To Moon Walker

Post  Sponsored content


Sponsored content


Back to top Go down

View previous topic View next topic Back to top

- Similar topics

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