home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 January / WPCJAN97.ISO / refwjan.dxr / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-11-07  |  3.2 KB  |  76 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLReferenceNameSprite, IFLMovieNameList, REFHeadList, GTSLASTRolledover
  3.   repeat with t = 39 to 47
  4.     set WHICHHEADING to getAt(REFHeadList, t - IFLSpriteDifference)
  5.     if (getAt(WHICHHEADING, 5) = 1) and not rollOver(t) then
  6.       setAt(WHICHHEADING, 5, 0)
  7.       if GTSLASTRolledover = t then
  8.         set the castNum of sprite 48 to -1
  9.         set the locH of sprite 48 to 2000
  10.         set GTSLASTRolledover to 0
  11.         updateStage()
  12.         set the castNum of sprite 48 to 115
  13.         updateStage()
  14.         if the castNum of sprite getAt(WHICHHEADING, 7) <> the number of member "ALLNAmesREF" then
  15.           set the locH of sprite getAt(WHICHHEADING, 7) to 2000
  16.         end if
  17.       end if
  18.     end if
  19.     if rollOver(t) and (t <> IFLReferenceNameSprite) then
  20.       set WHICHHEADING to getAt(REFHeadList, t - IFLSpriteDifference)
  21.       if getAt(WHICHHEADING, 5) = 0 then
  22.         set the castNum of sprite 48 to the number of member getAt(WHICHHEADING, 1)
  23.         set the loc of sprite 48 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
  24.         set the ink of sprite 48 to getAt(WHICHHEADING, 4)
  25.         set the castNum of sprite getAt(WHICHHEADING, 7) to the number of member getAt(WHICHHEADING, 6)
  26.         set the loc of sprite getAt(WHICHHEADING, 7) to point(200, 200)
  27.         set the ink of sprite getAt(WHICHHEADING, 7) to 0
  28.         setAt(WHICHHEADING, 5, 1)
  29.         set GTSLASTRolledover to t
  30.         updateStage()
  31.       end if
  32.       set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  33.       if value = 3 then
  34.         set the castNum of sprite t to the castNum of sprite t + 1
  35.         setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  36.         updateStage()
  37.       else
  38.         if value = 6 then
  39.           set the castNum of sprite t to the castNum of sprite t - 1
  40.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  41.           updateStage()
  42.         else
  43.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  44.         end if
  45.       end if
  46.       if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (IFLCanChange = 1) then
  47.         set IFLCanChange to 0
  48.         set IFLRolledOver to t
  49.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  50.         if value < 4 then
  51.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  52.         else
  53.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  54.           set the castNum of sprite t to the castNum of sprite t - 1
  55.           updateStage()
  56.         end if
  57.         updateStage()
  58.         set the locH of sprite 48 to 2000
  59.         set the locH of sprite 21 to 2000
  60.         updateStage()
  61.         REFLeave(1)
  62.         repeat with g = 1 to 15
  63.           set the castNum of sprite IFLReferenceNameSprite to the castNum of sprite IFLReferenceNameSprite + 1
  64.           updateStage()
  65.         end repeat
  66.         cursor(-1)
  67.         puppetSound(0)
  68.         updateStage()
  69.         unloadMember(member 27, 212)
  70.         updateStage()
  71.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  72.       end if
  73.     end if
  74.   end repeat
  75. end
  76.