Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Latest topics
» Anybody else come to this forum for the memories?
Tue Jun 12, 2018 12:07 am by Cooldude21

» This forum died
Thu Mar 30, 2017 11:10 pm by _Skate_

» Introduce yourselves!
Fri Jan 23, 2015 7:21 pm by Gizmo92883

» Ozzy's Bot Script
Mon May 13, 2013 8:31 am by Pig

» Goodbye BCPB Forums.
Tue Sep 18, 2012 6:37 pm by 43nînjâ17

» Follow bot script (100% Credit to Cp-Cheater )
Sun Sep 16, 2012 4:55 pm by Dentonbrooks

» Xat Main Owner Hacker
Fri Aug 17, 2012 2:32 am by 43nînjâ17

» xat message big
Sat Aug 11, 2012 12:32 am by 43nînjâ17

» CPPS GLICH "Auto Talker"
Sat Aug 11, 2012 12:25 am by 43nînjâ17

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
Club Penguin Events
Advertisement

Trivia script

Go down

Trivia script

Post  43nînjâ17 on 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;


Last edited by 43nînjâ17 on Wed Sep 08, 2010 5:36 pm; 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

Back to top

- Similar topics

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