20/09/2012, 12:34
bonjour :)
J'aimerais integré un système pour pas que tout les utilisateurs se servent de mes commandes:
Pouvez vous m'aider ? Merci d'avance
J'aimerais integré un système pour pas que tout les utilisateurs se servent de mes commandes:
Code :
##############################################
## Avertissement.tcl For Lovelys.eu:6667 ##
## By Kevin DouDou© ##
##############################################
proc dop:putspeed {arg} {
putquick "$arg"
clearqueue all
}
bind pub - !averto dop:averto
proc dop:averto {nick host hand chan arg} {
putspeed "notice $nick :"
putspeed "notice $nick : 99 Voici les commandes d'avertissements"
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"
}
###############################
##### Avertissement 9 & 2 #####
###############################
bind pub - !fr2 dop:fr2
proc dop:fr2 {nick uhost handle chan args} {
set nicks [lindex $args 0]
putfast "privmsg $chan 9/9!9\\$nicks 9: 6Merci de parler français sur ce salon ! Deuxième avertissement avant ejection du salon"
}
bind pub - !fr dop:fr
proc dop:fr {nick uhost handle chan args} {
set nicks [lindex $args 0]
putfast "privmsg $chan 9 : $nicks6Merci de parler français sur ce salon ! Premier avertissement "
}
etc etc
Pouvez vous m'aider ? Merci d'avance