alias reverse {
  var %old = $strip($1-), %temp = $len(%old), %char, %string
  while (%temp > 0) {
    %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
    else { %string = %string $+ %char } | dec %temp 
  }
  if ($isid) return %string | else msg # %string
}

alias ascii {

  set %ascii $1-

  %ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)

  say %ascii

  unset %ascii
} 

alias rainbow {
  var %temp = 1, %max = $len($1-), %char, %string, %color = 4 7 8 3 12 6, %cs = $rand(1,$numtok(%color,32))
  while (%temp <= %max) {
    %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
    elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
    else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
    inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
  }
  if ($isid) return %string | else msg # %string
}

alias rainon {
  if ($1 == help) {
    echo "/rainon" == $rainbow(NORMAL)
    echo "/rainon b" == $rainbow(BOLD)
    echo "/rainon u" == $rainbow(UNDERLINE)
    echo "/rainon bu" == $rainbow(BOLD UNDERLINE)
  }
  elseif ($1 == b) {
    set %raintext 4
  }
  elseif ($1 == u) {
    set %raintext 3
  }
  elseif ($1 == bu) {
    set %raintext 2
  }
  else {
    set %raintext 1
  }
}

alias rainoff {
  unset %raintext
}

on *:INPUT:#:{
  if ($left($1,1) != /) && ($left($1,1) != !) {
    if (%raintext == 4) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 3) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 2) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 1) {
      rainbow $1-
      haltdef
    }
  }
}