Hello,
Afin d'améliorer mon codage de gitan pour un tcl, je souhaite qu'un seul user ait acces aux commandes du bot. Je sais que sa se gère via les flags mais je ne sais pas comment le mettre en place...
Je pense qu'il est possible d'optimisé le codage.. je sèche un peu !
Merci d'avance pour votre aide
Afin d'améliorer mon codage de gitan pour un tcl, je souhaite qu'un seul user ait acces aux commandes du bot. Je sais que sa se gère via les flags mais je ne sais pas comment le mettre en place...
tcl
bind pub - "!addpub" add:pub
proc add:pub {n ht hd ch a} {
set pub [lrange $a 0 end]
if {$ch == "#smoothoff"} {
if {$pub == ""} {putspeed "notice $n :Syntaxe => !addpub < message >"; return}
if {![file exists "scripts/annonce.txt"]} {set files [open "scripts/annonce.txt" a+]; close $files}
# enregistrement de la news #
set num [expr {int(rand() * 37)}]
set files [open "scripts/annonce.txt" a+]
puts $files "$pub"
close $files
putspeed "notice $n :Annonce enregistre"
} else {
putspeed "notice $n :Erreur Salon"
} }
Je pense qu'il est possible d'optimisé le codage.. je sèche un peu !
Merci d'avance pour votre aide