Speak.pl 100% Credit To Hookbot

**43nînjâ17** Mon Aug 30, 2010 7:13 pm

Code:: #!/usr/bin/perl # Program: speak.pl # Author: HookBot <hookbot@gmail.com> # License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR. # Copyright (C) 2008 # Usage: speak.pl <PenguinName> <Password> <Server> 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 => (shift || Util::get_input("PenguinID: ", "BotMan")), password => (shift || Util::get_input("Password: ", "kcW9xW0jIald7")), server => (shift || Util::get_input("Server: ", "Icicle")), timeout => 5, }; 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) { # This is the first run through # So no nothing } elsif ($state==1) { #1. Go into the Dojo sticking to the wall $o->doJoinRoom(320, 0, 220); print "Hey, look at me up here on the wall!!!\n"; } elsif ($state==2) { #2. Throw a snowball right at the Moderator Shield, which the client no longer allows. $o->doSendThrowBall(710,40); } elsif ($state==3) { #3. Teleport into the DanceClub $o->doJoinRoom(120, 0, 0); } elsif ($state==4) { #4. Walk to the DJ area $o->doSendPosition(338,137); } elsif ($state==5) { #5. Start Dancing $o->doSendFrame(26); } elsif ($state==6) { #6. Say something $o->doSendMessage("Noog Rulz"); } elsif ($state==7) { # END OF SHOW last; } $state++; } } # Wait a couple minutes for people to see you print "The show is over.\n"; sleep 120; # Now logout exit;