home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / GTSFINJ.DXR / 00004_IFLsectionWordAnimate.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  2.1 KB  |  52 lines
  1. on IFLsectionWordAnimate
  2.   global IFLhowManyWordTurnList, IFLRolledOver, IFLSpriteDifference, IFLhasLineFlashedList, IFLCanChange, GTSbuttonCount, IFLgamesNameSprite, IFLMovieNameList
  3.   repeat with t = 39 to 47
  4.     if rollOver(t) and (t <> IFLgamesNameSprite) 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 (t <> 40) and the mouseDown 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.         GTSLeaveGames(1)
  29.         repeat with g = 1 to 10
  30.           set the castNum of sprite IFLgamesNameSprite to the castNum of sprite IFLgamesNameSprite + 1
  31.           updateStage()
  32.         end repeat
  33.         cursor(-1)
  34.         play movie getAt(IFLMovieNameList, IFLRolledOver - IFLSpriteDifference)
  35.       end if
  36.       if rollOver(40) and the mouseDown then
  37.         set TempNum to the castNum of sprite 48
  38.         set the ink of sprite 48 to 0
  39.         set the castNum of sprite 48 to 137
  40.         set the locH of sprite 48 to 228
  41.         set the locV of sprite 48 to 116
  42.         updateStage()
  43.         repeat while rollOver(48)
  44.         end repeat
  45.         set the castNum of sprite 48 to TempNum
  46.         set the locH of sprite 48 to 2000
  47.         updateStage()
  48.       end if
  49.     end if
  50.   end repeat
  51. end
  52.