Snow-Alphamania

 

Compatibilities:

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

Property pSpeed,pStrength,pIntensity, pChroma on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#pSpeed,[format:#integer,¬                            comment:"Speed:",¬                            Default:7,range:[min:0,max:50]]      addProp pList,#pStrength,[format:#integer,¬                               comment:"Strength:",¬                               Default:4,range:[min:0,max:6]]      addProp pList,#pIntensity,[format:#integer,¬                               comment:"Intensity:",¬                               Default:4,range:[min:1,max:16]]   addProp pList,#pChroma,[format:#integer,¬                               comment:"Chroma:",¬                               Default:0,range:[min:0,max:8]]      return pList end on beginSprite me   set s=the spriteNum of me   if not alphaManiac(s) then exit      snow(sprite s,[speed:pSpeed,strength:pStrength,intensity:pIntensity, chroma:pChroma]) end on getBehaviorDescription me   set msg= "Let it snow, let it snow, let it snow." & return & "After all, every AlphaManiac is born in Colorado."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*     Speed: 0 to 50" & return after msg   put "* Strength: 0 to 6" & return after msg   put "* Intensity: 1 to 16" & return after msg   put "* Chroma: 0 to 8" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end