home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / main.dxr / 00040_clouds.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  417 b   |  18 lines
  1. property spriteNum, wrappoint, startpoint, speed
  2.  
  3. on beginSprite me
  4.   speed = sprite(spriteNum).member.name
  5.   wrappoint = 0 - (sprite(spriteNum).width / 2)
  6.   startpoint = 900 + (sprite(spriteNum).width / 2)
  7. end
  8.  
  9. on exitFrame me
  10.   if the frameLabel <> "pause" then
  11.     newH = sprite(spriteNum).locH - speed
  12.     if newH < wrappoint then
  13.       newH = startpoint
  14.     end if
  15.     sprite(spriteNum).locH = newH
  16.   end if
  17. end
  18.