Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- https://kickass.so/mirc-7-34-final-cracked-zip-t9239700.html
- ON *:PART:#: {
- if ($nick == $me) { unset %stream_auto_ [ $+ [ $chan ] ] | .timer[FOLLOWERS_CHECK_ [ $+ [ $chan ] ] off }
- }
- ON *:KICK:#: {
- if ($knick == $me) { unset %stream_auto_ [ $+ [ $chan ] ] | .timer[FOLLOWERS_CHECK_ [ $+ [ $chan ] ] off }
- }
- ON *:JOIN:#: {
- if ($nick == $me) && (%stream_chan_ [ $+ [ $chan ] ]) && (%stream_auto_ [ $+ [ $chan ] ]) { .timer[FOLLOWERS_CHECK_ $+ $chan $+ ] 0 5 twitch_check_new $chan %stream_chan_ [ $+ [ $chan ] ] }
- }
- ON !*:TEXT:!*:#: {
- if ($1 == !autofollow) {
- if ($nick !isop $chan) { msg $chan [ $+ $nick $+ ]: Error, You are NOT an channel operator! | return }
- if (!$2) { msg $chan [ $+ $nick $+ ]: Error, try again and use ON or OFF options! | return }
- var %opt = $2
- if (%opt !== ON) && (%opt !== OFF) { msg $chan [ $+ $nick $+ ]: Error, Incorrect parameters, try again and use ONLY the options ON or OFF. | return }
- if (%opt == ON) {
- if (!%stream_chan_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, There is NOT any $qt(Stream Channel) set, Please use the !SetStreamChan command to set one! | return }
- if (%stream_auto_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, The AUTO-FOLLOW-WELCOME module is already running! }
- else {
- set %stream_auto_ [ $+ [ $chan ] ] $ctime
- .timer[FOLLOWERS_CHECK_ $+ $chan $+ ] 0 5 twitch_check_new $chan %stream_chan_ [ $+ [ $chan ] ]
- msg $chan [ $+ $nick $+ ]: The AUTO-FOLLOW-WELCOME module has been enabled. - (Twitch Channel: $+ %stream_chan_ [ $+ [ $chan ] ] $+ )
- }
- }
- if (%opt == OFF) {
- if (!%stream_chan_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, There is NOT any $qt(Stream Channel) set, Please use the !SetStreamChan command to set one! | return }
- if (!%stream_auto_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, The AUTO-FOLLOW-WELCOME module is already NOT running! }
- else {
- .timer[FOLLOWERS_CHECK_ $+ $chan $+ ] off
- unset %stream_auto_ [ $+ [ $chan ] ]
- msg $chan [ $+ $nick $+ ]: The AUTO-FOLLOW-WELCOME module has been disabled. - (Twitch Channel: $+ %stream_chan_ [ $+ [ $chan ] ] $+ )
- }
- }
- }
- if ($1 == !setstreamchan) {
- if ($nick !isop $chan) { msg $chan [ $+ $nick $+ ]: Error, You are NOT an channel operator! | return }
- if (!$2) { msg $chan [ $+ $nick $+ ]: Error, Not enough parameters, try again and enter the Twitch Channel correctly! | return }
- if (%stream_auto_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, You must first disable the AUTO-FOLLOW-MESSAGE module and then change the stream channel! | return }
- set %stream_chan_ [ $+ [ $chan ] ] $2
- msg $chan [ $+ $nick $+ ]: The Twitch Channel has been set, now use !AutoFollow command to enable/disable the AUTO-FOLLOW-WELCOME module.
- }
- if ($1 == !streamchan) {
- if ($nick !isop $chan) { msg $chan [ $+ $nick $+ ]: Error, You are NOT an channel operator! | return }
- if (!%stream_chan_ [ $+ [ $chan ] ]) { msg $chan [ $+ $nick $+ ]: Error, There is NOT any Twitch Channel has been set! | return }
- msg $chan [ $+ $nick $+ ]: The $chan Twitch Stream Channel is now: $+ %stream_chan_ [ $+ [ $chan ] ] $+
- }
- if ($1 == !followed) {
- if ($nick !isop $chan) { msg $chan [ $+ $nick $+ ]: Error, You are NOT an channel operator! | return }
- if (!$2) { msg $chan [ $+ $nick $+ ]: Error, Not enough parameters, try again and enter the nickname correctly! | return }
- var %stc = %stream_chan_ [ $+ [ $chan ] ]
- var %h = ls_followers_ [ $+ [ %stc ] $+ ] _ [ $+ [ $chan ] ]
- if (!$hget(%h)) { msg $chan [ $+ $nick $+ ]: There is NOT any nickname yet on my database! | return }
- if (!$hfind(%h,$2)) { msg $chan [ $+ $nick $+ ]: Error, Cannot find, The $qt( $+ $2 $+ ) nickname is NOT on my database! | return }
- var %fl = $hget(%h,$2)
- var %timeago = $_timeago($calc($ctime - %fl)).all
- msg $chan [ $+ $nick $+ ]: The $qt( $+ $2 $+ ) nickname followed the Twitch Channel on $+ $date(%fl,ddd ddoo mmm yyyy HH:nn:ss) $+ $iif(%timeago,( $+ $v1 $+ ))
- }
- if ($1 == !lastfollow) {
- if ($nick !isop $chan) { msg $chan [ $+ $nick $+ ]: Error, You are NOT an channel operator! | return }
- var %stc = %stream_chan_ [ $+ [ $chan ] ]
- var %h = ls_followers_last_ [ $+ [ %stc ] $+ ] _ [ $+ [ $chan ] ]
- if (!$hget(%h)) { msg $chan [ $+ $nick $+ ]: There is NOT any nickname yet on my database! | return }
- if (!$hget(%h,1).item) { msg $chan [ $+ $nick $+ ]: Error, Cannot find, The last followed nickname cannot be found on my database! | return }
- var %fl = $hget(%h,1).data
- var %fln = $hget(%h,1).item
- var %timeago = $_timeago($calc($ctime - %fl)).all
- msg $chan [ $+ $nick $+ ]: The last follower nickname is $qt( $+ %fln $+ ) followed the Twitch Channel on $+ $date(%fl,ddd ddoo mmm yyyy HH:nn:ss) $+ $iif(%timeago,( $+ $v1 $+ ))
- }
- }
- alias twitch_check_new {
- if (!$1-) { return }
- if (!%stream_auto_ [ $+ [ $1 ] ]) { .timer[FOLLOWERS_CHECK_ $+ $1 $+ ] off | return }
- if ($me !ison $1) { .timer[FOLLOWERS_CHECK_ $+ $1 $+ ] off | return }
- var %u = https://api.twitch.tv/kraken/channels/ $+ $2 $+ /follows?limit=1&nocache= $+ $ticks
- var %v = twc_ $+ $ticks
- JSONOpen -ud %v %u
- if (%JSONError) { goto end | return }
- var %followed = $json(%v,follows,0,created_at)
- if (%followed) {
- var %followed = $replace($remove(%followed,$chr(122)),$chr(116),$chr(32))
- var %ctime = $ctime(%followed)
- var %followed = $date(%ctime,ddd ddoo mmm yyyy HH:nn:ss)
- var %followed_ago = $_timeago($calc($ctime - %ctime)).all
- }
- var %type = $json(%v,follows,0,user,type)
- var %name = $json(%v,follows,0,user,display_name)
- if (!%name) { var %name = $json(%v,follows,0,user,name) }
- if (!%name) { goto end | return }
- var %uu = https://api.twitch.tv/kraken/streams/ $+ $2
- var %vv = twl_ $+ $ticks
- JSONOpen -ud %vv %uu
- if (%JSONError) { goto end | return }
- var %id = $json(%vv,stream,_id)
- if (!%id) {
- msg # $1 The $qt( $+ $2 $+ ) stream channel is currently OFFLINE.
- msg # $1 The AUTO-FOLLOW-WELCOME module is going OFF.
- .timer[FOLLOWERS_CHECK_ $+ $1 $+ ] off
- unset %stream_auto_ [ $+ [ $1 ] ]
- goto end
- return
- }
- if (!$hget(ls_followers_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ])) { hmake ls_followers_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ] 500 }
- if ($hfind(ls_followers_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ],%name)) { goto end | return }
- hadd -m ls_followers_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ] %name $ctime(%followed)
- if ($hget(ls_followers_last_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ])) { hfree $v1 }
- hadd -m ls_followers_last_ [ $+ [ $2 ] $+ ] _ [ $+ [ $1 ] ] %name $ctime(%followed)
- msg # $1 [ $+ %name $+ ]: Welcome & Thank you for following our channel! - (Followed on: $+ %followed $+ $iif(%followed_ago,( $+ $v1 $+ ))) - (Type: $+ %type $+ )
- :end
- JSONClose %v
- JSONClose %vv
- }
- alias _timeago {
- if (!$1) { return 0 }
- if ($1) && ($1 !isnum) { return 0 }
- if ($prop == all) {
- var %s = $nduration($1)
- var %s = $replacex(%s,wks,$chr(32) weeks.,wk,$chr(32) week.)
- var %s = $replacex(%s,days,$chr(32) days.,day,$chr(32) day.)
- if (*min* iswm %s) { var %s = $replacex(%s,hrs,$chr(32) hours.,hr,$chr(32) hour.) }
- if (*min* !iswm %s) { var %s = $replacex(%s,hrs,$chr(32) hours,hr,$chr(32) hour) }
- if (*sec* iswm %s) { var %s = $replacex(%s,mins,$chr(32) minutes.,min,$chr(32) minute.) }
- if (*sec* !iswm %s) { var %s = $replacex(%s,mins,$chr(32) minutes,min,$chr(32) minute) }
- var %s = $replacex(%s,secs,$chr(32) seconds,sec,$chr(32) second)
- var %s = $replace(%s,$chr(46),$chr(44))
- return $iif(%s,%s ago,0)
- }
- if ($1 <= 59) { return $1 $iif($1 == 1,second,seconds) ago }
- if (($1 <= 3599) && ($1 > 59)) { return $floor($calc($1 / 60)) $iif($floor($calc($1 / 60)) == 1,minute,minutes) ago }
- if (($1 <= 86399) && ($1 > 3599)) { return $round($calc($1 / 3600),0) $iif($round($calc($1 / 3600),0) == 1,hour,hours) ago }
- if (($1 <= 2592000) && ($1 > 86399)) { return $floor($calc($1 / 86400)) $iif($floor($calc($1 / 86400)) > 1,days,day) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 86400))*86400)) / 3600),0) $iif($round($calc($calc($1 - $calc($floor($calc($1 / 86400))*86400)) / 3600),0) > 1,hours,hour) ago }
- if (($1 <= 31540000) && ($1 > 2592000)) { return $floor($calc($1 / 2592000)) $iif($floor($calc($1 / 2592000)) > 1,months,month) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 2592000))*2592000)) / 86400),0) $iif($round($calc($calc($1 - $calc($floor($calc($1 / 2592000))*2592000)) / 86400),0) > 1,days,day) ago }
- if ($1 > 31104000) { return $floor($calc($1 / 31104000)) $iif($floor($calc($1 / 31104000)) > 1,years,year) $+ , $round($calc($calc($1 - $calc($floor($calc($1 / 31104000))*31104000)) / 2592000),0) $iif($round($calc($calc($1 - $calc($floor($calc($1 / 31104000))*31104000)) / 2592000),0) > 1,months,month) ago }
- }
- alias JSONOpen {
- var %switches = -
- if (-* iswm $1) {
- %switches = $1
- tokenize 32 $2-
- }
- var %com = JSONHandler:: $+ $1, %error, %file, %rem
- var %init = function init(a,b){errortext="";data="";url=b ? b : "";method="GET";headers=[];parsedJSON={};status=a;fso=new ActiveXObject("Scripting.FileSystemObject")}
- var %read = function readFile(filename){var ado=new ActiveXObject("ADODB.Stream");ado.CharSet="utf-8";ado.Open();ado.LoadFromFile(filename);if(!ado.EOF){data=ado.ReadText();}ado.close()}
- var %json = "object"!==typeof JSON&&(JSON={});(function(){function m(a){return 10>a?"0"+a:a}function t(a){p.lastIndex=0;return p.test(a)?'"'+a.replace(p,function(a){var c=u[a];return"string"===typeof c?c:"\\u"+("0000"+a.charCodeAt(0).toString(16)).slice(-4)})+'"':'"'+a+'"'}function q(a,l){var c,d,h,r,g=e,f,b=l[a];b&&"object"===typeof b&&"function"===typeof b.toJSON&&(b=b.toJSON(a));"function"===typeof k&&(b=k.call(l,a,b));switch(typeof b){case "string":return t(b);case "number":return isFinite(b)?String(b):"null";case "boolean":case "null":return String(b);case "object":if(!b)return"null";e+=n;f=[];if("[object Array]"===Object.prototype.toString.apply(b)){r=b.length;for(c=0;c<r;c+=1)f[c]=q(c,b)||"null";h=0===f.length?"[]":e?"[\n"+e+f.join(",\n"+e)+"\n"+g+"]":"["+f.join(",")+"]";e=g;return h}if(k&&"object"===typeof k)for(r=k.length,c=0;c<r;c+=1)"string"===typeof k[c]&&(d=k[c],(h=q(d,b))&&f.push(t(d)+(e?": ":":")+h));else for(d in b)Object.prototype.hasOwnProperty.call(b,d)&&(h=q(d,b))&&f.push(t(d)+(e?": ":":")+h);h=0===f.length?"{}":e?"{\n"+e+f.join(",\n"+e)+"\n"+g+"}":"{"+f.join(",")+"}";e=g;return h}}"function"!==typeof Date.prototype.toJSON&&(Date.prototype.toJSON=function(){return isFinite(this.valueOf())?this.getUTCFullYear()+"-"+m(this.getUTCMonth()+1)+"-"+m(this.getUTCDate())+"T"+m(this.getUTCHours())+":"+m(this.getUTCMinutes())+":"+m(this.getUTCSeconds())+"Z":null},String.prototype.toJSON=Number.prototype.toJSON=Boolean.prototype.toJSON=function(){return this.valueOf()});var s,p,e,n,u,k;"function"!==typeof JSON.stringify&&(p=/[\\\"\x00-\x1f\x7f-\x9f\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,u={"\b":"\\b","\t":"\\t","\n":"\\n","\f":"\\f","\r":"\\r",'"':'\\"',"\\":"\\\\"},JSON.stringify=function(a,l,c){var d;n=e="";if("number"===typeof c)for(d=0;d<c;d+=1)n+=" ";else"string"===typeof c&&(n=c);if((k=l)&&"function"!==typeof l&&("object"!==typeof l||"number"!==typeof l.length))throw Error("JSON.stringify");return q("",{"":a})});"function"!==typeof JSON.parse&&(s=/[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,JSON.parse=function(a,e){function c(a,d){var g,f,b=a[d];if(b&&"object"===typeof b)for(g in b)Object.prototype.hasOwnProperty.call(b,g)&&(f=c(b,g),void 0!==f?b[g]=f:delete b[g]);return e.call(a,d,b)}var d;a=String(a);s.lastIndex=0;s.test(a)&&(a=a.replace(s,function(a){return"\\u"+("0000"+a.charCodeAt(0).toString(16)).slice(-4)}));if(/^[\],:{}\s]*$/.test(a.replace(/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,"@").replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,"]").replace(/(?:^|:|,)(?:\s*\[)+/g,"")))return d=eval("("+a+")"),"function"===typeof e?c({"":d},""):d;throw new SyntaxError("JSON.parse");})})();
- var %xhr = function xhr(){var a,b=['MSXML2.XMLHTTP.6.0','MSXML2.XMLHTTP.3.0','Microsoft.XMLHTTP'],c;for(a=0;a<b.length;a++){try{c=new ActiveXObject(b[a]);break}catch(e){}}if(typeof c==="undefined"){errortext = "Unable to locate an XMLHTTP object for use"}else{c.open(method,url,false);for(a=0;a<headers.length;a++){c.setRequestHeader(headers[a][0],headers[a][1])}c.send(data);if(c.status!==200){errortext="Unable to retrieve data - Server Error: " + c.status}else{status="Parsed";try{parsedJSON=JSON.parse(c.responseText)}catch(ee){errortext="Unable to parse Retrieved Data"}}}}
- if (!$regex(%switches, /^-[ufbwd]*$/)) { %error = Invalid switches specified }
- elseif ($regex(%switches, /([ufbwd])\1/)) { %error = Duplicate switch specified ( $+ $regml(1) $+ ) }
- elseif ($regex(%switches, /([ufb])/g) > 1) { %error = Conflicting switches specified (- $+ $regml(1) $+ , - $+ $regml(2) $+ $iif($regml(3), $chr(44) - $+ $v1) $+ ) }
- elseif (w isin %switches && u !isin %switches) { %error = Invalid switch (-w is only for use with -u) }
- elseif ($0 < 2) { %error = Required parameters missing }
- elseif (!$regex($1,/^[a-z\d_.-]+$/i)) { %error = Invalid name specified (Can only contant letters, numbers, _, ., and -) }
- elseif ($com(%com)) { %error = Specified name in use }
- elseif (u isin %switches && $0 > 2) { %error = Invalid URL specified. (Contains Spaces: $2-) }
- elseif (f isin %switches && !$isfile($2-)) { %error = File not found: $2- }
- elseif (b isin %switches && &* !iswm $2) { %error = Invalid binary variable specified (No '&' Prefix) }
- elseif (b isin %switches && $0 > 2) { %error = Invalid binary variable specified (Contains Spaces: $2-) }
- elseif (b isin %switches && $bvar($2, 0) < 1) { %error = Invalid binary variable specified (No content) }
- elseif (!$JSON::ComOpen(%com, MSScriptControl.ScriptControl) || $comerr) { %error = Unable to create an instance of MSScriptControl.ScriptControl }
- elseif (!$com(%com, language, 4, bstr, jscript) || $comerr) { %error = Unable to set ScriptControl's language to Javascript }
- elseif (!$com(%com, addcode, 1, bstr, %init) || $comerr) { %error = Unable to add init() to ScriptControl }
- elseif (!$com(%com, addcode, 1, bstr, %xhr) || $comerr) { %error = Unable to add xhr() to ScriptControl }
- elseif (!$com(%com, addcode, 1, bstr, %read) || $comerr) { %error = Unable to add readFile() to ScriptControl }
- elseif (!$com(%com, ExecuteStatement, 1, bstr, %JSON) || $comerr) { %error = Unable to Initalize the JSON parser object }
- elseif (!$com(%com, ExecuteStatement, 1, bstr, $iif(u isin %switches, $+(init,$chr(40), "XHR", $chr(44), $qt($JSON::Escape($2)),$chr(41)), $+(init,$chr(40), "Parsed", $chr(44), "", $chr(41)))) || $comerr) { %error = Unable to initalize variables for ScriptControl }
- else {
- if (u isin %switches) {
- if (w !isin %switches) {
- var %i = $com(%com, ExecuteStatement, 1, bstr, $+(xhr,$chr(40),$chr(41)))
- if (!%i || $comerr) { %error = Unable to retrieve data from $2 :: $com(%com).error :: $com(%com).errortext }
- elseif (!$com(%com, eval, 1, bstr, errortext) || $com(%com).result) { %error = Unable to retrieve data $+ $iif($v1,: $v1,) }
- }
- }
- else {
- %file = $JSON::File($1)
- if (f isin %switches) {
- %file = $longfn($2)
- }
- elseif (b isin %switches) {
- bwrite $qt(%file) 0 -1 $2
- %rem = $true
- }
- else {
- write -n $qt(%file) $2-
- %rem = $true
- }
- if (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(readFile, $qt($JSON::Escape(%file)))) || $comerr) { %error = Unable to read contents of data-passing file }
- elseif (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(parsedJSON=JSON.parse,data)) || $comerr) { %error = Unable to parse data into valid JSON }
- }
- if (d isin %switches) { $+(.timer,%com) 1 0 JSONClose $1 }
- }
- :error
- %error = $iif($error, $v1, %error)
- if (%rem && %file && $isfile(%file)) { .remove $qt(%file) }
- if (%error) {
- if ($timer(%com)) { $+(.timer,%com) off }
- if ($com(%com)) {
- set -eu0 $+(%,%com,::error) %error
- .comclose $v1
- }
- else { set -eu0 %JSONError %error }
- }
- }
- alias JSONURLOption {
- var %com = JSONHandler:: $+ $1, %error, %head, %value, %x = 2
- if (!$com(%com)) { return }
- unset % [ $+ [ %com ] $+ ] ::error
- if ($0 < 3) { %error = Missing parameters }
- elseif (!$com(%com, eval, 1, bstr, status) || $com(%com).result != XHR) { %error = HTTP Request already completed or wasn't specified }
- elseif ($2 == method) {
- if (!$regex($3-, /^(?:GET|POST|PUT|DELETE)$/i)) { %error = Invalid HTTP Request method Specified: $3- }
- elseif (!$com(%com, ExecuteStatement, 1, bstr, method=" $+ $3 $+ ") || $comerr) { %error = Unable to set HTTP Request method }
- }
- else {
- if (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(headers.push,[ $+ $qt($JSON::Escape($2)), $qt($JSON::Escape($3-)) $+ ])) || $comerr) { %error = Unable to set HTTP Header: %head $+ : $+ %value }
- }
- :error
- %error = $iif($error, $v1, %error)
- if (%error) {
- reseterror
- set -e $+(%,%com,::Error) %error
- }
- }
- alias JSONGet {
- var %switches -
- if (-* iswm $1) {
- %switches = $1
- tokenize 32 $2-
- }
- var %com = JSONHandler:: $+ $1
- var %file = $JSON::File($1)
- var %error
- var %rem
- if ($com(%com)) {
- if ($com(%com, eval, 1, bstr, status) && $com(%com).result !== XHR) { %error = HTTP Request already completed or wasn't specified }
- elseif (!$regex(%switches, /^-[bf]*$/)) { %error = Invalid switches specified }
- elseif ($regex(%switches, /([bf])\1/)) { %error = Duplicate switch specified ( $+ $regml(1) $+ ) }
- elseif ($regex(%switches, /([bf])/g) > 1) { %error = Conflicting switches specified (- $+ $regml(1) $+ , - $+ $regml(2) $+ ) }
- elseif (b isin %switches && &* !iswm $2) { %error = Invalid binary variable specified (No '&' Prefix) }
- elseif (b isin %switches && $0 > 2) { %error = Invalid binary variable specified (Contains Spaces: $2-) }
- elseif (f isin %switches && !$isfile($2-)) { %error = File not found: $2- }
- else {
- if (b isin %switches && $bvar($2,0)) {
- bwrite $qt(%file) 0 -1 $2
- %rem = $true
- }
- elseif (f isin %switches) { %file = $2- }
- elseif ($2-) {
- write -n $qt(%file) $2-
- %rem = $true
- }
- %file = $longfn(%file)
- if ($isfile(%file) && (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(readFile,$qt($JSON::Escape(%file)))) || $comerr)) { %error = Unable to pass data to JSON Handler }
- elseif (!$com(%com, ExecuteStatement, 1, bstr, xhr $+ $chr(40) $+ $chr(41)) || $comerr) { %error = Unable to retrieve data from specified URL :: $com(%com).error :: $com(%com).errortext }
- elseif (!$com(%com, eval, 1, bstr, errortext) || $com(%com).result) { %error = $v1 }
- if (%rem && $isfile(%file)) { .remove %file }
- }
- }
- :error
- %error = $iif($error, $v1, %error)
- if (%error) {
- reseterror
- set -eu0 $+(%,%com,::Error) %error
- }
- }
- alias JSON {
- var %com, %x = 1, %i = 0, %get = parsedJSON, %tok, %res
- if ($regex($1,/^\d+$/) && $0 === 1) {
- while ($com(%x)) {
- if (JSONHandler::* iswm $v1) {
- %com = $v2
- inc %i
- if (%i === $1) { return %com }
- }
- inc %x
- }
- return $iif($1 == 0, %i)
- }
- elseif ($regex($1, /^JSONHandler::CHILD::([^:]+)::(.*)$/)) {
- %com = $regml(1)
- %get = $regml(2)
- }
- else { %com = JSONHandler:: $+ $1 }
- if ($com(%com)) {
- if ($0 == 1) {
- if ($prop == isChild) { return $iif($regex($1, /^JSONHandler::CHILD::([^:]+)::(.*)$/), $true, $false) }
- elseif ($prop == error) { return $iif($(,$+(%,%com,::error)), $true,$false) }
- elseif ($prop == errortext) { return $(,$+(%,%com,::error)) }
- elseif ($com($1)) { return $1 }
- }
- elseif (!$com(%com, eval, 1, bstr, status) || $com(%com).result != parsed) { set -eu0 $+(%,%com,::error) JSON Handler waiting for HTTP Request }
- else {
- %x = 2
- while (%x <= $0) {
- %tok = $(,$ $+ %x)
- if (!$regex(%tok, /^\d+$/)) {
- %tok = $qt($replace(%tok,\,\\,",\"))
- }
- %get = $+(%get,[,%tok,])
- inc %x
- }
- if (!$com(%com, eval, 1, bstr, %get) || $comerr) { set -e $+(%,%com,::error) Invalid Item|index specified }
- else {
- %res = $com(%com).result
- if (%res == [object]) { return JSONHandler::CHILD:: $+ $1 $+ :: $+ %get }
- else { return %res }
- }
- }
- }
- }
- alias JSONClose {
- var %com = JSONHandler:: $+ $1
- unset % [ $+ [ %com ] $+ ] ::*
- if ($com(%com)) { .comclose $v1 }
- if ($timer(%com)) { $+(.timer,%com) off }
- }
- alias JSONList {
- var %x = 1, %i = 0
- while ($com(%x)) {
- if (JSONHandler::* iswm $v1) {
- inc %i
- echo $color(info text) -a * # $+ %i : $regsubex($v2, /^JSONHandler::/,)
- }
- inc %x
- }
- if (!%i) { echo $color(info text) -a * No active JSON handlers }
- }
- alias JSON::ComOpen { .comopen $1- | if ($com($1) && !$comerr) { return $true } | :error | reseterror | if ($com($1)) { .comclose $1 } }
- alias JSON::Escape { return $replace($1,\,\\,",\") }
- alias JSON::File { var %a = 1 | while ($isfile(JSON $+ $1 $+ %a $+ .json)) { inc %a } | return $+(JSON, $1, %a, .json) }
- alias JSON::Funct { var %a = $1 $+ $chr(40), %i = 1 | while (%i < $0) { inc %i | %a = $+(%a,$iif(%i > 2,$chr(44)),$(, $ $+ %i)) } | return %a $+ $chr(41) }
- alias -l addPoints {
- if ($1 !isnum) { echo 2 -st $1 is not a number. It needs to be a number. | halt }
- var %topic $+($chan,.,$nick)
- var %points $calc($readini(Points.ini,%topic,Points) + $1)
- writeini -n Points.ini %topic Points %points
- return %points
- }
- alias -l lookUpPoints {
- var %topic $+($chan,.,$nick)
- var %points $readini(Points.ini,%topic,Points)
- return %points
- }
- alias doaddpoints {
- if ($3 !isnum) { echo 2 -st $3 is not a number. It needs to be a number. | halt }
- var %topic $+($1,.,$2)
- var %points $calc($readini(Points.ini,%topic,Points) + $3)
- writeini -n Points.ini %topic Points %points
- echo -a Added points for %topic
- }
- alias dorempoints {
- var %topic $+($1,.,$2)
- if (%points !0) { echo 2-st You do not have that many points }
- remini -n Points.ini %topic Points
- echo -a Removed points for %topic
- }
- on *:text:!points:#:{
- if ((%floodpoints) || ($($+(%,floodpoints.,$nick),2))) { return }
- set -u10 %floodpoints On
- set -u30 %floodpoints. $+ $nick On
- msg # $nick has $readini(Points.ini,$+(#,.,$nick),Points) total points.
- }
- on *:JOIN:# {
- if ($nick == ProdBot) {
- msg $chan Hi Im ProdBot, my creatory is MrLubert, if you have any problems please contact him.
- }
- }
- on *:TEXT:!test:# {
- msg $chan $nick -> Hi. Im still here!
- }
- on *:TEXT:!emotes:# {
- msg $chan $nick -> List of emotes are here www.twitchemotes.com
- }
- on $*:text:/!points (add|remove)/Si:#:{
- if ($nick isop #) {
- if ($0 < 3) { msg # Insufficient parameters: Use !points <add|remove> <user> [number] | return }
- writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
- { msg $chan $3 now has $readini(Points.ini,$+(#,.,$3),Points) total points. }
- }
- else { msg $chan This command is only available to moderators. }
- }
- on !*:join:#:{
- $+(.timerpoints.,#,.,$nick) 0 60 add.pts $+(#,.,$nick)
- add.pts $+(#,.,$nick)
- }
- on !*:part:#:$+(.timerpoints.,#,.,$nick) off
- alias -l add.pts {
- writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
- }
- on *:text:!links on:#: {
- if ($nick isop $chan) {
- if (%links) { msg $chan $nick -> Link protection is already active }
- else {
- msg $chan $nick -> Link protection activated
- set %links On
- }
- }
- }
- on *:text:!links off:#: {
- if ($nick isop #) {
- if (%links) {
- msg $chan $nick -> Link protection deactivated
- unset %links On
- }
- else { msg $chan $nick -> Link protection is already disabled. }
- }
- }
- on *:text:*.com*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:*.net*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:*.nl*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:*.tv*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:*http://*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:*www.*:#: {
- if ($nick isop #) { return }
- if ($istok(%permit,$nick,32)) { return }
- if (%links) {
- msg $chan /timeout $nick 60
- msg $chan $nick -> Please ask permission before posting a link [Warning]
- }
- }
- on *:text:!permit*:#: {
- if ($nick isop #) {
- if (%links) {
- set -u120 %permit $addtok(%permit,$2,32)
- msg $chan $nick -> You have 2 mins to post a link.
- }
- }
- }
- on *:TEXT:!allow*:#: {
- if ($nick isop $chan) {
- if (%links) {
- set -u120 %permit $addtok(%permit,$2,32)
- msg $chan $nick -> You have 2 mins to post a link.
- }
- }
- }
- on *:TEXT:$(!bot cmds *):#: {
- if ($nick isop $chan) {
- if ($3 == on) {
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] == $null) {
- set %CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] 1
- msg $chan $nick -> Adding and Deleting Commands Script has been turned on for $chan on $network $+ .
- }
- else {
- msg $chan $nick -> Adding and Deleting Commands Script is already turned on for $chan on $network $+ .
- }
- }
- if ($3 == off) {
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
- unset %CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ]
- msg $chan $nick -> Adding and Deleting Commands Script has been turned off for $chan on $network $+ . - However, Custom added Commands for the channel have not been deleted.
- }
- else {
- msg $chan $nick -> Adding and Deleting Commands Script is already turned off for $chan on $network $+ .
- }
- }
- }
- }
- on *:TEXT:!cmds:#: {
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
- var %command_file = rcdradio_commands.ini
- var %k = $+($network,-,$chan)
- var %x = $ini(%command_file,%k,0)
- var %kk = ''
- msg $chan Sorry about the spam!
- if (%x) {
- msg $chan $nick == Customized Command List for $chan on $network
- while (%x) {
- %kk = $ini(%command_file,%k,%x)
- msg $chan $nick = ! $+ %kk => $readini(%command_file,n,%k,%kk)
- dec %x
- }
- msg $chan $nick == End of Custom Command List
- }
- else {
- msg $chan Sorry $nick $+ , No custom commands available.
- }
- }
- }
- on *:TEXT:!comadd *:#:{
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
- if ($nick isop $chan) {
- var %command_file = rcdradio_commands.ini
- var %k = $+($network,-,$chan)
- if ($ini(%command_file,%k,$2) >= 1) {
- msg $chan $nick -> The command ! $2 Is already created.
- }
- else {
- writeini %command_file %k $2 $3-
- msg $chan $nick -> The command ! $+ $2 has been added.
- }
- }
- }
- }
- on *:TEXT:!comedit *:#:{
- if (%CADD.ON [ $network ] ] [ $+ [ . ] ] [ $= [ $chan ] ] != $null) {
- if ($nick isop $chan) {
- var %command_file = rcdradio_commands.ini
- var %k = $+($network,-,$chan)
- if($ini(%command_file,%k,$2) >= 1) {
- remini %command_file %k $2 { Halt
- writeini %command_file %k $2 $3-
- msg $chan $nick -> The command ! $+ $2 has been edited.
- }
- }
- }
- }
- }
- on *:TEXT:!bot:# {
- msg $chan $nick -> My code was made my MrLubert! But im ran on Prodiod's computer. If there's anything wrong with the bot please contact MrLubert.
- }
- on *:TEXT:!comdel *:#:{
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
- if ($nick isop $chan) {
- var %command_file = rcdradio_commands.ini
- var %k = $+($network,-,$chan)
- if ($ini(%command_file,%k,$2) >= 1) {
- remini %command_file %k $2
- msg $chan $nick -> The command ! $+ $2 has been deleted.
- }
- else {
- msg $chan $nick -> Sorry, command ! $+ $2 could not be found.
- }
- if (%CADD.On. [ $+ [ $network ] ] [ $+ [ . ] ] [ $+ [ $chan ] ] != $null) {
- var %command_file = rcdradio_commands.ini
- var %cmd = $mid($1,2)
- if ($me == $nick) {
- halt
- }
- var %k = $+($network,-,$chan)
- var %t = $readini(%command_file,n,%k,%cmd)
- if ($len(%t)) {
- }
- }
- }
- }
- }
- on *:TEXT:!bot leave:# {
- if ($nick isop $chan) {
- msg $chan $nick -> GoodBye <3
- part $chan
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement