Encode no caps

alias encode {
  if ($1 == on) { unset %encode | echo -a $timestamp <4Encode> 3On | set %encode on }
  if ($1 == off) { unset %encode | echo -a $timestamp <4Encode> 4Off }
}

on *:INPUT:#encode: {
  if (%encode == on) && (/ !isin $1) {
    var %c $strip($encode($1-,m)),%a $len(%c)
    while %a >= 1 {
      var %b %b $+ $replace($mid(%c,%a,1),$chr(32),$str($chr(32),2))
      dec %a
    }
    msg $active — $replacexcs($replacex(%b,=,),A,1,B,2,C,3,D,4,E,5,F,6,G,7,H,8,I,9,J,0,K,!,L,@,M,#,N,%,O,^,P,&,Q,*,R,`,S,~,T,',W,<,U,>)
    echo $chan $timestamp <3 $+ $me $+ > $1-
    halt
  }
}

on *:text:*:#encode: {
  if (— isin $1) && ($2 != $null) {
    tokenize 32 $replacexcs($1-,A,1,B,2,C,3,D,4,E,5,F,6,G,7,H,8,I,9,J,0,K,!,L,@,M,#,N,%,O,^,P,&,Q,*,R,`,S,~,T,',W,<,U,>)
    var %c $strip($2-),%a $len(%c)
    while %a >= 1 {
      var %b %b $+ $replace($mid(%c,%a,1),$chr(32),$str($chr(32),2))
      dec %a
    }
    echo $chan $timestamp <4 $+ $nick $+ > $replacex($replacex($decode(%b,m),|,),$,§)
  }
}