API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 24th, 2018
81
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 7.29 KB | None | 0 0
raw download clone embed print report
  1. on *:LOAD: { sca_vars }     ;Load vars on mIRC startup
  2. on *:CONNECT: { sca_vars }  ;Sometimes, not often, mIRC would fail to load on startup, this made sure it did.
  3.  
  4. alias sca_vars {
  5.   set %scc.serv 68.168.98.187    
  6.   set %scc.port 30338      
  7.   set %scc.net fetishIRC.com
  8.   set %scc.chan #Whips`N`ChainsRadio  
  9.   set %scc.me1 Realm^Keeper    
  10.   set %scc.me2 RadioB0t    
  11.   set %scc.auser admin      
  12.   set %scc.apass chainsadmin123    
  13.   set %scc.trig !
  14.   set %sc_autotrig !auto
  15.   set %sc_autotrig_start on
  16.   set %sc_autotrig_end off
  17.   set %sca_auto off
  18.   set_vars        
  19. }
  20.  
  21. on *:TEXT:*:#:{
  22.   if ($network == %scc.net) && ($chan == %scc.chan) && ($me === %scc.me1 || $me === %scc.me2) {
  23.     if (%scc.spam >= 1) { .halt }
  24.     else {
  25.       if ($strip($1) == $+(%scc.trig,all)) {
  26.         .timer 1 0 set %scd.nick $nick
  27.         .timer 1 0 set %scd.text $+(%scc.trig,all)
  28.         .timer 1 1 sca_connect
  29.       }
  30.     }
  31.   }
  32. }
  33.  
  34. on *:SOCKOPEN:shoutcast:{
  35.   inc %scc.spam
  36.   sockwrite -nt $sockname GET /admin.cgi?mode=viewxml HTTP/1.1
  37.   sockwrite -nt $sockname Accept: */*
  38.   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
  39.   sockwrite -nt $sockname Authorization: Basic $encode(%scc.auser $+ : $+ %scc.apass, m)
  40.   sockwrite -nt $sockname Host: $+(%scc.serv,:,%scc.port)
  41.   sockwrite -nt $sockname Connection: Keep-Alive
  42.   sockwrite -nt $sockname $crlf
  43. }
  44.  
  45. on *:SOCKREAD:shoutcast:{
  46.   if ($sockerr) { echo -s Socket Error: $sockerr | .halt }
  47.   else {
  48.     var &sc.tmp
  49.     sockread &sc.tmp
  50.     if ($bfind(&sc.tmp,1,<STREAMSTATUS>0)) { .sockclose $sockname | .notice %scd.nick Sorry %scd.nick $+ , the Stream is currently offline. | sca_del | .halt }
  51.     if ($bfind(&sc.tmp,1,<STREAMSTATUS>1)) {
  52.       var %scg.status = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<STREAMSTATUS>)),$calc($bfind(&sc.tmp,1,</STREAMSTATUS>) - $bfind(&sc.tmp,1,<STREAMSTATUS>))).text
  53.       var %scg.title = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERTITLE>)),$calc($bfind(&sc.tmp,1,</SERVERTITLE>) - $bfind(&sc.tmp,1,<SERVERTITLE>))).text
  54.       var %scg.url = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERURL>)),$calc($bfind(&sc.tmp,1,</SERVERURL>) - $bfind(&sc.tmp,1,<SERVERURL>))).text
  55.       var %scg.song = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SONGTITLE>)),$calc($bfind(&sc.tmp,1,</SONGTITLE>) - $bfind(&sc.tmp,1,<SONGTITLE>))).text
  56.       var %scg.bitrate = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<BITRATE>)),$calc($bfind(&sc.tmp,1,</BITRATE>) - $bfind(&sc.tmp,1,<BITRATE>))).text
  57.       var %scg.clist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<CURRENTLISTENERS>)),$calc($bfind(&sc.tmp,1,</CURRENTLISTENERS>) - $bfind(&sc.tmp,1,<CURRENTLISTENERS>))).text
  58.       var %scg.mlist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<MAXLISTENERS>)),$calc($bfind(&sc.tmp,1,</MAXLISTENERS>) - $bfind(&sc.tmp,1,<MAXLISTENERS>))).text
  59.       var %scg.plist = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<PEAKLISTENERS>)),$calc($bfind(&sc.tmp,1,</PEAKLISTENERS>) - $bfind(&sc.tmp,1,<PEAKLISTENERS>))).text
  60.       var %scg.genre = $bvar(&sc.tmp,$calc($bfind(&sc.tmp,1,<SERVERGENRE>)),$calc($bfind(&sc.tmp,1,</SERVERGENRE>) - $bfind(&sc.tmp,1,<SERVERGENRE>))).text
  61.       set %scs.status $replace($remove(%scg.status,<STREAMSTATUS>)%scg.status,1,Online,0,Offline)
  62.       set %scs.title $replace($remove(%scg.title,<SERVERTITLE>)%scg.title,",",&,&,&#x27;,',<,<,>,>,&#x152;,Œ,&#x153;,œ,&#x160;,Š,&#x161;,š,&#x178;,Ÿ,&#x2C6;,ˆ,&#x2DC;,˜,&#x2002;,$chr(32),&#x2003;,$chr(32),&#x2009;,$chr(32),&#x200C;,$chr(32),&#x200D;,$chr(32),&#x200E;,$chr(32),&#x200F;,$chr(32),&#x2013;,–,&#x2014;,—,&#x2018;,‘,&#x2019;,’,&#x201A;,‚,&#x201C;,“,&#x201D;,”,&#x201E;,„,&#x2020;,†,&#x2021;,‡,&#x2030;,‰,&#x2039;,‹,&#x203A;,›,&#x20AC;,€)
  63.       set %scs.url $remove(%scg.url,<SERVERURL>)
  64.       set %scs.song $replace($remove(%scg.song,<SONGTITLE>)%scg.song,",",&,&,&#x27;,',<,<,>,>,&#x152;,Œ,&#x153;,œ,&#x160;,Š,&#x161;,š,&#x178;,Ÿ,&#x2C6;,ˆ,&#x2DC;,˜,&#x2002;,$chr(32),&#x2003;,$chr(32),&#x2009;,$chr(32),&#x200C;,$chr(32),&#x200D;,$chr(32),&#x200E;,$chr(32),&#x200F;,$chr(32),&#x2013;,–,&#x2014;,—,&#x2018;,‘,&#x2019;,’,&#x201A;,‚,&#x201C;,“,&#x201D;,”,&#x201E;,„,&#x2020;,†,&#x2021;,‡,&#x2030;,‰,&#x2039;,‹,&#x203A;,›,&#x20AC;,€)
  65.       set %scs.bitrate $remove(%scg.bitrate,<BITRATE>)
  66.       set %scs.clist $remove(%scg.clist,<CURRENTLISTENERS>)
  67.       set %scs.mlist $remove(%scg.mlist,<MAXLISTENERS>)
  68.       set %scs.plist $remove(%scg.plist,<PEAKLISTENERS>)
  69.       set %scs.genre $replace($remove(%scg.genre,<SERVERGENRE>)%scg.genre,",",&,&,&#x27;,',<,<,>,>,&#x152;,Œ,&#x153;,œ,&#x160;,Š,&#x161;,š,&#x178;,Ÿ,&#x2C6;,ˆ,&#x2DC;,˜,&#x2002;,$chr(32),&#x2003;,$chr(32),&#x2009;,$chr(32),&#x200C;,$chr(32),&#x200D;,$chr(32),&#x200E;,$chr(32),&#x200F;,$chr(32),&#x2013;,–,&#x2014;,—,&#x2018;,‘,&#x2019;,’,&#x201A;,‚,&#x201C;,“,&#x201D;,”,&#x201E;,„,&#x2020;,†,&#x2021;,‡,&#x2030;,‰,&#x2039;,‹,&#x203A;,›,&#x20AC;,€)
  70.       if (%scd.text == $+(%scc.trig,all) ) { sca_sendall }
  71.       .sockclose $sockname
  72.     }
  73.   }
  74. }
  75.  
  76. alias sca_sendall {
  77.   .timer 1 00 /msg %scc.chan Stream is currently $+(%scs.status,.)
  78.   .timer 1 01 /msg %scc.chan Stream URL: $+(%scs.url,/listen.pls)
  79.   .timer 1 02 /msg %scc.chan Stream Title: %scs.title
  80.   .timer 1 03 /msg %scc.chan Now Playing: %scs.song
  81.   .timer 1 04 /msg %scc.chan Bitrate: $+(%scs.bitrate,kbps)
  82.   .timer 1 05 /msg %scc.chan Listeners: %scs.clist
  83.   .timer 1 06 /msg %scc.chan Max Listeners: %scs.mlist
  84.   .timer 1 07 /msg %scc.chan Peak Listeners: %scs.plist
  85.   .timer 1 08 /msg %scc.chan Stream Genre: %scs.genre
  86.   .timer 1 11 sca_del
  87. }
  88.  
  89. alias sca_connect { if ($sock(shoutcast)) { .sockclose shoutcast } | sockopen shoutcast %scc.serv %scc.port }
  90. alias sca_del { unset %scs.* | unset %scd.* | unset %scc.spam }
  91. alias set_vars {
  92.   if (%my.set != 1) {
  93.     set %my.delay 50
  94.     set %my.repeated 0
  95.     set %my.set 1
  96.     set %my.trigg !
  97.     set %my.chan #Whips`N`ChainsRadio
  98.     set %my.repeating off
  99.     set %my.on on
  100.     set %my.off off
  101.   }
  102. }
  103. alias repeat {
  104.   if (%my.repeating == %my.on) {
  105.     set %my.repeated $calc(1 + %my.repeated)
  106.     set %my.text [Auto Announce] repeated %my.repeated times. Delayed $calc(%my.delay * 2) seconds
  107.     .timer 1 %my.delay msg %my.chan %my.text
  108.     .timer 1 %my.delay sca_sendall
  109.     .timer 1 %my.delay repeat2
  110.   }
  111. }
  112. alias repeat2 {
  113.   if (%my.repeating == %my.on) {
  114.     set %my.repeated $calc(1 + %my.repeated)
  115.     set %my.text [Auto Accounce] repeated %my.repeated times. Delayed $calc(%my.delay * 2) seconds
  116.     .timer 1 %my.delay msg %my.chan %my.text
  117.     .timer 1 %my.delay sca_sendall
  118.     .timer 1 %my.delay repeat
  119.   }
  120. }
  121. on *:TEXT:*:#:{
  122.   if ($chan == %my.chan) {
  123.     if ($strip($1) == $+(%my.trigg,repeat)) {
  124.       if ($2 == %my.on) {
  125.         if (%my.set != 1) {
  126.           set_vars
  127.         }
  128.         set %my.repeating on
  129.         set %my.repeated $calc(1 + %my.repeated)
  130.         set %my.text [Auto Annouce] repeated %my.repeated times. Delayed $calc(%my.delay * 2) seconds
  131.         msg %my.chan Now starting..
  132.         repeat
  133.       }
  134.  
  135.       else if ($2 == %my.off) {
  136.         set %my.repeating off
  137.         msg %my.chan [Auto Accounce] No longer announcing.. Stopped at %my.repeated times, may repeat one more time.
  138.       }
  139.     }
  140.   }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!