make
/
b23_src


			
				
					
						
						
							123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269
							--[[
  GM 系统:
    系统使用说明, \asset\design\GM.md 文本说明
]]
local skynet = require "skynet"
local codecache = require "skynet.codecache"
require "skynet.manager"
local logger = require "logger"
local stringify = require "stringify"
local cjson = require "cjson"
local common_fun = require "model.common_fun"
local module_fun = require "model.module_fun"
local asset = require "model.asset"
local util = require "util"
local usercenter

local function create_html_page(text)
    return string.format(
        "<!DOCTYPE html><html><head><meta charset='UTF-8'></head> <body>%s</body> </html>",
        string.gsub(text, "[\n]", "<br/>"))
end
  
local function response(header, content)
    header = header or {}
    if header['pokemon-version'] then
        return { content }
    else
        return create_html_page(content)
    end
end

local whitelist = {
}

local CMD = {}

function CMD.gm_check_award(args)
    if type(args) ~= "table" then
        return "失败"
    end
    local errno, list = common_fun.get_award(args[1])
    if errno ~= 0 then
        return errno
    end
    return stringify(list)
end

function CMD.gm_check_award_all(args)
    if type(args) ~= "table" then
        return false, "失败"
    end
    for k in pairs(asset.AwardConfig_proto) do
        for i = 1, 10000 do
            local errno, list = common_fun.get_award(k)
            if errno ~= 0 then
                return "配置异常:"..k
            end
            if not next(list or {}) then
                return "奖励为空:"..k
            end
            errno = module_fun.reward_check(list)
            if errno ~= 0 then
                return string.format("配置异常:%d, errno:%d", k, errno)
            end
        end
    end
    return false, "成功"
end

function CMD.gm_draw(args)
    local function draw(data, conf_list, num, special_list)
        local award_list = {}
        local id_list = {}
        local times = num
        data.all = data.all or 0
        data.daily = data.daily or 0
        data.list = data.list or {}

        while(times > 0) do
            local awardid = 0
            local awardtimes = 0
            data.all = data.all + 1
            data.daily = data.daily + 1
            -- 先随特殊库, 看下特殊库的必出是否达成
            for _, conf in ipairs(special_list or {}) do
                if conf.must > 0 then
                    local id = conf.ID
                    local list = data.list
                    if not data.list[id] then
                        list[id] = {
                            score = 0,
                            times = 0
                        }
                    end
                    local cur_score = data.all - list[id].score
                    if cur_score >= conf.must then
                        list[id].score = data.all
                        list[id].times = list[id].times + 1
                        awardid = conf.points
                        awardtimes = list[id].times
                        break
                    end
                end
            end
    
            if awardid == 0 then
                for _, conf in ipairs(conf_list) do
                    local id = conf.ID
                    local list = data.list
                    if not list[id] then
                        list[id] = {
                            score = 0,
                            times = 0
                        }
                    end
                    local cur_score = data.all - list[id].score
                    if awardid == 0 and conf.must > 0 and cur_score >= conf.must then
                        list[id].score = data.all
                        list[id].times = list[id].times + 1
                        awardid = conf.points
                        awardtimes = list[id].times
                        break
                    end
    
                    if awardid == 0 and cur_score >= conf.enter then
                        local score = (cur_score - conf.enter)
                        local all = conf.luckya*score^conf.luckyn+conf.luckyb*score+conf.chance
                        local randnum = util.rand(1, MAXRAND)
                        if all >= randnum then
                            list[id].score = data.all
                            list[id].times = list[id].times + 1
                            awardid = conf.points
                            awardtimes = list[id].times
                            break
                        end
                    end
                end
            end
    
            if awardid == 0 then
                local conf = conf_list[#conf_list]
                local id = conf.ID
                local list = data.list
                list[id].score = 0
                list[id].times = list[id].times + 1
                awardid = conf_list[#conf_list].points
                awardtimes = list[id].times
            end
            id_list[awardid] = (id_list[awardid] or 0) + 1
            local ok, temp = common_fun.get_award(awardid, "CallawardConfig_proto", awardtimes)
            if ok then
                award_list = common_fun.merge2list(award_list, temp)
            else
                break
            end
            times = times - 1
        end
        if times ~= 0 then
            return {}
        end
        return award_list, id_list
    end
    local num = tonumber(args[2] or 1000)
    local draw_type = tonumber(args[1] or 1)
    if num < 1 then
        return "次数异常"
    end

    local conf_list = {}
    local special_list = {}
    local draw_name = ""
    if draw_type == 1 then
        draw_name = "高级英雄召唤"
        local data_conf = asset.DataConfig_proto[20]
        local special_conf = asset.HeroescallConfig_proto[data_conf.data2]
        if special_conf then
            table.insert(special_list, special_conf)
        end
    
        for _, v in pairs(asset.HeroescallConfig_proto) do
            if v.type == 1 then
                table.insert(conf_list, v)
            end
        end
    elseif draw_type == 2 then
        draw_name = "普通英雄召唤"
        local data_conf = asset.DataConfig_proto[20]
        local special_conf = asset.HeroescallConfig_proto[data_conf.data1]
        if special_conf then
            table.insert(special_list, special_conf)
        end

        for _, v in pairs(asset.HeroescallConfig_proto) do
            if v.type == 2 then
                table.insert(conf_list, v)
            end
        end

    elseif draw_type == 3 then
        draw_name = "装备锻造"
        local data_conf = asset.DataConfig_proto[20]
        local special_conf = asset.HeroescallConfig_proto[data_conf.data3]
        if special_conf then
            table.insert(special_list, special_conf)
        end
    
        special_conf = asset.HeroescallConfig_proto[data_conf.data4]
        if special_conf then
            table.insert(special_list, special_conf)
        end
    
        for _, v in pairs(asset.HeroescallConfig_proto) do
            if v.type == 3 then
                table.insert(conf_list, v)
            end
        end
    else 
        return "类型异常"
    end
    table.sort(conf_list, function(a, b) 
        if a.priority > b.priority then
            return true
        end
        return false
    end)
    local _, show = draw({}, conf_list, num, special_list)
    local str = string.format("====%s====,  %d次:\n\n\t", draw_name, num)
    return str..stringify(show or {})
end

function CMD.show_avglist(args)
    local itemavg = skynet.localname(".itemavg")
    return skynet.call(itemavg, "lua", "show", args and args[1])
end

function CMD.show_statistics(args)
    local statistics = skynet.localname(".statistics")
    return skynet.call(statistics, "lua", "get_statistics_data", args and args[1])
end

--[[
example:
  参数说明:
  http://192.168.108.19:9002/gm_test?user=yytx&pwd=lee@YY-Games.520&context={"uid":"00-xx","func":"gm_item","args":[1,2,3,4]}
]]
local function gm_test(args, ipaddr, header)
    logger.warn("处理来自主机 %s 的 gm_test 请求,:%s", ipaddr,args.context)
    usercenter = usercenter or skynet.localname(".usercenter")
    local context = cjson.decode(args.context)
    if not context.uid then
        local f = CMD[context.func]
        local info = "成功"
        if not f then
            info =  "没有该函数"
        else
            info = f(context.args)
        end
        if(context.func =="gm_draw") then
            return create_html_page(info)
        end
        return {stats = 400, msg = info}
    else
        local errno, msg = skynet.call(usercenter, "lua", "gm_command",
            context.uid, context.func, context.args
        )
        return {stats = errno, msg = msg}
    end
end
return gm_test