title""
pos 250,30
font "MS ゴシック",40,1
mes"Music game"
mes"v(TπT)v"
pos 300,150
button" 始める ",*start
stop
*start
cls
; repeat - loop 10
gakuhu="01050345212234512345112345234132451321454231" ;0は無表示,1〜5はz〜bボタンを押す
tenpo=60
;テンポの速さ
dim key,6
font "",30
repeat
color 0,0,0 :boxf
color 255,255,255
hantei=cnt\9
if hantei=0 :use=0:gaku=int(strmid (gakuhu,gcnt,1)):gcnt+1
getkey key(1),90
getkey key(2),88
getkey key(3),67
getkey key(4),86
getkey key(5),66
line 100,0,100,640
line 200,0,200,640
line 300,0,300,640
line 400,0,400,640
line 500,0,500,640
line 0,400,500,400
color 255,255,0
pos (gaku*100)-60,350
if gaku=1 :mes ""
if gaku=2 :mes ""
if gaku=3 :mes ""
if gaku=4 :mes ""
if gaku=5 :mes ""
color 255,0,255
if hantei=4 {
boxf (gaku*100)-100,390,gaku*100,410
} else {
if hantei<4 :boxf (gaku*100)-100,(cnt\9)*(390/4),gaku*100,(cnt\9)*(390/4)+20
}
pos 41,423
mes "Z"
color 255,0,255
pos 141,423
mes "X"
color 255,0,255
pos 241,423
mes "C"
color 255,0,255
pos 341,423
mes "V"
color 255,0,255
pos 441,423
mes "B"
pos 500,50
mes "miss"
mes "good"
mes "perfect"
if (key(gaku)=1)&(use=0)&(gaku!0) {
if (hantei=3)|(hsntei=4)|(hantei=5) :ms="perfect" :use=1:tokuten+=3,*perfect
if (hantei=1)|(hantei=2)|(hantei=6)|(hantei=7) :ms="good" :tokuten+=2:use=1
if (hantei=0)|(hantei=8) :ms="miss" :use=1
}
pos 500,0
color 255,255,255
mes ms
mes tokuten
redraw 1
await 60000/tenpo/9
redraw 0
*perfect
loop