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

矢を避けろ

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

レベルが変更出来るようになりました 2018年6月14日(木)
1・簡単
2・普通
3・難しい

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

SOURCE CODE

5 'ヤヲヨケロ
10 CLS:S=0:Y=21:Z=1:L=10:X=2:I=2
15 POKE #700,8,8,8,8,73,42,28,8
16 INPUT "レヘ゛ルカ゛ヘンコウテ゛キマス(1~3)",Z:CLS
17 IF Z<0 OR Z>3 THEN GOTO 16 
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():CLK
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:?CHR$(#E0):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;:?"ホ゜イント
160 LC 26,3:?"イタイ!"

COMMENT

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

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