tunm 0.2.1

game server for Rust
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

-- attribd.lua
-- 负责属性相关的功能模块

-- 声明模块名
ATTRIB_D = {}
setmetatable(ATTRIB_D, {__index = _G})
local _ENV = ATTRIB_D

attrib_formula = {}
attrib_max_list     = {}

---- 定义公共接口，按照字母顺序排序

function get_max_attrib(ob_type, key)
    local attrib_max = attrib_max_list[ob_type] or {}
    return attrib_max[key]
end

-- 查询对象属性值
function query_attrib(ob, attrib)
    local ob_type = ob:query("ob_type")
    local attrib_info = attrib_formula[ob_type]
    if not attrib_info then
        -- 该属性没有配置相应的公式
        return (ob:query(attrib))
    end

    local formula = attrib_info[attrib]
    if not formula then
        -- 该对象的该属性没有配置相应的公式
        return (ob:query(attrib))
    end

    -- 调用公式取得该属性值
    return (formula(ob, attrib))
end

--执行属性增加操作
function add_attrib(ob, field, value)
    if not IS_OBJECT(ob) or value == 0  then
        return false
    end

    --增加金钱,将ob变成玩家ob
    if field == "money" then
        if not ob or ob:query("ob_type") ~= OB_TYPE_USER then
            return false
        end
    end

    local value = math.floor(value)
    local cur_value = ob:query(field)

    --不存在字段field，则初始化为0
    if not cur_value then
        cur_value = 0
    end

    local final_value = value + math.floor(cur_value)
    local attrib_max = attrib_max_list[ob:query("ob_type")] or {}

    --查看是否达到满级
    if field == "exp" and not attrib_max["lv"] then
        if attrib_max["lv"] <= ob:query("lv") then
            return false
        end
    end

    --超过上限,则取上限值
    if attrib_max[field] and final_value > attrib_max[field] then
        final_value = attrib_max[field]
    end

    ob:set(field, final_value)
    ob:notify_fields_updated(field)

    if field == "exp" then
        raise_issue(EVENT_EXP_CHANGE, ob)
    end
    return true
end

--执行属性消耗操作
function cost_attrib(ob, field, value)
    if not IS_OBJECT(ob) then
        return false
    end

    local value = math.ceil(value)
    local cur_value = ob:query(field)

    --不存在字段field，或者结果小于零, 扣除失败
    if not cur_value  or  cur_value - value < 0  or value == 0 then
        return false
    end

    local final_value = cur_value - value

    ob:set(field, final_value)
    ob:notify_fields_updated(field)

    if field == "gold" then
        -- 发起消耗金币的事件
        raise_issue(EVENT_GOLD_COST, ob, -1*value)
    elseif field == "stone" then
        -- 发起消耗钻石事件
        raise_issue(EVENT_STONE_COST, ob, -1*value)        
    elseif field == "sp" then
        -- 发起消耗钻石事件
        raise_issue(EVENT_PHY_COST, ob, -1*value)
    end

    -- if statistics_cost_log_id[field] then
    --     local owner_ob = get_owner(ob)
    --     if owner_ob then
    --         LOG_D.to_log(statistics_cost_log_id[field], get_ob_rid(owner_ob), tostring(value), tostring(final_value), "", owner_ob:query_log_channel())
    --     end
    -- end

    return true
end


-- 模块的入口执行
function create()
    local data = IMPORT_D.readcsv_to_tables("data/txt/attrib_formula.txt")

    local attrib, ob_type
    for _, info in ipairs(data) do
        attrib  = info["attrib"]
        info["ob_type"] = _G[info["ob_type"]]
        ob_type = info["ob_type"]

        if not IS_MAPPING(attrib_formula[ob_type]) then
            attrib_formula[ob_type] = {}
        end

        attrib_formula[ob_type][attrib] = _G[info["formula"]]
    end

    local max_list = IMPORT_D.readcsv_to_tables("data/txt/attrib_max.txt")
    for _, info in pairs(max_list) do
        info["ob_type"] = _G[info["ob_type"]]
        attrib_max_list[info.ob_type] = attrib_max_list[info.ob_type] or {}
        attrib_max_list[info.ob_type][info.name] = info.max
    end

end

create()