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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Temmuz 2019, 22:01   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
radyo dinleyen nickler ile ilgili




Altaki kod çalışıyor biraz düzenledim bir sorunum var

Sorun şu .dinleyici

Yukardaki komutu kullandığımda vermiyor dinleyen nickleri ama kanala biri girdinde radyosunu açtığında veriyor yani komutu kullanıyorum 10 daka sonra biri kanala girip yayın açarsa listeyi veriyor

istiyorum ki listeyi komutu yazinca versin olmadı sebep nedir.


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# Radyo dinleyici eklentisi
# site: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set sc
(kanal"#dj"
#radyo portu
set sc(port"8000"
#radyo ip
set sc(ip"ip"
#radyo sifre
set sc(sifre"sifre"


#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.
bind raw 315 who_son
 bind pub 
- .dinleyici dinleyici
 proc dinleyici 
{from keyword text} {
    global 
nicks SayIp
    http
::config -useragent "Mozilla 5.0"
    
set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0]
    
set httpraw [http::data $baglan]
    
set nicks ""
    
set ips ""
    
set SayIp "0"
    
http::cleanup $baglan

    
if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {
        
set listeraw $veri
        bind raw 
352 raw_oku
        regsub 
-all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw
        
foreach strListe $listeraw {
            if { [
regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } { 
                if {[
regexp $ipVeri $ips] == "0"} { 
                    
lappend ips $ipVeri
                    incr SayIp
                    
                
}
            }
        }
    }
    foreach 
x $ips {
         
putserv "who +i $x"
    
}
}
proc raw_oku {from keyword arg} {
    global 
nicks
    set nick 
[lindex $arg 5]
    if {[
regexp {$nick$nicks] == "0"} { 
        
        
lappend nicks $nick 
    
}
}
proc who_son {from keyword arg} {
    global 
nicks SayIp
    set SayIp 
[expr $SayIp 1]
    if {
$SayIp == "0"} {
                
putserv "PRIVMSG $::sc(kanal) :\02 .::. Radyomuzu Dinleyenler .::.\02  $nicks"
        
unbind raw 352 raw_oku
}



 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 12 Temmuz 2019, 18:05   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo dinleyen nickler ile ilgili




Eggdrop/doc/tcl-commands.doc
Yada;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



Bind Types (Bind Türleri) Bölümünde,
Kullandığınız "bind pub" Bind Türünün
Kullanım Şeklini İncelemelisiniz!

 
Alıntı ile Cevapla

Alt 01 Ağustos 2019, 06:04   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo dinleyen nickler ile ilgili




Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Eggdrop/doc/tcl-commands.doc
Yada;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]



Bind Types (Bind Türleri) Bölümünde,
Kullandığınız "bind pub" Bind Türünün
Kullanım Şeklini İncelemelisiniz!

olmadı bilemedim.

 
Alıntı ile Cevapla

Alt 02 Ağustos 2019, 23:46   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo dinleyen nickler ile ilgili




Bind Pub , Bindinin Bağladığı Prosedür,
Yukarıdaki Örnekte Bu Prosedür
"Dinleyici" Olarak Adlandırılmış,
Beş (5) Argümandan Oluşmak Zorunda (En Az!)


Eggdrop-Tcl Dökümanında ;
Nick (NickName) Uhost (UserHost) Hand (Handle) Chan (Channel) Text (Arg)
Olarak Gösterilmiş!

Sizin Bind Pub'la İlişkilendirilmiş
Dinleyici Prosedürünüz İse;
Üç (3) Argümanlı;
From Keyword Text
Ki Buda Dökümana Göre;
Bind Pub'a Değil Bind Raw'a Ait!

Bind Pub'ın "Dinleyici" Prosedürünü
(Bu Haliyle) İşletmesi/Çalıştırması
Olası Değildir!

__________________
Beş Tas Has Hoş Hoşaf.

Konu Heartbroken tarafından (02 Ağustos 2019 Saat 23:53 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 03 Ağustos 2019, 02:42   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: radyo dinleyen nickler ile ilgili




Heartbroken Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bind Pub , Bindinin Bağladığı Prosedür,
Yukarıdaki Örnekte Bu Prosedür
"Dinleyici" Olarak Adlandırılmış,
Beş (5) Argümandan Oluşmak Zorunda (En Az!)


Eggdrop-Tcl Dökümanında ;
Nick (NickName) Uhost (UserHost) Hand (Handle) Chan (Channel) Text (Arg)
Olarak Gösterilmiş!

Sizin Bind Pub'la İlişkilendirilmiş
Dinleyici Prosedürünüz İse;
Üç (3) Argümanlı;
From Keyword Text
Ki Buda Dökümana Göre;
Bind Pub'a Değil Bind Raw'a Ait!

Bind Pub'ın "Dinleyici" Prosedürünü
(Bu Haliyle) İşletmesi/Çalıştırması
Olası Değildir!

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#Ayar kisimlari bitti, gerisini ellemenize gerek yoktur.
bind raw 315 who_son
 bind pub 
- .dinleyici dinleyici
 proc dinleyici 
{nick host handle chan arg} {
    global 
nicks SayIp
    http
::config -useragent "Mozilla 5.0"
    
set baglan [http::geturl http://$::sc(ip):$::sc(port)/admin.cgi?pass=$::sc(sifre)&mode=viewxml&page=0]
    
set httpraw [http::data $baglan]
    
set nicks ""
    
set ips ""
    
set SayIp "0"
    
http::cleanup $baglan

    
if { [regexp "<LISTENERS>(.*?)</LISTENERS>" $httpraw data veri] } {
        
set listeraw $veri
        bind raw 
352 raw_oku
        regsub 
-all "</LISTENER>" $listeraw "</LISTENER>\n" listeraw
        
foreach strListe $listeraw {
            if { [
regexp "<HOSTNAME>(.*?)</HOSTNAME>" $strListe data ipVeri] } { 
                if {[
regexp $ipVeri $ips] == "0"} { 
                    
lappend ips $ipVeri
                    incr SayIp
                    
                
}
            }
        }
    }
    foreach 
x $ips {
         
putserv "who +i $x"
    
}
}
proc raw_oku {from keyword arg} {
    global 
nicks
    set nick 
[lindex $arg 5]
    if {[
regexp {$nick$nicks] == "0"} { 
        
        
lappend nicks $nick 
    
}
}
proc who_son {from keyword arg} {
    global 
nicks SayIp
    set SayIp 
[expr $SayIp 1]
    if {
$SayIp == "0"} {
                
putserv "PRIVMSG $::sc(kanal) :\02 .::. Radyomuzu Dinleyenler .::.\02  $nicks"
        
unbind raw 352 raw_oku
}


Yukardaki gibi son hali söyle bir sorun var .dinleyici yaptigimida bilgiyi vermiyor
bir kisi radyoyu açtıktan sonra veriyor..
2 sikinti ise ircd deki botlarida dinleyci die gösteriyor eggdrop


Konu alphae tarafından (03 Ağustos 2019 Saat 02:47 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
radyo


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Radyo dinleyen voice-devoice Set mIRC Scripting Hazır Kodlar 16 16 Nisan 2020 21:21
Radyo dinleyen Voice ahmetsivas mIRC Scripting Sorunları 4 13 Ocak 2016 16:11
Radyo dinleyen nick tcl ile ilgili. Kombine Eggdrop, NeoStats, BNC 15 19 Eylül 2014 21:44
Radyo Botu, Dinleyen userlere teşekkür etmesini nasıl sağlayabilirim gapex Eggdrop, NeoStats, BNC 4 02 Haziran 2011 22:26
Radyo ile ilgili Brain Unreal IRCd 9 09 Mayıs 2007 23:25