对对联：下联接得住才算才子

fx-couplet

local Couplet = {}
local SETS = {
    { up = "风吹杨柳千门绿", ok = "雨打桃花万树红",
      bad = { "雪压寒梅一夜白", "日照青松百尺高" } },
    { up = "书山有路勤为径", ok = "学海无涯苦作舟",
      bad = { "学海无涯乐作舟", "学海无边快回头" } },
    { up = "两个黄鹂鸣翠柳", ok = "一行白鹭上青天",
      bad = { "一枝红杏出墙来", "三只乌鸦落枯枝" } }
}
local TITLES = { "童生", "秀才", "举人", "贡士", "状元" }

function CP.Next()
    local set = SETS[math.random(#SETS)]
    SL:SetValue("upLine", set.up)
    SL:SetValue("okLine", set.ok)
    -- 三个选项: 一对两错, 洗牌打乱位置
    local opts = { set.ok, set.bad[1], set.bad[2] }
    for i = #opts, 2, -1 do
        local j = math.random(i)
        opts[i], opts[j] = opts[j], opts[i]
    end
    SL:SetValue("opts", opts)
    SL:SetValue("picked", -1)
end

function CP.Pick(idx)
    if SL:GetValue("phase") ~= "pick" then return end
    SL:SetValue("picked", idx)
    SL:SetValue("phase", "judge")
    local opts = SL:GetValue("opts")
    local ok = opts[idx] == SL:GetValue("okLine")
    if ok then
        SL:SetValue("score", SL:GetValue("score") + 10)
        SL:SetValue("streak", SL:GetValue("streak") + 1)
        SL:PlayFxAt("lantern_lit", SL:GetValue("optX", idx))
        -- 连对三题进阶称号
        if SL:GetValue("streak") >= 3 then
            SL:SetValue("streak", 0)
            local t = math.min(5, SL:GetValue("titleLv") + 1)
            SL:SetValue("titleLv", t)
            SL:ShowSystemTips("文采进阶: " .. TITLES[t])
        end
    else
        SL:SetValue("streak", 0)
        SL:PlayFxAt("ink_splash", SL:GetValue("optX", idx))
        SL:ShowSystemTips("接错了 — 墨点糊脸")
    end
    SL:ScheduleOnce(function()
        CP.Next()
    end, 1.5)
end

return CP