home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / artw08f.dxr / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  2.3 KB  |  56 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLArtsNameSprite, IFLMovieNameList, ARTHeadList
  3.   repeat with t = 39 to 47
  4.     set WHICHHEADING to getAt(ARTHeadList, t - IFLSpriteDifference)
  5.     if (getAt(WHICHHEADING, 5) = 1) and not rollOver(t) then
  6.       setAt(WHICHHEADING, 5, 0)
  7.       set the castNum of sprite 22 to -1
  8.       set the locH of sprite 22 to 2000
  9.     end if
  10.     if rollOver(t) and (t <> IFLArtsNameSprite) then
  11.       set WHICHHEADING to getAt(ARTHeadList, t - IFLSpriteDifference)
  12.       if getAt(WHICHHEADING, 5) = 0 then
  13.         set the castNum of sprite 22 to the number of member getAt(WHICHHEADING, 1)
  14.         set the loc of sprite 22 to point(getAt(WHICHHEADING, 2), getAt(WHICHHEADING, 3))
  15.         set the ink of sprite 22 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.         ARTLeaveArts(1)
  43.         repeat with g = 1 to 9
  44.           set the castNum of sprite IFLArtsNameSprite to the castNum of sprite IFLArtsNameSprite + 1
  45.           wait(0.05)
  46.           updateStage()
  47.         end repeat
  48.         cursor(-1)
  49.         puppetSound(0)
  50.         updateStage()
  51.         go(1, getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference))
  52.       end if
  53.     end if
  54.   end repeat
  55. end
  56.