02 Nisan 2016, 22:28
#23 Çevrimdýþý
Kullanýcýlarýn profil bilgileri misafirlere kapatýlmýþtýr.
Cevap: Dj'ler için dj.tcl
< Kodlar güncellendi >
"******* " yýldýz olan yerlerde "y0utube" yazmaktadýr. Ona göre deðiþtirirsiniz.. PHP Kod: Kodu kopyalamak için üzerine çift týklayýn!
## ####### ## ####### ####### ## ## # ## ## ## ### ## ## # # ## ## ## ### ## ## # # ## ## ## ### ## ## # # ####### ##### ### ####### ####### # ## 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"