What PC? 1996 August/WPCAUG96.ISO/faewaug.dxr/00004_IFLsectionWordAnimate.ls

Text File | 1996-06-14 | 1.7 KB | 43 lines

on IFLsectionWordAnimate
  global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, IFLFamilyNameSprite, IFLMovieNameList
  repeat with t = 39 to 47
    if rollOver(t) and (t <> IFLFamilyNameSprite) 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 (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()
        FAELeave(1)
        set the castNum of sprite IFLFamilyNameSprite to 16
        updateStage()
        repeat with g = 1 to 10
          set the castNum of sprite IFLFamilyNameSprite to the castNum of sprite IFLFamilyNameSprite + 1
          updateStage()
        end repeat
        cursor(-1)
        puppetSound(0)
        updateStage()
        go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
      end if
    end if
  end repeat
end