home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / GTSWDEC.DXR / 00119_GTSQuitCD.ls < prev    next >
Encoding:
Text File  |  1997-10-15  |  2.0 KB  |  61 lines
  1. on GTSQuitCD
  2.   global GTSQuittingList, IFLQuitsprite, GTSQuitCounter, GTSChooseQuit
  3.   if rollOver(IFLQuitsprite) then
  4.     set the castNum of sprite getAt(GTSQuittingList, 1) to getAt(GTSQuittingList, 3)
  5.     set the ink of sprite getAt(GTSQuittingList, 1) to getAt(GTSQuittingList, 5)
  6.     updateStage()
  7.     repeat while rollOver(IFLQuitsprite)
  8.       if the mouseDown then
  9.         set GTSChooseQuit to 1
  10.         set the castNum of sprite 48 to 123
  11.         set the locH of sprite 48 to 500
  12.         set the locV of sprite 48 to 420
  13.         set the ink of sprite 48 to 37
  14.         set the castNum of sprite IFLQuitsprite to 122
  15.         updateStage()
  16.         exit repeat
  17.       end if
  18.     end repeat
  19.     if GTSChooseQuit = 1 then
  20.       repeat while 1
  21.         set GTSQuitCounter to 1 + GTSQuitCounter
  22.         wait(0.002)
  23.         if GTSQuitCounter = 30 then
  24.           set the castNum of sprite 48 to the castNum of sprite 48 + 1
  25.           updateStage()
  26.         else
  27.           if GTSQuitCounter = 60 then
  28.             set GTSQuitCounter to 0
  29.             set the castNum of sprite 48 to the castNum of sprite 48 - 1
  30.             updateStage()
  31.           end if
  32.         end if
  33.         if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  34.           set the locH of sprite 48 to 2000
  35.           set GTSQuitCounter to 0
  36.           set GTSChooseQuit to 0
  37.           exit repeat
  38.         end if
  39.         if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  40.           set GTSQuitCounter to 0
  41.           set GTSChooseQuit to 2
  42.           exit repeat
  43.         end if
  44.       end repeat
  45.     end if
  46.     if GTSChooseQuit = 0 then
  47.       set the castNum of sprite getAt(GTSQuittingList, 1) to getAt(GTSQuittingList, 2)
  48.       set the ink of sprite getAt(GTSQuittingList, 1) to getAt(GTSQuittingList, 4)
  49.       updateStage()
  50.     end if
  51.   end if
  52.   if GTSChooseQuit = 2 then
  53.     repeat with t = 1 to 48
  54.       puppetSprite(t, 0)
  55.     end repeat
  56.     forget(window "TRYGAME")
  57.     go("Credits")
  58.     updateStage()
  59.   end if
  60. end
  61.