質問です
今、メニューを作成しているのですが、上キーを押してもうまく反応してくれないんです。
具体的に言いますと、下キーを押すと下の選択肢が緑になるのですが上キーを押すと一番上の選択肢が緑に変わってしまいます。
HSPの達人の皆様、もしよければ私に下のソースのおかしい所を指摘してください。
お願いします
/////メニュー/////
bmcnt = 7 ;bmcnt=選択肢の数+1です
dim whatmenu,bmcnt
repeat bmcnt : whatmenu(cnt) = 0 : loop ;whatmenu=その選択肢を緑にするかどうかを決める(0なら黒、1なら白)
whatmenu(0) = 1
repeat
redraw 0
stick ky,2|8
if ky&16{end}
if ky&2{
wait 10
repeat bmcnt
if whatmenu(cnt) = 1{
whatmenu(cnt) = 0
if cnt > 0{whatmenu(cnt-1) = 1}
if cnt <= 0{whatmenu(bmcnt-1) = 1}
}
loop
}
if ky&8{
wait 16
repeat bmcnt
if whatmenu(cnt) = 1{;不具合発生箇所と思われる場所
whatmenu(cnt) = 0
if cnt < bmcnt-3 {whatmenu(cnt+1) = 1}
if cnt >= bmcnt-3 {whatmenu(0) = 1}
}
loop
}
repeat bmcnt-1
if whatmenu(cnt) = 0{
color ,,,
}if whatmenu(cnt) = 1{
color 0,255,
}
pos 0,5+cnt*22
if cnt=0{mes "AAAA"}
if cnt=1{mes "BBBB"}
if cnt=2{mes "CCCC"}
if cnt=3{mes "DDDD"}
if cnt=4{mes "EEEE"}
if cnt=5{mes "FFFF"}
loop
await 16
redraw
loop