Dj'ler için dj.tcl - Sayfa 3 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

No_FeaR · 28 Eylül 2015, 23:59

Merhabalar, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yapamadığınız veya Takıldığınız Nokta Neresi Acaba...

By_ATMACA · 29 Eylül 2015, 17:42

No_FeaR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Merhabalar, @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Yapamadığınız veya Takıldığınız Nokta Neresi Acaba...

Hiç Çalismadi yada ben yapamadim dj kanalina !ara gibi vs. Komutlarda Çalismadi

rascoLn · 29 Eylül 2015, 17:46

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tcl işlemektedir . confunuzda http.tcl source edilmiş mi bakınız.

By_ATMACA · 29 Eylül 2015, 17:47

rascoLn Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tcl işlemektedir . confunuzda http.tcl source edilmiş mi bakınız.

Bakim Hemen

By_ATMACA · 29 Eylül 2015, 17:54

Evet var edilmiş

Serseri · 21 Mart 2016, 23:56

peki buna yayını alan dj in nickini değiştirmeyi de ekleyebilr miyiz acaba piyasadaki mevcut tcl lerde bu !dj veya .setdj komutu ile değiştirilebileceği yazıyor ama uygulandığında komut çalışmıyor. elinde bu kodların olduğu tcl ye sahip arkadaşlar varmıdır ve paylaşabilirler mi yani dj yayını aldığında bot otomatik olarak dj in nickini dj-nick gibi bıraktığı zamanda nick şeklinde gene eski haline çevirecek ve birde bu dinleyenlere oto voice veren tcller var piyasa da ama dinleyici dinlemeyi kestiği zaman bu voiceyi alan kodlara sahip arkadaşlar varmıdır ve varsa paylaşabilirler mi.... Saygılarımla....

unpainful · 22 Mart 2016, 00:05

Bu konua bir çok konu mevcut @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

#Dj Odasında !dj yazdığı zaman otomatik olarak DJ_ eki alacaktır.

Alıntı:

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "DJ"

# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "DJ.sunucu.NET"

# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "irc.sunucuadı DJ"

bind pub - !dj dj:login
proc dj:login {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick DJ_$nick :1"
putquick "privmsg $chan $nick Başarı ile dj login oldunuz."
}
}

#Dj Odasında !off yaptığı zaman ise orjinal nickine geri dönecektir.

Alıntı:

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "DJ"

# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "DJ.sunucu.NET"

# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "irc.sunucu DJ"

bind pub - !off off
proc off {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"
putquick "privmsg $chan $nick emeğinize sağlık teşekkürler."
}
}

Yukarda belirttiğim kodları ekleyin , ekstra bir tcl dosyası oluşturmak istiyorsanızda conf dosyasına source olarak eklemeyi unutmayın , Yanlış hatırlamıyor isem @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'a ait kodlar

Serseri · 22 Mart 2016, 02:37

unpainful Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu konua bir çok konu mevcut @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

#Dj Odasında !dj yazdığı zaman otomatik olarak DJ_ eki alacaktır.

#Dj Odasında !off yaptığı zaman ise orjinal nickine geri dönecektir.

Yukarda belirttiğim kodları ekleyin , ekstra bir tcl dosyası oluşturmak istiyorsanızda conf dosyasına source olarak eklemeyi unutmayın , Yanlış hatırlamıyor isem @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'a ait kodlar

Evet bir çok konu mevcut doğru hatta bir çok tcl nin içinde de kodlar mevcut ama ne var ki çalışmıyordu ve bunu nasıl dinleyiciye oto voice veriyor aynı şekilde otomatik yaptıramaz mıyız acaba?

aSpeNDos · 22 Mart 2016, 11:28

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


bind time - "* * * * *" yenidinleyici
proc yenidinleyici {min hour day month year} {
 global streamip streampass streamport
 if {[catch {set sock [socket $streamip $streamport] } sockerror]} {
  putlog "error: $sockerror"
  return 0
  } else {
  puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"
  puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"
  puts $sock "Host: $streamip"
  puts $sock "Connection: close"
  puts $sock ""
  flush $sock
  while {[eof $sock] != 1} {
   set bl [gets $sock]
   if { [string first "standalone" $bl] != -1 } {
    set voicevr [string range $bl [shrink + 11 "<LISTENERS>" 0 $bl] [shrink - 1 "</LISTENERS>" 0 $bl]]
    set streamstatus "[string range $bl [shrink + 14 "<STREAMSTATUS>" 0 $bl] [shrink - 1 "</STREAMSTATUS>" 0 $bl]]"
   }
  }
  close $sock
 }
 if {[info exists streamstatus] && $streamstatus == "1"} {
 set voicevr [temiz $voicevr]
 if {[llength $voicevr] < 1} { return 1 }
 set deger 0
 set ::rawcount 0
 set ipler ""
 bind raw -|- 352 voysver
 foreach i $voicevr {
  if {[regexp {^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$} [lindex $voicevr $deger]]} {
   incr ::rawcount
   lappend ipler "[lindex $voicevr $deger] "
  }
  incr deger
 }
 set ydeger 0
 foreach j $ipler {
  putquick "who +i [lindex $ipler $ydeger]"
  incr ydeger
 }
}
}

proc voysver {from keyword arg} {
    set x [open dinleyici1.txt a]
    puts $x [lindex $arg 5]
    close $x
}



proc temiz {veri} {
regsub -all \< $veri " " veri
regsub -all \/ $veri " " veri
regsub -all \> $veri " " veri
return $veri
}

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "Dj"
 
# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "Dj.Domain.Com"
 
# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "0,4RADYO-ADI0,2Radyo DJ'i 0,4Online"

bind pub - !dj dj:login
proc dj:login {nick uhand host chan text} {
  global botnick dj
  if {[string match -nocase "#Dj" $chan]} {
    putquick "chghost $nick $dj(host)"
    putquick "chgident $nick $dj(ident)"
    putquick "chgname $nick $dj(name)"
    putquick "operserv raw svsmode $nick +Wq :1"
    putquick "operserv raw svsnick $nick Dj_$nick :1"
    putquick "privmsg $chan $nick Başarı ile dj login oldunuz."
  }
}

# DJ'lere verilecek ident'i yazıyoruz.

set dj(ident) "DJ"

# DJ'lere verilecek hostu yazıyoruz.

set dj(host) "DJ.sunucu.NET"

# DJ'lere verilecek fullname'yi yazıyoruz.

set dj(name) "irc.sunucu DJ"

bind pub - !off off
proc off {nick uhand host chan text} {
global botnick dj
if {[string match -nocase "#DJ" $chan]} {
putquick "chghost $nick $dj(host)"
putquick "chgident $nick $dj(ident)"
putquick "chgname $nick $dj(name)"
putquick "operserv raw svsmode $nick +Wq :1"
putquick "operserv raw svsnick $nick [string map -nocase {"DJ_" ""} $nick] :1"
putquick "privmsg $chan $nick emeğinize sağlık teşekkürler."
}
}

Otovoice ve Dj ident özelliği mevcut.

Tcl ve Conf ekte mevcut istenirse kullanılabilir.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

rascoLn · 02 Nisan 2016, 22:28

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
YouTube için dev bir adım!	Slipknot	Ağ, Network ve Networking	0	06 Nisan 2010 20:42
Youtube yasağı IMF için kalktı!	Feronia	Haber Arşivi	0	08 Ekim 2009 05:20
YouTube için geldi.	Dilara	Cep Telefonlar	0	09 Nisan 2009 13:31
Youtube için her yol denenmiş.	CariSma	Haber Arşivi	23	22 Ocak 2008 10:44

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.