;makes a spiral of props from you to mousepos-- by Foxy
;usage "whirlpool " redone for ipt1
{ "" CHATSTR = 0 poldir = MOUSEPOS y = x = 0 di =
  POSX x - DUP * POSY y - DUP * + SQUAREROOT poldis = 1000000 tl =
  { poldir sine poldis * 1000 / ddy = poldir cosine poldis * 1000 / ddx =
    POSX x ddx + - DUP * POSY y ddy + - DUP * + ttl =
     { { 1 di = } tl 1000000 < IF ttl tl = }
     { { 20 poldir  -= BREAK } di IF } ttl tl < IFELSE
      20 poldir += } { 380 poldir > } WHILE
  poldis tl = 18 ttl =
  { tl ttl * 18 / poldis =
    poldir sine poldis * 1000 / ddy = poldir cosine poldis * 1000 / ddx =
    "\"$1\" " GREPSUB x ddx + 22 - ITOA " " y ddy + 22 - ITOA + + +
    " ADDLOOSEPROP" + STRTOATOM 20 ttl - 10 * ALARMEXEC
   20 poldir += ttl --
  } {  ttl } WHILE
} CHATSTR "^whirlpool (.*)$" GREPSTR IF