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 ) PHP- Kodu:
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
}
}
}
| 