| Cevap: Karşılama Tcl
Merhabalar;
Söylediğiniz şekilde ekledim fakat yine olmadı sanırım bir yerlerde eksik yapıyorum ... verdiğiniz kodu aynen alıp scriptte ki sahiptcl içerisine kopyaladım
set sahip MySelf
set sahip2 Ozgur
set sahip3 SenBen
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hosgeldiniz."
} elseif {$nick==$sahip2} {
putserv "PRIVMSG $nick :Niye Geldin ? :-)"
} elseif {$nick==$sahip3} {
putserv "PRIVMSG $nick :Gözlerimiz Yollarda kaldı.. .)"
;bu mesaj listede ismi olamayn kullanicilara gonderilecektir..
} else {
putserv "PRIVMSG $nick :$nick Hosgeldiniz. Keyifli sohbetler."
}
}
Yukarıda ki gibi sonra Koruma.conf un içerisine sölediğiniz gibi
source scripts/userinfo.tcl Bunun Altına Ekleyebilirsin,
source scripts/greet.tcl Olarak...
ekledim Koruma botu sunucudan cıkarım tekrar sunucuya aldığım da denedim olmadı .. Teşekkürler..
|