PATPAT by すがぁら。

再生

　サイドビュー型のシンプルなパットゴルフゲームだ。
　まずはプレイするホール数を選ぼう。メイン画面が表示されたら、Ｌボタンで素振りの開始。上下するショットゲージのちょうどいい強さを見計らって、Ｒボタンで打ち込もう。ボールがカップに向かって転がっていくぞ。
　ホールごとにある規定打数（パー）を上回らないよう、少ない打数のカップインでハイスコアを狙おう。

私が作りました

すがぁら。
Twitter

20年近く前に組んだパットゴルフゲームを、プチコンに移植してみました。
Ｌボタンでショットゲージが動くので、球の強さを決定してＲボタンでショットします。
距離によってパーがかわります。
97〜100行目で、球の強さの計算をしています。ゲームバランスが悪い場合は調整してみてください。
目指せ、ホールインワン！


 CHECK POiNT 

博士
ゴルフゲームもある種BASICの定番ゲームじゃな。特にパットゴルフはゴルフゲームのキモ、スイングのパワー調整をお手軽に楽しめて良いとっかかりじゃ。

神崎
横視点だから、ショットの方向を決める操作が必要なくできているんだね。

博士
ウム、うまい割り切り方じゃな。このプログラムではボールとカップも文字でできているのが味わい深いのう。

ワンパク
ムムム……？　オレは同じ強さで打ってるハズなのに、転がり方が違うときがあるぜ。ナットクいかねーな！

インテリ
98〜101行目で、ショットの強さをある程度ランダムで揺らすようにしてあるね。変化が付いてゲーム性に一役かっているけど、内部で処理するより「風向き」のような要素として表に出ているとより本格的だし、ワンパク君も納得だったかな？

プログラムリスト

  1. ’
  2. ’　ＰＡＴＰＡＴ
  3. ’
  5. ’ショキ　ショリ
  6. ＠ＳＨＯＫＩ
  7. ＶＩＳＩＢＬＥ　１，１，０，０，０，１
  8. ＣＬＳ：ＧＣＬＳ：ＣＬＥＡＲ
  9. ＨＣ＝１：ＳＣ＝０
  10. ＧＯＳＵＢ　＠ＴＩＴＬＥ
  12. ’
  13. ’　ホールノ　ショキセッテイ
  14. ’
  15. ＠ＨＯＬＥ
  16. ＢＥＥＰ　４２
  17. ＣＬＳ
  18. ＧＦＩＬＬ　０，０，２５５，９０，４
  19. ＧＦＩＬＬ　０，９０，２５５，２５５，１０
  20. ＧＦＩＬＬ　１５０，３，２５０，７０，０
  21. ＧＢＯＸ　１５０，３，２５０，７０，０
  22. ＧＦＩＬＬ　７０，３，１４０，３０，０
  23. ＧＢＯＸ　７０，３，１４０，３０，０
  24. ＧＦＩＬＬ　２０，３６，３５，１３０，０
  25. ＧＢＯＸ　２０，３６，３５，１３０，０
  26. ＢＬ＝１　’タマノ　ショキイチ
  27. ＳＨ＝０　’ショットカウント　リセット
  28. ＬＯＣＡＴＥ　ＢＬ，１８
  29. ＣＯＬＯＲ　０：ＰＲＩＮＴ　”．”
  30. ＣＰ＝ＦＬＯＯＲ（ＲＮＤ（２０）＋８）
  31. ＩＦ　ＣＰ＜１０　ＴＨＥＮ　ＰＥＲ＝２
  32. ＩＦ　ＣＰ＞９　ＴＨＥＮ　ＰＥＲ＝３
  33. ＩＦ　ＣＰ＞１７　ＴＨＥＮ　ＰＥＲ＝４
  34. ＩＦ　ＣＰ＞２５　ＴＨＥＮ　ＰＥＲ＝５
  36. ’
  37. ’　１タ゛　コ゛トノ　ホール　ショリ
  38. ’
  39. ＠ＳＥＴ
  40. ＬＯＣＡＴＥ　ＣＰ，１８
  41. ＣＯＬＯＲ　１：ＰＲＩＮＴ　”●”
  42. ＬＯＣＡＴＥ　１０，１
  43. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”К：スインク゛”
  44. ＬＯＣＡＴＥ　１０，２
  45. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”К：ショット”
  46. ＬＯＣＡＴＥ　２０，１
  47. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　ＨＣ；”　ホール”
  48. ＬＯＣＡＴＥ　２０，３
  49. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”キョリ　：”；ＣＰ
  50. ＬＯＣＡＴＥ　２０，４
  51. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”ハ゜ー　：”；ＰＥＲ
  52. ＬＯＣＡＴＥ　２０，６
  53. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”　スコア：”；ＳＣ
  54. ＬＯＣＡＴＥ　２０，７
  55. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”ショット：”；ＳＨ
  57. ’
  58. ’　スインク゛　ショリ
  59. ’
  60. ＠ＢＴＮ
  61. Ｂ　＝　ＢＵＴＴＯＮ（）
  62. ＩＦ　Ｂ　＝＝　２５６　ＧＯＴＯ　＠ＰＬＡＹ
  63. ＧＯＴＯ　＠ＢＴＮ
  65. ’
  66. ’　ハ゜ワーケ゛ーシ゛　ト　ショット
  67. ’
  68. ＠ＰＬＡＹ
  69. ＦＯＲ　ＴＭ　＝　０　ＴＯ　１００００：ＮＥＸＴ　ＴＭ
  70. ＦＯＲ　ＬＶ＝０　ＴＯ　１０
  71. ＦＯＲ　ＴＭ　＝　０　ＴＯ　１５００
  72. Ｘ＝ＢＵＴＴＯＮ（）
  73. ＩＦ　Ｘ　＝＝　５１２　ＧＯＴＯ　＠ＳＨＯＴ
  74. ＮＥＸＴ　ＴＭ
  75. ＬＯＣＡＴＥ　３，１５－ＬＶ
  76. ＣＯＬＯＲ　７：ＰＲＩＮＴ”┿”
  77. ＮＥＸＴ　ＬＶ
  79. ＦＯＲ　ＬＶ　＝１０　ＴＯ　０　ＳＴＥＰ　－１
  80. ＦＯＲ　ＴＭ　＝　０　ＴＯ　１５００
  81. Ｘ＝ＢＵＴＴＯＮ（）
  82. ＩＦ　Ｘ　＝＝　５１２　ＧＯＴＯ　＠ＳＨＯＴ
  83. ＮＥＸＴ　ＴＭ
  84. ＬＯＣＡＴＥ　３，１５－ＬＶ
  85. ＣＯＬＯＲ　７：ＰＲＩＮＴ”　”
  86. ＮＥＸＴ　ＬＶ
  88. ＧＯＴＯ　＠ＳＥＴ
  90. ’
  91. ’　ホ゛ールノ　ヒキョリ　セッテイ
  92. ’
  93. ＠ＳＨＯＴ
  94. ＢＥＥＰ　２９：ＳＨ＝ＳＨ＋１
  95. ＬＯＣＡＴＥ　２０，７
  96. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”ショット：”；ＳＨ
  98. ＩＦ　ＬＶ＜３　ＴＨＥＮ　ＬＶ＝ＲＮＤ（ＬＶ／２）＋１
  99. ＩＦ　ＬＶ＞２　ＴＨＥＮ　ＬＶ＝ＲＮＤ（ＬＶ）＋ＬＶ－１
  100. ＩＦ　ＬＶ＞６　ＴＨＥＮ　ＬＶ＝ＲＮＤ（ＬＶ／３）＋ＬＶ
  101. ＩＦ　ＬＶ＞８　ＴＨＥＮ　ＬＶ＝ＲＮＤ（ＬＶ／２）＋ＬＶ＊１．２
  102. ＬＶ＝ＦＬＯＯＲ（ＬＶ）
  103. ＩＦ　ＢＬ＜ＣＰ　ＧＯＴＯ　＠ＰＴＮ１Ａ
  104. ＩＦ　ＢＬ＞ＣＰ　ＧＯＴＯ　＠ＰＴＮ２Ａ
  106. ’
  107. ’　ホ゛ールカ゛　カッフ゜ノ　ヒタ゛リカ゛ワ
  108. ’
  109. ＠ＰＴＮ１Ａ
  110. ＦＯＲ　Ｈ＝１　ＴＯ　ＬＶ
  111. ＩＦ　ＢＬ＞２７　ＴＨＥＮ　Ｙ＝Ｈ：ＧＯＴＯ　＠ＰＴＮ１Ｂ
  112. ＢＬ＝ＢＬ＋１
  113. ＦＯＲ　ＴＭ＝１　ＴＯ　３０００：ＮＥＸＴ　ＴＭ
  114. ＬＯＣＡＴＥ　ＢＬ，１８
  115. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”．”
  116. ＬＯＣＡＴＥ　ＢＬ－１，１８
  117. ＰＲＩＮＴ　”　”
  118. ＬＯＣＡＴＥ　ＣＰ，１８
  119. ＣＯＬＯＲ　１：ＰＲＩＮＴ　”●”
  120. ＮＥＸＴ　Ｈ
  121. ＧＯＴＯ　＠ＨＯＬＥＩＮ
  123. ＠ＰＴＮ１Ｂ
  124. ＦＯＲ　Ｈ＝Ｙ　ＴＯ　ＬＶ
  125. ＣＰ＝ＣＰ－１
  126. ＦＯＲ　ＴＭ＝１　ＴＯ　３０００：ＮＥＸＴ　ＴＭ
  127. ＬＯＣＡＴＥ　ＣＰ，１８
  128. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”●”
  129. ＬＯＣＡＴＥ　ＣＰ＋１，１８
  130. ＰＲＩＮＴ　”　”
  131. ＮＥＸＴ　Ｈ
  132. ＧＯＴＯ　＠ＨＯＬＥＩＮ
  134. ’
  135. ’　ホ゛ールカ゛　カッフ゜ノ　ミキ゛カ゛ワ
  136. ’
  137. ＠ＰＴＮ２Ａ
  138. ＦＯＲ　Ｈ＝１　ＴＯ　ＬＶ
  139. ＩＦ　ＢＬ＜１　ＴＨＥＮ　Ｙ＝Ｈ：ＧＯＴＯ　＠ＰＴＮ２Ｂ
  140. ＢＬ＝ＢＬ－１
  141. ＦＯＲ　ＴＭ＝１　ＴＯ　３０００：ＮＥＸＴ　ＴＭ
  142. ＬＯＣＡＴＥ　ＢＬ，１８
  143. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”．”
  144. ＬＯＣＡＴＥ　ＢＬ＋１，１８
  145. ＰＲＩＮＴ　”　”
  146. ＬＯＣＡＴＥ　ＣＰ，１８
  147. ＣＯＬＯＲ　１：ＰＲＩＮＴ　”●”
  148. ＮＥＸＴ　Ｈ
  149. ＧＯＴＯ　＠ＨＯＬＥＩＮ
  151. ＠ＰＴＮ２Ｂ
  152. ＦＯＲ　Ｈ＝Ｙ　ＴＯ　ＬＶ
  153. ＣＰ＝ＣＰ＋１
  154. ＦＯＲ　ＴＭ＝１　ＴＯ　３０００：ＮＥＸＴ　ＴＭ
  155. ＬＯＣＡＴＥ　ＣＰ，１８
  156. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”●”
  157. ＬＯＣＡＴＥ　ＣＰ－１，１８
  158. ＰＲＩＮＴ　”　”
  159. ＮＥＸＴ　Ｈ
  160. ＧＯＴＯ　＠ＨＯＬＥＩＮ
  162. ’
  163. ’　カッフ゜イン　ハンテイ
  164. ’
  165. ＠ＨＯＬＥＩＮ
  166. ＦＯＲ　ＬＶ＝０　ＴＯ　１０
  167. ＬＯＣＡＴＥ　３，１５－ＬＶ
  168. ＰＲＩＮＴ　”　”
  169. ＮＥＸＴ　ＬＶ
  170. ＩＦ　ＢＬ！＝ＣＰ　ＧＯＴＯ　＠ＳＥＴ
  171. ＢＥＥＰ　２３
  172. ＦＯＲ　ＴＭ＝０　ＴＯ　５００００：ＮＥＸＴ　ＴＭ
  173. ＳＣ＝ＳＣ＋ＳＨ－ＰＥＲ
  174. ＬＯＣＡＴＥ　２０，６
  175. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”　スコア：　　　”
  176. ＬＯＣＡＴＥ　２０，６
  177. ＣＯＬＯＲ　１５：ＰＲＩＮＴ　”　スコア：”；ＳＣ；”　”
  178. ＨＣ＝ＨＣ＋１
  179. ＩＦ　ＨＣ＜＝ＨＬ　ＧＯＴＯ　＠ＨＯＬＥ
  181. ＠ＥＮＤＩＮＧ
  182. ＬＯＣＡＴＥ　７，１２：ＣＯＬＯＲ　１５
  183. ＰＲＩＮＴ　”ＰＵＳＨ　［ＳＴＡＲＴ］　ＴＯ　ＴＩＴＬＥ”
  184. ＳＴ＝ＢＵＴＴＯＮ（）
  185. ＩＦ　ＳＴ　＝＝　１０２４　ＧＯＴＯ　＠ＳＨＯＫＩ
  186. ＧＯＴＯ　＠ＥＮＤＩＮＧ
  188. ＠ＴＩＴＬＥ
  189. ＣＯＬＯＲ　５：ＬＯＣＡＴＥ　０，３
  190. ＰＲＩＮＴ　”┿┿┿┰　┝┿┿┰　┿┿┿┿┿│┿┿┿┰　┝┿┿┰　┿┿┿┿┿│”；
  191. ＰＲＩＮＴ　”───┿│┿┌─┿│──┿┌─┘───┿│┿┌─┿│──┿┌─┘”；
  192. ＰＲＩＮＴ　”　　　┿│┿│　┿│　　┿│　　　　　┿│┿│　┿│　　┿│　　”；
  193. ＰＲＩＮＴ　”┿┿┿┸　┿┿┿┿│　　┿│　　┿┿┿┸　┿┿┿┿│　　┿│　　”；
  194. ＰＲＩＮＴ　”┿┌─　　┿┌─┿│　　┿│　　┿┌─　　┿┌─┿│　　┿│　　”；
  195. ＰＲＩＮＴ　”┿│　　　┿│　┿│　　┿│　　┿│　　　┿│　┿│　　┿│　　”；
  196. ＰＲＩＮＴ　”─┘　　　─┘　─┘　　─┘　　─┘　　　─┘　─┘　　─┘　　”；
  197. ＬＯＣＡＴＥ　７，１２
  198. ＣＯＬＯＲ　１５
  199. ＰＲＩＮＴ　”ＳＥＬＥＣＴ　ＣＯＵＲＳＥ”
  200. ＬＯＣＡＴＥ　９，１４：ＰＲＩＮＴ　”Ａ：　１ＨＯＬＥ”
  201. ＬＯＣＡＴＥ　９，１５：ＰＲＩＮＴ　”Ｂ：　３ＨＯＬＥＳ”
  202. ＬＯＣＡＴＥ　９，１６：ＰＲＩＮＴ　”Ｘ：　９ＨＯＬＥＳ”
  203. ＬＯＣＡＴＥ　９，１７：ＰＲＩＮＴ　”Ｙ：１８ＨＯＬＥＳ”
  204. ＳＴ＝ＢＵＴＴＯＮ（）
  205. ＩＦ　ＳＴ　＝＝　１６　ＴＨＥＮ　ＨＬ＝１：ＲＥＴＵＲＮ
  206. ＩＦ　ＳＴ　＝＝　３２　ＴＨＥＮ　ＨＬ＝３：ＲＥＴＵＲＮ
  207. ＩＦ　ＳＴ　＝＝　６４　ＴＨＥＮ　ＨＬ＝９：ＲＥＴＵＲＮ
  208. ＩＦ　ＳＴ　＝＝　１２８　ＴＨＥＮ　ＨＬ＝１８：ＲＥＴＵＲＮ
  209. ＧＯＴＯ　＠ＴＩＴＬＥ