崖登りゲーム 10 REM"GAKENOBORI” 20 CLS:CLV:X=15:LC 0,0:X=15:CLP:POKE#750,6,25,52,122,126,60,24,0 25 INPUT”(0~3)(ヒクイホウガカンタン)ナンイドハ?”,L 26 IF L>3 OR L<0 GOTO 10 30 LC 15,11 40 LC 15,11:PRINT 3 41 WAIT 60 42 LC 15,11:PRINT 2 43 WAIT 60 44 LC 15,11:PRINT 1 50 WAIT 60:LC 15,11:PRINT “GO!”:WAIT 60:PRINT “ “ 51 LC X,20:PRINT “ “:LC X,19:PRINT CHR$(237):IF X=0 OR X=31 GOTO 500 60 FOR G=0 TO RND(L):LC RND(31),2:PRINT CHR$(234):NEXT 70 IF INKEY()=LEFT AND X>=0 K=0:X=X-1 80 IF INKEY()=RIGHT AND X<=31 K=0:X=X+1 90 IF K=1 GOTO 500 100 IF VPEEK(X,18)=234 K=1 110 LC 0,0:PRINT S 120 WAIT 10:SCROLL 2:S=S+1 130 LC 0,1:PRINT “ “ 140 GOTO 51 500 CLS:LC 10,19:PRINT “ゲームオーバー スコア”:PRINT S:INPUT “:リプレイ?”,P:GOTO 10 END
いい縦スクロールゲーム。難易度を選べるのもうれしいですね。初心者でこれだけ作れるのはすごい! ただ、120行目のWAIT10はちょっと大きいかも? キー入力からキャラが動き出すまでの時間差が大きくなってしまうので、この点を工夫できるともっと良くなりそうです。 scratchでの活動も応援してます!