##    #######     ##  #######  ####### ##       ##
   #     ##   ##     ##    ###    ##      ##        #
   #     ##   ##     ##    ###    ##      ##        #
   #     ##   ##     ##    ###    ##      ##        #
   #     #######  #####    ###    ####### #######   #    
   ##                         Coding By rascoLn    ##

set araislem(trigger) "!ara" ;# sadece dj kanalindakilerin kullanacagi komut (eger istenilen sarki linki cikmaz ise)
set istekislem(trigger) "!istek" ;# istek komutu
set varislem(trigger) "!var" ;# sarki var ise yazilacak komut
set yokislem(trigger) "!yok" ;# sarki yok ise yazilacak komut
set radyo "#radyo" ;# istek yapilacak kanal
set dj "#dj" ;# istegin gonderilecegi kanal
set timetube "15" ;# Tekrardan istek yapabilmek icin beklenen sure.. saniye olarak..
set onoff 1

bind pub - $araislem(trigger) aratube
bind pub - $istekislem(trigger) istektube
bind pub - $varislem(trigger) vartube 
bind pub - $yokislem(trigger) yoktube
bind pub - .ayar ayarlar
bind join - "$dj *" djop

proc istektube {nick host hand chan arg} {
if {$arg == ""} { putquick "notice $nick :\002Ýstek Kullanýmý:\002 $::radyo kanalýnda $::istekislem(trigger) <isteðiniz> þeklindedir."; return 0 }
if { [string match -nocase $chan $::dj] & $arg eq "on" | $arg eq "off" } {
if {$arg eq "on"} { set ::onoff 1; putquick "privmsg $chan :Ýstekler kullanýma açýldý."; putquick "privmsg $::radyo :\0030,1 «\0039 Ýstek alýmlarý kullanýcýlarýmýza açýlmýþtýr \0030» "; return } else { set ::onoff 0; putquick "privmsg $::dj :Ýstekler kullanýma kapatýldý."; putquick "privmsg $::radyo :\0030,1 «\0034 Ýstek alýmlarý þuan itibarý ile kapatýldý \0030» "; return } 
}
if { ![string match -nocase $chan $::radyo] } { putquick "notice $nick :istekler sadece $::radyo kanalýndan yapýlmaktadýr."; return 0 }
if { $arg ne "on" & $arg ne "off" } {
if { $::onoff eq "1" } {
if {[info exists ::checks($host)] && ([clock seconds] - $::checks($host)) < $::timetube} { putquick "privmsg $nick :Sayin. \002$nick\002 \[\0034 15 \003\] saniye sonra tekrardan istek yapabilirsiniz.. \003"; return }
    set ::checks($host) [clock seconds]
putquick "privmsg $::dj :\t\t\t\t\0030,5\002 G E L E N - I S T E K \003"
    putquick "privmsg $::dj :--------------------------------------------------"
    putquick "privmsg $::dj :\0034Nick :\003 $nick | \0034Ýsteði :\003 $arg"
    putquick "privmsg $::dj :--------------------------------------------------"
    putquick "privmsg $::radyo :\00315,1 >\0030> \0039Ýsteginiz Radyo Dj'imize Ýletilmiþtir. \00311$nick \0030<\00315< \003"
    ******* $nick $host $hand $chan $arg
} else { putquick "privmsg $chan :\0034,1 «\0030 Þuan istek alýmý yapýlmamaktadýr \0034» " }
}
}

proc ******* {nick host hand chan arg} {
    set form [string map -nocase {" " "+"} $arg]
    catch { exec curl -v "https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$form" } data
    if {[regexp -- {</div><div class="yt-lockup-content"><h3 class="yt-lockup-title "><a href="(.*?)" class="yt-uix-sessionlink yt-uix-tile-link yt-ui-ellipsis yt-ui-ellipsis-2       spf-link " data-sessionlink="itct=.*?" title="(.*?)" aria-describedby=".*?" rel="spf-prefetch" dir="ltr">.*?</a><span class="accessible-description" id=".*?"> - (.*?)</span></h3>(.*)$} $data -> number title sure data]} {
    putquick "privmsg $::dj :< You\0030,4tube\003 > \00304Baslik :\00301 [string map -nocase {"&amp;" "&" "°" "I" "ÄŸ" "g" "Ä°" "i" "ç" "c" "ı" "i" "ü" "u" "ÅŸ" "s" "^ž" "s" "ö" "o"} $title] | \0030,1 Sure: [lindex $sure 1] \003"
    putquick "privmsg $::dj :< You\0030,4tube\003 > \00304******* linki:\00301 http://*******.com$number\003"
    putquick "privmsg $::dj :\00300,1 MP3 olarak indir: \00300,4 http://*******inmp3.com/download/?video=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$number \003"
    putquick "privmsg $::dj :--------------------------------------------------"
    }
  if { ![info exists title] } { utimer 1 [list ******* $nick $host $hand $chan $arg]; return 0 }
    }

proc aratube {nick host hand chan arg} {
if { [onchan $nick $::dj] && [string match -nocase $chan $::dj]} {
if {$arg == ""} { largetext privmsg $chan "\002Kullanimi:\002 $::istekislem(trigger) <isteginiz>"; return 0 }
    set form [string map -nocase {" " "+"} $arg]
    catch { exec curl -v "https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$form" } data
    if {[regexp -- {</div><div class="yt-lockup-content"><h3 class="yt-lockup-title "><a href="(.*?)" class="yt-uix-sessionlink yt-uix-tile-link yt-ui-ellipsis yt-ui-ellipsis-2       spf-link " data-sessionlink="itct=.*?" title="(.*?)" aria-describedby=".*?" rel="spf-prefetch" dir="ltr">.*?</a><span class="accessible-description" id=".*?"> - (.*?)</span></h3>(.*)$} $data -> number title sure data]} {
    putquick "privmsg $::dj :--------------------------------------------------"
    putquick "privmsg $::dj :< You\0030,4tube\003 > \00304Baslik :\00301 [string map -nocase {"°" "I" "ÄŸ" "g" "Ä°" "i" "ç" "c" "ı" "i" "ü" "u" "ÅŸ" "s" "^ž" "s" "ö" "o"} $title] | \0030,1 $sure \003"
    putquick "privmsg $::dj :< You\0030,4tube\003 > \00304******* linki:\00301 http://*******.com$number\003"
    catch { exec curl -v "http://*******inmp3.com/download/?video=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$number&feature=*******_gdata_player&title=Developers" } mp3data
    putquick "privmsg $::dj :\00300,1 MP3 olarak indir: \00300,4 http://*******inmp3.com/download/?video=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #0000BB">$number \003"
    putquick "privmsg $::dj :--------------------------------------------------"
    }
  if { ![info exists title] } { utimer 1 [list ******* $nick $host $hand $chan $arg]; return 0 }
    }
    }

proc vartube {nick host hand chan arg} {
if { ![string match -nocase $chan $::dj] } { return 0 }
if { $arg eq "" || [llength $arg] >= 2 } { largetext privmsg $chan "\002Kullanýmý:\002 $::varislem(trigger) <nick>"; return 0 }
putquick "privmsg [lindex $arg 0] :\002Sayýn.\002\0034 [lindex $arg 0]\003"
putquick "privmsg [lindex $arg 0] :Repertuarýmýzda isteðiniz bulunmaktadýr. Ýsteðiniz iþleme alýnmýþtýr."
putquick "privmsg [lindex $arg 0] :Bizi dinlediðiniz için teþekkür eder iyi sohbetler dileriz.."
}

proc yoktube {nick host hand chan arg} {
if { ![string match -nocase $chan $::dj] } { return 0 }
if { $arg eq "" || [llength $arg] >= 2 } { largetext privmsg $chan "\002Kullanýmý:\002 $::yokislem(trigger) <nick>"; return 0 }
putquick "privmsg [lindex $arg 0] :\002Sayýn.\002\0034 [lindex $arg 0]\003"
putquick "privmsg [lindex $arg 0] :Repertuarýmýzda isteðiniz bulunmamaktadýr."
putquick "privmsg [lindex $arg 0] :Bizi dinlemeye devam edebilir veya baþka istekte bulunabilirsiniz. iyi sohbetler dileriz.."
}

proc djop {n u h c} {
putquick "notice $n :Hoþgeldin \002$n"
putquick "notice $n :Ýstekleri artýk açabilir , kapatabilirsinizde bunun için;"
putquick "notice $n :!istek \0033on\003 veya \0034off\003 komutlarýný kullanabilirsiniz.. Kolay gelsin.."
}

putlog "dj.tcl ßy rascoLn"