--
-- Dim or brighten a sprite
-- Ken Loge - http://diginoodles.com
--

property pBlendVal -- sprite's dim blend value

on getBehaviorDescription me
  return "Dims the opacity of a sprite to a selectable level."
end

on getPropertyDescriptionList me
  list = [:]
  addProp list, #pBlendVal, [#comment: "On rollover, set the blend of the sprite to:", #format: #integer, #default: 50, #range: [#min: 0, #max: 100]]
  return list
end

-- dim the sprite
on mouseEnter me
  sprite(me.spriteNum).blend = pBlendVal
end

-- bring the sprite to full opacity
on mouseLeave me
  sprite(me.spriteNum).blend = 100
end