IRCForumu.ORG   sohbetkacak
reklamalanı


 
 
Seçenekler Stil
Alt 20 Ocak 2022, 22:03   #1
Sen Geleceksin Diye, Ben Hep Yarım Kaldım.
No_FeaR - ait Kullanıcı Resmi (Avatar)

Standart Bota Whois Çekilince Bilgi Vermesi

EggDrop botlarınız +W flagına sahipse whois çekildiğinde bunu görüyor demektir. Bu bağlamda botunuza whois çekildiğinde ona bir takım yaptırımlar yaptırabilir, sunucunuz hakkında bilgi verdirebilirsiniz. Aşağıdaki tcl kodlarınızı botunuza entegre ederseniz bu sistemi yapmış olacaksınız. ( Raw )

Kod


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

________________

Sabrettiğimi Sanarken, Vazgeçtiğimi Öğrendim..
 


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Kapalı



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:38.