property sNum
property speed
property stretch
on getBehaviorDescription me
return "Allows you to set a sprite to a specific roil effect setting."
end
on getPropertyDescriptionList me
set list = [:]
addProp list, #speed, [#comment: "Speed:", #format: #integer, #default: 7, #range: [#max: 20, #min:0]]
addProp list, #stretch, [#comment: "Stretch:", #format: #integer, #default: 6, #range: [#max: 8, #min:0]]
return list
end
on beginSprite me
set sNum = the spriteNum of me
roil(sprite sNum, [#speed: speed, #stretch: stretch])
end
|