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 pFrames,pStart,pEnd,pInterp,pIn,pOut,pLoop on getPropertyDescriptionList    if not alphamaniacCheck(the currentSpriteNum) then exit    set pList=[:]   addProp pList,#pStart,[format:#integer,comment:"Start Amount:",¬                           Default:0,range:[min:-360,max:360]]      addProp pList,#pEnd,[format:#integer,comment:"End Amount:",¬                           Default:0,range:[min:-360,max:360]]      addProp pList,#pFrames,[format:#integer,comment:"Frames:",Default:15]      addProp pList,#pIn,[format:#integer,comment:"Ease In %:",¬                       Default:10,range:[min:0,max:100]]      addProp pList,#pOut,[format:#integer,comment:"Ease Out %:",¬                        Default:10,range:[min:0,max:100]]      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)      -- Convert Ease In & Out to frames   set pIn=(pIn*pFrames) / 100   set pOut=(pOut*pFrames) / 100   reset(me)    end on trigger me,reverseFlag   set s = the spriteNum of me   if not alphaManiac(s) then exit      if pLoop then     swirl(sprite s,[animMode:#Pendulum,startDegrees:pStart,¬                      endDegrees:pEnd,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])   else     if reverseFlag then       swirl(sprite s,[animMode:#Range,startDegrees:pEnd,¬                      endDegrees:pStart,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])     else       swirl(sprite s,[animMode:#Range,startDegrees:pStart,¬                      endDegrees:pEnd,numFrames:pFrames,EaseIn:pIn,EaseOut:pOut])     end if   end if end on reset me   set s=the spriteNum of me   if not alphaManiac(s) then exit      Swirl(sprite s,[animMode:#Static,degrees:pStart,interpolation:pInterp]) end

Upload Provided by ABCUpload ASP