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