What PC? 1996 July/WPCJUL96.ISO/file.exe/GROFINJ.DXR/00070_GROQuitCD.ls

Text File | 1996-05-15 | 2.4 KB | 69 lines

on GROQuitCD
  global GROQuittingList, IFLQuitsprite, GROQuitCounter, GROChooseQuit
  if rollOver(IFLQuitsprite) then
    repeat with t = 1 to count(GROQuittingList)
      if t <> 1 then
        setAt(getAt(GROQuittingList, t), 2, the castNum of sprite getAt(getAt(GROQuittingList, t), 1))
      end if
      set the castNum of sprite getAt(getAt(GROQuittingList, t), 1) to getAt(getAt(GROQuittingList, t), 3)
      set the ink of sprite getAt(getAt(GROQuittingList, t), 1) to getAt(getAt(GROQuittingList, t), 5)
    end repeat
    updateStage()
    repeat while rollOver(IFLQuitsprite)
      GRONoise()
      if the mouseDown then
        set GROChooseQuit to 1
        set the castNum of sprite 48 to 82
        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 86
        updateStage()
        exit repeat
      end if
    end repeat
    if GROChooseQuit = 1 then
      repeat while 1
        GRONoise()
        wait(0.01)
        set GROQuitCounter to 1 + GROQuitCounter
        if GROQuitCounter = 15 then
          set the castNum of sprite 48 to the castNum of sprite 48 + 1
          updateStage()
        else
          if GROQuitCounter = 30 then
            set GROQuitCounter 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 GROQuitCounter to 0
          set GROChooseQuit 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 GROQuitCounter to 0
          set GROChooseQuit to 2
          exit repeat
        end if
      end repeat
    end if
    if GROChooseQuit = 0 then
      repeat with t = 1 to count(GROQuittingList)
        set the castNum of sprite getAt(getAt(GROQuittingList, t), 1) to getAt(getAt(GROQuittingList, t), 2)
        set the ink of sprite getAt(getAt(GROQuittingList, t), 1) to getAt(getAt(GROQuittingList, t), 4)
      end repeat
      updateStage()
    end if
  end if
  if GROChooseQuit = 2 then
    repeat with t = 1 to 48
      puppetSprite(t, 0)
    end repeat
    go("Credits")
    updateStage()
  end if
end