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

投稿プログラム : とりでの攻防

パンくずリスト

2011年03月31日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム シューティングゲーム 初代対応 移植

概要

ベーマガ1989年05月号大高準一郎さん投稿「とりでの攻防」の移植です。

  • ２Ｐ用です。
  • パッドの左右で角度変更、上下でパワー変更、Aボタンで決定です。
  • DSiからの打ち込みですのでソースにミス、バグがある可能性があります。
  • 写真にしようかと思いましたが綺麗に取れなかったので打ち込みました。
  • 本家は３本設定ですが、１回で終了となっています。
  • 動作報告・バグ報告・要望はCHECKER FLAGにお願いいたします。
  • 打ち込みミスが多かったのでソース画像も置いておきます。(4/4)
  • 正直、打ち込みの半分くらいの時間は掛かった・・・orz
  • お詫びにCPU対戦ソースも追加しておきます。ちなみに強すぎます。(4/4)

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

toride001.jpg
toride002.jpg

QR コード

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

PRG:TORIDE
1/42/4
qr0.pngqr1.png
3/44/4
qr2.pngqr3.png

プログラムリスト

  1. ’┌───────────────────┐
  2. ’│トリテ゛ノコウホ゛ウ　　　　　　　　　│
  3. ’│　　　　　　　　　　　　　　　　　　　│
  4. ’│　　　２０１１．３．９　　＠ＪＥＤＡ　│
  5. ’└───────────────────┘
  8. ’ヘンスウセンケ゛ン
  9. ＣＬＥＡＲ
  10. ＢＡＳＥＹ＝８０
  11. ＤＩＭ　ＭＴＸ（５０），ＭＴＹ（５０）　’ヤマノリョウセン
  12. ＤＩＭ　ＰＸ（２），ＰＹ（２）　　　　　’ホウタ゛イイチ
  13. ＤＩＭ　ＰＸＸ（２），ＰＹＹ（２）　　　’ホウタ゛イサ゛ヒョウ
  14. ＤＩＭ　ＰＬＣ（２），ＰＤＣ（２）　　　’ホウタ゛イイロ
  15. ＤＩＭ　ＡＮＧＬＥ（２），ＰＷ（２）　　’カクト゛ハ゜ワー
  16. ＤＩＭ　ＶＸ（２），ＶＹ（２）　　　　　’タマノソクト゛
  17. ＤＩＭ　ＨＩＴ（２）　　　　　　　　　　’ヒットフラク゛（１：シ゛メン　２：テキ　３：シ゛ハ゛ク）
  18. ＤＩＭ　ＢＴ（２）　　　　　　　　　　　’エフェクトカウンタ
  20. ＰＬＣ（０）＝４：ＰＬＣ（１）＝２
  21. ＰＤＣ（０）＝１５：ＰＤＣ（１）＝１２
  23. ’ショキカ
  24. ＠ＳＥＴＵＰ
  25. ＣＬＳ：ＧＣＬＳ　０：ＣＯＬＯＲ　０
  26. ＶＩＳＩＢＬＥ　１，１，０，０，０，１
  28. ＰＸ（０）＝　５−ＲＮＤ（２）
  29. ＰＸ（１）＝　２６＋ＲＮＤ（２）
  30. ＴＯＴＡＬＸ＝０
  31. ＴＯＴＡＬＹ＝ＢＡＳＥＹ
  32. ＭＴＸ（０）＝ＴＯＴＡＬＸ−８
  33. ＭＴＹ（０）＝ＴＯＴＡＬＹ
  34. ＡＮＧＬＥ（０）＝５０
  35. ＡＮＧＬＥ（１）＝１３０
  36. ＰＷ（０）＝８：ＰＷ（１）＝８
  37. ＶＸ（０）＝０：ＶＹ（０）＝０
  38. ＶＸ（１）＝０：ＶＹ（１）＝０
  39. ＴＸ（０）＝０：ＴＹ（０）＝０
  40. ＴＸ（１）＝０：ＴＹ（１）＝０
  41. ＢＴ（０）＝０：ＢＴ（１）＝０
  42. ＹＣ＝１４５
  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. ＬＯＣＡＴＥ　９，１４
  79. ＰＲＩＮＴ　”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ”
  80. ＣＮＴ＝ＣＮＴ＋１
  81. ＩＦ　ＣＮＴ＜３０　ＴＨＥＮ　ＲＥＴＵＲＮ
  82. ＩＦ　ＴＲＧ　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＣＬＳ：ＣＮＴ＝０：ＳＴＡＴＥ＝ＳＴＧＳＥＴ
  83. ＲＥＴＵＲＮ
  85. ’ステーシ゛サクセイ
  86. ＠ＳＴＧＳＥＴ
  87. ＧＯＳＵＢ　＠ＭＮＴＭＡＫＥ
  88. ＧＯＳＵＢ　＠ＭＮＴＤＲＡＷ
  89. ＧＯＳＵＢ　＠ＰＬＰＵＴ
  90. ＷＩＮＤ＝ＲＮＤ（６）−３
  91. ＣＮＴ＝０
  92. ＰＬ＝０
  93. ＭＳＣ＝０　’タマノカウンタ
  94. ＢＴ（０）＝０：ＢＴ（１）＝０
  95. ＳＴＡＴＥ＝ＰＬＡＹＥＲ１
  96. ＢＧＭＰＬＡＹ　９
  97. ＲＥＴＵＲＮ
  99. ’ヤマノリョウセンサクセイ
  100. ＠ＭＮＴＭＡＫＥ
  101. ＦＯＲ　Ｉ＝１　ＴＯ　３２
  102. 　’Ｐ１サ゛ヒョウショリ
  103. 　ＩＦ　ＰＸ（０）！＝Ｉ　ＴＨＥＮ　＠ＹＭＬ０
  104. 　ＭＴＹ（Ｉ）＝ＭＴＹ（Ｉ−１）
  105. 　ＰＸＸ（０）＝ＴＯＴＡＬＸ
  106. 　ＰＹＹ（０）＝ＭＴＹ（Ｉ）−８−１
  107. 　ＧＯＴＯ　＠ＹＭＬ１
  108. ＠ＹＭＬ０
  109. 　’Ｐ２サ゛ヒョウショリ
  110. 　ＩＦ　ＰＸ（１）！＝Ｉ　ＴＨＥＮ　＠ＹＴＥＳＴ
  111. 　ＭＴＹ（Ｉ）＝ＭＴＹ（Ｉ−１）
  112. 　ＰＸＸ（１）＝ＴＯＴＡＬＸ
  113. 　ＰＹＹ（１）＝ＭＴＹ（Ｉ）−８−１
  114. 　ＧＯＴＯ　＠ＹＭＬ１
  115. ＠ＹＴＥＳＴ
  116. 　’Ｙサ゛ヒョウノチェック
  117. 　ＴＥＳＴＹ＝ＴＯＴＡＬＹ＋８＊（ＲＮＤ（１０）−５）
  118. 　ＩＦ　ＴＥＳＴＹ＜６０　ＴＨＥＮ　＠ＹＴＥＳＴ
  119. 　ＩＦ　ＴＥＳＴＹ＞１４０　ＴＨＥＮ　＠ＹＴＥＳＴ
  120. 　ＭＴＹ（Ｉ）＝ＴＥＳＴＹ
  121. ＠ＹＭＬ１
  122. 　ＴＯＴＡＬＹ＝ＴＥＳＴＹ
  123. 　ＴＯＴＡＬＸ＝ＴＯＴＡＬＸ＋８
  124. 　ＭＴＸ（Ｉ）＝ＴＯＴＡＬＸ
  125. ＮＥＸＴ
  126. ＲＥＴＵＲＮ
  128. ’ヤマノヒ゛ョウカ゛
  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. ？”ＰＬＡＹＥＲ”；Ｐ＋１
  158. ＬＯＣＡＴＥ　Ｐ＊２０，１
  159. ？”ＡＮＧＬＥ＝”；ＡＮＧＬＥ（Ｐ）；”　”
  160. ＬＯＣＡＴＥ　Ｐ＊２０，２
  161. ？”ＰＯＷＥＲ＝”；ＰＷ（Ｐ）；”　”
  162. ’ホウトウヒ゛ョウカ゛
  163. ＨＸ＝ＰＸＸ（Ｐ）＋４
  164. ＨＹ＝ＰＹＹ（Ｐ）−１
  165. ＡＧ＝ＲＡＤ（ＡＮＧＬＥ（Ｐ））
  166. ＧＬＩＮＥ　ＨＸ，ＨＹ，ＨＸ＋ＣＯＳ（ＡＧ）＊８，ＨＹ−ＳＩＮ（ＡＧ）＊８，０
  167. ＩＦ　ＲＥＰＥＡＴ＝＝８　ＴＨＥＮ　ＡＮＧＬＥ（Ｐ）＝ＡＮＧＬＥ（Ｐ）−１
  168. ＩＦ　ＲＥＰＥＡＴ＝＝４　ＴＨＥＮ　ＡＮＧＬＥ（Ｐ）＝ＡＮＧＬＥ（Ｐ）＋１
  169. ＩＦ　ＡＮＧＬＥ（Ｐ）＜０　ＴＨＥＮ　ＡＮＧＬＥ（Ｐ）＝０
  170. ＩＦ　ＡＮＧＬＥ（Ｐ）＞１８０　ＴＨＥＮ　ＡＮＧＬＥ（Ｐ）＝１８０
  171. ＡＧ＝ＲＡＤ（ＡＮＧＬＥ（Ｐ））
  172. ＧＬＩＮＥ　ＨＸ，ＨＹ，ＨＸ＋ＣＯＳ（ＡＧ）＊８，ＨＹ−ＳＩＮ（ＡＧ）＊８，ＰＬＣ（Ｐ）
  173. ＩＦ　ＲＥＰＥＡＴ＝＝１　ＴＨＥＮ　ＰＷ（Ｐ）＝ＰＷ（Ｐ）＋１
  174. ＩＦ　ＲＥＰＥＡＴ＝＝２　ＴＨＥＮ　ＰＷ（Ｐ）＝ＰＷ（Ｐ）−１
  175. ＩＦ　ＰＷ（Ｐ）＜１　ＴＨＥＮ　ＰＷ（Ｐ）＝１
  176. ＩＦ　ＰＷ（Ｐ）＞１６　ＴＨＥＮ　ＰＷ（Ｐ）＝１６
  177. ＣＮＴ＝ＣＮＴ＋１
  178. ＩＦ　ＣＮＴ＜３０　ＴＨＥＮ　＠ＰＬＥＮＤ
  179. ＩＦ　ＴＲＧ＝＝１６　ＴＨＥＮ　ＣＬＳ：ＣＮＴ＝０：Ｐ＝１：ＳＴＡＴＥ＝ＳＴＡＴＥ＋１
  180. ＠ＰＬＥＮＤ
  181. ＲＥＴＵＲＮ
  183. ’タマノハッシャ
  184. ＠ＭＳＦＩＲＥ
  185. ＦＯＲ　Ｉ＝０　ＴＯ　１
  186. 　ＡＧ＝ＲＡＤ（ＡＮＧＬＥ（Ｉ））
  187. 　ＶＸ（Ｉ）＝ＰＷ（Ｉ）＊ＣＯＳ（ＡＧ）＊０．６
  188. 　ＶＹ（Ｉ）＝−ＰＷ（Ｉ）＊ＳＩＮ（ＡＧ）＊０．６
  189. 　ＴＸ（Ｉ）＝ＰＸＸ（Ｉ）＋４＋ＣＯＳ（ＡＧ）＊８
  190. 　ＴＹ（Ｉ）＝ＰＹＹ（Ｉ）−ＳＩＮ（ＡＧ）＊８
  191. ＮＥＸＴ
  192. ＭＳＣ＝０
  193. ＣＮＴ＝０
  194. ＨＩＴ（０）＝０：ＨＩＴ（１）＝０
  195. ＢＥＥＰ　３１，−４０９６
  196. ＳＴＡＴＥ＝ＭＳＭＯＶＥ
  197. ＲＥＴＵＲＮ
  199. ’タマノイト゛ウ
  200. ＠ＭＳＭＯＶＥ
  201. ＣＮＴ＝ＣＮＴ＋１
  202. ＩＦ　ＣＮＴ％５　ＴＨＥＮ　ＲＥＴＵＲＮ
  203. ＦＯＲ　Ｉ＝０　ＴＯ　１
  204. 　ＩＦ　ＨＩＴ（Ｉ）！＝０　ＴＨＥＮ　＠ＭＳＬＯＯＰ１
  205. 　ＢＥＥＰ　０，−４０９６
  206. 　ＶＸ（Ｉ）＝ＶＸ（Ｉ）＋０．０２５＊ＷＩＮＤ
  207. 　ＶＹ（Ｉ）＝ＶＹ（Ｉ）＋０．２
  208. 　ＩＦ　ＶＸ（Ｉ）＞１６　ＴＨＥＮ　ＶＸ（Ｉ）＝１６
  209. 　ＩＦ　ＶＸ（Ｉ）＜−１６　ＴＨＥＮ　ＶＸ（Ｉ）＝−１６
  210. 　ＩＦ　ＶＹ（Ｉ）＞８　ＴＨＥＮ　ＶＹ（Ｉ）＝８
  211. 　ＴＸ（Ｉ）＝ＴＸ（Ｉ）＋ＶＸ（Ｉ）
  212. 　ＴＹ（Ｉ）＝ＴＹ（Ｉ）＋ＶＹ（Ｉ）
  213. 　ＳＰ＝ＧＳＰＯＩＴ（ＴＸ（Ｉ），ＴＹ（Ｉ））
  214. 　ＧＰＳＥＴ　ＴＸ（Ｉ），ＴＹ（Ｉ），ＰＤＣ（Ｉ）
  215. 　ＩＦ　ＳＰ＝＝ＹＣ　ＴＨＥＮ　ＨＩＴ（Ｉ）＝１：ＢＥＥＰ　９，−８１９２，８０
  216. 　ＰＰ＝０
  217. ＠ＨＩＴＣＨＫ
  218. 　Ｅ＝１−ＰＰ
  219. 　ＩＦ　ＰＸＸ（Ｅ）＞ＴＸ（Ｉ）　ＴＨＥＮ　＠ＨＩＴＣＨＫＬ
  220. 　ＩＦ　ＰＹＹ（Ｅ）＞ＴＹ（Ｉ）　ＴＨＥＮ　＠ＨＩＴＣＨＫＬ
  221. 　ＩＦ　ＰＸＸ（Ｅ）＋９＜ＴＸ（Ｉ）　ＴＨＥＮ　＠ＨＩＴＣＨＫＬ
  222. 　ＩＦ　ＰＹＹ（Ｅ）＋９＜ＴＹ（Ｉ）　ＴＨＥＮ　＠ＨＩＴＣＨＫＬ
  223. 　ＩＦ　Ｉ＝＝Ｅ　ＴＨＥＮ　ＨＩＴ（Ｉ）＝３：ＧＯＴＯ　＠ＨＩＴＣＨＫＬ
  224. 　ＨＩＴ（Ｉ）＝２
  225. ＠ＨＩＴＣＨＫＬ
  226. 　ＰＰ＝ＰＰ＋１
  227. 　ＩＦ　ＰＰ＜２　ＴＨＥＮ　＠ＨＩＴＣＨＫ
  228. ＠ＭＳＬＯＯＰ１
  229. ＮＥＸＴ
  231. ’チャクタ゛ン
  232. ＦＯＲ　Ｉ＝０　ＴＯ　１
  233. 　ＩＦ　ＨＩＴ（Ｉ）＝＝０　ＴＨＥＮ　＠ＭＳＬＯＯＰ２
  234. 　ＩＦ　ＨＩＴ（Ｉ）！＝ＨＩＴＯＬＤ（Ｉ）　ＴＨＥＮ　ＢＥＥＰ　１３
  235. 　ＦＯＲ　Ｒ＝１　ＴＯ　４
  236. 　　ＧＣＩＲＣＬＥ　ＴＸ（Ｉ），ＴＹ（Ｉ），Ｒ，０
  237. 　ＮＥＸＴ　Ｒ
  238. ＠ＭＳＬＯＯＰ２
  239. ＮＥＸＴ　Ｉ
  240. ＭＳＣ＝ＭＳＣ＋１
  241. ＩＦ　ＭＳＣ＜＝８０　ＴＨＥＮ　＠ＭＳＣＨＫＬ
  242. ＦＯＲ　Ｉ＝０　ＴＯ　１
  243. 　ＩＦ　ＴＸ（Ｉ）＜０　ＴＨＥＮ　ＨＩＴ（Ｉ）＝１
  244. 　ＩＦ　ＴＸ（Ｉ）＞２５６　ＴＨＥＮ　ＨＩＴ（Ｉ）＝１
  245. ＮＥＸＴ
  246. ＠ＭＳＣＨＫＬ
  247. ＩＦ　ＨＩＴ（０）＊ＨＩＴ（１）＝＝１　ＴＨＥＮ　Ｐ＝０：ＳＴＡＴＥ＝ＰＬＡＹＥＲ１：ＧＯＴＯ　＠ＭＳＥＮＤ
  248. ’ケッカハンテイ
  249. Ｉ＝０
  250. ＠ＭＳＬＯＯＰ３
  251. 　ＩＦ　ＨＩＴ（Ｉ）＜２　ＴＨＥＮ　＠ＭＳＬＯＯＰ４
  252. 　ＩＦ　ＨＩＴ（１−Ｉ）＝＝０　ＴＨＥＮ　＠ＭＳＬＯＯＰ４
  253. 　ＩＦ　ＢＴ（Ｉ）＜１６　ＴＨＥＮ　＠ＭＳＬＯＯＰ４　
  254. 　ＩＦ　ＨＩＴ（１−Ｉ）＞＝２　ＴＨＥＮ　ＩＦ　ＢＴ（１−Ｉ）＜１６　ＴＨＥＮ　＠ＭＳＬＯＯＰ４　
  255. 　ＣＮＴ＝０
  256. 　ＳＴＡＴＥ＝ＰＲＥＳＵＬＴ
  257. 　ＢＧＭＳＴＯＰ
  258. 　ＢＧＭＰＬＡＹ　６
  259. 　ＧＯＴＯ　＠ＭＳＥＮＤ
  260. ＠ＭＳＬＯＯＰ４
  261. Ｉ＝Ｉ＋１
  262. ＩＦ　Ｉ＜２　ＴＨＥＮ　＠ＭＳＬＯＯＰ３
  263. ＠ＭＳＥＮＤ
  264. ＧＯＳＵＢ　＠ＰＬＨＩＴ
  265. ＧＯＳＵＢ　＠ＰＵＴＷＩＮＤ
  266. ＨＩＴＯＬＤ（０）＝ＨＩＴ（０）
  267. ＨＩＴＯＬＤ（１）＝ＨＩＴ（１）
  268. ＲＥＴＵＲＮ
  270. ’フ゜レイヤーヤラレショリ
  271. ＠ＰＬＨＩＴ
  272. ＦＯＲ　Ｉ＝０　ＴＯ　１
  273. 　Ｅ＝１−Ｉ
  274. 　ＩＦ　ＨＩＴ（Ｉ）＝＝３　ＴＨＥＮ　Ｅ＝Ｉ
  275. 　ＩＦ　ＨＩＴ（Ｉ）＜２　ＴＨＥＮ　＠ＢＭ１
  276. 　ＩＦ　ＨＩＴ（Ｉ）＝＝ＨＩＴＯＬＤ（Ｉ）　ＴＨＥＮ　＠ＰＬＨＩＴＬ
  277. 　ＬＸ＝ＰＸＸ（Ｅ）／８−３
  278. 　ＬＹ＝ＰＹＹ（Ｅ）／８
  279. 　ＩＦ　ＬＸ＜＝０　ＴＨＥＮ　ＬＸ＝０
  280. 　ＬＯＣＡＴＥ　ＬＸ，ＬＹ
  281. 　ＣＯＬＯＲ　Ｉ＊３
  282. 　？”＼ト゛カ~ン／”
  283. ＠ＰＬＨＩＴＬ
  284. 　ＧＰＳＥＴ　ＰＸＸ（Ｅ）＋ＲＮＤ（８），ＰＹＹ（Ｅ）−４＋ＲＮＤ（８），２＋ＲＮＤ（７）
  285. 　ＧＰＳＥＴ　ＰＸＸ（Ｅ）＋ＲＮＤ（１６）−４，ＰＹＹ（Ｅ）−８＋ＲＮＤ（１６），２＋ＲＮＤ（７）
  286. 　ＧＰＳＥＴ　ＰＸＸ（Ｅ）＋ＲＮＤ（８），ＰＹＹ（Ｅ）−５＋ＲＮＤ（１０），２＋ＲＮＤ（７）
  287. 　ＢＥＥＰ　１５
  288. 　ＢＴ（Ｉ）＝ＢＴ（Ｉ）＋１
  289. ＠ＢＭ１
  290. ＮＥＸＴ　Ｉ
  291. ＠ＢＭＥＮＤ
  292. ＲＥＴＵＲＮ
  294. ’ケッカヒョウシ゛
  295. ＠ＰＲＥＳＵＬＴ
  296. ＧＦＩＬＬ　０，１０８，２５６，１４０，０
  297. ＤＥＬ＄＝””
  298. ＦＯＲ　Ｄ＝０　ＴＯ　２３
  299. 　ＤＥＬ＄＝ＤＥＬ＄＋”　”
  300. ＮＥＸＴ
  301. ＬＯＣＡＴＥ　０，１４：？ＤＥＬ＄
  302. ＬＯＣＡＴＥ　０，１５：？ＤＥＬ＄
  303. ＬＯＣＡＴＥ　０，１６：？ＤＥＬ＄
  304. ＬＯＣＡＴＥ　１１，１５：ＣＯＬＯＲ　０
  305. ＩＦ　ＨＩＴ（０）＝＝ＨＩＴ（１）　ＴＨＥＮ　ＩＦ　ＨＩＴ（０）＞＝２　ＴＨＥＮ　＠ＰＲＤＲＡＷ
  306. ＷＰ＝０
  307. ＩＦ　ＨＩＴ（１）＝＝２　ＴＨＥＮ　ＷＰ＝１
  308. ＩＦ　ＨＩＴ（０）＝＝３　ＴＨＥＮ　ＷＰ＝１
  309. ＩＦ　ＨＩＴ（１）＝＝３　ＴＨＥＮ　ＷＰ＝０
  310. ？ＷＰ＋１；”ＰＬＡＹＥＲ　ＷＩＮ”
  311. ＧＯＴＯ　＠ＰＲＥＮＤ
  312. ＠ＰＲＤＲＡＷ
  313. ＬＯＣＡＴＥ　１４，１５
  314. ？”ＤＲＡＷ”
  315. ＠ＰＲＥＮＤ
  316. ＣＮＴ＝ＣＮＴ＋１
  317. ＩＦ　ＣＮＴ＜３０　ＴＨＥＮ　ＲＥＴＵＲＮ
  318. ＩＦ　ＴＲＧ　ＴＨＥＮ　ＳＴＡＴＥ＝９９
  319. ＲＥＴＵＲＮ
toridesrc001.jpg
toridesrc002.jpg
toridesrc003.jpg
toridesrc004.jpg
toridesrc005.jpg
toridesrc006.jpg
toridesrc007.jpg
toridesrc008.jpg
toridesrc009.jpg
toridesrc010.jpg
toridesrc011.jpg
toridesrc012.jpg
toridesrc013.jpg

おまけ（CPU対戦）

某大型掲示板でCPU戦も作ってという話があったので、てきとーにサンプルを作りました。

vs.jpg

ここまでをリストの一番下に追加して、

vs00.jpg
vsplayer.jpg

プレイヤー入力部分に上記の赤線を追加。

stagevs.jpg

ステージ初期化に上記２行を追加で動くと思われます。

さらに、プログラム最初のほうの@SETUPの中で CALCF=0 を追加しておいてください。

ただし、土地が平坦だとほぼ１００％はずしません。 もっと面白いAIが作れると思いますので、改造していってください。

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

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

  • 名無しさん : 173行目と174行目で"PW(P)="が抜けてない? あと、204行目の飛び先は228行目? それに、62行目のOLDBTN、67行目のOLDBN、179行目のBTNOLDって同じ変数? (2011/03/31 (木) 18:46:42)
  • うｐ主 : もろもろご指摘ありがとうございます。修正させていただきました。 (2011/03/31 (木) 23:39:43)
  • うｐ主 : １７９行目はトリガーに書きなおしております。 (2011/03/31 (木) 23:40:16)
  • うｐ主 : えらく間違いがありましたね。どうもすみません。 (2011/03/31 (木) 23:57:48)
  • 名無しさん : 172行目間違ってませんか？ (2011/04/01 (金) 14:00:15)
  • うｐ主 : 引数の「0,」が要りませんでしたね。修正しました。m(_ _)M (2011/04/01 (金) 17:01:46)
  • うｐ主 : まともに動いている人はいないんじゃないかという不安。 (2011/04/01 (金) 17:02:14)
  • た : 管理人さんには申し訳ないですが、リスト手打ちは無理です。デジカメにしておくべきです。絶対どこかしら間違います。 (2011/04/03 (日) 03:04:09)
  • うｐ主 : いえいえここはフォントが素晴らしいです。管理人様には感謝しています。 (2011/04/04 (月) 01:28:32)
  • うｐ主 : というわけでデジカメ画像も添付しておきました。 (2011/04/04 (月) 01:29:02)
  • うｐ主 : スクロール画面のほうは頑張って貼りつけていますので、そこでオペレーションミスが無い限りは写真のほうが正しいソースです。 (2011/04/04 (月) 01:30:16)
  • 名無しさん : 221と222の＋９が＊９になってました。編集しときました。 (2011/04/05 (火) 17:09:03)
  • 名無しさん : CALCROOTがどこからも呼び出されていませんが・・・（対CPU） (2011/04/05 (火) 17:57:16)
  • うｐ主 : ↑うお、すみません。画像を１枚追加しました。＞CALCROOT (2011/04/05 (火) 18:41:58)
  • うｐ主 : ↑↑↑まだありましたかorz・・・ありがとうございます。 (2011/04/05 (火) 18:42:51)
  • 名無しさん : ありがとうございます！動きました！！しかしCPU強すぎ・・・どう調整するかな・・・ (2011/04/05 (火) 20:40:44)
  • うｐ主 : 動作報告ありがとうございます！動いてよかったです＾＾ (2011/04/06 (水) 10:53:38)
  • ちくわ : CPUが強すぎです。CPUを弱くするには、どうすればよいですか？ (2011/10/23 (日) 23:04:49)
  • ごんべえ : 入力しました。とても楽しいです。今度は、スプライトを使った格ゲーを作ってください！お願いします！ (2011/10/23 (日) 23:31:54)
  • インコ : CPUが弱すぎです。CPUを強くするにはどうすればいいですか。 (2011/11/12 (土) 10:51:13)
  • 名無しさん : 打ちおえたのですが、最初の画面からなんのボタンを押してもうごきません。おねがいします。 (2011/12/05 (月) 16:39:13)
  • 　 : ↑↑自慢乙ｗ (2011/12/15 (木) 12:04:18)
  • みゅしゃ : ＠ＥＮＣＲＣＴはなにをしてるの？ＥＡＴとかＨＩＧＨＡＴとかまったく使用していないようですが。 (2011/12/15 (木) 17:02:42)
  • BLACK : QRコード出してくれ (2012/04/05 (木) 18:11:04)
  • いかたこ : QRコード無いんですか (2012/04/06 (金) 16:39:38)
  • 名無しさん : QRコード載せときました。 (2012/04/06 (金) 17:03:31)
  • いかたこ : ありがとうございます (2012/04/06 (金) 22:06:10)
  • 名無しさん : ちなみにCPU対戦ソースはQRコード化しないんですか？ (2012/04/09 (月) 13:47:00)
  • hata0401 : やっとルールが分かりました。 (2012/06/10 (日) 20:11:48)
  • 運具 : ｑｒくれ (2012/06/10 (日) 20:42:10)
  • Woah : LOVE IT!!! (2012/08/13 (月) 05:59:27)
  • Jason : This is a very fun game! (2012/09/14 (金) 22:50:23)
  • atエンタ対戦囲碁 : a (2013/08/14 (水) 18:00:51)
  • ねじ : 何回かやってじわじわコツが分かってきますね。 (2013/11/03 (日) 22:37:58)

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