Scanx.tcl de buna benzer bişey var bota whois çektiğinde belirtilien admin kanalına whois in kimi çektiğini ve istenilen bilgileri usere gösterir..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw * notice snotice
proc snotice {from keyword arg} {
global admin_chan identRepeat muafidentler
if { [string match "*did a /whois on you.*" $arg] } {
set nick [lindex $arg 2]
set host [lindex $arg 3]
putquick "PRIVMSG $admin_chan \00303-> \00302$nick $host \00303<- \00312whois çekti!"
if {![info exists ::whoiscount([set wnick [md5 [string tolower $host]]])]} {
set ::whoiscount($wnick) 0
timer 30[list unset ::whoiscount($wnick)]
putquick "PRIVMSG $nick :\00302Merhaba 4$nick."
putquick "PRIVMSG $nick :\00302ScanX bütün sunucu üzerinde genel bir koruma sağlar. Özellikleri bakımından \037rakipsiz\037 kullanılışı ve yapısı bakımından \037tektir."
putquick "PRIVMSG $nick :--------------------------------------------------------------------"
putquick "PRIVMSG $nick :\00305Kanal genelinde kullanabileceğiniz bazı komutlar:"
putquick "PRIVMSG $nick :\00302\002!Topten :\002\003 kanalda kimin nekadar konuştuğunu gösterir"
putquick "PRIVMSG $nick :\00302\002!Stat nick :\002\003 kanalda belirtilen nickin nekadar konuştuğunu gösterir"
putquick "PRIVMSG $nick :\00302\002!Sıra nick :\002\003 Bu isatatistiklerde belirtilen nickin kaçıncı sırada olduğunu gösterir"
putquick "PRIVMSG $nick :\00302\002!sure nick :\002\003 belirtilen nickin kanala ne zaman girdiğini gösterir"
putquick "PRIVMSG $nick :\00302\002!seen nick :\002\003 Belirtilen kişinin en son ne zaman kanalda olduğunu gösterir"
putquick "PRIVMSG $nick :\00302\002!yardım <mesajınız> :\002\003 Bu şekilde sunucu yetkililerinden yardım alabilirsiniz"
putquick "PRIVMSG $nick :\00302\002!ping :\002\003 Ping sürenizi görmeye yarar."
putquick "PRIVMSG $nick :--------------------------------------------------------------------"
putquick "PRIVMSG $nick :\00305Özelime yazabileceğiniz bazı komutlar:"
putquick "PRIVMSG $nick :\00302\002!komutlar :\003\002 kanal oplarının kullanabileceği komutları gösterir"
putquick "PRIVMSG $nick :\00302\002yardim :\002\003 irc hakkındaki yardım konularımdan faydalanabilirsiniz"
putquick "PRIVMSG $nick :--------------------------------------------------------------------"
putquick "PRIVMSG $nick :\00305#haber kanalında kullanabileceğiniz komutlar:"
putquick "PRIVMSG $nick :\00302\002!Sondakika:\002\003 Son dakika haberleri.."
putquick "PRIVMSG $nick :\00302\002!Sporson :\002\003 En son spor haberleri.."
putquick "PRIVMSG $nick :\00302\002!Burclar :\002\003 Günlük burç
yorumlarınız.."
putquick "PRIVMSG $nick :\002\00302ScanX v.2 By SaW\002\003"
}
kendi isteğinize göre editleyebilirsiniz sanırım satırları