Code:
on $*:text:/^!(de|en)code ./i:#:msg # $$iif($1 == !encode,$encode($2-),$decode($2-))


i originally tried to be clever with $($ $+ $1( $2-),3) but realized that is exploitable frown

"The only excuse for making a useless script is that one admires it intensely" - Oscar Wilde