キーボードによるパスワード入力 - rmakewiki @ 非公式ウィキ

スクリプト/キーボードでのパスワード入力
ikosami 様

少し長いですが、これでキーボードでのパスワード入力ができます。

更新履歴
1/30:複数のパスワードに対応

---

showImage(画像ID) #背景がないと、入力した文字が見えないことがあります･･･
deleteAllSprite()
deleteTextAll()
drawCanvas()
hideImage()
stopBGM()

speak("キーボードで入力してください。")
pasu = createArray()
pasu[0] = "0000000000" #パスワード1
pasu[1] = "1111111111" #パスワード2
pass = 2 #パスワードの数
keta = 10 #パスワードの桁数

su = 0 #何文字目かを表す変数

#ここから下はキーボードのキーの設定

k = createArray()
k[0] = "0"
k[1] = "1"
k[2] = "2"
k[3] = "3"
k[4] = "4"
k[5] = "5"
k[6] = "6"
k[7] = "7"
k[8] = "8"
k[9] = "9"
k[10] = "Q"
k[11] = "W"
k[12] = "E"
k[13] = "R"
k[14] = "T"
k[15] = "Y"
k[16] = "U"
k[17] = "I"
k[18] = "O"
k[19] = "P"
k[20] = "A"
k[21] = "S"
k[22] = "D"
k[23] = "F"
k[24] = "G"
k[25] = "H"
k[26] = "J"
k[27] = "K"
k[28] = "L"
k[29] = "Z"
k[30] = "X"
k[31] = "C"
k[32] = "V"
k[33] = "B"
k[34] = "N"
k[35] = "M"

#キーの設定ここまで

#↓入力箇所の表示
t = createText(250, 250, 400, 200)
ki = createArray()
i = 0
while i < keta

 ki[i] = "-"
 i = i + 1

end
setText(t, ki,"\nキーボードで入力してください。")

startInput()
loop = true

#ループの開始

while loop

 if hasInput()
   takeInput()
   i = 0
   while i < 36 #すべてのキーを調べる
     if isKeyDown(k[i])
       ki[su] = k[i]
       su = su + 1
       setText(t, ki,"\nキーボードで入力してください。")
       if su == keta
         loop = false
       end
     end
     i = i + 1
   end
 end
 waitTime(10)

end
endInput()

deleteTextAll() #表示を消す
#↓入力をひとつの変数に入れる
p = ""
i = 0
while i < 10

       p = p + ki[i]
       i = i + 1

end

       i = 0

while i < pass

       if p == pasu[i]
               if i == 0
                  #パスワード1に合っていたときの処理
               elsif i == 1
                  #パスワード2に合っていたときの処理
               end
       end

i = i + 1
end
speak("パスワードが違います。\n入力:",p)
hideImage()

---

今日の訪問者 -
昨日の訪問者 -