|
|
Setup Anim
Added on 6/10/1999
|
Requires Effector Set 1 Behavior Support Scripts
Property pStart, pEnd,pFrames,pInterp,pLoop
on getPropertyDescriptionList
if not alphamaniacCheck(the currentSpriteNum) then exit
set pList=[:]
addProp pList,#pStart,[format:#integer,comment:"Start Angle:",¬
Default:0,range:[min:-360,max:360]]
addProp pList,#pEnd,[format:#integer,comment:"End Angle:",¬
Default:0,range:[min:-260,max:360]]
addProp pList,#pFrames,[format:#integer,comment:"Number of Frames:", Default:30]
addProp pList,#pLoop,[format:#boolean,comment:"Pendulum:", Default:false]
addProp pList,#pInterp,[format:#symbol,comment:"Interpolation:",¬
Default:#On,range:[#Off,#On,#Paused]]
return pList
end
on beginSprite me
set pInterp=interpolation(pInterp)
reset(me)
end
on trigger me,reverseFlag
set s = the spriteNum of me
if not alphaManiac(s) then exit
if pLoop then
rotate(sprite s,[animMode:#Pendulum,startDegrees:pStart,¬
endDegrees:pEnd,numFrames:pFrames])
else
if reverseFlag then
rotate(sprite s,[animMode:#Range,startDegrees:pEnd,¬
endDegrees:pStart,numFrames:pFrames])
else
rotate(sprite s,[animMode:#Range,startDegrees:pStart,¬
endDegrees:pEnd,numFrames:pFrames])
end if
end if
end
on reset me
set s=the spriteNum of me
if not alphaManiac(s) then exit
rotate(sprite s,[animMode:#Static,Degrees:pStart,interpolation:pInterp])
end
|
|