radio-bot - Serverfreakz

on *:connect:{ radiostart }

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 }
    if ($1 == !radio) && ($2 == on) { radiostart $chan | msg $chan 9Das Radio ist nun an... }
    if ($1 == !radio) && ($2 == off) { .timerradio off |  msg $chan 4Das Radio ist nun aus... }
  }
}

alias radiostart { set %r.chan $1 | .timerradio 0 10 radio }
alias radio { .remove $shortfn($mircdirradio.txt) | sockclose radio | sockopen -e radio azura.fun-life-radio.de 9443 | sockmark radio /radio/8020/index.html?sid=1 }

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: {
  $event &radio
  bwrite $qt($mircdirradio.txt) -1 -1 &radio
}


on *:sockclose:radio: {
  var %i = $lines($shortfn($mircdirradio.txt))
  while (%i) {
    if ($regex(song,$read($shortfn($mircdirradio.txt),%i),/<td>Playing Now: </td><td><b><a [\S].*>([\S].*)</a></b></td></tr>/)) {
      if ($remove($regml(song,1),$chr(32)) != %r.song) {
        set %r.song $remove($regml(song,1),$chr(32))
        msg %r.chan $+(09[Sound-of-Galaxy Radio],$chr(32),,,04,song,,15,:,,$chr(32),,04,$regml(song,1),$chr(32),,15,*,,,14,https://,$+($sock($sockname).addr,$chr(58),$sock($sockname).port),/radio/8020/sound-of-galaxy,,15,*)
        msg %r.chan $+(7[S-O-G Chat],$chr(32),,15,*,,Klick mich,,15,: 7https://sound-of-galaxy.eu/chat/?Chat#,,15,*)
      }
    }
    dec %i 1
  }
}