Tek Kısılık Karşılama TCL'sı ;
Kod:
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 ;
Kod:
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 ;
Kod:
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"
}
}