プチコンまとめWiki (初代/mkII)

パンくずリスト

• トップ
• Toukou
• コードブレーカー（数当てゲーム）

2013年11月6日投稿

/ 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム QRコード mkII専用

概要

RPG「女神転生」シリーズのミニゲーム「コードブレーカー」の再現を試みました。ナンディさんネー！
正式名称は「Hit&Blow」という数当てゲームです。
処女作なので雑な作りかと思いますが、楽しんでいただければ幸いです。
11/7付で画面に肝心のナンディさんを表示するようにしました。
11/17付で、規定回数の半分以下でクリアした場合「メタルカード」を貰えるようになりました。
何枚か集めるとモードが一つ追加されます。
画面表示をすこし改良。付属データの名称を「ＣＢ」に統一しました。
また、ＥＡＳＹの規定回数を6回→8回に変更しました。

操作説明

起動画面に常に説明を表示していますが、一応。
十字キー…上下で数字の変更、左右でカーソル移動。
Aボタン…文字送り、選択した数字のチェック。
Xボタン…ゲームの終了

ルール

各桁の数字が全て違う、3桁ないし4桁の秘密の数字を当てるゲームです。
数字を入力して、桁ごとに
「正解と一致する（ヒット）」
「場所は違うがその数字が含まれる（ブロー）」
という情報を基に正解を導きます。
難易度EASYは0〜7のうち3桁の数字を8回以内、
難易度HARDは1〜9のうち4桁の数字を8回以内に当てれば成功です。

例題

答えが「123」の場合、以下のようになります。
「128」→ 2ヒット、0ブロー
「135」→ 1ヒット、1ブロー
「312」→ 0ヒット、3ブロー
「111」→ 1ヒット、2ブロー

スクリーンショット

QR コード

読み取り辛い場合は、画像をクリックして原寸表示してやってください。 プログラムの起動には下のCHRデータが必要です。
PRG

CHR

プログラムリスト

+

...

’　───────────────────── ’’コ−ト゛フ゛レ−カ− ＶＩＳＩＢＬＥ　１，１，１，１，０，０ ＡＣＬＳ：ＣＬＥＡＲ ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＬＯＡＤ”ＢＧＵ０Ｕ：ＣＢ”，ＦＡＬＳＥ ＢＧＯＦＳ　０，３０８，３８０ ’ナンテ゛ィサン　ヒ゛ョウカ゛ Ｉ＝０ ＠ＮＡＮ 　Ｘ＝ＦＬＯＯＲ（Ｉ／７） 　Ｙ＝ＦＬＯＯＲ（Ｉ％７） 　Ｚ＝Ｘ＋１６＋Ｙ＊３２ 　ＢＧＰＵＴ　Ｏ，Ｘ，Ｙ，Ｚ，０，０，０ 　Ｉ＝Ｉ＋１ 　ＩＦ　Ｘ＞６　ＴＨＥＮ　ＧＯＴＯ　＠ＮＡＮＥＮＤ 　ＧＯＴＯ　＠ＮＡＮ ＠ＮＡＮＥＮＤ ＠ＴＩＴＬＥ ＣＬＳ：ＣＬＥＡＲ ＢＧＭＳＴＯＰ ’タイトル ＠ＴＩＣ ＴＣ＝ＲＮＤ（１２）＋２ ＬＯＣＡＴＥ　８，３：ＣＯＬＯＲ　ＴＣ ？”┌────────────┐” ＬＯＣＡＴＥ　８，４ ？”│ＣＯＤＥ　ＢＲＥＡＫＥＲ│” ＬＯＣＡＴＥ　８，５ ？”└────────────┘” ＬＯＣＡＴＥ　５，７：ＣＯＬＯＲ　ＦＣ ？”ナマステ！” ＬＯＣＡＴＥ　５，８ ？”ワタシ　イント゛カラ　キタ　ナンテ゛ィサン　ネ” ＬＯＣＡＴＥ　５，９ ？”マタ　アエタヒト、オヒサネ−　ウレシネ−” ＬＯＣＡＴＥ　８，１１ ？”ナンイト゛　エラフ゛ヨ−” ’メニュ− ＬＯＣＡＴＥ　９，１３ ？”Ａホ゛タン→”； ＣＯＬＯＲ　９：？”ＥＡＳＹ” ＬＯＣＡＴＥ　９，１４：ＣＯＬＯＲ　ＦＣ ？”Ｂホ゛タン→”； ＣＯＬＯＲ　１３：？”ＨＡＲＤ” ＬＯＣＡＴＥ　９，１７：ＣＯＬＯＲ　ＦＣ ？”Ｘホ゛タン→ＱＵＩＴ” ’ＰＲＩＺＥ　カンレン ＬＯＡＤ　”ＭＥＭ：ＣＢ”，ＦＡＬＳＥ ＰＲＺ＝ＶＡＬ（ＭＥＭ＄） ＬＯＣＡＴＥ　９，１９ ？”メタルカ−ト゛　”ＰＲＺ”マイ” ＩＦ　ＰＲＺ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＦＩＲＳＴ ＩＦ　ＰＲＺ＞＝５　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＩＴＯＮ ＧＯＴＯ　＠ＷＡＩＴ ’ショカイ　フ゜レイ　ＭＥＭ＄　カクホ ＠ＦＩＲＳＴ ＣＬＳ：ＬＯＣＡＴＥ　０，５ ？”　　オヤ　アナタ　メタルカ−ト゛　モッテナイ？” ？”　　ショ−カ゛ナイ　ネ” ？”　　１マイ　アケ゛ルヨ” ＰＲＺ＝ＰＲＺ＋１ ＭＥＭ＄＝ＳＴＲ＄（ＰＲＺ） ＳＡＶＥ　”ＭＥＭ：ＣＢ” ＬＯＣＡＴＥ　０，９ ？”　　スクナイ　カイスウテ゛　セイカイ　テ゛キタラ” ＣＯＬＯＲ　９：？”　　ＥＡＳＹ”； ＣＯＬＯＲ　０：？”　　ナラ　１マイ” ＣＯＬＯＲ　１３：？”　　ＨＡＲＤ”； ＣＯＬＯＲ　０：？”　　ナラ　２マイ” ？”　　コノ　「メタルカ−ト゛」　アケ゛ルネ” ？”” ？”　　５マイ　アツメルト　イイコト　アルヨ　　А” ＠ＷＦＩＲＳＴ 　Ｂ５＝ＢＵＴＴＯＮ（２） 　ＩＦ　Ｂ５＝＝１６　ＴＨＥＮ　ＣＬＳ 　ＩＦ　Ｂ５＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ 　ＧＯＴＯ　＠ＷＦＩＲＳＴ ＠ＥＤＩＴＯＮ ＬＯＣＡＴＥ　９，１５：ＣＯＬＯＲ　ＦＣ ？”Ｙホ゛タン→”； ＣＯＬＯＲ　４：？”ＥＤＩＴ”：ＣＯＬＯＲ　ＦＣ ＧＯＴＯ　＠ＷＡＩＴ ＠ＷＡＩＴ 　Ｂ１＝ＢＵＴＴＯＮ（２） 　ＩＦ　Ｂ１＝＝１６　ＴＨＥＮ　ＢＥＥＰ　２ 　ＩＦ　Ｂ１＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡＳＹ 　ＩＦ　Ｂ１＝＝３２　ＴＨＥＮ　ＢＥＥＰ　２ 　ＩＦ　Ｂ１＝＝３２　ＴＨＥＮ　ＧＯＴＯ　＠ＨＡＲＤ 　ＩＦ　Ｂ１＝＝６４　ＴＨＥＮ　ＧＯＴＯ　＠ＢＹＥ ’Ｌホ゛タン　テ゛　タイトルカラ−　ヘンコウ 　ＩＦ　Ｂ１＝＝２５６　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＣ 　ＩＦ　ＰＲＺ＞＝５　ＴＨＥＮ　ＧＯＴＯ　＠ＷＢ１ 　ＧＯＴＯ　＠ＷＡＩＴ ＠ＷＢ１ 　ＩＦ　Ｂ１＝＝１２８　ＴＨＥＮ　ＢＥＥＰ　２ 　ＩＦ　Ｂ１＝＝１２８　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＩＴ 　ＧＯＴＯ　＠ＷＡＩＴ ＠ＥＡＳＹ ＤＩＦ＝１：ＮＭＩＮ＝０：ＮＭＡＸ＝７ ＡＣ＝３：ＬＩＭＩＴ＝８ ＧＯＴＯ　＠ＷＡＩＴＲＵＬＥ ＠ＨＡＲＤ ＤＩＦ＝２：ＮＭＩＮ＝１：ＮＭＡＸ＝９ ＡＣ＝４：ＬＩＭＩＴ＝８ ＧＯＴＯ　＠ＷＡＩＴＲＵＬＥ ＠ＦＯＮＴＣ ＦＣ＝ＦＣ＋１ ＩＦ　ＦＣ＝＝１　ＴＨＥＮ　ＦＣ＝３ ＩＦ　ＦＣ＞４　ＴＨＥＮ　ＦＣ＝Ｏ ＧＯＴＯ　＠ＦＯＣ ＠ＥＤＩＴ ＢＧＭＳＴＯＰ：ＣＬＳ：ＤＩＦ＝０：ＮＭＩＮ＝１ ＮＭＡＸ＝９：ＡＣ＝４：ＬＩＭＩＴ＝８ ’カ゛メン　ヒ゛ョウカ゛ ＠ＦＯＣ ＣＯＬＯＲ　４：ＬＯＣＡＴＥ　５，１：？”ＥＤＩＴ　ＭＯＤＥ” ＣＯＬＯＲ　ＦＣ＋７：ＬＯＣＡＴＥ　２，３ ？”ＧＡＭＥル−ルヲ　カエテ　アソヘ゛マス” ？”　　（メタルカ−ト゛　ハ　モラエマセン）” ＣＯＬＯＲ　ＦＣ ？”シ゛ュウシ゛キ−↑↓テ゛　センタク　←→テ゛　ヘンコウ” ＬＯＣＡＴＥ　１，８：？”・サイショウスウ（０ｏｒ１）　　　：　”ＮＭＩＮ”” ＬＯＣＡＴＥ　１，１０：？”・サイタ゛イスウ（５―９）　　　　：　”ＮＭＡＸ”” ＬＯＣＡＴＥ　１，１２：？”・セイカイノ　カス゛（３ｏｒ４）　：　”ＡＣ”コ” ＬＯＣＡＴＥ　１，１４：？”・トライ　カイスウ（６―８）　　　：　”ＬＩＭＩＴ”カイ” ＥＸ＝２０：ＥＹ＝９：ＬＯＣＡＴＥ　ＥＸ，ＥＹ：？”▲” ＬＯＣＡＴＥ　０，１８ ？”Ａホ゛タン→ル−ル　カクニン” ？”Ｂホ゛タン→タイトルニ　モト゛ル” ？”” ？”Ｒホ゛タン→モシ゛　カラ−　ヘンコウ” ’エテ゛ィットヨウ　ル−フ゜ ＠ＥＬＯＯＰ 　ＧＯＳＵＢ　＠ＥＷＲＩＴＥ 　ＧＯＳＵＢ　＠ＥＣＳＲ 　ＧＯＳＵＢ　＠ＥＢ１ ＧＯＴＯ　＠ＥＬＯＯＰ ’カ−ソル　ヒ゛ョウカ゛ ＠ＥＷＲＩＴＥ ＬＯＣＡＴＥ　ＥＸ，ＥＹ：？”▲” ＩＦ　ＥＹ＝＝９　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＭＩＮ ＩＦ　ＥＹ＝＝１１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＭＡＸ ＩＦ　ＥＹ＝＝１３　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＡＣ ＩＦ　ＥＹ＝＝１５　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＬＩＭＩＴ ＲＥＴＵＲＮ ＠ＥＤＭＩＮ ＮＭＩＮ＝ＥＮ−４８ ＩＦ　ＮＭＩＮ＜０　ＴＨＥＮ　ＮＭＩＮ＝１ ＩＦ　ＮＭＩＮ＞１　ＴＨＥＮ　ＮＭＩＮ＝０ ＬＯＣＡＴＥ　ＥＸ，８：？””ＮＭＩＮ”” ＲＥＴＵＲＮ ＠ＥＤＭＡＸ ＮＭＡＸ＝ＥＮ−４８ ＩＦ　ＮＭＡＸ＜５　ＴＨＥＮ　ＮＭＡＸ＝９ ＩＦ　ＮＭＡＸ＞９　ＴＨＥＮ　ＮＭＡＸ＝５ ＬＯＣＡＴＥ　ＥＸ，１０：？””ＮＭＡＸ”” ＲＥＴＵＲＮ ＠ＥＤＡＣ ＡＣ＝ＥＮ−４８ ＩＦ　ＡＣ＜３　ＴＨＥＮ　ＡＣ＝４ ＩＦ　ＡＣ＞４　ＴＨＥＮ　ＡＣ＝３ ＬＯＣＡＴＥ　ＥＸ，１２：？””ＡＣ”” ＲＥＴＵＲＮ ＠ＥＤＬＩＭＩＴ ＬＩＭＩＴ＝ＥＮ−４８ ＩＦ　ＬＩＭＩＴ＜６　ＴＨＥＮ　ＬＩＭＩＴ＝８ ＩＦ　ＬＩＭＩＴ＞８　ＴＨＥＮ　ＬＩＭＩＴ＝６ ＬＯＣＡＴＥ　ＥＸ，１４：？””ＬＩＭＩＴ”” ＲＥＴＵＲＮ ’カ−ソル　ト　ヘンコウ ＠ＥＣＳＲ 　ＥＣＲ＝ＢＵＴＴＯＮ（２） 　ＷＡＩＴ（１） 　ＩＦ　ＥＣＲ＝＝１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＲ１ 　ＩＦ　ＥＣＲ＝＝２　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＲ２ 　ＩＦ　ＥＣＲ＝＝４　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＲ４ 　ＩＦ　ＥＣＲ＝＝８　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＲ８ 　ＩＦ　ＥＣＲ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＲ０ 　ＩＦ　ＥＣＲ＝＝５１２　ＴＨＥＮ　ＧＯＴＯ　＠ＦＯＮＴＣ 　ＧＯＴＯ　＠ＥＣＳＲ ＠ＥＣＲ０ ＲＥＴＵＲＮ ＠ＥＣＲ１ ＥＹ＝ＥＹ−２ ＬＯＣＡＴＥ　ＥＸ，ＥＹ＋２：？”　” ＩＦ　ＥＹ＜９　ＴＨＥＮ　ＥＹ＝１５ ＥＮ＝ＣＨＫＣＨＲ（ＥＸ，ＥＹ−１） ＲＥＴＵＲＮ ＠ＥＣＲ２ ＥＹ＝ＥＹ＋２ ＬＯＣＡＴＥ　ＥＸ，ＥＹ−２：？”　” ＩＦ　ＥＹ＞１５　ＴＨＥＮ　ＥＹ＝９ ＥＮ＝ＣＨＫＣＨＲ（ＥＸ，ＥＹ−１） ＲＥＴＵＲＮ ＠ＥＣＲ４ ＥＮ＝ＣＨＫＣＨＲ（ＥＸ，ＥＹ−１） ＥＮ＝ＥＮ−１ ＲＥＴＵＲＮ ＠ＥＣＲ８ ＥＮ＝ＣＨＫＣＨＲ（ＥＸ，ＥＹ−１） ＥＮ＝ＥＮ＋１ ＲＥＴＵＲＮ ’ＡＢホ゛タン　ショリ ＠ＥＢ１ 　ＥＢ１＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＥＢ１＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＲＵＬＥ 　ＩＦ　ＥＢ１＝＝３２　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ ＲＥＴＵＲＮ ＠ＷＡＩＴＲＵＬＥ ＬＯＣＡＴＥ　０，２１ ？”ル−ル　キクカ？” ？”　Аホ゛タン→ＹＥＳ” ？”　Ｂホ゛タン→ＮＯ” ＠ＷＡＩＴＲ０ 　ＷＡＩＴ（１） 　Ｂ２＝ＢＵＴＴＯＮ（２） 　ＩＦ　Ｂ２＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＲＵＬＥ 　ＩＦ　Ｂ２＝＝３２　ＴＨＥＮ　ＧＯＴＯ　＠ＳＴＡＲＴ 　ＧＯＴＯ　＠ＷＡＩＴＲ０ ＠ＲＵＬＥ ＣＬＳ：ＬＯＣＡＴＥ　０，５ ？”ワタシ、ココニ「”ＮＭＩＮ”カラ”ＮＭＡＸ”」マテ゛ノ” ？””ＡＣ”ツノスウシ゛、モッテル” ？”ソレ、アナタ、アテテホシイ” ＣＯＬＯＲ　ＦＣ＋７ ？”オナシ゛　スウシ゛ハ　ハイッテナイ”； ＣＯＬＯＲ　ＦＣ：？”　ネ　　А” ＠ＷＡＩＴＲ１ 　Ｂ３＝ＢＵＴＴＯＮ（２） 　ＷＡＩＴ（１） 　ＩＦ　Ｂ３＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＲＵＬＥ２ 　ＧＯＴＯ　＠ＷＡＩＴＲ１ ＠ＲＵＬＥ２ ？”” ？”アナタカ゛イレタ　スウシ゛カ゛” ？”スウシ゛モ　ハ゛ショモ　アタッテイタラ” ＬＯＣＡＴＥ　２０，１１：ＣＯＬＯＲ　１２ ？”ヒット（Ｈ）”：ＣＯＬＯＲ　ＦＣ ？”スウシ゛　タ゛ケ　アタッテイタラ” ＬＯＣＡＴＥ　１７，１２：ＣＯＬＯＲ　１１ ？”フ゛ロ−（Ｂ）”：ＣＯＬＯＲ　ＦＣ ？”” ？”コノ　ヒントテ゛　ナルヘ゛ク　ハヤク　アテルネ” ？””ＡＣ”ツ　セ゛ンフ゛”； ＣＯＬＯＲ　１２：？”ヒット（Ｈ）”； ＣＯＬＯＲ　ＦＣ：？”テ゛　セイカイ　ヨ” ？”” ？””ＬＩＭＩＴ”カイ　テ゛　アタラナキャ　オシマイネ” ？”ＯＫ？　　А” ＠ＷＡＩＴＲ２ 　Ｂ４＝ＢＵＴＴＯＮ（２） 　ＷＡＩＴ（１） 　ＩＦ　Ｂ４＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＳＴＡＲＴ 　ＧＯＴＯ　＠ＷＡＩＴＲ２ ＠ＳＴＡＲＴ ＣＬＳ ＬＯＡＤ　”ＭＥＭ：ＣＢ”，ＦＡＬＳＥ ＰＲＺ＝ＶＡＬ（ＭＥＭ＄） ＢＧＭＰＬＡＹ　２７ ’コタエノ　チュウシュツ ＯＮ　ＤＩＦ　ＧＯＴＯ　＠ＡＥＤＩＴ，＠ＡＥ，＠ＡＨ ＠ＡＥＤＩＴ ＯＮ　ＮＭＩＮ　ＧＯＴＯ　＠ＭＩＮ０，＠ＭＩＮ１ ＠ＭＩＮ０ Ｍ＝ＮＭＡＸ Ａ１＝ＲＮＤ（Ｍ） ＠ＥＡ２ 　Ａ２＝ＲＮＤ（Ｍ） 　ＩＦ　Ａ２＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ２ ＠ＥＡ３ 　Ａ３＝ＲＮＤ（Ｍ） 　ＩＦ　Ａ３＝＝Ａ２　ＯＲ　Ａ３＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ３ ＠ＥＡ４ 　Ａ４＝ＲＮＤ（Ｍ） 　ＩＦ　Ａ４＝＝Ａ３　ＯＲ　Ａ４＝＝Ａ２　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ４ 　ＩＦ　Ａ４＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ４ ＧＯＴＯ　＠ＷＲＩＴＥ ＠ＭＩＮ１ Ｍ＝ＮＭＡＸ Ａ１＝ＲＮＤ（Ｍ−１）＋１ ＠ＥＡ０２ 　Ａ２＝ＲＮＤ（Ｍ−１）＋１ 　ＩＦ　Ａ２＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ０２ ＠ＥＡ０３ 　Ａ３＝ＲＮＤ（Ｍ−１）＋１ 　ＩＦ　Ａ３＝＝Ａ２　ＯＲ　Ａ３＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ０３ ＠ＥＡ０４ 　Ａ４＝ＲＮＤ（Ｍ−１）＋１ 　ＩＦ　Ａ４＝＝Ａ３　ＯＲ　Ａ４＝＝Ａ２　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ０４ 　ＩＦ　Ａ４＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡ０４ ＧＯＴＯ　＠ＷＲＩＴＥ ＠ＡＥ Ａ１＝ＲＮＤ（８）＋ＮＭＩＮ ＠Ａ２ 　Ａ２＝ＲＮＤ（８）＋ＮＭＩＮ 　ＩＦ　Ａ２＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠Ａ２ ＠Ａ３ 　Ａ３＝ＲＮＤ（８）＋ＮＭＩＮ 　ＩＦ　Ａ３＝＝Ａ２　ＯＲ　Ａ３＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠Ａ３ ＧＯＴＯ　＠ＷＲＩＴＥ ＠ＡＨ Ａ１＝ＲＮＤ（９）＋ＮＭＩＮ ＠Ａ２Ｈ 　Ａ２＝ＲＮＤ（９）＋ＮＭＩＮ 　ＩＦ　Ａ２＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠Ａ２Ｈ ＠Ａ３Ｈ 　Ａ３＝ＲＮＤ（９）＋ＮＭＩＮ 　ＩＦ　Ａ３＝＝Ａ２　ＯＲ　Ａ３＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠Ａ３Ｈ ＠Ａ４Ｈ 　Ａ４＝ＲＮＤ（９）＋ＮＭＩＮ 　ＩＦ　Ａ４＝＝Ａ３　ＯＲ　Ａ４＝＝Ａ２　ＴＨＥＮ　ＧＯＴＯ　＠Ａ４Ｈ 　ＩＦ　Ａ４＝＝Ａ１　ＴＨＥＮ　ＧＯＴＯ　＠Ａ４Ｈ ＧＯＴＯ　＠ＷＲＩＴＥ ’カ゛メン　ヒ゛ョウカ゛ ＠ＷＲＩＴＥ ＣＯＬＯＲ　ＦＣ ？”” ？”シ゛ュウシ゛キ−ノ　←→テ゛　ハ゛ショヲ　エラフ゛ネ” ？”ソシテ　↑↓　テ゛　スウシ゛ヲ　カエルネ” ？”” ？”スウシ゛ヲ　キメタラ　Аホ゛タンヨ” ＬＯＣＡＴＥ　２３，１：？”┌───────┐ ＬＯＣＡＴＥ　２３，２：？”│メタルカ−ト゛│” ＬＯＣＡＴＥ　２３，３：？”│　　　　　　　│” ＬＯＣＡＴＥ　２３，４：？”│　　　　　マイ│” ＬＯＣＡＴＥ　２３，５：？”└───────┘” ＬＯＣＡＴＥ　２７，４：？””ＰＲＺ”” ？”┌──────────────────────┐” ＦＯＲ　Ｙ＝６　ＴＯ　２０ ＬＯＣＡＴＥ　０，Ｙ：？”│” ＬＯＣＡＴＥ　２３，Ｙ：？”│” ＮＥＸＴ ？”└──────────────────────┘ ＬＯＣＡＴＥ　３，２２ ？”Ｘホ゛タン→タイトルニ　モト゛ル” ＧＯＴＯ　＠ＴＩＭＥ ’カイスウ　ショリ ＠ＴＩＭＥ ＣＯＬＯＲ　ＦＣ ＴＩＭＥ＝ＴＩＭＥ＋１ ＮＹ＝ＴＩＭＥ＋５ ＲＥＭＴ＝ＬＩＭＩＴ−ＴＩＭＥ＋１ ＬＯＣＡＴＥ　１，ＮＹ：？””ＴＩＭＥ”カイメ” ＬＯＣＡＴＥ　２３，６：？”┌───────┐” ＬＯＣＡＴＥ　２３，７：？”│アト　”ＲＥＭＴ”　カイ│” ＬＯＣＡＴＥ　２３，８：？”└───────┘” ＩＦ　ＴＩＭＥ＞ＬＩＭＩＴ　ＴＨＥＮ　ＧＯＴＯ　＠ＦＡＩＬＥＤ ＦＯＲ　ＮＸ＝６　ＴＯ　５＋ＡＣ ＬＯＣＡＴＥ　ＮＸ，ＮＹ：？””ＮＭＩＮ”” ＮＥＸＴ ’カ−ソル　ト　スウシ゛ノ　ヒョウシ゛ ＣＸ＝６：ＣＹ＝ＴＩＭＥ＋６ Ｎ＝ＣＨＫＣＨＲ（ＣＸ，ＮＹ）−４８ ＬＯＣＡＴＥ　ＣＸ，ＮＹ：？””Ｎ”” ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”▲” ＧＯＴＯ　＠ＬＯＯＰ ’メインル−チン ＠ＬＯＯＰ 　ＧＯＳＵＢ　＠ＣＳＭＯＶＥ 　ＧＯＳＵＢ　＠ＣＨＥＣＫ ’ＧＯＳＵＢ　＠ＣＨＥＡＴ ＧＯＴＯ　＠ＬＯＯＰ ＠ＣＳＭＯＶＥ 　ＣＫ＝ＢＵＴＴＯＮ（２） 　ＷＡＩＴ（１） 　ＩＦ　ＣＫ＝＝１　ＴＨＥＮ　ＧＯＴＯ　＠ＣＫ１ 　ＩＦ　ＣＫ＝＝２　ＴＨＥＮ　ＧＯＴＯ　＠ＣＫ２ 　ＩＦ　ＣＫ＝＝４　ＴＨＥＮ　ＧＯＴＯ　＠ＣＫ４ 　ＩＦ　ＣＫ＝＝８　ＴＨＥＮ　ＧＯＴＯ　＠ＣＫ８ 　ＩＦ　ＣＫ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＣＫ０ ＠ＣＫ０ ＲＥＴＵＲＮ ＠ＣＫ１ Ｎ＝Ｎ＋１ ＩＦ　Ｎ＞ＮＭＡＸ　ＴＨＥＮ　Ｎ＝ＮＭＩＮ ＬＯＣＡＴＥ　ＣＸ，ＮＹ：？””Ｎ”” ＲＥＴＵＲＮ ＠ＣＫ２ Ｎ＝Ｎ−１ ＩＦ　Ｎ＜ＮＭＩＮ　ＴＨＥＮ　Ｎ＝ＮＭＡＸ ＬＯＣＡＴＥ　ＣＸ，ＮＹ：？””Ｎ”” ＲＥＴＵＲＮ ＠ＣＫ４ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”　” ＣＸ＝ＣＸ−１ ＩＦ　ＣＸ＜６　ＴＨＥＮ　ＣＸ＝５＋ＡＣ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”▲” Ｎ＝ＣＨＫＣＨＲ（ＣＸ，ＮＹ）−４８ ＬＯＣＡＴＥ　ＣＸ，ＮＹ：？””Ｎ”” ＲＥＴＵＲＮ ＠ＣＫ８ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”　” ＣＸ＝ＣＸ＋１ ＩＦ　ＣＸ＞（５＋ＡＣ）　ＴＨＥＮ　ＣＸ＝６ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”▲” Ｎ＝ＣＨＫＣＨＲ（ＣＸ，ＮＹ）−４８ ＬＯＣＡＴＥ　ＣＸ，ＮＹ：？””Ｎ”” ＲＥＴＵＲＮ ＠ＣＨＥＣＫ ＣＨＢ＝ＢＵＴＴＯＮ（２） ＩＦ　ＣＨＢ＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＣＨＢ１６ ＩＦ　ＣＨＢ＝＝６４　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ ＩＦ　ＣＨＢ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＣＨＢ０ ＠ＣＨＢ０ ＲＥＴＵＲＮ ＠ＣＨＢ１６ ＢＥＥＰ　３ ＩＦ　ＡＣ＝＝３　ＴＨＥＮ　ＧＯＴＯ　＠ＥＣＨＫ ＩＦ　ＡＣ＝＝４　ＴＨＥＮ　ＧＯＴＯ　＠ＨＣＨＫ ＠ＥＣＨＫ Ｈ＝０：Ｂ＝０ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”　” ＮＡ１＝ＣＨＫＣＨＲ（６，ＮＹ）：ＭＮ１＝ＮＡ１−４８ ＮＡ２＝ＣＨＫＣＨＲ（７，ＮＹ）：ＭＮ２＝ＮＡ２−４８ ＮＡ３＝ＣＨＫＣＨＲ（８，ＮＹ）：ＭＮ３＝ＮＡ３−４８ ’ココハ　ナントカ　ナランカ ＩＦ　ＭＮ１＝＝Ａ１　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＩＦ　ＭＮ１＝＝Ａ２　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ１＝＝Ａ３　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ２＝＝Ａ１　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ２＝＝Ａ２　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＩＦ　ＭＮ２＝＝Ａ３　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ１　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ２　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ３　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＬＯＣＡＴＥ　１５，ＮＹ ＣＯＬＯＲ　１２：？””Ｈ”Ｈ””　　”； ＣＯＬＯＲ　１１：？””Ｂ”Ｂ” ＩＦ　Ｈ＝＝ＡＣ　ＴＨＥＮ　ＧＯＴＯ　＠ＢＲＥＡＫ ＧＯＴＯ　＠ＴＩＭＥ ＠ＨＣＨＫ Ｈ＝０：Ｂ＝０ ＬＯＣＡＴＥ　ＣＸ，ＣＹ：？”　” ＮＡ１＝ＣＨＫＣＨＲ（６，ＮＹ）：ＭＮ１＝ＮＡ１−４８ ＮＡ２＝ＣＨＫＣＨＲ（７，ＮＹ）：ＭＮ２＝ＮＡ２−４８ ＮＡ３＝ＣＨＫＣＨＲ（８，ＮＹ）：ＭＮ３＝ＮＡ３−４８ ＮＡ４＝ＣＨＫＣＨＲ（９，ＮＹ）：ＭＮ４＝ＮＡ４−４８ ＩＦ　ＭＮ１＝＝Ａ１　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＩＦ　ＭＮ１＝＝Ａ２　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ１＝＝Ａ３　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ１＝＝Ａ４　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ２＝＝Ａ１　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ２＝＝Ａ２　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＩＦ　ＭＮ２＝＝Ａ３　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ２＝＝Ａ４　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ１　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ２　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ３＝＝Ａ３　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＩＦ　ＭＮ３＝＝Ａ４　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ４＝＝Ａ１　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ４＝＝Ａ２　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ４＝＝Ａ３　ＴＨＥＮ　Ｂ＝Ｂ＋１ ＩＦ　ＭＮ４＝＝Ａ４　ＴＨＥＮ　Ｈ＝Ｈ＋１ ＬＯＣＡＴＥ　１６，ＮＹ ＣＯＬＯＲ　１２：？””Ｈ”Ｈ””　　”； ＣＯＬＯＲ　１１：？””Ｂ”Ｂ” ＩＦ　Ｈ＝＝ＡＣ　ＴＨＥＮ　ＧＯＴＯ　＠ＢＲＥＡＫ ＧＯＴＯ　＠ＴＩＭＥ ’ト゛ウサ　カクニンヨウ　チ−ト ＠ＣＨＥＡＴ ＡＮＳ＝ＢＵＴＴＯＮ（２） ＩＦ　ＡＮＳ＝＝１２８　ＴＨＥＮ　ＧＯＴＯ　＠ＡＮＳ ＩＦ　ＡＮＳ！＝１２８　ＴＨＥＮ　ＧＯＴＯ　＠ＮＯＣＨＥＡＴ ＠ＡＮＳ ＩＦ　ＡＣ＝＝３　ＴＨＥＮ　ＧＯＴＯ　＠ＥＡＮＳ ＩＦ　ＡＣ＝＝４　ＴＨＥＮ　ＧＯＴＯ　＠ＨＡＮＳ ＠ＥＡＮＳ ＬＯＣＡＴＥ　６，１６：ＣＯＬＯＲ　１３ ？””Ａ１””Ａ２””Ａ３””：ＣＯＬＯＲ　ＦＣ ＲＥＴＵＲＮ ＠ＨＡＮＳ ＬＯＣＡＴＥ　６，１６：ＣＯＬＯＲ　１３ ？””Ａ１””Ａ２””Ａ３””Ａ４””：ＣＯＬＯＲ　ＦＣ ＲＥＴＵＲＮ ＠ＮＯＣＨＥＡＴ ＲＥＴＵＲＮ ＠ＦＡＩＬＥＤ ＬＯＣＡＴＥ　１，（ＬＩＭＩＴ＋６）：？”　　　　” ＬＯＣＡＴＥ　１，１５：？”ハス゛レ！　ソン　シタト゛−！！” ＬＯＣＡＴＥ　１，１６ ＩＦ　ＡＣ＝＝３　ＴＨＥＮ　？”コタエハ「”Ａ１””Ａ２””Ａ３”」ヨ−” ＩＦ　ＡＣ＝＝４　ＴＨＥＮ　？”コタエハ「”Ａ１””Ａ２””Ａ３””Ａ４”」ヨ−” ＷＡＩＴ（１）　 ＧＯＴＯ　＠ＡＳＫＡＧＡＩＮ ＠ＢＲＥＡＫ ＷＡＩＴ（１） ＢＧＭＰＬＡＹ　５ ＩＦ　ＤＩＦ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＢＲＥ ＩＦ　ＴＩＭＥ＜＝ＬＩＭＩＴ／２　ＴＨＥＮ　ＧＯＴＯ　＠ＰＲＩＺＥ ＠ＥＤＢＲＥ ＬＯＣＡＴＥ　１，１６：ＣＯＬＯＲ　ＦＣ＋７ ？”ＢＲＥＡＫ！！　オメテ゛トサンネ！” ＧＯＴＯ　＠ＡＳＫＡＧＡＩＮ ＠ＰＲＩＺＥ ＷＡＩＴ（１） ＬＯＣＡＴＥ　１，１６：ＣＯＬＯＲ　３ ？”ウォ−　スコ゛イ！！メタルカ−ト゛　ヤルヨ！” ＰＲＺ＝ＰＲＺ＋ＤＩＦ ＭＥＭ＄＝ＳＴＲ＄（ＰＲＺ） ＳＡＶＥ　”ＭＥＭ：ＣＢ” ＩＦ　ＰＲＺ＞＝５　ＴＨＥＮ　ＧＯＴＯ　＠ＰＣＨＫ１ ＧＯＴＯ　＠ＡＳＫＡＧＡＩＮ ＠ＰＣＨＫ１ ＩＦ　ＰＲＺ＋ＤＩＦ＜（５＋ＤＩＦ＊２）　ＴＨＥＮ　ＧＯＴＯ　＠ＯＰＥＤＩＴ ＧＯＴＯ　＠ＡＳＫＡＧＡＩＮ ＠ＯＰＥＤＩＴ ＣＯＬＯＲ　３：ＣＬＳ：ＢＥＥＰ　７ ＬＯＣＡＴＥ　０，５ ？”＊ＥＤＩＴモ−ト゛　ヲ　カイホウ　シマシタ！＊” ？”” ？”＊タイトル　テ゛　Хホ゛タンヲ　オスト＊” ？”＊ＥＤＩＴモ−ト゛ニ　ハイリマス＊　　А” ＣＯＬＯＲ　ＦＣ ＠ＷＰＲＺ 　ＷＰ１＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＷＰ１＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ ＧＯＴＯ　＠ＷＰＲＺ ＠ＡＳＫＡＧＡＩＮ ＣＯＬＯＲ　ＦＣ：ＬＯＣＡＴＥ　１，１７ ？”モウイチト゛　ヤルカ？” ＬＯＣＡＴＥ　１，１９ ？”Ａホ゛タン→ＹＥＳ” ＬＯＣＡＴＥ　１，２０ ？”Ｂホ゛タン→ＮＯ” ＠ＷＡＩＴＡＳＫ 　ＷＡＢ＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＷＡＢ＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＳＴＲ 　ＩＦ　ＷＡＢ＝＝３２　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ 　ＩＦ　ＷＡＢ＝＝６４　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ 　ＧＯＴＯ　＠ＷＡＩＴＡＳＫ ＠ＳＴＲ ＯＮ　ＤＩＦ　ＧＯＴＯ　＠ＳＴＲＥＤ，＠ＳＴＲＥＡ，＠ＳＴＲＨＡ ＠ＳＴＲＥＤ ＬＯＣＡＴＥ　１，１７：ＣＯＬＯＲ　４ ？”ＥＤＩＴモ−ト゛　ニ　モト゛リマス” ＣＯＬＯＲ　ＦＣ：ＬＯＣＡＴＥ　１，２０ ？”Ｂホ゛タン→タイトル　ヘ” ＣＬＥＡＲ ＠ＷＥＤＡＧ 　ＷＡＩＴ（１） 　ＷＥＡ＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＷＥＡ＝＝１６　ＴＨＥＮ　ＧＯＴＯ　＠ＥＤＩＴ 　ＩＦ　ＷＥＡ＝＝３２　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ 　ＩＦ　ＷＥＡ＝＝６４　ＴＨＥＮ　ＧＯＴＯ　＠ＴＩＴＬＥ 　ＧＯＴＯ　＠ＷＥＤＡＧ ＠ＳＴＲＥＡ ＣＬＥＡＲ ＤＩＦ＝１：ＮＭＩＮ＝０：ＮＭＡＸ＝７ ＡＣ＝３：ＬＩＭＩＴ＝８ ＧＯＴＯ　＠ＳＴＡＲＴ ＠ＳＴＲＨＡ ＣＬＥＡＲ ＤＩＦ＝２：ＮＭＩＮ＝１：ＮＭＡＸ＝９ ＡＣ＝４：ＬＩＭＩＴ＝８ ＧＯＴＯ　＠ＳＴＡＲＴ ＠ＢＹＥ ＢＧＭＰＬＡＹ　４ ＬＯＣＡＴＥ　０，２１ ？”ナンテ゛ィサン　イツテ゛モ　マッテルヨ。” ？”ナマステ、ネ。” ？”＊ナニカ　ホ゛タン　ヲ　オシテクタ゛サイ＊” ＠ＱＵＩＴＳＥＣ 　ＷＡＩＴ（１） 　ＱＢ＝ＢＵＴＴＯＮ（２） 　ＩＦ　ＱＢ！＝０　ＴＨＥＮ　ＥＮＤ 　ＧＯＴＯ　＠ＱＵＩＴＳＥＣ ’　─────────────────────

CHECKER FLAG (ひとことコメント)

感想・アドバイスなどございましたら、何卒。

• YHY : 数当てゲームは苦手なのですが、「ナンディさん」のインパクトでついDLしてしまいました。 (2013/11/17 (日) 19:52:45)
• 作成者 : ＤＬありがとうございます！ＤＬしていただいた直後で申し訳ないのですが、少しばかり改良しましたのでよろしければ新ver.もお試しください！ (2013/11/17 (日) 20:45:53)

お名前: