Sunday That One Day/STOD_VFS_INVIS.ISO/pc/classr.dxr/00577_StartMovie.ls

Text File | 1995-09-15 | 349 b | 20 lines

on startMovie
  set the exitLock to 1
  clearGlobals()
  CursorOff()
  set the keyDownScript to "keyDownHandler"
  set the keyUpScript to "keyDownHandler"
end

on keyDownHandler
  dontPassEvent()
  if the commandDown and (the key = "q") then
    quit()
  end if
  if the keyCode = "53" then
    go("Black", "Quit")
  else
    nothing()
  end if
end