home *** CD-ROM | disk | FTP | other *** search
/ Roboty / ROBOTS_CD.iso / CD / circuits.dxr / 00039_bellAnimation.ls < prev    next >
Encoding:
Text File  |  2005-05-13  |  363 b   |  24 lines
  1. property spriteNum, tog
  2.  
  3. on robotItem me, pPower
  4.   tog = 0
  5.   if pPower then
  6.     timeout("ring").new(150, #ring, me)
  7.   else
  8.     timeout("ring").forget()
  9.   end if
  10. end
  11.  
  12. on ring me
  13.   tog = tog = 0
  14.   sprite(spriteNum).rotation = [0, -15][tog + 1]
  15.   if tog = 1 then
  16.     puppetSound(2, "bell")
  17.   end if
  18. end
  19.  
  20. on endSprite
  21.   timeout("ring").forget()
  22.   sound(2).stop()
  23. end
  24.