Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:LOAD: { sca_vars } ;Load vars on mIRC startup
- on *:CONNECT: { sca_vars } ;Sometimes, not often, mIRC would fail to load on startup, this made sure it did.
- alias sca_vars {
- set %scc.serv 68.168.98.187
- set %scc.port 30338
- set %scc.net fetishIRC.com
- set %scc.chan #Whips`N`ChainsRadio
- set %scc.me1 Realm^Keeper
- set %scc.me2 RadioB0t
- set %scc.auser admin
- set %scc.apass chainsadmin123
- set %scc.trig !
- set %sc_autotrig !auto
- set %sc_autotrig_start on
- set %sc_autotrig_end off
- set %sca_auto off
- }
- on *:TEXT:*:#:{
- if ($network == %scc.net) && ($chan == %scc.chan) && ($me === %scc.me1 || $me === %scc.me2) {
- if (%scc.spam >= 1) { .halt }
- else {
- if ($strip($1) == $+(%scc.trig,all)) {
- .timer 1 0 set %scd.nick $nick
- .timer 1 0 set %scd.text $+(%scc.trig,all)
- .timer 1 1 sca_connect
- }
- if ($1 == %sc_autotrig) && ($2 == %sc_autotrig_start) {
- set %sca_auto on
- sca_auto
- msg %scc.chan [Auto Announce Started]
- }
- if ($1 == %sc_autotrig) && ($2 == %sc_autotrig_end) {
- set %sca_auto off
- msg %scc.chan [Auto Announce Ended]
- }
- }
- }
- }
- on *:SOCKOPEN:shoutcast:{
- inc %scc.spam
- sockwrite -nt $sockname GET /admin.cgi?mode=viewxml HTTP/1.1
- sockwrite -nt $sockname Accept: */*
- sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.642.2 Safari/534.16
- sockwrite -nt $sockname Authorization: Basic $encode(%scc.auser $+ : $+ %scc.apass, m)
- sockwrite -nt $sockname Host: $+(%scc.serv,:,%scc.port)
- sockwrite -nt $sockname Connection: Keep-Alive
- sockwrite -nt $sockname $crlf
- }
- on *:SOCKREAD:shoutcast:{
- if ($sockerr) { echo -s Socket Error: $sockerr | .halt }
- else {
- var &sc.tmp
- sockread &sc.tmp
- if ($bfind(&sc.tmp,1,<STREAMSTATUS>0)) { .sockclose $sockname | .notice %scd.nick Sorry %scd.nick $+ , the Stream is currently offline. | sca_del | .halt }
- if ($bfind(&sc.tmp,1,<STREAMSTATUS>1)) {
- var %scg.status = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<STREAMSTATUS>)),$calc($bfind(&sc.tmp,1,</STREAMSTATUS>) - $bfind(&sc.tmp,1,<STREAMSTATUS>))).text
- var %scg.title = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERTITLE>)),$calc($bfind(&sc.tmp,1,</SERVERTITLE>) - $bfind(&sc.tmp,1,<SERVERTITLE>))).text
- var %scg.url = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERURL>)),$calc($bfind(&sc.tmp,1,</SERVERURL>) - $bfind(&sc.tmp,1,<SERVERURL>))).text
- var %scg.song = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SONGTITLE>)),$calc($bfind(&sc.tmp,1,</SONGTITLE>) - $bfind(&sc.tmp,1,<SONGTITLE>))).text
- var %scg.bitrate = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<BITRATE>)),$calc($bfind(&sc.tmp,1,</BITRATE>) - $bfind(&sc.tmp,1,<BITRATE>))).text
- var %scg.clist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<CURRENTLISTENERS>)),$calc($bfind(&sc.tmp,1,</CURRENTLISTENERS>) - $bfind(&sc.tmp,1,<CURRENTLISTENERS>))).text
- var %scg.mlist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<MAXLISTENERS>)),$calc($bfind(&sc.tmp,1,</MAXLISTENERS>) - $bfind(&sc.tmp,1,<MAXLISTENERS>))).text
- var %scg.plist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<PEAKLISTENERS>)),$calc($bfind(&sc.tmp,1,</PEAKLISTENERS>) - $bfind(&sc.tmp,1,<PEAKLISTENERS>))).text
- var %scg.genre = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERGENRE>)),$calc($bfind(&sc.tmp,1,</SERVERGENRE>) - $bfind(&sc.tmp,1,<SERVERGENRE>))).text
- set %scs.status $replace($remove(%scg.status,<STREAMSTATUS>)%scg.status,1,Online,0,Offline)
- set %scs.title $replace($remove(%scg.title,<SERVERTITLE>)%scg.title,",",&,&,',',<,<,>,>,Œ,Œ,œ,œ,Š,Š,š,š,Ÿ,Ÿ,ˆ,ˆ,˜,˜, ,$chr(32), ,$chr(32), ,$chr(32),‌,$chr(32),‍,$chr(32),‎,$chr(32),‏,$chr(32),–,–,—,—,‘,‘,’,’,‚,‚,“,“,”,”,„,„,†,†,‡,‡,‰,‰,‹,‹,›,›,€,€)
- set %scs.url $remove(%scg.url,<SERVERURL>)
- set %scs.song $replace($remove(%scg.song,<SONGTITLE>)%scg.song,",",&,&,',',<,<,>,>,Œ,Œ,œ,œ,Š,Š,š,š,Ÿ,Ÿ,ˆ,ˆ,˜,˜, ,$chr(32), ,$chr(32), ,$chr(32),‌,$chr(32),‍,$chr(32),‎,$chr(32),‏,$chr(32),–,–,—,—,‘,‘,’,’,‚,‚,“,“,”,”,„,„,†,†,‡,‡,‰,‰,‹,‹,›,›,€,€)
- set %scs.bitrate $remove(%scg.bitrate,<BITRATE>)
- set %scs.clist $remove(%scg.clist,<CURRENTLISTENERS>)
- set %scs.mlist $remove(%scg.mlist,<MAXLISTENERS>)
- set %scs.plist $remove(%scg.plist,<PEAKLISTENERS>)
- set %scs.genre $replace($remove(%scg.genre,<SERVERGENRE>)%scg.genre,",",&,&,',',<,<,>,>,Œ,Œ,œ,œ,Š,Š,š,š,Ÿ,Ÿ,ˆ,ˆ,˜,˜, ,$chr(32), ,$chr(32), ,$chr(32),‌,$chr(32),‍,$chr(32),‎,$chr(32),‏,$chr(32),–,–,—,—,‘,‘,’,’,‚,‚,“,“,”,”,„,„,†,†,‡,‡,‰,‰,‹,‹,›,›,€,€)
- if (%scd.text == $+(%scc.trig,all) ) { sca_sendall }
- .sockclose $sockname
- }
- }
- }
- alias sca_sendall {
- .timer 1 00 /msg %scc.chan Stream is currently $+(%scs.status,.)
- .timer 1 01 /msg %scc.chan Stream URL: $+(%scs.url,/listen.pls)
- .timer 1 02 /msg %scc.chan Stream Title: %scs.title
- .timer 1 03 /msg %scc.chan Now Playing: %scs.song
- .timer 1 04 /msg %scc.chan Bitrate: $+(%scs.bitrate,kbps)
- .timer 1 05 /msg %scc.chan Listeners: %scs.clist
- .timer 1 06 /msg %scc.chan Max Listeners: %scs.mlist
- .timer 1 07 /msg %scc.chan Peak Listeners: %scs.plist
- .timer 1 08 /msg %scc.chan Stream Genre: %scs.genre
- .timer 1 11 sca_del
- }
- alias sca_connect { if ($sock(shoutcast)) { .sockclose shoutcast } | sockopen shoutcast %scc.serv %scc.port }
- alias sca_del { unset %scs.* | unset %scd.* | unset %scc.spam }
- alias sca_auto {
- .timer 1 0 set %scd.nick $nick
- .timer 1 0 set %scd.text $+(%scc.trig,all)
- .timer 1 1 sca_connect
- .timer 1 460 msg %scc.chan [Auto Announce]
- .timer 1 460 sca_sendall
- if (%sc_auto == on) {
- .timer 1 1120 sca_auto
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
