Confine Effect ot Mouse Over-Alphamania

Added on 6/10/1999

Compatibilities:
D6_5 Mac Script

This item has not yet been rated

Author: MediaLab (website)

Requires Effector Set 2. These behaviors are for use with the Alphamania Xtra and its add-on effector sets.

property effectSym
property sNum

on getBehaviorDescription me
  return "Will limit any effect to mouse over activity only."
end

on getPropertyDescriptionList me
  set list = [:]
  set mem = FindAlphaManiaMember()
  if not voidP(mem) then
    set fxList = GetListOfAllEffects(mem)

    addProp list, #effectSym, [#comment: "Effect:", #format: #symbol, #range: fxList, #default: #scale]
  else
    addProp list, #hh, [#comment: "Not An AlphaMania Sprite!"]
  end if
  return list
end

on beginSprite me
  set sNum = the spriteNum of me
end

on mouseEnter me
  if symbolP(effectSym) then
    ContinueEffect(sprite sNum, effectSym)
  end if
end

on mouseLeave me
  if symbolP(effectSym) then
    PauseEffect(sprite sNum, effectSym)
  end if
end

on FindAlphaManiaMember
  repeat with x = 1 to the number of castLibs
    repeat with y = 1 to the number of members of castLib x
      if the type of member y of castLib x = #alpha then
        return member y of castLib x
      end if
    end repeat
  end repeat
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail