Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 93" data-attributes="member: 1">[CODE]bind raw * notice bwhois&nbsp;proc bwhois {from keyword arg} {global operkanal logkanal botnick sunucuadiif {[string match &quot;*did a /whois on you.*&quot; $arg]} {set nick [lindex $arg 2]set host [lindex $arg 3]putquick &quot;privmsg $logkanal :\002***\002 $nick kullanıcısı whois bilgilerime baktı.&quot;&nbsp; &nbsp; &nbsp; &nbsp; if {![info exists ::whois([set wn [md5 [string tolower $host]]])]} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set ::whois($wn) 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timer 30[list unset ::whois($wn)]putquick &quot;privmsg $nick \0036Merhaba\0031\002 $nick\002\003&quot;putquick &quot;privmsg $nick \0036\002$botnick\002 bana verilen topluluk yönetim biriminin ismidir.\003&quot;putquick &quot;privmsg $nick \0036Sohbet odalarında güvenlik ve huzuru sağlamak amacıyla,\003&quot;putquick &quot;privmsg $nick \0036\002Raw\002 tarafından oluşturulmuş, yapay bir zeka sistemiyim.\003&quot;putquick &quot;privmsg $nick \0036Kanal genellerinde op olduğunuzda ve özelimde kullanabileceğiniz fonksiyonlarımı öğrenmek için\0031 .komutlar\0036 yazabilir,\003&quot;putquick &quot;privmsg $nick \0036Hakkımda detaylı bilgi için\002 $yardimkanal\002 odasını ziyaret edebilirsiniz.\003&quot;putquick &quot;privmsg $nick $sunucuadi \0036sohbet yönetimi keyifli sohbetler diler.\003&quot;return 0}if {[incr ::whois($wn)] == 1} {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; set ::tehlike($wn) 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timer 30[list unset ::tehlike($wn)]putserv &quot;privmsg $nick \0036Bu kadar sık\0034 whois sorgulaması\0036 yapamazsınız!\003&quot;return 0}if {[incr ::tehlike($wn)] == 1} {putserv &quot;kill $nick \0036Lütfen bu kadar sık\0034 whois sorgulaması\0036 yapmayınız!\003&quot;unset ::whois($wn)unset ::tehlike($wn)return 0}&nbsp;}}[/CODE]</blockquote>

[QUOTE="Che, post: 93, member: 1"] [CODE] 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 } } } [/CODE] [/QUOTE]

Adı

İnsan doğrulaması