Advertisement
makimaki

Untitled

Oct 7th, 2010
382
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
WHOIS 2.74 KB | None | 0 0
  1. ;   /*************************/
  2. ;  /*** ShoutCast Spammer ***/
  3. ; /*************************/
  4. ; Snippet By MakiMaki
  5. ; Coded for Phreik.NET & FireFM
  6. ; Just Edit your account or remove the sockbot part and set the spammer to your msg alias.
  7. ; YOU DO NOT NEED: DLLS, WINAMP, MEDIA PLAYER, OR BE TUNED IN
  8. ; A big Thankyou && Shout Out to:
  9. ; pania aka serapHim - My Angel I love you
  10. ; Paul aka extremity - Bro you rock thanks for every thing.
  11. ; Leah aka Granny - One in a million type of friend and I was blessed to have ya
  12. ; Christian - thanks for the support
  13. ; Vipes -Though your music kills me at times, still awesome bro
  14. ; Peppa thanks for saving us from Vipes play list:P
  15.  
  16. ;Alias - Edit these to your needs
  17.  
  18. alias radio {
  19.   if ($1 == START) { sockclose radio | sockopen radio 72.20.32.21 6667 | fire }
  20.   elseif ($1 == CLOSE) { sockclose radio | sockclose firefm }
  21.   elseif ($1 == JOIN || $1 == PART) { rwrite $1 # }
  22.   elseif ($1 == HOP) { rwrite PART $+(#,$crlf,JOIN) # }
  23. }
  24. alias fire { sockclose FireFM | SockOpen firefm www.soundzunlimited.net 80 | .timerFM 1 30 fire }
  25. alias rwrite { sockwrite -n radio $1- }
  26. alias rall {
  27.   var %i $numtok(%radiotok, 32)
  28.   while (%i) {
  29.     if ($1 == Song) { rwrite privmsg $gettok(%radiotok, %i, 32) * Now Playing $remove(%fire,:FireFM </marquee>) - FireFM }
  30.     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!!! }
  31.     if ($1 == Rjoin) {  rwrite JOIN $gettok(%radiotok, %i, 32) }
  32.     dec %i
  33.   }
  34. }
  35.  
  36. ;Sockets - ONLY EDIT IF YOU KNOW WHAT YOUR DOING!!!
  37.  
  38. ;Sockets Open......
  39. on *:sockopen:firefm:{
  40.   sockwrite -nt $sockname GET /makimaki/data.php HTTP/1.1
  41.   sockwrite $sockname Host: www.soundzunlimited.net $+ $crlf $+ $crlf
  42. }
  43. on *:sockopen:radio:{
  44.   rwrite USER FireFM * * $+(:,FLASH3)
  45.   rwrite account %radiobot
  46.   rall Rjoin
  47. }
  48. ;Sock Reads.....
  49. on *:sockread:firefm:{
  50.   var %a | sockread %a
  51.   tokenize 32 %a
  52.   if (DJ isin $1-) {
  53.     if (%DJ != $3) { set %DJ $3 | rall DJ $3 }
  54.     elseif (%fire != $5-)  { set %fire $5- | rall song }
  55.   }
  56. }
  57. on *:sockread:radio:{
  58.   if ($sockerr) { return }
  59.   sockread %sd | if (!%sd) { return } | tokenize 32 %sd
  60.   if ($1 == PING) { sockwrite -tn radio PONG $2- }
  61. }
  62. on *:sockclose:radio:{ .timerFM off | radio start }
  63.  
  64. ;Menu - Add edit to your liking
  65.  
  66. menu Channel {
  67.   -
  68.   Radio Spammer
  69.   .$style($iif($istok(%radiotok, #, 32),1)) Spam Radio in # : set %radiotok $iif($istok(%radiotok, #, 32), $remtok(%radiotok, #, 32), $addtok(%radiotok, #, 32))
  70.   .-
  71.   .Set Account : set %radiobot $$?="Enter Account Cookie:"
  72.   .-
  73.   .Connect/Reset Bot: radio start
  74.   .Join #: radio join
  75.   .Part #: radio part
  76.   .Close Bot: radio close | .timerFM off
  77.   -
  78. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement