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 pSkip1,pDraw1,pSkip2,pDraw2,pFrames,pLoop on getPropertyDescriptionList    if not alphamaniacCheck(the currentSpriteNum) then exit    set pList=[:]   addProp pList,#pSkip1,[format:#integer,comment:"Start Skip Lines:", Default:0]   addProp pList,#pDraw1,[format:#integer,comment:"Start Draw Lines:",Default:1]   addProp pList,#pSkip2,[format:#integer,comment:"End Skip Lines:", Default:0]   addProp pList,#pDraw2,[format:#integer,comment:"End Draw Lines:",Default:1]   addProp pList,#pFrames,[format:#integer,comment:"Frames:",Default:30]   addProp pList,#pLoop,[format:#boolean,comment:"Pendulum:",Default:false]   return pList end on beginSprite me   reset(me)   end on trigger me,reverseFlag   set s=the spriteNum of me   if not alphaManiac(s) then exit      if pLoop then     lineSkip(sprite s,[animMode:#Pendulum,numFrames:pFrames,¬                       startSkip:pSkip2,startDraw:pDraw2,¬                       endSkip:pSkip1,endDraw:pDraw1])   else     if reverseFlag then       lineSkip(sprite s,[animMode:#Range,numFrames:pFrames,¬                       startSkip:pSkip2,startDraw:pDraw2,¬                       endSkip:pSkip1,endDraw:pDraw1])     else       lineSkip(sprite s,[animMode:#Range,numFrames:pFrames,¬                       startSkip:pSkip1,startDraw:pDraw1,¬                       endSkip:pSkip2,endDraw:pDraw2])     end if   end if end on reset me   set s=the spriteNum of me   if not alphaManiac(s) then exit      lineSkip(sprite s,[animMode:#Static,linesToSkip:pSkip1,linesToDraw:pDraw1]) end

Upload Provided by ABCUpload ASP