ライフゲーム by Odakaz

再生

　1970年生まれの生命シミュレーション、「ライフゲーム」をプチコン上で再現したのがこのプログラムだ。
　空白セル（死）に色つきセル（生）が３つ隣り合っていれば、そのセルは次の世代で色つきセルに変わる。色つきセルに２つか３つの色つきセルが隣り合っていれば、そのセルは次の世代でも色つきのまま生き残る。逆に隣り合った色つきセルが１つ以下か４つ以上ならば次の世代では空白セルに変わる。
　このルールに従って次々変わる様子を楽しもう。

私が作りました

Odakaz

初めまして。Odakazという者です。
プチコンで、定番のライフゲームを作ってみましたので、投稿させていただきます。


 CHECK POiNT 

ワンパク
チキショー、このゲーム操作ができねえじゃねえか！　シット！

博士
いやいや。たしかに「ゲーム」と付いているが、これはライフゲームと言ってな、由緒ただしい「見てるだけゲーム」なのじゃよ。こう見えてなかなか奥の深いものなのじゃぞ。

インテリ
となり合ったマスの状態によって、マスの目が消えたり増えたりするルールが決められているんだ。生命（ライフ）がルールに従って変化していくから「ライフゲーム」。生物の進化や淘汰の単純なシミュレーションという側面もあるね。

ワンパク
なんだかよくわからねえが、これ以上くわしく聞こうとするとググれと言われる気がするぜ。ガッデム！

神崎
このプログラムでは、BG面にセル（マス目）のグラフィックを定義しているんだね。

博士
高速化のための工夫じゃろうな。BGの最小単位は８×８ドットじゃから、２×２セルの全パターンをあらかじめ用意しているわけじゃ。
このプログラムはランダム配置でスタートするが、自分でセルのパターンを定義するのも面白そうじゃの。

プログラムリスト

  1. ’┌──────────────────────────┐
  2. ’│ＬＩＦＥＧＡＭＥ　２０１１／０３／０９　Ｏｄａｋａｚ│
  3. ’└──────────────────────────┘
  5. ’フ゜ロク゛ラム　ショキカ
  6. ＶＩＳＩＢＬＥ　０，１，１，０，０，０
  7. ＣＬＳ：ＧＣＬＳ：ＢＧＰＡＧＥ　０
  9. ＣＬＥＡＲ
  10. Ｗ＝５０：Ｈ＝３６：ＭＡＸ＿ＧＥＮ＝１００：ＩＮＩ＿Ｒ＝０．４
  11. ＤＩＭ　Ｗ１（Ｗ＋２，Ｈ＋２），　Ｗ２（Ｗ＋２，Ｈ＋２）
  13. ＧＯＳＵＢ　＠ＳＥＴ＿ＣＨＲ
  14. ＧＯＳＵＢ　＠ＩＮＩＴ＿ＢＧ
  16. ’メイン
  17. ＠ＭＡＩＮＬＯＯＰ
  18. 　ＧＯＳＵＢ　＠ＩＮＩＴ＿Ｗ
  20. 　ＦＯＲ　ＧＥＮ＝１　ＴＯ　ＭＡＸ＿ＧＥＮ
  21. 　　ＧＯＳＵＢ　＠ＤＲＡＷ
  22. 　　ＧＯＳＵＢ　＠ＣＡＬＣＮＥＸＴ
  23. 　ＮＥＸＴ
  25. 　ＧＯＴＯ　＠ＭＡＩＮＬＯＯＰ
  26. ＥＮＤ
  28. ’フィールト゛　ショキカ
  29. ＠ＩＮＩＴ＿Ｗ
  30. 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ＋１
  31. 　　ＦＯＲ　Ｊ＝０　ＴＯ　Ｈ＋１
  32. 　　　Ｗ１（Ｉ，Ｊ）＝０
  33. 　　　Ｗ２（Ｉ，Ｊ）＝０
  34. 　　ＮＥＸＴ
  35. 　ＮＥＸＴ
  36. 　ＦＯＲ　Ｉ＝１　ＴＯ　Ｗ＊Ｈ＊ＩＮＩ＿Ｒ
  37. 　　ＧＯＳＵＢ　＠ＰＵＴ＿ＬＩＦＥ
  38. 　ＮＥＸＴ
  39. ＲＥＴＵＲＮ
  41. ’カサナラナイヨウニ　ハイチ
  42. ＠ＰＵＴ＿ＬＩＦＥ
  43. 　Ｘ＝１＋ＲＮＤ（Ｗ）：Ｙ＝１＋ＲＮＤ（Ｈ）
  44. 　ＩＦ　Ｗ１（Ｘ，Ｙ）＝＝１　ＧＯＴＯ　＠ＰＵＴ＿ＬＩＦＥ
  45. 　Ｗ１（Ｘ，Ｙ）＝１
  46. ＲＥＴＵＲＮ
  48. ’ヒ゛ョウカ゛
  49. ＠ＤＲＡＷ
  50. 　ＦＯＲ　Ｉ＝１　ＴＯ　Ｗ－１　ＳＴＥＰ　２
  51. 　　ＦＯＲ　Ｊ＝１　ＴＯ　Ｈ－１　ＳＴＥＰ　２
  52. 　　　ＣＨＲ＿ＮＯ＝１＋Ｗ１（Ｉ，Ｊ）＊８＋Ｗ１（Ｉ＋１，Ｊ）＊４＋Ｗ１（Ｉ，Ｊ＋１）＊２＋Ｗ１（Ｉ＋１，Ｊ＋１）
  53. 　　　ＢＧＰＵＴ　０，（Ｉ－１）／２＋１，（Ｊ－１）／２＋１，ＣＨＲ＿ＮＯ，０，０，０
  54. 　　ＮＥＸＴ
  55. 　ＮＥＸＴ
  56. ＲＥＴＵＲＮ
  58. ’ツキ゛ノ　セタ゛イヲ　ケイサン
  59. ＠ＣＡＬＣＮＥＸＴ
  60. 　ＦＯＲ　Ｉ＝１　ＴＯ　Ｗ
  61. 　　ＦＯＲ　Ｊ＝１　ＴＯ　Ｈ
  62. 　　　Ｃ＝０
  63. 　　　ＦＯＲ　Ｋ＝Ｉ－１　ＴＯ　Ｉ＋１
  64. 　　　　ＦＯＲ　Ｌ＝Ｊ－１　ＴＯ　Ｊ＋１
  65. 　　　　　Ｃ＝Ｃ＋Ｗ１（Ｋ，Ｌ）
  66. 　　　　ＮＥＸＴ
  67. 　　　ＮＥＸＴ
  68. 　　　Ｃ＝Ｃ－Ｗ１（Ｉ，Ｊ）
  69. 　　　’セイシ　ハンテイ
  70. 　　　ＯＮ　Ｃ　ＧＯＳＵＢ　＠ＤＥＡＴＨ，＠ＤＥＡＴＨ，＠ＫＥＥＰ，＠ＬＩＶＥ，＠ＤＥＡＴＨ，＠ＤＥＡＴＨ，＠ＤＥＡＴＨ，＠ＤＥＡＴＨ，＠ＤＥＡＴＨ
  71. 　　ＮＥＸＴ
  72. 　ＮＥＸＴ
  73. 　ＧＯＳＵＢ　＠ＦＬＩＰ
  74. ＲＥＴＵＲＮ
  76. ’シメツ
  77. ＠ＤＥＡＴＨ
  78. 　Ｗ２（Ｉ，Ｊ）＝０
  79. ＲＥＴＵＲＮ
  81. ’タンシ゛ョウ
  82. ＠ＬＩＶＥ
  83. 　Ｗ２（Ｉ，Ｊ）＝１
  84. ＲＥＴＵＲＮ
  86. ’ソノママ
  87. ＠ＫＥＥＰ
  88. 　Ｗ２（Ｉ，Ｊ）＝Ｗ１（Ｉ，Ｊ）
  89. ＲＥＴＵＲＮ
  91. ’ツキ゛ノ　セタ゛イヲ　ハンエイ
  92. ＠ＦＬＩＰ
  93. 　ＦＯＲ　Ｉ＝０　ＴＯ　Ｗ＋１
  94. 　　ＦＯＲ　Ｊ＝０　ＴＯ　Ｈ＋１
  95. 　　　Ｗ１（Ｉ，Ｊ）＝Ｗ２（Ｉ，Ｊ）
  96. 　　ＮＥＸＴ
  97. 　ＮＥＸＴ
  98. ＲＥＴＵＲＮ
  100. ’キャラノ　セッテイ
  101. ＠ＳＥＴ＿ＣＨＲ
  102. 　ＣＯＬＳＥＴ　”ＢＧ”，０，”００００００”
  103. 　ＣＯＬＳＥＴ　”ＢＧ”，１，”９９９９９９”
  104. 　ＣＯＬＳＥＴ　”ＢＧ”，２，”ＥＥＤＤ７７”
  105. 　ＲＥＳＴＯＲＥ　＠ＣＥＬＬＣＨＲ
  106. 　ＦＯＲ　Ｉ＝１　ＴＯ　１９
  107. 　　ＲＥＡＤ　ＣＣ＄
  108. 　　ＣＨＲＳＥＴ　”ＢＧＵ０”，Ｉ，ＣＣ＄
  109. 　ＮＥＸＴ
  110. ＲＥＴＵＲＮ
  112. ’ＢＧスクリーン　ショキカ
  113. ＠ＩＮＩＴ＿ＢＧ
  114. 　ＦＯＲ　Ｘ＝０　ＴＯ　３２
  115. 　　ＦＯＲ　Ｙ＝０　ＴＯ　２３
  116. 　　　ＢＧＰＵＴ　０，Ｘ，Ｙ，０，０，０，０
  117. 　　ＮＥＸＴ
  118. 　ＮＥＸＴ
  120. 　ＦＯＲ　Ｘ＝１　ＴＯ　Ｗ／２
  121. 　　ＦＯＲ　Ｙ＝１　ＴＯ　Ｈ／２
  122. 　　　ＢＧＰＵＴ　０，Ｘ，Ｙ，１，０，０，０
  123. 　　ＮＥＸＴ
  124. 　ＮＥＸＴ
  126. 　ＦＯＲ　Ｘ＝１　ＴＯ　Ｗ／２
  127. 　　ＢＧＰＵＴ　０，Ｘ，Ｈ／２＋１，１７，０，０，０
  128. 　ＮＥＸＴ
  130. 　ＦＯＲ　Ｙ＝１　ＴＯ　Ｈ／２
  131. 　　ＢＧＰＵＴ　０，Ｗ／２＋１，Ｙ，１８，０，０，０
  132. 　ＮＥＸＴ
  134. 　ＢＧＰＵＴ　０，Ｗ／２＋１，Ｈ／２＋１，１９，０，０，０
  135. ＲＥＴＵＲＮ
  137. ’ＣＥＬＬノ　ハ゜ターン
  138. ＠ＣＥＬＬＣＨＲ
  139. ＤＡＴＡ　”１１１１１１１１１０００１０００１０００１０００１０００１０００１１１１１１１１１０００１０００１０００１０００１０００１０００”
  140. ＤＡＴＡ　”１１１１１１１１１０００１０００１０００１０００１０００１０００１１１１１１１１１０００１２２２１０００１２２２１０００１２２２”
  141. ＤＡＴＡ　”１１１１１１１１１０００１０００１０００１０００１０００１０００１１１１１１１１１２２２１０００１２２２１０００１２２２１０００”
  142. ＤＡＴＡ　”１１１１１１１１１０００１０００１０００１０００１０００１０００１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２”
  143. ＤＡＴＡ　”１１１１１１１１１０００１２２２１０００１２２２１０００１２２２１１１１１１１１１０００１０００１０００１０００１０００１０００”
  144. ＤＡＴＡ　”１１１１１１１１１０００１２２２１０００１２２２１０００１２２２１１１１１１１１１０００１２２２１０００１２２２１０００１２２２”
  145. ＤＡＴＡ　”１１１１１１１１１０００１２２２１０００１２２２１０００１２２２１１１１１１１１１２２２１０００１２２２１０００１２２２１０００”
  146. ＤＡＴＡ　”１１１１１１１１１０００１２２２１０００１２２２１０００１２２２１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２”
  147. ＤＡＴＡ　”１１１１１１１１１２２２１０００１２２２１０００１２２２１０００１１１１１１１１１０００１０００１０００１０００１０００１０００”
  148. ＤＡＴＡ　”１１１１１１１１１２２２１０００１２２２１０００１２２２１０００１１１１１１１１１０００１２２２１０００１２２２１０００１２２２”
  149. ＤＡＴＡ　”１１１１１１１１１２２２１０００１２２２１０００１２２２１０００１１１１１１１１１２２２１０００１２２２１０００１２２２１０００”
  150. ＤＡＴＡ　”１１１１１１１１１２２２１０００１２２２１０００１２２２１０００１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２”
  151. ＤＡＴＡ　”１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２１１１１１１１１１０００１０００１０００１０００１０００１０００”
  152. ＤＡＴＡ　”１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２１１１１１１１１１０００１２２２１０００１２２２１０００１２２２”
  153. ＤＡＴＡ　”１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２１１１１１１１１１２２２１０００１２２２１０００１２２２１０００”
  154. ＤＡＴＡ　”１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２１１１１１１１１１２２２１２２２１２２２１２２２１２２２１２２２”
  155. ＤＡＴＡ　”１１１１１１１１００００００００００００００００００００００００００００００００００００００００００００００００００００００００”
  156. ＤＡＴＡ　”１０００００００１０００００００１０００００００１０００００００１０００００００１０００００００１０００００００１０００００００”
  157. ＤＡＴＡ　”１０００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００００”