; $text by tai
; Does a specified effect to a string of text
; Usage: $text(string).reverse/caps/lower/spaced/lc/rc/ud
; more effects to come

; $text by tai
; Does a specified effect to a string of text
; Usage: $text(string).reverse/caps/lower/spaced/lc/rc/ud
; more effects to come

alias text { 
  if ($1- && $isid) { 
    if ($prop) { 
      if ($v1 = reverse) { 
        var %x = $1-, %t = $len(%x), %i
        while (%t) { 
          %i = $+(%i,$mid(%x,%t,1),$chr(32))
          dec %t
        }
        return %i
      }
      if ($v1 = caps) { return $upper($1-) }
      if ($v1 = lower) { return $lower($1-) }
      if ($v1 = spaced) {
        var %x = $1-, %t = $len(%x), %i, %c = 1
        while (%c <= %t) { 
          %i = $+(%i,$chr(32),$mid(%x,%c,1))
          inc %c
        }
        return %i
      }
      if ($v1 = lc) {
        var %x = 1, %t
        while ($gettok($1-,%x,32)) {
          %t = $+(%t,$chr(32),$upper($left($v1,1)),$right($v1,-1))
          inc %x
        }
        return %t
      }
      if ($v1 = rc) { 
        var %x = $1-, %t = $len(%x), %i, %c = 1
        while (%c <= %t) { 
          %i = $+(%i,,$r(1,15),$mid(%x,%c,1),$chr(32))
          inc %c
        }
        return %i
      } 
      if ($v1 = ud) { 
        var %x = $1-, %t = $len(%x),%i,%c = 1
        while (%c <= %t) { 
          var %n $r(1,2)
          %i = $+(%i,$iif(%n = 1,$upper($mid(%x,%c,1)),$lower($mid(%x,%c,1))),$chr(32))
          inc %c
        }
        return %i
      }
    }
  }
}