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