home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Labyrinth.dxr / 00006.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  346 b   |  17 lines

  1. property pSpriteNum, pMovement
  2.  
  3. on beginSprite me
  4.   pMovement = 2
  5.   pSpriteNum = sprite(me.spriteNum)
  6. end
  7.  
  8. on exitFrame
  9.   sprite(pSpriteNum).locV = sprite(pSpriteNum).locV + pMovement
  10.   if sprite(pSpriteNum).locV > 440 then
  11.     pMovement = pMovement * -1
  12.   end if
  13.   if sprite(pSpriteNum).locV < 0 then
  14.     pMovement = pMovement * -1
  15.   end if
  16. end
  17.