Fading Rollover

 

Compatibilities:

This item has not yet been rated

Use this behavior for practically all your button needs. It will let your buttons fade nicely in and out. You set the rate. It also will transmit fade commands to other sprites on the stage which have this behavior attached to it. You can use this behavior to do simple fade animations without mouse interactions. I use it to fade a bunch of small graphics in sequence with one frame. You can also set the fade to pulse. This can make blinking buttons, or even lighted marques. I used it on animations which diagram technical flowcharts. It is a little raw, and has few comments... sorry. But the propertyDescriptionList is fairly straightforward. Enjoy. mark@yannitell.com.

property pFadeTime, pfadeInTime, pLink, pLabels, pFadeValue, pMode, pPulse, pAmplitude, pPulseDir, pPulseMode, pPulseEnabled, pFinger, pMinAmplitude, pSizeAdj, pFadeSprite, pFadeSValue, pOrigSizeH, pOrigSizeV, pSelfFade, pEffectedSprite, pTransmit, pClickTransmit, pItem, pRecItems, pItemRecieved, pMouseEnabled, pIntitalFade, pIntitalFadeOut, pInitSolid global glast on getPropertyDescriptionList me   pLabels=["none"]   repeat with r=1 to (the labelList.line.count-1)     add pLabels, the labellist.line[r]   end repeat      l=[:]         addprop l, #pMouseEnabled, [#comment: "Mouse Enabled?",¬ #format: #boolean, #Default: 1]      addprop l, #pIntitalFade, [#comment: "Fade in initially?",¬ #format: #boolean, #Default: 0]      addprop l, #pInitSolid, [#comment: "Solid initially?",¬ #format: #boolean, #Default: 0]      addprop l, #pIntitalFadeOut, [#comment: "Fade out initially?",¬ #format: #boolean, #Default: 0]      addprop l, #pLink, [#comment: "Link to what frame?",¬ #format: #string, #range: pLabels, #Default: "none"]      addprop l, #pfadeInTime, [#comment: "Fade in speed?",¬ #format: #integer, #range: [#min: 1, #max: 60], #Default: 60]      addprop l, #pfadeTime, [#comment: "Fade out speed?",¬ #format: #integer, #range: [#min: 1, #max: 60], #Default: 10]         addprop l, #pPulse, [#comment: "Pulsation increments?",¬ #format: #integer, #range: [#min: 1, #max: 100], #Default: 1]      addprop l, #pAmplitude, [#comment: "Maximum pulsation amplitude?",¬ #format: #integer, #range: [#min: 1, #max: 100], #Default: 99]      addprop l, #pminAmplitude, [#comment: "Minimum pulsation amplitude?",¬ #format: #integer, #range: [#min: 0, #max: 99], #Default: 60]      addProp l, #pPulseEnabled, [#comment: "Pulse Mode:",¬ #format: #string, #range: ["none","auto","globally enabled"], #Default: "globally enabled"]      addProp l, #pFinger, [#comment: "Cursor Finger on Rollover?", #format: #boolean, #default: 1]   addProp l, #pSizeAdj, [#comment: "Size effect on?", #format: #boolean, #default: 0]   addprop l, #pFadeSprite, [#comment: "Fade out sprite? (sprite units from current - 0 for none)",¬   #format: #integer, #range: [#min: -10, #max: 10], #Default: 0]   addProp l, #pSelfFade, [#comment: "Restrict this sprite from fading?", #format: #boolean, #default: 0]   addprop l, #pEffectedSprite, [#comment: "Sprite which simultaneously fades in? (sprite units from current - 0 for none)",¬   #format: #integer, #range: [#min: -30, #max: 30], #Default: 0]   addprop l, #pTransmit, [#comment: "Sprite which fades in after this fade completes? (sprite units from current - 0 for none)",¬   #format: #integer, #range: [#min: -30, #max: 30], #Default: 0]   addprop l, #pClickTransmit, [#comment: "Sprite which fades in on click? (sprite units from current - 0 for none)",¬   #format: #integer, #range: [#min: -30, #max: 30], #Default: 0]   addprop l, #pItem, [#comment: "Item number?",¬   #format: #integer, #range: [#min: 0, #max: 10], #Default: 0]   addProp l, #pRecItems, [#comment: "Recieve item member changes?", #format: #boolean, #default: 0]   return(l) end on recievePulseMode mymode   if pPulseEnabled = "globally enabled" then     case pPulseMode of       #on: pPulseMode=#off       #off: pPulseMode=#on     end case   end if end on beginSprite me         pOrigSizeH=sprite(me.spritenum).height   pOrigSizeV=sprite(me.spritenum).width   pFadeSValue=100   if not(pIntitalFadeOut) and not(pInitSolid) then     sprite(me.spritenum).blend=0     pMode=VOID   else     pmode=#over     pFadeValue=100   end if            if pEffectedSprite <> 0 then sprite(me.spritenum+pEffectedSprite).blend=0      pPulseDir=#up   if pPulseEnabled="auto" then     pPulseMode=#on   else     pPulsemode = #off   end if end on mouseEnter me   if pMouseEnabled then     if pFinger then cursor 280     if not (pSelfFade) then  pMode=#over     if pEffectedSprite <> 0 then       sendsprite((me.spritenum+pEffectedSprite), #recieveModeChange, #over)     end if   else     pass   end if    end on mouseLeave me   if pMouseEnabled then     if pFinger then cursor -1     if not (pSelfFade) then pMode=#out     if pEffectedSprite <> 0 then       sendsprite((me.spritenum+pEffectedSprite), #recieveModeChange, #out)     end if     if pClickTransmit <> 0 then sendsprite((me.spritenum+pClickTransmit), #recieveModeChange, #out, pItem)   end if end on mouseUp me   glast= the frame   if pLink <> "none" then go to frame pLink   if pClickTransmit <> 0 then     sendsprite((me.spritenum+pClickTransmit), #recieveModeChange, #over, pItem)     sendsprite((me.spritenum+pClickTransmit), #switchItem, pItem)   end if      cursor -1 end on enterFrame me   if pIntitalFade then     pMode=#over   end if   if pIntitalFadeOut then     pMode=#out   end if      case pMode of              #over :       if  pFadeValue < 100 then         pFadeValue = pFadeValue + pFadeInTime         if pFadeValue >= 100 then           pfadeValue = 100           if pTransmit <> 0 then             x=sprite(me.spritenum).member             sendsprite((me.spritenum+pTransmit), #recieveModeChange, pMode, pItemRecieved)           end if         end if         if pFadeSprite <> 0 then           pFadesValue = pFadeSValue - pFadeInTime           if pFadeSValue <=0 then             pfadeSValue = 0           end if         end if       end if            #out :              pFadeValue = pFadeValue - pFadeTime       if pFadeSprite <> 0 then         pFadesValue = pFadeSValue + pFadeInTime         if pFadeSValue >=100 then           pfadeSValue = 100         end if       end if       if not(pPulseMode = #on and pPulseEnabled <> "none") then           if pFadeValue <=0 then           pfadeValue = 0           if pTransmit <> 0 then             sendsprite((me.spritenum+pTransmit), #recieveModeChange, pMode, pItemRecieved)           end if           pMode = VOID         end if       else         if pFadeValue <=pMinAmplitude then           pFadeValue = pMinAmplitude         end if       end if                          otherwise       if pPulseMode = #on and pPulseEnabled <> "none" then         case pPulseDir of           #up:             pFadeValue = pFadeValue + pPulse             if pFadeValue >= pAmplitude then               pFadeValue = pAmplitude               if pTransmit <> 0 then  -- sends wave effect to other sprites                 sendsprite((me.spritenum+pTransmit), #recieveModeChange, #over, pItemRecieved)               end if               pPulseDir = #down             end if           #down:             pFadeValue = pFadeValue - pPulse             if pFadeValue <=pMinAmplitude then               pFadeValue = pMinAmplitude               if pTransmit <> 0 then  -- sends wave effect to other sprites                 sendsprite((me.spritenum+pTransmit), #recieveModeChange, #out, pItemRecieved)               end if               pPulseDir = #up             end if         end case       else         if pFadeValue >pMinAmplitude then           pFadeValue = pFadeValue - pPulse         end if       end if   end case   sprite(me.spritenum).blend=pFadeValue       end on recieveModeChange me, mode, rItem   pMode = mode   pItemRecieved = rItem end on switchItem me, rItem   pItemRecieved = rItem   if pTransmit<>0 then sendsprite((me.spritenum+pTransmit), #switchItem, pItemRecieved)   if pRecItems  then     x=sprite(me.spritenum).member.name.char.count     y=sprite(me.spritenum).member.name.char[1..x-1]     z=y&rItem     sprite(me.spritenum).member=z     put z        end if       end