property pSizeVal

--------------------------------------------
-- simple way to enlarge or shrink a sprite
-- Ken Loge - http://diginoodles.com
--------------------------------------------

on getPropertyDescriptionList me
  list = [:]
  addProp list, #pSizeVal, [#comment: "Change sprite size by how many pixels?", #format: #integer, #default: 5, #range: [#min: -50, #max: 50]]
  return list
end

-- enlarge or shrink the sprite
on mouseEnter me
  sprite(me.spriteNum).width = sprite(me.spriteNum).width + pSizeVal
  sprite(me.spriteNum).height = sprite(me.spriteNum).height + pSizeVal
end

-- restore the sprite size
on mouseLeave me
  sprite(me.spriteNum).width = sprite(me.spriteNum).width - pSizeVal
  sprite(me.spriteNum).height = sprite(me.spriteNum).height - pSizeVal
end