サウンドを鳴らすビヘイビアビア

---

property pSoundCh,pSoundMember,pWhichEvent

on exitFrame me
  if pWhichEvent = #exitFrame then SoundOn me
end

on mouseDown me
  if pWhichEvent = #mouseDown then SoundOn me
end

on mouseUp me
  if pWhichEvent = #mouseUp then SoundOn me
end

on SoundOn me
  puppetSound pSoundCh,member pSoundMember
  updateStage
end

on getPropertyDescriptionList
  set pList = [:]
  addProp pList, #pSoundCh,[#comment:"どのチャンネルを使用しますか?:",#format:#integer,#default:1]
  addProp pList, #pWhichEvent,[#comment:"どのイベントで鳴らしますか?:",#format:#symbol,#range:[#exitFrame,#mouseDown,#mouseUp],#default:#mouseDown]
  addProp pList, #pSoundMember,[#comment:"そのサウンドを使用しますか?:",#format:#sound,#default:""]
  return pList
end

---