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