Pendulum Rotate-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, pInterp, pLeftLimit, pRightLimit, pEaseIn, pEaseOut on getPropertyDescriptionList   --if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#pSpeed,[format:#integer,comment:"Number of Frames", Default:6, range:[min:1,max:100]]   addProp pList,#pLeftLimit,[format:#integer,comment:"Start(degrees):", Default:-90, range:[min:-360,max:360]]   addProp pList,#pRightLimit,[format:#integer,comment:"End(degrees):", Default:90, range:[min:-360,max:360]]   addProp pList,#pEaseIn,[format:#integer,comment:"Ease In Frames:", Default:0, range:[min:0,max:20]]   addProp pList,#pEaseOut,[format:#integer,comment:"Ease Out Frames:", Default:0, range:[min:0,max:20]]   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)   rotate(sprite s, [animMode:#pendulum, numFrames:pSpeed, startDegrees:pLeftLimit, endDegrees:pRightLimit, easeIn:pEaseIn, easeOut:pEaseOut, interpolation:pInterp]) end on getBehaviorDescription me   set msg= "Pendulum Rotation with Ease In and Out"   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  NumFrames:  How fast does it turn?" & return after msg   put "*  Start degrees" & return after msg   put "*  End Degrees" & return after msg   put "*  Ease In Frames" & return after msg   put "*  Ease Out Frames" & return after msg   put "*   Interpolation:   On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end

Upload Provided by ABCUpload ASP