• ichigojam

10 'snake game
20 CLS:X=1:Y=0:A=28:S=0:CLK
21 LC 0,Y:?CHR$(1)
22 LC 31,Y:?CHR$(1):Y=Y+1
23 IF Y<22 GOTO21
24 LC X,0:?CHR$(1)
25 LC X,21:?CHR$(1):X=X+1
26 IF X<31 GOTO24 ELSE X=15:Y=12 
30 LC X,Y:?CHR$(#01)
40 K=INKEY():T=T+1
50 IF K=28 A=K
60 IF K=29 A=K
70 IF K=30 A=K
80 IF K=31 A=K
100 IF A=28 X=X-1
110 IF A=29 X=X+1
120 IF A=30 Y=Y-1
130 IF A=31 Y=Y+1
140 IF A=28 LC X+1,Y:?CHR$(#8F)
150 IF A=29 LC X-1,Y:?CHR$(#8F)
160 IF A=30 LC X,Y+1:?CHR$(#8F)
170 IF A=31 LC X,Y-1:?CHR$(#8F)
180 IF SCR(X,Y)<>0 GOTO210
190 IF X<0 OR X>31 OR Y<0 OR Y>23 GOTO210
200 GOTO30
210 LC 15,12:?"SCORE:";T:IF INKEY()<>0 CONT
220 GOTO20

Kidspod運営チーム2022/12/28 20:07:13

いいですね、伝統的ゲーム。キー入力と方向転換の間に、わずかな時間のラグがあるのが攻略のポイントでしょうか。過信すると、あっという間にぶつかってしまう……。これは悔しくて何度もプレイしてしまいます。

Pagetop