What PC? 1996 July/WPCJUL96.ISO/file.exe/GESFINJ.DXR/00015_GESQuitCD.ls

Text File | 1996-05-15 | 2.6 KB | 73 lines

on GESQuitCD
  global GESQuittingList, IFLQuitsprite, GESQuitCounter, GESChooseQuit, GESWhichXplor
  if rollOver(IFLQuitsprite) then
    repeat with t = 1 to count(GESQuittingList)
      if t <> 1 then
        setAt(getAt(GESQuittingList, t), 2, the castNum of sprite getAt(getAt(GESQuittingList, t), 1))
      end if
      set the castNum of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 3)
      set the ink of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 5)
    end repeat
    if GESWhichXplor = 1 then
      set the castNum of sprite 42 to 255
      set the ink of sprite 42 to 39
      set the castNum of sprite 40 to 256
      set the ink of sprite 40 to 39
    end if
    updateStage()
    repeat while rollOver(IFLQuitsprite)
      if the mouseDown then
        set GESChooseQuit to 1
        set the castNum of sprite 48 to 253
        set the locH of sprite 48 to 500
        set the locV of sprite 48 to 420
        set the ink of sprite 48 to 39
        set the castNum of sprite IFLQuitsprite to 252
        updateStage()
        exit repeat
      end if
    end repeat
    if GESChooseQuit = 1 then
      repeat while 1
        set GESQuitCounter to 1 + GESQuitCounter
        wait(0.002)
        if GESQuitCounter = 30 then
          set the castNum of sprite 48 to the castNum of sprite 48 + 1
          updateStage()
        else
          if GESQuitCounter = 60 then
            set GESQuitCounter to 0
            set the castNum of sprite 48 to the castNum of sprite 48 - 1
            updateStage()
          end if
        end if
        if (the mouseH > 548) and (the mouseH < 605) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
          set the locH of sprite 48 to 2000
          set GESQuitCounter to 0
          set GESChooseQuit to 0
          exit repeat
        end if
        if (the mouseH > 442) and (the mouseH < 504) and (the mouseV > 431) and (the mouseV < 469) and the mouseDown then
          set GESQuitCounter to 0
          set GESChooseQuit to 2
          exit repeat
        end if
      end repeat
    end if
    if GESChooseQuit = 0 then
      repeat with t = 1 to count(GESQuittingList)
        set the castNum of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 2)
        set the ink of sprite getAt(getAt(GESQuittingList, t), 1) to getAt(getAt(GESQuittingList, t), 4)
      end repeat
      updateStage()
    end if
  end if
  if GESChooseQuit = 2 then
    repeat with t = 1 to 48
      puppetSprite(t, 0)
    end repeat
    go("Credits")
    updateStage()
  end if
end