home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / REFFINJ.DXR / 00005_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  2.2 KB  |  58 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLReferenceNameSprite, IFLMovieNameList
  3.   repeat with t = 39 to 47
  4.     if rollOver(t) and (t <> IFLReferenceNameSprite) 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.         updateStage()
  10.       else
  11.         if value = 6 then
  12.           set the castNum of sprite t to the castNum of sprite t - 1
  13.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  14.           updateStage()
  15.         else
  16.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, value + 1)
  17.         end if
  18.       end if
  19.       if rollOver(t) and (IFLRolledOver <> t) and (t <> 40) and the mouseDown and (IFLCanChange = 1) then
  20.         set IFLCanChange to 0
  21.         set IFLRolledOver to t
  22.         set value to getAt(IFLhasLineFlashedList, t - IFLSpriteDifference)
  23.         if value < 4 then
  24.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  25.         else
  26.           setAt(IFLhasLineFlashedList, t - IFLSpriteDifference, 0)
  27.           set the castNum of sprite t to the castNum of sprite t - 1
  28.           updateStage()
  29.         end if
  30.         updateStage()
  31.         REFLeave(1)
  32.         repeat with g = 1 to 15
  33.           set the castNum of sprite IFLReferenceNameSprite to the castNum of sprite IFLReferenceNameSprite + 1
  34.           wait(0.05)
  35.           updateStage()
  36.         end repeat
  37.         cursor(-1)
  38.         puppetSound(0)
  39.         updateStage()
  40.         play movie getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference)
  41.       end if
  42.       if rollOver(40) and the mouseDown then
  43.         set TempNum to the castNum of sprite 48
  44.         set the ink of sprite 48 to 0
  45.         set the castNum of sprite 48 to 88
  46.         set the locH of sprite 48 to 228
  47.         set the locV of sprite 48 to 116
  48.         updateStage()
  49.         repeat while rollOver(48)
  50.         end repeat
  51.         set the castNum of sprite 48 to TempNum
  52.         set the locH of sprite 48 to 2000
  53.         updateStage()
  54.       end if
  55.     end if
  56.   end repeat
  57. end
  58.