This is my first BOT so have mercy on me. There will be some really neat 
ones to
come. JBUM and ROGER RUDDER - How about using this one in a STANDUP COMIC 
ROOM?


WARNING: If you don't feel comfortable with adding multiple sections to your
CYBORG file then STOP and read some more simplistic scripts. This script 
is not
of the light-weight variety and could crash your .IPT if not entered 
properly...



1.  Modify your CYBORG so that the JokeBotStat variable is totally 
globalized.


;*************BEGIN CYBORG.IPT


JokeBotStat GLOBAL

ON INCHAT 

{

JokeBotStat GLOBAL

;******************END FIRST GLOBAL DEF********



2.  Add the following to your ON INCHAT SECTION.....Replace the text marked
"Joke xx" with your joke text. This can be any one-liner or a long joke. 



;************BEGIN ON INCHAT SECTION***************************

;***************************************************************************
;*                  Standup Comic BOT - Usage 
<joke>                       *
;***************************************************************************
;
; Script Name   : Standup V1.0
; Author        : Myotis Dragonious (Alan Bean)
; Last Revised  : 15 FEB 1996
;
; Warning!!!    : You are limited to 3 blocks of 25 in this version (1.1.3)
;                 of Win Palace. If you attempt to increase this amount it
;                 will result in General Protection Faults in USER.EXE....
;

{  3 RANDOM Block =

; Block -0-

 {[     "Joke 01!"
        "Joke 02"
        "Joke 03"
        "Joke 04"
        "Joke 05"
        "Joke 06"
        "Joke 07"
        "Joke 08"
        "Joke 09"
        "Joke 10"       
        "Joke 11"
        "Joke 12"
        "Joke 13"
        "Joke 14"
        "Joke 15"
        "Joke 16"
        "Joke 17"
        "Joke 18"
        "Joke 19"
        "Joke 20"       
        "Joke 21"
        "Joke 22"
        "Joke 23"
        "Joke 24"
        "Joke 25" ] 
        
        25 RANDOM GET JokeSTR = "@64,64 !" JokeSTR + SAY } 0 Block == IF

; Block -1-

 {[     "Joke 26"
        "Joke 27"
        "Joke 28"
        "Joke 29"
        "Joke 30"
        "Joke 31"
        "Joke 32"
        "Joke 33"
        "Joke 34"
        "Joke 35"  
        "Joke 36"
        "Joke 37"
        "Joke 38"
        "Joke 39"
        "Joke 40"
        "Joke 41"
        "Joke 42"
        "Joke 43"
        "Joke 44"
        "Joke 45"
        "Joke 46"
        "Joke 47"
        "Joke 48"
        "Joke 49"
        "Joke 50"  ]


        25 RANDOM GET JokeSTR = "@64,64 !" JokeSTR + SAY } 1 Block == IF

; Block -2-

{[      "Joke 51"
        "Joke 52"
        "Joke 53"    
        "Joke 54"
        "Joke 55"  
        "Joke 56"
        "Joke 57"
        "Joke 58"
        "Joke 59"
        "Joke 60"
        "Joke 61"
        "Joke 62"
        "Joke 63"
        "Joke 64"
        "Joke 65" 
        "Joke 66"
        "Joke 67"
        "Joke 68"
        "Joke 69"
        "Joke 70"
        "Joke 71"
        "Joke 72"
        "Joke 73"
        "Joke 74"
        "Joke 75"  ]

        
        25 RANDOM GET JokeSTR =  "@64,64 !" JokeSTR  + SAY } 2 Block == IF


}

  "joke" CHATSTR == "On" JokeBotStat == AND IF


;*********END ON INCHAT SECTION**************





3. Add the following lines to your ON OUTCHAT.....




;**********BEGIN ON OUTCHAT SECTION************


JokeBotStat GLOBAL

    {
      "On" JokeBotStat =
      "JokeBOT Activated" LOCALMSG
      "" CHATSTR =
    }
      CHATSTR "Jokebot on" == IF


    {
      "Off" JokeBotStat =
      "JokeBOT is now off" LOCALMSG     
       "" CHATSTR =
    }
      CHATSTR "Jokebot off" == IF


;*****************END ON OUTCHAT SECTION***********


WARNING: If you don't feel comfortable with adding multiple sections to your
CYBORG file then STOP and read some more simplistic scripts. This script 
is not
of the light-weight variety and could crash your .IPT if not entered 
properly...


How to use the thing:

First CUT & PASTE the sections into your  CYBORG.IPT file.  (duhhhh)

Then, if all is well, reload your script and turn it on by saying 
"Jokebot ON".
Conversely you turn it off by saying "Jokebot OFF". Now comes the test.
You manually entered all 75 jokes (or trimmed the index pointers down to
accomodate) .....say the word "joke".....you should see a random joke 
appear in
an exclamation box @64,64....if not then go back and compare all of your
entries.  Make sure that you keep the [ and ] brackets where they are. DO NOT
add any more blocks of jokes or it will crash USER.EXE.


In the first INCHAT section is a line that reads ...... 3 RANDOM BLOCK = 
......
trim this pointer for less blocks of 25....


in each block are 25 jokes, and at the end of each section (block)  is the
statement...

        25 RANDOM GET JokeSTR =  "@64,64 !" JokeSTR  + SAY }....

You can remark out the last 15 jokes and change 25 RANDOM (25 jokes)  to 10
RANDOM (10 jokes)  if you wanted to try less jokes....increasing the 
number as
you add more...try and keep the "JOKE xx" placeholders until you use them 
as it
makes is less confusing.


There it is folks, ENJOY.....:)


Myotis Dragonius (Alan Bean)