home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / artwaug.dxr / 00022_ARTQuitCD.ls < prev    next >
Encoding:
Text File  |  1996-06-17  |  3.2 KB  |  94 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 = 1 then
  14.           set the locH of sprite 34 to 2000
  15.           next repeat
  16.         end if
  17.         if f = 2 then
  18.           set the castNum of sprite 44 to 221
  19.           set the ink of sprite 44 to 0
  20.           set the castNum of sprite 42 to 222
  21.           set the ink of sprite 42 to 0
  22.           set the castNum of sprite 40 to 223
  23.           set the ink of sprite 40 to 0
  24.           next repeat
  25.         end if
  26.         if f = 3 then
  27.           set the locH of sprite 33 to 2000
  28.         end if
  29.       end if
  30.     end repeat
  31.     updateStage()
  32.     repeat while rollOver(IFLQuitsprite)
  33.       if the mouseDown then
  34.         set ARTChooseQuit to 1
  35.         set the castNum of sprite 48 to 203
  36.         set the locH of sprite 48 to 500
  37.         set the locV of sprite 48 to 420
  38.         set the ink of sprite 48 to 37
  39.         set the castNum of sprite IFLQuitsprite to 202
  40.         updateStage()
  41.         exit repeat
  42.       end if
  43.     end repeat
  44.     if ARTChooseQuit = 1 then
  45.       repeat while 1
  46.         set ARTQuitCounter to 1 + ARTQuitCounter
  47.         wait(0.002)
  48.         if ARTQuitCounter = 30 then
  49.           set the castNum of sprite 48 to the castNum of sprite 48 + 1
  50.           updateStage()
  51.         else
  52.           if ARTQuitCounter = 60 then
  53.             set ARTQuitCounter to 0
  54.             set the castNum of sprite 48 to the castNum of sprite 48 - 1
  55.             updateStage()
  56.           end if
  57.         end if
  58.         if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  59.           set the locH of sprite 48 to 2000
  60.           set ARTQuitCounter to 0
  61.           set ARTChooseQuit to 0
  62.           exit repeat
  63.         end if
  64.         if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
  65.           set ARTQuitCounter to 0
  66.           set ARTChooseQuit to 2
  67.           exit repeat
  68.         end if
  69.       end repeat
  70.     end if
  71.     if ARTChooseQuit = 0 then
  72.       repeat with t = 1 to count(ARTQuittingList)
  73.         set the castNum of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 2)
  74.         set the ink of sprite getAt(getAt(ARTQuittingList, t), 1) to getAt(getAt(ARTQuittingList, t), 4)
  75.       end repeat
  76.       repeat with f = 1 to count(ARTWhichPartList)
  77.         if getAt(ARTWhichPartList, f) = 1 then
  78.           if f = 1 then
  79.             set the locH of sprite 34 to 320
  80.           end if
  81.         end if
  82.       end repeat
  83.       updateStage()
  84.     end if
  85.   end if
  86.   if ARTChooseQuit = 2 then
  87.     repeat with t = 1 to 48
  88.       puppetSprite(t, 0)
  89.     end repeat
  90.     go("Credits")
  91.     updateStage()
  92.   end if
  93. end
  94.