home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / resw08f.dxr / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.8 KB  |  65 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLResourcesNameSprite, IFLMovieNameList, RESHEADList
  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.       set the castNum of sprite 30 to -1
  8.       set the locH of sprite 30 to 2000
  9.     end if
  10.     if rollOver(t) and (t <> IFLResourcesNameSprite) then
  11.       set WHICHHEADING to getAt(RESHEADList, t - IFLSpriteDifference)
  12.       if getAt(WHICHHEADING, 5) = 0 then
  13.         set the castNum of sprite 30 to the number of member getAt(WHICHHEADING, 1)
  14.         set the loc of sprite 30 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
  15.         set the ink of sprite 30 to getAt(WHICHHEADING, 4)
  16.         setAt(WHICHHEADING, 5, 1)
  17.         updateStage()
  18.       end if
  19.       set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  20.       if value = 3 then
  21.         set the castNum of sprite t to the castNum of sprite t + 1
  22.         setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  23.       else
  24.         if value = 6 then
  25.           set the castNum of sprite t to the castNum of sprite t - 1
  26.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  27.         else
  28.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  29.         end if
  30.       end if
  31.       if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (IFLCanChange = 1) then
  32.         set IFLCanChange to 0
  33.         set IFLRolledOver to t
  34.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  35.         if value < 4 then
  36.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  37.         else
  38.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  39.           set the castNum of sprite t to the castNum of sprite t - 1
  40.         end if
  41.         updateStage()
  42.         RESLeave(1)
  43.         set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  44.         repeat with height in [210, 200, 166, 136, 106]
  45.           set the locV of sprite IFLResourcesNameSprite to height
  46.           updateStage()
  47.           wait(0.05)
  48.         end repeat
  49.         set the locH of sprite 2 to 2000
  50.         set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  51.         updateStage()
  52.         repeat with g = 1 to 6
  53.           set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  54.           wait(0.05)
  55.           updateStage()
  56.         end repeat
  57.         cursor(-1)
  58.         puppetSound(0)
  59.         updateStage()
  60.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  61.       end if
  62.     end if
  63.   end repeat
  64. end
  65.