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