Whois Tcl hakkında yardım
 

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
}
}
}

S.a cümleten bunun aynısını yapıyorum ama calısmıyor dikkatimi çeken bir yer oldu yukarıda

proc bwhois {from keyword arg} {
global operkanal logkanal botnick sunucuadi

************************************

proc bwhois {from keyword arg} {
bu bölümü global #opers #log ScanX irc.okeyden.com

olarak değiştirirsem calısırmı ? şimdiden tşk ederim.

bu arada bota 10 tane tcl eklersem calısırmı farklı tcller yani. kasma yaşarmıyım ?

Cevap: Whois Tcl hakkında yardım
 

1- bunu mirc scripting ile karıştırmayınız. o satırdaki global'in anlamı , operkanal ,logkanal, botnick, sunucuadi variable (değişkenlerini) prosedür içinde tanıtmak-göstermek-geçerli kılmak için eklenmiş bir satır ve sizin buraya aktarmadığınız satırlarda bu değişkenler set operkanal "#blabla" ... set logkanal "#ahaaha" ... vs gibisinden var olmalı .... 2- değil 10 .. 210 tane script yüklesenizde bot çalışır.ancak : ne kadar çok kanal üstünde işler ,bu kanallar ne kadar yoğun olur , bota yüklenecek scriptlerle ne kadar çok yük-iş yüklenirse ,botu o kadar zorlamış,kaynaklarını sömürmüş olacaksınız.hafıza kullanımı artacak belki laga düşecek.vs vs.. önemli olan gereksiz-lüzümsüz işleri botun omuzlarına yükleyerek botun verimini düşürmek yerine en yerinde-olmazsa olmaz işlerde kullanmanız daha doğru olacaktır.botun verimi açısından... koddaki eksik satırları saymazsak.şuraya postaladığınız kadarında (satır kaymaları dışında) çalışmamasını gerektirecek bi durum yok gibi.....