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)

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 }
        if {![
onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return }
    }
}

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 }
    if {![
onchan $kisi $radyo(chan)]} { putquick "PRIVMSG $radyo(adm) :5 $radyo(chan) kanalinda boyle bir rumuz bulunmamaktadir. "; return }
    }



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.


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

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