home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / hanw08f.dxr / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.5 KB  |  59 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLHandsNameSprite, IFLMovieNameList, HANHeadList
  3.   repeat with t = 39 to 47
  4.     set WHICHHEADING to getAt(HANHeadList, 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 <> IFLHandsNameSprite) then
  11.       set WHICHHEADING to getAt(HANHeadList, 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.         set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite + 1
  43.         HANLeave(1)
  44.         set the locH of sprite 2 to 2000
  45.         updateStage()
  46.         repeat with g = 1 to 10
  47.           set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite + 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.