#kontrol mesajı
set kontrolmsg "Reklam Kontrol Lütfen Cevap Yazmayınız.."
#ne kadar arayla kontrol mesajı atacak (dakika cinsinden)
set zaman_araligi "20"
# kline mesaji
set bans "\00304mesajinizda reklam/relamlar tespit etmistir. Reklam ve Mail Alışverişi Yasaktır..!\003"
#oper kanalı
ser operchan "#oper"
# Reklam Mesajları
set reklam { 
"*w*w*w*.*"
"*h*t*t*p*:*"
"*.com*"
"*.net*"
"*.org*"
"*.cjb.net*"
"*.da.ru*"
"*/server*"
"*îRC*"
"*Nét*"
}
 
bind msgm - * reklammsg
proc reklammsg {nick uhost hand text} {
global reklam bans operchan
if {[onchan $nick $operchan]} {return 0}
 foreach w $reklam {
  if {[string match -nocase "* $w *" " $text "]} { 
    putquick "kline $nick 1d $bans" -next
    putserv "privmsg $operchan \00304$nick\003 \00302özelime reklam yaptı ve Sunucudan uzaklaştırıldı. Reklamı :\003 \00304$text\003"
    return 1
    }
 }
}
 
if {![string match "*basla*" [timers]]} {  
 timer $zaman_araligi basla  
} 
proc basla { } { 
global kontrolmsg zaman_araligi
putserv "describe $irc.sunucum.net $kontrolmsg"
timer $zaman_araligi basla  
}