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