Magnify-Alphamania

 

Compatibilities:

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

Property magnification,pInterp on getPropertyDescriptionList   if not alphamaniacCheck(the currentSpriteNum) then exit      set pList=[:]   addProp pList,#magnification,[format:#integer,¬                                comment:"Enter Magnification:",¬                                Default:100,range:[min:100,max:500]]   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)   Magnify(sprite s,[percentage:magnification,interpolation:pInterp]) end on slideMagnify me, slider, p   set s=the spriteNum of me   if not alphaManiac(s) then exit      setMagnification(me,((p*400) / 100) + 100) end on setMagnification me, val   set magnification=val   Magnify(sprite (the spriteNum of me),[percentage:magnification,interpolation:pInterp]) end on getBehaviorDescription me   set msg= "Turn your AlphaManiac into a cool magnifying glass!  This is best used with your AlphaMania castmember"s drawMethod set to #apply."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  Magnification: 0 to 500" & return after msg   put "*   Interpolation:  On,Off,or While Paused" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end