Rotate Click-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 pStep, pDirection,activated,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,#pStep,[format:#integer,comment:"Degrees per step:", Default:5, range:[min:5,max:45]]   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 pStep = pStep * -1   set activated=false end on mouseDown me   set activated=true end on mouseUp me   set activated=false end on mouseWithin me   if activated then step(me) end on step me   set s=the spriteNum of me   if not alphaManiac(s) then exit      rotate(sprite s,[animMode:#static,deltaDegrees:pStep,interpolation:pInterp]) end on getBehaviorDescription me   set msg= "Your AlphaManiac will rotate by a specified amount each time it"s clicked, and will keep rotating if you hold the mouse button down on it."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*        Direction:   CW (Clockwise) or CCW" & return after msg   put "*  Degrees/Step:  How much does it move each click?" & 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