◇　BGM 3　◇
　  SE  2

#名前とか
setCustomParamMenuEnable(true)
setCustomParamMenuName("設定")

#関数の省略
def sv(a,b)
setVariable(a,b)
end
def gv(a)
return getVariable(a)
end
def ca()
return createArray()
end

#設定項目。今回はBGMとSE
sv("BGM", 3) ; sv("SE", 3)
def onShowCustomParameter() 

 #上から何番目を選択しているか
 No = 0

 #選択中の枠を作る
 c = createText(322, 80+28*No, 512, 384)
 setText(c, "◇　　　　　　　◇")

 #設定項目の下準備
 i=0 ; a=ca() ; b=ca()
 while i < 2 
 a[i] = createText(350, 80+ 28*i, 512, 384)
 b[i] = createText(404, 80+ 28*i, 512, 384)
 i=i+1
 end

 #実際に文字を入れる
 setText(a[0], "BGM") ; setText(a[1], "SE")
 setText(b[0], gv("BGM")) ; setText(b[1], gv("SE"))

 #ここから操作
 startInput()
 loop=true 
  while loop 
   while hasInput() 
   takeInput()
    
    if isKeyDown("ENTER") #Enterで終了
     loop=false 
    elsif isKeyDown("UP") #枠を上に
      if No > 0
      No = No - 1
       deleteText(c)
       c = createText(322, 80+28*No, 512, 384)
       setText(c, "◇　　　　　　　◇")
      end
    elsif isKeyDown("DOWN") #枠を下に
      if No < 1
      No = No + 1
       deleteText(c)
       c = createText(322, 80+28*No, 512, 384)
       setText(c, "◇　　　　　　　◇")
      end
    elsif isKeyDown("LEFT") #値を小さく(最低1)
      case No
      when 0
        if gv("BGM") > 1 then sv("BGM", gv("BGM")-1) ; end
      when 1
        if gv("SE") > 1 then sv("SE", gv("SE")-1) ; end
      end
    elsif isKeyDown("RIGHT") #値を大きく(最高5)
      case No
      when 0
        if gv("BGM") < 5 then sv("BGM", gv("BGM")+1) ; end
      when 1
        if gv("SE") < 5 then sv("SE", gv("SE")+1) ; end
      end
    end 
   
   end
   
  #画面に反映
  setText(b[0], gv("BGM")) ; setText(b[1], gv("SE"))
  waitTime(30)
  
  end
  endInput()

#後処理
deleteTextAll()
end