Je suis bloquer pour mon 1er script

[CrazyCat]

Il te suffit d'avoir une liste par lettre, et d'aller tirer aléatoirement dans la bonne liste en fonction de la première lettre du pseudo:

tclcopier

set mname(a) {"Ababa" "Azerty" "Attention"}
set mname(b) {"Bravo" "Boulbi" "Blup"}
...
set mname(z) {"Zoulou" "Zygomatique"}
 
bind pub - "!pseum" pseum:search
proc pseum:search {nick uhost handle chan args} {
   set vict [lindex $args 0]
   if { $vict == "" } return
   set ini [string tolower [string index $vict 0]]
   putserv "PRIVMSG $chan :Pour toi $vict on a choisi [lindex $::mname($ini) [rand [llength $::mname($ini)]]]"
}

(Non testé, mais pas loin de la solution)