home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 June / WPCJUN97.ISO / dxrs / mgiwjun.dxr / 00012_MGIQuitCD.ls < prev    next >
Encoding:
Text File  |  1997-04-07  |  2.3 KB  |  65 lines
  1. on MGIQuitCD
  2.   global MGIQuittingList, IFLQuitsprite, MGIQuitCounter, MGIChooseQuit
  3.   if rollOver(IFLQuitsprite) then
  4.     repeat with t = 1 to count(MGIQuittingList)
  5.       set the castNum of sprite getAt(getAt(MGIQuittingList, t), 1) to getAt(getAt(MGIQuittingList, t), 3)
  6.       set the ink of sprite getAt(getAt(MGIQuittingList, t), 1) to getAt(getAt(MGIQuittingList, t), 5)
  7.     end repeat
  8.     updateStage()
  9.     repeat while rollOver(IFLQuitsprite)
  10.       if the mouseDown then
  11.         set MGIChooseQuit to 1
  12.         set the castNum of sprite 48 to 94
  13.         set the locH of sprite 48 to 500
  14.         set the locV of sprite 48 to 420
  15.         set the ink of sprite 48 to 36
  16.         set the castNum of sprite IFLQuitsprite to 93
  17.         updateStage()
  18.         exit repeat
  19.       end if
  20.     end repeat
  21.     if MGIChooseQuit = 1 then
  22.       repeat while 1
  23.         set MGIQuitCounter to 1 + MGIQuitCounter
  24.         if MGIQuitCounter = 60 then
  25.           set the castNum of sprite 48 to the castNum of sprite 48 + 1
  26.           updateStage()
  27.         else
  28.           if MGIQuitCounter = 120 then
  29.             set MGIQuitCounter to 0
  30.             set the castNum of sprite 48 to the castNum of sprite 48 - 1
  31.             updateStage()
  32.           end if
  33.         end if
  34.         if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  35.           set the locH of sprite 48 to 2000
  36.           set MGIQuitCounter to 0
  37.           set MGIChooseQuit to 0
  38.           exit repeat
  39.         end if
  40.         if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  41.           set MGIQuitCounter to 0
  42.           set MGIChooseQuit to 2
  43.           exit repeat
  44.         end if
  45.       end repeat
  46.     end if
  47.     if MGIChooseQuit = 0 then
  48.       repeat with t = 1 to count(MGIQuittingList)
  49.         set the castNum of sprite getAt(getAt(MGIQuittingList, t), 1) to getAt(getAt(MGIQuittingList, t), 2)
  50.         set the ink of sprite getAt(getAt(MGIQuittingList, t), 1) to getAt(getAt(MGIQuittingList, t), 4)
  51.       end repeat
  52.       updateStage()
  53.     end if
  54.   end if
  55.   if MGIChooseQuit = 2 then
  56.     forget(window "stoney")
  57.     updateStage()
  58.     repeat with t = 1 to 48
  59.       puppetSprite(t, 0)
  60.     end repeat
  61.     go("Credits")
  62.     updateStage()
  63.   end if
  64. end
  65.