Best Club Penguin Bots
Hello, you are not logged in. You may log in or register.
Latest topics
» This forum died
Thu Mar 30, 2017 11:10 pm by _Skate_

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

» Anybody else come to this forum for the memories?
Wed Nov 26, 2014 12:46 am 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

View previous topic View next topic 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

View previous topic View next topic Back to top

- Similar topics

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