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/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Radyo dinleyici kayit sistemi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/766182-radyo-dinleyici-kayit-sistemi.html)

Set 02 Ocak 2017 18:41
Radyo dinleyici kayit sistemi
 
Mrblar, bildiginiz gibi bugüne kadar yapilan herşey, ya sohbet üzerine kuruludur , yada giris sistemleri üstüne kurulu, ben ise bu aliskanligi az degiştirdim kendime göre, sene 2013'den beridir var olan bir sistem, bir arkadas icin yazilmis bir codeydi , ve radyo'da dinleyenlerin kac dakika kac saniye kac saat seklinde gösterebilen bir sistem, bu code gelisime acık bir sistemdir, hayal gücünüzle birlikte daha bir cok sekle bürünebilir, top10 sistemi, buna benzer dinleyenlerle neler yapacaginiz vs. vs...

Kullanimi: alt kısımdaki bilgileri doldurmaniz kafi, sonra mirci acip tekrar kapatiniz.

Kod:
;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0
Gelistirebilirseniz Print:

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

NOT: Bazi gereksiz arkadaslar uyaniklik yapip, sadece kendilerinde kullaniyorlar'mis, ve ben yeni gördüm benim codeyi kullandıklarini, sorun yok istedikleri kadar kullanabilirler artık, paylasirim biter ben icin, code patlak verecek elbet, o gün ne yapacaklar acaba shoutcast v2'ye gecince sistem, ama sasirdigim kısım bana yabancı sitelerden codeyi caliyorsun diyen kişiler benim codeyi kullanıyor, ne garip.. o kadar acizlerki cidden acıdım, merak etmesinler ben code meraklisi degilim, ama sadece onlar degil bari herkes kullansin en temizi oyle olur, acıdım cidden , bundan sonra calcak code nerden bulcak cok merak ediyorum, sanal delikanli arkadaslarim, Hayırlı IF'ler. :)



Kod:

;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0

on *:start: {
  hashopen
  .timervoice 0 15 /radyovoice
}

on *:text:*:$($radyo.chan): {
  if $regex($1-,/[!.]sure/i) {
    if !$2 { msg # 4*\5 $qt($nick) 2Rumuzu radyo dinleme sureniz5 $iif($readini(radyodinle.ini,Sure,$nick),$tamsure($v1),Bulunmuyor.)  | return }
    if $2 { msg # 4*\5 $qt($2) 2Rumuzu radyo dinleme suresi5 $iif($readini(radyodinle.ini,Sure,$2),$tamsure($v1),Bulunmuyor.)  | return }
  }
}

raw 352:*: {
  if ($numeric == 352) {
    if $hget(dinleyen,$4) {
      if (r isin $7) {
        hadd -mu5 radyoonline $4 $6
        writeini radyodinle.ini Dinleyen $6 $4
        if !$hget(radyodinleme,$6) { hadd -mu20 radyodinleme $6 $ctime }
        if $hget(radyodinleme,$6) {
          writeini radyodinle.ini Sure $6 $calc($iif($readini(radyodinle.ini,Sure,$6),$v1,0) + $calc($ctime - $hget(radyodinleme,$6)))
          hadd -mu20 radyodinleme $6 $ctime
        }
      }
    }
    if $hget(dinleyen,$4) && !$hget(dinleyennick,$6) {
      hadd -m dinleyenip $4 $6
      hadd -m dinleyennick $6 $4
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1yayini dinlediginiz icin tesekkurler, radyonuz suan acik durumdadir }
      if ($radyo.voice !== 0) { .mode $radyo.chan +v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [3ACAN]2 $6 3 radyoyu acti. }
      if (r isin $9) {
        if ($dinleyen.durum !== 0) { notice $6 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemektesiniz. }
      }
      if (r !isin $7) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    if $hget(kapatan,$4) {
      hdel -m kapatan $4
      hdel -m dinleyennick $6
      hdel -m radyodinleme $6
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1Radyo yayini dinlediginiz icin tesekkurler, radyonuz suan kapali duruma gecmistir. }
      if ($radyo.voice !== 0) { .mode $radyo.chan -v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4KAPATAN]2 $6 4 radyoyu acti. }
      if (r isin $9) && ($dinleyen.durum !== 0) { notice $6 5*\1 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemissiniz. }
      if (r !isin $9) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    haltdef
  }
  if ($numeric == 315) {
    var %ip $right($left($4,-1),-1)
    if $hget(dinleyen,%ip) && !$hget(radyoonline,%ip) {
      if $read(radyodinle.ini,w,$+(*=,%ip)) {
        hadd -mu5 simdilik evet $token($v1,1,61)
        if !$hget(radyodinleme,$hget(simdilik,evet)) { hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime }
        writeini radyodinle.ini Sure $hget(simdilik,evet) $calc($iif($readini(radyodinle.ini,sure,$hget(simdilik,evet)),$v1,0) + $calc($ctime - $hget(radyodinleme,$hget(simdilik,evet))))
        hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime
      }
    }
    if $hget(kapatan,%ip) {
      hdel -m kapatan %ip
      hdel -m radyodinleme %ip
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4Kapatan] 2 $hfind(dinleyennick,%ip,1,W).data 5  yayini kapatti }
      haltdef
    }
  }
}
on 1:SOCKOPEN:radyovoice: {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyopass HTTP/1.1)
  sockwrite -n $sockname Host: $+($radyoip, :, $radyoport)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:radyovoice: {
  var %data
  sockread -f %data
  tokenize 32 %data
  var %x 1
  if $regex($1-,/class=st>([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gi) {
    var %x 1
    while $regml(%x) {
      hadd -m dinleyen $v1 evet
      inc %x
    }
  }
}

on *:sockclose:radyovoice: {
  var %x 1 |while $hget(dinleyen,%x).item {
    who +I $+(*,$v1,*) | inc %x
  }
  var %e 1 | while $hget(dinleyenip,%e).item {
    var %v1 $v1 | if !$hget(dinleyen,$v1) {
      hdel -m dinleyenip %v1 | hadd -m kapatan %v1 evet | who +I $+(*,%v1,*)
    }
    inc %e
  }
}

alias radyovoice {
  if $hget(dinleyen) { .hfree -sw dinleyen }
  if !$sock(radyovoice) {
    sockopen radyovoice $radyoip $radyoport
  }
}
alias tamsure {
  var %islem $replace($duration($1),hr,hrs,min,mins,sec,secs,day,days,wk,wks), %hafta $iif(wks isin %islem,$token(%islem,1,$asc(wks))), %gun $iif(days isin %islem,$token($token(%islem,1,$asc(days)),-1,32))
  var %saat $iif(hrs isin %islem,$token($token(%islem,1,$asc(hrs)),-1,32)), %dakika $iif(mins isin %islem,$token($token(%islem,1,$asc(mins)),-1,32))
  var %saniye $iif(secs isin %islem,$token(%islem,-2,$asc(secs)))
  if %hafta { var %hafta $calc(%hafta * 168) }
  if %gun { var %gun $calc(%gun * 24) }
  return $calc(%saat + %hafta + %gun) $+ saat $calc(0 + %dakika) $+ dakika $calc(0 + %saniye) $+ saniye
}
alias sure {
  if $readini(radyodinle.ini,Sure,$1) { return $tamsure($v1) }
  else { return 0saat 0dakika 0saniye }
}

Sahmelek 02 Ocak 2017 18:54
Cevap: Radyo dinleyici kayit sistemi
 
(Ç)aldım:DDD Emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

fLayer 02 Ocak 2017 20:41
Cevap: Radyo dinleyici kayit sistemi
 
çalanlar nedense hep aynı isimler aynı kişiler Grup olup milletin codelerini ben yaptım diye ortada geziyorlar utanma sıkılmada kalmamış insanlarda.

Med Cezir 02 Ocak 2017 23:56
Cevap: Radyo dinleyici kayit sistemi
 
Güzel düşünce, niye aklıma gemedi bu hiç :)) Radyo ile ilgili birşeyler yapmak hep hoşuma gitmişti, o yüzden bu tarz paylaşımlar hoşuma gidiyor :) Emeğine sağlık..

Set 03 Ocak 2017 00:09
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
Med Cezir Nickli Üyeden Alıntı (Mesaj 1041832980)
Güzel düşünce, niye aklıma gemedi bu hiç :)) Radyo ile ilgili birşeyler yapmak hep hoşuma gitmişti, o yüzden bu tarz paylaşımlar hoşuma gidiyor :) Emeğine sağlık..
Arada kendine gel birşeyler paylaşta bende zevke geliyim değişik şeyler çıkartayım, tek olunca ilham gelmiyor :)

Med Cezir 03 Ocak 2017 00:23
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041832981)
Arada kendine gel birşeyler paylaşta bende zevke geliyim değişik şeyler çıkartayım, tek olunca ilham gelmiyor :)
Mirc adına tek satır bile birşey yazabileceğimi sanmıyorum artık :) Arşivim silinmese eskileri paylaşırdık katkımız olsun diye ama o'da artık uçtu :) Sizin gibi değerli Coder'lerimizi beğenmek kalıyor bizede bu durumda :)

IrCbaStarD 03 Ocak 2017 10:38
Cevap: Radyo dinleyici kayit sistemi
 
Eline sağlık sinan fakat büyüdük artık bunun farkındasındır olan olmus biten bitmis bu tarz kelimelere hic gerek yok aslında kullanan kullanır yapan yapar, ilk başta hataları kendimizde aramalıyız. Paylaşımın diğer arkadaslar için iyi olmus.

Set 03 Ocak 2017 12:32
Cevap: Radyo dinleyici kayit sistemi
 
Eyw Sercan, yoo umrumda olmadı güldüm geçtim doğal şeyler, daha iyisini yaparım biter, ha bu arada ben yabancı sitelerden kod çalıp Türkçeye çeviriyormusum :)

aLone 03 Ocak 2017 13:32
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041833012)
Eyw Sercan, yoo umrumda olmadı güldüm geçtim doğal şeyler, daha iyisini yaparım biter, ha bu arada ben yabancı sitelerden kod çalıp Türkçeye çeviriyormusum :)
Kimseye bi açıklama yada kendini ifade etmene gerek yok @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] seni bilen biliyor.

Boş konuşan çamur atan besaretsiz, becereksiz, elinden hiç birşey gelmeyen faydasız kişilerdir.
Bu insanlar her zaman senin gibi çalışan iş yapan insanlara bu tarz söylemlerle yaklaşıp,
Kendi beceriksizliklerinin üstünü kapatmaya çalışıp tatmin oluyorlar bence..

ircforumlari platformuna girip MS Bölümünden faydalanan tüm kişiler. Sizlerin emeklerini Sunucularında Sunucu Botlarında, mIRC Script`lerinde kullanıyorlar.

Geriye dönük foruma bakılırsa @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve ismini sayamadığım kişilerin neler yaptığı ortadadır

VelHasıl Kelam MS bölümünde Emeği olan herkeze şahsım adına teşekkür ederim
Başarılarının ve paylaşımlarının devamını dilerim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

IrCbaStarD 03 Ocak 2017 14:11
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041833012)
Eyw Sercan, yoo umrumda olmadı güldüm geçtim doğal şeyler, daha iyisini yaparım biter, ha bu arada ben yabancı sitelerden kod çalıp Türkçeye çeviriyormusum :)
Aslında denmemesi ve olmamasi gereken seyleri yaşamışsınız çok fazla müdahil olmasamda aranizdaki konuya bir ara arkadaşdınız o günlere sayin kırmak yıpratmak gerek yok, affedici taraf büyüklügünü göstermeli. :)

Set 03 Ocak 2017 14:50
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
IrCbaStarD Nickli Üyeden Alıntı (Mesaj 1041833047)
Aslında denmemesi ve olmamasi gereken seyleri yaşamışsınız çok fazla müdahil olmasamda aranizdaki konuya bir ara arkadaşdınız o günlere sayin kırmak yıpratmak gerek yok, affedici taraf büyüklügünü göstermeli. :)
Ona demiyorum zaten , o sozu o bana demez başkası dedi o lafı ona güldüm , neyse ney çocukla çocuk olmaya gerek yok bu arada seni görmek guzel

IrCbaStarD 03 Ocak 2017 17:35
Cevap: Radyo dinleyici kayit sistemi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041833050)
Ona demiyorum zaten , o sozu o bana demez başkası dedi o lafı ona güldüm , neyse ney çocukla çocuk olmaya gerek yok bu arada seni görmek guzel
Onu diyen halt etmiş herkes birbirini biliyor buradaki. Boşver prim yapmak isteyendir kulak asmana bile gerek yok.

Feragat 03 Ocak 2017 21:14
Cevap: Radyo dinleyici kayit sistemi
 
İşin gerçeği piyasada işe yarayacağı düşünülen bir addon, kod, bot vb.. Senin Pc nin dışına çıkıyorsa ve başka bir şahsın eline geçiyorsa herkese dağılmış demektir.

Buradaki daha doğrusu Türkiyedeki bu tarz paylaşım platformların daki potansiyel daha öncede söylediğim gibi amacı dışında işliyor. Mirc Scripting sorunları isimli bir kategori var (ben de yıllarca mücadele ettim ve sonunda pes edip kenara çekildim.) yıllardır dikkat ettiyseniz teknik, yapısal, işleyiş hakkında soru sayısı o kadar az ki. Hep istek hep istek.

İnsanların yanlışı da istekleri oturup üşenmeyip yapmaya çalışıp beklentileri karşılamak. Bence kategori adı değişmeli, "siz isteyin biz yapalım" olabilir.
Bu iş extra zeka gerektiren bir şey değil, biraz uğraşıp azıcık vakit ayırırsanız ne kod istersiniz ne ranklıların peşinden koşup ağız eyersiniz ne de başkasının kodunu almak çalmak vs zorunda kalırsınız. İnsanlar çaba sarf etmediği sürece bu diyaloglar yaşanmaya devam edecektir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sevgiler ve başarılar.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] badnick kodu lazım?

GC2N 05 Ocak 2017 20:00
Cevap: Radyo dinleyici kayit sistemi
 
emeginize saglık..

SanaLMasteR 13 Mart 2017 02:19
Cevap: Radyo dinleyici kayit sistemi
 
Sinan OncaEmek Veriyorsun Ücretle Yapacaksın ki Anlayacaklar Dostum..

Set 13 Mart 2017 07:30
Cevap: Radyo dinleyici kayit sistemi
 
Bir iki cahil'le cahil olcak halim yok, bosa dememisler " akıl yasta degil basta" , real'de yapamiycaklari seyleri sanalda yapmalarini dogal karsiliyorum, sonucta klavye arkasindan birşeyler basaramayip, sadece baskalarinin emekleriyle yol almayi biliyorlar, onuda idare etmek bize düşer , satmak kısmına gelirsek, zaten onlara satan satmis bazi seyleri, yeterince akıllı sansınlar kendilerini :) benim satcagim birşey yok, eglendigim seylere paha bicememe gibi bir kötü huyum var, hayirli IF'ler.

Dahaka 04 Nisan 2017 13:54
Cevap: Radyo dinleyici kayit sistemi
 
Radyo dinleyenleri tekrar tekrar söylemese iyiydi çözümü yokmudur ?

alphae 01 Haziran 2019 23:01
Cevap: Radyo dinleyici kayit sistemi
 
Calismadi bende hic bir uyari vermiyor ? 6.36 sürüm mirc



Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041832950)
Mrblar, bildiginiz gibi bugüne kadar yapilan herşey, ya sohbet üzerine kuruludur , yada giris sistemleri üstüne kurulu, ben ise bu aliskanligi az degiştirdim kendime göre, sene 2013'den beridir var olan bir sistem, bir arkadas icin yazilmis bir codeydi , ve radyo'da dinleyenlerin kac dakika kac saniye kac saat seklinde gösterebilen bir sistem, bu code gelisime acık bir sistemdir, hayal gücünüzle birlikte daha bir cok sekle bürünebilir, top10 sistemi, buna benzer dinleyenlerle neler yapacaginiz vs. vs...

Kullanimi: alt kısımdaki bilgileri doldurmaniz kafi, sonra mirci acip tekrar kapatiniz.

Kod:
;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0
Gelistirebilirseniz Print:

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

NOT: Bazi gereksiz arkadaslar uyaniklik yapip, sadece kendilerinde kullaniyorlar'mis, ve ben yeni gördüm benim codeyi kullandıklarini, sorun yok istedikleri kadar kullanabilirler artık, paylasirim biter ben icin, code patlak verecek elbet, o gün ne yapacaklar acaba shoutcast v2'ye gecince sistem, ama sasirdigim kısım bana yabancı sitelerden codeyi caliyorsun diyen kişiler benim codeyi kullanıyor, ne garip.. o kadar acizlerki cidden acıdım, merak etmesinler ben code meraklisi degilim, ama sadece onlar degil bari herkes kullansin en temizi oyle olur, acıdım cidden , bundan sonra calcak code nerden bulcak cok merak ediyorum, sanal delikanli arkadaslarim, Hayırlı IF'ler. :)



Kod:

;Radyo admin paneli sifresi
alias radyopass return radyoadmin

;Radyo yayin adresi
alias radyoip return 178.33.34.48

;Radyo yayin portu
alias radyoport return 9306

;Radyo kanali
alias radyo.chan return #Radyo

;Radyo dinleyenlere voice verilsimmii 1 evet 0 hayir
alias radyo.voice return 0

;Radyo aciyip kapatanlari bir kanalda belirtmek istermisiniz ?
;1 evet 0 hayir
alias dinleyen.chan return #KANAL

;Radyo dinleyenlere mesaj atabilmek icin 1 evet 0 hayir
alias dinleyen.durum return 0

on *:start: {
  hashopen
  .timervoice 0 15 /radyovoice
}

on *:text:*:$($radyo.chan): {
  if $regex($1-,/[!.]sure/i) {
    if !$2 { msg # 4*\5 $qt($nick) 2Rumuzu radyo dinleme sureniz5 $iif($readini(radyodinle.ini,Sure,$nick),$tamsure($v1),Bulunmuyor.)  | return }
    if $2 { msg # 4*\5 $qt($2) 2Rumuzu radyo dinleme suresi5 $iif($readini(radyodinle.ini,Sure,$2),$tamsure($v1),Bulunmuyor.)  | return }
  }
}

raw 352:*: {
  if ($numeric == 352) {
    if $hget(dinleyen,$4) {
      if (r isin $7) {
        hadd -mu5 radyoonline $4 $6
        writeini radyodinle.ini Dinleyen $6 $4
        if !$hget(radyodinleme,$6) { hadd -mu20 radyodinleme $6 $ctime }
        if $hget(radyodinleme,$6) {
          writeini radyodinle.ini Sure $6 $calc($iif($readini(radyodinle.ini,Sure,$6),$v1,0) + $calc($ctime - $hget(radyodinleme,$6)))
          hadd -mu20 radyodinleme $6 $ctime
        }
      }
    }
    if $hget(dinleyen,$4) && !$hget(dinleyennick,$6) {
      hadd -m dinleyenip $4 $6
      hadd -m dinleyennick $6 $4
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1yayini dinlediginiz icin tesekkurler, radyonuz suan acik durumdadir }
      if ($radyo.voice !== 0) { .mode $radyo.chan +v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [3ACAN]2 $6 3 radyoyu acti. }
      if (r isin $9) {
        if ($dinleyen.durum !== 0) { notice $6 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemektesiniz. }
      }
      if (r !isin $7) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    if $hget(kapatan,$4) {
      hdel -m kapatan $4
      hdel -m dinleyennick $6
      hdel -m radyodinleme $6
      if ($dinleyen.durum !== 0) { notice $6 4 $6 1Radyo yayini dinlediginiz icin tesekkurler, radyonuz suan kapali duruma gecmistir. }
      if ($radyo.voice !== 0) { .mode $radyo.chan -v $6 }
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4KAPATAN]2 $6 4 radyoyu acti. }
      if (r isin $9) && ($dinleyen.durum !== 0) { notice $6 5*\1 5*\ 1Yayın dinleme sureniz toplam5 $sure($6) 1dinlemissiniz. }
      if (r !isin $9) && ($dinleyen.durum !== 0) {
        notice $6 5*\ 1Nickiniz suan kayitsiz kayitli bir nicke erisim sagladiginizda 5top101 listesine sizde bulunabilirsiniz.
        notice $6 5*\ 1Nick kayit icin 4 $helpchan 1kanalina basvurabilirsiniz.
      }
    }
    haltdef
  }
  if ($numeric == 315) {
    var %ip $right($left($4,-1),-1)
    if $hget(dinleyen,%ip) && !$hget(radyoonline,%ip) {
      if $read(radyodinle.ini,w,$+(*=,%ip)) {
        hadd -mu5 simdilik evet $token($v1,1,61)
        if !$hget(radyodinleme,$hget(simdilik,evet)) { hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime }
        writeini radyodinle.ini Sure $hget(simdilik,evet) $calc($iif($readini(radyodinle.ini,sure,$hget(simdilik,evet)),$v1,0) + $calc($ctime - $hget(radyodinleme,$hget(simdilik,evet))))
        hadd -mu20 radyodinleme $hget(simdilik,evet) $ctime
      }
    }
    if $hget(kapatan,%ip) {
      hdel -m kapatan %ip
      hdel -m radyodinleme %ip
      if ($dinleyen.durum !== 0) { .msg $dinleyen.chan [4Kapatan] 2 $hfind(dinleyennick,%ip,1,W).data 5  yayini kapatti }
      haltdef
    }
  }
}
on 1:SOCKOPEN:radyovoice: {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyopass HTTP/1.1)
  sockwrite -n $sockname Host: $+($radyoip, :, $radyoport)
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  sockwrite -n $sockname *.*, */*
  ; sockwrite -n $sockname Accept-Language: en-us,en;q=0.5
  sockwrite -n $sockname Accept-Language: tr,tr;q=0.5
  sockwrite -n $sockname Accept-Encoding: gzip,deflate
  sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -n $sockname Keep-Alive: 300
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:radyovoice: {
  var %data
  sockread -f %data
  tokenize 32 %data
  var %x 1
  if $regex($1-,/class=st>([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gi) {
    var %x 1
    while $regml(%x) {
      hadd -m dinleyen $v1 evet
      inc %x
    }
  }
}

on *:sockclose:radyovoice: {
  var %x 1 |while $hget(dinleyen,%x).item {
    who +I $+(*,$v1,*) | inc %x
  }
  var %e 1 | while $hget(dinleyenip,%e).item {
    var %v1 $v1 | if !$hget(dinleyen,$v1) {
      hdel -m dinleyenip %v1 | hadd -m kapatan %v1 evet | who +I $+(*,%v1,*)
    }
    inc %e
  }
}

alias radyovoice {
  if $hget(dinleyen) { .hfree -sw dinleyen }
  if !$sock(radyovoice) {
    sockopen radyovoice $radyoip $radyoport
  }
}
alias tamsure {
  var %islem $replace($duration($1),hr,hrs,min,mins,sec,secs,day,days,wk,wks), %hafta $iif(wks isin %islem,$token(%islem,1,$asc(wks))), %gun $iif(days isin %islem,$token($token(%islem,1,$asc(days)),-1,32))
  var %saat $iif(hrs isin %islem,$token($token(%islem,1,$asc(hrs)),-1,32)), %dakika $iif(mins isin %islem,$token($token(%islem,1,$asc(mins)),-1,32))
  var %saniye $iif(secs isin %islem,$token(%islem,-2,$asc(secs)))
  if %hafta { var %hafta $calc(%hafta * 168) }
  if %gun { var %gun $calc(%gun * 24) }
  return $calc(%saat + %hafta + %gun) $+ saat $calc(0 + %dakika) $+ dakika $calc(0 + %saniye) $+ saniye
}
alias sure {
  if $readini(radyodinle.ini,Sure,$1) { return $tamsure($v1) }
  else { return 0saat 0dakika 0saniye }
}

AutomatiC 15 Mart 2020 17:27
Cevap: Radyo dinleyici kayit sistemi
 
merhaba
bunu gorevlı olan dj arkadaslar ekledıgı zaman onun yayını dınleyenlerı gorebılmesı ıcın nasıl yapabılırız.. ılla kı admın oper olması gerekıyor
normal olarak mırc ekledım ancak aktıf olması olması ıcın nasıl yapılması gerekır acaba


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

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