Rotate Forever-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 pFrames, pDirection,pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#pDirection,[format:#symbol,comment:"Direction:", Default:#CW,range:[#CW,#CCW]]   addProp pList,#pFrames,[format:#integer,comment:"Frames / Revolution:", Default:30, range:[min:2,max:60]]   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)      if pDirection=#CCW then set pFrames = pFrames * -1   rotate(sprite s,[animMode:#Infinite,FramesPerRevolution:pFrames,interpolation:pInterp]) end on getBehaviorDescription me   set msg= "Make an AlphaManiac rotate forever. Or until you stop it."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*                Direction:  CW (Clockwise) or CCW" & return after msg   put "* Frames/Revolution:  Lower numbers are faster" & return after msg   put "*           Interpolation:  On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end