为什么要做一个 MUD

• 整个虚拟的游戏世界，都运行在服务器上，客户端仅仅是提供玩家对服务器世界的输入、输出功能而已
• 服务器的内存中，保存着整个虚拟世界的信息，包括场景、角色、物品、战斗等等，随着服务器程序的运行，这个虚拟世界也在产生昼夜和四季的变换
• 玩家通过输入文字命令，去操作自己在虚拟世界中的角色；服务器也通过文字，把世界中的各种信息输出给玩家。不同的玩家可以在同一个服务器世界中相遇、相交。甚至游戏的开发者，我们称为“巫师”，也是直接进入这个世界后，进行程序开发，就如同在飞行的飞机上改造飞机。

1. 对于失明人士来说，这种游戏几乎是他们唯一可以玩的电子游戏
2. 作为 MMORPG 这种类型来说，MUD 的服务器端技术是这类游戏技术的起源，具有很大的学习价值
3. 在 ChatGPT 这类自然语言 AI 流行的今天，这类文字游戏可以利用最新的 AI 技术，发挥出超强的生命力

神说：要有光

1. 首先，要有一门编程语言。这门语言不但构造这个世界，而且还需要能在这个世界中运行，同时用来表达这个世界的信息。
2. 其次，这个运行在电脑内存中的世界，需要和处于“外界”的玩家联系，这种联系需要两个方面功能：玩家进行联系、能保存玩家的状态

世界的结构

1. 游戏世界的时间主线：程序入口和主循环，定时器功能
2. 游戏世界和玩家的接口：网络服务器，解析命令数据包
3. 游戏世界给玩家的存档：文件存储以及数据序列化、反序列化了
4. 游戏世界中所有的“对象”模型（Lua 没有官方的“对象模板”形式的“类”，因此对象的继承能力需要自己实现）

MudOS/main.lua

--- Timer System
HeartOfWorld = {
  rate = 1,     -- beat times per second
  members = {}, -- all hearts in here
  last_beat_time = 0
}

function HeartOfWorld:Add(heart)
   ......
end

function HeartOfWorld:Del(heart_or_idx)
  ......
end

function HeartOfWorld:Tick()
  ......
      -- Make hearts beating
    for idx, obj in pairs(self.members) do
      if obj.HeartBeat ~= nil and type(obj.HeartBeat) == 'function' then
        obj:HeartBeat(now)
      end
    end
  ......
end

接纳玩家

1. 监听网络，记录在线的玩家
2. 处理用户输入和给于输出

--- A TCP server can be set a recieving handler.
TcpServer = {
  num2client = {}, -- 通过玩家 ID 找到客户端对象的索引表
  client2num = {}, -- 通过客户端对象找到玩家 ID 的索引表
  clients = {},    -- 客户端列表
  conn_count = 0   -- 当前连接总数
}

function TcpServer.Start(self, bind_addr, handler)
  ......

  -- 游戏主循环 --
  while true do
    -- Processing network events
    ......

    -- Processing heartbeat timer
    HeartOfWorld:Tick()
  end
end

function TcpServer.SendTo(self, client_id, message, no_ret)
  ......
end

function TcpServer.CloseClient(self, client_id)
  ......
end

...
  print("Starting TCP server ...")
  TcpServer:Start({}, handler)
...

-- Sessions pool --
SessionPool = {}
...
--- A command system which you can set a command to it.
CommandSystem = {
  cmd_tab = {}, -- 存放所有命令的容器

  ......

  ProcessCommand = function(self, user_id, command_line)
    .......
    -- 命令行方式解析输入的文字
    string.gsub(command_line, "[^ ]+", function(w) table.insert(cmds, w) end)
    ......
    local cmd_fun = self.cmd_tab[cmd] -- 查找命令
    ......
    THIS_PLAYER = SessionPool[user_id] -- Shotcut: this_player
    ......
      local ret = cmd_fun(cmds)  -- 运行命令
      Reply(PROMPT, true)
      return ret
    ......
  end
}

响彻天际

--- Broadcast system
Channel = {
  members = {}
}

......

function Channel:Join(user_id, member)
...
end

function Channel:Leave(user_id)
...
end

function Channel:Say(message, ...)
  for user_id, member in pairs(self.members) do
    local ignore = false
    for i, sender in ipairs { ... } do
      if member == sender then
        ignore = true
      end
    end

    if ignore == false then
      TcpServer:SendTo(user_id, message)
    end
  end
end

保存玩家数据

--- Save/Load user data
require("MudOS/serialize")
local md5 = require("MudOS/md5")
......

UserData = {
  user_name = nil,
  pass_token = nil,

  .......

  Load = function(user_name, password)
    ......
  end,

  Save = function(self)
    .......
    local save_obj_name = 'player_' .. self.user_name
    io.output(save_file)
    save(save_obj_name, self)
    io.close(save_file)
    return true
  end,

  .......
}

盘古开天地

-- Load GameLib level code
print("Start to load GameLib ...")
require("MudLib/index")

-- Start up network procedule
...
  print("Starting TCP server ...")
  TcpServer:Start({}, handler)
...

...
print("正在构建空间系统 ...")
require("MudLib/space")

print("正在构建房间系统 ...")
require("MudLib/room")
require("MudLib/map")

print("正在构建角色系统 ...")
require("MudLib/char")

-- TODO 构建“道具系统”

print("正在构建战斗系统 ...")
require("MudLib/combat")

print("正在构建命令系统 ...")
dofile(MUD_LIB_PATH .. "cmds.lua")
...

空间

MudLib/space.lua

---代表一个物理空间物体
--@param environment 所处环境
--@param content 内容
SpaceObject = {
  environment = nil, 
  content = {}, 

  New = function(self, value)
    ...
  end,

  --查找本身包含的内容物
  --@param #table key 内容物的属性名,如果是nil则对比整个内容物体
  --@param #table value 要查找的属性值或者内容物本身
  --@param #function fun是找到后的处理函数，形式fun(pos, con_obj)
  --@return #table 返回fun()的返回值（仅限第一个返回值）数值，或者是找到的对象数组
  Search = function(self, key, value, fun)
    ...
  end,

  Leave = function(self)
    ...
  end,

  Put = function(self, env)
    ...
  end,

  Dispose = function(self)
    ...
  end
}

World = SpaceObject:New()  -- 所有物理空间存放的位置
World.channel = Channel:New() -- 构建一个世界频道

MudLib/room.lua

Room = {
  title = "虚空",
  desc = "这里一片白茫茫",
  exits = {}, --east="xxx", west="yyy", ...
  channel = World.channel
}

function Room:New(value)
  local ret = NewInstance(self, value, SpaceObject)
  ret:Put(World)
  ret.channel =  Channel:New()
  return ret
end

function Room:ToStr()
  local output = [[
--%s--  
%s
这里的出口：
%s
这里有：
%s]]

  ...
  
  return string.format(output, self.title, self.desc, exits_str, content_str)
end

1. 这个场景是什么样子的，通过 ToStr() 实现
2. 这个场景和其他什么地方连通，以便角色可以移动，通过 exits 属性实现。这个属性是个 Table，key 是出口方向，value 是连接的场景
3. 这个场景的广播频道，用于让本场景内的信息可以发送给玩家，通过 channel 实现

MudLib/map.lua

BornPoint = Room:New({
  title = "出生点",
  desc = "这里是一片空地，周围站着很多刚注册的新手玩家。",
  exits = {
    east = "NewbiePlaza",
    west = "SmallRoad"
  }
})

NewbiePlaza = Room:New({
  title = "新手广场",
  desc = "光秃秃的黄土地上，有几棵小树。",
  exits = {
    west = "BornPoint"
  }
})

SmallRoad = Room:New({
  title = "小路",
  desc = "这条小路荒草蔓延。似乎是通往外界的唯一道路。",
  exits = {
    east = "BornPoint"
  }
})

角色

1. NPC
2. Player

• 新建/消失
• 说话。调用当前场景的 channel 进行广播。
• 移动。进入当前场景，并且会广播进入的动作。
• 描述。当角色被观察时，把角色的描述、状态进行返回。固定描述用 Desc() 返回。
• 心跳。这是最重要的方法，所有角色存在的“状态”，都需要在这个方法中描述。这里实现了最基本的“战斗状态”：只要发现了被标记为“敌人”的角色，就调用“战斗系统”发起攻击。 对于 Player 类型，除了上述的内容以外，还有自己的存档对象 user_data，以及专门给玩家单人发送信息的方法 Reply()。

MudLib/char.lua

行为

• 登录
• 注册
• 登出
• 移动
• 观察
• 说话

• hp 状态查看
• kill 触发战斗
• skill 使用技能

CommandList.kill = function(cmds)
  local target = nil
  local target_id = cmds[2] -- cmds[1]是指令本身，cmds[2]才是参数
  if target_id == nil then
    Reply("你怒气冲冲的瞪着空气，不知道要攻击谁。")
    return
  else
    if target_id == THIS_PLAYER.id then
      Reply("你狠狠用左脚踢了一下自己的右脚，发现这个行为很傻，于是就停止了。")
      return
    end
    local targets = THIS_PLAYER.environment:Search('id', target_id)
    if #targets == 0 then
      Reply(string.format("没有%s这个东西", target_id))
      return
    elseif targets[1].hp ~= nil and targets[1].hp > 0 then
      target = targets[1]
    else
      Reply("你不能攻击一个死物。")
      return
    end
  end

  if target ~= nil then
    table.insert(THIS_PLAYER.fright_list, target)
    Reply(string.format("你对着%s大喝一声：“納命来！”", target.name))

    --反击
    table.insert(target.fright_list, THIS_PLAYER)
    Reply(string.format("%s对你一瞪眼，一跺脚，狠狠道：“竟敢在太岁头上动土？”", target.name))
    if target.user_id ~= nil then
      target:Reply(string.format("%s向你发起了攻击！", THIS_PLAYER.name))
    end
  end
end

MudLib/combat.lua

if a_skill ~= nil then
    -- 有招攻无招
    if d_skill == nil then
      damage = double_power
    else
      --这种复杂判断其实应该用哈系表查询，但是if写法更容易表达内在含义
      --tiger>monkey>crane>tiger
      if a_skill == d_skill then
        damage = normal_power
      elseif a_skill == "tiger" then
        if d_skill == "monkey" then
          damage = double_power
        elseif d_skill == "crane" then
          damage = lease_power
        end
      elseif a_skill == "monkey" then
        if d_skill == "tiger" then
          damage = lease_power
        elseif d_skill == "crane" then
          damage = double_power
        end
      elseif a_skill == "crane" then
        if d_skill == "monkey" then
          damage = lease_power
        elseif d_skill == "tiger" then
          damage = double_power
        end
      end

    end
  end

最后

1. 通过 map.lua 构造更多的地图
2. 通过 Cmd/xxx.lua 增加更多用户可以做的行为，譬如解谜玩法
3. 通过扩展 Char 类型，增加 NPC
4. 扩展 Space 类对象，让世界多一些“道具”
5. 在 combat.lua 中加入更多好玩的战斗玩法