home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 September / WPCSEP96.ISO / intwpc08.dxr / 00007_IFLFlashLine.ls < prev    next >
Encoding:
Text File  |  1996-07-09  |  1.1 KB  |  31 lines
  1. on IFLFlashLine
  2.   global IFLhasLineFlashedList, IFLSpriteDifference
  3.   repeat with t = 1 to count(IFLhasLineFlashedList)
  4.     if rollOver(t + IFLSpriteDifference) then
  5.       set value to getAt(IFLhasLineFlashedList, t)
  6.       if value > 0 then
  7.         if value < 4 then
  8.           setAt(IFLhasLineFlashedList, t, 0)
  9.         else
  10.           setAt(IFLhasLineFlashedList, t, 0)
  11.           set the castNum of sprite (t + IFLSpriteDifference) to the castNum of sprite (t + IFLSpriteDifference) - 1
  12.         end if
  13.       end if
  14.       updateStage()
  15.     else
  16.       if getAt(IFLhasLineFlashedList, t) = 3 then
  17.         set the castNum of sprite (t + IFLSpriteDifference) to the castNum of sprite (t + IFLSpriteDifference) + 1
  18.         setAt(IFLhasLineFlashedList, t, getAt(IFLhasLineFlashedList, t) + 1)
  19.       else
  20.         if getAt(IFLhasLineFlashedList, t) = 6 then
  21.           set the castNum of sprite (t + IFLSpriteDifference) to the castNum of sprite (t + IFLSpriteDifference) - 1
  22.           setAt(IFLhasLineFlashedList, t, 0)
  23.         else
  24.           setAt(IFLhasLineFlashedList, t, getAt(IFLhasLineFlashedList, t) + 1)
  25.         end if
  26.       end if
  27.     end if
  28.     updateStage()
  29.   end repeat
  30. end
  31.