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,*perfect
 if (hantei=1)|(hantei=2)|(hantei=6)|(hantei=7) :ms="good" :use=1
 if (hantei=0)|(hantei=8) :ms="miss" :use=1
 }
 pos 500,0
 color 255,255,255
 mes ms
 redraw 1
 await 60000/tenpo/9
 redraw 0
*pefect
 loop
 
 
これに得点表示を付け加えたいです
 
								


















 助けて PS:KUNしゃんってうまくね?
助けて PS:KUNしゃんってうまくね?




