;>>198
;適当に改造して使え

onclick *getMouse
stop

*getMouse
  ttlMsg = "x1:" + x + " y1:" + y ;前にクリックした点
  ttlMsg += " / x2:" + mousex + " y2:" + mousey ;今クリックした点
  dx = x-mousex ;距離 X
  dy = y-mousey ;距離 Y
  if dx<0 : dx = -dx
  if dy<0 : dy = -dy
  ttlMsg += " / dx:" + dx + " dy:" + dy
  title ttlMsg
  x = mousex
  y = mousey
stop