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:
NOT: Sadece op olanlar icin gecerlidir mIRC Version: 6.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:
NOT: Sadece op olanlar icin gecerlidir mIRC Version: 6.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:04.

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