What PC? 1996 August/WPCAUG96.ISO/geswaug.dxr/00005_IFLsectionWordAnimate.ls

Text File | 1996-06-14 | 1.8 KB | 44 lines

on IFLsectionWordAnimate
  global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLGettingSNameSprite, IFLMovieNameList
  repeat with t = 39 to 47
    if rollOver(t) and (t <> IFLGettingSNameSprite) 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()
        GESLeave(1)
        set the castNum of sprite IFLGettingSNameSprite to 68
        set the ink of sprite IFLGettingSNameSprite to 36
        repeat with g = 1 to 9
          set the castNum of sprite IFLGettingSNameSprite to the castNum of sprite IFLGettingSNameSprite + 1
          wait(0.05)
          updateStage()
        end repeat
        cursor(-1)
        puppetSound(0)
        updateStage()
        go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
      end if
    end if
  end repeat
end