17/12/2007, 15:46
Je répète pour la dernière fois: C'est exactement ce qui est fait dans le tcl!!!
Tu as même extrait la ligne qui le fait, que veux tu de plus?
Tu as même extrait la ligne qui le fait, que veux tu de plus?
caline012 a écrit :tcl
PRIVMSG $channel :$nick tu dois [lindex $faire(msgs) [rand [llength $faire(msgs)]]] $who [lindex $ou(msgs) [rand [llength $ou(msgs)]]]
caline012 a écrit :set liste 1 {Tout est dit, je perds patience... si tu ne fais pas le moindre effort de compréhension, je ne peux rien pour toi.
bla
bla
bla
}
set liste 2 {
bla
bla
bla
}
et que par le biais dune commande !action
ca donne:
putserv privmsg $chan element auhasard de liste 1 +element au hasard de liste 2.
voila ca je l est chercher dans les doc sur le tcl je ne l est pas trouver.est il possible d y arriver
proc pub_descoquins {nick uhost handle channel arg} {
global faire ou
set who [lindex $arg 0]
set faire [lindex $faire(msgs) [rand [llength $faire(msgs)]]]
set ou [lindex $ou(msgs) [rand [llength $ou(msgs)]]]
putserv "PRIVMSG $channel :$nick tu dois [lindex $faire(msgs) [rand [llength $faire(msgs)]]] $who [lindex $ou(msgs) [rand [llength $ou(msgs)]]]"
}