|
|
Rollover Fader-Alphamania
Added on 6/10/1999
|
Requires Effector Set 1 Behavior Support Scripts
Property pOff,pOn,pSpeed
on getPropertyDescriptionList
if not alphamaniacCheck(the currentSpriteNum) then exit
set pList=[:]
addProp pList,#pOff,[format:#integer,comment:"Off Saturation %:",¬
Default:0, range:[min:-255,max:255]]
addProp pList,#pOn,[format:#integer,comment:"On Saturation %:",¬
Default:0, range:[min:-255,max:255]]
addProp pList,#pSpeed,[format:#integer,comment:"Frames:", Default:12]
return pList
end
on beginSprite me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[satShift:pOff])
end
on mouseEnter me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pOff, endSat:pOn])
end
on mouseLeave me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startSat:pOn, endSat:pOff])
end
|
|