# mevcut script ozellikleri
# istenen kanal/lar üstünde aktif edilebilecek
# sekilde editlendi.
setudef flag karsila
# scripti hangi kanal üstünde aktif etmek istiyorsaniz
# telnet/dcc üstünde .chanset #kanaliniz +karsila
# komutu vermelisiniz
bind join - * join_greet 
proc join_greet {nick uhost hand chan} {
global botnick karsilanan
# karsilama mesajindan muaf tutmak istediginiz nickleri
# alt satirda || $nick == "muaf-nick"} 
# seklinde cogaltarak ekleyin .
# ekleme yaparken ayraclara ve diğer
# özel script karakterlerine dikkat edin.
if {$nick == "ChanServ" || $nick == $botnick} {
 return 0
}
 if {[info exists karsilanan($nick:$chan)]} {
 return 0
}
 set karsilanan($nick:$chan) 1
 timer 3 "unset karsilanan($nick:$chan)"
# hangi kanal ustunde aktif edilmisse 
# o kanala giren kullaniciya gonderecek.
 if {[channel get $chan karsila]} {
putserv "PRIVMSG $nick : 2Merhaba 4 $nick "
putserv "PRIVMSG $nick : 2site.Com Ailesine 2Hoşgeldiniz."
putserv "PRIVMSG $nick : 2Sunucumuzda Oyun Kanalarımız 4#Oyun  #test  #kelime  #yarisma  #islamioyun  2Kanallarıdır."
putserv "PRIVMSG $nick : 2Sunucumuzda Global Sohbet Kanallarımız 4#Sohbet  2 Kanallaridir."
putserv "PRIVMSG $nick : 2Girmek İstediginiz 2Kanallar İçin Örnek 4 /j Sohbet 2 Şeklinde Kanallara Gire Bilirsiniz.."
putserv "PRIVMSG $nick : 2Radyomuzu Winap Üzerinden Dinlemek İstiyorsanız 2 radyomuzu.com" 
putserv "PRIVMSG $nick : 2İsteklerinizi 4#Radyo 2Kanallindan  Yapabilirsiniz.."
putserv "PRIVMSG $nick : 2İstekler İçin Örnek 4!istek Niran unsal İzin Ver : Mesajınız 2Şeklinde Yapabilirsiniz..."
return
 }
}
putlog "karsila.tcl yuklendi."