|
|
|
Rollover Shift Hue-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 Hue (degrees):",¬
Default:0, range:[min:0,max:360]]
addProp pList,#pOn,[format:#integer,comment:"On Hue (degrees):",¬
Default:0, range:[min:0,max:360]]
addProp pList,#pSpeed,[format:#integer,comment:"Frames:", Default:10]
return pList
end
on beginSprite me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[hueShift:pOff])
end
on mouseEnter me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startHue:pOff, endHue:pOn])
end
on mouseLeave me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[animMode:#Range,numFrames:pSpeed, startHue:pOn, endHue:pOff])
end
|
|