生命游戏 RMXP版

沙漠点灰 · 发表于 2011-3-12 17:23:54

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由沙漠点灰于 2011-3-12 19:16 编辑

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

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

所以，扔一个生命游戏的RMXP版上来(话说用其他语言30几行搞定...我的不含注释估计70行)给大家分享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
end
end

复制代码

附:工程

生命游戏.rar (188.35 KB, 下载次数: 1352)

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

各种压力的猫君 · 发表于 2011-10-12 19:45:19

这……这难道不是CPU测试程序么 = = b
古董笔记本亚历山大

月下黄昏 · 发表于 2011-10-12 19:37:39

下下看看

px.凤翔九天 · 发表于 2011-3-12 17:46:51

看起来挺好玩的，期待各位搞出华丽的图案出来~
我也试着搞一搞..

lianran123456 · 发表于 2011-3-12 17:33:54

终于看懂了...
收藏起来！

双子男星 · 发表于 2011-3-12 17:33:48

提示: 作者被禁止或删除内容自动屏蔽

帐号		自动登录	找回密码
密码			注册会员

[原创发布] 生命游戏 RMXP版

加入我们，或者，欢迎回来。

贵宾