Kod: Kodu kopyalamak için üzerine çift tıklayın!
set sahip BEN
set sahip2 SEN
set sahip3 onlar
set sahip4 BİZ
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3 sahip4
if {$nick==$sahip} {
putserv "PRIVMSG $chan :4 5Sunucu 4ROOT5'u 1BEN 5Kanala Giriş Yaptı. 4Hoş Geldin PaTRoN"
} elseif {$nick==$sahip2} {
putserv "PRIVMSG $chan :4 5Sunucu 4ROOT5'u 1SEn 5Kanala Giriş Yaptı."
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $chan :4 5Sunucu 4ROOT5'u 1onlar 5Kanala Giriş Yaptı."
} elseif {$nick==$sahip4} {
putserv "PRIVMSG $chan :4 5Sunucu GörevLisi 1BİZ5 Şu Anda Kanala Giriş Yaptı."
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $chan :$nick Hos geldiniz SezGiLi Keyifli Dakikalar Diler... "
Tamam Dediğin Gibi SAAT-TARİH gibi Seyler Eklemistim. Onları Kaldırınca Problem Kalmadı. Tşkler.
Diğer TCL yi yapacak bir arkadas araniyor (: