home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_23_b_SetupLoop.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  322 b   |  23 lines
  1. property pTicks, pTime
  2.  
  3. on beginSprite me
  4.   pTicks = 0
  5.   pTime = random(5) * 10
  6. end
  7.  
  8. on exitFrame me
  9.   go(the frame)
  10.   theTicks()
  11.   if pTicks = pTime then
  12.     sprite(93).goToFrame("blink")
  13.     sprite(93).play()
  14.     pTime = random(10) * 10
  15.     pTicks = 0
  16.   end if
  17. end
  18.  
  19. on theTicks
  20.   pTicks = pTicks + 1
  21.   return pTicks
  22. end
  23.