25/08/2009, 18:58
je te donne un seul exemple et à toi de continuer le reste :)
Voila j'espere t'avoir aider :)
tcl
bind pub - !flood flood
proc flood {nick uhost handle chan args} {
if {![isop $nick $chan] && ![ishalfop $nick $chan]} { putquick "PRIVMSG $nick Tu doit être Halfop pour utiliser cette commande"; return 0}
if {[lindex $args 0]!=""} {
set vnick [lindex $args 0]
if {![onchan $vnick $chan]} { putquick "PRIVMSG $nick $nick n'est pas sur $chan"; return 0}
putquick "KICK $chan $vnick $nick : Le flood ( grosse masse de texte inutile ) est interdit !"
return
} else {
puthelp "NOTICE $nick Syntaxe !! !flood pseudo"
return
}
}
Voila j'espere t'avoir aider :)