home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / Internal_6_INTChooseQuit.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  1.5 KB  |  45 lines
  1. on INTChooseQuit
  2.   global DriveLtr, MainMenuChooseList, MainBackgroundSprite, MainHilightSprite1, MainHilightSprite2, MAINQuitButtonSprite
  3.   set quitbuttonrectangle to rect(345, 524, 443, 626)
  4.   set whereismouse to point(the mouseV, the mouseH)
  5.   if inside(whereismouse, quitbuttonrectangle) = 1 then
  6.     set the member of sprite MAINQuitButtonSprite to member "INTQuitTwo"
  7.     set the loc of sprite MAINQuitButtonSprite to point(525, 345)
  8.     set the ink of sprite MAINQuitButtonSprite to 0
  9.     updateStage()
  10.     repeat while inside(whereismouse, quitbuttonrectangle) = 1
  11.       set whereismouse to point(the mouseV, the mouseH)
  12.       if the mouseDown then
  13.         set the member of sprite MAINQuitButtonSprite to member "INTQuitThree"
  14.         updateStage()
  15.         repeat while the mouseDown
  16.         end repeat
  17.         set whereismouse to point(the mouseV, the mouseH)
  18.         if inside(whereismouse, quitbuttonrectangle) = 1 then
  19.           set SecTLeave to 1
  20.         else
  21.           set SecTLeave to 0
  22.         end if
  23.         exit repeat
  24.       end if
  25.     end repeat
  26.     set the member of sprite MAINQuitButtonSprite to member "INTQuitOne"
  27.     updateStage()
  28.   end if
  29.   if SecTLeave = 1 then
  30.     set SecTLeave to 0
  31.     repeat with t = 1 to 48
  32.       set the puppet of sprite t to 1
  33.       set the locH of sprite t to 2000
  34.     end repeat
  35.     set the member of sprite 2 to member "DirLogo"
  36.     set the loc of sprite 2 to point(315, 241)
  37.     set the ink of sprite 2 to 0
  38.     updateStage()
  39.     startTimer()
  40.     repeat while the timer < (2 * 60)
  41.     end repeat
  42.     quit()
  43.   end if
  44. end
  45.