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"
if (key(gaku)=1)&(use=0)&(gaku!0) {
if (hantei=3)|(hsntei=4)|(hantei=5) :ms="perfect" :use=1
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
loop
このあとに
screen 0,640,60
onexit goto*owari
dialog "mp3;*wav",16,"":if stat=0:end
fname=refstr
mci "open \"" + fname + "\" alias music":if stat=-1:end
mci "status music length":m_length=stat
objsize 320,60
pos 0,0:button gosub "再生",*m_play
pos 320,0:button gosub "一時停止",*m_stop
repeat
mci "status music position"
title ""+getpath(fname,9)+"("+stat+"/"+m_length+")"
wait 1
loop
*owari
mci "close all"
end
*m_stop
mci "stop music"
return
*m_play
mci "play music"
return
が来るところまではわかりました
音声データなどはどうすればいいですか?