home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / reswaug.dxr / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  2.1 KB  |  51 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLResourcesNameSprite, IFLMovieNameList
  3.   repeat with t = 39 to 47
  4.     if rollOver(t) and (t <> IFLResourcesNameSprite) then
  5.       set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  6.       if value = 3 then
  7.         set the castNum of sprite t to the castNum of sprite t + 1
  8.         setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  9.       else
  10.         if value = 6 then
  11.           set the castNum of sprite t to the castNum of sprite t - 1
  12.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  13.         else
  14.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  15.         end if
  16.       end if
  17.       if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (IFLCanChange = 1) then
  18.         set IFLCanChange to 0
  19.         set IFLRolledOver to t
  20.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  21.         if value < 4 then
  22.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  23.         else
  24.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  25.           set the castNum of sprite t to the castNum of sprite t - 1
  26.         end if
  27.         updateStage()
  28.         RESLeave(1)
  29.         set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  30.         repeat with height in [210, 200, 166, 136, 106]
  31.           set the locV of sprite IFLResourcesNameSprite to height
  32.           updateStage()
  33.           wait(0.05)
  34.         end repeat
  35.         set the locH of sprite 2 to 2000
  36.         set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  37.         updateStage()
  38.         repeat with g = 1 to 6
  39.           set the castNum of sprite IFLResourcesNameSprite to the castNum of sprite IFLResourcesNameSprite + 1
  40.           wait(0.05)
  41.           updateStage()
  42.         end repeat
  43.         cursor(-1)
  44.         puppetSound(0)
  45.         updateStage()
  46.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  47.       end if
  48.     end if
  49.   end repeat
  50. end
  51.