petit anti pub simple sur chan
#1
TCL
set why "Pas de pub/flood/query/annonce"
bind pubm - "*http*" pub:banonpub
bind pubm - "#*#*" pub:banonpub
bind pubm - "*www*" pub:banonpub
 
proc pub:banonpub { nick uhost handle chan args } {
global why
if {![isop $nick $chan]} {
putmsg $chan "$why sur $chan $nick pliz."
putserv "MODE $chan +b $nick"
putserv "KICK $chan $nick (tu est banni pendant 30 sec pour cause de pub abusive)"
utimer 30 "deban $chan $uhost"
}
}
 
proc deban { chan uhost } {
global botnick
if {[isop $botnick $chan]} {
foreach nick [chanlist $chan] {
if {[getchanhost $nick $chan] == $uhost} {
if {![isop $nick $chan] && ![isvoice $nick $chan]} {
pushmode $chan -b $nick
}
}
}
}
}


www.irc-pacifique.com/ ou depuis un mirc client /server -m irc-pacifique.com server fun cool et tolerants
Répondre Avertir


Messages dans ce sujet
petit anti pub simple sur chan - par caline012 - 05/12/2007, 20:21
RE: petit anti pub simple sur chan - par BdS - 06/12/2007, 14:04
RE: petit anti pub simple sur chan - par BdS - 06/12/2007, 17:33
RE: petit anti pub simple sur chan - par BdS - 17/12/2007, 17:16
RE: petit anti pub simple sur chan - par BdS - 18/12/2007, 10:44

Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté