接上章,我新建了个app做包含Table模型, TableServer等。Table桌子的代码暂时如下, 有一些状态还没用上

defmodule Table do

    @state_accept 0   #准备接入玩家
@state_ready 1 #开局准备?
defdelegate [fetch(t, key), get_and_update(t, key, list)], to: Map
defstruct [:config, :seats, :state]
def new(config) do
%Table{
config: config,
seats: %{},
state: @state_accept
}
end def is_full?(table) do
cur_count = Enum.count(table.seats)
cur_count >= table.config.allow_count
end def has_player?(table, player_id) do
table.seats[player_id]
end def check_in(table, player) do
update_in(table.seats, &(Map.put(&1, player.base_info.id, player)))
end def check_out(table, player_id) do
update_in(table.seats, &(Map.delete(&1, player_id)))
end
end

我们需要相关的配置table_config.txt

id,     allow_count,   base_gold,   need_gold,     desc
int, int, int, int, string
1, 4, 10, 480, 新手场
2, 4, 100, 4800, 中级场
3, 4, 1000, 48000, 高级场

这个txt可以由excel通过xslx2csv工具生成。然后我们利用table_config.txt 生成代码配置table_config.ex.

我们当然可以在TableConfig里经由excel文件直接生成,那样会更方便。

defmodule TableConfig do
Module.register_attribute __MODULE__, :column_names, []
Module.register_attribute __MODULE__, :column_types, []
Module.register_attribute __MODULE__, :config, []
line_with_index = File.stream!(Path.join([__DIR__, "table_config.txt"]) , [], :line)
|> Stream.with_index
for {line, index} <- line_with_index do
items = line |> String.split(",") |> Stream.map(&String.strip(&1))
case index do
0 ->
@column_names items |> Enum.map(&String.to_atom(&1))
1 ->
@column_types items
|> Stream.with_index
|> Enum.map(fn {v, i} -> {i, String.to_atom(v)} end)
|> IO.inspect
|> Enum.into(%{})
_ ->
new_items = items
|> Stream.with_index
|> Stream.map( &( TypeConverter.convert(&1, @column_types) ) )
zip = Enum.zip(@column_names, new_items)
@config Enum.into(zip, %{})
IO.inspect @config
       # 以下函数花了我点时间,最后不得不通过模块属性完成,我不知道有没有其他方法
         # 早期的版本是者这样的
# config = Enum.into(zip, %{})
# def get(unquote(config.id)) do
#   unquote(config) # 这里会报错,百思不得其解,在ErrorMsg里我是这样用的,没有问题。不知2者区别在哪
# end
def get(unquote(@config.id)) do
@config
end
end
end end

最后上点测试代码table_test.exs

defmodule TabelTest do
use ExUnit.Case
# import PipeHere
setup do
config = TableConfig.get(1)
table = Table.new(config)
{:ok, table: table}
end test "table is full ", %{table: table} do
new_table =
1..table.config.allow_count
|> Stream.map(&Player.new/1)
|> Enum.reduce(table, fn p, acc -> Table.check_in(acc, p) end)
assert new_table |> Table.is_full?
end test "table has player", %{table: table} do
p1 = Player.new(1)
p2 = Player.new(2)
new_table = Table.check_in(table, p1)
assert Table.has_player?(new_table, p1.base_info.id)
refute Table.has_player?(table, p2.base_info.id)
end test "table check_in_and_out", %{table: table} do
p1 = Player.new(1)
new_table = Table.check_in(table, p1)
check_out_table = Table.check_out(new_table, p1.base_info.id)
refute Table.has_player?(check_out_table, p1.base_info.id)
end
end

下一小节会从牌局开始吧,然后TableServer,然后让它跑起来。

Elixir游戏服设计六的更多相关文章

  1. Elixir游戏服设计五

    在<Elixir游戏服设计一>里提到,按照系统功能划分成app要保证原子性很难, 现在想想也没那么难.保证原子性,无非就是需要某个单点去完成操作.那么选择玩家进程去做原子性工作就可以了. ...

  2. Elixir游戏服设计一

    在Erlang游戏服设计总结http://www.cnblogs.com/rubyist/p/5530575.html里, 我提到我想要的游戏服设计方法,希望以应用做为基础构建块.最近我在学习elix ...

  3. 简单Elixir游戏服设计- 游戏玩法介绍

    抄以前的,做了点修改. 到目前为止,我们完成了玩家的数据和进程建模,现在介绍游戏玩法. 为什么我们还不做客户端接入.协议指定呢?为什么还没有网关和数据存储呢.在我接手的游戏, 这些通常已经定下来了,我 ...

  4. Elixir游戏服设计三

    玩家进程用gen_server来建模,我不直接使用 use GenServer, 而是使用exactor,该库可以去掉反锁的接口定义. 我们新建一个 player_server_manager app ...

  5. 简单Elixir游戏服设计-玩家进程跑起来

    有了玩家模型,我们试试让玩家进程跑起来. 需要搞个PlayerSupervisor来负责启动和监控玩家进程. defmodule PlayerSupervisor do use Supervisor ...

  6. 关于Elixir游戏服设计系列

    写着写着就废球了,感觉空对空,实在没什么意思. 另外很快就要搞新项目,决定新项目就直接上elixir了.目前该做的准备工作已经探索了一些了. 以下的东西是写给同事参考的,感兴趣的可以看看,提建议更好. ...

  7. 简单Elixir游戏服设计-玩家进程注册

    上回说用Registry 做本地注册(跨服可以用syn,只是稍微麻烦点,需要模拟global注册机制,写个封装模块). 修改game_server 项目的mix.exs, 增加应用启动 def app ...

  8. Elixir游戏服设计四

    上章说到我们要引入syn https://github.com/ostinelli/syn/ 看过文档,它并没有直接提供{via, Module, Name} 相关的方法.我们需要封装一下. Name ...

  9. Elixir游戏服设计二

    搞一个例子,而没有实际的目标,做起来真是烦人.几次三番都想放弃. 后来想想,即使最后完成不了完整的服务器,把需要的知识点搞搞,摸熟悉也是好的. 这里没有完整的项目目录,主要是对需要的指点进行整理.要完 ...

随机推荐

  1. sed修炼系列(三):sed高级应用之实现窗口滑动技术

    html { font-family: sans-serif } body { margin: 0 } article,aside,details,figcaption,figure,footer,h ...

  2. win10下移动硬盘位置不可用无法访问

    win10下移动硬盘位置不可用无法访问 网上搜索得到的答案是: 请参考以下步骤解决: 1.按Windows+R输入"CHKDSK H: /F /R"(H:是硬盘所在盘符./R 找到 ...

  3. C++学习日记(二)————初始字符串类型

    使用频率高,但操作复杂的数据有哪些? 做下总结: int; double;float;char;bool这些类型用的比较频繁,但并不复杂.但对于字符串来说(char数组)用的频繁但操作又复杂,只能用一 ...

  4. JS自定义对象以及相关成绩系统完整案例演示

    [自定义对象] 1.基本概念 ①对象是拥有一系列无无序属性和方法的集合 ②键值对:对象中的数据,用以键值对的形式存在,对象的每个属性和方法,都对应一个键值,以键取值 ③属性:描述对象特征的一系列变量称 ...

  5. [转载]Python实现浏览器自动化操作

    原文地址:Python实现浏览器自动化操作作者:rayment   最近在研究网站自动登录的问题,涉及到需要实现浏览器自动化操作,网上有不少介绍,例如使用pamie,但是只是支持IE,而且项目也较久没 ...

  6. MyEclipse安装步骤和破解

    Myeclipse的安装步骤 MyEclipse简介: MyEclipse,是在eclipse 基础上加上自己的插件开发而成的功能强大的企业级集成开发环境,主要用于Java.Java EE以及移动应用 ...

  7. 一些LVS实验配置、工具和方案

    最近做了一些LVS配置和方案的验证实验,将过程中用到的一些配置.工具和具体的解决方案记录一下.使用DR模式.验证一种不中断业务的RealServer升级或者重启方案. 网络规划: 节点 IP地址 ce ...

  8. 201521123053《Java课程设计》第十四周学习总结

    1. 本周学习总结 1.1 以你喜欢的方式(思维导图或其他)归纳总结多数据库相关内容. 知识点: 创建表的命令有若干行,如果中间某行输入错误,不能修改:可以使用记事本现将命令输入,然后复制粘贴到mys ...

  9. spring boot / cloud (十七) 快速搭建注册中心和配置中心

    spring boot / cloud (十七) 快速搭建注册中心和配置中心 本文将使用spring cloud的eureka和config server来搭建. 然后搭建的模式,有很多种,本文主要聊 ...

  10. Shiro第四篇【Shiro与Spring整合、快速入门、Shiro过滤器、登陆认证】

    Spring与Shiro整合 导入jar包 shiro-web的jar. shiro-spring的jar shiro-code的jar 快速入门 shiro也通过filter进行拦截.filter拦 ...