Program post site for everyone
60 C="ABCDEFGHIJKLMNOPQRSTUVWXYZ" で設定した文字が、画面上部から降りてくる。
-------に到達する前に、キーボードをタイピングして消す。
同じ文字をまとめて消すと、得点が10 20 30 と高くなっていく。
ミスタッチをすると得点が半分になる。
キーリピートがかからないように警戒なタイピングをしよう。
IchigoJamを使ったタイピングゲーム。
基本的な練習の後のお楽しみに。
練習の進度に合わせて、出題文字を調整します。
大文字小文字PCGを組み合わせると難易度UP
10 'KEYVADER 20 @ST:CLS:LC10,8:?"KEYVADER~ED" 30 LC10,12:?"HIT KEY" 40 K=INKEY():IFK=0CONT 50 CLS:CLV 60 C="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 70 L=LEN(C) 80 @LP:M=0:P=10 90 LC0,22:FORI=0TO31:?"-";:NEXT 100 LC0,23:?"SCORE:";S;" "; 110 K=INKEY():IFK>0BEEP 120 FORI=0TO30STEP3:W=[I]:X=[I+1]:Y=[I+2] 130 IFW=0W=PEEK(C+RND(L)):X=RND(32):Y=0 140 LCX,Y:?CHR$(0); 150 Z=RND(8):IFZ>1Z=1 160 Y=Y+Z:IFY<1Y=1 170 X=X+RND(3)-1 180 IFX<5X=5 190 IFX>26X=26 200 IFW<>KGOTO@SK 210 LCX-1,Y-1:?"\|/";:LCX-1,Y:?"-*-";:LCX-1,Y+1:?"/|\"; 220 S=S+P:P=P+10 230 FORB=2TO4:BEEPB,1:WAIT1:NEXT 240 LCX-1,Y-1:?" ";:LCX-1,Y:?" ";:LCX-1,Y+1:?" "; 250 W=0:GOTO@NE 260 @SK:LCX,Y:?CHR$(W); 270 IFY>=22E=1 280 @NE:[I]=W:[I+1]=X:[I+2]=Y:NEXT 290 IFE=1GOTO@ED 300 IF(P=10)*(K<>0)S=S/2:PLAY"T240<C16C4":WAIT10 310 BEEP30-M,1:WAIT2:GOTO@LP 320 @ED:CLK:LC10,8:?"GAME OVER" 330 FORB=40TO50:BEEPB,2:WAIT3:NEXT 340 LC10,12:?"HIT KEY" 350 K=INKEY():IFK=0CONT 360 GOTO@ST
