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

投稿プログラム :ペンキ屋さん

パンくずリスト

2012年4月28日投稿 / 投稿者 : hoy@kayama / タグ : 投稿プログラム ゲーム QRコード 色調合 mkII専用

概要

お客さんが注文した見本色（上画面）と同じ色のペンキを下画面に調合します。

初級は、赤色のみを調合します。中級は赤と緑、上級は赤緑青の３色を調合します。

ほぼ同じ色のペンキができたら、黄色ボタンを押して判定してもらいます。 時間内に何色調合できるでしょうか。むずかしい色は黒色ボタンでパスできます。

最初は初級で慣れてください。中級が遊びやすいと思います。上級はとてもむずかしいです。ＤＳを完全に（180度）開くと、上下両方の画面の色が見やすいです。

（2012.4.8に投稿した「光奏器」をゲーム化しました）

操作

レベル選択：

  初級(Beginner)       Ａボタン
  中級(Middle)         Ｘボタン
  上級(Professional)   Ｙボタン

バーは左から赤、緑、青です。

 判定　　右上の黄色ボタン
 パス　　右下の黒色ボタン
 音楽の終了　BGMSTOP

調整

合否判定は±４０以内としています。（２５６段階の）

７６行目の 「ALW=40」を増やせば甘く、減らせば厳しくなります。

スクリーンショット・動画

sIMGP7002.jpg
sIMGP7003.jpg

QR コード

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

1/32/3
qrF0.pngqrF1.png
3/3
qrF2.png

プログラムリスト

  1. ’−−−−−−−−−−−−−−−−−−−−−
  2. ’｜　　　　Ｐｅｎｋｉｙａｓａｎ　　　　　　｜
  3. ’｜　　　　　　Ｐａｉｎｔｅｒ　　　　　　　｜
  4. ’｜　２０１２．０４．２８　ｂｙ　ｈｏｙ　　｜
  5. ’｜　２０１２．０５．０３　ｖｅｒ１．２　　｜
  6. ’−−−−−−−−−−−−−−−−−−−−−
  7. ＧＯＳＵＢ　＠ＩＮＩＴ
  8. ＠ＳＴＡＲＴ
  9. ？
  10. ？”　　Ｈｉ−ＳＣ　　Ｂｅｇ：”；ＨＳＢ；”　Ｍｉｄ：”；ＨＳＭ；”　Ｐｒｏ：”；ＨＳＰ
  11. ？
  12. ？
  13. ？”　　　　　　＜＜　Ｐｅｎｋｉｙａ−ｓａｎ　＞＞”
  14. ？
  15. ？
  16. ？”　　　　　　　Ｐａｉｎｔｅｒ　ｖｅｒ１．２”
  17. ？
  18. ？
  19. ？”　　　　　　　Ｍｉｘ　ｕｐ　ｔｈｅ　ｃｏｌｏｒ．”
  20. ？
  21. ？
  22. ？
  23. ？”　　　　Ｓｅｌｅｃｔ　Ｌｅｖｅｌ”
  24. ？
  25. ？
  26. ？”　　　　　Ａ　Ｂｕｔｔｏｎ　：　Ｂｅｇｉｎｎｅｒ”
  27. ？
  28. ？”　　　　　Ｘ　Ｂｕｔｔｏｎ　：　Ｍｉｄｄｌｅ”
  29. ？
  30. ？”　　　　　Ｙ　Ｂｕｔｔｏｎ　：　Ｐｒｏｆｅｓｓｉｏｎａｌ”
  31. ？
  33. ＠ＭＡＴＩ
  34. Ｂ＝ＢＵＴＴＯＮ（）
  35. ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＢＥＧ
  36. ＩＦ　Ｂ＝＝６４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＩＤＬ
  37. ＩＦ　Ｂ＝＝１２８　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＲＯ
  38. ＩＦ　ＬＥＶＥＬＳＥＴ＝＝１　ＴＨＥＮ　ＧＯＴＯ　＠ＥＸＩＴ
  39. ＧＯＴＯ　＠ＭＡＴＩ
  40. ＠ＥＸＩＴ
  42. ＣＬＳ
  43. ＧＯＳＵＢ　＠ＣＨＵＭＯＮ
  44. ＧＯＳＵＢ　＠ＰＵＴＣＯＬ
  45. ＳＴＡＲＴＴＭ＝ＭＡＩＮＣＮＴＬ
  46. ＢＧＭＰＬＡＹ　２０
  47. ＬＯＣＡＴＥ　０，１
  48. ？”　　Ｈｉ−ＳＣ　　Ｂｅｇ：”；ＨＳＢ；”　Ｍｉｄ：”；ＨＳＭ；”　Ｐｒｏ：”；ＨＳＰ
  49. ＬＯＣＡＴＥ　８，６
  50. ？”＜＜　Ｐｅｎｋｉｙａ−ｓａｎ　＞＞”
  51. ＬＯＣＡＴＥ　１０，１３
  52. ？　”ＣＯＬＯＲ　　　　：　　”；ＩＲＯ
  53. ＬＯＣＡＴＥ　１０，１５
  54. ？　”ＭＩＳＳ　　　　　：　　”；ＭＩＳＳ
  55. ＬＯＣＡＴＥ　１０，１７
  56. ？　”ＳＣＯＲＥ　　　　：　　”；　ＳＣＯＲＥ
  58. ’−−−−−−−−　ＭＡＩＮ　ＬＯＯＰ　−−−−−−−
  59. ＠ＬＯＯＰ
  60. ＴＭ＝ＭＡＸＴＭ−ＦＬＯＯＲ（（ＭＡＩＮＣＮＴＬ−ＳＴＡＲＴＴＭ）／６０）
  61. ＬＯＣＡＴＥ　７，１０
  62. ？　”　　　ＴＩＭＥ　”；ＴＭ；”　ＳＥＣ　　”
  63. ＩＦ　ＴＭ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＯＷＡＲＩ
  64. ＩＦ　ＴＭ＜０　ＴＨＥＮ　ＧＯＴＯ　＠ＯＷＡＲＩ
  65. ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＧＯＴＯ　＠ＬＯＯＰ
  66. Ｘ＝ＴＣＨＸ：Ｙ＝ＴＣＨＹ
  67. ＩＦ　（Ｘ＞２０５　ＡＮＤ　Ｘ＜２３５）　ＡＮＤ　（Ｙ＞１５０　ＡＮＤ　Ｙ＜１８０）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＡＢＯＲＴ
  68. ＩＦ　（Ｘ＞２０５　ＡＮＤ　Ｘ＜２３５）　ＡＮＤ　（Ｙ＞１０　ＡＮＤ　Ｙ＜４０）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＨＡＮＴＥＩ
  69. ＩＦ　（Ｘ＞１５　ＡＮＤ　Ｘ＜５５）　ＡＮＤ　ＲＬ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｒ
  70. ＩＦ　（Ｘ＞７５　ＡＮＤ　Ｘ＜１１５）　ＡＮＤ　ＧＬ＝＝１　　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｇ
  71. ＩＦ　（Ｘ＞１３５　ＡＮＤ　Ｘ＜１７５）　ＡＮＤ　ＢＬ＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠Ｂ
  72. ＧＯＴＯ　＠ＬＯＯＰ
  74. ’−−−−−−−−　ＳＵＢ　−−−−−−−
  75. ＠ＨＡＮＴＥＩ
  76. ＡＬＷ＝４０
  77. ＩＦ　ＡＢＳ（ＣＲ−ＹＲ）＜ＡＬＷ　ＡＮＤ　ＡＢＳ（ＣＧ−ＹＧ）＜ＡＬＷ　ＡＮＤ　ＡＢＳ（ＣＢ−ＹＢ）＜ＡＬＷ　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＯＫＵＴＥＮ　ＥＬＳＥ　ＧＯＳＵＢ　＠ＭＩＳＳ
  78. ＲＥＴＵＲＮ
  80. ＠ＴＯＫＵＴＥＮ
  81. Ｘ＝０　：　Ｙ＝０
  82. ＩＲＯ＝ＩＲＯ＋１　：　ＳＣＯＲＥ＝ＩＲＯ＋ＭＩＳＳ
  83. ＬＯＣＡＴＥ　１０，１３
  84. ？　”ＣＯＬＯＲ　Ｎｏ．：　　”；ＩＲＯ；”　　　”
  85. ＬＯＣＡＴＥ　１０，１７
  86. ？　”ＳＣＯＲＥ　　　　：　　　　　　　　”
  87. ＬＯＣＡＴＥ　１０，１７
  88. ？　”ＳＣＯＲＥ　　　　：　　”；　ＳＣＯＲＥ
  89. ＢＥＥＰ　３　：　ＷＡＩＴ　２０
  90. ＧＯＳＵＢ　＠ＣＨＵＭＯＮ
  91. ＲＥＴＵＲＮ
  93. ＠ＭＩＳＳ
  94. Ｘ＝０　：　Ｙ＝０
  95. ＭＩＳＳ＝ＭＩＳＳ−１　：　ＳＣＯＲＥ＝ＩＲＯ＋ＭＩＳＳ
  96. ＬＯＣＡＴＥ　１０，１５
  97. ？　”ＭＩＳＳ　　　　　：　”；ＭＩＳＳ；”　　”
  98. ＬＯＣＡＴＥ　１０，１７
  99. ？　”ＳＣＯＲＥ　　　　：　　　　　　　　　　”
  100. ＬＯＣＡＴＥ　１０，１７
  101. ？　”ＳＣＯＲＥ　　　　：　　”；　ＳＣＯＲＥ
  102. ＢＥＥＰ　０　：　ＷＡＩＴ　２０
  103. ＲＥＴＵＲＮ
  105. ＠ＣＨＵＭＯＮ
  106. ＣＲ＝ＲＮＤ（２５６）
  107. ＣＧ＝ＲＮＤ（２５６）
  108. ＣＢ＝ＲＮＤ（２５６）
  109. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ２
  110. ＩＦ　ＧＬ＝＝０　ＴＨＥＮ　ＹＧ＝ＣＧ　
  111. ＩＦ　ＢＬ＝＝０　ＴＨＥＮ　ＹＢ＝ＣＢ　
  112. ＧＯＳＵＢ　＠ＰＵＴＣＯＬ
  113. ＲＥＴＵＲＮ
  115. ＠ＡＢＯＲＴ
  116. Ｘ＝０：　Ｙ＝０
  117. ＧＯＳＵＢ　＠ＭＩＳＳ
  118. ＷＡＩＴ　２０
  119. ＧＯＳＵＢ　＠ＣＨＵＭＯＮ
  120. ＲＥＴＵＲＮ
  122. ＠ＢＥＧ
  123. ＲＬ＝１　：　ＧＬ＝０　：　ＢＬ＝０
  124. ＭＡＸＴＭ＝６０
  125. ＬＥＶＥＬＳＥＴ＝１
  126. ＬＶ＝０
  127. ＲＥＴＵＲＮ
  129. ＠ＭＩＤＬ
  130. ＲＬ＝１　：　ＧＬ＝１　：　ＢＬ＝０
  131. ＭＡＸＴＭ＝１２０
  132. ＬＥＶＥＬＳＥＴ＝１
  133. ＬＶ＝１
  134. ＲＥＴＵＲＮ
  136. ＠ＰＲＯ
  137. ＲＬ＝１　：　ＧＬ＝１　：　ＢＬ＝１
  138. ＭＡＸＴＭ＝２４０
  139. ＬＥＶＥＬＳＥＴ＝１
  140. ＬＶ＝２
  141. ＲＥＴＵＲＮ
  143. ＠Ｒ
  144. ＹＲ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
  145. ＩＦ　ＹＲ＞２５５　ＴＨＥＮ　ＹＲ＝２５５
  146. ＩＦ　ＹＲ＜０　ＴＨＥＮ　ＹＲ＝０
  147. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ
  148. ＧＯＳＵＢ　＠ＢＡＲＲ
  149. ＲＥＴＵＲＮ
  151. ＠Ｇ
  152. ＹＧ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
  153. ＩＦ　ＹＧ＞２５５　ＴＨＥＮ　ＹＧ＝２５５
  154. ＩＦ　ＹＧ＜０　ＴＨＥＮ　ＹＧ＝０
  155. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ
  156. ＧＯＳＵＢ　＠ＢＡＲＧ
  157. ＲＥＴＵＲＮ
  159. ＠Ｂ
  160. ＹＢ＝ＦＬＯＯＲ（（１９０−Ｙ）＊２５６／１８６）−１
  161. ＩＦ　ＹＢ＞２５５　ＴＨＥＮ　ＹＢ＝２５５
  162. ＩＦ　ＹＢ＜０　ＴＨＥＮ　ＹＢ＝０
  163. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ
  164. ＧＯＳＵＢ　＠ＢＡＲＢ
  165. ＲＥＴＵＲＮ
  167. ＠ＣＯＬＯＲＳＥＴ
  168. Ｒ＄＝ＨＥＸ＄（ＹＲ）
  169. Ｇ＄＝ＨＥＸ＄（ＹＧ）
  170. Ｂ＄＝ＨＥＸ＄（ＹＢ）
  171. ＩＦ　ＬＥＮ（Ｒ＄）＝＝１　ＴＨＥＮ　Ｒ＄＝”０”＋Ｒ＄
  172. ＩＦ　ＬＥＮ（Ｇ＄）＝＝１　ＴＨＥＮ　Ｇ＄＝”０”＋Ｇ＄
  173. ＩＦ　ＬＥＮ（Ｂ＄）＝＝１　ＴＨＥＮ　Ｂ＄＝”０”＋Ｂ＄
  174. Ｃ＄＝Ｒ＄＋Ｇ＄＋Ｂ＄
  175. ＧＰＡＧＥ　１
  176. ＣＯＬＳＥＴ　”ＧＲＰ”，　１００，　Ｃ＄
  177. ＲＥＴＵＲＮ
  179. ＠ＣＯＬＯＲＳＥＴ２
  180. ＣＲ＄＝ＨＥＸ＄（ＣＲ）
  181. ＣＧ＄＝ＨＥＸ＄（ＣＧ）
  182. ＣＢ＄＝ＨＥＸ＄（ＣＢ）
  183. ＩＦ　ＬＥＮ（ＣＲ＄）＝＝１　ＴＨＥＮ　ＣＲ＄＝”０”＋ＣＲ＄
  184. ＩＦ　ＬＥＮ（ＣＧ＄）＝＝１　ＴＨＥＮ　ＣＧ＄＝”０”＋ＣＧ＄
  185. ＩＦ　ＬＥＮ（ＣＢ＄）＝＝１　ＴＨＥＮ　ＣＢ＄＝”０”＋ＣＢ＄
  186. ＣＣ＄＝ＣＲ＄＋ＣＧ＄＋ＣＢ＄
  187. ＧＰＡＧＥ　０
  188. ＣＯＬＳＥＴ　”ＧＲＰ”，　１０１，　ＣＣ＄
  189. ＧＰＡＧＥ　１
  190. ＲＥＴＵＲＮ
  192. ＠ＢＡＲＲ
  193. ＧＬＩＮＥ　１５，ＯＬＤＹＲ，５５，ＯＬＤＹＲ，１００
  194. ＧＬＩＮＥ　１５，Ｙ，５５，Ｙ，４
  195. ＯＬＤＹＲ＝Ｙ
  196. ＲＥＴＵＲＮ
  198. ＠ＢＡＲＧ
  199. ＧＬＩＮＥ　７５，ＯＬＤＹＧ，１１５，ＯＬＤＹＧ，１００
  200. ＧＬＩＮＥ　７５，Ｙ，１１５，Ｙ，４
  201. ＯＬＤＹＧ＝Ｙ
  202. ＲＥＴＵＲＮ
  204. ＠ＢＡＲＢ
  205. ＧＬＩＮＥ　１３５，ＯＬＤＹＢ，１７５，ＯＬＤＹＢ，１００
  206. ＧＬＩＮＥ　１３５，Ｙ，１７５，Ｙ，４
  207. ＯＬＤＹＢ＝Ｙ
  208. ＲＥＴＵＲＮ
  210. ＠ＰＵＴＣＯＬ
  211. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ
  212. Ｙ＝ＦＬＯＯＲ（１９０−（ＹＲ＋１）＊１８６／２５６）
  213. ＧＯＳＵＢ　＠ＢＡＲＲ
  214. Ｙ＝ＦＬＯＯＲ（１９０−（ＹＧ＋１）＊１８６／２５６）
  215. ＧＯＳＵＢ　＠ＢＡＲＧ
  216. Ｙ＝ＦＬＯＯＲ（１９０−（ＹＢ＋１）＊１８６／２５６）
  217. ＧＯＳＵＢ　＠ＢＡＲＢ
  218. ＲＥＴＵＲＮ
  220. ＠ＳＩＫＡＫＵ
  221. ＧＦＩＬＬ　２０５，４０，２３５，１０，８
  222. ＧＢＯＸ　２０５，４０，２３５，１０，１３
  223. ＧＦＩＬＬ　２０５，１５０，２３５，１８０，０
  224. ＧＢＯＸ　２０５，１５０，２３５，１８０，１３
  225. ＲＥＴＵＲＮ
  227. ＠ＩＮＩＴ
  228. ＣＬＥＡＲ
  229. ＳＰＣＬＲ
  230. ＢＧＭＳＴＯＰ
  231. ＡＣＬＳ
  232. ＶＩＳＩＢＬＥ　１，１，１，１，１，１
  233. ＣＯＬＯＲ　１
  234. ＧＰＡＧＥ　０
  235. ＧＣＬＳ　１０１
  236. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  237. ＧＰＡＧＥ　１
  238. ＧＣＬＳ　１００
  239. ＹＲ＝２１１　：　ＹＧ＝７１　：　ＹＢ＝４０
  240. ＣＲ＝７１　：　ＣＧ＝１２４：　ＣＢ＝１４９
  241. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ２
  242. ＧＯＳＵＢ　＠ＰＵＴＣＯＬ
  243. ＧＯＳＵＢ　＠ＳＩＫＡＫＵ
  244. ＣＬＳ
  245. ＲＥＴＵＲＮ
  247. ＠ＯＷＡＲＩ
  248. ＢＧＭＳＴＯＰ
  249. ＧＰＡＧＥ　０
  250. ＣＲ＝７１　：　ＣＧ＝１２４：　ＣＢ＝１４９
  251. ＧＯＳＵＢ　＠ＣＯＬＯＲＳＥＴ２
  252. ＷＡＩＴ　３０
  253. ＢＥＥＰ　６８　：　ＷＡＩＴ　３０
  254. ＢＥＥＰ　６８　：　ＷＡＩＴ　３０
  255. ＩＦ　ＬＶ＝＝０　ＡＮＤ　ＳＣＯＲＥ＞ＨＳＢ　ＴＨＥＮ　ＨＳＢ＝ＳＣＯＲＥ：　ＨＨ＝１
  256. ＩＦ　ＬＶ＝＝１　ＡＮＤ　ＳＣＯＲＥ＞ＨＳＭ　ＴＨＥＮ　ＨＳＭ＝ＳＣＯＲＥ：　ＨＨ＝１
  257. ＩＦ　ＬＶ＝＝２　ＡＮＤ　ＳＣＯＲＥ＞ＨＳＰ　ＴＨＥＮ　ＨＳＰ＝ＳＣＯＲＥ：　ＨＨ＝１
  258. ＬＯＣＡＴＥ　０，１
  259. ？”　　Ｈｉ−ＳＣ　　Ｂｅｇ：”；ＨＳＢ；”　Ｍｉｄ：”；ＨＳＭ；”　Ｐｒｏ：”；ＨＳＰ
  260. ＬＯＣＡＴＥ　３，１９
  261. ＩＦ　ＨＨ＝＝１　ＴＨＥＮ　？　”！！　Ｙｏｕ’ｖｅ　ｇｏｔ　Ｈｉｇｈ　Ｓｃｏｒｅ　！！”
  262. ＩＦ　ＨＨ＝＝１　ＴＨＥＮ　ＢＥＥＰ　７：ＷＡＩＴ　４０：ＢＥＥＰ　７：　ＷＡＩＴ　１００
  263. ＬＯＣＡＴＥ　８，２１
  264. ？　”　　ＴＡＰ　ＰＡＮＥＬ　！！　”
  265. ＩＲＯ＝０　：　ＳＣＯＲＥ＝０　：　ＨＨ＝０
  266. ＬＥＶＥＬＳＥＴ＝０　：　ＭＩＳＳ＝０
  267. ＠ＭＡＴＩ２
  268. ＴＳＴ＝ＴＣＨＳＴ
  269. ＩＦ　ＴＳＴ＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＧＯＴＯ　＠ＭＡＴＩ２
  270. ＧＯＴＯ　＠ＳＴＡＲＴ
  272. ’−−−−−−−　　ＥＮＤ　−−−−−−−−−

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

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

  • hoy : 制限時間を初級１分、中級2分、上級４分に直しました。 (2012/04/30 (月) 08:26:53)
  • ロジウム : 文字は白以外がいいのでは… (2012/04/30 (月) 11:56:33)
  • hoy : なるほど！　色を直しました。 (2012/04/30 (月) 13:11:39)
  • 名無しさん : かなり楽しく遊ばせていただいております！それぞれの級のハイスコアを保存できるようになればもっといいのでは？ (2012/05/02 (水) 00:07:14)
  • hoy : ハイスコア、つけましたよ。 Enjoy! (2012/05/02 (水) 20:35:44)
  • hoy : パスしたとき誤動作していたのを直しました。 (2012/05/03 (木) 09:22:43)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.113 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:00 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30