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

2018/06/19 21:42:14

MixJuice GET URL : kidspod.club/mj/500

いちごを守れ!

いちごを狙うヘビをタイミングよくたたいてください。
へびをたたくキーは、何でもOK!
ヘビをたたき損ねたり、ヘビがいちごを食べてしまうとゲームオーバー。
何かキーを押すと、再ゲームです。

分かりやすいプログラムになるように、省略形を使わない1画面プログラムにしました。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 CLV:F=3
20 A=31-C:B=C:E=E+1:T=RND(5)*30
30 CLS:PRINT "レヘ゛ル";E
40 LOCATE A,12:PRINT CHR$(#FF)
50 LOCATE 15,13:PRINT CHR$(#FA)
60 T=T+1:IF T>150 THEN B=B+1:BEEP
70 LOCATE B-1,12:PRINT CHR$(#02,#3C):WAIT F
80 IF B=A THEN GOTO 160
90 IF INKEY()=0 THEN GOTO 60
100 LOCATE 15,12:PRINT "|"
110 IF B<15 THEN GOTO 160 
120 LOCATE 9,6:PRINT "<< タイシ゛シタ >>":PLAY "L16FA":WAIT 60 
130 IF E%5=0 THEN C=0:F=F-1 ELSE C=C+3
140 GOTO 20
160 LOCATE 11,16:PRINT "ケ゛ームオーハ゛ー":PLAY "L8FEC":WAIT 60:CLK
170 IF INKEY()=0 THEN GOTO 170 ELSE GOTO 10

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/06/29 19:06:19

へびが動き出してもすぐにたたいてはいけない、というのがナイスアイデア! へびといちごのはじめの場所が近いときなど、けっこうドキドキですね。