/ScriptServ

[aliases]
n0=hack { return $replace($upper($1-),a,4,B,b,C,<,D,d,e,€,F,f,G,g,I,ì,M,m,o,¤,s,§,t,†,l,£,c,©,n,ñ,p,þ,r,®,u,µ,W,w,X,x) }
n1=rainbow {
n2=  if ($1 != $null) {
n3=    return 2,2 12,12 10,10 3,3 9,9 8,8 7,7 4,4 5,5 6,6 13,13  $1 13,13 6,6 5,5 4,4 7,7 8,8 9,9 3,3 10,10 12,12 2,2.
n4=  }
n5=}
n6=rbow {
n7=  say $rainbow($1-)
n8=}
n9=rainsay { say $rain($1-) }
n10=rain {
n11=  if ($1 != $null) {
n12=    var %LL = 04,07,08,09,12,11,13
n13=    var %ctl = 1
n14=    var %ct = 1
n15=    while (%ct <= $len($1-)) {
n16=      var %new = %new $+  $+ $gettok(%LL,%ctl,44) $+ $iif($mid($1-,%ct,1) != $chr(32), $+ $mid($1-,%ct,1), $chr(32) $+ $mid($1-,%ct,1))
n17=      inc %ctl 1
n18=      if (%ctl > 7) { var %ctl = 1 }
n19=      inc %ct 1
n20=    }
n21=    return %new $+ 
n22=  }
n23=}
n24=bububu { var %a, %b = $regsub($1,/(?<=\S{ $+ $2})\S/g,$replace($$3,\,\\,$,\$),%a) | return %a }
n25=scomponiparola { 
n26=  if ($isid) { var %d = return | tokenize 32 $1- }
n27=  else var %d = echo -a | var %z = $0,%w = 1,%.
n28=  while (%w <= %z) { var %v = $ [ $+ [ %w ] ],%y = $len(%v),%r = $null
n29=    while (%y) { var %x = $rand(1,%y),%r = %r $mid(%v,%x,1),%v = $left(%v,$calc(%x - 1)) $+ $right(%v,$calc(%y - %x)) | dec %y }
n30=  %. = %. %r | inc %w } | %d %. 
n31=}
n32=invertiprl {
n33=  var %len = $len($1-) 
n34=  var %return = $null 
n35=  while (%len > 0) {
n36=    var %return = %return $+ $mid($1-,%len,1) $+ $chr(32) 
n37=    dec %len 
n38=  } 
n39=  return %return 
n40=}
n41=bobobo {
n42=  var %a 1
n43=  while (%a <= $len($1)) {
n44=    if ($mid($1,%a,1)) { var %b = %b $+ $chr(167) $+ $mid($1,%a,1) }
n45=    else { var %b = %b $+ $chr(32) }
n46=    inc %a 
n47=  }
n48=  var %b = $right(%b,$calc($len(%b) - 1))
n49=  var %a 1
n50=  while (%a <= $calc($len($1) - $2)) {
n51=    :abc
n52=    var %c $rand(1,$numtok(%b,167))
n53=    if (%c != 1) { var %b = $puttok(%b,$3,%c,167) | inc %a }
n54=    else { goto abc }
n55=  }
n56=  return $remove(%b,$chr(167))
n57=}