FireFM

Alias fire { sockclose FireFM | SockOpen firefm www.soundzunlimited.net 80 | .timerFM 1 30 fire }
on 1:SockOpen:firefm:{
  sockwrite -nt $sockname GET /makimaki/data.php HTTP/1.1
  sockwrite $sockname Host: www.soundzunlimited.net $+ $crlf $+ $crlf
}
on 1:SockRead:firefm:{
  var %a | sockread %a
  tokenize 32 %a
  if (DJ isin $1-) && (%fire != $5-)  {
    ;echo -ti2 %base $me : * Now Playing $remove($5-,:FireFM </marquee>)
    rwrite privmsg #afterhours * Now Playing $remove($5-,:FireFM </marquee>) - Tune in Http://Www.FireFmz.Tk FireFM Where the music is hotter!!!
    set %fire $5-
  }
}
alias FireFM {  /me Now Playing $remove(%fire,:FireFM </marquee>) - Tune in Http://Www.FireFmz.Tk FireFM Where the music is hotter!!!  }
alias radio {
  if ($1 == START) { sockclose radio | sockopen radio 72.20.32.21 6667 | fire }
  elseif ($1 == CLOSE) { sockclose radio }
  elseif ($1 == MSG) { rwrite PRIVMSG $2 : $3- }
  elseif ($1 == JOIN || $1 == PART) { rwrite $1 # }
  elseif ($1 == HOP) { rwrite PART $+(#,$crlf,JOIN) # }
}
alias rwrite { sockwrite -n radio $1- }
on *:sockopen:radio:{
  rwrite USER FireFM * * $+(:,FLASH1)
  rwrite account 0000070639 dc4005be1aa1ec2a9ffaac9055fbd5ac PY
  rwrite JOIN #Afterhours
}
on *:sockread:radio:{
  if ($sockerr) { return }
  sockread %sd | if (!%sd) { return } | tokenize 32 %sd
  if ($1 == PING) { sockwrite -tn radio PONG $2- }
}