Bonjour,
j'aimerais savoir si mon codage est juste svp
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"
}