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

投稿プログラム : 3D CAR RACE Ver2.0

パンくずリスト

2012年4月1日投稿 / 投稿者 : 下手な人 / タグ : 投稿プログラム ゲーム レースゲーム mkII専用 移植

概要

ベーマガ1983年8月号 熊谷 栄二さん投稿JR-100用「3D CAR RACE」の移植です。

前回投稿したものと同じ内容ですが、プチコンmkIIの命令を使って一から作り直しました。 同じ人間が同じ題材のものを作ってもこれだけ別物になるのですね。 せっかくだから投稿してみました。

遊び方

デモ画面にてAボタンを押すことでゲームがスタートします。 ←→キーでマイカーを左右に動かします。 ジャマカーやガードレールに接触するとゲームオーバーです。

プログラムの説明

  • PCG定義データを見直しました。
  • スクロール処理部分を見直し、1つのルーチンでデモ時とゲーム時の両方に対応しました。
  • 各処理をサブルーチン化し可読性の向上を図ったつもりですが、どうでしょう。

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

TS3Q0010.jpg

QR コード

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

PRG:3DCARRC2
1/32/33/3
qr0.pngqr1.pngqr2.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. 　ＧＯＴＯ　＠ＭＡＩＮ
  28. ’　ＩＮＩＴＩＡＬＩＺＥ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  29. ＠ＩＮＩＴ
  30. 　ＣＬＥＡＲ：ＡＣＬＳ
  31. 　ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  32. 　ＤＩＭ　ＲＯ＄［２４］，ＴＲ＄［３２］，ＲＳ＄［２４］，ＴＰ＄［２４］
  33. 　ＧＯＳＵＢ　＠ＳＥＴＣＨＲ
  34. 　ＦＯＲ　Ｉ＝０　ＴＯ　３１
  35. 　　ＩＦ　Ｉ＜２３　ＴＨＥＮ　ＴＲ＄［Ｉ］＝”╂├к│─│”　ＥＬＳＥ　ＴＲ＄［Ｉ］＝ＭＩＤ＄（”╂├　╂○╂╂├　╂╂╂”，（Ｉ％２）＊６，６）
  36. 　　ＩＦ　Ｉ＜２４　ＴＨＥＮ　ＲＯ＄［Ｉ］＝”┤”＋”╂”＊１４＋”├”
  37. 　　ＩＦ　Ｉ＜２４　ＴＨＥＮ　ＲＳ＄［Ｉ］＝ＭＩＤ＄（”＼кл┴”，（（Ｉ％１２）＝＝５）＊２，２）
  38. 　　ＩＦ　Ｉ＜２４　ＴＨＥＮ　ＴＰ＄［Ｉ］＝ＭＩＤ＄（”кллклк┤╂кллййй◇╂”，（Ｉ＝＝１１）＊８，８）
  39. 　ＮＥＸＴ
  40. 　ＣＡＲ＄［０］＝”╂╂”：ＣＡＲ＄［１］＝”┥┸”：ＣＡＲ＄［２］＝”┝┰”
  41. 　ＲＥＴＵＲＮ
  43. ’　ＤＥＭＯ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  44. ＠ＤＥＭＯ
  45. 　ＬＯＣＡＴＥ　０，０
  46. 　ＰＲＩＮＴ　”ＳＣＯＲＥ；”；ＲＩＧＨＴ＄（”　”＊５＋ＳＴＲ＄（ＳＣ），５）；”　ＨＩＧＨ；”；ＲＩＧＨＴ＄（”　”＊５＋ＳＴＲ＄（ＨＩ），５）；”　　ＰＬＡＹ→［А］”；
  47. 　ＧＯＳＵＢ　＠ＣＬＲＲＯＡ
  48. 　ＭＤ＝０：ＳＣ＝０：ＭＸ＝１６：ＭＹ＝１６
  49. ＠ＤＥＭＯ０
  50. 　ＶＳＹＮＣ　１
  51. 　ＧＯＳＵＢ　＠ＳＣＲＯＬＬ
  52. 　ＧＯＳＵＢ　＠ＰＲＴＯＢＪ
  53. 　Ｂ＝ＢＵＴＴＯＮ（）　ＡＮＤ　１６
  54. 　ＩＦ　！Ｂ　ＴＨＥＮ　＠ＤＥＭＯ０
  55. 　ＧＯＳＵＢ　＠ＣＬＲＲＯＡ
  56. 　ＭＤ＝１：ＭＩＳ＝ＦＡＬＳＥ
  57. 　ＲＥＴＵＲＮ
  59. ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
  60. ＠ＣＬＲＲＯＡ
  61. 　ＦＯＲ　Ｊ＝０　ＴＯ　２３
  62. 　　ＲＯ＄［Ｊ］＝”┤”＋”╂”＊１４＋”├”
  63. 　ＮＥＸＴ
  64. 　ＲＣ＝０：ＣＴ＝０：ＴＣ＝０
  65. 　Ｒ＝ＲＮＤ（１３）＋１
  66. 　ＲＥＴＵＲＮ
  68. ’　ＧＡＭＥ　ＭＡＩＮ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  69. ＠ＧＭＡＩＮ
  70. 　ＶＳＹＮＣ　１
  71. 　ＧＯＳＵＢ　＠ＫＥＹＳＣＮ
  72. 　ＧＯＳＵＢ　＠ＳＣＲＯＬＬ
  73. 　ＧＯＳＵＢ　＠ＰＲＴＯＢＪ
  74. 　ＧＯＳＵＢ　＠ＣＨＫＨＩＴ
  75. 　ＩＦ　ＭＩＳ　ＴＨＥＮ　ＲＥＴＵＲＮ
  76. 　ＬＯＣＡＴＥ　ＭＸ，ＭＹ　　：ＰＲＩＮＴ　”┌┐”；
  77. 　ＬＯＣＡＴＥ　ＭＸ，ＭＹ＋１：ＰＲＩＮＴ　”└┘”；
  78. 　ＩＦ　ＣＮＴ％３＝＝０　ＴＨＥＮ　ＩＦ　ＳＣ＜９９９９９　ＴＨＥＮ　ＳＣ＝ＳＣ＋１
  79. 　ＩＦ　ＨＩ＜ＳＣ　ＴＨＥＮ　ＨＩ＝ＳＣ
  80. 　ＬＯＣＡＴＥ　０，０
  81. 　ＰＲＩＮＴ　”ＳＣＯＲＥ；”；ＲＩＧＨＴ＄（”　”＊５＋ＳＴＲ＄（ＳＣ），５）；”　ＨＩＧＨ；”；ＲＩＧＨＴ＄（”　”＊５＋ＳＴＲ＄（ＨＩ），５）；”　”＊１０；
  82. 　ＧＯＴＯ　＠ＧＭＡＩＮ
  84. ’　ＫＥＹ　ＳＣＡＮ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  85. ＠ＫＥＹＳＣＮ
  86. 　Ｂ＝ＢＵＴＴＯＮ（）
  87. 　ＶＸ＝（Ｂ＝＝８）−（Ｂ＝＝４）
  88. 　ＣＫ＝（ＣＫ＋１）％５
  89. 　ＩＦ　ＣＫ＝＝０　ＴＨＥＮ　ＭＸ＝ＭＸ＋ＶＸ
  90. 　ＲＥＴＵＲＮ
  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. 　ＲＥＴＵＲＮ
  120. ’　ＧＡＭＥ　ＯＶＥＲ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  121. ＠ＧＯＶＥＲ
  122. 　ＬＯＣＡＴＥ　ＭＸ　　，ＭＹ−１：ＰＲＩＮＴ　”┐┘”；
  123. 　ＬＯＣＡＴＥ　ＭＸ−１，ＭＹ　　：ＰＲＩＮＴ　”┬й┸┝”；
  124. 　ＬＯＣＡＴＥ　ＭＸ−１，ＭＹ＋１：ＰＲＩＮＴ　”┝┐┌├”；
  125. 　ＬＯＣＡＴＥ　ＭＸ　　，ＭＹ＋２：ＰＲＩＮＴ　”й┝”；
  126. 　ＢＥＥＰ　１３
  127. 　ＷＡＩＴ　６０
  128. 　ＬＯＣＡＴＥ　　０，１１：ＰＲＩＮＴ　”　”＊９６；
  129. 　ＬＯＣＡＴＥ　１１，１２：ＰＲＩＮＴ　”ＧＡＭＥ　ＯＶＥＲ”；
  130. 　ＩＦ　ＳＣ＜ＨＩ　ＴＨＥＮ　＠ＧＯＶＥＲ０
  131. 　ＬＯＣＡＴＥ　　０，１４：ＰＲＩＮＴ　”　”＊６４；
  132. 　ＬＯＣＡＴＥ　　７，１４：ＰＲＩＮＴ　”ＹＯＵＲ　ＨＩＧＨ　ＳＣＯＲＥ！！”；
  133. 　ＢＥＥＰ　４２
  134. ＠ＧＯＶＥＲ０
  135. 　ＷＡＩＴ　１２０
  136. 　ＲＥＴＵＲＮ
  138. ’　ＳＥＴ　ＰＣＧ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  139. ＠ＳＥＴＣＨＲ
  140. 　ＲＥＡＤ　Ａ＄
  141. 　ＩＦ　Ａ＄＝＝”−１”　ＴＨＥＮ　ＲＥＴＵＲＮ
  142. 　Ａ＝ＶＡＬ（”＆Ｈ”＋Ａ＄）
  143. 　ＲＥＡＤ　Ａ＄
  144. 　Ｂ＄＝””
  145. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ａ＄）−１
  146. 　　Ｃ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（Ａ＄，Ｉ，１））
  147. 　　Ｃ＄＝””
  148. 　　ＦＯＲ　Ｊ＝０　ＴＯ　３
  149. 　　　Ｃ＄＝ＭＩＤ＄（”０Ｆ”，Ｃ％２，１）＋Ｃ＄
  150. 　　　Ｃ＝ＦＬＯＯＲ（Ｃ／２）
  151. 　　ＮＥＸＴ　Ｊ
  152. 　　Ｂ＄＝Ｂ＄＋Ｃ＄
  153. 　ＮＥＸＴ　Ｉ
  154. 　ＣＨＲＳＥＴ　”ＢＧＦ０”，Ａ，Ｂ＄
  155. 　ＧＯＴＯ　＠ＳＥＴＣＨＲ
  157. ’　ＰＣＧ　ＤＡＴＡ　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
  158. ＤＡＴＡ　８０，”５５３Ａ７ＤＣ６Ｃ７７Ｃ３９ＡＡ”
  159. ＤＡＴＡ　９０，”４４８８０Ｆ０Ｅ００７Ｅ１１２２”
  160. ＤＡＴＡ　９１，”ＢＦＦ３Ｅ６４ＣＦ９Ｆ２５５ＡＡ”
  161. ＤＡＴＡ　９２，”１Ｄ２Ｃ０Ｆ０Ｆ１Ｃ２Ｄ１Ｃ２Ｄ”
  162. ＤＡＴＡ　９４，”４７８Ｅ４７８Ｅ４７１Ｅ１Ｆ０Ｅ”
  163. ＤＡＴＡ　９５，”６００６３０００ＡＡ５５ＡＡ００”
  164. ＤＡＴＡ　９６，”ＤＢ１８１８１８９Ａ１Ｄ９Ａ１８”
  165. ＤＡＴＡ　９８，”４３８５４９８９４Ｆ８８０Ｃ０Ｂ”
  166. ＤＡＴＡ　９９，”ＦＣＦＡＦ９Ｆ９０Ｆ０１０３ＦＤ”
  167. ＤＡＴＡ　９Ａ，”０Ｂ０Ｂ０Ｂ０Ｃ０８８Ｅ４Ｆ８７”
  168. ＤＡＴＡ　９Ｂ，”ＦＤＦＤＦＤ０３０１０７ＦＦＦＥ”
  169. ＤＡＴＡ　９Ｃ，”４１８９４Ｆ８Ｆ４Ｅ８８０Ｅ０Ｂ”
  170. ＤＡＴＡ　９Ｄ，”Ｆ８Ｆ９ＦＦＦＦ０７０１０３ＦＤ”
  171. ＤＡＴＡ　９Ｅ，”０Ｂ０Ｂ０Ｂ０Ｅ０Ｃ０Ｅ４Ｆ８７”
  172. ＤＡＴＡ　９Ｆ，”ＦＤＦＤＦＤ０３０１０７ＦＦＦＥ”
  173. ＤＡＴＡ　ＦＢ，”４４００００００００００００２２”
  174. ＤＡＴＡ　ＦＣ，”４４８８１１２２４４８８１１２２”
  175. ＤＡＴＡ　ＦＤ，”６６３３９９ＣＣ６６３３９９ＣＣ”
  176. ＤＡＴＡ　ＦＦ，”５５ＡＡ５５ＡＡ５５ＡＡ５５ＡＡ”
  177. ＤＡＴＡ　−１

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

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

  • 名無しさん : ＱＲ化できませんか?_ (2012/04/02 (月) 12:36:52)
  • お願いします : QRコードにしてください (2012/04/02 (月) 21:27:31)
  • 名無しさん : おう、短い！ (2012/04/03 (火) 03:06:40)
  • 名無し : QR版の最終行”DATA-1"の”-1"抜けてますので注意 (2012/04/03 (火) 13:02:11)
  • バター : QRコードありがとうございます (2012/04/04 (水) 09:08:08)
  • わぁぃ@ : 頑張れば電車と接触できる。 (2012/04/04 (水) 11:14:39)
  • 名無しさん : タグQRコードを追加しておきました。 (2012/04/04 (水) 11:23:36)
  • くぉ : たまになるザザザザザって音はなんですか？ (2012/04/07 (土) 17:13:11)
  • 名無しさん : ↑電車の通る音じゃないでしょうか？ (2012/04/07 (土) 17:33:56)
  • くぉ : ホントだ！！！凝ってるなぁ (2012/04/07 (土) 18:11:43)
  • 名無しさん : １３３行目　エラー出る　OUT　OF　DATA (2012/04/09 (月) 15:17:12)
  • 名無しさん : 訂正　１４０行目 (2012/04/09 (月) 15:17:52)
  • プチコンまとめWiki管理人 : QRをエラーが出ないものに差し替えました。 (2012/04/10 (火) 09:29:34)
  • ウイング : 車にぶつかると自分の車がｗｗｗｗ (2012/04/20 (金) 20:13:49)
  • 名無しさん : 初代の方がいい (2012/06/17 (日) 22:39:45)
  • 名無しさん : 自分の車だけ色を変えてわかりやすくしてみては? (2012/06/19 (火) 16:49:07)
  • tokei : score と high の後ろに;　がｗ　（ｑｒ） (2012/06/20 (水) 16:45:38)
  • 名無しさん : ；ha (2012/06/20 (水) 22:51:53)
  • 名無しさん : ；はオリジナル通りのはず。 (2012/06/20 (水) 22:52:08)
  • Jason : 印象的！あなたはテキストのみを使用するの か？ (2012/07/23 (月) 01:16:30)
  • america : I love japanese people (2012/09/04 (火) 14:24:11)
  • 名無しさん : ↑なぜですか？ (2012/09/04 (火) 16:31:12)
  • 下手な人 : ｈａｔｅｎａさん、管理人さん。QRコードの件ありがとうございます（遅ればせながら御礼申し上げます）。 (2012/09/29 (土) 17:09:32)
  • 下手な人 : Jasonさん。私が公開している作品はテキストのみ使用したものが多いですが、BGやスプライトを用いた作品も作っています。 (2012/09/29 (土) 17:11:28)
  • flipnoteruler : my dsi is not taking the qr code (2012/11/19 (月) 00:50:44)
  • ガス : 結構いいな。友達とハイスコアきそえるよな (2013/06/01 (土) 20:32:16)
  • english pls : To all who can't scan the QR's: click one of them, download the file and then zoom it with the windows picture viewer, scan... Profit! (2014/12/05 (金) 08:42:20)

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