home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / ARTWDEC.DXR / 00017_ARTQuitCD.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.5 KB  |  71 lines
  1. on ARTQuitCD
  2.   global ARTQuittingList, IFLQuitsprite, ARTQuitCounter, ARTChooseQuit, ARTWhichPartList
  3.   if rollOver(IFLQuitsprite) then
  4.     repeat with t = 1 to count(ARTQuittingList)
  5.       set the castNum of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 3)
  6.       set the ink of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 5)
  7.     end repeat
  8.     repeat with f = 1 to count(ARTWhichPartList)
  9.       if getAt(ARTWhichPartList, f) = 1 then
  10.         if f = 3 then
  11.           set the locH of sprite 33 to 2000
  12.         end if
  13.       end if
  14.     end repeat
  15.     updateStage()
  16.     repeat while rollOver(IFLQuitsprite)
  17.       if the mouseDown then
  18.         set ARTChooseQuit to 1
  19.         set the castNum of sprite 48 to 203
  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 202
  24.         updateStage()
  25.         exit repeat
  26.       end if
  27.     end repeat
  28.     if ARTChooseQuit = 1 then
  29.       repeat while 1
  30.         set ARTQuitCounter to 1 + ARTQuitCounter
  31.         wait(0.002)
  32.         if ARTQuitCounter = 30 then
  33.           set the castNum of sprite 48 to the castNum of sprite 48 + 1
  34.           updateStage()
  35.         else
  36.           if ARTQuitCounter = 60 then
  37.             set ARTQuitCounter to 0
  38.             set the castNum of sprite 48 to the castNum of sprite 48 - 1
  39.             updateStage()
  40.           end if
  41.         end if
  42.         if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  43.           set the locH of sprite 48 to 2000
  44.           set ARTQuitCounter to 0
  45.           set ARTChooseQuit to 0
  46.           exit repeat
  47.         end if
  48.         if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  49.           set ARTQuitCounter to 0
  50.           set ARTChooseQuit to 2
  51.           exit repeat
  52.         end if
  53.       end repeat
  54.     end if
  55.     if ARTChooseQuit = 0 then
  56.       repeat with t = 1 to count(ARTQuittingList)
  57.         set the castNum of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 2)
  58.         set the ink of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 4)
  59.       end repeat
  60.       updateStage()
  61.     end if
  62.   end if
  63.   if ARTChooseQuit = 2 then
  64.     repeat with t = 1 to 48
  65.       puppetSprite(t, 0)
  66.     end repeat
  67.     go("Credits")
  68.     updateStage()
  69.   end if
  70. end
  71.