home *** CD-ROM | disk | FTP | other *** search
/ Buffalo Sabres 2001-2002 Promotional CD / Sabres.iso / pc / game.dxr / 00016_bubbles.ls < prev    next >
Encoding:
Text File  |  2001-09-05  |  673 b   |  27 lines
  1. property S, locx, origin
  2.  
  3. on getPropertyDescriptionList
  4.   description = [:]
  5.   addProp(description, #locx, [#default: 1, #format: #integer, #comment: "locx"])
  6.   return description
  7. end
  8.  
  9. on beginSprite me
  10.   S = me.spriteNum
  11.   origin = the locH of sprite S
  12. end
  13.  
  14. on popon me
  15.   set the locH of sprite S to locx
  16.   scale(sprite(S), [#animMode: #range, #interpolation: 1, #endPercentage: 100, #numFrames: 15, #startPercentage: 80])
  17.   repeat with i = 1 to 15
  18.     updateStage()
  19.   end repeat
  20.   scale(sprite(S), [#animMode: #range, #interpolation: 1, #endPercentage: 80, #numFrames: 15, #startPercentage: 100])
  21. end
  22.  
  23. on popoff me
  24.   set the locH of sprite S to origin
  25.   updateStage()
  26. end
  27.