生命游戏 RMXP版

じ☆ve冰风

生命游戏(Game Of Life)是英国数学家约翰·何顿·康威在1970年发明的细胞自动机，
70年的老古董了，以前没玩个(废话，70年...),看了下"游戏规则"，个人认为很有趣——
细胞自动机（又称元胞自动机），名字虽然很深奥，但是它的行为却是非常美妙的。所有这些怎样实现的呢？我们可以把计算机中的宇宙想象成是一堆方格子构成的封闭空间，尺寸为N的空间就有N*N个格子。而每一个格子都可以看成是一个生命体，每个生命都有生和死两种状态，如果该格子生就显示兰色，死则显示白色。每一个格子旁边都有邻居格子存在，如果我们把3*3的9个格子构成的正方形看成一个基本单位的话，那么这个正方形中心的格子的邻居就是它旁边的8个格子。
　　每个格子的生死遵循下面的原则：
　　1． 如果一个细胞周围有3个细胞为生（一个细胞周围共有8个细胞），则该细胞为生（即该细胞若原先为死，则转为生，若原先为生，则保持不变） 。
　　2． 如果一个细胞周围有2个细胞为生，则该细胞的生死状态保持不变；
　　3． 在其它情况下，该细胞为死（即该细胞若原先为生，则转为死，若原先为死，则保持不变

设定图像中每个像素的初始状态后依据上述的游戏规则演绎生命的变化，由于初始状态和迭代次数不同，将会得到令人叹服的优美图案。


所以，扔一个 生命游戏的RMXP版上来(话说用其他语言30几行搞定...我的不含注释估计70行)给大家分享1下

1. #==============================================================================# ■ Scene_Game_of_Life#------------------------------------------------------------------------------# 　   生命游戏      RMXP版(可做游戏Logo)                 —— by 沙漠.灰#==============================================================================class Scene_Game_of_Life  # 常量定义  Death = Color.new(255,255,255,255) # 死亡细胞颜色  Alive = Color.new(000,000,000,255) # 存活细胞颜色  Map_X = 200                        # 地图X轴大小  Map_Y = 200                        # 地图Y轴大小  #--------------------------------------------------------------------------  # ● 主处理  #--------------------------------------------------------------------------  def main    $data_system        = load_data("Data/System.rxdata")    @sprite             = Sprite.new    @sprite.bitmap      = RPG::Cache.title($data_system.title_name)    # 执行过渡    Graphics.transition    # 生成所谓的"地图"    @map = Sprite.new    @map.x = (640-Map_X)/2    @map.y = (480-Map_Y)/2    @map.bitmap = Bitmap.new(Map_X,Map_Y)    # 初始化游戏地图    for y in 0...Map_Y      for x in 0...Map_X        draw_cell(x,y,rand(2))      end      Graphics.update    end    # 主循环    loop do      # 刷新画面      update      # 闪人      break if $scene != self     end    # 准备过渡    Graphics.freeze    # 释放窗口    @map.bitmap.dispose    @map.dispose    @sprite.bitmap.dispose    @sprite.dispose  end  #--------------------------------------------------------------------------  # ● 刷新画面  #--------------------------------------------------------------------------  def update    for y in 0...Map_Y      for x in 0...Map_X        # 刷新输入信息        Input.update        # 按B键闪人        if Input.trigger?(Input::B)          $scene = Scene_Title.new          return        end        # 确定刷新        ready(x,y)      end      Graphics.update    end  end  #--------------------------------------------------------------------------  # ● 确定刷新  #--------------------------------------------------------------------------  def ready(x,y)    alive_cell = 0    for new_y in -1..1      for new_x in -1..1        next if new_x + x < 0 or new_x + x >= Map_X        next if new_y + y < 0 or new_y + y >= Map_Y        next if new_x == 0 and new_y == 0        if @map.bitmap.get_pixel(new_x+x, new_y+y) == Alive          alive_cell += 1        end      end    end    return if alive_cell == 2    alive_cell == 3 ? draw_cell(x,y,1) : draw_cell(x,y,0)  end  #--------------------------------------------------------------------------  # ● 描绘细胞 0 死 1 活  #--------------------------------------------------------------------------  def draw_cell(x,y,status)    if status == 0      @map.bitmap.set_pixel(x, y, Death)    else      @map.bitmap.set_pixel(x, y, Alive)    end  endend复制代码

复制代码

附:工程



P.S 上次有个小BUG，x,y习惯了，y,x就小BUG了




             本帖来自P1论坛作者沙漠点灰，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=169677  若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。