home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / main.dxr / 00037_spaceships.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  804 b   |  35 lines
  1. property spriteNum, stoppoint, startpoint, speed, Fly, Flip
  2.  
  3. on beginSprite me
  4.   edges = [0 - (sprite(spriteNum).width / 2), 800 + (sprite(spriteNum).width / 2)]
  5.   Flip = sprite(spriteNum).flipH
  6.   stoppoint = edges[2 - Flip]
  7.   startpoint = edges[1 + Flip]
  8.   val = sprite(spriteNum).member.name
  9.   speed = [val, -val][1 + Flip]
  10.   Fly = 1
  11. end
  12.  
  13. on exitFrame me
  14.   if the frameLabel <> "pause" then
  15.     if Fly then
  16.       newH = sprite(spriteNum).locH + speed
  17.       if Flip then
  18.         if newH < stoppoint then
  19.           newH = startpoint
  20.           Fly = 0
  21.         end if
  22.       else
  23.         if newH > stoppoint then
  24.           newH = startpoint
  25.           Fly = 0
  26.         end if
  27.       end if
  28.       sprite(spriteNum).locH = newH
  29.     end if
  30.     if Fly = 0 then
  31.       Fly = random(100) > 99
  32.     end if
  33.   end if
  34. end
  35.