def OriginalSelect(q,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9)
choice=createArray()

if a0
pushArray(choice,a0)
end
if a1
pushArray(choice,a1)
end
if a2
pushArray(choice,a2)
end
if a3
pushArray(choice,a3)
end
if a4
pushArray(choice,a4)
end
if a5
pushArray(choice,a5)
end
if a6
pushArray(choice,a6)
end
if a7
pushArray(choice,a7)
end
if a8
pushArray(choice,a8)
end
if a9
pushArray(choice,a9)
end




l=getArrayLength(choice)
fs=getTextFontSize()
y=(fs+3)*l

setVariable("OriginalSelectQ",createText(20, 400, 400, 200))
setVariable("OriginalSelectA",createText(20, 20, 400, y))


setVariable("OriginalSelectQB",createSprite(188174))#透過ファイル達
setVariable("OriginalSelectAB",createSprite(188174))#透過ファイル達
setVariable("OriginalSelectCB",createSprite(188174))#透過ファイル達

setSpriteRect(getVariable("OriginalSelectQB"), 9, 5, 1, 1, 20, 400, 600, 200)
setSpriteRect(getVariable("OriginalSelectAB"), 9, 5, 1, 1, 20, 20, 600, y)
setSpriteRect(getVariable("OriginalSelectCB"), 1, 7, 1, 1, 20, 20, 600, (fs+3))


setSpriteZOrder(getVariable("OriginalSelectQB"), 3)
setSpriteZOrder(getVariable("OriginalSelectAB"), 3)
setSpriteZOrder(getVariable("OriginalSelectCB"), 4)



drawCanvas()


s=joinArray(choice, "\n")
setText(getVariable("OriginalSelectQ"),q)
setText(getVariable("OriginalSelectA"),s)


n=0

startInput()
loop = true

while loop
setSpritePosition(getVariable("OriginalSelectCB"),0,(fs+3)*n)
drawCanvas()
  while hasInput()
    takeInput()
    if isKeyDown("ENTER")
      loop = false

    elsif isKeyDown("UP") 
      if n==0
        n=0
      else
        n=n-1
      end
    elsif isKeyDown("DOWN")
      if n==l-1
        n=l-1
      else
        n=n+1
      end
    end
  end

  waitTime(30)

end
endInput()

deleteSprite(getVariable("OriginalSelectQB"))
deleteSprite(getVariable("OriginalSelectAB"))
deleteSprite(getVariable("OriginalSelectCB"))

deleteText(getVariable("OriginalSelectQ"))
deleteText(getVariable("OriginalSelectA"))
drawCanvas()

return n

end

setTextFontSize(24)
setTextFontColor(0, 0, 90)

a=OriginalSelect("あなたの好きな野菜は","トマト","人参","ピーマン","セロリ","大根","レタス")

speak(a)



a=OriginalSelect("あなたの嫌いな野菜は","ピーマン","ピーマン","ピーマン","ピーマン")
speak(a)