Seurat-Alphamania

 

Compatibilities:

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

Property pSpeed,pRadius,pIntensity on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#pSpeed,[format:#integer,¬                            comment:"Speed:",¬                            Default:7,range:[min:0,max:25]]      addProp pList,#pRadius,[format:#integer,¬                               comment:"Radius:",¬                               Default:3,range:[min:1,max:3]]      addProp pList,#pIntensity,[format:#integer,¬                               comment:"Intensity:",¬                               Default:4,range:[min:1,max:16]]     return pList end on beginSprite me   set s=the spriteNum of me   if not alphaManiac(s) then exit     seurat(sprite s,[speed:pSpeed,radius:pRadius,intensity:pIntensity]) end