21/02/2010, 14:26
j'ai trouver ceci , mais comment le modifier a ma sauce ?
tcl
######
# BIND #
######
# Chaque fois que quelqu'un parle sur un salon, ont lance la procedure pub:pvoice
bind pub - * pub:pvoice
###########
# PUB:PVOICE #
###########
proc pub:pvoice {nick host hand chan arg} {
set arg [split $arg]
# Ont vérifie que la personne qui a parler est déjà voice
if { [isvoice $nick $chan] } {
# Si c'est le cas, ont stoppe tout
return 0
# Si non
} else {
# Ont vérifie que ce qu'elle a dit dépasse les 5 mots
if { [llength $arg] >= 5 } {
# Si c'est le cas, ont voice la personne
pushmode $chan +v $nick
# Si non
} else {
# Ont arrête tout
return 0
}
}
}