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
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA