What PC? 1996 August/WPCAUG96.ISO/geswaug.dxr/00025_GESNoteQuitCD.ls

Text File | 1996-06-14 | 2.6 KB | 70 lines

on GESnoteQuitCD
  global GESnotebookQuittingList, IFLQuitsprite, GESQuitCounter, GESChooseQuit, GESWhichXplor
  if rollOver(IFLQuitsprite) then
    repeat with t = 1 to count(GESnotebookQuittingList)
      if t <> 1 then
        setAt(getAt(GESnotebookQuittingList, t), 2, the castNum of sprite getAt(getAt(GESnotebookQuittingList, t), 1))
      end if
      set the castNum of sprite getAt(getAt(GESnotebookQuittingList, t), 1) to getAt(getAt(GESnotebookQuittingList, t), 3)
      set the ink of sprite getAt(getAt(GESnotebookQuittingList, t), 1) to getAt(getAt(GESnotebookQuittingList, t), 5)
    end repeat
    updateStage()
    repeat while rollOver(IFLQuitsprite)
      if the mouseDown then
        set GESChooseQuit to 1
        set the castNum of sprite 48 to 503
        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 502
        set GESWhereH to the locH of sprite 35
        set the locH of sprite 35 to 2000
        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
          set the locH of sprite 35 to GESWhereH
          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(GESnotebookQuittingList)
        set the castNum of sprite getAt(getAt(GESnotebookQuittingList, t), 1) to getAt(getAt(GESnotebookQuittingList, t), 2)
        set the ink of sprite getAt(getAt(GESnotebookQuittingList, t), 1) to getAt(getAt(GESnotebookQuittingList, 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