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

2019/10/16 09:26:09

MixJuice GET URL : kidspod.club/mj/917

CHASER 追跡者 君は生き延びることができるか。

矢印キーで人を動かします。
*は障害物で通れません。
●から@が孵って体を伸ばしながら追跡してきます。
君は生き延びることができるか。
BTNで移動方向を決めているので、斜めに通り抜けができます。

X,Y 人の位置
V,W 移動のための一時記憶
H,L @の位置
T @移動のタイミング


キャラクタをPCGで変えて動かすなどすると面白くなるでしょう。

  • 1
  • 1

SOURCE CODE

10 'CHASER
20 CLS:FORI=0TO12:LCRND(32),RND(23):?"*":NEXT
30 H=RND(32):L=RND(23):LCH,L:?"~E9"
40 X=RND(32):Y=RND(23):LCX,Y:?"~FA"
50 S=0:T=300:CLT
60 @LP:V=X:W=Y:S=S+1
70 LC0,23:?"SCORE:";S;
80 X=X+BTN(RIGHT)-BTN(LEFT)
90 Y=Y+BTN(DOWN)-BTN(UP)
100 IF(X<0)|(X>31)X=V
110 IF(Y<0)|(Y>22)Y=W
120 IFSCR(X,Y)>0X=V:Y=W
130 LCV,W:?CHR$(0):LCX,Y:?"~FA"
140 IFTICK()<T/10GOTO@SK
150 IF!RND(3)LCRND(32),RND(23):?"*"
160 LCH,L:?"~E8"
170 IFH>XH=H-1
180 IFH<XH=H+1
190 IFL>YL=L-1
200 IFL<YL=L+1
210 LCH,L:?"~EF":BEEP50,5
220 IF(X=H)*(Y=L)GOTO@ED
230 CLT:T=T-1:IFT<0T=0
240 @SK:WAIT10:GOTO@LP
250 @ED:LC5,5:?"[[GAME OVER]]"

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/10/18 17:38:04

見事な戦略ゲーム! 既にある障害物に加えて、自分である程度障害物の発生を制御できるというのがいいですね。