SOG-Radio mit Channelauswahl Ver. 1.01 - Serverfreakz

##########################################################
##
## Radio-script für azura.fun-life-radio.de v 1.0.1
##
## Lasst es wie es ist und gut ist
##
## mfg 2023 ©ThomasDieKleineLok
##
###########################################################
on *:start:{
  if (!$hget(sound)) { hmake sound }
  if ($exists($qt(sound.hsh))) { hload sound $qt(sound.hsh) }
}
on *:connect:{ if (($hget(sound,chan)) && ($hget(sound,anaus) == 1)) { radiostart } }
on *:text:*:#ZwergenIRC-Radio:{
  if ($nick isop $chan) {
    if ($1 == !radio) && ($2 == help) { msg $chan 9radio-bot befehle: | msg $chan 9!radio an 10startet das posten | msg $chan 9!radio aus 10stoppt das posten | msg $chan 10radio channel setzen mit 09!radio kanal #derraum | msg $chan 9!stats 10 siehst du die Radio Statistik  }
    if ($1 == !radio) && ($2 == an) && ($hget(sound,chan)) { radiostart | msg $chan 10radio ist nun an... | hadd -m sound anaus 1 }
    if ($1 == !radio) && ($2 == an) && (!$hget(sound,chan)) { msg $chan 10bitte erst mit 09!radio chan #derraum 10den channel setzen }
    if ($1 == !radio) && ($2 == aus) { .timerradio off |  msg $chan 10radio ist nun aus... | hadd -m sound anaus 0 }
    if ($1 == !radio) && ($2 == kanal) { hadd -m sound chan $3 | msg $chan 10Im Channel $+(,09,$3,10) poste ich nun die Mucke | hsave -o sound "sound.hsh" }
    if ($1 == !radio) && ($2 == stats) {
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,song,,15,:,,$chr(32),,04,$replace($hget(sound,song),$chr(245),$chr(32),&amp;,&))
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,Spitzenzuhörer,,15,:,,$chr(32),,14,$hget(sound,peak),$chr(32),,04,Aktuelle Zuhörer,,15,:,,$chr(32),,14,$hget(sound,listeners))
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,Bitrate,,15,:,,$chr(32),,14,$hget(sound,bitrate),$chr(32),kB,$chr(47),s)
    }
  }
}
alias radiostart { .timerradio 0 10 radio }
alias radio { sockclose radio | sockopen -e radio azura.fun-life-radio.de 9443 | sockmark radio /listen/sound-of-galaxy/ }

on *:SOCKOPEN:radio: {
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname
}

on *:SOCKREAD:radio: {
  var %sound_tp | sockread %sound_tp
  if ($regex(%sound_tp,/<tr><td>Bitrate:</td><td class="streamdata">(.+?)</td></tr><tr><td>Current Listeners:</td><td class="streamdata">(.+?)</td></tr><tr><td>Peak Listeners:</td><td class="streamdata">(.+?)</td></tr>.+?<tr><td>Current Song:</td><td class="streamdata">(.+?)</td></tr>/)) {
    if ($hget(sound,song) != $replace($regml(4),$chr(32),$chr(245))) {
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,song,,15,:,,$chr(32),,04,$replace($regml(4),&amp;,&),$chr(32),,15,*,,,14,$chr(32),https://,$+($sock($sockname).addr,$chr(58),$sock($sockname).port),$sock($sockname).mark,radio.mp3,$chr(32),,15,* 3[Chat] Klick hier: 14* 10 https://sound-of-galaxy.eu/chat/ )
      hadd -m sound song $replace($regml(4),$chr(32),$chr(245))
    }
    if (($hget(sound,listeners) != $regml(2)) || ($hget(sound,peak) != $regml(3))) {
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,Spitzenzuhörer,,15,:,,$chr(32),,14,$regml(3),$chr(32),,04,Aktuelle Zuhörer,,15,:,,$chr(32),,14,$regml(2))
      hadd -m sound listeners $regml(2) | hadd -m sound peak $regml(3)
    }
    if ($hget(sound,bitrate) != $regml(1)) {
      msg $hget(sound,chan) $+(09[R],$chr(32),,04,Bitrate gewechselt zu,,15,:,,$chr(32),,14,$regml(1),$chr(32),kB,$chr(47),s)
      hadd -m sound bitrate $regml(1)
    }
    hsave -o sound "sound.hsh"
  }
}