Code:

##################  Written by Murf 10/10/97 ####################                                                           #### Requires wordlist.txt and wscore file                     #### I have included a wordlist file, but if you want to write #### your own, the format is                                   ## ## <word to scramble>:<clue>                                 ####                                                           ####                                                           ####                                                           ####  The only  commands are:                                  ####                                                           ####  !word       -- starts the game                           ####  !score      -- spews the top ten scorers                 ####  !wordswitch -- turns it on or off                        ####  !wordanswer -- turn the answer on or off                 ####           Check www.blueday.org/eggdrop.html              ####           Contact murf@mindless.com with questions        ################################################################### NOTES# Scores are kept globally# Scores are only kept for those in the bot's user list.# The special user used to track various things, is added#   by the script.## REVISION HISTORY# Feb 12 2006--Fixed the score, it didn't work with under 10 entries -- Mat# Mar 26 2002   --  Fixed adding new channel # Dec 18 2000   --  Fixed the score again. It was totally broken, not listing#                   anything close to the top 10 scorers#               --  fixed problem with possible duplicate entries in the score#                   file is users change case of their nicks# July 9 2000   --  Added switch to say/not say the answer if no one gets it.#--  Got rid of all the 'putchan's# July 2 2000 -- Fixed bug in the_score that didn't account for # less than 10 people in the score list.#--Fixed bug in the_score that failed to check for #non-existent score file.## BINDSbind pub -|- !score the_scorebind pub -|- !word pub_wordbind time - "05 03 % % %" wo_refresh_timebind msg m !wordgame word_onoffbind msg m !wordanswer answer_onoff## VARIABLES, set these.# This is the file that holds the wordlist, set it to whateverset wlistfile /home/user/eggdrop/scripts/wordlist.txt# This file keeps scores again call it whatever set wscorefile /home/user/eggdrop/scripts/topscores# This special user is added to the bots userlist and used to track# where each chan is in the wordlistset specuser god# Say the answer if no one gets it# 0 is don't say it / 1 is say itset ansonoff 1## ----------------Leave the rest alone----------------------------------# This variable tells whether the script is being run.  It will only allow# the game to be played in one channel at a time, otherwise too many timers# too much confusion.# Occasionally, the script may become confused during desynchs and says its # running when it isn't. You must reset this variable to 0. Don't worry# it doesnt happen often.  Obviously leave it set to 0 hereset winuse 0# This variable is the place in the wordlist.  Its initialized to 0 don't# mess with it.  I tried randomizing this, but found this worked better,# but its not hard to randomize if you like that better.set word_list_count 0# On off switch for the annoying people# 0 is off/ 1 is onset glonoff 1# Global channel variable, initialized to null, leave aloneset chan ""# Initializes global wordlist to null, leave it aloneset words ""# ----------CODE--------------------------------------------------------# Procedure to turn on/off whether the answer is given if no one# gets it.proc answer_onoff {nick uhost handle args} {  global ansonoff botnick  set onoff [string tolower [ string trim [lindex [split $args] 0] "{}" ]]  if {$onoff == "on"} {  set ansonoff 1putserv "NOTICE $nick :Wordgame will now tell you losers the answers ;-P"return}   if {$onoff == "off"} { set ansonoff 0putserv "NOTICE $nick :Wordgame will no longer tell you losers the answers"return}   putserv "NOTICE $nick :USAGE: /msg $botnick !wordanswer on\/off"   return}# Had to add an on off switch cause some pple started annoying meproc word_onoff {nick uhost handle args} {  global botnick glonoff  set onoff [string tolower [ string trim [lindex [split $args] 0] "{}" ]]  if {$onoff == "on"} {  set glonoff 1putserv "NOTICE $nick :Wordgame is turned on"return}   if {$onoff == "off"} { set glonoff 0putserv "NOTICE $nick :Wordgame is turned off"return}   putserv "NOTICE $nick :USAGE: /msg $botnick !wordswitch on\/off"   return}# This is the main proc, it spews the word and sets the timers to do the # rest.proc pub_word {nick uhost handle channel args} {   global wscorefile wlistfile words word_list_count answer winuse \chan letone lettwo letters specuser glonoff   if {$glonoff == 0} {putserv "PRIVMSG $channel :Sorry, wordgame is turned off, try again later"return   }    set chn [string tolower $channel]   if {$word_list_count == 0} {       if {![validuser $specuser]} {          set channels [channels]          adduser $specuser specuser!special@word.special.org          foreach chann $channels {             setuser $specuser XTRA wcount.$chann 0          }       }       set word_list_count [getuser $specuser XTRA wcount.$chn]       if {$word_list_count == ""} {          setuser $specuser XTRA wcount.$chn 0          set $word_list_count 0       }         set words ""       set fd [open $wlistfile r]       while {![eof $fd]} {          lappend words [gets $fd]       }       close $fd   }   if {($winuse == 1) && ([string compare $chn $chan] != 0)} {      putserv "PRIVMSG $chn :Sorry, they're already playing in $chan, go join in. I'll tell em your coming, $nick."    return 0   } elseif {($winuse == 1) && ([string compare $chn $chan] == 0)} {         putserv "PRIVMSG $chan :HEY! One word at a time!"     return 0   } elseif {$winuse == 0} {      set chan $chn      set winuse 1      set word_pair [lindex $words $word_list_count]      set answer [lindex [split $word_pair :] 1]      set word_split [split $word_pair :]      set letters [lreplace $word_split 1 1]      set let_split [split $letters {}]      set letone [lindex $let_split 0]      set slettwo $letone      set slettwo [join [lappend slettwo [lindex $let_split 1]]]      regsub { } $slettwo {} lettwo      set i [llength $let_split]      set smixed ""      set tmixed ""      for {set j 0} {$j < $i} {incr j} {        set k [rand [llength $let_split]]         set smixed $tmixed        set smixed [lappend smixed [lindex $let_split $k]]        set let_split [lreplace $let_split $k $k]        regsub { } $smixed {} tmixed      }      set mixed $tmixed      bind pub - $letters pub_gotit      putserv "PRIVMSG $chan :Unscramble ---> \0036 $mixed "      incr word_list_count       if {$word_list_count >= [expr [llength $words] -1]} {         set word_list_count "0"      }      setuser $specuser XTRA wcount.$chn $word_list_count      utimer 60 noone_gotit       utimer 15 clue_1      utimer 30 clue_2      utimer 45 clue_3   }}# All the timers expired and no one got it. Spew to chan.proc noone_gotit {} {   global winuse chan letters ansonoff   if {$ansonoff} {     putserv "PRIVMSG $chan :Nobody got it...it\'s \0034$letters"   } else {      putserv "PRIVMSG $chan :Nobody got it...\0034losers!"   }   unbind pub - $letters pub_gotit   set winuse 0    set chan "" }# List of things to say when a validuser winsset winsay {"must be a fluke""you rule!!""how's that VD comin along?""can I be your friend?""you're such a badass!""must have gotten all the easy ones!""but you still suck!""you must be on \0034fire!!""cheater!"}# Somebody won, spew to chan and update score file. Scores are kept for both# daily and cumulative.  Once anyone hits 500 all scores are reset.proc pub_gotit {nick uhost handle channel args} {   global wscorefile words letters answer  winuse chan winsay   putserv "PRIVMSG $chan :Woohoo $nick!! You got it...\0034$letters"   kill_timers      unbind pub - $letters pub_gotit   if {![validuser $handle]} {     set winuse 0     set chan ""     return 0   }   if {![file exists $wscorefile]} {set fd [open $wscorefile w]close $fd   }   set fd [open $wscorefile r]   set j 0   while {![eof $fd]} {     lappend score [gets $fd]     set j [incr j]    }   set i [expr $j - 1]   set score [lreplace $score $i $i]   close $fd   for {set k 0} {$k < $i} {incr k 3} {     set scnick [lindex $score $k]     if {[string tolower $handle] == [string tolower $scnick]} {        set newd [expr [lindex $score [expr $k + 1]] + 1]        set newf [expr [lindex $score [expr $k + 2]] + 1]        set score [lreplace $score [expr $k + 1] [expr $k + 2] $newd $newf]        set dscore [lindex $score [expr $k + 1]]        set rand_say [lindex $winsay [rand [llength $winsay]]]        putserv "PRIVMSG  $chan :$nick you've won $dscore times today, $rand_say"        if {$newf == 500} {          putserv "PRIVMSG $chan :OH MY GAWD!! $scnick just scored 500 since time began!"          set score [lreplace $score 1 2 0 0]          for {set k 1} {$k < $i} {incr k 2} {            set score [lreplace $score $k $k 0]    incr k            set score [lreplace $score $k $k 0]          }          putserv "PRIVMSG $chan :\001ACTION sprinkles bot dust and time begins again!"        }        set winuse 0        set chan ""        set fd [open $wscorefile w]        foreach line $score {          puts $fd $line        }         close $fd        return 0     }     }   putserv "PRIVMSG $chan :$nick this is your first ever win!!!...Don't you feel pathetic!"   set score [lappend score $handle]   set score [lappend score 1]   set score [lappend score 1]   set fd [open $wscorefile w]     foreach line $score {       puts $fd $line     }   close $fd   set winuse 0   set chan ""}proc the_score {nick uhost handle channel args} {  global botnick wscorefile words answer winuse chan  if {($winuse == 1) && ($chan == $channel)} {    putserv "PRIVMSG $chan :Sheesh! Can't you see we're playing here!!"  return 0  }  if {![file exists $wscorefile]} {    putserv "PRIVMSG $chan : No one has scored yet!"    return  }  set fd [open $wscorefile r]  set j 0   while {![eof $fd]} {     lappend score [gets $fd] incr j   }   set i [expr $j - 1]   set score [lreplace $score $i $i]   close $fd   set looptest [llength $score]   for {set k 0} {$k < $looptest} {incr k 3} {      set wosnick [lindex $score $k]       set dscore [lindex $score [expr $k + 1]]      set fscore [format "%d" [lindex $score [expr $k + 2]]]      lappend tempsortscore [format "%.20d %d %s" $fscore $dscore $wosnick]   }   set tempsortscore [lsort -decreasing $tempsortscore]   for {set i 0} {$i < 10} {incr i} {      set tiscore [lindex $tempsortscore $i]  if {$tiscore != ""} {  set newtempsortscore [string trimleft [lindex $tiscore 0] 0]      append sortscore [format "\0034 %s\.\003 %s\(%d\/%d\)  " [expr {$i + 1}] [lindex $tiscore 2] $newtempsortscore [lindex $tiscore 1]]     }   }   set slength [llength $sortscore]   putserv "PRIVMSG $channel :The top 10 Scramble scorers are (Total/Daily):"   putserv "PRIVMSG $channel :$sortscore"}# Give clue wordproc clue_1 {} {   global chan answer   set clue $answer   putserv "PRIVMSG $chan :Clue --->\00312  $clue"}# Give first letter of the wordproc clue_2 {} {   global chan letone   set clue $letone   putserv "PRIVMSG $chan :First letter --->\00312  $clue"}# Give the second letterproc clue_3 {} {   global chan lettwo   set clue $lettwo    putserv "PRIVMSG $chan :First two letters --->\00312  $clue"}# Kill all remaining timers when someone wins.proc kill_timers {} {   global chan   foreach j [utimers] {     if {[lindex $j 1] == "noone_gotit"} {        killutimer [lindex $j 2]     }     if {[lindex $j 1] == "clue_1"} {        killutimer [lindex $j 2]     }     if {[lindex $j 1] == "clue_2"} {        killutimer [lindex $j 2]     }     if {[lindex $j 1] == "clue_3"} {        killutimer [lindex $j 2]     }   }   return 0}# Its 3:00 am, clear the daily scores.proc wo_refresh_time {m h d mo y} {  global wscorefile   set fd [open $wscorefile r]  set j 0  while {![eof $fd]} {     lappend score [gets $fd]     set j [incr j]    }  set i [expr $j - 1]  set score [lreplace $score $i $i]  close $fd  set score [lreplace $score 1 1 0]  for {set k 1} {$k < $i} {incr k 3} {     set score [lreplace $score $k $k 0]  }  set fd [open $wscorefile w]  foreach line $score {      puts $fd $line  }   close $fd  return 1}putlog "Wordgame by murf loaded"