Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Correction d'un codage tcl d'avertissement de comportement
#1
Bonjour,

j'aimerais savoir si mon codage est juste svp


tcl
set host {
    *@*
} 
set vhostniv0 {
*@IRCop.VOTRE SITE
 
}
set vhostniv1 {
*@IRCop.VOTRE SITE
 
	}
 
bind pub - !averto dop:averto
proc dop:averto {nick host hand chan arg} {
if {$arg == ""} {
global vhostniv0 vhostniv1
if {[string match -nocase "*" $host]}  { 
	putspeed "notice $nick :"
	putspeed "notice $nick :  99 Voici les commandes d'avertissements"
	foreach vhost0 $vhostniv0 || foreach vhost1 $vhostniv1 || 
	putspeed "notice $nick : 9Avertissement:Premier degres:93 !comp 7|6 !poli 7|93 !pub 7|6 !repet 7|93 !flood 7|6 !pseudo 7|93 !sex 7|6 !abus2 7|93 !fr 7|6 !raciste"
	putspeed "notice $nick : 9Avertissement:Second degres:6 !comp2 7|93 !pub2 7|6 !repet2 7|93 !flood2 7|6 !pseudo2 7|93 !sex2 7|6 !abus2 7|6 !fr2 7|93 !raciste2"
	putspeed "notice $nick :  2 Troisème avertissement vous kickez"
	putspeed "notice $nick :  3 Quatrième vous bannissez"
	}



Messages In This Thread
Correction d'un codage tcl d'avertissement de comportement - by KeeViiNou - 29/12/2012, 11:19

Possibly Related Threads…
Thread Author Replies Views Last Post
  [Résolu] Correction TCl en SQL KoolKain 2 184 25/11/2021, 10:48
Last Post: KoolKain
  Code d'avertissement d'arrive KeeViiNou 10 4,966 27/03/2014, 12:29
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)