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

Upload Provided by ABCUpload ASP