【Lua实战】钓鱼玩法实现：鱼群刷新的稀有鱼概率与拉杆判定

function castRod(actor)
    local player = class(actor)
    local dur = tonumber(getplayvar(actor, 2, "ROD_DUR") or "0")
    if dur <= 0 then
        sendmsg(actor, 0, "鱼竿耐久耗尽，杂货店有售8000金币")
        return
    end
    setplayvar(actor, "HUMAN", "ROD_DUR", dur - 1, 1)
    setontimer(actor, 55, math.random(3, 8), 1)
end
function ontimer55(actor)
    local r = math.random(1, 1000)
    local fish = "鲫鱼"
    if r <= 15 then
        fish = "深海鲛人珠"
        sendcentermsg(class(actor):GetName() .. " 钓到了稀有鱼获！")
    elseif r <= 150 then
        fish = "黄金鲤鱼"
    end
    giveitem(actor, fish, 1)
end

local biteAt = {}
function onBite(actor)
    biteAt[class(actor):GetName()] = os.clock()
end
function pullRod(actor)
    local t = biteAt[class(actor):GetName()]
    if t == nil then return end
    if (os.clock() - t) <= 0.8 then
        giveitem(actor, "鲫鱼", 2)
        sendmsg(actor, 0, "完美拉杆！渔获翻倍")
    else
        sendmsg(actor, 0, "鱼儿溜走了")
    end
    biteAt[class(actor):GetName()] = nil
end