Mosaic-Alphamania

 

Compatibilities: Required Xtras: Alphamania Effector Set I for Alphamania

This item has not yet been rated

Requires Effector Set 1 Behavior Support Scripts

Property pXSize,pYSize on getPropertyDescriptionList    if not alphamaniacCheck(the currentSpriteNum) then exit    set pList=[:]   addProp pList,#pXSize,[format:#integer,comment:"Box Height:",Default:3,range:[min:1,max:20]]   addProp pList,#pYSize,[format:#integer,comment:"Box Width:",Default:3,range:[min:1,max:20]]   return pList end on beginSprite me   set s=the spriteNum of me   if not alphaManiac(s) then exit        mosaic(sprite s,[XRes:pXSize,YRes:pYSize]) end on getBehaviorDescription me   set msg= "Add a mosaic effect to your AlphaMania sprite."   put return & return after msg   put "Parameters:" & return & "-----------" & return  after msg   put "*  Box Height: 1 to 20" & return after msg   put "*  Box Width:  1 to 20" after msg   put return & "-----------" & return & return  & ">>>" && amTip()  after msg   return msg end