forumdada paylaşıldı ve kendimde kullandığım tcl yi vereyim;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set sahip NİCK1
set sahip2 NİCK2
set sahip3 NİCK3
set sahip4 NİCK4
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4
if {$nick==$sahip} {
putserv "PRIVMSG $chan :Serverimiz adminLerin NİCK1 Şu anda Kanala Giriş Yaptı"
} elseif {$nick==$sahip2} {
putserv "PRIVMSG $chan :Serverimiz Adminlerinden NİCK2 Şu anda Kanala Giriş yaptı."
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $chan :Serverimiz Adminlerinden NİCK3 Şu Anda Kanala Giriş Yaptı."
} elseif {$nick==$sahip4} {
putserv "PRIVMSG $chan :Serverimiz Adminlerinden NİCK4 Şu Anda Kanala Giriş Yaptı."
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $chan :$nick Hos geldiniz İRCFORUMLARİ Keyifli Dakikalar Diler... "
}
}