{
"" CHATSTR =
"$2" GREPSUB dir =
{ "h" dir = } "" dir == IF
"$4" GREPSUB msg =
MOUSEPOS y = x =
"$1" GREPSUB ax =
"$3" GREPSUB ay =
{
ax ATOI ax =
{ 29 ax = } ax 29 > IF
ax x +=
} "" ax == NOT IF
{
ay ATOI ay =
{ 29 ay = } ay 29 > IF
ay y +=
} "" ay == NOT IF
{
{
"$1" GREPSUB char = "$2" GREPSUB msg =
{
18
} {
"besm" char UPPERCASE &
x y ADDLOOSEPROP
29
} char " " == IFELSE spc =
{
spc x +=
} dir "h" SUBSTR dir "d" SUBSTR OR IF
{
spc y +=
} dir "v" SUBSTR dir "d" SUBSTR OR IF
} {
msg "(.)(.*)" GREPSTR
} WHILE
} dir "h" == dir "v" == OR dir "d" == OR msg "" == NOT AND IF
} lowchat "^blocks([0-9]*)([dhv]*)([0-9]*) *([ a-z]*)$" GREPSTR IF

Commands: blocks, or blocksh (horizontal), blocksd (diagonal), blocksv (vertical), blocks#h#, blocks#d#, blocks#v# where the initial MOUSEPOS X,Y starts with #,# offset.
Standard Usage: blocks <message>