What PC? 1997 December/WPCDEC97.ISO/DXRS/GROWDEC.DXR/00022_GROQuitCD.ls

Text File | 1997-10-14 | 2.9 KB | 80 lines

on GROQuitCD
  global GROQuittingList, IFLQuitsprite, GROQuitCounter, GROChooseQuit
  if rollOver(IFLQuitsprite) then
    set GROChooseQuit to 0
    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)
      if the mouseDown then
        if the castNum of sprite 10 <> "0" then
          if the type of member the member of sprite 10 = #digitalVideo then
            set the movieRate of sprite 10 to 0
          end if
        end if
        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 0
        set the castNum of sprite IFLQuitsprite to 86
        set the ink of sprite IFLQuitsprite to 36
        updateStage()
        exit repeat
      end if
    end repeat
    if GROChooseQuit = 1 then
      repeat while 1
        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
          if the castNum of sprite 10 <> "0" then
            if the type of member the member of sprite 10 = #digitalVideo then
              set the movieRate of sprite 10 to 1
            end if
          end if
          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
    puppetPalette(0)
    go("Credits")
    updateStage()
  end if
end