It can be perfected a bit by using the $replace identifier as such, without putting a halt and $2 in each routine:> on :input::{
var %1 = 4,1thank 7you
var %2 = 4,1Welcome 7back
var %3 = 4,1Be 7right 8back
var %4 = 4,1be 7back usoon
var %5 = 4,1got 7to 8go
var %6 = 4,1parents 7over 8shoulder
var %7 = 4,1im 7bored
var %8 = 4,1how 7are 8you
;so and so forth
if (/* !iswm $1) && (!$ctrlenter) && (!$inpaste) {
$iif($active == Status Window,echo -at,msg $active) $replace($1,ty,%1,wb,%2,brb,%3,bbs,%4,gtg,%5,pos,%6,ib,%7) $2-
halt
}
}