HSB Shifter-Alphamania

 

Compatibilities: Required Xtras: Alphamania Effector Set I for Alphamania

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

Property Hue,Sat,Brt on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#Hue,[format:#integer,comment:"Hue (degrees):",¬                       Default:0,range:[min:-180,max:180]]   addProp pList,#Sat,[format:#integer,comment:"Saturation %:",¬                       Default:0,range:[min:-255,max:255]]   addProp pList,#Brt,[format:#integer,comment:"Brightness %:",¬                       Default:0,range:[min:-255,max:255]]   return pList end on beginSprite me   set s=the spriteNum of me   if not alphaManiac(s) then exit      hsb(sprite s,[hueShift:hue,satShift:Sat,brightShift:Brt]) 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 slideSat me, slider, p   set s=the spriteNum of me   if not alphaManiac(s) then exit      set Hue=(p*255) / 100   hsb(sprite s,[forceSat:Sat]) end on slideBright me, slider, p   set s=the spriteNum of me   if not alphaManiac(s) then exit      set Hue=(p*255) / 100   hsb(sprite s,[forceBright:Brt]) end on getBehaviorDescription me   set msg= "Use this simple shifter to adjust the color values of any AlphaMania Sprite."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "* Hue (degrees):  Shift the hue (0 to 360)" & return after msg   put "*  Saturation %:  Adjust the saturation (color)" & return after msg   put "*  Brightness %:  Adjust the brightness" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end

Upload Provided by ABCUpload ASP