property pSpeed

on getPropertyDescriptionList me
  return [#pSpeed: [#comment: "Speed:", #format: #integer, \
          #default: 1, #range: [#min:-50, #max:50]]]
end

on exitFrame me
  sprite(me.spriteNum).locH = sprite(me.spriteNum).locH + pSpeed
end