What PC? 1997 February/WPCFEB97.ISO/dxrs/mgiwfeb.dxr/00005_IFLsectionWordAnimate.ls

Text File | 1996-12-05 | 3.4 KB | 82 lines

on IFLsectionWordAnimate
  global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLMAGNETNameSprite, IFLMovieNameList, MGISTONEON, STComp, MGIHeadList, GTSLASTRolledover, MGIRadio
  repeat with t = 39 to 47
    set WHICHHEADING to getAt(MGIHeadList, t - IFLSpriteDifference)
    if (getAt(WHICHHEADING, 5) = 1) and not rollOver(t) then
      setAt(WHICHHEADING, 5, 0)
      if GTSLASTRolledover = t then
        set the castNum of sprite 27 to -1
        set the locH of sprite 27 to 2000
        updateStage()
        set the castNum of sprite 27 to 77
        updateStage()
        set GTSLASTRolledover to 0
        if the castNum of sprite getAt(WHICHHEADING, 7) <> the number of member "ALLNAmesMGI" then
          set the locH of sprite getAt(WHICHHEADING, 7) to 2000
        end if
      end if
    end if
    if rollOver(t) and (t <> IFLMAGNETNameSprite) then
      set WHICHHEADING to getAt(MGIHeadList, t - IFLSpriteDifference)
      if getAt(WHICHHEADING, 5) = 0 then
        if (MGIRadio = 0) and (MGISTONEON = 0) then
          set the castNum of sprite 27 to the number of member getAt(WHICHHEADING, 1)
          set the loc of sprite 27 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
          set the ink of sprite 27 to getAt(WHICHHEADING, 4)
        end if
        set the castNum of sprite getAt(WHICHHEADING, 7) to the number of member getAt(WHICHHEADING, 6)
        set the loc of sprite getAt(WHICHHEADING, 7) to point(200, 200)
        set the ink of sprite getAt(WHICHHEADING, 7) to 0
        setAt(WHICHHEADING, 5, 1)
        set GTSLASTRolledover to t
        updateStage()
      end if
      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")
        else
          if MGIRadio = 1 then
            forget(window "RADIO")
          end if
        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()
        set the locH of sprite 26 to 2000
        set the locH of sprite 27 to 2000
        updateStage()
        MGILeave(1)
        repeat with g = 1 to 10
          set the castNum of sprite IFLMAGNETNameSprite to the castNum of sprite IFLMAGNETNameSprite + 1
          updateStage()
        end repeat
        cursor(-1)
        puppetSound(0)
        updateStage()
        unloadMember(member 23, 170)
        updateStage()
        go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
      end if
    end if
  end repeat
end