Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2018/04/29 17:21:47

MixJuice GET URL : kidspod.club/mj/484

矢を避けろ

カーソルキーを使って矢を避けてください

  • 1
  • 2
  • 3
  • 1
  • 2
  • 3

SOURCE CODE

5 'ヤヲヨケロ
10 CLS:S=0:Y=21:Z=1:L=10:X=2:I=2
20 LC L,I:?CHR$(6);:?"     ";:?CHR$(6);:I=I+1
30 IF I<21 GOTO 20
40 IF S%Y=0 A=RND(5)+1:B=1
50 K=INKEY()
60 LC X+L,20:?" "
70 IF K=28 IF X>1 X=X-1
80 IF K=29 IF X<5 X=X+1
90 LC X+L,20:?CHR$(5)
100 IF B-Z<21 LC L+A,B-Z:PRINT" "
110 IF B<21 LC L+A,B:?"|":B=B+Z
120 IF VPEEK(L+X,19)!=32 GOTO 150
130 LC 1,1:?"スコア:";S/10
140 S=S+1:GOTO 40
150 LC X+L,20:?"ケ゛ームオーハ゛スコア:";S/10;:?"ホ゜イント

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/05/02 09:31:24

シンプルで良いゲームですね。スコアが増えていくと矢が速くなるとか矢が増えるとかの仕組みがあると、もっと面白くなりそうです!