home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SkyGunner.dxr / 00026_light.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  729 b   |  33 lines
  1. property spriteNum, pFrame, pRunOnce
  2. global gAnimateLight
  3.  
  4. on beginSprite
  5.   pFrame = 1
  6. end
  7.  
  8. on exitFrame me
  9.   if gAnimateLight = 1 then
  10.     pRunOnce = 1
  11.     sprite(spriteNum).member = "Light" & pFrame
  12.     pFrame = pFrame + 1
  13.     if pFrame > 8 then
  14.       pFrame = 1
  15.     end if
  16.   else
  17.     if pRunOnce = 1 then
  18.       if sprite(spriteNum).member.name = "Light3" then
  19.         sprite(spriteNum).member = "Light2"
  20.       else
  21.         if sprite(spriteNum).member.name = "Light4" then
  22.           sprite(spriteNum).member = "Light5"
  23.         else
  24.           if sprite(spriteNum).member.name = "Light5" then
  25.             sprite(spriteNum).member = "Light6"
  26.           end if
  27.         end if
  28.       end if
  29.       pRunOnce = 0
  30.     end if
  31.   end if
  32. end
  33.