home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GESWDEC.DXR / 00015_GESQuitCD.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.6 KB  |  75 lines
  1. on GESQuitCD
  2.   global GESQuittingList, IFLQuitsprite, GESQuitCounter, GESChooseQuit, GESWhichXplor
  3.   if rollOver(IFLQuitsprite) then
  4.     repeat with t = 1 to count(GESQuittingList)
  5.       if t <> 1 then
  6.         setAt(getAt(GESQuittingList, t), 2, the castNum of sprite getAt(getAt(GESQuittingList, t), 1))
  7.       end if
  8.       set the castNum of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 3)
  9.       set the ink of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 5)
  10.     end repeat
  11.     updateStage()
  12.     repeat while rollOver(IFLQuitsprite)
  13.       if the mouseDown then
  14.         set GESChooseQuit to 1
  15.         set the castNum of sprite 48 to 253
  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 39
  19.         set the castNum of sprite IFLQuitsprite to 252
  20.         set GESWhereH to the locH of sprite 30
  21.         set the locH of sprite 30 to 2000
  22.         updateStage()
  23.         exit repeat
  24.       end if
  25.     end repeat
  26.     if GESChooseQuit = 1 then
  27.       repeat while 1
  28.         set GESQuitCounter to 1 + GESQuitCounter
  29.         wait(0.002)
  30.         if GESQuitCounter = 30 then
  31.           set the castNum of sprite 48 to the castNum of sprite 48 + 1
  32.           updateStage()
  33.         else
  34.           if GESQuitCounter = 60 then
  35.             set GESQuitCounter to 0
  36.             set the castNum of sprite 48 to the castNum of sprite 48 - 1
  37.             updateStage()
  38.           end if
  39.         end if
  40.         if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  41.           set the locH of sprite 48 to 2000
  42.           set GESQuitCounter to 0
  43.           set GESChooseQuit to 0
  44.           set the locH of sprite 30 to GESWhereH
  45.           exit repeat
  46.         end if
  47.         if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  48.           set GESQuitCounter to 0
  49.           set GESChooseQuit to 2
  50.           exit repeat
  51.         end if
  52.       end repeat
  53.     end if
  54.     if GESChooseQuit = 0 then
  55.       repeat with t = 1 to count(GESQuittingList)
  56.         set the castNum of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 2)
  57.         set the ink of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 4)
  58.       end repeat
  59.       updateStage()
  60.     end if
  61.   end if
  62.   if GESChooseQuit = 2 then
  63.     repeat with t = 1 to 48
  64.       puppetSprite(t, 0)
  65.       set the locH of sprite t to 2000
  66.     end repeat
  67.     updateStage()
  68.     puppetPalette(0)
  69.     updateStage()
  70.     puppetPalette("master")
  71.     go("Credits")
  72.     updateStage()
  73.   end if
  74. end
  75.