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

2018/07/09 22:27:36

MixJuice GET URL : kidspod.club/mj/515

ポケコンパズル


ポケコンパズル


●遊び方
 >ルール
 ランダムに並んだ0から9までの数値を0123456789に並べ替える
 ゲームです。各数値の間を左から1とし一番右で9となります。この数値を
 入力することで一定の規則で数値が入れ替わります。もちろん「ソウサカイスウ」
 が少ないほど上級者です。

 >例
 1846925307(乱数で10桁の数値)
 1と8の間を1、8と4の間は2、、、、、、0と7の間が9となります。
 2を入力すると、
 8169253074(と並び変わります。)
 6を入力すると、
 5816920743(と並び変わります。)
 1を入力すると、
 5169207438(と並び変わります。)

 >数値の入れ替わりの規則
 基本的な動きとしては入力した数値の左側の数値は一番左へ飛びその他の数値
 は右へ一つずつずれます。右側の数値は一番右へ飛びその他の数値は左へ一つ
 ずつずれます。ただし、1と9の入力は片側へしか動きません。

 >その他
 その昔、CASIO PB-100で遊んでいたゲームを思い出して作ってみました。
 後で分かったのですが数字の入れ替わりのパターンが全然違っていましたが
 これはこれで面白いと言うことで完全オリジナルになってしまいました。
 単純ですがハマると長時間プレイしてしまうのでご注意ください!(笑)



●プログラムについて
 行番号5から150をSAVE1に行番号155から290をSAVE2にそれぞれ保存
 して、SAVE1からRUNして下さい。



●プログラム説明
 SAVE1
 10 画面クリア、全変数クリア。
 20-110 ランダムで数値を出し重複を確認。
 120 数値の表示
 130 操作回数の表示
 140 終了判定
 150 入れ替わりする数値の場所の入力

 SAVE2
 160-250 入れ替わりする数値の判定と数値の移動
 260 クリアの表示
 270 リトライの選択
 280 リトライ後の処理
 290 プログラム終了

  • No registered tag exist.
  • 1
  • 1

SOURCE CODE

5 'ポケコンパズルP1
10 cls:CLEAR
20 A=RND(10)
30 B=RND(10):IF B=A GOTO 30
40 C=RND(10):IF C=A OR C=B GOTO 40
50 D=RND(10):IF D=A OR D=B OR D=C GOTO 50
60 E=RND(10):IF E=A OR E=B OR E=C OR E=D GOTO 60
70 F=RND(10):IF F=A OR F=B OR F=C OR F=D OR F=E GOTO 70
80 G=RND(10):IF G=A OR G=B OR G=C OR G=D OR G=E OR G=F GOTO 80
90 H=RND(10):IF H=A OR H=B OR H=C OR H=D OR H=E OR H=F OR H=G GOTO 90
100 I=RND(10):IF I=A OR I=B OR I=C OR I=D OR I=E OR I=F OR I=G OR I=H GOTO 100
110 J=RND(10):IF J=A OR J=B OR J=C OR J=D OR J=E OR J=F OR J=G OR J=H OR J=I GOTO110

120 PRINT A,B,C,D,E,F,G,H,I,J
130 PRINT "ソウサカイスウ = ",S
140 IF A=0 AND B=1 AND C=2 AND D=3 AND E=4 AND F=5 AND G=6 AND H=7 AND I=8 AND J=9 LRUN 2,260
150 INPUT Z:S=S+1:LRUN 2,160




155 'ポケコンパズルP2
160 IF Z=1:Y=B:B=C:C=D:C=D:D=E:E=F:F=G:G=H:H=I:I=J:J=Y:LRUN 1,120
170 IF Z=2:X=B:B=A:A=X:Y=C:C=D:D=E:E=F:F=G:G=H:H=I:I=J:J=Y:LRUN 1,120
180 IF Z=3:X=C:C=B:B=A:A=X:Y=D:D=E:E=F:F=G:G=H:H=I:I=J:J=Y:LRUN 1,120
190 IF Z=4:X=D:D=C:C=B:B=A:A=X:Y=E:E=F:F=G:G=H:H=I:I=J:J=Y:LRUN 1,120
200 IF Z=5:X=E:E=D:D=C:C=B:B=A:A=X:Y=F:F=G:G=H:H=I:I=J:J=Y:LRUN 1,120
210 IF Z=6:X=F:F=E:E=D:D=C:C=B:B=A:A=X:Y=G:G=H:H=I:I=J:J=Y:LRUN 1,120
220 IF Z=7:X=G:G=F:F=E:E=D:D=C:C=B:B=A:A=X:Y=H:H=I:I=J:J=Y:LRUN 1,120
230 IF Z=8:X=H:H=G:G=F:F=E:E=D:D=C:C=B:B=A:A=X:Y=I:I=J:J=Y:LRUN 1,120
240 IF Z=9:X=I:I=H:H=G:G=F:F=E:E=D:D=C:C=B:B=A:A=X:LRUN 1,120
250 LRUN 1,120

260 PRINT "クリア オメデトウ!!"
270 INPUT "モウイチド=1 ヤメル=0",W
280 IF W=1 THEN LRUN 1,5 ELSE 
290 END

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/07/13 17:20:56

強烈に頭を使うパズルですね、これは。解いた後も手数を縮めるという挑戦が、また先が長い! まさに長時間プレイしてしまうゲームです。