#kontrol mesajý
set kontrolmsg "Selam: mesaj kontrol lütfen cevap vermeyiniz, aksi taktirde sunucudan uzaklastirilicaksiniz."
#ne kadar arayla kontrol mesaji atacak (dakika cinsinden)
set zaman_araligi "10"
# kline mesaji
set bans "\00304mesajinizda reklam/reklamlar tespit etmistir.!\003"
#oper kanalý
set operchan "#Admin"
# 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 yapti ve sunucudan uzaklastirildi. Mesaji :\003 \00304$text\003"
    return 1
    }
 }
}
 
if {![string match "*basla*" [timers]]} {  
 timer $zaman_araligi basla  
} 
proc basla { } { 
global kontrolmsg zaman_araligi
putserv "describe $irc2.sunucum.net $kontrolmsg"
timer $zaman_araligi basla  
}

bind raw * notice bwhois

proc bwhois {from keyword arg} { 
global operkanal logkanal botnick sunucuadi
if {[string match "*did a /whois on you.*" $arg]} { 
set nick [lindex $arg 2]
set host [lindex $arg 3]
putquick "privmsg $logkanal :\002***\002 $nick kullanıcısı whois bilgilerime baktı."
        if {![info exists ::whois([set wn [md5 [string tolower $host]]])]} {
            set ::whois($wn) 0
            timer 30[list unset ::whois($wn)]
putquick "privmsg $nick \0036Merhaba\0031\002 $nick\002\003"
putquick "privmsg $nick \0036\002$botnick\002 bana verilen topluluk yönetim biriminin ismidir.\003"
putquick "privmsg $nick \0036Sohbet odalarında güvenlik ve huzuru sağlamak amacıyla,\003"
putquick "privmsg $nick \0036\002Maron\002 tarafından oluşturulmuş, yapay bir zeka sistemiyim.\003"
putquick "privmsg $nick \0036Hakkımda detaylı bilgi için\002 $yardimkanal\002 odasını ziyaret edebilirsiniz.\003"
return 0
}
if {[incr ::whois($wn)] == 1} { 
            set ::tehlike($wn) 0
            timer 30[list unset ::tehlike($wn)]
putserv "privmsg $nick \0036Bu kadar sık\0034 whois sorgulaması\0036 yapamazsınız!\003" 
return 0
}
if {[incr ::tehlike($wn)] == 1} { 
putserv "kill $nick \0036Lütfen bu kadar sık\0034 whois sorgulaması\0036 yapmayınız!\003" 
unset ::whois($wn)
unset ::tehlike($wn)
return 0
}
 }
}