【工具链】GM 工作台：封禁、补偿与查询的整合

-- GM 工作台：查询模块
local player = class(actor)
local function queryPlayer(player, targetName)
    if getplayvar(player, "HUMAN", "GmLevel") < 1 then
        sendmsg(player, 1, 0, "权限不足。")
        return
    end
    local mate = class(targetName)
    local info = "等级 " .. (getbaseinfo(mate, 1) or "?") ..
        " 行会 " .. (getmyguild(mate) or "无") ..
        " 在线 " .. tostring(mate ~= nil)
    sendmsg(player, 1, 0, "【查询】" .. targetName .. "：" .. info)
    sendmsg(player, 1, 0, "【审计】" .. getbaseinfo(player, 3) .. " 查询了 " .. targetName)
end

-- GM 工作台：封禁与补偿
local player = class(actor)
local COMPENSATE_LIMIT = 100000
local function doCompensate(player, targetName, gold, reason)
    if gold > COMPENSATE_LIMIT then
        sendmsg(player, 1, 0, "补偿超限，已转二级审批。")
        return
    end
    giveitem(class(targetName), "金币袋", math.floor(gold / 10000))
    sendmsg(player, 1, 0, "【补偿】已发放 " .. gold .. " 金币给 " .. targetName .. "，原因：" .. reason)
    sendmsg(player, 1, 0, "【审计】操作人 " .. getbaseinfo(player, 3) .. " 时间 " .. os.date("%m-%d %H:%M"))
end