Code:

bind pub Q

Code:

#Scarabeo.tcl by cyborgirl & nilo#spacial tnx DrGoNzO e tutti gli altri amici :°)set vers "2.2.c"set scadir "scarabeo"set consonanti  "b c d f g h l m n p q r s t v z"set vocali  "a e i o u"set nletter 14set numvocali 4set vocabolario "$scadir/dizionario.txt"if {![file exist $vocabolario]} { putlog "vocabolario non trovato" putlog "FAILED LOADED" return 0}proc lrand {letter} {     set l [lindex $letter [rand [expr [llength $letter] - 1]]]     return $l }proc do_lettere {} {      global vocali consonanti nletter numvocali      set nvocali [expr $numvocali + [rand 2]]      for {set i 0}  {$i < [expr $nletter - $nvocali]} {incr i} {       lappend letters [lrand $consonanti]      }      for {set i 0}  {$i < $nvocali} {incr i} {       lappend letters [lrand $vocali]      }     return $letters}proc nl_killutimer {cmd} {  regsub -all -- {\[} $cmd {\[} cmd ; regsub -all -- {\]} $cmd {\]} cmd  foreach tmr [utimers] {    if {[string match $cmd* [join [lindex $tmr 1]]]} {      killutimer [lindex $tmr 2]    }  }}bind pub Q !scarabeo pub_scarabeoproc pub_scarabeo {nick host hand chan text} {     global pubstarted scarachan stopped maxmanche global vers botnick consonanti vocali caos botj botd     if {[info exist pubstarted] && [info exist scarachan] && ($chan != $scarachan)} {      putserv "PRIVMSG $chan :Scarabeo già attivo su $scarachan"     return 0     }     set scarachan $chan     if {[lindex $text 0] == "start"} {       if {[info exist pubstarted]} {         putserv "PRIVMSG $chan :Scarabeo già attivo su $chan"         return 0        }      set mode [lindex $text 2]      if {[lindex $text 1] > 0 && (( $mode == "caos") || ($mode == "standard") || ($mode == "bot"))} {        if {$mode == "bot"} {          if {[lindex $text 3] <= 0} {           putserv "PRIVMSG $chan :Usa !scarabeo start n°matches bot difficoltà ( >= 10)"           return 0           }         set botj 1          if {[lindex $text 3] > 10} {            set botd [expr [lindex $text 3] - 4]           } else {          set botd 6          }        set caos 1        }         if {$mode == "caos"} {set caos 1}        if {$mode == "standard"} {set caos 0}        if {[info exist stopped]} {unset stopped}        set maxmanche [lindex $text 1]        set pubstarted 1       foreach i $consonanti {        lappend lettere $i       }       foreach i $vocali {        lappend lettere $i       }       foreach l $lettere {        set v "$l = \002 [lvalori $l] \002"        lappend valori $v       }       regsub -all (\{|\}) $valori "" valori       if {$caos == 0} {        putserv "PRIVMSG $chan :\002 \0033Scarabeo Versione $vers "        putserv "PRIVMSG $chan :\0033 Scrivete in query a $botnick la parola che riuscite a creare con le lettere che vi darò"        putserv "PRIVMSG $chan :\0033 Solo la prima parola che digitate verrà accettata come risposta"        putserv "PRIVMSG $chan :\0034 I valori delle lettere sono : $valori"        putserv "PRIVMSG $chan :\0033 Buon Divertimento \002 :°D"        utimer 5 [list scarabeostart $chan]         return 0       }       putserv "PRIVMSG $chan :\002 \0033Scarabeo Versione $vers "        putserv "PRIVMSG $chan :\0033 Scrivete in query a $botnick tutte le parole che riuscite a creare con le lettere che vi darò"       putserv "PRIVMSG $chan :\0034 I valori delle lettere sono : $valori"       putserv "PRIVMSG $chan :\0033 Buon Divertimento \002 :°D"       utimer 5 [list scarabeostart $chan]       return 0      }      putserv "PRIVMSG $chan :Usa !scarabeo start n°matches standard/caos/bot"     }     if {[lindex $text 0] == "stop" && [info exist pubstarted]} {     scarabeostop          return 0     }}bind pub Q !valori pub_valoriproc pub_valori {nick host hand chan arg} {     global consonanti vocali     foreach i $consonanti {      lappend lettere $i     }     foreach i $vocali {      lappend lettere $i     }     foreach l $lettere {     set v "$l = \002 [lvalori $l] \002"     lappend valori $v     }     regsub -all (\{|\}) $valori "" valori     putserv "PRIVMSG $chan : $valori" }proc scarabeostop { } {   global scarachan pubstarted stopped manche maxmanche punti pmatch caos botj botd    if {[info exist pubstarted]} {unset pubstarted}     if {[info exist botj]} {unset botj}    if {[info exist manche]} {unset manche}    if {[info exist maxmanche]} { unset maxmanche}    if {[info exist punti]} {unset punti}    if {[info exist pmatch]} {unset pmatch}    if {[info exist caos]} {unset caos}    if {[info exist botd]} {unset botd}    if {[info exist scarachan]} {      putserv "PRIVMSG $scarachan :Scarabeo disattivato"      unset scarachan    }    nl_killutimer diecisecondi    nl_killutimer stop_match    set stopped 1}proc scarabeostart {chan} {     global vocabolario risposte paroleok stopped maxmanche manche pvalore caos      if {[info exist stopped]} {return 0}      if {![info exist manche]} {set manche 0}      incr manche      if {$manche > $maxmanche} {       finegioco $chan      return 0      }      set paroleok ""      set file [open $vocabolario]      set lettere [do_lettere]      while {![eof $file]} {       set parola [gets $file]       set pcon $parola        foreach l $lettere {         if {[string match *$l* $pcon]} {         regsub $l $pcon "" pcon         }        }       if {[string length $pcon] == 0} {       lappend paroleok " $parola"       set pvalore($parola) [pval $parola]       }     }     regsub -all (\{|\}) $paroleok "" paroleok      do_match $lettere $paroleok $chan      utimer 90 [list diecisecondi $chan]}proc diecisecondi {chan} {       global pmatch botnick caos        set gmatch [array names pmatch]     if {$caos == 1} {       foreach g $gmatch {        if {$g != $botnick} {         putserv "PRIVMSG $g :\002 \0034 Mancano 10 secondi"        }       }     }     putserv "PRIVMSG $chan :\002 \0034 Mancano 10 secondi"}proc do_match {lettere paroleok chan} {    global started manche maxmanche mlettere rmatch botnick pmatch rmatch pvalore caos botj botd    set mlettere $lettere    set started 1    if {[info exist rmatch]} {unset rmatch}    putserv "PRIVMSG $chan :\0031,11Round $manche\\$maxmanche LE LETTERE SONO :\002 $mlettere"    if {[info exist botj] && [info exist botd]} {      set ri [expr [rand $botd] + 4]      set pmatch($botnick) 0      for {set i 0} {$i <= $ri} {incr i} {        set text [lindex $paroleok [rand [llength $paroleok]]]          if {[info exist rmatch($botnick)]} {            foreach p $rmatch($botnick) {             if {$p == $text} {             continue             }            }           }         set pmatch($botnick) [expr $pmatch($botnick) + $pvalore($text)]         lappend rmatch($botnick) $text       }    }    utimer 100 [list stop_match $chan]}proc stop_match {chan} {    global pmatch started punti rmatch    unset started     putserv "PRIVMSG $chan :TEMPO SCADUTO"    if {[info exist pmatch]} {      set gmatch [array names pmatch]     foreach g $gmatch {       if {[info exist punti($g)]} {        set punti($g) [expr $punti($g) + $pmatch($g)]       } else {        set punti($g) $pmatch($g)       }      if {[info exist rmatch($g)]} {      putserv "PRIVMSG $chan :\002 \0034 $g \002 \0034 ha riposto \002 \0034 $rmatch($g) \002 \0034 punti \002 \0034 $pmatch($g) \002 \0034"#      unset rmatch($g)      }     }    unset pmatch    }    utimer 4 [list classifica $chan]    utimer 5 [list putserv "PRIVMSG $chan:\0033 sta per iniziare il prossimo round"]    utimer 20 [list scarabeostart $chan] }bind msgm - * msg_scarabeoproc msg_scarabeo {nick host hand text} {     global paroleok pmatch started rmatch pvalore caos mlettere botnick     if {![info exist started]} {return 0}      set text [lindex $text 0]     if {$nick == $botnick} {return 0}    if {$caos == 0 } {     if {[info exist pmatch($nick)]} {     return 0     }     if {[string match "* $text *" $paroleok]} {      set pmatch($nick) $pvalore($text)      set rmatch($nick) $text      return 0     }     set pmatch($nick) 0     set rmatch($nick) $text     return 0    }    if {[info exist rmatch($nick)]} {     foreach p $rmatch($nick) {      if {$p == $text} {      return 0      }     }    }    if {![info exist pmatch($nick)]} {    set pmatch($nick) 0    puthelp "PRIVMSG $nick :\002 $mlettere"    }   if {[string match "* $text *" $paroleok]} {       putlog "accettata"            set pmatch($nick) [expr $pmatch($nick) + $pvalore($text)]       lappend rmatch($nick) $text       return 0     }} proc lvalori {l} {     if {$l == "a" || $l == "c" || $l == "e" || $l == "i" || $l == "o" || $l == "r" || $l == "s" || $l == "t" } {return 1}     if {$l == "l" || $l == "n" || $l == "m" } {return 2}     if {$l == "p"} {return 3}     if {$l == "b" || $l == "d" || $l == "f" || $l == "g" || $l == "u" || $l == "v" }  {return 4}     if {$l == "h" || $l == "z" } {return 8}     if {$l == "q" } {return 10}     return 0}proc pval {parola} {    set val 0    for {set i 0} { $i < [string length  $parola]} {incr i} {    set val [expr $val + [lvalori [string index $parola $i]]]    }    return $val}proc classifica {chan} {      global punti pos npos      set cnick [array names punti]      foreach n $cnick {       if {[info exist punti($n)]} {        lappend cpunti $punti($n)       }      }      if {[info exist npos]} {unset npos}      if {[info exist pos]} {unset pos}      set cpunti [lsort -decreasing -integer $cpunti]      set potition "p s t"      set pos(p) [lindex $cpunti 0]      set comp $pos(p)      set p s      for {set i 0} { $i <= [llength $cpunti]} {incr i} {       if {[lindex $cpunti $i] == $comp} {        continue         }        set pos($p) [lindex $cpunti $i]        if {$p == "t" } {break}        set p t        set comp $pos(s)       }      foreach n $cnick {       foreach c $potition {          if {[info exist pos($c)]} {                  if {$punti($n) == $pos($c)} {             lappend npos($c) $n            }          }       }      }     putserv "PRIVMSG $chan :\002 CLASSIFICA"     putserv "PRIVMSG $chan :In 1° Posizione Con $pos(p) Punti ... $npos(p)"      if {[info exist pos(s)] && [info exist npos(s)]} {       putserv "PRIVMSG $chan :In 2° Posizione CoN $pos(s) Punti ... $npos(s)"      }      if {[info exist pos(t)] && [info exist npos(t)]} {       putserv "PRIVMSG $chan :In 3° Posizione CoN $pos(t) Punti... $npos(t)"      }}proc finegioco {chan} {     global pos npos  manche maxmanche punti     if {[llength $npos(p)] > 1} {     set verb "Vincono"     } else {     set verb "Vince"     }     putserv "PRIVMSG $chan :DOPO [expr $manche - 1] Rounds, Con $pos(p) punti $verb: \0034 $npos(p) "     unset npos; unset pos ;unset manche; unset maxmanche;unset punti     scarabeostop}putlog "Scarabeo.tcl $vers caricata"