alias me {
  if (%wrep == on) {
    describe $chan $wordreplace($1-) 
  }
  else {
    describe $chan $1-
  }
}

Breaks /me for query window use $active instead of $chan
or maybe better restrict replace to channel and lose the
me alias and do:

on 1:input:#: {
  if (%wrep == on) {
    if ($1 == /me) {
       haltdef
       me $wordreplace($1-)
    }
    elseif ($left($1,1) == /) {
      return
    }
    else {
      haltdef
      say $wordreplace($1-)
    }
  }
}

Also maybe use case sensitive replacecs followed by
plain replace to prevent kicks for Word worD etc..

%rep = $replacecs(%rep,WORD,13WÒRD1)
; group followed by
%rep = $replace(%rep,word,13wórd1)

Also maybe put all the replace into one
$replacecs(%rep,WORD1,NEWWORD1,WORD2,NEWWORD2)