property pVal -- sine "angle" value
property pRange -- the range of change
property pSpeed -- speed of change
property pDoRock -- rock the sprite?

--
-- Drag this behavior onto a sprite to rock it up and down.
-- Ken Loge - http://diginoodles.com
--

on beginSprite me
  pVal = 0
  pDoPulse = FALSE
end

on getPropertyDescriptionList me
  list = [:]
  addProp list, #pRange, [#comment: "Tilt Angle Limit:", #format: #integer, #default: 10, #range: [#min: 0, #max: 40]]
  addProp list, #pSpeed, [#comment: "Tilt Speed:", #format: #float, #default: .35, #range: [#min: .1, #max: .5]]
  return list
end

on exitFrame me
  if pDoRock = TRUE then
    sprite(me.spriteNum).rotation = sin(pVal) * pRange
    pVal = pVal + pSpeed
  end if
end

on mouseEnter me
  pDoRock = TRUE
end

on mouseLeave me
  pDoRock = FALSE
  -- reset sprite rotation
  sprite(me.spriteNum).rotation = 0
  pVal = 0
end