名片点赞：人气值累积冲上热榜

-- 错误：无去重无自赞过滤，随手狂点
function like(p, owner)
    setplayvar(owner, "pop",
        (getplayvar(owner, "pop") or 0) + 1)
end

local function like(p, owner)
    if p == owner then
        sendmsg(p, 1, "不能给自己点赞")
        return
    end
    local key = "liked_" .. os.date("%Y%m%d")
        .. "_" .. owner
    local who = getplayvar(p, key) or ""
    if ("|" .. who):find("|" .. p .. "|", 1, true) then
        sendmsg(p, 1, "今天已经赞过")
        return
    end
    setplayvar(p, key, who .. p .. "|")
    setplayvar(owner, "popularity",
        (getplayvar(owner, "popularity") or 0) + 1)
    sendmsg(p, 1, "点赞成功")
end