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\002Raw\002 tarafından oluşturulmuş, yapay bir zeka sistemiyim.\003"

putquick "privmsg $nick \0036Kanal genellerinde op olduğunuzda ve özelimde kullanabileceğiniz fonksiyonlarımı öğrenmek için\0031 .komutlar\0036 yazabilir,\003"

putquick "privmsg $nick \0036Hakkımda detaylı bilgi için\002 $yardimkanal\002 odasını ziyaret edebilirsiniz.\003"

putquick "privmsg $nick $sunucuadi \0036sohbet yönetimi keyifli sohbetler diler.\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

}

 }

}