lua+love2d 2048游戏

大佬教程收集整理的这篇文章主要介绍了lua+love2d 2048游戏，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

core = {}
core.block = {}
core.score = 0
core.best = 0

love.filesystem.setIdentity("2048")
local function geT_Best()
    if not love.filesystem.exists("best") then
        core.best = 0
        return
    end
    core.best = love.filesystem.read("best")
    core.best = tonumber(core.best) 
end

function core.initial()
    core.block = {}
    local pos1 = love.math.random(1,16)
    local pos2
    while true do
        pos2 = love.math.random(1,16)
        if pos2 ~= pos1 then break end
    end
    local val 
    val = love.math.random()
    if val < 0.8 then val = 2 else val = 4 end
    core.block[pos1] = val
    val = love.math.random()
    if val < 0.8 then val = 2 else val = 4 end
    core.block[pos2] = val
    core.score = 0
end

function core.seT_Best()
    if core.score > core.best then
        core.best = core.score
        local ret,err = love.filesystem.write("best",core.best)
    end
end

function core.tblclone(t1,num)
    local t2 = {}
    for i = 1,num do
        t2[i] = t1[i]
    end
    return t2
end

function core.isfull(testtbl)
    local block
    if testtbl then block = testtbl else block = core.block end
    for i = 1,16 do
        if not block[i] then return false end
    end
    return true
end

local function combine(lstart,lend,lstep,rstart,rend,rstep,flag,testtbl)
    local index
    local tflag,block
    if testtbl then 
        tflag = true 
        block = testtbl
    else
        block = core.block
    end

    local cflag = false
    for i = lstart,lstep do
        for j = rstart,rstep do
            if flag == "up" then index = (i - 1) * 4 + j
            elseif flag == "down" then index = (i + 1) * 4 + j
            elseif flag == "left" then index = i * 4 + j - 1
            else index = i * 4 + j + 1 end
            if block[index] and block[i * 4 + j] and
            block[index] == block[i * 4 + j] and
            block[index] < 2048 then
                cflag = true
                if tflag then return cflag end
                block[index] = 2 * block[i * 4 + j]
                block[i * 4 + j] = nil
                core.score = core.score + block[index]
            end
        end
    end
    return cflag
end

local function move(lstart,flag)
    local mflag = false
    local index,kstart,kend,kstep
    for i = lstart,rstep do
            if flag == "up" then
                kstart = 0
                kend = i - 1
                kstep = 1
            elseif flag == "down" then 
                kstart = 3
                kend = i + 1
                kstep = -1
            elseif flag == "left" then
                kstart = 1
                kend = j - 1
                kstep = 1
            else 
                kstart = 4
                kend = j + 1
                kstep = -1
            end
            for k = kstart,kstep do
                if flag == "up" or flag == "down" then index = k * 4 + j
                else index = i * 4 + k end
                if not core.block[index] and core.block[i * 4 + j] then
                    core.block[index] = core.block[i * 4 + j]
                    core.block[i * 4 + j] = nil
                    mflag = true
                    break
                end
            end
        end
    end
    return mflag
end

local function do_tsk(lstart,testtbl)
    if testtbl then return combine(lstart,testtbl) end
    local mret = move(lstart,flag)
    local cret = combine(lstart,flag)
    if not mret and not cret then return false end
    core.score = core.score + 1
    move(lstart,flag)
    return true
end

function core.up_move(testtbl)
    return do_tsk(1,3,1,4,"up",testtbl)
end

function core.down_move(testtbl)
    return do_tsk(2,-1,"down",testtbl)
end

function core.left_move(testtbl)
    return do_tsk(0,2,"left",testtbl)
end

function core.right_move(testtbl)
    return do_tsk(0,"right",testtbl)
end

function core.new_block()
    local val = love.math.random()
    if val < 0.8 then val = 2 else val = 4 end
    local empty_tbl = {}
    for i = 1,16 do
        if not core.block[i] then
            table.insert(empty_tbl,i)
        end
    end
    if #empty_tbl == 1 then
        return {index = empty_tbl[1],value = val}
    end
    local pos = love.math.random(1,#empty_tbl)
    return {index = empty_tbl[pos],value = val}
end

geT_Best()
return core

大佬总结

以上是大佬教程为你收集整理的lua+love2d 2048游戏全部内容，希望文章能够帮你解决lua+love2d 2048游戏所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。