#!/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 =~ /$target/i) {
select(undef,undef,undef,0.75);
$self->doSendPosition($x + $xoffset,$y + $yoffset);
$target = "774gfh";
}
}
}

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 =~ //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 =~ //i) {
$target = $who;
$self->doSendPosition($u->{x},$u->{y});
}
}
#Codes!!!
#Actions
if($said =~ /dance/i && $who =~ /Cooldude170/i) {
$self->doSendFrame(26);
}
if($said =~ /moonwalk/i && $who =~ /Cooldude170/i) {
$self->doSendFrame(9);
}
if($said =~ /drill/i && $who =~ /Cooldude170/i) {
$self->doSendFrame(26);
}
if($said =~ /hop/i && $who =~ /Cooldude170/i) {
$self->doSendFrame(55);
}

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

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

#On Perl Codes
#Follow = Follow Bot

if($said =~ /Follow/i && $who =~ /bot bot bot bott/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 =~ /Bot bot bot bott/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 =~ /bot bot bot bott/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 =~ /BOT/i) {
$self->doSendMessage(shift || Util::get_input("Say: ", ""));
}

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

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

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

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

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

if($said =~ /Emote/i && $who =~ /BOT/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 =~ /BOT/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 =~ /BOT/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 && $who =~ /Cooldude170/i) {
$self->doSendEmote(1);
}

if($said =~ /happy/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(2);
}

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

if($said =~ /sad/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(4);
}

if($said =~ /how/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(5);
}

if($said =~ /go away/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(6);
}

if($said =~ /wink/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(7);
}

if($said =~ /sick/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(8);
}

if($said =~ /mad/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(9);
}

if($said =~ /cry/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(10);
}

if($said =~ /what/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(11);
}

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

if($said =~ /coffee/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(13);
}

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

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

if($said =~ /flower/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(16);
}

if($said =~ /clover/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(17);
}

if($said =~ /game/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(18);
}

if($said =~ /fart/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(19);
}

if($said =~ /ily/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("I");
sleep(2);
$self->doSendEmote(30);
sleep(2);
$self->doSendMessage("YOU!");
}

if($said =~ /coin/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(20);
}

if($said =~ /puffle/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(21);
}

if($said =~ /sun/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(22);
}

if($said =~ /moon/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(23);
}

if($said =~ /pizza/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(24);
}

if($said =~ /igloo/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(25);
}

if($said =~ /pink/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(26);
}

if($said =~ /brown/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(27);
}

if($said =~ /cake/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(28);
}

if($said =~ /popcorn/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(29);
}

if($said =~ /heart/i && $who =~ /Cooldude170/i) {
$self->doSendEmote(30);
}

if($said =~ /who rocks?/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("Your mom and me in bed!");
}

if($said =~ /talk/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("BJ anyone?");
}

if($said =~ /update/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("I am current you fucking idiot.");
}

if($said =~ /rape/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("Ya gotta do betta than that!");
}

if($said =~ /CallOfDuty/i) {
$self->doSendMessage("Ima stick my AK up yo ass");
}

if($said =~ /Mac/i) {
$self->doSendMessage("Nah i prefer PC");
}
if($said =~ /kickass/i) {
$self->doSendMessage("*activates lazers, shoots in the ass* Target eliminated.");
}

if($said =~ /Credits/i) {
$self->doSendMessage("Your dick made my baby ");
}

if($said =~ /Come here/i && $who =~ /Cooldude170/i) {
$self->doSendPosition($u->{x},$u->{y});
}

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

if($said =~ /go coffee shop/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(110);
}

if($said =~ /go iceberg/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(805);
}

if($said =~ /go town/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(100);
}

if($said =~ /go book/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(111);
}

if($said =~ /go dance club/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(120);
}

if($said =~ /go lounge/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(121);
}

if($said =~ /go gift shop/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(130);
}

if($said =~ /go snow forts/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(801);
}

if($said =~ /go plaza/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(300);
}

if($said =~ /go pet shop/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(310);
}

if($said =~ /go play/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(340);
}

if($said =~ /go pizza parlour/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(330);
}

if($said =~ /go forest/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(809);
}

if($said =~ /go cove/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(810);
}

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

if($said =~ /go beach/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(400);
}

if($said =~ /go lighthouse/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(410);
}

if($said =~ /go beacon/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(411);
}

if($said =~ /go ship/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(420);
}

if($said =~ /go ship nest/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(423);
}

if($said =~ /go ship hold/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(421);
}

if($said =~ /go ship quarters/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(422);
}

if($said =~ /go rink/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(802);
}

if($said =~ /go ski village/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(200);
}

if($said =~ /go lodge/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(220);
}

if($said =~ /go attic/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(221);
}

if($said =~ /go agent/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(212);
}

if($said =~ /go command room/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(323);
}

if($said =~ /go tube/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(213);
}

if($said =~ /go dojo/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(321);
}

if($said =~ /go ski hill/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(230);
}

if($said =~ /go dojo card/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(320);
}

if($said =~ /go ninja hideout/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(322);
}

if($said =~ /go dojo fire/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(812);
}

if($said =~ /go mine/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(807);
}

if($said =~ /go shack/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(808);
}

if($said =~ /go cave/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(813);
}

if($said =~ /go lake/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(814);
}

if($said =~ /go underwater/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(815);
}

if($said =~ /go recycle/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(122);
}

if($said =~ /go tree fort/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(851);
}

if($said =~ /go box/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(811);
}

if($said =~ /go rooftop/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(852);
}

if($said =~ /go backstage/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(853);
}

if($said =~ /go secret/i && $who =~ /Cooldude170/i) {
$self->doJoinRoom(863);
}

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

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

if($said =~ /!blink/i && $who =~ /Cooldude170/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 =~ /Cooldude170/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 =~ /Cooldude170/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 =~ /panic/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("aksdjfgjadsgjhahlds");
$self->doSendPosition(200,100);
sleep(2);
$self->doSendMessage("95842orijwkfs");
sleep(3);
$self->doSendMessage("HOLY SHIIS GNGWFDS");
$self->doSendPosition(500,100);
sleep(2);
$self->doSendMessage("I AMDF A MDG[APACJNDIGSANSD G42039");
sleep(3);
$self->doSendMessage("123 ABC GET UR FAT ASS OFF OF ME");
$self->doSendPosition(100.400);
sleep(2);
$self->doSendMessage("LOL WTFBBQ");
sleep(3);
$self->doSendMessage("FUCK I PANMCS KBJVNMFDGHSRE");
$self->doSendPosition(500,300);
sleep(2);
$self->doSendMessage("OH FUKCING AFJKSGDFM RSGFRAST");
sleep(3);
$self->doSendMessage("MALFUNCTION!");
$self->doSendPosition(100,500);
sleep(2);
$self->doSendMessage("OMG IM ON FIRE");
sleep(3);
$self->doSendMessage("QUIT PANICING! STAY CALM!");
$self->doSendPosition(15,6);
sleep(2);
$self->doSendMessage("QUIT PANICING! STAY CALM!");
$self->doSendPosition(15,6);
$self->doSendMessage("I CANT STOP CHOPPING");
$self->doSendPosition(100,500);
sleep(2);
$self->doSendMessage("MY FIRST KISS WENT A LITTLE LIKE THIS");
$self->doSendPosition(500,100);
sleep(2);
$self->doSendMessage("GET OUT OF MY HEAD!!");
$self->doSendPosition(500,100);
sleep(2);
$self->doSendMessage("DANGER DANGER LEAVE THE ROOM!");
$self->doSendPosition(500,100);
sleep(2);
$self->doSendMessage("KABOOM");
$self->doSendPosition(100,500);
sleep(2);
$self->doSendMessage("CP IS NOW DESTROYED MISSION COMPLETE");
$self->doSendPosition(500,100);
sleep(2);
}


if($said =~ /!reset/i && $who =~ /Cooldude170/i) {
$self->doSendPosition(304,30);
$self->doSendMessage("HELP!!");
sleep(4);
$self->doSendPosition(50,300);
$self->doSendMessage("MY DICKS STUCK IN A WINDOW");
sleep(3);
$self->doSendPosition(400,400);
$self->doSendMessage("GET THE FUCKING PLYERS");
sleep(3);
$self->doSendPosition(100,30);
$self->doSendMessage("OH SHIT IT FELL OFF");
sleep(3);
$self->doSendPosition(100,50);
$self->doSendMessage("WTF BOOM! BOT has been Reset. ");
sleep(3);
}

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

if($said =~ /check/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("Bot is Working now stfu and make me a sandwhich");
}
if($said =~ /lazer/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("IMA FIRIN MAH LAZER BLAHHH");
}
if($said =~ /Cooldude/i) {
$self->doSendMessage("I like Cool, he is cool.");
}
if($said =~ /!Ping/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("Pong");
}
if($said =~ /!bot/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("Bitches On Titties");
}
if($said =~ /!you are gay/i && $who =~ /Cooldude170/i) {
$self->doSendMessage("No, i was in jail, da fuck was i supposed 2 do?");
}
if($said =~ /Follow/i) {
$self->doSendMessage("Nah i am too tired of your dipshit ways");
}
if($said =~ /!fuck you/i) {
$self->doSendMessage("Ok your body will be just another one dead in the closet.");
}

if($said =~ /Who Is Cool?/i) {
$self->doSendMessage("Not You Fucker!");
}
}
}

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