今日、教室にきていたこどもたちと一緒につくりました!
IchigoJamの二人対戦型鬼ごっこゲームです。(コードはもっときれいにしたい)
友達と一緒にプレイして、ながくにげきろう!
遊び方
逃げる人 : ←↑→↓キーで移動
鬼 : WSADキーで移動
コード
10 CLS:CLT:X=0:Y=1:A=30:B=20
20 K=INKEY()
22 IF K!=0 LCX,Y:?" "
24 IF K!=0 LCA,B:?" "
30 IF K=30 Y=Y-1
40 IF K=31 Y=Y+1
50 IF K=28 X=X-1
60 IF K=29 X=X+1
70 IF K=87 B=B-1
80 IF K=83 B=B+1
90 IF K=68 A=A+1
95 IF K=65 A=A-1
100 IF X<0 X=0
101 IF X>30 X=30
105 IF Y<1 Y=1
106 IF Y>20 Y=20
110 IF A<0 A=0
111 IF A>30 A=30
115 IF B<1 B=1
116 IF B>20 B=20
200 LCX,Y:?CHR$(250)
210 LCA,B:?CHR$(237)
220 LC0,0:?TICK()
800 IF X=A && Y=B GOTO1000
900 GOTO20
1000 LCA+1,B:?"ツカマエタ"