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

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

on IFLsectionWordAnimate
  global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLMAGNETNameSprite, IFLMovieNameList, MGISTONEON
  repeat with t = 39 to 47
    if rollOver(t) and (t <> IFLMAGNETNameSprite) 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
        if MGISTONEON = 1 then
          forget(window "STONEY")
        end if
        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()
        MGILeave(1)
        repeat with g = 1 to 10
          set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite + 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