RGB 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 Red,Grn,Blu on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#Red,[format:#integer,comment:"Red:",¬                       Default:0,range:[min:-255,max:255]]   addProp pList,#Grn,[format:#integer,comment:"Green:",¬                       Default:0,range:[min:-255,max:255]]   addProp pList,#Blu,[format:#integer,comment:"Blue :",¬                       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      rgb(sprite s,[redShift:Red,greenShift:Grn,blueShift:Blu]) 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 "* Red:  Shift the Red" & return after msg   put "* Green:  Adjust the Green" & return after msg   put "* Blue:  Adjust the blue" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end