マイオリジナル関数 メモ帳 自由な背景の選択肢
投稿者: 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)
コメントする
コメントするには、ログインする必要があります。
コメント一覧
コメントはありません。