Program post site for everyone
ポケコンパズル
●遊び方
＞ルール
ランダムに並んだ０から９までの数値を０１２３４５６７８９に並べ替える
ゲームです。各数値の間を左から１とし一番右で９となります。この数値を
入力することで一定の規則で数値が入れ替わります。もちろん「ｿｳｻｶｲｽｳ」
が少ないほど上級者です。
＞例
１８４６９２５３０７（乱数で10桁の数値）
１と８の間を１、８と４の間は２、、、、、、０と７の間が９となります。
２を入力すると、
８１６９２５３０７４（と並び変わります。）
６を入力すると、
５８１６９２０７４３（と並び変わります。）
１を入力すると、
５１６９２０７４３８（と並び変わります。）
＞数値の入れ替わりの規則
基本的な動きとしては入力した数値の左側の数値は一番左へ飛びその他の数値
は右へ一つずつずれます。右側の数値は一番右へ飛びその他の数値は左へ一つ
ずつずれます。ただし、１と９の入力は片側へしか動きません。
＞その他
その昔、CASIO PB-100で遊んでいたゲームを思い出して作ってみました。
後で分かったのですが数字の入れ替わりのパターンが全然違っていましたが
これはこれで面白いと言うことで完全オリジナルになってしまいました。
単純ですがハマると長時間プレイしてしまうのでご注意ください！（笑）
●プログラムについて
行番号５から１５０をSAVE1に行番号１５５から２９０をSAVE2にそれぞれ保存
して、SAVE1からRUNして下さい。
●プログラム説明
SAVE1
１０ 画面クリア、全変数クリア。
２０－１１０ ランダムで数値を出し重複を確認。
１２０ 数値の表示
１３０ 操作回数の表示
１４０ 終了判定
１５０ 入れ替わりする数値の場所の入力
SAVE2
１６０－２５０ 入れ替わりする数値の判定と数値の移動
２６０ クリアの表示
２７０ リトライの選択
２８０ リトライ後の処理
２９０ プログラム終了
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
