IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Radyonuzu Biraz Renklendirmek İstermisiniz ? (https://www.ircforumlari.net/eggdrop-neostats-bnc/376036-radyonuzu-biraz-renklendirmek-istermisiniz.html)

CLubber 08 Ocak 2011 18:38
Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Merhabalar.
Bildiğiniz gibi, Normal Radyo TCL'nin Radyo Durumunu Yansıtmaktan Başka Pek Bi Özelliği Olduğu Söylenemez.
Ama Benim Kullandığım, Bazı Bölümlerini Kendimin Yazdığım TCL'yi sizlerle Paylaşmak istiyorum.

İstek TCL
Kod:
bind pub - !istek istek
proc istek {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #DJ :\[Radyo İstek Paneli\] İstekte Bulunan Kullanıcı: $gnick İsteği: $kanal"
putserv "PRIVMSG #Radyo :İsteğiniz DJ'lerimize İletilmiştir $gnick."
}
#DJ Kanalında !istek on/off TCL (İstek Komutunu Kapatma/Açma)
Kod:
bind pub - !istek istekoff
proc istekoff {nick uhost hand chan text} {
  setudef flag radyocmd
  if {[string match -nocase "#DJ" $chan]} {
    set komut [lindex $text 0]
    if {$komut == ""} { putquick "PRIVMSG #DJ :Kullanımı !istek on/off şeklindedir."; return 0 }
    if {[string match -nocase "on" $komut]} { channel set $chan +radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Kabul Edilecek."; return 0 }
    if {[string match -nocase "off" $komut]} { channel set $chan -radyocmd; putquick "PRIVMSG #DJ Radyo İstekleri Reddedilecek."; return 0 }
    }
    if {[string match -nocase "#Radyo" $chan]} {
    if {[lsearch -exact [channel info #DJ] +radyocmd] != -1} {
    putquick "PRIVMSG #Radyo :İsteğiniz DJ'lerimize İletilmiştir $nick."
    putquick "PRIVMSG #DJ Radyo İsteği: $text İstekte Bulunan Kullanıcı: $nick"
    }
    if {[lsearch -exact [channel info #DJ] +radyocmd] == -1} {
    putquick "PRIVMSG #Radyo Üzgünüz Dj'imiz İstekleri Kabul Etmemektedir $nick."
    }
  }
}
putlog "Radyo Panel TCL v1.0 CLubber"
Radyo Kanalında (@) Olanlar için, #DJ Kanalına Yönlendirme ve Özel HOST TCL'si.

Kod:
set opkanal "#DJ"
channel add $opkanal
bind mode - "*+o*" op:yonlendir
proc op:yonlendir {nick uhost hand chan mc kimdir} {
global opkanal
if {![string match -nocase "#Radyo" $chan]} {return 0}
putquick "sajoin $kimdir $opkanal"
putquick "CHGIDENT $kimdir DJ"
putquick "CHGHOST $kimdir DJ.Site-İsmi.Net"
putquick "CHGNAME $kimdir 4,1\[ 0Site-İsmi.Net DJ4 \]"
}
bind time - "* * * * *" time:optara
proc time:optara {min hour day month year} {
global opkanal botnick
foreach kanallar [channels] {
if {$kanallar == $opkanal} { continue }
foreach opcuk [chanlist $kanallar] {
if {[onchan $opcuk $opkanal]} { continue }
if {[isop $opcuk $kanallar] && $opcuk != $botnick} {
putquick "sajoin $opcuk $opkanal"
}
}
}
}
#DJ Kanalında !var - !yok
Kod:
bind pub - !var var
bind pub - !yok yok
proc var {n u h c a} {
set kanal [lindex $a 0]
if {![string match -nocase "#DJ" $c]} {return 0}
putserv "PRIVMSG #Radyo :İ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 #Radyo :Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}
#DJ Kanalında !sifre Komutu
Kod:
bind pub - !sifre sifre
proc sifre {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "privmsg $chan :4» Sunucu DJ Panel Şifreleri"
putquick "privmsg $chan :4»2 IP: IP adresiniz"
putquick "privmsg $chan :4»2 Port: Portunuz"
putquick "privmsg $chan :4»2 Şifre: Şifreniz"
putquick "privmsg $chan :4»2 Maximum Dinleyici: 520"
}
#DJ Kanalında DJ'lerin Reklam Atması için
Kod:
bind pub - !Reklam reklam
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*site-adi.com 4,4 0,1 Radyomuzu Winamp'tan Dinlemek için 4,1»0 4,1Radyo Linki"
}
Radyoyu dinleyen kullanıcılara voice - Kapatanları devoice
Kod:
#############################################
# Radyo ip'sini yazınız..
set radyoip "IPADRESINIZ"
# Radyo portunu yazınız..
set rport "RADYOPORT"
# Radyo şifresini yazınız..
set rsifre "RADYOSIFRE"
# Radyo kanalını yazınız.. Büyük küçük harfe dikkat ediniz.
# Örnek #Radyo ile #radyo farklıdır ;)
set rkanal "#Radyo"

###############################################################
###############################################################
### PROCS.......................................................
###############################################################
###############################################################
bind time - "* * * * *" yenidinleyici
proc yenidinleyici {min hour day month year} {
 global radyoip rsifre rport
 if {[catch {set sock [socket $radyoip $rport] } sockerror]} {
  putlog "error: $sockerror"
  return 0
  } else {
  puts $sock "GET /admin.cgi?pass=$rsifre&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: $radyoip"
  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]]
  }
  }
  close $sock
 }
 set voicevr [temiz $voicevr]
 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 shrink { calc number string start bl} { return [expr [string first "$string" $bl $start] $calc $number] }
proc voysver {from keyword arg} {
global rkanal
if {![isvoice [lindex $arg 5] $rkanal]} {
putquick "mode $rkanal +v [lindex $arg 5]"
}
}
bind raw - 315 countdusur
proc countdusur {from keyword arg} {
set ::rawcount [expr $::rawcount - 1]
if {$::rawcount == "0"} {
 unbind raw - 352 voysver
 }
}
proc temiz {veri} {
regsub -all \< $veri " " veri
regsub -all \/ $veri " " veri
regsub -all \> $veri " " veri
return $veri
}
putlog "radyo-yama.tcl By SaW"

ElmasNetwork 16 Ocak 2011 14:47
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
paylaşım için teşekkürler

Host kısmı haric diger bölümler zaten mevcut ve host kısmınıda Genelde Services lerden ayarlanıyor emeginize saglık...

CLubber 17 Ocak 2011 21:10
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Şifre/Reklam Bunlarda Eklendi :)

adadan 22 Ocak 2011 18:41
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
bunlri nereye ekleyecez sunucumuzd radyo botunun tcl sinin yerinemi ?

NucLeSs 26 Ocak 2011 23:16
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Tesekkurler cakı gııb calısıyor denedım oldu harıkasın pasam

CLubber 28 Ocak 2011 21:42
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Rica Ederim :)

oSmanLi 12 Şubat 2011 17:40
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
GüzeL çalışma olmuş

AKY 14 Şubat 2011 00:02
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Güzel çalışma emeğinize sağlık :)

fLayer 15 Şubat 2011 22:50
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
pm ile ulaşmak istedim Sanırım musait degilsiniz burdan ßelirtmek isterim

bind pub - !Reklam reklam
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek içinhttp://xxxxxx"
}
bind pub - !radikal radikal
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek için 4,1»0 4,1Radyo Linki"
}
bind pub - !gReklam gReklam
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*laflariz.net14 Radyo xxx 15,4Radyo Kanalına Hoş geLdiniz4,1 Yayinimiz Su An OnLine14,1Radyomuzu 9,1http://xxxxx11,1 Adresini Çift 4,1Tıklayarak Dinleyebilirsiniz.."
}
bind pub - !djalim djalim
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxxx 4Radyomuza dj alımı defam edecektir sizlerde dj olmak istiyorsanız aHMET nickine başvurunuz"
}

ßunu yaptıqımda Sadece global olarak

(RekLam) 4Radyomuza dj alımı defam edecektir sizlerde dj olmak istiyorsanız aHMET nickine başvurunuz
bunu veriyor diger işlemleri yapamıyoruz yardımcı olurSanız sevinirim kolay Gelsin.

CLubber 17 Şubat 2011 16:38
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Kod:
bind pub - !Reklam reklam
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek içinhttp://xxxxxx"
}
bind pub - !radikal radikal
proc radikal {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek için 4,1»0 4,1Radyo Linki"
}
bind pub - !greklam greklam
proc greklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxx 14 Radyo xxx 15,4Radyo Kanalına Hoş geLdiniz4,1 Yayinimiz Su An OnLine14,1Radyomuzu 9,1http://xxxxx11,1 Adresini Çift 4,1Tıklayarak Dinleyebilirsiniz.."
}
bind pub - !djalim djalim
proc djalim {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxxx 4Radyomuza dj alımı defam edecektir sizlerde dj olmak istiyorsanız aHMET nickine başvurunuz"
}

fLayer 21 Şubat 2011 15:17
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Alıntı:
CLubber Nickli Üyeden Alıntı (Mesaj 1040683818)
Kod:
bind pub - !Reklam reklam
proc reklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek içinhttp://xxxxxx"
}
bind pub - !radikal radikal
proc radikal {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxx 4,4 0,1 Radyomuzu Winamp'tan Dinlemek için 4,1»0 4,1Radyo Linki"
}
bind pub - !greklam greklam
proc greklam {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*laflariz.net14 Radyo xxx 15,4Radyo Kanalına Hoş geLdiniz4,1 Yayinimiz Su An OnLine14,1Radyomuzu 9,1http://xxxxx11,1 Adresini Çift 4,1Tıklayarak Dinleyebilirsiniz.."
}
bind pub - !djalim djalim
proc djalim {nick uhand host chan text} {
if {![string match -nocase "#DJ" $chan]} {return 0}
putquick "PRIVMSG $*xxxxxx 4Radyomuza dj alımı defam edecektir sizlerde dj olmak istiyorsanız aHMET nickine başvurunuz"
}
Buyrun, Sorunsuz çalışacaktır.
malesef aynı yine çalışmıyor bukes Rado reklamı dahi apmıyor Daha onCe reklam ve djalim reklamını atıyordu şimdi onuda atmıyor

CLubber 21 Şubat 2011 17:16
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
net'den sonra bi boşluk olması gerek, ama bırakmadığınız için atmıyor.

CLubber 20 Mart 2011 00:18
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
!istek aç/kapat özelliği de eklenmiştir, istediğiniz taktirde kullanabilirsiniz.

Serseri 21 Mart 2011 23:24
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Alıntı:
CLubber Nickli Üyeden Alıntı (Mesaj 1040704722)
!istek on/off TCL'de Eklenmiştir.

İstediğiniz Takdirde Kullanabilirsiniz.
buna birde istek flood unu engellemek için zaman limiti ekleyebilir miyiz ve bu zaman limitinden yetkilileri muaf tutabilirmiyiz acaba?

elimdeki mevcut zaman limit tcl si şu şekildedir...

Kod:
bind pub - !istek istekProc
proc istekProc {nick uhost hand chan arg} {
  global istek
  # eger !istek yazip yanina birsey yazmadiysa komutun
  # nasil kullanilacagini gösterelim.
  if {$arg == ""} {
    putquick "privmsg $chan :\002HATA\022 isteginizi belirtmeyi unuttunuz."
    putquick "privmsg $chan :\002Dogru kullanim:\002 !istek sarkiciadi - sarkisi - kime istediginiz."
    return
  }
  # burada olusturdugumuz degisken mevcut mu bakiyoruz.
  # eger mevcutsa komutu durduruyoruz.
  if {[info exists istek([md5 $uhost])]} {
    putquick "privmsg $chan :4$nick 12, 15 Dakika Içerisinde 4Sadece 1 kez 12Istekte bulunabilirsiniz!...."
    return
  }
  # simdi ise komutlari uygulatalim
  putquick "privmsg #dj :2Istek Isteyen Nick 4\002$nick\002, 2Istenilen Sarki: 4\002$arg\002 2isteginde bulundu."
  putquick "privmsg $chan :\002$nick\002 isteginiz djlerimize iletilmistir."
  # simdi de bu kisinin hostunu degiskene atayalim.
  set istek([md5 $uhost]) 1
  # bu degiskeni 15 dk sonra yokedelim
  timer 15[list unset istek([md5 $uhost])]

}
yardımlarınız için şimdiden teşekkür ederim....

CLubber 22 Mart 2011 20:02
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Bunu denedim fakat radyo.tcl'de host'a göre taramada garip bi hata aldım.

qeweSe 03 Kasım 2011 23:20
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
PHP- Kodu:
bind pubm - * kanalda:yap
proc kanalda:yap {nick uhost hand chan arg} {
global server botnick
 if {[string match -nocase "#DJ" $chan]} {
  if {[string match -nocase "!link" $arg]} { putquick "PRIVMSG $*[join [split [lrange [split [lindex [split $server :] 0] .] 1 end] " "] .] :\002 Radyomuzu Winamptan dinlemek için \0034http://ircforumlari.com:port/listen.pls\003 adresine tıklayiniz..";return 0}
 }
} 

qeweSe 15 Aralık 2011 14:35
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
edit

Feragat 19 Aralık 2011 23:08
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Bunu Kişinin Özeline yollayamazmıyız. !var nick Yazsak Radyo botu o kişinin özeline gidip isteğiniz kabul edilmiştir yazsa. Baya uğraştım yapamadım pek bilgim yok kodlama konusunda, ama araştırdım verilen örneklerde hep kanala yansıtıyor cvp ı. Script te ayarladım özele atıyor bot ama, .tcl de ayarlayamadım. Yardımcı olma imkanınız varsa minnettar olurum. Teşekkür ediyorum.

qeweSe 20 Aralık 2011 10:15
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
PHP- Kodu:
set radyo(chan) "#MynetFM"
set radyo(adm) "#DJ"

bind pub - !var var
bind pub - !yok yok


proc var {nick uhost hand chan text} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $chan]} {
    set kisi [lindex $text 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $chan :5 Nick belirtmediniz. "
        putquick "PRIVMSG $chan :5 Kullanimi: 1,12.!var <NICK> 5seklindedir. "
        return
    }
        if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $kisi :1,12 $kisi 5isteginiz arsivimizde mevcut. Kisa sure icinde isteginiz yayinlanacaktir. "; return 0 }
        if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
    }
}

proc yok {n u h c a} {
global botnick radyo
    if {[string match -nocase $radyo(adm) $c]} {
    set kisi [lindex $a 0]
    if {$kisi == ""} {
        putquick "PRIVMSG $c :5 Nick belirtmediniz. "
        putquick "PRIVMSG $c :5 Kullanimi: 1,12.!yok <NICK> 5seklindedir. "
        return
    }
    if {[onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 Bas ustune. "; putquick "PRIVMSG $kisi :5 Uzgunum1,12 $kisi 5isteginiz arsivimizde bulunmamaktadir. Baska bir istekte bulunabilirsiniz. "; return 0 }
    if {![onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return 0 }
    }
} 

CLubber 22 Aralık 2011 20:13
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Kod:
putserv "PRIVMSG #Radyo :İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
Bu kısmı

Kod:
putserv "PRIVMSG $kanal :$kanal, İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
şeklinde değiştirirseniz, mesajları özele yollayacaktır.

ZamaN 17 Ocak 2012 16:32
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Bunları tek tclde nasıl toplarız ?

CLubber 17 Ocak 2012 21:25
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
Tamamını kopyalayıp radyo.tcl'nizin en alt satırına eklemeniz ve gerekli ayarları yapmanız yeterlidir.

ZamaN 17 Ocak 2012 21:46
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
tamamdır çalışıyor bir !kickradyo calısmıyor.

qeweSe 18 Ocak 2012 10:50
Cevap: Radyonuzu Biraz Renklendirmek İstermisiniz ?
 
verdigim kod'ta Dj kanalinda !dj kill yapmaniz yeterli


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 21:51.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk