-- 判断成功率:如果成功返回false
--- 根据成功率和比例判断是否命中
---@param suc_rate number 成功率
---@param ratio number 比例，默认为100
---@return boolean 是否命中
function FProbabilityHit(suc_rate, ratio)
    ratio = ratio or 100
    local rate = math.random(1, ratio)
    return rate > suc_rate
end

-- 检查一个对象的范围
--- 检查目标是否在指定范围内
---@param x number 目标的x坐标
---@param y number 目标的y坐标
---@param range number 检查的范围
---@param obj table 目标对象
---@return boolean 是否在范围内
function UCheckRange(x, y, range, obj)
    local min_x, max_x = x - range, x + range
    local min_y, max_y = y - range, y + range
    local cur_x, cur_y = getbaseinfo(obj, ConstCfg.gbase.x), getbaseinfo(obj, ConstCfg.gbase.y)

    if (cur_x >= min_x) and (cur_x <= max_x) and (cur_y >= min_y) and (cur_y <= max_y) then
        return true
    end

    return false
end

-- 检查自己与npc的距离
--- 检查角色与NPC之间的距离是否在指定范围内
---@param actor table 角色对象
---@param moduleid number 模块ID
---@param npcidx number NPC索引
---@param range number 距离范围（默认为10）
---@return boolean 是否在指定范围内
function UCheckNPCRange(actor, moduleid, npcidx, range)
    range = range or 10
    local npcobj = getnpcbyindex(npcidx)
    local npc_mapid = getbaseinfo(npcobj, ConstCfg.gbase.mapid)
    local my_mapid = getbaseinfo(actor, ConstCfg.gbase.mapid)
    if npc_mapid ~= my_mapid then
        return false
    end

    local npc_x = getbaseinfo(npcobj, ConstCfg.gbase.x)
    local npc_y = getbaseinfo(npcobj, ConstCfg.gbase.y)
    return UCheckRange(npc_x, npc_y, range, actor)
end

-- 回城
local base_map, base_x, base_y = "第一大陆", 119, 129
--- 返回指定角色到基准区域
---@param actor table 角色对象
function FBackZone(actor) mapmove(actor, base_map, math.random(base_x - 9, base_x + 9), math.random(base_y - 9, base_y + 9)) end

-- 飞地图固定随机点
--- FMapMove函数用于将角色移动到指定地图的指定坐标位置。
---@param actor any 角色对象
---@param mapid string|number 地图ID或地图名称
---@param x number x坐标
---@param y number y坐标
---@param x_ran number (可选) x坐标随机范围
---@param y_ran number (可选) y坐标随机范围
function FMapMove(actor, mapid, x, y, x_ran, y_ran)
    if type(mapid) ~= "string" then
        mapid = mapid .. ""
    end
    if x and y then
        if x_ran then
            x = math.random(x - x_ran, x + x_ran)
        end
        if y_ran then
            y = math.random(y - y_ran, y + y_ran)
        end
        mapmove(actor, mapid, x, y)
    else
        map(actor, mapid)
    end
end

-- 发送公告
---@param actor any 角色对象
---@param noticeid number 通知ID
---@param t table 附加参数表
---@vararg any 可变参数
local type1str = '{"Msg":"%s","Type":1}'
local type4str = '{"Msg":"%s","Type":5}'
function FSendNotice(actor, noticeid, t, ...)
    local cfg = cfg_announce[noticeid]
    if not cfg then
        return
    end
    local str = cfg.Announce
    if t then
        if t.name and actor then
            local name = getbaseinfo(actor, ConstCfg.gbase.name)
            str = string.gsub(str, "%%name", name)
        end

        if t.createname and actor then
            local createname = getbaseinfo(actor, ConstCfg.gbase.name)
            str = string.gsub(str, "%%CreatName", createname)
        end

        if t.targetname then
            str = string.gsub(str, "%%Name", t.targetname)
        end

        if t.map and actor then
            local mapname = getbaseinfo(actor, ConstCfg.gbase.mapid)
            str = string.gsub(str, "%%Map", mapname)
        end

        if t.item then
            str = string.gsub(str, "%%Item", t.item)
        end

        if t.itemid then
            str = string.gsub(str, "%%ItemId", t.itemid)
        end

        if t.x and actor then
            local x = getbaseinfo(actor, ConstCfg.gbase.x)
            str = string.gsub(str, "%%X", x)
        end

        if t.y and actor then
            local y = getbaseinfo(actor, ConstCfg.gbase.y)
            str = string.gsub(str, "%%Y", y)
        end
        if t.day then
            str = string.gsub(str, "%%day", t.day)
        end
        if t.level then
            str = string.gsub(str, "%%level", t.level)
        end

        if t.vip then
            str = string.gsub(str, "%%vip", t.vip)
        end
        if t.hitername and actor then
            str = string.gsub(str, "%%hitername", t.hitername)
        end
    end
    local str = string.format(str, ...)
    -- cfg.Region==1:全服 cfg.Region==2:当前地图
    for _, type in ipairs(cfg.Type) do
        local region
        if type == 1 then -- 聊天栏
            local str = string.format(type1str, str)
            if cfg.Region == 1 then
                region = 2
            elseif cfg.Region == 2 then
                region = 4
            end
            sendmsg(actor, region, str)
        elseif type == 2 then -- 聊天上方
            if cfg.Region == 1 then
                region = 0
            elseif cfg.Region == 2 then
                region = 3
            end
            sendtopchatboardmsg(actor, region, 0, 0, 2, str, 1)
        elseif type == 3 then -- 人物头顶
            if cfg.Region == 1 then
                region = 1
            elseif cfg.Region == 2 then
                region = 3
            end
            sendmsgnew(actor, 0, 0, str, region, 3)
        elseif type == 4 then -- 屏幕顶部
            local str = string.format(type4str, str)
            if cfg.Region == 1 then
                region = 2
            elseif cfg.Region == 2 then
                region = 4
            end
            sendmsg(actor, region, str)
        end
    end
end

-- 发送邮件
---@param sender string 发送者
---@param id number 邮件ID
---@vararg any 邮件内容参数
function FSendmail(sender, id, ...)
    local cfg = cfg_mail[id]
    if not cfg then
        return
    end

    -- 邮件内容
    local content
    if cfg.content then
        if cfg.parameter then
            content = string.format(cfg.content, ...)
        else
            content = cfg.content
        end
    end

    -- 邮件物品
    local stritem
    if cfg.items then
        if type(cfg.items) == "table" then
            local items
            for _, item in ipairs(cfg.items) do
                if type(item) == "table" then
                    items = items or {}
                    if item[3] == 1 then
                        item[3] = ConstCfg.binding
                    end
                    table.insert(items, table.concat(item, "#"))
                else
                    stritem = table.concat(cfg.items, "&")
                    break
                end
            end

            if items then
                stritem = table.concat(items, "&")
            end
        else
            stritem = cfg.items .. "#1"
        end
    end
    -- 发送
    sendmail(sender, 1, cfg.title, content, stritem)
end

-- 发送邮件2
--- 发送邮件函数
---@param name string 邮件接收者的名字
---@param id number 邮件的ID
---@param reward table|string 邮件的奖励，可以是一个物品表或者一个字符串
---@vararg any 邮件内容的参数
function _Fsendmail(name, id, reward, ...)
    local cfg = cfg_mail[id]
    if not cfg then
        return
    end
    -- 邮件内容
    local content
    if cfg.content then
        if cfg.parameter then
            content = string.format(cfg.content, ...)
        else
            content = cfg.content
        end
    end
    local stritem
    -- 邮件物品
    if reward then
        if type(reward) == "table" then
            local items
            for _, item in ipairs(reward) do
                if type(item) == "table" then
                    items = items or {}
                    if item[3] == 1 then
                        item[3] = ConstCfg.binding
                    end
                    table.insert(items, table.concat(item, "#"))
                else
                    stritem = table.concat(reward, "&")
                    break
                end
            end

            if items then
                stritem = table.concat(items, "&")
            end
        else
            stritem = reward .. "#1"
        end
    end
    sendmail("#" .. name, 1, cfg.title, content, stritem)
end

function clone(object)
    local lookup_table = {}
    local function _copy(object)
        if type(object) ~= "table" then
            return object
        elseif lookup_table[object] then
            return lookup_table[object]
        end
        local new_table = {}
        lookup_table[object] = new_table
        for index, value in pairs(object) do
            new_table[_copy(index)] = _copy(value)
        end
        return setmetatable(new_table, getmetatable(object))
    end
    return _copy(object)
end

function getRanomByWeight(t, weights)
    local sum = 0
    for i = 1, #weights do
        sum = sum + weights[i]
    end
    local compareWeight = math.random(1, sum)
    local weightIndex = 1
    while sum > 0 do
        sum = sum - weights[weightIndex]
        if sum < compareWeight then
            return t[weightIndex]
        end
        weightIndex = weightIndex + 1
    end
    return weightIndex
end

-- 秒转时分秒  100 = 00:01:40
--- 将秒数转换为时分秒格式的字符串
---@param sec number 要转换的秒数
---@return string 转换后的时分秒格式字符串
function ssrSecToHMS(sec)
    sec = sec or 0

    local h, m, s = 0, 0, 0
    if sec > 3600 then
        h = math.floor(sec / 3600)
    end
    sec = sec % 3600
    if sec > 60 then
        m = math.floor(sec / 60)
    end
    s = sec % 60

    return string.format("%02d:%02d:%02d", h, m, s)
end

-- 时间转换
--- 获取今天指定时间的时间戳
---@param hour number 时
---@param min number 分
---@param sec number 秒
---@return number 时间戳
function getTodayTimeStamp(hour, min, sec)
    local cDateCurrectTime = os.date("*t")
    local cDateTodayTime = os.time({
        year = cDateCurrectTime.year,
        month = cDateCurrectTime.month,
        day = cDateCurrectTime.day,
        hour = hour,
        min = min,
        sec = sec
    })
    return cDateTodayTime
end