Mouse Up Trigger-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 pTarget,pMsg,pReverse,pToggle,pState on getPropertyDescriptionList   set pList=[:]   set s= the currentSpriteNum   addProp pList,#pTarget,[format:#integer,comment:"Trigger Sprite#:", Default:s]   addProp pList,#pMsg,[format:#symbol,comment:"Message:", Default:#Trigger, Range:[#Trigger,#Reset]]   addProp pList,#pReverse,[format:#boolean, comment:"Reverse:", Default:0]   addProp pList,#pToggle,[format:#boolean, comment:"Toggled:", Default:0]   return pList end on beginSprite me   if pToggle then     set pState=true   else     set pState=false   end if end on mouseUp me   if pToggle then     set pState=not pState     sendSprite(pTarget,#Trigger,pState)   else     sendSprite(pTarget,pMsg,pReverse)   end if end

Upload Provided by ABCUpload ASP