
global MouseX, MouseY


on startmovie
  cursor 200     -- Make invisible
  set MouseX = the mouseH
  set MouseY = the mouseV
end startmove


on stopmovie
  cursor -1      -- Arrow
  halt
  quit
end stopmovie


on idle
  if (the mouseH <> MouseX  OR  the mouseV <> MouseY) then
    stopmovie()
  else if (the mouseDown  OR  the rightMouseDown) then
    stopmovie()
  else if (the keyPressed <> "") then
    stopmovie()
  else if (the shiftDown  OR  the optionDown  OR  the commandDown) then
    stopmovie()
  end if
end idle
