on *:input:#: {
if ($left($1,1) == %commandchar) {
if ($v1 isin $+(+?.*,$chr(40),$chr(41),^,$chr(36),$chr(91),$chr(93),$chr(123),$chr(125),$chr(124),\)) {
echo -s bla
var %a = $str($+(\,$v1),2)
}
else {
var %a = $str(%commandchar,2)
}
if ($regex($1,$+(/,%a,?\.?me/))) {
haltdef
me $regsubex($2-,/(".+?")/g,01\t)
}
elseif ($hget(replacing,$+(/,$remove($1,%commandchar)))) {
haltdef
say $regsubex($($v1,2),/(\*.+?\*)/g,01\t)
}
}
else {
haltdef
var %a = $1-
if ($hget(replacing,$1)) {
%a = $($hget(replacing,$1),2)
}
msg $chan $regsubex(%a,/(\*.+?\*)/g,06\t)
}
}