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

Text File | 1996-06-17 | 1.6 KB | 41 lines

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