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.*
    }
  }
}