Swirl-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 SwirlAmount,pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#SwirlAmount,[format:#integer,¬                                comment:"Enter swirl Degrees:",¬                                Default:0,range:[min:-360,max:360]]   addProp pList,#pInterp,[format:#symbol,¬                                comment:"Interpolation:",¬                                Default:#On,range:[#Off,#On,#Paused]]      return pList end on beginSprite me   set s=the spriteNum of me   if not alphaManiac(s) then exit      set pInterp=interpolation(pInterp)   Swirl(sprite s,[degrees:SwirlAmount,interpolation:pInterp]) end on slideSwirl me, slider, p   set s=the spriteNum of me   if not alphaManiac(s) then exit      setSwirl(me,((p*360) / 100)) end on setSwirl me, val   set swirlAmount=val   Swirl(sprite (the spriteNum of me),[degrees:SwirlAmount]) end on getBehaviorDescription me   set msg= "This is where it gets cool!  Photoshop™ had it, now you have it! Add this to your AlphaManiac for a little twist."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  Swirl Amount: -360 to 360" & return after msg   put "*    Interpolation:  On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end