home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CrazyCreeps.dxr / 00089_PlantScript.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  897 b   |  41 lines
  1. property pFrame10, pFrameIncrement10, pBallShoot10, pMySpriteNum10, pUpLimit10, pDownLimit10, pBallSpeed10
  2.  
  3. on new
  4.   pMySpriteNum10 = 23
  5.   pFrame10 = 1
  6.   pFrameIncrement10 = 1
  7.   pBallShoot10 = 0
  8.   pDownLimit10 = 275
  9.   pUpLimit10 = 97
  10.   pBallSpeed10 = -4
  11. end
  12.  
  13. on enterFrame
  14.   if pBallShoot10 = 0 then
  15.     pFrame10 = pFrame10 + pFrameIncrement10
  16.     if pFrame10 > 8 then
  17.       pFrame10 = 8
  18.       pFrameIncrement10 = -1
  19.       pBallShoot10 = 1
  20.     end if
  21.     if pFrame10 < 1 then
  22.       pFrame10 = 1
  23.       pFrameIncrement10 = 1
  24.     end if
  25.     sprite(pMySpriteNum10).member = "plant_phase" & pFrame10
  26.   else
  27.     doBallShoot()
  28.   end if
  29. end
  30.  
  31. on doBallShoot
  32.   sprite(15).locV = sprite(15).locV + pBallSpeed10
  33.   if sprite(15).locV < pUpLimit10 then
  34.     pBallSpeed10 = pBallSpeed10 * -1
  35.   end if
  36.   if sprite(15).locV > pDownLimit10 then
  37.     pBallSpeed10 = pBallSpeed10 * -1
  38.     pBallShoot10 = 0
  39.   end if
  40. end
  41.