帮会镖客：押运镖队的镖客护送

local ESCORT_FEE = 200
local function hireEscort(actor, escortName)
    local p = getplayerbyname(escortName)
    if p == nil then
        sendmsg(actor, 1, "镖客不在线")
        return
    end
    if (getplayvar(actor, "GOLD") or 0) < ESCORT_FEE then
        sendmsg(actor, 1, "护送费需 " .. ESCORT_FEE)
        return
    end
    setplayvar(actor, "GOLD",
        getplayvar(actor, "GOLD") - ESCORT_FEE)
    setplayvar(p, "escortPay",
        (getplayvar(p, "escortPay") or 0) + ESCORT_FEE)
    sendmsg(actor, 1, "已雇佣镖客 " .. escortName)
end

local function settleEscort(escortName)
    local p = getplayerbyname(escortName)
    local pay = getplayvar(p, "escortPay") or 0
    if pay > 0 then
        giveitem(p, 9021, pay)
        setplayvar(p, "escortPay", 0)
        sendmsg(p, 1, "护送佣金 " .. pay .. " 金已到账")
    end
end