home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / circuits.dxr / 00035_tryme.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  486 b   |  27 lines
  1. property spriteNum, Flashing
  2.  
  3. on beginSprite me
  4.   sprite(spriteNum).visible = 1
  5.   timeout("flashMe").forget()
  6.   Flashing = 0
  7. end
  8.  
  9. on flashMe me
  10.   sprite(spriteNum).visible = not sprite(spriteNum).visible
  11. end
  12.  
  13. on showtryme me, spNum
  14.   if Flashing = 0 then
  15.     timeout("flashMe").new(300, #flashMe, me)
  16.     sprite(spriteNum).loc = sprite(spNum).loc
  17.     Flashing = 1
  18.   else
  19.     me.stopflash()
  20.   end if
  21. end
  22.  
  23. on stopflash me
  24.   sprite(spriteNum).visible = 0
  25.   timeout("flashMe").forget()
  26. end
  27.