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