Karşılama Tcl

[No_FeaR]

Tek Kısılık Karşılama TCL'sı ;

set sahip Casper
bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip
if ($nick==$sahip) {
putserv "PRIVMSG $nick Hoşgeldin."
}
return 0
}


Çoklu Karşılama TCL's ;

set sahip Casper
set sahip2 Ben
set sahip3 Baskasi

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} { putserv "PRIVMSG $nick Hoşgeldin." }
if {$nick==$sahip2} { putserv "PRIVMSG $nick Niye Geldin." }
if {$nick==$sahip3} { putserv "PRIVMSG $nick Gözlerimiz Yollarda kaldı" }
}

Örnek 2 ;


set sahip Casper
set sahip2 Ben
set sahip3 Baskasi

bind join - * karsilama
proc karsilama { nick uhost hand chan } {
global sahip sahip2 sahip3
if {$nick==$sahip} {
putserv "PRIVMSG $nick :Hoşgeldin."

} 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 Hos geldiniz"
}

}