TG007.net Community Resource Site Snippets

Home » Snippets » Shout Cast Radio Spammer Sock bot

Please Register/Login to enhance your access of our site and services. We support Twitter and Facebook logins. Logging in will reduce the amount of advertisments.

TG007 Snippet

Shout Cast Radio Spammer Sock bot

Category: Phreik

About

Sockbot with a sockread to get the data of the 7.html file of a shoutcast server. Will spam current song, easy to set to show DJ if you wanted, will show stats on command and the last 5 songs played.
Thankyou to
extremity, sera, PoD and err0r.

enjoy :P

edit to your needs.

;_________________________
;(--- RadioBot Socket ---)
;_________________________
 
on *:sockopen:fmbot:{
  rwrite USER BluFm * * $+(:,OCX) 
  rwrite account 
  rall Rjoin
}
 
on *:sockread:fmbot:{
  var %fmbot
  if ($sockerr) { return }
  sockread %fmbot | if (!%fmbot) { return } | tokenize 32 %fmbot
  ;echo 7 -st %fmbot
  if ($1 == PING) { rwrite PONG $2- }
  elseif ($2 == PRIVMSG) {
    if ($4 == :TIME) { halt }
    elseif ($4 == :VERSION) { rwrite NOTICE $mid($gettok($1,1,33),2-) : =[BluFm Radio Spammer]= Version 1.4 - Created by MakiMaki & seraphim  | halt }
    elseif ($4 == :FINGER) { halt }
    elseif (!listen isin $4) { botmsg $3 ► Tune in to Phreik's Official Radio. Http://www.blufm.net (Winamp link: http://stream.blufm.net:8000/listen.pls ) Or you can tune in by clicking the BluFM button above the chat window.  }
    ; elseif (!DJ isin $4) { botmsg $3 ► Current DJ (8) DJ %DJ (8) }
    elseif (!playing isin $4) { botmsg $3 ► Currently Playing %playing }
    elseif (!last isin $4) { botmsg $3 ►Last 5 songs played %lastplayed }
    elseif (!stats isin $4) { botmsg $3 ► %Stats }
  }
  elseif ($2 == JOIN) {
    rwrite PRIVMSG $mid($gettok($1,1,33),2-): Welcome to the room $mid($gettok($1,1,33),2-) $+ , This room supports BluFM, Tune in to Phreik's Official Radio. Http://www.blufm.net ( Winamp link: http://stream.blufm.net:8000/listen.pls ) Or you can tune in by clicking the BluFM button above the chat window. 
} }
 
on *:sockclose:fmbot:{ .timerFM off | echo 4 -ast * BluFm Bot Socket Closed | blufmbot }
 
;_____________________
;(--- Data Socket ---)
;_____________________
 
on *:sockopen:data:{
  sockwrite -n $sockname GET /7.html HTTP/1.0
  sockwrite -n $sockname User-Agent: BluFM mIRC (Mozilla  Compatible)
  sockwrite -n $sockname Host: stream.blufm.net:8000
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname $crlf
 
}
 
on *:sockread:data:{
  sockread -fn &bin 
  var %d $remove($bvar(&bin,1,150).text,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body></html,>)
  if ($gettok(%d,7-,44)) && ($gettok(%d,7-,44) != %playing) {
    set %lastplayed $addtok(%playing $chr(32),$chr(32) $gettok(%lastplayed,1-4,35),35)
    set %playing $gettok(%d,7-,44)
    rall Song %playing
  }
  set %Stats Stream is up at $gettok(%d,6,44) kbps with $gettok(%d,1,44) of $gettok(%d,4,44) listeners ( $+ $gettok(%d,5,44) unique), Max tuned in at once $gettok(%d,3,44)
 
  halt
}
 
;____________________
;(--- CookieSock ---)
;____________________
 
on *:SOCKOPEN:fmcookie:{ sockwrite -n $sockname $+(GET /noht/cookiegrabber.php?u=,$gettok(%radio.cookie,1,32),&p=,$gettok(%radio.cookie,2,32) HTTP/1.1,$crlf,Accept: */*,$crlf,Host: www.phreik.net,$crlf,Connection: close,$crlf,$crlf) }
 
on *:SOCKREAD:fmcookie:{ 
  if ($sockerr > 0) return | var %sc
  sockread %sc | if (!%sc) return | tokenize 32 %sc  
  if ($2 == VALID:) { echo 9 -s * - Login successful (Account Cookie Stored [ $4- ]) - | set %radio.cookie $4- }
  elseif ($2 == ERR:) { echo 4 -s  - %radio.cookie is a invalid username or password, restart. - | unset %radio.cookie }
}
 
;___________________
;(----- Alias -----)
;___________________
 
alias rwrite sockwrite -n fmbot $$1-
 
alias blufm sockclose data | sockopen data stream.blufm.net 8000 | .timerfm 0 20 blufm 
 
alias botmsg rwrite privmsg $1 $+($chr(1), S, $chr(32), $chr(3), $chr(3), Calibri,;0) $2- $chr(1)
 
alias fmbotclose sockclose fmbot | .timerfm off
 
alias rall {
  var %i $numtok(%radiotok, 32)
  while (%i) {
    if ($1 == Song) { rwrite privmsg $gettok(%radiotok, %i, 32) ► Now Playing $2- }
    if ($1 == DJ)  { rwrite privmsg $gettok(%radiotok, %i, 32) ► Current DJ -  }
    if ($1 == Rjoin) { rwrite JOIN $gettok(%radiotok, %i, 32) }
    dec %i
} }
 
alias blufmbot {  
  sockclose fmbot 
  sockopen fmbot irc.phreik.net 6667 
  blufm
}
 
alias fmbotcookie  { 
  set %radio.cookie $$?="Enter User Name:" $$?="Enter Your Password:"   
  if ($sock(fmcookie)) sockclose fmcookie
  sockopen fmcookie www.phreik.net 80 
}
 
alias spam.chan set %radiotok $iif($istok(%radiotok, $1, 32), $remtok(%radiotok, $1, 32), $addtok(%radiotok, $1, 32)) | $2- $iif($istok(%radiotok, $1, 32), ► Now spamming in $1, ► No longer spamming in $1)
 
;____________________
;(------ Menu ------)
;____________________
 
menu Channel {
  -
  BluFm Bot
  .$style($iif($istok(%radiotok, #, 32),1)) Spam Radio in # : spam.chan # echo 7 -t # 
  .-
  .Set Account:fmbotcookie
  .Connect/Reset Bot:Blufmbot
  .Join #:rwrite join #
  .Part #:rwrite part #
  .Close Bot:fmbotclose
  -
}

Comments

No Comments Posted

Sorry you must register and log-in to post comments

Info

Snippet Information

Creator:	MakimakiGabriel
Date Added:	4/27/11
Last Updated:	4/27/11
Tags:	Shout Cast Radio Spammer Sock bot
Problem?	Report Snippet

Scroll Up

Tools

Services Help

IRC Help

15 user(s) currently browsing site (0 members, 15 guests, 0 anonymous)
No Members Logged In

11 Users in IRCommunity
inføвøт, err0r, ●fiestýβสbỳ●, båbyġurł, DennieWennie™, Erroneous, payback, TOP™, ﴾Ɣ﴿ⓨⓢⓣⓘⓒ★§ⓟⓔⓛⓛ, danger , extremity