猜拳读心：AI 会记你上一次出什么

predict = cnt.indexOf(max)   -- 上一手之后你最常出的那一手

fx-rps

local MindRPS = {}
local BEATS = { [1] = 3, [2] = 1, [3] = 2 }   -- 1石头2剪刀3布: 我出 key 克 value

function RPS.AiPick(history)
    local power = SL:GetValue("mindPower") or 60
    if #history < 2 or math.random(100) > power then
        return math.random(3)          -- 读不动就纯随机
    end
    local last = history[#history]
    local cnt = { 0, 0, 0 }
    -- 统计: 上次出 last 之后, 玩家下一次最常出什么
    for i = 1, #history - 1 do
        if history[i] == last then
            cnt[history[i + 1]] = cnt[history[i + 1]] + 1
        end
    end
    local maxC, predict = 0, nil
    for hand = 1, 3 do
        if cnt[hand] > maxC then maxC = cnt[hand]; predict = hand end
    end
    if not predict then return math.random(3) end
    return BEATS[predict]              -- 出克制预测手的拳
end

function RPS.Judge(mine, ai)
    SL:SetValue("showMine", mine)
    SL:SetValue("showAi", ai)
    if mine == ai then
        SL:SetValue("draws", SL:GetValue("draws") + 1)
        SL:ShowSystemTips("平局")
    elseif BEATS[mine] == ai then
        SL:SetValue("wins", SL:GetValue("wins") + 1)
        SL:PlaySfx("win")
    else
        SL:SetValue("losses", SL:GetValue("losses") + 1)
        SL:PlaySfx("lose")
    end
end

return RPS