# 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."

bind pub - !istek istek 
bind pub - !var var 
bind pub - !yok yok 
proc istek {n u h c a} {  
global gnick gchan
set gchan $c
set gnick $n  
set kanal [lindex $a ]  
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] 2 İstekte Bulunan Kullanıcı: 4 $gnick $gchan  2 Kanalında İsteği: $kanal"  
putserv "privmsg $gchan  :2 İsteğiniz DJ'lerimize İletilmiştir 4 $gnick."  
} 
proc var {n u h c a} {
set kanal [lindex $a 0] 
if {![string match -nocase "#DJ" $c]} {return 0} 
putserv "privmsg $kanal : 2 İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." 
} 
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal : 2 Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." 
}

bind pub - !istek istekoff
proc istekoff {n u h c a} {
  setudef flag radyocmd
  if {[string match -nocase "#Dj" $c]} {
   set kanal [lindex $a 0]
    if {$kanal == ""} { putquick "PRIVMSG #Dj :Kullanımı !istek on veya !istek off şeklindedir."; return 0 }
    if {[string match -nocase "on" $kanal]} { channel set $cc +radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Kabul Edilecek."; return 0 }
    if {[string match -nocase "off" $kanal]} { channel set $c -radyocmd; putquick "PRIVMSG #Dj Radyo İstekleri Reddedilecek."; return 0 }
    }
    if {[lsearch -exact [channel info #Dj] +radyocmd] == -1} { 
    putserv "privmsg $kanal : 2 Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."
  }
}

bind pub - !istek istek
bind pub - !var var 
bind pub - !yok yok 
set onoff "0"
proc istek {n u h c a} {  
global gnick gchan
set gchan $c
set gnick $n  
set kanal [lindex $a ]
if { [string match -nocase "#dj" $gchan] & $a eq "on" | $a eq "off" } {
if {$a eq "on"} { set ::onoff 1; putquick "privmsg $gchan :İstekler kullanıma açıldı."; putquick "privmsg #radyo :İstek alımları kullanıcılarımıza açılmıştır."; return } else { set ::onoff 0; putquick "privmsg $gchan :İstekler kullanıma kapatıldı."; putquick "privmsg #radyo :İstek alımları şuan itibarı ile kapatıldı."; return } 
}
if { ![string match -nocase "#radyo" $gchan] } { putquick "notice $gnick :istekler sadece #radyo kanalından yapılmaktadır."; return 0 }
if { $a ne "on" & $a ne "off" } {
if { $::onoff eq 1 } {
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] 2 İstekte Bulunan Kullanıcı: 4 $gnick $gchan  2 Kanalında İsteği: $kanal"  
putserv "privmsg $gchan  :2 İsteğiniz DJ'lerimize İletilmiştir 4 $gnick."  
} else { putquick "privmsg $gchan :İstek alımı yapılmamaktadır.." }
}
}
proc var {n u h c a} {
set kanal [lindex $a 0] 
if {![string match -nocase "#DJ" $c]} {return 0} 
putserv "privmsg $kanal : 2 İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır." 
} 
proc yok {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "privmsg $kanal : 2 Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz." 
}