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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - radyo sorunu acil (https://www.ircforumlari.net/mirc-scripting-sorunlari/336687-radyo-sorunu-acil.html)

radyo sorunu acil

bu nomercy !durum yazdınmı cıkıyor bunu script eklemek ıcın bana yardımcı olurmusunuz...bunu ornek verdım degişip reklam olmasın dıye
!durum
<Bot-RADYO> -
<Bot-RADYO> Radyo DJlermizden azraaa şu anda online
<Bot-RADYO> -
<Bot-RADYO> Radyo Bot Çalan Parça: Ozan - Bosu Bosuna
<Bot-RADYO> Radyomuzun Dinlenme Oranı: ( 1 ) kisi dinliyor (rekor: 54)
<Bot-RADYO> -
<Bot-RADYO> Radyomuzu Winamp'tan dinlemek icin | http:yok/listen.pls
<Bot-RADYO> -

Ben su sekıl ıstıyorum eger yardımcı olursanız sevınırım kodlarını ayarlıyamadım..sımdıden tsk ederım

!durum
<azraaa-> -
<azraaa> Radyo DJlermizden azraaa şu anda online
<azraaa> -
<azraaa> Radyo Bot Çalan Parça: Ozan - Bosu Bosuna
<azraaa> Radyomuzun Dinlenme Oranı: ( 1 ) kisi dinliyor (rekor: 54)
<azraaa> -
<azraaa> Radyomuzu Winamp'tan dinlemek icin | http:yok/listen.pls
<azraaa> -

Cevap: radyo sorunu acil

PHP- Kodu:

   alias shoutcast.channel {
  return #Radyo
}

alias shoutcast.host {
  return $qradyoip
}

alias shoutcast.port {
  return $qradyoport
}

alias shoutcast.adminpass {
  return $qradyopass
}

alias shoutcast.socket {
  return shoutcast
}

alias getxmltext {
  var %tag.open = $+(<, $1, >)
  var %tag.close = $+(</, $1, >)
  if $pos($2-,%tag.open) {
    var %start = $ifmatch + $len(%tag.open)
    var %length  = $calc($pos($2-, %tag.close) - %start)
    return $mid($2-, %start, %length)
  }
  return $null
}



alias radyodurum {
  if %radioo {
    unset %mesajver
    if !%mesajver {
      .timerradyomsg* off
      sw radyobot topic $shoutcast.channel : 11,1 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
      sw radyobot privmsg $shoutcast.channel :-
      sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
      sw radyobot privmsg $shoutcast.channel :-
    }
  }
  if !%radioo {
    .timerradyomsg* off
    sw radyobot topic $shoutcast.channel :4,4 0,1  Yayinda su an »»» 4,1 $+ $turkceh(%genre) $+  0,1««« bulunmakta. Yayin turu: 4,1 $+ $turkceh(%servertitle) $+ 0,1 Calan parca: « 4,1 $+ $turkceh(%songtitle) $+ 0 » 4,4 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo DJlermizden 4 $+ $fants($turkceh(%genre)) 0şu anda online 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyo 4 $qreklam 0Çalan Parça:4 $turkceh(%songtitle) 
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzun Dinlenme Oranı: 4,1 $+ ( $calc(0+ %currentlisteners ) ) 0kisi dinliyor 4(rekor: %peaklisteners $+ ) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Radyomuzu Winamp'tan dinlemek icin 4,1|0 4,1http:// $+ $+($qradyoip,:,$qradyoport,/listen.pls) 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 Turkiye'nin en kaliteli sohbet platformu 4,1 $qreklam 0,1forum sitesindede sizlerle bulusuyor. Hemen bize katilin 0,4 >> 1,1 4,1http://IRCDForumlari.net/ 
    sw radyobot privmsg $shoutcast.channel :-
    .timerradyomsg1 1 $r(60,85) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
    .timerradyomsg2 1 $r(100,125) sw radyobot privmsg $shoutcast.channel :2 *~~ 0,4 D 0,2 J  $ayrac($djnick($turkceh(%genre))) > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
    set %mesajver on
  }
}

alias radyodj {
  if %radioo {
    sw radyobot privmsg $shoutcast.channel :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  }
  if !%radioo {
    sw radyobot privmsg $shoutcast.channel :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias qradyodj {
  if %radioo {
    sw radyobot privmsg #Dj :0,2 Yayın boşta olduğundan radyo şu anda deaktif durumdadır. 
  }
  if !%radioo {
    sw radyobot privmsg #Dj :4,4 0,1 $fants($turkceh(%genre)) 4,1şu anda online 4,1 Çalan Parça:0,1 $turkceh(%songtitle) 4,1 Dinlenme Oranı:0,1 ( $calc(0+ %currentlisteners ) ) 4,1kisi dinliyor (rekor:0,1 %peaklisteners $+ 4,1)
  }
}

alias radyoerr {
  if %radyohata {
    sw radyobot topic $shoutcast.channel : 11,1 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 
    sw radyobot privmsg $shoutcast.channel :-
    sw radyobot privmsg $shoutcast.channel :0,4 **  0,2 Radyo sistem tarafından kapalı olduğundan deaktif durumdadır. 
    sw radyobot privmsg $shoutcast.channel :-
  }
}

alias shout {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $shoutcast.socket $shoutcast.host $shoutcast.port
}

alias fants {
  return $replace($1-,b,ß,a,á,i,í,o,ó,l,L,s,$,I,Î,e,é,?,¿,t,&#8224;,y,¥,c,¢,o,Ó,n,ñ)
}

alias ayrac {
  return $replace($1-,|,l)
}

alias tc {
  if . isin $calc($1- / 2) {
    return tek
  }
  else {
    return cift
  }
}

alias djnick {
  var %n 1 , %ret
  while %n <= $len($1-) {
    if $tc(%n) == tek {
      %ret = $+(%ret,4 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    else {
      %ret = $+(%ret,0 $+ $chr(44) $+ 1 $mid($1-,%n,1) )
    }
    inc %n
  }
  return %ret 11,1
}

alias randombilgi {
  if $r(1,2) == 1 {
    return > : 4Dinlemek icin > 12http:// $+ $qradyoip $+ : $+ $qradyoport $+ /listen.pls
  }
  else {
    return > : 4Istekleriniz icin 12!istek istediginiz sarki ve mesajiniz4  yaziniz.
  }
}

nomercy'nin radyo kodları bunlar nasıl yapılır pek bilgim yok yalnız dedigin :)

Cevap: radyo sorunu acil

cok saol gıne yazmısın allah razı olsun acaba scriptte calısırmı bu durum

Cevap: radyo sorunu acil

İstemiş Oldugunuz Kod.

Kod:



  alias radyom {

  sockclose  radyo*Df

  sockclose radyo*zyn

  if (: !isin $1) && (!$2) {  echo -a 1453 | return }

  if ($1 == $null) { echo -a 38.99.21.22 |  return }

  if (: isin $1) {

    tokenize 58 $remove($1,http://,/)

     sockopen $+(radyom,$r(1,9999),Df) $1 $2

    set %sitem $1 $2

  }

   else { sockopen $+(radyom,$r(1,999),!) $remove($1-,http://,/) | set  %sitem $remove($1-,http://,/) }

}

on *:SockOpen:radyo*Df:{

  if  ($sockerr) { msg #mIRCoder 4,0 Radyo Offline.. | return }

   sockwrite -tn $sockname GET / HTTP/1.1

  sockwrite -tn $sockname  $crlf

}

on *:Sockread:radyo*Df:{

  sockread %radyom

  if  (icy-name isin %radyom) { set %radyom2 %radyom2 ¿  $remove($gettok(%radyom,2,58),|) }

  if (icy-genre isin %radyom) {  set %radyom2 %radyom2 ¿ $remove($gettok(%radyom,2,58),|) }

  if  (icy-url isin %radyom) { set %radyom2 %radyom2 ¿  $remove(%radyom,icy-url) | sockclose radyom | radyom2 }

}

on  *:Sockclose:radyo*Df:radyom2

alias radyom2 { sockopen  $+(radyom,$r(1,9999),zyn) %sitem | unset %sitem }

on  *:SockOpen:radyo*zyn:{

  if ($sockerr) { msg #mIRCoder 4,0 Radyo  Offline.. }

  sockwrite -tn $sockname GET /7.html HTTP/1.0

   sockwrite -tn $sockname User-Agent: Mozilla

  sockwrite -tn $sockname

}

on  *:Sockread:radyo*zyn:{

  if ($sockerr) { msg #mIRCoder 0,4 Yayın  Offline | return }

  var %zm

  sockread %zm

}

on  *:SockClose:radyo*zyn:{

  sockread -f %radyom

  var %zm  $remove(%radyom,<HTML><meta http-equiv="Pragma"  content="no-cache"></head><body>,</body></html>)

   var %im $numtok(%zm,44)

  while %im {

    set %radyom2 %radyom2 ¿  $remove($gettok(%zm,%im,44),|)

    dec %im

  }

  durumm

   unset %radyom2

  unset %radyom

}

alias -l durumm {

   sockclose radyo*Df

  sockclose radyo*zyn

  tokenize 191 %radyom2

   ; $1 = Dj in Yazdığı İsim

  ; $2 = Genre

  ; $3 = URL  irc.atvtr.net:/8030

  ; $4 = ÇaLan Parça

  ; $5 = Şarkı Kalitesi

   ; $6 = Dinleyici Sayısı

  ; $7 = Max. Dinleyici Sayısı

  ; $8  & $9 = DinLeyici Rekoru

  msg #turkiye 1 Yayında Bulunan DJ :  4[  $1 ] 

  msg #turkiye 

  msg #turkiye 1 Şuan Radyomuzu     :  4[  $6 ] 1Kişi Dinlemekte.

  msg #turkiye 

  msg #turkiye 1  Şuanda Radyomuzda Çalan Şarkı 4[ $4 ] 1

  msg #turkiye 

  msg  #turkiye 1 Kesintisiz Yayınla Sizlerleyiz.Dinlemek İçin  7http://irc.atvtr.net:8030/listen.pls

  set %dj $1

  set %ds $6

   set %çp $4
 

}

#durum on

on *:text:!durum:#turkiye:.radyom  irc.atvtr.net:8030

#durum end

Kodlama : Difüzyon
Düzenleme : Bana Aittir.

Kendinize Göre düzenlemesini yaparsiniz. mIRC'ınızın Remotesine eklediginiz vakit kanal'da !durum yazarsaniz iştemis oldugunuz gibi cıkacaktir.
DipNot: Tavsiyem Araştırma yapmadan Konu açmayin.

Cevap: radyo sorunu acil

cok tsk ederım arkadasım saolsın

Cevap: radyo sorunu acil

Tesekkur Buttonuna Basman Yeterlidir Benim İcin Mesaj Yazmana gerek yok :)

Cevap: radyo sorunu acil

dedıgını yaptım olmadı yha calısmadı

Cevap: radyo sorunu acil

peki bu kod NoMercy gibi belirli aralıklarla radyo kanalına radyonun durumunu göstermesi nasıl ayarlanabilir.

Cevap: radyo sorunu acil

timer ile zamanlamayı ayarlayabilirsin sanırım..

Cevap: radyo sorunu acil

yok yukarıdaki kodlara göre nasıl ayarlanabilir onu demek istemiştim.