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 dinleyen voice-devoice (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/533204-radyo-dinleyen-voice-devoice.html)

Set 01 Haziran 2013 17:19

Radyo dinleyen voice-devoice
 
Kod:

alias radyo.kanal {
  return #radyo
}
alias radyo.host {
  return RadyoIP
}
alias radyo.port {
  return RadyoIPPort
}
alias radyo.adminpass {
  return adminpass
}
alias radyo.sock {
  return shoutcast
}

on 1:SOCKOPEN:$($radyo.sock): {
  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$radyo.adminpass HTTP/1.1)
  sockwrite -n $sockname Host: $+($radyo.host, :, $radyo.port)
  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:$($radyo.sock): {
  var %data
  sockread %data
  tokenize 32 %data
  var %x 1
  while $pos($1-,align=center><font class=st>,%x) {
    var %v1 $v1,%ip $token($token($mid($1-,%v1,100),3,62),1,60)
    if (*.*.*.* iswm %ip) { hadd -m dinleyen $v2 evet }
    inc %x
  }
}
on *:sockclose:$($radyo.sock): {
  var %x 1
  while $hget(dinleyen,%x).item {
    who +I $+(*,$v1,*)
    inc %x
  }
  var %x 1
  while $nick($radyo.kanal,%x,v) {
    who +I $v1
    inc %x
  }
}
raw *:*: {
  if ($numeric == 352) {
    if $hget(dinleyen,$4) {
      if !$nick($radyo.kanal,$6,vqho) && ($6 ison $radyo.kanal)  {
        msg $6 $6 yayini dinlediginiz icin tesekkurler, radyonuz suan acik durumdadir
        mode $radyo.kanal +v $6
      }
    }
    if !$hget(dinleyen,$4) {
      if $nick($radyo.kanal,$6,v) && !$nick($radyo.kanal,$6,hoq) && ($6 ison $radyo.kanal) {
        msg $6 $6 Radyo yayini dinlediginiz icin tesekkurler, radyonuz suan kapalı duruma gecmistir.
        mode $radyo.kanal -vv $6
      }
    }
    haltdef
  }
  if ($numeric == 315) {
    haltdef
  }
}
alias radyovoice {
  if $hget(dinleyen) { hfree -sw dinleyen }
  sockopen $radyo.sock $radyo.host $radyo.port
}

Kod:

alias radyo.kanal {
  return #radyo
}
alias radyo.host {
  return RadyoIP
}
alias radyo.port {
  return RadyoIPPort
}
alias radyo.adminpass {
  return adminpass
}
alias radyo.sock {
  return shoutcast
}


Kelimeleri uzatmayı fazla sevmem, codedeki bu kısmı düzgün doldurduktan sonra /radyovoice yazdıgınızda gerekli bilgiyi verecektir. mIRC Code olarak ayarlanmıstır Socket'e göre ayarlanmamistir. ve en son Codu kullanmak icin Oper olmak gereklidir. Hayırlı IF'ler.

Goemon 01 Haziran 2013 21:26

Cevap: Radyo dinleyen voice-devoice
 
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)
-
* /tokenize: Sıra cok uzun (Satır 33, radyo-voice.txt)


hata veriyor

Set 01 Haziran 2013 21:43

Cevap: Radyo dinleyen voice-devoice
 
Kod:

SkandaL 6.35 ve üstü versionlarda calisir bu code

q0kh4n 02 Haziran 2013 02:22

Cevap: Radyo dinleyen voice-devoice
 
kjfkldjsflkjsd bu hazır kod bir harika dostum

MaryMy 15 Haziran 2013 20:32

Cevap: Radyo dinleyen voice-devoice
 
mIRC 6.35 Ama Çalışmadı :S

Goemon 16 Haziran 2013 19:27

Cevap: Radyo dinleyen voice-devoice
 
conferenceroom sunucularda çalışmıyor galiba unreal sunucularda gayet başarılı çalışmaktadır kod tarafımca denendi süper bir kod ama cr de neden olmuyor :)
Dipnot Mesajı: @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Dangerous123 30 Kasım 2013 11:25

Cevap: Radyo dinleyen voice-devoice
 
Kod:

alias radyo.kanal {  return #radyo } alias radyo.host {  return 22.33.123.10 } alias radyo.port {  return 22.33.123:8090 } alias radyo.adminpass {  return adminpass } alias radyo.sock {  return shoutcast }
radyoIPPORT dediğin kısım bu sekıldemı olcak kardesim
birde admin passs dediğin yayın pass deil demi direk admin pass

Shiniori 30 Kasım 2013 12:40

Cevap: Radyo dinleyen voice-devoice
 
RADYOVOICE Unknown command diyor olmadı galiba.

amasyaLi 04 Aralık 2013 18:58

Cevap: Radyo dinleyen voice-devoice
 
İlgili yerleri nasıl dolduracağımız konusunda bir de örnek verilseydi çok iyi olurdu, zira herkesin seviyesi bir değil, ben yapamadım. Teşekkürler.

Che 09 Nisan 2020 23:20

Cevap: Radyo dinleyen voice-devoice
 
Kod:

;Radyonun IP Adresi
alias radyoip return 51.178.240.130

;Radyonun PORT Adresi
alias radyoport return 8036

;Radyonun Admin PASS Sifresi
alias adminpass return deneme1

;Radyo Kanali ISMI
alias radyochan return #Radyo

;Muaf nickler
alias nickler return Radyo


on *:sockopen:radyo*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/admin.cgi?pass=,$adminpass,&mode=viewxml) HTTP/1.1
  %komut Host: $+($radyoip,:,$radyoport)
  %komut User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr,tr;q=0.5
  %komut Accept-Encoding: gzip,deflate
  %komut Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  %komut Connection: Keep-Alive: 300
  %komut $crlf
}
on *:sockread:radyo*:var %radyo | sockread %radyo | $iif($pos(%radyo,<HOSTNAME>,0) !== 0,belirt $pos(%radyo,<HOSTNAME>,0) %radyo)
alias belirt { var %s 1 | while (%s <= $1) { var %ips $gettok($gettok($mid($2-,$pos($2-,<HOSTNAME>,%s),32),2,62),1,60)) | set -e %voice [ $+ [ %ips ] ] ok | who +I $+(*,%ips,*) | inc %s } }
alias bilgi var %radn $rand(0,9999) |  unset %voice* | sockopen $+(radyo,%radn) $radyoip $radyoport
alias voicebelirt { var %/ 1 | while (%/ <= $nick($radyochan,0,v)) { who +I $nick($radyochan,$v1,v) | inc %/  } }
raw 352:*: {
  if ($istok($nickler,$6,32)) { halt }
  if ($6 isvoice $radyochan) && (%voice [ $+ [ $4 ] ] !== ok) { mode $radyochan -v $6 | .notice $6 Radyo yayinimizi dinlediginiz icin tesekkurler , Keyifli Sohbetler. }
  if ($6 !isvoice $radyochan) { mode $radyochan +v $6 |  .notice $6 Radyomuzu dinlediginiz icin tesekkur ederiz. Keyifli Dinlemeler.. }
}
alias baslat .timerbilgi 0 10 bilgi $(|) .timer 1 5 voicebelirt
alias durdur .timerbilgi off

PHP- Kodu:

NOTSadece op olanlar icin gecerlidir mIRC Version6.35'de ayarlanmistir. 


PLuToN 09 Nisan 2020 23:22

Cevap: Radyo dinleyen voice-devoice
 
eline sağlık patron...

Sadullah 09 Nisan 2020 23:52

Cevap: Radyo dinleyen voice-devoice
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] eline saglik abi :))

AutomatiC 16 Nisan 2020 13:35

Cevap: Radyo dinleyen voice-devoice
 
Alıntı:

Che Nickli Üyeden Alıntı (Mesaj 1042282558)
Kod:

;Radyonun IP Adresi
alias radyoip return 51.178.240.130

;Radyonun PORT Adresi
alias radyoport return 8036

;Radyonun Admin PASS Sifresi
alias adminpass return deneme1

;Radyo Kanali ISMI
alias radyochan return #Radyo

;Muaf nickler
alias nickler return Radyo


on *:sockopen:radyo*: {
  var %komut sockwrite -nt $sockname
  %komut GET $+(/admin.cgi?pass=,$adminpass,&mode=viewxml) HTTP/1.1
  %komut Host: $+($radyoip,:,$radyoport)
  %komut User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %komut Accept-Language: tr,tr;q=0.5
  %komut Accept-Encoding: gzip,deflate
  %komut Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  %komut Connection: Keep-Alive: 300
  %komut $crlf
}
on *:sockread:radyo*:var %radyo | sockread %radyo | $iif($pos(%radyo,<HOSTNAME>,0) !== 0,belirt $pos(%radyo,<HOSTNAME>,0) %radyo)
alias belirt { var %s 1 | while (%s <= $1) { var %ips $gettok($gettok($mid($2-,$pos($2-,<HOSTNAME>,%s),32),2,62),1,60)) | set -e %voice [ $+ [ %ips ] ] ok | who +I $+(*,%ips,*) | inc %s } }
alias bilgi var %radn $rand(0,9999) |  unset %voice* | sockopen $+(radyo,%radn) $radyoip $radyoport
alias voicebelirt { var %/ 1 | while (%/ <= $nick($radyochan,0,v)) { who +I $nick($radyochan,$v1,v) | inc %/  } }
raw 352:*: {
  if ($istok($nickler,$6,32)) { halt }
  if ($6 isvoice $radyochan) && (%voice [ $+ [ $4 ] ] !== ok) { mode $radyochan -v $6 | .notice $6 Radyo yayinimizi dinlediginiz icin tesekkurler , Keyifli Sohbetler. }
  if ($6 !isvoice $radyochan) { mode $radyochan +v $6 |  .notice $6 Radyomuzu dinlediginiz icin tesekkur ederiz. Keyifli Dinlemeler.. }
}
alias baslat .timerbilgi 0 10 bilgi $(|) .timer 1 5 voicebelirt
alias durdur .timerbilgi off

PHP- Kodu:

NOTSadece op olanlar icin gecerlidir mIRC Version6.35'de ayarlanmistir. 


Benım Radyo kanalına adı farklı olmasından mı anlamadım ama kod bende calısmadı..
mıRC 6.35 exe attım ayrıca kodu ekledım ve sıfrelerı gırdım ancak /radyovoice yaptıgımda yanlıs kod demekte yardımcı olabılırmısın rıca etsem

Che 16 Nisan 2020 14:05

Cevap: Radyo dinleyen voice-devoice
 
Alıntı:

AutomatiC Nickli Üyeden Alıntı (Mesaj 1042287950)
Benım Radyo kanalına adı farklı olmasından mı anlamadım ama kod bende calısmadı..
mıRC 6.35 exe attım ayrıca kodu ekledım ve sıfrelerı gırdım ancak /radyovoice yaptıgımda yanlıs kod demekte yardımcı olabılırmısın rıca etsem

Radyo kanalının adi neyse onu yaz dene. Ornek; #Radyo yada #SevdaFm gibi..
/radyovoice yapmana gerek yok radyo kanalında @op olman yeterli.

AutomatiC 16 Nisan 2020 14:34

Cevap: Radyo dinleyen voice-devoice
 
kolay gelsın
Oda da opum ancak oto voıce vermıyor neden olabılır pekı

Sadullah 16 Nisan 2020 19:55

Cevap: Radyo dinleyen voice-devoice
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kolay gelsin hocam op olunca calısmakda
Alıntı:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
resimden gorebilirsin iyi gunler.

AutomatiC 16 Nisan 2020 21:21

Cevap: Radyo dinleyen voice-devoice
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] size ulaşabileceğimi bir yer var mı acaba
dedıgınız gıbı yaptım kanalda opum ancak halen oto voıce vermemektedır.


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

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