;wave makes a wavy line of props to mouse point
;usage "wav  "
;redone for ipt1
{ MOUSEPOS y = x = x POSX - dx = y POSY - dy = "" CHATSTR =
  dx DUP * dy DUP * + SQUAREROOT ll = "$2" GREPSUB ATOI wh =
  dx wh * ll / bx = dy wh * ll / by =
  { wh poldis = cs ll wh 2 * / 1 + 180 * * ll / poldir =
    poldir sine poldis * 1000 / vx = 
    "$1" GREPSUB POSX dx cs * ll / + by vx * wh / + 22 -
   POSY dy cs * ll / +  bx vx * wh / - 22 - ADDLOOSEPROP
   14 cs += } { cs ll 7 + < } WHILE
} CHATSTR "^wav (.*) ([0-9]+)$" GREPSTR IF