推箱谜题：一步走错全盘僵

fx-pushbox

local PushBox = {}
local CONST = { MSG_ID = 12360, KEY = "PushBox" }

function PushBox.OnTap(myID, r, c)
    if PushBox._won then return end
    local p = PushBox._player
    local dr, dc = r - p.r, c - p.c
    if math.abs(dr) + math.abs(dc) ~= 1 then return end -- 只响应相邻格

    local nr, nc = p.r + dr, p.c + dc
    if PushBox:Blocked(nr, nc) then return end          -- 目标格是墙

    if PushBox._box.r == nr and PushBox._box.c == nc then
        local br, bc = nr + dr, nc + dc
        if PushBox:Blocked(br, bc) then
            SL:ShowSystemTips("箱子推不动")
            PushBox:MarkDeadCorner(nr, nc)              -- 死角预警
            return
        end
        PushBox._box.r, PushBox._box.c = br, bc
        if PushBox._grid[br][bc] == CELL_GOAL then
            PushBox._won = true
            SL:SendLuaNetMsg(CONST.MSG_ID, 0, 0, 0,
                SL:JsonEncode({ key = CONST.KEY, op = 2, steps = PushBox._steps }))
            SL:ShowSystemTips("完成!")
        end
    end
    p.r, p.c = nr, nc
    PushBox._steps = PushBox._steps + 1
end

return PushBox