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

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

パンくずリスト

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

概要

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

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

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

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

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

操作

レベル選択:

  初級(Beginner)       Aボタン
  中級(Middle)         Xボタン
  上級(Professional)   Yボタン

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

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

調整

合否判定は±40以内としています。(256段階の)

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

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

sIMGP7002.jpg
sIMGP7003.jpg

QR コード

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

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

プログラムリスト

  1. ’−−−−−−−−−−−−−−−−−−−−−
  2. ’|    Penkiyasan      |
  3. ’|      Painter       |
  4. ’| 2012.04.28 by hoy  |
  5. ’| 2012.05.03 ver1.2  |
  6. ’−−−−−−−−−−−−−−−−−−−−−
  7. GOSUB @INIT
  8. @START
  9. ?”  Hi−SC  Beg:”;HSB;” Mid:”;HSM;” Pro:”;HSP
  10. ?”      << Penkiya−san >>”
  11. ?”       Painter ver1.2”
  12. ?”       Mix up the color.”
  13. ?”    Select Level”
  14. ?”     A Button : Beginner”
  15. ?”     X Button : Middle”
  16. ?”     Y Button : Professional”
  17. @MATI
  18. B=BUTTON()
  19. IF B==16 THEN GOSUB @BEG
  20. IF B==64 THEN GOSUB @MIDL
  21. IF B==128 THEN GOSUB @PRO
  22. IF LEVELSET==1 THEN GOTO @EXIT
  23. GOTO @MATI
  24. @EXIT
  25. CLS
  26. GOSUB @CHUMON
  27. GOSUB @PUTCOL
  28. STARTTM=MAINCNTL
  29. BGMPLAY 20
  30. LOCATE 0,1
  31. ?”  Hi−SC  Beg:”;HSB;” Mid:”;HSM;” Pro:”;HSP
  32. LOCATE 8,6
  33. ?”<< Penkiya−san >>”
  34. LOCATE 10,13
  35. ? ”COLOR    :  ”;IRO
  36. LOCATE 10,15
  37. ? ”MISS     :  ”;MISS
  38. LOCATE 10,17
  39. ? ”SCORE    :  ”; SCORE
  40. ’−−−−−−−− MAIN LOOP −−−−−−−
  41. @LOOP
  42. TM=MAXTM−FLOOR((MAINCNTL−STARTTM)/60)
  43. LOCATE 7,10
  44. ? ”   TIME ”;TM;” SEC  ”
  45. IF TM==0 THEN GOTO @OWARI
  46. IF TM<0 THEN GOTO @OWARI
  47. IF TCHST==0 THEN GOTO @LOOP
  48. X=TCHX:Y=TCHY
  49. IF (X>205 AND X<235) AND (Y>150 AND Y<180) THEN GOSUB @ABORT
  50. IF (X>205 AND X<235) AND (Y>10 AND Y<40) THEN GOSUB @HANTEI
  51. IF (X>15 AND X<55) AND RL==1 THEN GOSUB @R
  52. IF (X>75 AND X<115) AND GL==1  THEN GOSUB @G
  53. IF (X>135 AND X<175) AND BL==1 THEN GOSUB @B
  54. GOTO @LOOP
  55. ’−−−−−−−− SUB −−−−−−−
  56. @HANTEI
  57. ALW=40
  58. IF ABS(CR−YR)<ALW AND ABS(CG−YG)<ALW AND ABS(CB−YB)<ALW THEN GOSUB @TOKUTEN ELSE GOSUB @MISS
  59. RETURN
  60. @TOKUTEN
  61. X=0 : Y=0
  62. IRO=IRO+1 : SCORE=IRO+MISS
  63. LOCATE 10,13
  64. ? ”COLOR No.:  ”;IRO;”   ”
  65. LOCATE 10,17
  66. ? ”SCORE    :        ”
  67. LOCATE 10,17
  68. ? ”SCORE    :  ”; SCORE
  69. BEEP 3 : WAIT 20
  70. GOSUB @CHUMON
  71. RETURN
  72. @MISS
  73. X=0 : Y=0
  74. MISS=MISS−1 : SCORE=IRO+MISS
  75. LOCATE 10,15
  76. ? ”MISS     : ”;MISS;”  ”
  77. LOCATE 10,17
  78. ? ”SCORE    :          ”
  79. LOCATE 10,17
  80. ? ”SCORE    :  ”; SCORE
  81. BEEP 0 : WAIT 20
  82. RETURN
  83. @CHUMON
  84. CR=RND(256)
  85. CG=RND(256)
  86. CB=RND(256)
  87. GOSUB @COLORSET2
  88. IF GL==0 THEN YG=CG 
  89. IF BL==0 THEN YB=CB 
  90. GOSUB @PUTCOL
  91. RETURN
  92. @ABORT
  93. X=0: Y=0
  94. GOSUB @MISS
  95. WAIT 20
  96. GOSUB @CHUMON
  97. RETURN
  98. @BEG
  99. RL=1 : GL=0 : BL=0
  100. MAXTM=60
  101. LEVELSET=1
  102. LV=0
  103. RETURN
  104. @MIDL
  105. RL=1 : GL=1 : BL=0
  106. MAXTM=120
  107. LEVELSET=1
  108. LV=1
  109. RETURN
  110. @PRO
  111. RL=1 : GL=1 : BL=1
  112. MAXTM=240
  113. LEVELSET=1
  114. LV=2
  115. RETURN
  116. @R
  117. YR=FLOOR((190−Y)*256/186)−1
  118. IF YR>255 THEN YR=255
  119. IF YR<0 THEN YR=0
  120. GOSUB @COLORSET
  121. GOSUB @BARR
  122. RETURN
  123. @G
  124. YG=FLOOR((190−Y)*256/186)−1
  125. IF YG>255 THEN YG=255
  126. IF YG<0 THEN YG=0
  127. GOSUB @COLORSET
  128. GOSUB @BARG
  129. RETURN
  130. @B
  131. YB=FLOOR((190−Y)*256/186)−1
  132. IF YB>255 THEN YB=255
  133. IF YB<0 THEN YB=0
  134. GOSUB @COLORSET
  135. GOSUB @BARB
  136. RETURN
  137. @COLORSET
  138. R$=HEX$(YR)
  139. G$=HEX$(YG)
  140. B$=HEX$(YB)
  141. IF LEN(R$)==1 THEN R$=”0”+R$
  142. IF LEN(G$)==1 THEN G$=”0”+G$
  143. IF LEN(B$)==1 THEN B$=”0”+B$
  144. C$=R$+G$+B$
  145. GPAGE 1
  146. COLSET ”GRP”, 100, C$
  147. RETURN
  148. @COLORSET2
  149. CR$=HEX$(CR)
  150. CG$=HEX$(CG)
  151. CB$=HEX$(CB)
  152. IF LEN(CR$)==1 THEN CR$=”0”+CR$
  153. IF LEN(CG$)==1 THEN CG$=”0”+CG$
  154. IF LEN(CB$)==1 THEN CB$=”0”+CB$
  155. CC$=CR$+CG$+CB$
  156. GPAGE 0
  157. COLSET ”GRP”, 101, CC$
  158. GPAGE 1
  159. RETURN
  160. @BARR
  161. GLINE 15,OLDYR,55,OLDYR,100
  162. GLINE 15,Y,55,Y,4
  163. OLDYR=Y
  164. RETURN
  165. @BARG
  166. GLINE 75,OLDYG,115,OLDYG,100
  167. GLINE 75,Y,115,Y,4
  168. OLDYG=Y
  169. RETURN
  170. @BARB
  171. GLINE 135,OLDYB,175,OLDYB,100
  172. GLINE 135,Y,175,Y,4
  173. OLDYB=Y
  174. RETURN
  175. @PUTCOL
  176. GOSUB @COLORSET
  177. Y=FLOOR(190−(YR+1)*186/256)
  178. GOSUB @BARR
  179. Y=FLOOR(190−(YG+1)*186/256)
  180. GOSUB @BARG
  181. Y=FLOOR(190−(YB+1)*186/256)
  182. GOSUB @BARB
  183. RETURN
  184. @SIKAKU
  185. GFILL 205,40,235,10,8
  186. GBOX 205,40,235,10,13
  187. GFILL 205,150,235,180,0
  188. GBOX 205,150,235,180,13
  189. RETURN
  190. @INIT
  191. CLEAR
  192. SPCLR
  193. BGMSTOP
  194. ACLS
  195. VISIBLE 1,1,1,1,1,1
  196. COLOR 1
  197. GPAGE 0
  198. GCLS 101
  199. PNLTYPE ”OFF”
  200. GPAGE 1
  201. GCLS 100
  202. YR=211 : YG=71 : YB=40
  203. CR=71 : CG=124: CB=149
  204. GOSUB @COLORSET2
  205. GOSUB @PUTCOL
  206. GOSUB @SIKAKU
  207. CLS
  208. RETURN
  209. @OWARI
  210. BGMSTOP
  211. GPAGE 0
  212. CR=71 : CG=124: CB=149
  213. GOSUB @COLORSET2
  214. WAIT 30
  215. BEEP 68 : WAIT 30
  216. BEEP 68 : WAIT 30
  217. IF LV==0 AND SCORE>HSB THEN HSB=SCORE: HH=1
  218. IF LV==1 AND SCORE>HSM THEN HSM=SCORE: HH=1
  219. IF LV==2 AND SCORE>HSP THEN HSP=SCORE: HH=1
  220. LOCATE 0,1
  221. ?”  Hi−SC  Beg:”;HSB;” Mid:”;HSM;” Pro:”;HSP
  222. LOCATE 3,19
  223. IF HH==1 THEN ? ”!! You’ve got High Score !!”
  224. IF HH==1 THEN BEEP 7:WAIT 40:BEEP 7: WAIT 100
  225. LOCATE 8,21
  226. ? ”  TAP PANEL !! ”
  227. IRO=0 : SCORE=0 : HH=0
  228. LEVELSET=0 : MISS=0
  229. @MATI2
  230. TST=TCHST
  231. IF TST==FALSE THEN GOTO @MATI2
  232. GOTO @START
  233. ’−−−−−−−  END −−−−−−−−−

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

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

  • hoy : 制限時間を初級1分、中級2分、上級4分に直しました。 (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.038 秒 | このページの最終更新 : 2012/05/03 (木) 09:22:43 (2634d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30