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 angle,pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit   set pList=[:]   addProp pList,#Angle,[format:#integer,comment:"Rotation angle:",¬                         Default:0,range:[min:-180,max:180]]   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,[degrees:angle,interpolation:pInterp]) end on slideRotate me, slider, p   set s=the spriteNum of me   if not alphaManiac(s) then exit      set angle=((p*360) / 100) - 180   rotate(sprite s,[degrees:angle]) end on getBehaviorDescription me   set msg= "Rotate any alphamania sprite to an arbitrary angle!"   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  Rotation Angle : -360 to 360 degrees.  0 is no rotation" & return after msg   put "*     Interpolation : On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end