radio-bot - Serverfreakz

on *:start:{
  if (!$hget(sound)) { hmake sound }
  if ($exists($qt(sound.hsh))) { hload sound $qt(sound.hsh) }
}
on *:text:*:#:{
  if ($nick isop $chan) {
    if ($1 == !radio) && ($2 == help) { msg $chan 9radio-bot befehle: | msg $chan 9!radio on 10startet das posten | msg $chan 9!radio off 10stoppt das posten | msg $chan 10radio channel setzen mit 09!radio chan #derraum }
    if ($1 == !radio) && ($2 == on) && ($hget(sound,chan)) { radiostart | msg $chan 10Das Radio ist nun an... 14Das Radio mit dem galaktischem Sound, wünscht viel Spaß beim Zuhören | hadd -m sound anaus 1 }
    if ($1 == !radio) && ($2 == on) && (!$hget(sound,chan)) { msg $chan 10bitte erst mit 09!radio chan #derraum 10den channel setzen }
    if ($1 == !radio) && ($2 == off) { .timerradio off |  msg $chan 10Das Radio ist nun aus... 14Das Radio mit dem galaktischem Sound, sagt vielen Dank fürs Zuhören | hadd -m sound anaus 0 }
    if ($1 == !radio) && ($2 == chan) { hadd -m sound chan $3 | msg $chan 10Im Channel $+(,09,$3,10) poste ich nun die Mucke | hsave -o sound "sound.hsh" }
  }
}

alias radiostart { .timerradio 0 10 radio }
alias radio { .remove $shortfn($mircdirradio.txt) | 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>Current Song:</td><td class="streamdata">(.+?)</td></tr>/)) {
    hadd -m sound newsong $remove($regml(1),$chr(32))
    if ($hget(sound,newsong) != $hget(sound,oldsong)) {
      msg $hget(sound,chan) 12[Sound-of-Galaxy Chat]14: 10https://sound-of-galaxy.eu/chat/
      msg $hget(sound,chan) $+([Sound-of-Galaxy],$chr(32),,04,song,,,:,,$chr(32),,04,$replace($regml(1),&amp;,&),,,*,,,14,$chr(32),https://,$+($sock($sockname).addr,$chr(58),$sock($sockname).port),$sock($sockname).mark,radio.mp3,$chr(32),,,*)
      hadd -m sound oldsong $hget(sound,newsong)
      hsave -o sound "sound.hsh"
    }
  }
}