;skiss says specified string in ! balloons from you to mousepos
;uses ipt1 string commands, by Foxy
;usage "skiss "
{ "" CHATSTR = "$1" GREPSUB wts = 0 ofs = wts STRLEN tl =
  MOUSEPOS POSY - dy = POSX - dx =
 { ofs ++ dx ofs * tl / ddx = dy ofs * tl / ddy =
   "!" wts ofs 1 - 1 SUBSTRING + POSX ddx + POSY ddy + SAYAT
 } { ofs tl < } WHILE
} CHATSTR "^skiss (.*)$" GREPSTR IF