|
|
|
Slider bar-Alphamania
Added on 6/10/1999
|
Requires Effector Set 1 Behavior Support Scripts
property thumbSprite
on getPropertyDescriptionList
set defSprite = the currentSpriteNum + 1
set pl=[thumbSprite:[format:#integer, Default:defSprite, Comment:"Thumb Sprite Channel:"]]
return pl
end
on mouseDown me
sendSprite (thumbSprite,#operate)
end
|
|