soundLevelの変更ボタン

---

property SpriteNum,pDefaultMemNum

on beginSprite me
  set pDefaultMemNum to the memberNum of sprite SpriteNum
  set the memberNum of sprite SpriteNum to pDefaultMemNum + (the soundLevel)
end

on mouseUp me
  ChangeSoundLevel me
  ChangeMember me
end

on ChangeSoundLevel me
  if the soundLevel < 7 then
    set the soundLevel to (the soundLevel) + 1
  else
    set the soundLevel to 0
  end if
end

on ChangeMember me
  if the soundLevel <= 7 then
    set the memberNum of sprite SpriteNum to pDefaultMemNum + (the soundLevel)
  else
    set the memberNum of sprite SpriteNum to pDefaultMemNum
  end if
  beep 1
end

---