on getPropertyDescriptionList
if not alphamaniacCheck(the currentSpriteNum) then exit
set pList=[:]
addProp pList,#Hue,[format:#integer,comment:"Hue (degrees):",Default:0,range:[min:0,max:360]]
return pList
end
on beginSprite me
set s=the spriteNum of me
if not alphaManiac(s) then exit
hsb(sprite s,[forceHue:hue])
end
on slideHue me, slider, p
set s=the spriteNum of me
if not alphaManiac(s) then exit
set Hue=(p*360) / 100
hsb(sprite s,[forceHue:hue])
end
on getBehaviorDescription me
set msg= "Force your alphamania sprite to a single hue, rendering a doutone effect."
put return & return after msg
put "Parameters:" & return & "-----------" & return after msg
put "* Hue (degrees): Set the hue (0 to 360)" after msg
put return & "-----------" & return & return & ">>>" && amTip() after msg
return msg
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA