home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / Intro.dxr / Internal_8_Exit.ls < prev    next >
Encoding:
Text File  |  2003-10-03  |  398 b   |  18 lines
  1. global scrWidth, scrHeight, scrDepth
  2.  
  3. on mouseDown
  4.   sound(1).stop()
  5.   sound(2).stop()
  6.   sound(3).stop()
  7.   sound(4).stop()
  8.   sound(5).stop()
  9.   sound(6).stop()
  10.   if the platform contains "Windows,32" then
  11.     baDisableSwitching(0)
  12.     OldSS = baDisableScreenSaver(0)
  13.     KeysOff = baDisableKeys(0, baWinHandle())
  14.     Ok = baSetDisplay(scrWidth, scrHeight, scrDepth, "temp", 0)
  15.   end if
  16.   quit()
  17. end
  18.