IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   Radyo kodu (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/214994-radyo-kodu.html)

DaDaS 06 Nisan 2025 20:38
Radyo kodu
 
Kod:
;============[ RADYO AYARLARI ]============
alias radyo-kanali { return #radyo }
alias radyo-link { return http://185.255.92.118:8042/stream }
alias radyo-ip { return 185.255.92.118 }
alias radyo-port { return 8042 }
alias radyo-status-path { return /status2.xsl }

;============[ YETKİLİ KONTROLÜ ]============
alias yetkili-mi {
  if ($nick isop $radyo-kanali) return $true
  else return $false
}

;============[ KANALA GİRİNCE OTOMATİK RADYO ]============
on *:join:#radyo:{
  if ($nick == $me) {
    echo -a [IRC-FM] #radyo kanalına girildi. Yayın başlatılıyor...
    radyo-baslat
    radyo-takip-baslat
  }
}

;============[ KOMUT SİSTEMİ (YETKİLİLERE ÖZEL) ]============
on *:text:!radyoac:#radyo:{
  if ($yetkili-mi) {
    radyo-baslat
    radyo-takip-baslat
  }
}

on *:text:!radyokapat:#radyo:{
  if ($yetkili-mi) {
    radyo-durdur
    radyo-takip-durdur
  }
}

on *:text:!radyobilgi:#radyo:{
  if ($yetkili-mi) {
    radyo-bilgi-gonder
  }
}

;============[ RADYO BAŞLAT / DURDUR ]============
alias radyo-baslat {
  run $radyo-link
  msg $radyo-kanali 4[IRC-FM] 12Yayın Başladı!
}

alias radyo-durdur {
  run taskkill /im vlc.exe /f
  run taskkill /im wmplayer.exe /f
  msg $radyo-kanali 4[IRC-FM] 4Yayın Durduruldu!
}

;============[ OTOMATİK TAKİP BAŞLAT / DURDUR ]============
alias radyo-takip-baslat {
  .timerRadyoTakip 0 180 radyo-bilgi-gonder
  echo -a [IRC-FM] Radyo bilgi takibi başlatıldı.
}

alias radyo-takip-durdur {
  .timerRadyoTakip off
  echo -a [IRC-FM] Radyo bilgi takibi durduruldu.
}

;============[ BİLGİ ÇEKME & GÖNDERME ]============
alias radyo-bilgi-gonder {
  sockclose radyoBilgi
  sockopen radyoBilgi $radyo-ip $radyo-port
}

on *:sockopen:radyoBilgi:{
  sockwrite -n $sockname GET $radyo-status-path HTTP/1.1
  sockwrite -n $sockname Host: $radyo-ip
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}

on *:sockread:radyoBilgi:{
  var %read
  sockread %read

  if (%read != $null) {
    if (*Current Song:* iswm %read) {
      set %radyo.sarki $remove($strip($gettok(%read,2,58)), </td></tr>)
    }
    if (*Server Name:* iswm %read) {
      set %radyo.dj $remove($strip($gettok(%read,2,58)), </td></tr>)
    }
    if (*Current Listeners:* iswm %read) {
      set %radyo.dinleyen $remove($strip($gettok(%read,2,58)), </td></tr>)
    }

    if (%radyo.sarki != $null && %radyo.dj != $null && %radyo.dinleyen != $null) {
      msg $radyo-kanali 4[IRC-FM] 12DJ: %radyo.dj  | 8Şarkı: %radyo.sarki  | 7Dinleyen: %radyo.dinleyen
      unset %radyo.*
    }
  }
}

SonsuzLuq 06 Nisan 2025 20:48
Emegine Saglik Eski bir userinimm cok eski:)))

DaDaS 06 Nisan 2025 20:50
Kod:
;============[ RADYO AYARLARI ]============
alias radyo-kanali { return #radyo }
alias radyo-link { return [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] }
alias radyo-json { return [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] }

;============[ YETKİLİ KONTROLÜ ]============
alias yetkili-mi {
  if ($nick isop $radyo-kanali) return $true
  else return $false
}

;============[ KANALA GİRİNCE OTOMATİK RADYO ]============
on *:join:#radyo:{
  if ($nick == $me) {
    echo -a [IRC-FM] #radyo kanalına girildi. Yayın başlatılıyor...
    radyo-baslat
    radyo-takip-baslat
  }
}

;============[ KOMUT SİSTEMİ (YETKİLİLERE ÖZEL) ]============
on *:text:!radyoac:#radyo:{
  if ($yetkili-mi) {
    radyo-baslat
    radyo-takip-baslat
  }
}

on *:text:!radyokapat:#radyo:{
  if ($yetkili-mi) {
    radyo-durdur
    radyo-takip-durdur
  }
}

on *:text:!radyobilgi:#radyo:{
  if ($yetkili-mi) {
    radyo-bilgi-gonder
  }
}

;============[ RADYO BAŞLAT / DURDUR ]============
alias radyo-baslat {
  run $radyo-link
  msg $radyo-kanali 4[IRC-FM] 12Yayın Başladı!
}

alias radyo-durdur {
  run taskkill /im vlc.exe /f
  run taskkill /im wmplayer.exe /f
  msg $radyo-kanali 4[IRC-FM] 4Yayın Durduruldu!
}

;============[ OTOMATİK TAKİP BAŞLAT / DURDUR ]============
alias radyo-takip-baslat {
  .timerRadyoTakip 0 180 radyo-bilgi-gonder
  echo -a [IRC-FM] Radyo bilgi takibi başlatıldı.
}

alias radyo-takip-durdur {
  .timerRadyoTakip off
  echo -a [IRC-FM] Radyo bilgi takibi durduruldu.
}

;============[ BİLGİ ÇEKME & GÖNDERME ]============
alias radyo-bilgi-gonder {
  sockclose radyoBilgi
  sockopen radyoBilgi $remove($gettok($radyo-json,2,47),/) 80
}

on *:sockopen:radyoBilgi:{
  sockwrite -n $sockname GET $radyo-json HTTP/1.1
  sockwrite -n $sockname Host: $remove($gettok($radyo-json,2,47),/)
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}

on *:sockread:radyoBilgi:{
  var %json
  sockread %json
  if (%json != $null) {
    if ($regex(%json, /"server_name"\s*:\s*"([^"]+)"/)) {
      set %radyo.dj $regml(1)
    }
    if ($regex(%json, /"title"\s*:\s*"([^"]+)"/)) {
      set %radyo.sarki $regml(1)
    }
    if ($regex(%json, /"listeners"\s*:\s*(\d+)/)) {
      set %radyo.dinleyen $regml(1)
    }
    if (%radyo.dj != $null && %radyo.sarki != $null && %radyo.dinleyen != $null) {
      msg $radyo-kanali 4[IRC-FM] 12DJ: %radyo.dj  | 8Şarkı: %radyo.sarki  | 7Dinleyen: %radyo.dinleyen
      unset %radyo.*
    }
  }
}

DaDaS 06 Nisan 2025 21:05
Kod:
;============[ RADYO AYARLARI ]============
alias radyo-kanali { return #radyo }
alias radyo-link { return [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] }
alias radyo-json { return [Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] }

;============[ YETKİLİ KONTROLÜ ]============
alias yetkili-mi {
  if ($nick isop $radyo-kanali) return $true
  else return $false
}

;============[ KANALA GİRİNCE OTOMATİK RADYO ]============
on *:join:#radyo:{
  if ($nick == $me) {
    echo -a [IRC-FM] #radyo kanalına girildi. Yayın başlatılıyor...
    radyo-baslat
    radyo-takip-baslat
  }
}

;============[ KOMUT SİSTEMİ (YETKİLİLERE ÖZEL) ]============
on *:text:!radyoac:#radyo:{
  if ($yetkili-mi) {
    radyo-baslat
    radyo-takip-baslat
    .timerRadyoBilgiYolla 1 2 radyo-bilgi-gonder
  }
}

on *:text:!radyokapat:#radyo:{
  if ($yetkili-mi) {
    radyo-durdur
    radyo-takip-durdur
  }
}

on *:text:!radyobilgi:#radyo:{
  if ($yetkili-mi) {
    radyo-bilgi-gonder
  }
}

;============[ RADYO BAŞLAT / DURDUR ]============
alias radyo-baslat {
  run $radyo-link
  msg $radyo-kanali 4[IRC-FM] 12Yayın Başladı!
}

alias radyo-durdur {
  run taskkill /im vlc.exe /f
  run taskkill /im wmplayer.exe /f
  msg $radyo-kanali 4[IRC-FM] 4Yayın Durduruldu!
}

;============[ OTOMATİK TAKİP BAŞLAT / DURDUR ]============
alias radyo-takip-baslat {
  .timerRadyoTakip 0 180 radyo-bilgi-gonder
  echo -a [IRC-FM] Radyo bilgi takibi başlatıldı.
}

alias radyo-takip-durdur {
  .timerRadyoTakip off
  echo -a [IRC-FM] Radyo bilgi takibi durduruldu.
}

;============[ BİLGİ ÇEKME & GÖNDERME ]============
alias radyo-bilgi-gonder {
  sockclose radyoBilgi
  sockopen radyoBilgi $remove($gettok($radyo-json,2,47),/) 80
}

on *:sockopen:radyoBilgi:{
  sockwrite -n $sockname GET $radyo-json HTTP/1.1
  sockwrite -n $sockname Host: $remove($gettok($radyo-json,2,47),/)
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}

on *:sockread:radyoBilgi:{
  var %json
  sockread %json
  if (%json != $null) {
    if ($regex(%json, /"server_name"\s*:\s*"([^"]+)"/)) {
      set %radyo.dj $regml(1)
    }
    if ($regex(%json, /"title"\s*:\s*"([^"]+)"/)) {
      set %radyo.sarki $regml(1)
    }
    if ($regex(%json, /"listeners"\s*:\s*(\d+)/)) {
      set %radyo.dinleyen $regml(1)
    }
    if (%radyo.dj != $null && %radyo.sarki != $null && %radyo.dinleyen != $null) {
      msg $radyo-kanali 4[IRC-FM] 12DJ: %radyo.dj  | 8Şarkı: %radyo.sarki  | 7Dinleyen: %radyo.dinleyen
      unset %radyo.*
    }
  }
}

BerduŞ 06 Nisan 2025 21:12
.kickradyo sjsjjs

Chloe 07 Nisan 2025 17:22
Emeğinize sağlık.

Sim 21 Nisan 2025 08:50
paylasim icin tesekkürler

oMeN 28 Nisan 2025 12:52
Emeğine sağlık


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.

Copyright ©2019 - 2025 | IRCRehberi.Net