纸鸢寄语：放飞纸鸢的单次回信

local FLY_FEE = 500
local function flyKite(actor, words)
    if #words > 20 then
        sendmsg(actor, 1, "寄语限 20 字")
        return
    end
    if getplayvar(actor, "GOLD") < FLY_FEE then
        sendmsg(actor, 1, "放飞需 " .. FLY_FEE .. " 金币")
        return
    end
    setplayvar(actor, "GOLD",
        getplayvar(actor, "GOLD") - FLY_FEE)
    sendcentermsg(0, getplayvar(actor, "NAME")
        .. " 的纸鸢已放飞，拾到可回信")
end

local function pickKite(actor, owner, words)
    sendmsg(actor, 1, "拾到纸鸢：" .. words)
    sendmsg(getplayerbyname(owner), 1,
        getplayvar(actor, "NAME") .. " 拾到了其所写纸鸢")
end