home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Flea.dxr / Internal_16_flea.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  804 b   |  43 lines
  1. property pFlea, spriteNum, pTimeout, pTime, pfleaMove
  2. global gDog
  3.  
  4. on beginSprite me
  5.   pFlea = sprite(spriteNum)
  6.   pTime = 0
  7.   pfleaMove = 0
  8.   pTimeout = timeout(string(the ticks + spriteNum)).new(600, #getTime, me)
  9. end
  10.  
  11. on getTime me
  12.   pTime = pTime + 1
  13.   return pTime
  14. end
  15.  
  16. on resetTime me
  17.   pTime = 0
  18. end
  19.  
  20. on enterFrame me
  21.   if not pfleaMove then
  22.     if getTime() > 150 then
  23.       the randomSeed = the ticks
  24.       if random(100) < 25 then
  25.         pfleaMove = 1
  26.         pFlea.member = member("2")
  27.         s = the ticks + 50
  28.         gDog.scratch()
  29.         resetTime()
  30.       end if
  31.     end if
  32.   else
  33.     if getTime() > 100 then
  34.       the randomSeed = the ticks
  35.       if random(100) > 50 then
  36.         pfleaMove = 0
  37.         pFlea.member = member("1")
  38.         gDog.wag()
  39.       end if
  40.     end if
  41.   end if
  42. end
  43.