06/05/29 04:16:24 37tC2HAP
>>426
そこはあってる
font "MS ゴシック",70:dim st,10:dim cou,10
*start2
onkey gosub *inkey
for s,0,10,1:a(s)=rnd(10):b(s)=rnd(10):c(s)=rnd(10):next
*start
if st(0)=-99 & st(1)=-99 & st(2)=-99:goto *owari
cls 0
for s,0,3,1
if cou(s)>9 :cou(s)=0
next
pos 80,50:mes a(cou(0))
pos 180,50:mes b(cou(1))
pos 280,50:mes c(cou(2))
for s,0,3,1
if st(s)=-99:sp++:else:cou(s)++
next
wait 30
goto *start
*inkey
if iparam=49:st(0)=-99
if iparam=50:st(1)=-99
if iparam=51:st(2)=-99
return
*owari
for s,0,3,1:st(s)=0:next
onkey 0:wait 100:onkey goto *start2
stop
一定の速度を保ちたいならonkeyは使わない方がいいかも、押されたら残りwaitが無視されるから