Scale-Alphamania

 

Compatibilities: Required Xtras: Alphamania Effector Set I for Alphamania

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

-- Drag to any alphamania sprite to make it scale to the size of the sprite box. property pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit     set pList=[:]   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)     scale(sprite s,[interpolation:pInterp]) end on getBehaviorDescription me   set msg= "Make your Alphamania member scale to the size of it"s sprite box."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  Interpolation : On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end