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

パンくずリスト

• トップ
• Toukou
• SPEED SUIJAKU

2013年6月25日投稿 / 投稿者 : 猫姫 / タグ : 投稿プログラム ゲーム mkII専用

更新情報2013/06/25

即日で申し訳ありません、重大なミスを発見したので、VERUPしました。

• 連続でゲームをすると、図柄の配置が変わらないバグを修正しました。
• リザルトで表示されるランキングのずれを修正しました。

内容

神経衰弱ゲームです。
最初に図柄の配置を覚えて、その後、伏せられた絵柄をそろえます。
覚える時間、解答時間共に得点に反映されるので、
早く覚えて、早く解く。
脳トレ的なゲームです。

スクリーンショット

遊び方

QRコード

• PRG:NHPSPS
• CHR:NHPSPS
• COL:NHPSPS
  ３つのリソースがあるので、すべて読み込んでください。
  

メニュー画面

操作はタッチペンで行います。
下画面、4つのメニューから、選んでください。

• GAME START
  ゲームを開始します。
• SCORE RANKING
  今までの記録TOP30を表示します。
• DELETE MEM FILE
  セーブデータを削除して、PRGを終了します。
  
• SAVE & GAME END
  ランキングをセーブして、PRGを終了します。
  

ゲームの流れ

• GAME STARTをタッチすると、しばらくのINITIALIZEを経て、下画面に「TOUCH START」と表示されます。
• 下画面をタッチすると、4種類16枚の図柄が出るので、覚えてください。
• 覚えたら、DSの蓋を閉じて、しばらく待ってください
• DSを開くと、図柄が伏せられた状態になっています。タッチペンで図柄をタッチして、絵合わせをしてください。
  
• 16面すべてを合わせるとクリアです。ゲームのリザルトが表示されます。

クリックコメント (評価)

選択肢	投票
★★★	3
★★☆	0
★☆☆	0

訪問者
トータル:2785人
今日:1人

QR コード

プチコンmkII 向けの QR コードです。

プログラムリスト

+

プログラムリスト

’／／ＳＰＥＥＤ　ＳＵＩＪＡＫＵ ’／／ＰＲＥＳＥＮＴＥＤ　ＢＹ　ＮＥＫＯＨＩＭＥ ’／／　　　　　　　　　　　２３ＴＨ／０６／２０１３ ＡＣＬＳ：ＣＬＥＡＲ：ＢＧＭＳＴＯＰ：ＭＥＭ＄＝”” ＰＮＬＴＹＰＥ　”ＯＦＦ”：ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ ＤＩＭ　ＣＡＲＤ（１６），ＣＨ（２），ＮＯＭ（２） ＤＩＭ　ＭＡＳＫＸ（１６），ＭＡＳＫＹ（１６），ＣＨＲ（１６），ＣＯＬ（１６） ＤＩＭ　Ｔ＄（３），ＴＲ＄（５） ＤＩＭ　ＳＣ＄（５），ＩＱ＄（３），ＭＩＳＳ（２） ＤＩＭ　ＨＳＣ（３０），ＨＳＣ＄（３０），ＲＮＫ＄（３０） ＤＩＭ　ＬＩＮＥ＄（１０），ＣＯＭ＄（３） ＲＮＫ＄（０）＝”　１ＳＴ”：ＲＮＫ＄（１）＝”　２ＮＤ”：ＲＮＫ＄（２）＝”　３ＲＤ” ＦＯＲ　Ｉ＝３　ＴＯ　２９ ＲＮＫ＄（Ｉ）＝ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（Ｉ＋１）＋”ＴＨ”，４） ＮＥＸＴ ＧＯＳＵＢ　＠ＬＯＡＤ ＳＰＰＡＧＥ　１ ＬＯＡＤ　”ＳＰＳ：ＮＨＰＳＰＳ”，０ ＬＯＡＤ　”ＣＯＬ１：ＮＨＰＳＰＳ”，０ ＠ＩＮＩ ＶＩＳＩＢＬＥ　１，０，０，０，０，０ ＰＮＬＳＴＲ　５，１０，”　　　ＩＮＩＴＩＡＬＩＺＩＮＧ　ＮＯＷ” ＣＦ＝０：’ＣＡＲＤ　フラク゛ＰＯＷ（２，１６）マテ゛リヨウ ＣＥ＝０：Ｈ＝０ ＣＨ（０）＝−１：ＣＨ（１）＝−１ ＳＰＰＡＧＥ　１ ＦＯＲ　Ｉ＝０　ＴＯ　３ ＣＨＲ（Ｉ＋０）＝１６：ＣＨＲ（Ｉ＋４）＝４ ＣＨＲ（Ｉ＋８）＝８：ＣＨＲ（Ｉ＋１２）＝１２ ＣＯＬ（Ｉ＋０）＝１１：ＣＯＬ（Ｉ＋４）＝１２ ＣＯＬ（Ｉ＋８）＝１３：ＣＯＬ（Ｉ＋１２）＝１４ ＦＯＲ　Ｑ＝０　ＴＯ　１２　ＳＴＥＰ　４ ＳＰＳＥＴ　Ｉ＋Ｑ，ＣＨＲ（Ｉ＋Ｑ），ＣＯＬ（Ｉ＋Ｑ），０，０，２，３２，３２ ＮＥＸＴ　Ｑ ＮＥＸＴ　Ｉ ’／／０−３：ハカセ：１ ’／／４−７：ワンハ゜ク：２ ’／／８−１１：？？：３ ’／／１２−１５：インテリ：４ ’−−−ＳＰＳＥＴ：ＭＡＳＫＣＡＲＤ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＳＰＳＥＴ　Ｉ＋１６，０，１１，０，０，０，３２，３２ ＳＰＯＦＳ　Ｉ＋１６，−３２，−３２ ＳＰＯＦＳ　Ｉ，−３２，−３２ ＮＥＸＴ ’−−−ＳＰＳＥＴＶ：ＳＰ０−１５ニ１−４ヲフル ＦＯＲ　Ｉ＝０　ＴＯ　３ ＳＰＳＥＴＶ　Ｉ＋０，０，１ ＳＰＳＥＴＶ　Ｉ＋４，０，２ ＳＰＳＥＴＶ　Ｉ＋８，０，３ ＳＰＳＥＴＶ　Ｉ＋１２，０，４ ＮＥＸＴ ＧＯＴＯ　＠ＴＩＴＬＥ ＠ＲＥＳＴＡＲＴ ’／／ヘンスウショキカ ＧＥＴ＝０：Ｈ＝０：ＭＩＳＳ＝０：ＴＨ＝０ ＥＦ＝０：ＣＦ＝０ ＧＣＬＳ　 ＧＯＳＵＢ　＠ＳＵＢ＿ＣＬＳ ＶＩＳＩＢＬＥ　１，０，０，０，０，０ ＰＮＬＳＴＲ　５，１０，”　　　ＩＮＩＴＩＡＬＩＺＩＮＧ　ＮＯＷ” ’−−−ＣＡＲＤ　ランタ゛ムハイチ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＠ＲＥ１ ＣＡＲＤ（Ｉ）＝ＲＮＤ（１６）＋１ 　　　　ＦＯＲ　Ｑ＝０　ＴＯ　１５ 　　　　ＩＦ　Ｉ＝＝Ｑ　ＴＨＥＮ　＠ＳＫ１ 　　　　ＩＦ　ＣＡＲＤ（Ｉ）＝＝ＣＡＲＤ（Ｑ）　ＴＨＥＮ　ＣＡＲＤ（Ｉ）＝０ 　　　　＠ＳＫ１ 　　　　ＮＥＸＴ　Ｑ ＩＦ　ＣＡＲＤ（Ｉ）＝＝０　ＴＨＥＮ　＠ＲＥ１ ＮＥＸＴ　Ｉ Ｘ＝６４：Ｙ＝４８ ＸＸ＝０：ＹＹ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＳＰＯＦＳ　ＣＡＲＤ（Ｉ）−１，Ｘ＋ＸＸ＊３２，Ｙ＋ＹＹ＊３２ ＹＹ＝ＹＹ＋（ＸＸ＝＝３）：ＸＸ＝（ＸＸ＋１）　ＡＮＤ　３ ＮＥＸＴ ’−−−−−ＴＩＭＥ　ＩＮＩＴＩＡＬＩＺＥ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ１＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ２＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＩＦ　Ｔ１−Ｔ２　ＴＨＥＮ　Ｉ＝１ Ｔ１＝Ｔ２ ＮＥＸＴ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ１＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＣＮＴ１＝ＭＡＩＮＣＮＴＬ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ２＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＣＮＴ２＝ＭＡＩＮＣＮＴＬ ＩＦ　Ｔ１−Ｔ２　ＴＨＥＮ　Ｉ＝１ ＩＦ　ＣＮＴ１−ＣＮＴ２　ＴＨＥＮ　ＦＰＳ＝ＦＰＳ＋１ Ｔ１＝Ｔ２：ＣＮＴ１＝ＣＮＴ２ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＶＳＹＮＣ　１ ＳＥＣ＝ＳＥＣ＋１ ＩＦ　ＳＥＣ％５０＝＝０　ＴＨＥＮ　ＰＮＬＳＴＲ　５，１０，”　　　　ＴＯＵＣＨ　ＴＯ　ＳＴＡＲＴ　　” ＩＦ　ＳＥＣ％１００＝＝０　ＴＨＥＮ　ＰＮＬＳＴＲ　５，１０，”　　　　　　　　　　　　　　　　　　　　” ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　Ｉ＝１ ＮＥＸＴ ＰＮＬＳＴＲ　５，１０，”　　　　　　　　　　　　　　　　　　　” ＶＩＳＩＢＬＥ　１，１，１，１，１，１ ’−−−−−ＭＥＭＯＲＹ　ＴＩＭＥ ＢＧＭＰＬＡＹ　１６ ＣＮ＝２：ＧＯＳＵＢ　＠ＣＯＭＭＥＮＴ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ１＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＣＮＴ１＝ＭＡＩＮＣＮＴＬ ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＴＭＲＥＡＤ（ＴＩＭＥ＄），ＨＯ，Ｍ，Ｓ：Ｔ２＝３６００＊ＨＯ＋６０＊Ｍ＋Ｓ ＣＮＴ２＝ＭＡＩＮＣＮＴＬ ＩＦ　Ｔ２−Ｔ１＜０　ＴＨＥＮ　Ｔ２＝Ｔ２＋３６００＊２４：Ｔ＝ＴＲＵＥ ＩＦ　Ｔ２−Ｔ１＞＝２　ＴＨＥＮ　Ｉ＝１ ＩＦ　Ｔ　ＴＨＥＮ　Ｔ２＝Ｔ２−３６００＊２４ Ｔ１＝Ｔ２ ＩＦ　ＣＮＴ２−ＣＮＴ１＝＝１　ＴＨＥＮ　ＴＨ＝ＴＨ＋１ ＴＨＴ＝ＦＬＯＯＲ（ＴＨ／（ＦＰＳ）＊１０） ＩＦ　ＴＨＴ＞＝９９９　ＴＨＥＮ　ＴＨＴ＝９９９ Ｉ＄＝”０００”＋ＳＴＲ＄（ＴＨＴ） Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，３） ＧＯＳＵＢ　＠ＴＩＭＥＰＲＩＮＴ ＣＮＴ１＝ＣＮＴ２ ＮＥＸＴ ＳＣ１＝ＴＨＴ：ＴＨ＝０ ’−−−−−−−−−−−−−ＣＡＲＤヲＭＡＳＫＩＮＧ ＠ＭＡＳＫ ＸＸ＝０：ＹＹ＝０ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＭＡＳＫＸ（Ｉ）＝Ｘ＋ＸＸ＊３２ ＭＡＳＫＹ（Ｉ）＝Ｙ＋ＹＹ＊３２ ＳＰＯＦＳ　Ｉ＋１６，ＭＡＳＫＸ（Ｉ），ＭＡＳＫＹ（Ｉ） ＹＹ＝ＹＹ＋（ＸＸ＝＝３）：ＸＸ＝（ＸＸ＋１）　ＡＮＤ　３ ＮＥＸＴ ’−−−−−−−−−−−−−ＭＡＩＮ　ＬＯＯＰ ＣＮＴ１＝ＭＡＩＮＣＮＴＬ ＢＧＭＰＬＡＹ　１３ ＣＮ＝３：ＧＯＳＵＢ　＠ＣＯＭＭＥＮＴ ＠ＧＡＭＥ ＣＮＴ２＝ＭＡＩＮＣＮＴＬ ＩＦ　ＣＮＴ２−ＣＮＴ１　ＴＨＥＮ　ＮＭＡＴ＝ＮＭＡＴ−１＋（ＮＭＡＴ＝＝０） ＩＦ　ＮＭＡＴ！＝０　ＴＨＥＮ　＠ＳＫ５ ＩＦ　ＧＥＴ＝＝１６　ＴＨＥＮ　＠ＥＮＤ ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＡＮＴＥＩ ＩＦ　Ｈ＝＝２　ＴＨＥＮ　＠ＤＥＣ ＠ＳＫ５ ＩＦ　ＮＭＡＴ＝＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＲＥＣＶ ＩＦ　ＣＮＴ２−ＣＮＴ１＝＝１　ＴＨＥＮ　ＴＨ＝ＴＨ＋１ ＴＨＴ＝ＦＬＯＯＲ（ＴＨ／（ＦＰＳ）＊１０） ＩＦ　ＴＨＴ＞＝９９９　ＴＨＥＮ　ＴＨＴ＝９９９ Ｉ＄＝”０００”＋ＳＴＲ＄（ＴＨＴ） Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，３） ＧＯＳＵＢ　＠ＴＩＭＥＰＲＩＮＴ ＣＮＴ１＝ＣＮＴ２ ＧＯＴＯ　＠ＧＡＭＥ ＠ＴＩＭＥＰＲＩＮＴ ’／／Ｉ＄　３ケタタ゛イニュウシテＳＵＢ ＦＯＲ　ＩＩ＝０　ＴＯ　２ Ｔ＄（ＩＩ）＝ＭＩＤ＄（Ｉ＄，ＩＩ，１） 　　　　ＲＥＳＴＯＲＥ　”＠”＋Ｔ＄（ＩＩ） 　　　　ＦＯＲ　ＴＲ＝０　ＴＯ　４ 　　　　ＲＥＡＤ　ＴＲ＄（ＴＲ） ＰＮＬＳＴＲ　９＋５＊ＩＩ，０＋ＴＲ，ＴＲ＄（ＴＲ） 　　　　ＮＥＸＴ　ＴＲ ＮＥＸＴ　ＩＩ ＲＥＴＵＲＮ ＠ＨＡＮＴＥＩ ＩＦ　ＣＨ（１）！＝−１　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＩＦ　ＡＢＳ（ＴＣＨＸ−（ＭＡＳＫＸ（Ｉ）＋１６））＞１６　ＴＨＥＮ　＠ＳＫ２ ＩＦ　ＡＢＳ（ＴＣＨＹ−（ＭＡＳＫＹ（Ｉ）＋１６））＞１６　ＴＨＥＮ　＠ＳＫ２ ＩＦ　ＥＦ　ＡＮＤ　ＰＯＷ（２，Ｉ）　ＴＨＥＮ　＠ＳＫ２ ＩＦ　ＣＨ（０）＝＝Ｉ　ＴＨＥＮ　＠ＳＫ２ ＣＨ（Ｈ）＝Ｉ ＩＦ　ＣＦ　ＸＯＲ　ＰＯＷ（２，Ｉ）　ＴＨＥＮ　ＣＦ＝ＣＦ＋ＰＯＷ（２，ＣＨ（Ｈ）） ＳＰＯＦＳ　ＣＨ（Ｈ）＋１６，−３２，−３２ ＮＯＭ（Ｈ）＝ＳＰＧＥＴＶ（ＣＡＲＤ（Ｉ）−１，０） Ｈ＝Ｈ＋１ ＢＥＥＰ　４０ ＠ＳＫ２ ＮＥＸＴ　Ｉ ＲＥＴＵＲＮ ＠ＤＥＣ ＩＦ　ＮＯＭ（０）−ＮＯＭ（１）　ＴＨＥＮ　＠ＮＯＭＡＣＨ ＦＯＲ　Ｉ＝０　ＴＯ　１ ＥＦ＝ＥＦ＋ＰＯＷ（２，ＣＨ（Ｉ）） ＣＨ（Ｉ）＝０：ＮＯＭ（Ｉ）＝０ ＣＨ（Ｉ）＝−１：ＮＯＭ（Ｉ）＝−１ ＮＥＸＴ Ｈ＝０：ＧＥＴ＝ＧＥＴ＋２ ＧＯＴＯ　＠ＧＡＭＥ ＠ＮＯＭＡＣＨ ＮＭＡＴ＝２０ Ｎ＿ＭＡＴＣＨ＝ＴＲＵＥ Ｈ＝０：ＭＩＳＳ＝ＭＩＳＳ＋１−（ＭＩＳＳ＝＝９９） ＢＥＥＰ　０ ＧＯＴＯ　＠ＧＡＭＥ ＠ＲＥＣＶ ＩＦ　Ｎ＿ＭＡＴＣＨ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｉ＝０　ＴＯ　１ ＳＰＯＦＳ　ＣＨ（Ｉ）＋１６，ＭＡＳＫＸ（ＣＨ（Ｉ）），ＭＡＳＫＹ（ＣＨ（Ｉ）） ＣＦ＝ＣＦ−ＰＯＷ（２，ＣＨ（Ｉ）） ＣＨ（Ｉ）＝−１ ＮＥＸＴ Ｎ＿ＭＡＴＣＨ＝ＦＡＬＳＥ ＲＥＴＵＲＮ ＠ＥＮＤ ＢＧＭＰＬＡＹ　５ ＣＮ＝４：ＧＯＳＵＢ　＠ＣＯＭＭＥＮＴ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＳＰＯＦＳ　Ｉ，ＲＮＤ（２８０），ＲＮＤ（１８０），１００ ＮＥＸＴ ＦＯＲ　Ｉ＝０　ＴＯ　２１ ＰＮＬＳＴＲ　０，Ｉ，”　　　　　　　　　　　　　　　　　　　　　　　　　　　　　” ＮＥＸＴ ＷＡＩＴ　１５０ ＦＯＲ　Ｉ＝０　ＴＯ　１５ ＳＰＯＦＳ　Ｉ，−３２，−３２ ＮＥＸＴ ＣＯＬＯＲ　３ ＢＧＭＰＬＡＹ　８ ＰＮＬＳＴＲ　０，　９，”　┿┿┿　┝┿┿┿┰　　” ＰＮＬＳＴＲ　０，１０，”　　┿　　┿　　　┿　┿” ＰＮＬＳＴＲ　０，１１，”　　┿　　┿　　　┿　　” ＰＮＬＳＴＲ　０，１２，”　　┿　　┿　┰┝┸　┿” ＰＮＬＳＴＲ　０，１３，”　┿┿┿　┥┿┥┰　　　” ＰＮＬＳＴＲ　０，１６，”┿┰┝┿　┿┿┿　┝┿┿┰　┝┿┿┰” ＰＮＬＳＴＲ　０，１７，”┿┥┸┿　　┿　　┿　　　　┿　　　” ＰＮＬＳＴＲ　０，１８，”┿　　┿　　┿　　┥┿┿┰　┥┿┿┰” ＰＮＬＳＴＲ　０，１９，”┿　　┿　　┿　　　　　┿　　　　┿” ＰＮＬＳＴＲ　０，２０，”┿　　┿　┿┿┿　┥┿┿┸　┥┿┿┸” ＣＯＬＯＲ　０ ＳＣ２＝ＴＨＴ ＳＣＯＲＥ＝（９９９−ＳＣ１）＊７＋（９９９−ＳＣ２）＊８−１０００＊ＭＩＳＳ ＩＦ　ＳＣＯＲＥ＜＝０　ＴＨＥＮ　ＳＣＯＲＥ＝０ Ｉ＄＝”　　　　　”＋ＳＴＲ＄（ＳＣＯＲＥ）：Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，５） ＦＯＲ　Ｉ＝０　ＴＯ　４ ＳＣ＄（Ｉ）＝ＭＩＤ＄（Ｉ＄，Ｉ，１） ＩＦ　ＳＣ＄（Ｉ）＝＝”　”　ＴＨＥＮ　ＳＣ＄（Ｉ）＝”ＮＯＮ” ＲＥＳＴＯＲＥ　”＠”＋ＳＣ＄（Ｉ） 　ＦＯＲ　Ｑ＝０　ＴＯ　４ 　ＲＥＡＤ　ＴＲ＄（Ｑ） 　ＰＮＬＳＴＲ　５＋Ｉ＊５，３＋Ｑ，ＴＲ＄（Ｑ） 　ＮＥＸＴ　Ｑ ＢＥＥＰ　２５ ＷＡＩＴ　２０ ＮＥＸＴ　Ｉ ＩＱ＝ＦＬＯＯＲ（ＳＣＯＲＥ／１５０００＊１５０） Ｉ＄＝”　　　”＋ＳＴＲ＄（ＩＱ）：Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，３） ＦＯＲ　Ｉ＝０　ＴＯ　２ ＩＱ＄（Ｉ）＝ＭＩＤ＄（Ｉ＄，Ｉ，１） ＩＦ　ＩＱ＄（Ｉ）＝＝”　”　ＴＨＥＮ　ＩＱ＄（Ｉ）＝”ＮＯＮ” ＲＥＳＴＯＲＥ　”＠”＋ＩＱ＄（Ｉ） 　ＦＯＲ　Ｑ＝０　ＴＯ　４ 　ＲＥＡＤ　ＴＲ＄（Ｑ） 　ＰＮＬＳＴＲ　１５＋Ｉ＊５，９＋Ｑ，ＴＲ＄（Ｑ） 　ＮＥＸＴ　Ｑ ＮＥＸＴ　Ｉ ＢＥＥＰ　２５ ＷＡＩＴ　２０ Ｉ＄＝”　　”＋ＳＴＲ＄（ＭＩＳＳ）：Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，２） ＦＯＲ　Ｉ＝０　ＴＯ　１ ＭＩＳＳ＄（Ｉ）＝ＭＩＤ＄（Ｉ＄，Ｉ，１） ＩＦ　ＭＩＳＳ＄（Ｉ）＝＝”　”　ＴＨＥＮ　ＭＩＳＳ＄（Ｉ）＝”ＮＯＮ” ＲＥＳＴＯＲＥ　”＠”＋ＭＩＳＳ＄（Ｉ） 　ＦＯＲ　Ｑ＝０　ＴＯ　４ 　ＲＥＡＤ　ＴＲ＄（Ｑ） 　ＰＮＬＳＴＲ　２０＋Ｉ＊５，１６＋Ｑ，ＴＲ＄（Ｑ） 　ＮＥＸＴ　Ｑ ＮＥＸＴ　Ｉ ＢＥＥＰ　２５ ＷＡＩＴ　１００ ＧＯＳＵＢ　＠ＨＳＣＯＲＥ ＰＮＬＳＴＲ　９，２２，”ＴＯＵＣＨ　ＴＯ　ＭＥＮＵ” ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　Ｉ＝１ ＮＥＸＴ　Ｉ ＧＯＳＵＢ　＠ＳＵＢ＿ＣＬＳ ＶＩＳＩＢＬＥ　１，０，０，０，０，０ ＧＯＴＯ　＠ＴＩＴＬＥ ＠ＳＵＢ＿ＣＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　２１ ＰＮＬＳＴＲ　０，Ｉ，”　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　” ＮＥＸＴ ＲＥＴＵＲＮ ＠ＨＳＣＯＲＥ ＲＫ＝−１ ＦＯＲ　　Ｉ＝０　ＴＯ　２９ ＩＦ　ＳＣＯＲＥ＜ＨＳＣ（Ｉ）　ＴＨＥＮ　＠ＳＫ６ ＩＦ　ＲＫ＝＝−１　ＴＨＥＮ　ＲＫ＝Ｉ ＳＷＡＰ　ＳＣＯＲＥ，ＨＳＣ（Ｉ） ＠ＳＫ６ ＮＥＸＴ Ｉ＄＝ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（ＲＫ），２） ＩＦ　ＲＫ！＝−１　ＴＨＥＮ　ＷＡＩＴ　２０：ＰＮＬＳＴＲ　１５，２，”↓↓ＲＡＮＫ　ＩＮ　”＋Ｉ＄，３：ＢＥＥＰ　６４ ＲＥＴＵＲＮ ＠ＳＡＶＥ ＭＥＭ＄＝”” ＦＯＲ　Ｉ＝０　ＴＯ　２９ Ｉ＄＝”０００００”＋ＳＴＲ＄（ＨＳＣ（Ｉ）） Ｉ＄＝ＲＩＧＨＴ＄（Ｉ＄，５） ＭＥＭ＄＝ＭＥＭ＄＋Ｉ＄ ＮＥＸＴ ＳＡＶＥ　”ＭＥＭ：ＮＨＰＳＰＳ” ＨＳＣ＝ＦＡＬＳＥ ＲＥＴＵＲＮ ＠ＬＯＡＤ ＬＯＡＤ　”ＭＥＭ：ＮＨＰＳＰＳ”，０ ＩＦ　ＲＥＳＵＬＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＲＥＴＵＲＮ ＦＯＲ　Ｉ＝０　ＴＯ　２９ Ｉ＄＝ＭＩＤ＄（ＭＥＭ＄，Ｉ＊５，５） ＨＳＣ（Ｉ）＝ＶＡＬ（Ｉ＄） ＮＥＸＴ ＲＥＴＵＲＮ ＠ＴＩＴＬＥ ＢＧＭＰＬＡＹ　７ ＣＬＳ ＧＰＡＧＥ　１ ＶＩＳＩＢＬＥ　１，１，１，１，１，１ ＣＯＬＯＲ　１２ ？” ？”　┌──┐┌──┐┌───┌───┌─┐　а　　　　 ？”　│　　┘│　　││　　　│　　　│　└┐　　　　а ？”　│　　　│　　││　　　│　　　│　　│┝┰┝┰　 ？”　└──┐├──┘├───├───│　　│┥┿┿┸　 ？”　　　　││　　　│　　　│　　　│　　│　┥┸　а ？”　　　　││　　　│　　　│　　　│　┌┘　　　а　 ？”　└──┘│　　　└───└───└─┘　а　　　　 ＣＯＬＯＲ　１０ ？”　┌──┐│　　│┌┬┐　　│┌──┐│　　││　　│ ？”　│　　┘│　　│　│　　　││　　││　┌┘│　　│ ？”　│　　　│　　│　│　　　││　　││┌┘　│　　│ ？”　└──┐│　　│　│　　　│├──┤├┘　　│　　│ ？”　　　　││　　│　│　│　││　　││└┐　│　　│ ？”　　　　││　　│　│　│　││　　││　└┐│　　│ ？”　└──┘└──┘└┴┘└─┘│　　││　　│└──┘ ＣＯＬＯＲ　１１，３ ？”　　　ＰＲＥＳＥＮＴＥＤ　ＢＹ　ＮＥＫＯＨＩＭＥ　　　 ＣＯＬＯＲ　０，１ ？” ？”┌ＣＯＭＭＥＮＴ──────────────────┐ ？”│　　　　　　　　　　　　　　　　　　　　　　　　　│ ？”│　　　　　　　　　　　　　　　　　　　　　　　　　│ ？”│　　　　　　　　　　　　　　　　　　　　　　　　　│ ？”└─────────────────────────┘　 ？” ＰＮＬＳＴＲ　０，　０，”┌─────────────┐ ＰＮＬＳＴＲ　０，　１，”│ＳＰＥＥＤ　ＳＵＩＪＡＫＵ│ ＰＮＬＳＴＲ　０，　２，”└─────────────┘ ＰＮＬＳＴＲ　０，　３，”┌─────────────┐┌─────────────┐ ＰＮＬＳＴＲ　０，　４，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，　５，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，　６，”│　　　　　　　　　　　　　││　ＤＥＬＥＴＥ　　　　　　│ ＰＮＬＳＴＲ　０，　７，”│　ＧＡＭＥ　　ＳＴＡＲＴ　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，　８，”│　　　　　　　　　　　　　││　　　　ＭＥＭ　ＦＩＬＥＳ│ ＰＮＬＳＴＲ　０，　９，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１０，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１１，”└─────────────┘└─────────────┘ ＰＮＬＳＴＲ　０，１２，”┌─────────────┐┌─────────────┐ ＰＮＬＳＴＲ　０，１３，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１４，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１５，”│　ＳＣＯＲＥ　　　　　　　││　ＳＡＶＥ　＆　　　　　　│ ＰＮＬＳＴＲ　０，１６，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１７，”│　　　　　ＲＡＮＫＩＮＧ　││　　　ＧＡＭＥ　ＥＮＤ　　│ ＰＮＬＳＴＲ　０，１８，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，１９，”│　　　　　　　　　　　　　││　　　　　　　　　　　　　│ ＰＮＬＳＴＲ　０，２０，”└─────────────┘└─────────────┘ ＧＦＩＬＬ　４，２８，１１６，９２，５ ＧＦＩＬＬ　１２４，２８，２３６，９２，５ ＧＦＩＬＬ　４，１００，１１６，１６４，５ ＧＦＩＬＬ　１２４，１００，２３６，１６４，５ ＣＮ＝１：ＧＯＳＵＢ　＠ＣＯＭＭＥＮＴ ＷＡＩＴ　５０ ＠Ｔ＿Ｌ ＶＳＹＮＣ　１ ＳＥＬ＝０：Ｘ＝０：Ｙ＝０ Ｘ＝ＴＣＨＸ＊ＴＣＨＳＴ：Ｙ＝ＴＣＨＹ＊ＴＣＨＳＴ ＳＥＬ＝ＳＥＬ＋ＴＣＨＳＴ ＳＥＬ＝ＳＥＬ＋２＊（ＡＢＳ（Ｘ−６０）＜＝５６） ＳＥＬ＝ＳＥＬ＋４＊（ＡＢＳ（Ｘ−１８０）＜＝５６） ＳＥＬ＝ＳＥＬ＋８＊（ＡＢＳ（Ｙ−６０）＜＝３２） ＳＥＬ＝ＳＥＬ＋１６＊（ＡＢＳ（Ｙ−１３２）＜＝３２） Ｉ＄＝ＲＩＧＨＴ＄（”　　”＋ＳＴＲ＄（ＳＥＬ），３） ＩＦ　ＳＥＬ＝＝１１　ＴＨＥＮ　＠ＲＥＳＴＡＲＴ ＩＦ　ＳＥＬ＝＝１９　ＴＨＥＮ　＠ＲＡＮＫＩＮＧ ＩＦ　ＳＥＬ＝＝１３　ＴＨＥＮ　＠ＤＥＬ ＩＦ　ＳＥＬ＝＝２１　ＴＨＥＮ　＠ＧＥＮＤ ＧＯＴＯ　＠Ｔ＿Ｌ ＠ＣＯＭＭＥＮＴ ＲＥＳＴＯＲＥ　”＠ＣＮ”＋ＳＴＲ＄（ＣＮ） ＦＯＲ　Ｌ＝０　ＴＯ　２ ＲＥＡＤ　ＣＯＭ＄（Ｌ） ＬＯＣＡＴＥ　１，１８＋Ｌ：？ＣＯＭ＄（Ｌ） ＮＥＸＴ ＲＥＴＵＲＮ ＠ＲＡＮＫＩＮＧ ＢＧＭＰＬＡＹ　９ ＣＬＳ ＧＰＡＧＥ　１：ＧＣＬＳ ＦＯＲ　Ｉ＝０　ＴＯ　９ ＬＩＮＥ＄（Ｉ）＝”” ＮＥＸＴ ＣＯＬＯＲ　５ ＬＯＣＡＴＥ　０，０：？”В”＊３２； ＬＯＣＡＴＥ　０，２２：？”В”＊３２； ＦＯＲ　Ｉ＝１　ＴＯ　２１ ＬＯＣＡＴＥ　０，Ｉ：？”ВВ　　　　　　　　　　　　ВВВВ　　　　　　　　　　　　ВВ”； ＮＥＸＴ ＣＯＬＯＲ　９ ＬＯＣＡＴＥ　２，　２：？”┿┿┿　┿┿┿　┿┿┿ ＬＯＣＡＴＥ　２，　３：？”　┿　　┿　┿　┿　┿ ＬＯＣＡＴＥ　２，　４：？”　┿　　┿　┿　┿┿┿ ＬＯＣＡＴＥ　２，　５：？”　┿　　┿┿┿　┿ ＬＯＣＡＴＥ　２，　６：？” ＬＯＣＡＴＥ　２，　７：？”　　　　┿┿┿　┿┿┿ ＬＯＣＡＴＥ　２，　８：？”　　　　　　┿　┿　┿ ＬＯＣＡＴＥ　２，　９：？”　　　　┿┿┿　┿　┿ ＬＯＣＡＴＥ　２，１０：？”　　　　　　┿　┿　┿ ＬＯＣＡＴＥ　２，１１：？”　　　　┿┿┿　┿┿┿ ＣＯＬＯＲ　３ ＬＯＣＡＴＥ　２，１３：？”―――――――――――― ＣＯＬＯＲ　０ ＬＯＣＡＴＥ　２，１５：？”＊ハイスコアランキンク゛ ＬＯＣＡＴＥ　２，１７：？”　　　　　ＴＯＰ３０ヲ ＬＯＣＡＴＥ　２，１９：？”　　ヒョウシ゛シテイマス ＦＯＲ　Ｉ＝２９　ＴＯ　０　ＳＴＥＰ　−１ Ｉ＄＝ＲＩＧＨＴ＄（”　　　　”＋ＳＴＲ＄（ＨＳＣ（Ｉ）），５） ＬＩＮＥ＄（０）＝ＲＮＫ＄（Ｉ）＋”　　”＋Ｉ＄ ＧＯＳＵＢ　＠ＳＵＢ＿Ｌ ＷＡＩＴ　１５ ＦＯＲ　Ｑ＝８　ＴＯ　０　ＳＴＥＰ　−１ ＳＷＡＰ　ＬＩＮＥ＄（Ｑ），ＬＩＮＥ＄（Ｑ＋１） ＮＥＸＴ　Ｑ ＮＥＸＴ　Ｉ ＰＮＬＳＴＲ　１０，１０，”ＴＯＵＣＨ　ＴＯ　ＭＥＮＵ” ＦＯＲ　Ｉ＝０　ＴＯ　１：Ｉ＝０ ＩＦ　ＴＣＨＳＴ　ＴＨＥＮ　Ｉ＝１ ＮＥＸＴ ＧＯＴＯ　＠ＴＩＴＬＥ ＠ＳＵＢ＿Ｌ ＦＯＲ　Ｑ＝０　ＴＯ　９ ＬＯＣＡＴＥ　１８，２＋２＊Ｑ：？ＬＩＮＥ＄（Ｑ） ＮＥＸＴ ＲＥＴＵＲＮ ＠ＤＥＬ ＡＣＬＳ ＣＯＬＯＲ　３，１０ ＬＯＣＡＴＥ　５，１０：？”　ＭＥＭ　ＦＩＬＥ　ヲ　サクシ゛ョ　　” ＬＯＣＡＴＥ　５，１１：？”　　　　　　↓↓↓↓↓　　　　　　　” ＣＯＬＯＲ　０，１ ＤＥＬＥＴＥ　”ＭＥＭ：ＮＨＰＳＰＳ” ＥＮＤ ＠ＧＥＮＤ ＧＯＳＵＢ　＠ＳＡＶＥ ＡＣＬＳ：ＣＬＥＡＲ：ＢＧＭＳＴＯＰ ＬＯＣＡＴＥ　５，１０：？”ＴＨＡＮＫ　ＹＯＵ　ＦＯＲ　ＰＬＡＹＩＮＧ” ＰＮＬＳＴＲ　５，１２，”ＰＲＥＳＥＮＴＥＤ　ＢＹ　ＮＥＫＯＨＩＭＥ” ＷＡＩＴ　１００ ＥＮＤ ＠ＮＯＮ ＤＡＴＡ　”　　　”，”　　　”，”　　　”，”　　　”，”　　　” ＠０ ＤＡＴＡ　”┿┿┿”，”┿　┿”，”┿　┿”，”┿　┿”，”┿┿┿” ＠１ ＤＡＴＡ　”　　┿”，”　　┿”，”　　┿”，”　　┿”，”　　┿” ＠２ ＤＡＴＡ　”┿┿┿”，”　　┿”，”┿┿┿”，”┿　　”，”┿┿┿” ＠３ ＤＡＴＡ　”┿┿┿”，”　　┿”，”┿┿┿”，”　　┿”，”┿┿┿” ＠４ ＤＡＴＡ　”┿　┿”，”┿　┿”，”┿┿┿”，”　　┿”，”　　┿” ＠５ ＤＡＴＡ　”┿┿┿”，”┿　　”，”┿┿┿”，”　　┿”，”┿┿┿” ＠６ ＤＡＴＡ　”┿┿┿”，”┿　　”，”┿┿┿”，”┿　┿”，”┿┿┿” ＠７ ＤＡＴＡ　”┿┿┿”，”┿　┿”，”　　┿”，”　　┿”，”　　┿” ＠８ ＤＡＴＡ　”┿┿┿”，”┿　┿”，”┿┿┿”，”┿　┿”，”┿┿┿” ＠９ ＤＡＴＡ　”┿┿┿”，”┿　┿”，”┿┿┿”，”　　┿”，”┿┿┿” ＠ＣＮ１ ＤＡＴＡ　”シタノ　メニュ−　カラ　　　　　　　　　” ＤＡＴＡ　”タッチヘ゜ン　ヲ　ツカッテ　　　　　　　” ＤＡＴＡ　”エランテ゛　クタ゛サイ ＠ＣＮ２ ＤＡＴＡ　”エカ゛ラ　ヲ　キオク　シテクタ゛サイ　　” ＤＡＴＡ　”キオク　シタラ　ＤＳ　ヲ　トシ゛テ　　　” ＤＡＴＡ　”スコシマッテ　ヒライテ　クタ゛サイ　　　” ＠ＣＮ３ ＤＡＴＡ　”オナシ゛　エカ゛ラヲ　タッチヘ゜ンテ゛　” ＤＡＴＡ　”タッチシテ　エランテ゛　クタ゛サイ　　　” ＤＡＴＡ　”オテツキ　ハ　ケ゛ンテン　テ゛スヨ　　　” ＠ＣＮ４ ＤＡＴＡ　”ケッカ　ハッヒ゜ョウ　テ゛ス　　　　　　” ＤＡＴＡ　”コンカイノ　セイセキハ　ト゛ウテ゛シタカ” ＤＡＴＡ　”マタ　アソンテ゛　クタ゛サイネ　　　　　”

製作ノート

+

ネタバレ注意

コンセプト 発端は、半年前に作ってあった、「HIT 3 NUMBERS」を、公開できるように作り替えた際に、プチコン技を色々理解した今なら、何かできるんじゃないかな。といったところにあり、さらに、 公式素材を使ってみたかったんじゃ!! ということで、スマイルブームプレゼント素材を、尽くDLしてきました。 そして、これも実は再現だけはしてあるのですが、スマホアプリの数字タッチゲーム。 あの操作感覚でできるゲームを作ろう。 絵合わせでどうだろう と、いうことで、 「タッチパネルを素早くタッチしてタイムを競う神経衰弱」 になりました。 chrデータの編集 公式素材のハカセ達は。それぞれパレットNOが違うので、chrデータと共に、パレットのデータもいじってます。 まったく、これだけのためにQRが増えていくのは哀しい感じがします。 顔のデータだけをコピーして、顔データに使われていない色を、枠と背景の色に変えてあります。 絵柄のマスク 絵柄と、それを隠しているえ絵柄、それぞれ、別のSPで指定して、重ねています。 こういうと、BGでいいじゃん?てことにもなるんですけどね。 タッチして、絵柄を開く(=上に乗っているマスク用SPを、画面外に飛ばす)と処理しています。 カード開閉の処理 当たり判定 「HIT 3 NUMBERS」のときは、透明のSPを用意して、タッチ座標に移動するようにして、SPHITSPで判定をとってみましたが、いまいちでした。 位置の座標と、判定をとるサイズがわかっているので、X.Yそれぞれを、IF文で判定を出した方が、やはり応答がよかったです。 開閉のフラグ 変数一つ、ビット演算でフラグ処理を行っています。

開発&編集後記

先日UPした、HIT 3 NUMBERSから、今タッチパネルゲームを作るとどんな感じになるかなと、組み始めたプログラムです。
インスピレーションは、スマホ黎明期(?)に流行ったアプリから、
これもテストで組んだことがあるので、今回のパネルの位置取りなどは苦労無くできました。
ランキングは無駄に30位まで用意したのは、ランキングスクロールをやってみたかっただけです。(笑
私はいつも、MEMセーブは、ハイスコアが出たら行うようにするのですが、今回はテストプレイでうざかったので、PRG終了前にしました。
DSの蓋開け閉め入力は、今回は記憶を曖昧にする一役を買ったんじゃないかなと思います。

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

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

お名前: