【mkII専用】
ACLS:CLEAR:PNLTYPE "OFF" GPAGE 1:GCLS 15 K=16:S=256/K FOR I=0 TO K-1 GLINE I*S,0,I*S,191,13 NEXT @MAIN Z=0 OR (TCHX/S) IF TCHST THEN BGMPLAY MID$("CDEFGAB",Z%7,1) WAIT 1 GOTO @MAIN |
ACLS:CLEAR:PNLTYPE "OFF" GPAGE 1:GCLS 15 K=16:S=256/K FOR I=0 TO K-1 GLINE I*S,0,I*S,191,13 NEXT @MAIN L=Z:Z=0 OR (TCHX/S) IF TCHST*(L-Z) THEN BGMPLAY MID$("CDEFGAB",X%Z,1) WAIT 1 GOTO @MAIN |
《 指で演奏できる鍵盤演奏プログラムに必要なもの 》 (1) 十分な大きさの鍵盤 (2) 十分な大きさの当たり判定 |
ACLS:CLEAR:PNLTYPE "OFF" GPAGE 1:GCLS 13 GFILL 0,0,255,160,15 K=10:S=256/K FOR I=0 TO K Q=I%7 GLINE I*S,0,I*S,191,13 IF Q!=0 AND Q!=3 THEN GFILL I*S-S/2+1,0,I*S+S/2-1,90,14 NEXT @MAIN A$="":X=TCHX:Y=TCHY:T=TCHST G=GSPOIT(X,Y):W=X IF G==14THEN A$="#":W=X-S/2 Z=0 OR (W/S) Z$="O"+STR$(0OR(Z/7)+4)+MID$("CDEFGAB",Z%7,1)+A$ IF !T THEN F=0 IF T*!F THEN F=1:BGMPLAY Z$ WAIT 1 GOTO @MAIN |
ACLS:CLEAR:PNLTYPE "OFF" GPAGE 1:GCLS 13 GFILL 0,0,255,160,15 K=10:S=256/K FOR I=0 TO K Q=I%7 GLINE I*S,0,I*S,191,13 IF Q!=0 AND Q!=3 THEN GFILL I*S-S/2+1,0,I*S+S/2-1,90,14 NEXT @MAIN A$="":X=TCHX:Y=TCHY:T=TCHST G=GSPOIT(X,Y):W=X IF G==14THEN A$="#":W=X-S/2 Z=0 OR (W/S) Z$="T1L1O"+STR$(0OR(Z/7)+4)+MID$("CDEFGAB",Z%7,1)+A$ IF !T*F THEN BGMSTOP 0,0.3:GPAINT D,E,F:F=0 IF T*!F*(G>13) THEN D=X:E=Y:F=G:BGMPLAY Z$:GPAINT X,Y,2 WAIT 1 GOTO @MAIN |
ACLS:CLEAR:PNLTYPE "OFF" K=14:GPAGE 1 GOSUB @KENBAN @MAIN A$="":X=TCHX:Y=TCHY:T=TCHST G=GSPOIT(X,Y):W=X IF G==14THEN A$="#":W=X-S/2 Z=0OR(W/S)+P Z$="T1L1O"+STR$((0OR Z/7)+4)+"@"+STR$(N)+MID$("CDEFGAB",(Z+28)%7,1)+A$ IF !T*F THEN BGMSTOP 0,0.3:GPAINT D,E,F:F=0 IF T*!F*(G>13) THEN D=X:E=Y:F=G:BGMPLAY Z$:GPAINT X,Y,2 B=BTRIG() K=K+(B==32)*(K<20)-(B==16)*(K>4) P=P+(B==8)*(P<14)-(B==4)*(P>-28) N=(N+(B%4+1)%3+127+(B==256)*25)%128 IF B==512 THEN P=0:N=0 IF B THEN GOSUB @KENBAN WAIT 1 GOTO @MAIN @KENBAN GCLS 13:CLS ?"ケンバン スウ="K ?"ケンバン イチ="P ?"ネイロ No. ="N GFILL 0,0,255,160,15 S=256/K FOR I=0 TO K Q=(P+I+28)%7 GLINE I*S,0,I*S,191,13 IF Q!=0 AND Q!=3 THEN GFILL I*S-S/2+1,0,I*S+S/2-1,90,14 NEXT RETURN |