FireFM

;   /*************************/
;  /*** ShoutCast Spammer ***/
; /*************************/
; Snippet By MakiMaki
; Coded for Phreik.NET & FireFM
; Just Edit your account or remove the sockbot part and set the spammer to your msg alias.
; YOU DO NOT NEED TO BE/HAVE: DLLS, WINAMP, MEDIA PLAYER, OR BE TUNED IN
; A big Thankyou && Shout Out to:
; pania aka serapHim - My Angel I love you
; Paul aka extremity - Bro you rock thanks for every thing.
; Leah aka Granny - One in a million type of friend and I was blessed to have ya
; Christian - thanks for the support
; Vipes -Though your music kills me at times, still awesome bro
; Peppa thanks for saving us from Vipes play list:P

;Alias - Edit these to your needs

alias radio {
  if ($1 == START) { sockclose radio | sockopen radio 72.20.32.21 6667 | fire }
  elseif ($1 == CLOSE) { sockclose radio | sockclose firefm }
  elseif ($1 == JOIN || $1 == PART) { rwrite $1 # }
  elseif ($1 == HOP) { rwrite PART $+(#,$crlf,JOIN) # }
}
alias fire { sockclose FireFM | SockOpen firefm www.soundzunlimited.net 80 | .timerFM 1 30 fire }
alias rwrite { sockwrite -n radio $1- }
alias rall {
  var %i $numtok(%radiotok, 32)
  while (%i) {
    if ($1 == Song) { rwrite privmsg $gettok(%radiotok, %i, 32) * Now Playing $remove(%fire,:FireFM </marquee>) - FireFM }
    if ($1 == DJ)  { rwrite privmsg $gettok(%radiotok, %i, 32) Current DJ - (8) DJ $2 (8) Live Stream - Tune in Http://Www.FireFmz.Tk FireFM Where the music is hotter!!! }
    if ($1 == Rjoin) {  rwrite JOIN $gettok(%radiotok, %i, 32) }
    dec %i
  }
}

;Sockets - ONLY EDIT IF YOU KNOW WHAT YOUR DOING!!!

Sockets Open......
on *:sockopen:firefm:{
  sockwrite -nt $sockname GET /makimaki/data.php HTTP/1.1
  sockwrite $sockname Host: www.soundzunlimited.net $+ $crlf $+ $crlf
}
on *:sockopen:radio:{
  rwrite USER FireFM * * $+(:,FLASH3)
  rwrite account %radiobot
  rall Rjoin
}
;Sock Reads.....
on *:sockread:firefm:{
  var %a | sockread %a
  tokenize 32 %a
  if (DJ isin $1-) {
    if (%DJ != $3) { set %DJ $3 | rall DJ $3 }
    elseif (%fire != $5-)  { set %fire $5- | rall song }
  }
}
on *:sockread:radio:{
  if ($sockerr) { return }
  sockread %sd | if (!%sd) { return } | tokenize 32 %sd
  if ($1 == PING) { sockwrite -tn radio PONG $2- }
}
on *:sockclose:radio:{ .timerFM off | radio start }

;Menu - Add edit to your liking

menu Channel {
  -
  Radio Spammer
  .$style($iif($istok(%radiotok, #, 32),1)) Spam Radio in # : set %radiotok $iif($istok(%radiotok, #, 32), $remtok(%radiotok, #, 32), $addtok(%radiotok, #, 32))
  .-
  .Set Account : set %radiobot $$?="Enter Account Cookie:"
  .-
  .Connect/Reset Bot: radio start
  .Join #: radio join
  .Part #: radio part
  .Close Bot: radio close | .timerFM off
  -
}