API tools faq
paste
Advertisement
mruno

!theatre Script 29NOV2014

mruno
May 24th, 2014
507
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 17.84 KB | None | 0 0
raw download clone embed print report
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script !theater Script
  3. ;version 29NOV2014
  4. ;author mruno
  5. ;email [email protected]
  6. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7. ;
  8. ;total rewrite!
  9. ;uses rittebtinaties.com api
  10. ;no box office gross details in api :(
  11. ;
  12. ;uses JSON for MIRC By SReject http://hawkee.com/snippet/10194/
  13. ;
  14. on *:TEXT:*:#: {
  15.   if ($chr(36) isin $2-) return
  16.   if ($1 == !Theater) || ($1 == !cinema) || ($1 == !theatre) {
  17.     if ($timer(Theater.msg)) {
  18.       .timertheatre.wait 1 3 .notice $nick Please try again in 1 minute.
  19.       return
  20.     }
  21.     else .timerTheater.msg 1 60 noop
  22.  
  23.     if (m isin $chan(#).mode) .timerTheater.off 1 5 .notice $nick Script is OFF due to channel being moderated (+m).
  24.     else {
  25.       .notice $nick Gathering $1 data...
  26.       .timer 1 1 Theater.start $2 $nick $chan
  27.     }
  28.   }
  29. }
  30. alias Theater.start {
  31.   var %chan $3
  32.   var %nick $2
  33.   if ($1 == new) || ($1 == coming) || ($1 == upcoming) {
  34.     var %name Theater.new
  35.     if (!%Theater.num) $iif(%chan,msg %chan,iecho) 12!Theater Coming Soon:
  36.     set %Theater.num 1
  37.     jsonopen -u %name http://api.rottentomatoes.com/api/public/v1.0/lists/movies/opening.json?limit=10&country=us&apikey=ujhxx5s4uaekxyfj3e3etdj7
  38.     .timerTheater.complete 0 1 Theater.complete $1-
  39.   }
  40.   elseif ($1 == top) {
  41.     var %name Theater.top
  42.     if (!%Theater.num) $iif(%chan,msg %chan,iecho) 12!Theater Top Ten - In Theaters Now:
  43.     set %Theater.num 1
  44.     jsonopen -u %name http://api.rottentomatoes.com/api/public/v1.0/lists/movies/box_office.json?limit=10&country=us&apikey=ujhxx5s4uaekxyfj3e3etdj7
  45.     .timerTheater.complete 0 1 Theater.complete $1-
  46.   }
  47.   else {
  48.     $iif(%chan,.notice %nick,iecho) !Theater by mruno. Usage: !Theater [options]
  49.     $iif(%chan,.notice %nick,iecho)   Results types: Top or New - Top will list top grossing movies, New will list newest movies
  50.     $iif(%chan,.notice %nick,iecho) Example: !Theater new or !Theater top
  51.   }
  52. }
  53. alias Theater.complete {
  54.   if (!%Theater.num) set %Theater.num 1
  55.   else inc %Theater.num
  56.   if (%Theater.num > 3) {
  57.     unset %Theater.num
  58.     .timerTheater.repeat 1 1 Theater.start $1-
  59.   }
  60.  
  61.   var %chan $3
  62.   var %nick $2
  63.  
  64.   if ($1 == new) || ($1 == coming) || ($1 == upcoming) {
  65.     var %name Theater.new
  66.     if ($json(%name)) .timerTheater.complete off
  67.  
  68.     var %loop 0
  69.     while (%loop < 10) {
  70.       var %title $json(%name,movies,%loop,title)
  71.       var %year $json(%name,movies,%loop,year)
  72.       var %date $json(%name,movies,%loop,release_dates,theater)
  73.       var %rating $json(%name,movies,%loop,mpaa_rating)
  74.       var %critics $json(%name,movies,%loop,ratings,critics_score)
  75.       var %users $json(%name,movies,%loop,ratings,audience_score)
  76.       var %critics_meter $json(%name,movies,%loop,ratings,critics_rating)
  77.       var %user_meter $json(%name,movies,%loop,ratings,audience_rating)
  78.       var %meter $iif(%critics_meter,%critics_meter,None) / $iif(%user_meter,%user_meter,None)
  79.       var %score $calc($calc(%critics + %users) / 2)
  80.       var %imdb $json(%name,movies,%loop,alternate_ids,imdb)
  81.  
  82.       if (%title) {
  83.         .timerTheater.complete off
  84.         .timerTheater.off 1 3 unset %Theater.*
  85.         $iif(%chan,msg %chan,iecho)  $calc(%loop + 1) $+ . %title $+  $paren(%rating) - Release Date: %date - Score: %score $+ $chr(37) - Tomato Rating: %meter
  86.       }
  87.       inc %loop
  88.     }
  89.     jsonclose %name
  90.   }
  91.   elseif ($1 == top) {
  92.     var %name Theater.top
  93.     if ($json(%name)) .timerTheater.complete off
  94.  
  95.     var %loop 0
  96.     while (%loop < 10) {
  97.       var %title $json(%name,movies,%loop,title)
  98.       var %year $json(%name,movies,%loop,year)
  99.       var %rating $json(%name,movies,%loop,mpaa_rating)
  100.       var %critics $json(%name,movies,%loop,ratings,critics_score)
  101.       var %users $json(%name,movies,%loop,ratings,audience_score)
  102.       var %critics_meter $json(%name,movies,%loop,ratings,critics_rating)
  103.       var %user_meter $json(%name,movies,%loop,ratings,audience_rating)
  104.       var %meter $iif(%critics_meter,%critics_meter,None) / $iif(%user_meter,%user_meter,None)
  105.       var %score $calc($calc(%critics + %users) / 2)
  106.       var %imdb $json(%name,movies,%loop,alternate_ids,imdb)
  107.  
  108.       if (%title) {
  109.         .timerTheater.complete off
  110.         .timerTheater.off 1 3 unset %Theater.*
  111.         $iif(%chan,msg %chan,iecho)  $calc(%loop + 1) $+ . %title $+  $paren(%rating) - Score: %score $+ $chr(37) - Tomato Rating: %meter
  112.       }
  113.       inc %loop
  114.     }
  115.     jsonclose %name
  116.   }
  117. }
  118. alias -l paren {
  119.   if ($3) return $2 $+ $1 $+ $3
  120.   elseif ($2) return $2 $+ $1 $+ $2
  121.   elseif ($1 != $null) return ( $+ $1- $+ )
  122. }
  123. ;http://hawkee.com/snippet/10194/
  124. alias -l JSONOpen {
  125.   var %switches = -
  126.   if (-* iswm $1) {
  127.     %switches = $1
  128.     tokenize 32 $2-
  129.   }
  130.   var %com = JSONHandler:: $+ $1, %error, %file, %rem
  131.   var %init = function init(a,b){errortext="";data="";url=b ? b : "";method="GET";headers=[];parsedJSON={};status=a;fso=new ActiveXObject("Scripting.FileSystemObject")}
  132.   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()}
  133.   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");})})();
  134.   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"}}}}
  135.   if (!$regex(%switches, /^-[ufbwd]*$/)) {
  136.     %error = Invalid switches specified
  137.   }
  138.   elseif ($regex(%switches, /([ufbwd])\1/)) {
  139.     %error = Duplicate switch specified ( $+ $regml(1) $+ )
  140.   }
  141.   elseif ($regex(%switches, /([ufb])/g) > 1) {
  142.     %error = Conflicting switches specified (- $+ $regml(1) $+ , - $+ $regml(2) $+ $iif($regml(3), $chr(44) - $+ $v1) $+ )
  143.   }
  144.   elseif (w isin %switches && u !isin %switches) {
  145.     %error = Invalid switch (-w is only for use with -u)
  146.   }
  147.   elseif ($0 < 2) {
  148.     %error = Required parameters missing
  149.   }
  150.   elseif (!$regex($1,/^[a-z\d_.-]+$/i)) {
  151.     %error = Invalid name specified (Can only contant letters, numbers, _, ., and -)
  152.   }
  153.   elseif ($com(%com)) {
  154.     %error = Specified name in use
  155.   }
  156.   elseif (u isin %switches && $0 > 2) {
  157.     %error = Invalid URL specified. (Contains Spaces: $2-)
  158.   }
  159.   elseif (f isin %switches && !$isfile($2-)) {
  160.     %error = File not found: $2-
  161.   }
  162.   elseif (b isin %switches && &* !iswm $2) {
  163.     %error = Invalid binary variable specified (No '&' Prefix)
  164.   }
  165.   elseif (b isin %switches && $0 > 2) {
  166.     %error = Invalid binary variable specified (Contains Spaces: $2-)
  167.   }
  168.   elseif (b isin %switches && $bvar($2, 0) < 1) {
  169.     %error = Invalid binary variable specified (No content)
  170.   }
  171.   elseif (!$JSON::ComOpen(%com, MSScriptControl.ScriptControl) || $comerr) {
  172.     %error = Unable to create an instance of MSScriptControl.ScriptControl
  173.   }
  174.   elseif (!$com(%com, language, 4, bstr, jscript) || $comerr) {
  175.     %error = Unable to set ScriptControl's language to Javascript
  176.   }
  177.   elseif (!$com(%com, addcode, 1, bstr, %init) || $comerr) {
  178.     %error = Unable to add init() to ScriptControl
  179.   }
  180.   elseif (!$com(%com, addcode, 1, bstr, %xhr) || $comerr) {
  181.     %error = Unable to add xhr() to ScriptControl
  182.   }
  183.   elseif (!$com(%com, addcode, 1, bstr, %read) || $comerr) {
  184.     %error = Unable to add readFile() to ScriptControl
  185.   }
  186.   elseif (!$com(%com, ExecuteStatement, 1, bstr, %JSON) || $comerr) {
  187.     %error = Unable to Initalize the JSON parser object
  188.   }
  189.   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) {
  190.     %error = Unable to initalize variables for ScriptControl
  191.   }
  192.   else {
  193.     if (u isin %switches) {
  194.       if (w !isin %switches) {
  195.         var %i = $com(%com, ExecuteStatement, 1, bstr, $+(xhr,$chr(40),$chr(41)))
  196.         if (!%i || $comerr) {
  197.           %error = Unable to retrieve data from $2 :: $com(%com).error :: $com(%com).errortext
  198.         }
  199.         elseif (!$com(%com, eval, 1, bstr, errortext) || $com(%com).result) {
  200.           %error = Unable to retrieve data $+ $iif($v1,: $v1,)
  201.         }
  202.       }
  203.     }
  204.     else {
  205.       %file = $JSON::File($1)
  206.       if (f isin %switches) {
  207.         %file = $longfn($2)
  208.       }
  209.       elseif (b isin %switches) {
  210.         bwrite $qt(%file) 0 -1 $2
  211.         %rem = $true
  212.       }
  213.       else {
  214.         write -n $qt(%file) $2-
  215.         %rem = $true
  216.       }
  217.       if (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(readFile, $qt($JSON::Escape(%file)))) || $comerr) {
  218.         %error = Unable to read contents of data-passing file
  219.       }
  220.       elseif (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(parsedJSON=JSON.parse,data)) || $comerr) {
  221.         %error = Unable to parse data into valid JSON
  222.       }
  223.     }
  224.     if (d isin %switches) {
  225.       $+(.timer,%com) 1 0 JSONClose $1
  226.     }
  227.   }
  228.   :error
  229.   %error = $iif($error, $v1, %error)
  230.   if (%rem && %file && $isfile(%file)) {
  231.     .remove $qt(%file)
  232.   }
  233.   if (%error) {
  234.     if ($timer(%com)) { $+(.timer,%com) off }
  235.     if ($com(%com)) {
  236.       set -eu0 $+(%,%com,::error) %error
  237.       .comclose $v1
  238.     }
  239.     else {
  240.       set -eu0 %JSONError %error
  241.     }
  242.   }
  243. }
  244. alias -l JSONURLOption {
  245.   var %com = JSONHandler:: $+ $1, %error, %head, %value, %x = 2
  246.  
  247.   if (!$com(%com)) {
  248.     return
  249.   }
  250.   unset % [ $+ [ %com ] $+ ] ::error
  251.   if ($0 < 3) {
  252.     %error = Missing parameters
  253.   }
  254.   elseif (!$com(%com, eval, 1, bstr, status) || $com(%com).result != XHR) {
  255.     %error = HTTP Request already completed or wasn't specified
  256.   }
  257.   elseif ($2 == method) {
  258.     if (!$regex($3-, /^(?:GET|POST|PUT|DELETE)$/i)) {
  259.       %error = Invalid HTTP Request method Specified: $3-
  260.     }
  261.     elseif (!$com(%com, ExecuteStatement, 1, bstr, method=" $+ $3 $+ ") || $comerr) {
  262.       %error = Unable to set HTTP Request method
  263.     }
  264.   }
  265.   else {
  266.     if (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(headers.push,[ $+ $qt($JSON::Escape($2)), $qt($JSON::Escape($3-)) $+ ])) || $comerr) {
  267.       %error = Unable to set HTTP Header: %head $+ : $+ %value
  268.     }
  269.   }
  270.   :error
  271.   %error = $iif($error, $v1, %error)
  272.   if (%error) {
  273.     reseterror
  274.     set -e $+(%,%com,::Error) %error
  275.   }
  276. }
  277. alias -l JSONGet {
  278.   var %switches -
  279.   if (-* iswm $1) {
  280.     %switches = $1
  281.     tokenize 32 $2-
  282.   }
  283.   var %com = JSONHandler:: $+ $1
  284.   var %file = $JSON::File($1)
  285.   var %error
  286.   var %rem
  287.   if ($com(%com)) {
  288.     if ($com(%com, eval, 1, bstr, status) && $com(%com).result !== XHR) {
  289.       %error = HTTP Request already completed or wasn't specified
  290.     }
  291.     elseif (!$regex(%switches, /^-[bf]*$/)) {
  292.       %error = Invalid switches specified
  293.     }
  294.     elseif ($regex(%switches, /([bf])\1/)) {
  295.       %error = Duplicate switch specified ( $+ $regml(1) $+ )
  296.     }
  297.     elseif ($regex(%switches, /([bf])/g) > 1) {
  298.       %error = Conflicting switches specified (- $+ $regml(1) $+ , - $+ $regml(2) $+ )
  299.     }
  300.     elseif (b isin %switches && &* !iswm $2) {
  301.       %error = Invalid binary variable specified (No '&' Prefix)
  302.     }
  303.     elseif (b isin %switches && $0 > 2) {
  304.       %error = Invalid binary variable specified (Contains Spaces: $2-)
  305.     }
  306.     elseif (f isin %switches && !$isfile($2-)) {
  307.       %error = File not found: $2-
  308.     }
  309.     else {
  310.       if (b isin %switches && $bvar($2,0)) {
  311.         bwrite $qt(%file) 0 -1 $2
  312.         %rem = $true
  313.       }
  314.       elseif (f isin %switches) {
  315.         %file = $2-
  316.       }      
  317.       elseif ($2-) {
  318.         write -n $qt(%file) $2-
  319.         %rem = $true
  320.       }
  321.       %file = $longfn(%file)
  322.       if ($isfile(%file) && (!$com(%com, ExecuteStatement, 1, bstr, $JSON::Funct(readFile,$qt($JSON::Escape(%file)))) || $comerr)) {
  323.         %error = Unable to pass data to JSON Handler
  324.       }
  325.       elseif (!$com(%com, ExecuteStatement, 1, bstr, xhr $+ $chr(40) $+ $chr(41)) || $comerr) {
  326.         %error = Unable to retrieve data from specified URL :: $com(%com).error :: $com(%com).errortext    
  327.       }
  328.       elseif (!$com(%com, eval, 1, bstr, errortext) || $com(%com).result) {
  329.         %error = $v1
  330.       }
  331.       if (%rem && $isfile(%file)) { .remove %file }
  332.     }
  333.   }
  334.   :error
  335.   %error = $iif($error, $v1, %error)
  336.   if (%error) {
  337.     reseterror
  338.     set -eu0 $+(%,%com,::Error) %error
  339.   }
  340. }
  341. alias -l JSON {
  342.   var %com, %x = 1, %i = 0, %get = parsedJSON, %tok, %res
  343.   if ($regex($1,/^\d+$/) && $0 === 1) {
  344.     while ($com(%x)) {
  345.       if (JSONHandler::* iswm $v1) {
  346.         %com = $v2
  347.         inc %i
  348.         if (%i === $1) { return %com }
  349.       }
  350.       inc %x
  351.     }
  352.     return $iif($1 == 0, %i)
  353.   }
  354.   elseif ($regex($1, /^JSONHandler::CHILD::([^:]+)::(.*)$/)) {
  355.     %com = $regml(1)
  356.     %get = $regml(2)
  357.   }
  358.   else {
  359.     %com = JSONHandler:: $+ $1
  360.   }
  361.   if ($com(%com)) {
  362.     if ($0 == 1) {
  363.       if ($prop == isChild) {
  364.         return $iif($regex($1, /^JSONHandler::CHILD::([^:]+)::(.*)$/), $true, $false)
  365.       }
  366.       elseif ($prop == error) {
  367.         return $iif($(,$+(%,%com,::error)), $true,$false)
  368.       }
  369.       elseif ($prop == errortext) {
  370.         return $(,$+(%,%com,::error))
  371.       }
  372.       elseif ($com($1)) {
  373.         return $1
  374.       }
  375.     }
  376.     elseif (!$com(%com, eval, 1, bstr, status) || $com(%com).result != parsed) {
  377.       set -eu0 $+(%,%com,::error) JSON Handler waiting for HTTP Request
  378.     }
  379.     else {
  380.       %x = 2
  381.       while (%x <= $0) {
  382.         %tok = $(,$ $+ %x)
  383.         if (!$regex(%tok, /^\d+$/)) {
  384.           %tok = $qt($replace(%tok,\,\\,",\"))
  385.         }
  386.         %get = $+(%get,[,%tok,])
  387.         inc %x
  388.       }
  389.       if (!$com(%com, eval, 1, bstr, %get) || $comerr) {
  390.         set -e $+(%,%com,::error) Invalid Item|index specified
  391.       }
  392.       else {
  393.         %res = $com(%com).result
  394.         if (%res == [object]) {
  395.           return JSONHandler::CHILD:: $+ $1 $+ :: $+ %get
  396.         }
  397.         else {
  398.           return %res
  399.         }
  400.       }
  401.     }
  402.   }
  403. }
  404. alias -l JSONClose {
  405.   var %com = JSONHandler:: $+ $1
  406.   unset % [ $+ [ %com ] $+ ] ::*
  407.   if ($com(%com)) { .comclose $v1 }
  408.   if ($timer(%com)) { $+(.timer,%com) off }
  409. }
  410. alias -l JSONList {
  411.   var %x = 1, %i = 0
  412.   while ($com(%x)) {
  413.     if (JSONHandler::* iswm $v1) {
  414.       inc %i
  415.       echo $color(info text) -a * # $+ %i : $regsubex($v2, /^JSONHandler::/,)
  416.     }
  417.     inc %x
  418.   }
  419.   if (!%i) {
  420.     echo $color(info text) -a * No active JSON handlers
  421.   }  
  422. }
  423. on *:Start: unset %JSONHandler::*
  424. alias -l JSON::ComOpen { .comopen $1- | if ($com($1) && !$comerr) { return $true } | :error | reseterror | if ($com($1)) { .comclose $1 } }
  425. alias -l JSON::Escape { return $replace($1,\,\\,",\") }
  426. alias -l JSON::File { var %a = 1 | while ($isfile(JSON $+ $1 $+ %a $+ .json)) { inc %a } | return $+(JSON, $1, %a, .json) }
  427. alias -l 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) }
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!