Setup Anim

 

Compatibilities: Required Xtras: Alphamania Effector Set I for Alphamania

This item has not yet been rated

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

Upload Provided by ABCUpload ASP