ON ENTER {
"Instructions in log" STATUSMSG
"Welcome to Backwards Speak" LOGMSG
"Type 'back on' to turn Back Speak on" LOGMSG
"Type 'back off' to turn Back Speak off" LOGMSG
}
ON OUTCHAT {
back GLOBAL
{ 1 back - back = "" CHATSTR = } CHATSTR "^back o[nf]f*$" GREPSTR IF
{ "" bck =
{ { CHATSTR "^(.*)(.)$" GREPSTR POP
"$1" GREPSUB CHATSTR = bck "$2" GREPSUB + bck = }
{ bck CHATSTR + bck = "" CHATSTR = } CHATSTR ".." GREPSTR IFELSE
} { CHATSTR "." GREPSTR } WHILE
bck CHATSTR =
} back IF
}