帮会信鸽：跨地图的飞鸽传书

local function releasePigeon(actor, mate, words)
    if getplayvar(actor, "GOLD") < 100 then
        sendmsg(actor, 1, "放飞需 100 金币")
        return
    end
    if #words > 50 then
        sendmsg(actor, 1, "短讯限 50 字")
        return
    end
    setplayvar(actor, "GOLD",
        getplayvar(actor, "GOLD") - 100)
    local ts = os.time()
    setplayvar(getplayerbyname(mate), "pigeon_" .. ts,
        getplayvar(actor, "NAME") .. ":" .. words)
    sendmsg(actor, 1, "信鸽已放飞，"
        .. math.random(1, 5) .. " 分钟内送达")
end

local function readPigeon(actor, ts)
    local msg = getplayvar(actor, "pigeon_" .. ts)
    sendmsg(actor, 1, "鸽信：" .. (msg or "无此信件"))
end