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

2021/09/04 17:52:56

MixJuice GET URL : kidspod.club/mj/2085

ネズミ捕りゲーム

スペースキーを押すと、左のカゴが開きます。
タイミングよく開けて、ネズミ(@)を捕まえましょう。
10回ミスするか、15回捕まえるとゲーム終了です。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 'ネズミトリゲーム
20 CLS:CLV:Y=RND(5)+9:X=22
30 LC2,8:?"|-----"
40 FOR I=9 TO14
50 LC2,I:?"|    |"
60 NEXT
70 LC2,15:?"-----|
80 K=INKEY()
90 IF K=32 FOR I=9 TO14:LC7,I:?" ":NEXT:W=1
100 IF X=8&&W=0 M=M+1:LC8,Y:?" ":X=22:Y=RND(5)+9
110 IF X=8&&W=1 S=S+1
115 IF X=3 X=22:Y=RND(5)+9
120 IF S=15 ?"CLEAR!":END
130 IF M=10 ?"GAME OVER":END
140 X=X-1
150 LC0,0:?"SCORE:";S
160 LC11,0:?"MISS:";M
170 LCX,Y:?"@":LCX+1,Y:?" "
180 WAIT4
190 FOR I=9 TO14:LC7,I:?"|":NEXT:W=0
200 GOTO80

COMMENT

Kidspod運営チーム
Kidspod運営チーム2021/09/21 17:25:55

けっこうタイミングがシビアですね。思っていたより15匹のノルマが大変で、なんども挑戦してしまいます。うまくバランス調整するか、あるいは難易度が次第に上がっていくとか、そのような機能があると、もっとよくなりそうです!