Replacer (on INPUT)

menu channel {
  -
  $iif(%WordReplacer,$style(1)) Input Replacer
  .$iif(%WordReplacer,$style(1) Turn $iif(%WordReplacer,off)):unset %WordReplacer
  .-
  .$iif(%WordReplacer == Forrest,$style(1),$iif(%WordReplacer == Fire,$style(1),$iif(%WordReplacer == Ice,$style(1)))) Text Wrappers
  ..$iif(%WordReplacer == Forrest,$style(1)) Forrest Text $+($chr(40),$iif(%WordReplacer == Forrest,ON,OFF),$chr(41)): $iif(%WordReplacer == Forrest,unset %WordReplacer,set %WordReplacer Forrest)
  ..$iif(%WordReplacer == Fire,$style(1)) Fire Text $+($chr(40),$iif(%WordReplacer == Fire,ON,OFF),$chr(41)): $iif(%WordReplacer == Fire,unset %WordReplacer,set %WordReplacer Fire)
  ..$iif(%WordReplacer == Ice,$style(1)) Ice Text $+($chr(40),$iif(%WordReplacer == Ice,ON,OFF),$chr(41)): $iif(%WordReplacer == Ice,unset %WordReplacer,set %WordReplacer Ice)
  .-
  .$iif(%WordReplacer == FunkyText,$style(1)) Funky Text $+($chr(40),$iif(%WordReplacer == FunkyText,ON,OFF),$chr(41)): $iif(%WordReplacer == FunkyText,unset %WordReplacer,set %WordReplacer FunkyText)
  .$iif(%WordReplacer == Rainbow,$style(1)) Rainbow Text $+($chr(40),$iif(%WordReplacer == Rainbow,ON,OFF),$chr(41)): $iif(%WordReplacer == Rainbow,unset %WordReplacer,set %WordReplacer Rainbow)
  .$iif(%WordReplacer == Reverse,$style(1)) Reverse Text $+($chr(40),$iif(%WordReplacer == Reverse,ON,OFF),$chr(41)): $iif(%WordReplacer == Reverse,unset %WordReplacer,set %WordReplacer Reverse)
  .$iif(%WordReplacer == Drunk,$style(1)) Drunk Text $+($chr(40),$iif(%WordReplacer == Drunk,ON,OFF),$chr(41)): $iif(%WordReplacer == Drunk,unset %WordReplacer,set %WordReplacer Drunk)
  -
}
alias -l Forrest { return 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 $$1- 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-9,0/0,9/3,9/9,3/1,3/3,1/0,0 }
alias -l Fire { return 8,0 ,%0,8%`7,8,%8,7%`4,7,%7,4%`8,4 $$1- 7,4`%4,7%,8,7`%7,8%,0,8`%8,0%, }
alias -l Ice { return 11,0%0,11% 10,11%11,10% 2,10%10,2% 1,2%2,1%0,1  $$1-  2,1%1,2% 10,2%2,10% 11,10%10,11% 0,11%11,0% }
alias -l Drunk { return $replacecs($1-,x,×,X,×,s,§,S,§,D,Ð,d,Ð,p,Þ,P,þ,?,?,O,$c.rand.upper.o,o,$c.rand.lower.o,-,¬,>.<,[-.-]",$chr(41),$c.rand.hap,$chr(40),$c.rand.unhap,C,Ç,c,ç,U,Û,u,û,F,ƒ,f,ƒ)) }
alias -l Reverse { var %len = $len($1-), %return = $null | while (%len > 0) { var %return = %return $+ $mid($1-,%len,1) $+ $chr(32) | dec %len } | return %return }
alias -l Rainbow { haltdef | set -l %count 1 | while (%count <= $len($1-)) { set -l %rainbow %rainbow $+  $+ $gettok(04.07.08.09.11.13,$r(1,6),46) $+ ,01 $+ $iif($mid($1-,%count,1) != $chr(32),$mid($1-,%count,1),$chr(32) $+ $chr(32)) | inc %count } | return %rainbow }
on *:INPUT:#: {
  if ($istok(!uCount !Users,$replace($1,@,!,.,!),32)) { msg # There are currently $nick($iif($me ison $strip($2),$v2,#),0) users inside $iif($me ison $strip($2),$v2,#) | halt }
  elseif ($istok(!Calc !Count,$replace($1,@,!,.,!),32)) { set -u1 %numbers $iif($left($2,1) == $null,No numbers given...,$strip($2-)) | msg # $remove(%numbers,$chr(32)) 15= $bytes($calc($replace(%numbers,k,*1000,m,*1000000,pi,$pi)),bd) | halt }
  elseif ($left($1,1) != /) && ($left($1,1) != @) && ($left($1,1) != !) && ($left($1,1) != .) && (!$ctrlenter) {
    if (%WordReplacer == FunkyText) { msg # $replace($1-,a, ?,b, ?,c, ?,d, ?,e, ?,f, F,g, ?,h, h,i, i,j, j,k, k,l, ?,m, m,n, ?,o, ?,p, P,q, q,r, ?,s, ?,t, t,u, ?,v, v,w, w,x, ?,y, ?,z, z) }
    elseif (%WordReplacer == Drunk) { msg # $drunk($1-) }
    elseif (%WordReplacer == Reverse) { msg # $Reverse($1-) }
    elseif (%WordReplacer == Rainbow) { msg # $Rainbow($1-) }
    elseif (%WordReplacer == Fire) { msg # $Fire($1-) }
    elseif (%WordReplacer == Forrest) { msg # $Forrest($1-) }
    elseif (%WordReplacer == Ice) { msg # $Ice($1-) }
    else { msg # $+(9,$left($1,1),,$mid($1-,2,$len($1-))) } | halt
  }
}