home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / RESWDEC.DXR / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.3 KB  |  76 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLResourcesNameSprite, IFLMovieNameList, RESHEADList, GTSLASTRolledover
  3.   repeat with t = 39 to 47
  4.     set WHICHHEADING to getAt(RESHEADList, 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 37 to -1
  9.         set the locH of sprite 37 to 2000
  10.         set GTSLASTRolledover to 0
  11.         updateStage()
  12.         set the castNum of sprite 37 to 11
  13.         if the castNum of sprite getAt(WHICHHEADING, 7) <> the number of member "ALLNAmesRES" then
  14.           set the locH of sprite getAt(WHICHHEADING, 7) to 2000
  15.         end if
  16.         updateStage()
  17.       end if
  18.     end if
  19.     if rollOver(t) and (t <> IFLResourcesNameSprite) then
  20.       set WHICHHEADING to getAt(RESHEADList, t - IFLSpriteDifference)
  21.       if getAt(WHICHHEADING, 5) = 0 then
  22.         set the castNum of sprite 37 to the number of member getAt(WHICHHEADING, 1)
  23.         set the loc of sprite 37 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
  24.         set the ink of sprite 37 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.       else
  37.         if value = 6 then
  38.           set the castNum of sprite t to the castNum of sprite t - 1
  39.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  40.         else
  41.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  42.         end if
  43.       end if
  44.       if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (IFLCanChange = 1) then
  45.         set IFLCanChange to 0
  46.         set IFLRolledOver to t
  47.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  48.         if value < 4 then
  49.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  50.         else
  51.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  52.           set the castNum of sprite t to the castNum of sprite t - 1
  53.         end if
  54.         updateStage()
  55.         set the locH of sprite 37 to 2000
  56.         set the locH of sprite 30 to 2000
  57.         updateStage()
  58.         RESLeave(1)
  59.         set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  60.         updateStage()
  61.         set the locH of sprite 2 to 2000
  62.         repeat with g = 1 to 8
  63.           set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  64.           updateStage()
  65.         end repeat
  66.         cursor(-1)
  67.         puppetSound(0)
  68.         updateStage()
  69.         unloadMember(member 31, 108)
  70.         updateStage()
  71.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  72.       end if
  73.     end if
  74.   end repeat
  75. end
  76.