SHOW:
|
|
- or go back to the newest paste.
| 1 | - | on $*:TEXT:/(\(* *(-?\d+(\.\d+)?|pi|π) *([-+*/^%] *\(* *(-?\d+(\.\d+)?|pi|π) *\)* *)+)/:*: {
|
| 1 | + | alias mrgx return /(\(* *(\d+(?:\.\d+)?|pi|π)((?: *([-+%/*^]) *(?2) *\)*))+)/gi |
| 2 | - | if ($chan != #n-highscores) && (!$regex($1-,/!\d\d?\^\d+\54\d+/)) && ($regex($regsubex($1-,/https?:\/\/\S+/g,),/(\(* *(?:-?\d+(?:\.\d+)?|pi|π) *(?:[-+*/^%] *\(* *(?:-?\d+(?:\.\d+)?|pi|π) *\)* *)+)/g))) {
|
| 2 | + | |
| 3 | - | var %= = 1, %=- = $regml(0) |
| 3 | + | on $*:TEXT:$($mrgx):*:{
|
| 4 | - | while (%= <= %=-) {
|
| 4 | + | var -n %e $regsubex($replace($1-,%,% $+ $chr(32),pi,π,π,3.14159),$mrgx,\1:), %i 1 |
| 5 | - | var %=~ = %=~ $calc($replace($regml(%=),pi,3.141593,π,3.141593)) |
| 5 | + | while ($gettok(%e,%i,58)) {
|
| 6 | - | inc %= |
| 6 | + | var -n %r = %r $+ , $calc($v1) |
| 7 | - | } |
| 7 | + | inc %i |
| 8 | - | msg $iif($chan,$chan,$nick) %=~ |
| 8 | + | |
| 9 | msg $iif(#,#,$nick) $deltok(%r,0,44) | |
| 10 | } |
