home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / HANWDEC.DXR / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  3.2 KB  |  73 lines

  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLHandsNameSprite, IFLMovieNameList, HANHeadList, GTSLASTRolledover
  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.       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.         if the castNum of sprite getAt(WHICHHEADING, 7) <> the number of member "ALLNAmesHAN" then
  12.           set the locH of sprite getAt(WHICHHEADING, 7) to 2000
  13.         end if
  14.       end if
  15.     end if
  16.     if rollOver(t) and (t <> IFLHandsNameSprite) then
  17.       set WHICHHEADING to getAt(HANHeadList, t - IFLSpriteDifference)
  18.       if getAt(WHICHHEADING, 5) = 0 then
  19.         set the castNum of sprite 37 to the number of member getAt(WHICHHEADING, 1)
  20.         set the loc of sprite 37 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
  21.         set the ink of sprite 37 to getAt(WHICHHEADING, 4)
  22.         set the castNum of sprite getAt(WHICHHEADING, 7) to the number of member getAt(WHICHHEADING, 6)
  23.         set the loc of sprite getAt(WHICHHEADING, 7) to point(200, 200)
  24.         set the ink of sprite getAt(WHICHHEADING, 7) to 0
  25.         setAt(WHICHHEADING, 5, 1)
  26.         set GTSLASTRolledover to t
  27.         updateStage()
  28.       end if
  29.       set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  30.       if value = 3 then
  31.         set the castNum of sprite t to the castNum of sprite t + 1
  32.         setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  33.       else
  34.         if value = 6 then
  35.           set the castNum of sprite t to the castNum of sprite t - 1
  36.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  37.         else
  38.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  39.         end if
  40.       end if
  41.       if rollOver(t) and (IFLRolledOver <> t) and the mouseDown and (IFLCanChange = 1) then
  42.         set IFLCanChange to 0
  43.         set IFLRolledOver to t
  44.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  45.         if value < 4 then
  46.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  47.         else
  48.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  49.           set the castNum of sprite t to the castNum of sprite t - 1
  50.         end if
  51.         updateStage()
  52.         set the locH of sprite 37 to 2000
  53.         set the locH of sprite 30 to 2000
  54.         updateStage()
  55.         set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite + 1
  56.         HANLeave(1)
  57.         set the locH of sprite 2 to 2000
  58.         updateStage()
  59.         repeat with g = 1 to 10
  60.           set the castNum of sprite IFLHandsNameSprite to the castNum of sprite IFLHandsNameSprite + 1
  61.           updateStage()
  62.         end repeat
  63.         cursor(-1)
  64.         puppetSound(0)
  65.         updateStage()
  66.         unloadMember(member 30, 100)
  67.         updateStage()
  68.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  69.       end if
  70.     end if
  71.   end repeat
  72. end
  73.