百家乐：牌翻到一半最揪心

fx-baccarat

local Baccarat = {}
local KEY = { FLY = 0.35, FACE = 0.45 }
local cards = {}

local function SendCard(side, slot, value, suit)
    local c = {
        side = side, slot = slot, value = value, suit = suit,
        x = 600, y = 60, face = 0, landed = false
    }
    cards[#cards + 1] = c
    SL:Schedule(function(dt)
        if not c.landed then
            local tx, ty = SL:GetValue("cardSlotXY", side, slot)
            local dx, dy = tx - c.x, ty - c.y
            local d = math.sqrt(dx * dx + dy * dy)
            if d < 8 then
                c.landed = true
                SL:UnSchedule("card" .. #cards)
                Baccarat.Flip(c)
            else
                c.x = c.x + dx * 10 * dt
                c.y = c.y + dy * 10 * dt
            end
        end
    end, 0.016, "card" .. #cards)
end

function Baccarat.Flip(c)
    SL:Schedule(function(dt)
        c.face = c.face + dt / KEY.FACE
        if c.face >= 0.5 and not c.shown then
            c.shown = true              -- 90 度后换牌面, 半帧不提前
            SL:SetCardFace(c.id, true)
        end
        if c.face >= 1 then
            SL:UnSchedule("flip" .. c.id)
            SL:SendEvent("card_revealed", c.side)
        end
    end, 0.016, "flip" .. c.id)
end

-- 四张翻完由 card_revealed 计数触发比点
function Baccarat.OnAllRevealed()
    local p, b = SL:GetValue("pointPlayer"), SL:GetValue("pointBanker")
    SL:ScheduleOnce(function()
        SL:PlayFxAt(p > b and "win_p" or "win_b",
                    p > b and 183 or 433, 150)
    end, 0.5)
end

return Baccarat