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