home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / DuchessLuynes.dxr / Internal_8_bird.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  488 b   |  24 lines
  1. property pbird, spriteNum
  2.  
  3. on beginSprite me
  4.   pbird = sprite(spriteNum)
  5. end
  6.  
  7. on enterFrame me
  8.   if pbird.flipH then
  9.     pbird.locH = pbird.locH + 1
  10.     if pbird.locH > ((the stage).rect.width + 30) then
  11.       pbird.flipH = not pbird.flipH
  12.       pbird.locV = random(70)
  13.     end if
  14.   else
  15.     if not pbird.flipH then
  16.       pbird.locH = pbird.locH - 1
  17.       if pbird.locH < -30 then
  18.         pbird.flipH = not pbird.flipH
  19.         pbird.locV = random(70)
  20.       end if
  21.     end if
  22.   end if
  23. end
  24.