Rollover 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 pSpeed,pAmount,pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#pAmount,[format:#integer,¬                                comment:"Amount:",¬                                Default:180,range:[min:0,max:360]]      addProp pList,#pSpeed,[format:#integer,¬                                comment:"Frames to complete:",¬                                Default:30]      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:pAmount]) end on mouseEnter me   set s=the spriteNum of me   if not alphaManiac(s) then exit      set cmds=[animMode:#Range,startDegrees:pAmount,¬               endDegrees:0,numFrames:pSpeed,EaseIn:4,EaseOut:4,Interpolation:pInterp]   Swirl(sprite s,cmds) end on mouseLeave me   set s=the spriteNum of me   if not alphaManiac(s) then exit      set cmds=[animMode:#Range,startDegrees:0,endDegrees:pAmount,¬               numFrames:pSpeed,EaseIn:4,EaseOut:4]   Swirl(sprite s,cmds) end on getBehaviorDescription me   set msg= "This behavior swirls a sprite, and then, if  the mouse is over, it dramatically unswirls.  Simply set the initial swirl, and how fast you want the sprite to unfold."   return(msg) end