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

2015/07/01 17:26:00

MixJuice GET URL : kidspod.club/mj/8

走れ大逆走

ダンブンとゲーム作り 走れ大逆走ゲームです。
IchigoJamに打ち込んで遊んじゃおう!
*このプログラムはIchigoJam1.2.3で動作を確認しています。

SOURCE CODE

10 CLS:S=0:Y=21:Z=1:L=10:X=2:I=2
20 LOCATE L,I:PRINT"|  |":I=I+1
30 IF I<21 GOTO 20
40 IF S%Y=0 A=RND(2)+1:B=1
50 K=INKEY()
60 LOCATE X+L,20:PRINT" "
70 IF K=28 IF X>1 X=X-1
80 IF K=29 IF X<2 X=X+1
90 LOCATE X+L,20:PRINT"A"
100 IF B-Z<21 LOCATE L+A,B-Z:PRINT" "
110 IF B<21 LOCATE L+A,B:PRINT"V":B=B+Z
120 IF VPEEK(L+X,19)!=32 END
130 LOCATE 1,1:PRINT"SCORE:";S/10
140 S=S+1:GOTO 40

COMMENT