#!/usr/bin/perl

print "iBodyguard Bot Turn On...";
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 ||= {};

my $o = new CopyBot {
  username => (shift || Util::get_input("\n\n\nYour Bots Name: ", "")),
  password => (shift || Util::get_input("\n\n\nYour Bots Password: ", "")),
  server   => (shift || Util::get_input("\n\n\nSever Name: ", "")),
};

our $target = "";
our $target_follow = $target ? 0 : 1;

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

while (1) {
if (!$o->consume) {
print scalar(localtime).": [$$] *Close Script And Re-Open\n\nThanks Lemon 9*\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 =~ /awesomerex/i) {
select(undef,undef,undef,0.75);
$self->doSendPosition($x + $xoffset,$y + $yoffset);
$target = "awesomerex";
}
}
}

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 =~ /awesomerex/i) {
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/$1/;
$self->doSendMessage("");
} elsif ($target and $who =~ /awesomerex/i) {
if ($target_follow && $said =~ /awesomerex/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 =~ /awesomerex/i) {
$target = $who;
$self->doSendPosition($u->{x},$u->{y});
}
}
#Codes!!!
#Actions
if($target_follow && $said =~ /!dance/i) {
$target = $who;
$self->doSendFrame(26);
}

if($said =~ /!sit/i) {
$self->doSendFrame(17);
}

if($said =~ /!wave/i) {
$self->doSendFrame(25);
}

#On Perl Codes
#Follow = Follow Bot

if($said =~ /Follow/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To The Script");
our $target = (shift || Util::get_input("Follow ", ""));
$self->doSendMessage("Now Following");
$self->doSendPosition($u->{x},$u->{y});
}

if($said =~ /Follow/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To The Script");
our $target = (shift || Util::get_input("Follow ", ""));
$self->doSendMessage("Now Following\n");
$self->doSendPosition($u->{x},$u->{y});
}

if($said =~ /Follow/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To The Script");
our $target = (shift || Util::get_input("Follow ", ""));
$self->doSendMessage("Now Following\n");
$self->doSendPosition($u->{x},$u->{y});
}

if($said =~ /Say/i && $who =~ /awesomerex/i) {
$self->doSendMessage(shift || Util::get_input("Say: ", ""));
}

if($said =~ /Say/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To Your Script");
$self->doSendMessage(shift || Util::get_input("Say: ", ""));
}

if($said =~ /Say/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To Your Script");
$self->doSendMessage(shift || Util::get_input("Say: ", ""));
}

if($said =~ /Action/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To Your Script");
$self->doSendFrame(shift || Util::get_input("Type Action Number: ", ""));
}

if($said =~ /Action/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To Your Script");
$self->doSendFrame(shift || Util::get_input("Type Action Number: ", ""));
}

if($said =~ /Action/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Go To Your Script");
$self->doSendFrame(shift || Util::get_input("Type Action Number: ", ""));
}

if($said =~ /Emote/i && $who =~ /awesomerex/i) {
print"
1 Smile
2 Happy
3 Eh
4 Sad
5 HOW
6 Go Away
7 Wink
8 Throw Up
9 Mad
10 Sad
11 What?
12 Idea
13 Coffee
14 Hmm
15 OMG
16 Flower
17 Clover
18 Game
19 Fart
20 Coin
21 Puffle
22 Sun
23 Moon
24 Pizza
25 Igloo
26 Pink
27 Brown
28 Cake
29 PopCorn
30 Heart
";
$self->doSendMessage("Go To Your Script");
$self->doSendEmote(shift || Util::get_input("Type Emote Number~~Number: ", ""));
}

if($said =~ /Emote/i && $who =~ /awesomerex/i) {
print"1 Smile
2 Happy
3 Eh
4 Sad
5 HOW
6 Go Away
7 Wink
8 Throw Up
9 Mad
10 Sad
11 What?
12 Idea
13 Coffee
14 Hmm
15 OMG
16 Flower
17 Clover
18 Game
19 Fart
20 Coin
21 Puffle
22 Sun
23 Moon
24 Pizza
25 Igloo
26 Pink
27 Brown
28 Cake
29 PopCorn
30 Heart
";
$self->doSendMessage("Go To Your Script");
$self->doSendEmote(shift || Util::get_input("Type Emote Number Number: ", ""));
}

if($said =~ /Emote/i && $who =~ /awesomerex/i) {
print"1 Smile
2 Happy
3 Eh
4 Sad
5 HOW
6 Go Away
7 Wink
8 Throw Up
9 Mad
10 Sad
11 What?
12 Idea
13 Coffee
14 Hmm
15 OMG
16 Flower
17 Clover
18 Game
19 Fart
20 Coin
21 Puffle
22 Sun
23 Moon
24 Pizza
25 Igloo
26 Pink
27 Brown
28 Cake
29 PopCorn
30 Heart
";
$self->doSendMessage("Go To Your Script");
$self->doSendEmote(shift || Util::get_input("Type Emote Number Number: ", ""));
}

#Lemon9cheats scripts INC

if($said =~ /!Smile/i) {
$self->doSendEmote(1);
}

if($said =~ /!Happy/i && $who =~ /awesomerex/i) {
$self->doSendEmote(2);
}

if($said =~ /!eh/i && $who =~ /awesomerex/i) {
$self->doSendEmote(3);
}

if($said =~ /!Sad/i && $who =~ /awesomerex/i) {
$self->doSendEmote(4);
}

if($said =~ /!How/i && $who =~ /awesomerex/i) {
$self->doSendEmote(5);
}

if($said =~ /!Go Away/i && $who =~ /awesomerex/i) {
$self->doSendEmote(6);
}

if($said =~ /!Wink/i && $who =~ /awesomerex/i) {
$self->doSendEmote(7);
}

if($said =~ /!Sick/i && $who =~ /awesomerex/i) {
$self->doSendEmote(8);
}

if($said =~ /!Mad/i && $who =~ /awesomerex/i) {
$self->doSendEmote(9);
}

if($said =~ /!Cry/i && $who =~ /awesomerex/i) {
$self->doSendEmote(10);
}

if($said =~ /!What/i && $who =~ /awesomerex/i) {
$self->doSendEmote(11);
}

if($said =~ /!idea/i && $who =~ /awesomerex/i) {
$self->doSendEmote(12);
}

if($said =~ /!Coffee/i && $who =~ /awesomerex/i) {
$self->doSendEmote(13);
}

if($said =~ /!Hmm/i && $who =~ /awesomerex/i) {
$self->doSendEmote(14);
}

if($said =~ /!OMG/i && $who =~ /awesomerex/i) {
$self->doSendEmote(15);
}

if($said =~ /!Flower/i && $who =~ /awesomerex/i) {
$self->doSendEmote(16);
}

if($said =~ /!Clover/i && $who =~ /awesomerex/i) {
$self->doSendEmote(17);
}

if($said =~ /!Game/i && $who =~ /awesomerex/i) {
$self->doSendEmote(18);
}

if($said =~ /!Fart/i && $who =~ /awesomerex/i) {
$self->doSendEmote(19);
}

if($said =~ /!Coin/i && $who =~ /awesomerex/i) {
$self->doSendEmote(20);
}

if($said =~ /!Puffle/i && $who =~ /awesomerex/i) {
$self->doSendEmote(21);
}

if($said =~ /!Sun/i && $who =~ /awesomerex/i) {
$self->doSendEmote(22);
}

if($said =~ /!Moon/i && $who =~ /awesomerex/i) {
$self->doSendEmote(23);
}

if($said =~ /!Pizza/i && $who =~ /awesomerex/i) {
$self->doSendEmote(24);
}

if($said =~ /!Igloo/i && $who =~ /awesomerex/i) {
$self->doSendEmote(25);
}

if($said =~ /!Pink/i && $who =~ /awesomerex/i) {
$self->doSendEmote(26);
}

if($said =~ /!Brown/i && $who =~ /awesomerex/i) {
$self->doSendEmote(27);
}

if($said =~ /!Cake/i && $who =~ /awesomerex/i) {
$self->doSendEmote(28);
}

if($said =~ /!Popcorn/i && $who =~ /awesomerex/i) {
$self->doSendEmote(29);
}

if($said =~ /!Heart/i && $who =~ /awesomerex/i) {
$self->doSendEmote(30);
}

if($said =~ /Who Rocks/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Sailboat!");
}

if($said =~ /!Talk/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Hello I am iBG! Use Wisley!");
}

if($said =~ /!Update/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Offical iBG Version Four");
}

if($said =~ /!Rape/i && $who =~ /awesomerex/i) {
$self->doSendMessage("It hurts");
}

if($said =~ /CallOfDuty/i && $who =~ /awesomerex/i) {
$self->doSendMessage("I Like Pie!");
}

if($said =~ /Mac 4 Eva/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Wazz Up Homiez");
}

if($said =~ /!Credits/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Sailboat LeMon CallOfDuty and Mac 4 Eva");
}

if($said =~ /!Stand Here/i && $who =~ /awesomerex/i) {
$self->doSendPosition($u->{x},$u->{y});
}

if($said =~ /Room/i && $who =~ /awesomerex/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(shift || Util::get_input("Room: ", ""));
}

if($said =~ /!Coffee Shop/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(110);
}

if($said =~ /!iceBerg/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(805);
}

if($said =~ /!Town/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(100);
}

if($said =~ /!Book/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(111);
}

if($said =~ /!Dance Club/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(120);
}

if($said =~ /!Lounge/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(121);
}

if($said =~ /!Gift Shop/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(130);
}

if($said =~ /!Snow Forts/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(801);
}

if($said =~ /!Plaza/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(300);
}

if($said =~ /!Pet Shop/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(310);
}

if($said =~ /!Play/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(340);
}

if($said =~ /!Pizza Parlour/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(330);
}

if($said =~ /!Forest/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(809);
}

if($said =~ /!Cove/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(810);
}

if($said =~ /!dock/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(800);
}

if($said =~ /!Beach/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(400);
}

if($said =~ /!LightHouse/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(410);
}

if($said =~ /!Beacon/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(411);
}

if($said =~ /!Ship/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(420);
}

if($said =~ /!Shipnest/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(423);
}

if($said =~ /!Ship Hold/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(421);
}

if($said =~ /!Ship Quarters/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(422);
}

if($said =~ /!Rink/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(802);
}

if($said =~ /!Ski Village/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(200);
}

if($said =~ /!Lodge/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(220);
}

if($said =~ /!Attic/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(221);
}

if($said =~ /!Agent/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(212);
}

if($said =~ /!Command Room/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(323);
}

if($said =~ /!Tube/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(213);
}

if($said =~ /!Dojo/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(321);
}

if($said =~ /!Ski Hill/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(230);
}

if($said =~ /!Dojo Card/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(320);
}

if($said =~ /!Ninja Hideout/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(322);
}

if($said =~ /!Dojo Fire/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(812);
}

if($said =~ /!Mine/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(807);
}

if($said =~ /!Shack/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(808);
}

if($said =~ /!Cave/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(813);
}

if($said =~ /!Lake/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(814);
}

if($said =~ /!UnderWater/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(815);
}

if($said =~ /!Recycle/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(122);
}

if($said =~ /!Tree Fort/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(851);
}

if($said =~ /!Box/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(811);
}

if($said =~ /!Rooftop/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(852);
}

if($said =~ /!Backstage/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(853);
}

if($said =~ /!Secret/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(863);
}

if($said =~ /!SnowBall/i && $who =~ /awesomerex/i) {
$self->doSendThrowBall(200,300);
}

if($said =~ /!Random/i && $who =~ /awesomerex/i) {
$self->doSendPosition(200,100);
}

if($said =~ /!Blink/i && $who =~ /awesomerex/i) {
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
$self->doJoinRoom(805);
sleep(1);
$self->doJoinRoom(100);
sleep(1);
}

if($said =~ /!Run Around/i && $who =~ /awesomerex/i) {
$self->doSendPosition(300,100);
sleep(3);
$self->doSendPosition(50,300);
sleep(3);
$self->doSendPosition(100.400);
sleep(3);
$self->doSendPosition(500,300);
sleep(3);
$self->doSendPosition(100,500);
sleep(3);
}

if($said =~ /!Coffee Run Around/i && $who =~ /awesomerex/i) {
$self->doSendEmote(13);
$self->doSendPosition(300,100);
$self->doSendEmote(13);
sleep(3);
$self->doSendEmote(13);
$self->doSendPosition(50,300);
$self->doSendEmote(13);
sleep(3);
$self->doSendEmote(13);
$self->doSendPosition(100.400);
$self->doSendEmote(13);
sleep(3);
$self->doSendEmote(13);
$self->doSendPosition(500,300);
$self->doSendEmote(13);
sleep(3);
$self->doSendEmote(13);
$self->doSendPosition(100,500);
$self->doSendEmote(13);
sleep(3);
}

if($said =~ /!Reset/i && $who =~ /awesomerex/i) {
$self->doSendPosition(304,30);
$self->doSendMessage("HELP!!");
sleep(4);
$self->doSendPosition(50,300);
$self->doSendMessage("BOT reset enabled");
sleep(3);
$self->doSendPosition(400,400);
$self->doSendMessage("CP well now self destruct");
sleep(3);
$self->doSendPosition(100,30);
$self->doSendMessage("Run od be parrished!");
sleep(3);
$self->doSendPosition(100,50);
$self->doSendMessage("WTF BOOM! BOT has been Reset. ");
sleep(3);
}

if($said =~ /!Line up/i && $who =~ /awesomerex/i) {
$self->doSendPosition(300,300);
}

if($said =~ /!Check/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Bot is Working");
}

if($said =~ /!Ping/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Pong");
}
if($said =~ /!BOT/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Bitches On Titties");
}

if($said =~ /Who Is Cool/i && $who =~ /awesomerex/i) {
$self->doSendMessage("Not You Sucker!");
}
}
}

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 =~ /awesomerex/i) {
select(undef,undef,undef,0.55);
$self->doSendEmote($emote_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 $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 =~ /awesomerex/i) {
select(undef,undef,undef,0.25);
$self->doSendThrowBall($x + int(rand(20)),$y + int(rand(20)));
}
}
}

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 =~ /awesomerex/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";
}
}