Système de plainte

[BlackNight]

Bonjour à toutes et à tous.

J'ai codé récemment un système de plainte, et je souhaitais vous le faire partager.

Si vous y voyez des erreurs, ou des améliorations à apporter.

tclcopier

########################
#Système de plainte par BlackNight#
########################
 
set chanplainte "#plaintes"
 
bind MSGM - "*plainte*" plainte
proc plainte { nick host ident arg } {
global chanplainte
putserv "NOTICE $chanplainte :6Une plainte a été déposée par $nick"
putserv "PRIVMSG $chanplainte :$nick dépose une plainte contre [lindex $arg 1]"
putserv "PRIVMSG $chanplainte :motif: [lrange $arg 2 end]"
putserv "PRIVMSG $chanplainte :Tapez !prend $nick pour prendre en charge la plainte"
putserv "NOTICE $nick :Votre plainte à bien été envoyée au staff. Elle sera traitée dans les plus brefs délais."
}
 
bind pub - !prend prend
proc prend { nick uhost handle channel arg } {
global chanplainte
   if ![string compare -nocase $channel "$chanplainte"] {
    set comp [lindex $arg 2]
     if ![string compare -nocase $comp ""] {
putserv "NOTICE [lindex $arg 0] :Votre plainte a été prise en charge par $nick." 
unset comp
	} else {
	putserv "NOTICE [lindex $arg 0] :Votre plainte a été prise en charge par $nick. informations complémentaires: [lrange $arg 1 end]"
 
 }
}
}
 
putlog " plaintes.tcl v1.1 by BlackNight"