マイオリジナル関数 メモ帳 自由な背景の選択肢

投稿者:Pink2 mini kage1215 投稿日:2013/05/18 21:33

忘れないように覚え書き
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)

コメントする

コメントするには、ログインする必要があります。

コメント一覧

コメントはありません。