Code:

########################################################################           --The Ultimate eggdrop Slot Machine --                    ## Slots v2.0 --  original code by Lorna MacTavish  (v1.0) 6/22/97     ##                v2.0 by Chuck Jedlicka 11/15/97                      ##########################################################################  This script is ready to go! No edits needed.#  Works great on eggdrop v1.0 and v1.1.5##  Slots.TCL Written by Lorna MacTavish (macgirl@poboxes.com)#  June 22/1997#  This is a slot machine proc for your eggdrop bot#  Tested on eggdrop 1.0p##  Syntax:  !slots#  type this on the channel##  revised November 15,1997 by Chuck Jedlicka [jcme (jcme1@hotmail.com)]#  changed output to channel, added message funtionality so #  your users don't tie up the channel. Added prizes and more...#  #                     Command for chan: !slots#                     Command for /msg: slotsset botnick "$botnick"set slots {  "Hearts"   "Lemon"  "Orange"  "Cherry"  "Lime"  "Bar"  "Bell"}bind pub - !slots play_slotsproc play_slots {nick uhost handle chan args} {  putserv "PRIVMSG $chan :<<$nick>> puts a quarter in the slot machine"  putserv "PRIVMSG $chan :<<$nick>> pulls the lever"  putserv "PRIVMSG $chan :The wheels are spinning..."  putserv "PRIVMSG $chan :coming to a stop..."  putserv "PRIVMSG $chan :<<$nick>> is feeling mighty lucky today!"  putserv "PRIVMSG $chan :here ya go!"  global slots botnick  set slot1 [lindex $slots [rand [llength $slots]]]  set slot2 [lindex $slots [rand [llength $slots]]]  set slot3 [lindex $slots [rand [llength $slots]]]  putserv "PRIVMSG $chan :| $slot1 | $slot2 | $slot3 |"  if {$slot1 == $slot2} {    if {$slot2 == $slot3} {      putserv "PRIVMSG $chan :Congratulations! $nick  You won the jackpot!  \$500 !! =)"      putserv "PRIVMSG $chan :Hey everyone! $nick Just won the Jackpot!"      putserv "notice  $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }     putserv "PRIVMSG $chan :Aww gee Shucks! $nick, :(  2 out of 3 only pays \$50 !  =)"     putserv "NOTICE  $nick :Too bad it's only true on IRC... like your other \"scores\" :P"    return 1  }  if {$slot3 == $slot2} {    if {$slot2 == $slot1} {      putserv "PRIVMSG $chan :Congratulations! $nick  You won the Jackpot! \$500 !! =)"      putserv "PRIVMSG $chan :Hey everyone! $nick Just won the Jackpot!"      putserv "notice  $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }    putserv "PRIVMSG $chan :Not too shabby $nick  you just won \$50 !  =)"    putserv "NOTICE  $nick :Too bad it's only true on IRC... like your other \"scores\" :P"    return 1  }  if {$slot1 == $slot3} {    if {$slot2 == $slot1} {      putserv "PRIVMSG $chan :Congratulations! $nick  You won the Jackpot!  \$500 !! =)"      putserv "PRIVMSG $chan :Hey everyone! $nick Just won the Jackpot!"      putserv "notice  $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }    putserv "PRIVMSG $chan :Getting close there $nick,  outside pays \$25 ! =)"    putserv "NOTICE  $nick :Too bad its like your other \"SCORES\" on IRC  :P"    return 1  }  putserv "PRIVMSG $chan :Sorry $nick not everyone can be a winner.  Better luck next time!"  putserv "NOTICE  $nick :You can also play in private!  Use /msg $botnick slots  Good Luck!!"  return 1}bind msg - slots play_slotsmproc play_slotsm {nick uhost handle chan args} {  putserv "PRIVMSG $nick :<<$nick>> puts a quarter in the slot machine"  putserv "PRIVMSG $nick :<<$nick>> pulls the lever"  putserv "PRIVMSG $nick :The wheels are spinning..."  putserv "PRIVMSG $nick :coming to a stop..."  putserv "PRIVMSG $nick :<<$nick>> is feeling mighty lucky today!"  putserv "PRIVMSG $nick :here ya go!"  global slots  set slot1 [lindex $slots [rand [llength $slots]]]  set slot2 [lindex $slots [rand [llength $slots]]]  set slot3 [lindex $slots [rand [llength $slots]]]  putserv "PRIVMSG $nick :| $slot1 | $slot2 | $slot3 |"  if {$slot1 == $slot2} {    if {$slot2 == $slot3} {      putserv "PRIVMSG $nick :Congratulations! $nick  You won the jackpot!  \$500 !! =)"      putserv "PRIVMSG $nick :Hey everyone! $nick Just won the Jackpot!"      putserv "PRIVMSG $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }     putserv "PRIVMSG $nick :Aww gee Shucks! $nick, :(  2 out of 3 only pays \$50 !  =)"     putserv "PRIVMSG $nick :Too bad it's only true on IRC... like your other \"scores\" :P"    return 1  }  if {$slot3 == $slot2} {    if {$slot2 == $slot1} {      putserv "PRIVMSG $nick :Congratulations! $nick  You won the Jackpot! \$500 !! =)"      putserv "PRIVMSG $nick :Hey everyone! $nick Just won the Jackpot!"      putserv "PRIVMSG $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }    putserv "PRIVMSG $nick :Not too shabby $nick  you just won \$50 !  =)"    putserv "PRIVMSG $nick :Too bad it's only true on IRC... like your other \"scores\" :P"    return 1  }  if {$slot1 == $slot3} {    if {$slot2 == $slot1} {      putserv "PRIVMSG $nick :Congratulations! $nick  You won the Jackpot!  \$500 !! =)"      putserv "PRIVMSG $nick :Hey everyone! $nick Just won the Jackpot!"      putserv "PRIVMSG $nick :Don't ya wish it were Real!!  hehehe :P"      return 1    }    putserv "PRIVMSG $nick :Getting close there $nick,  outside pays \$25 ! =)"    putserv "PRIVMSG $nick :Too bad its like your other \"SCORES\" on IRC  :P"    return 1  }  putserv "PRIVMSG $nick :Sorry $nick not everyone can be a winner.  Better luck next time!"  putserv "PRIVMSG $nick :Thanks for playing privately!  Your fellow channel members appreciate it! =)"  return 1}putlog "Slots 2.0 loaded succesfully"