What PC? 1996 July/WPCJUL96.ISO/file.exe/RESFINJ.DXR/00005_IFLsectionWordAnimate.ls

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

on IFLsectionWordAnimate
  global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLResourcesNameSprite, IFLMovieNameList
  repeat with t = 39 to 47
    if rollOver(t) and (t <> IFLResourcesNameSprite) then
      set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
      if value = 3 then
        set the castNum of sprite t to the castNum of sprite t + 1
        setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
      else
        if value = 6 then
          set the castNum of sprite t to the castNum of sprite t - 1
          setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
        else
          setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
        end if
      end if
      if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (t <> 40) and (IFLCanChange = 1) then
        set IFLCanChange to 0
        set IFLRolledOver to t
        set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
        if value < 4 then
          setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
        else
          setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
          set the castNum of sprite t to the castNum of sprite t - 1
        end if
        updateStage()
        RESLeave(1)
        set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
        repeat with height in [210, 200, 166, 136, 106]
          set the locV of sprite IFLResourcesNameSprite to height
          updateStage()
          wait(0.05)
        end repeat
        set the locH of sprite 2 to 2000
        set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
        updateStage()
        repeat with g = 1 to 6
          set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
          wait(0.05)
          updateStage()
        end repeat
        cursor(-1)
        puppetSound(0)
        updateStage()
        play movie getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference)
      end if
      if rollOver(40) and the mouseDown then
        set TempNum to the castNum of sprite 48
        set the ink of sprite 48 to 0
        set the castNum of sprite 48 to 70
        set the locH of sprite 48 to 228
        set the locV of sprite 48 to 116
        updateStage()
        repeat while rollOver(48)
        end repeat
        set the castNum of sprite 48 to TempNum
        set the locH of sprite 48 to 2000
        updateStage()
      end if
    end if
  end repeat
end