プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2017/03/04 13:14:01

MixJuice GET URL : kidspod.club/mj/164

Two set of Numbers

簡単なパズルゲームです
カーソルキーで”↑↑”を動かし、スペースバーでその上の数字の左右を入れ替えます
2個の数字が並ぶとポイントとなり、数字が違うものに変わります

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

 1 'Two set of Numbers
10 SRNDTICK():CLS:P=0:X=0:T=240
80 FORI=0TO7:[I]=RND(8)+1:NEXT:GOTO300
100 CLT:LC1,0:?DEC$(P,7);"P";:LC1,2:FORI=0TO7:?[I];:NEXT
110 LCX,3:?" ↑↑ ";
120 K=INKEY()
130 X=X+(K=RIGHT)*(X<6)-(K=LEFT)*(X>0)
140 IFK=SPACEGOTO200
150 IFTICK()>TGOTO400ELSEGOTO110
200 [8]=[X]:[X]=[X+1]:[X+1]=[8]
300 FORI=0TO6
310 IF[I]=[I+1]:BEEP:P=P+10:[I]=RND(8)+1:[I+1]=RND(8)+1:I=I+2
320 NEXT
330 GOTO100
400 LC1,1:?"GAME OVER";:WAIT60
410 IFINKEY()<>SPACEGOTO410ELSEGOTO10

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/03/15 18:41:55

面白いパズルですね! 簡単そうなのに、素早く数字を消そうとすると、むずかしい!