2048小游戏

 以下运算核心
local lbrt={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,13,9,5,1,14,10,6,2,15,11,7,3,16,12,8,4,4,3,2,1,8,7,6,5,12,11,10,9,16,15,14,13,1,5,9,13,2,6,10,14,3,7,11,15,4,8,12,16,}
local num={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,}
--当前方向、是否正在进行、是否结束
local drct,ising,isend,has=0,0,0,0
local i,j,k=0,0,0
local score=0

--2048
local function Check()
    for i=1,16 do
        if num[i]==11 then
            isend=99999
        end
    end
    if isend==99999 then
        print("恭喜！2048！")
        has=2
    end
end
--界面显示刷新
local function Re()
    for i=1,16 do
        if num[i]==0 then

        print('')
         else 

        print(2^num[i])    
        end
    end
    print("游戏分数："..score)
    if has==1 then
        Check()
    end
end
--随机生成1个2/4
local function Add()
    math.randomseed(os.time())
    local z=0
    for i=1,16 do
        if num[i]==0 then
            z=z+1
        end
    end
    if z>0 then
        local r=math.random(1,z)
        for j=1,16 do
            if num[j]==0 then
                r=r-1
            end
            if r==0 then
                math.randomseed(os.time())
                num[j]=math.random(1,10)
                if num[j]<6 then
                    num[j]=2
                    score=score+4
                else
                    num[j]=1
                    score=score+2
                end
                r=-1
            end
        end
    end
    Re()
end
--四个数字的合并
local function Fin(num1,num2,num3,num4)
    local numr={0,0,0,0,}
    local m=1
    if num1~=0 then
        numr[m]=num1
        m=m+1
    elseif (num2~=0)or(num3~=0)or(num4~=0) then
        isend=1
    end
    if num2~=0 then
        numr[m]=num2
        m=m+1
    elseif (num3~=0)or(num4~=0) then
        isend=1
    end
    if num3~=0 then
        numr[m]=num3
        m=m+1
    elseif (num4~=0) then
        isend=1
    end
    if num4~=0 then
        numr[m]=num4
        m=m+1
    end
    if (numr[1]==numr[2])and(numr[1]~=0)and(numr[1]~=11) then
        numr[1]=numr[1]+1
        score=score+math.pow(2,numr[1])
        isend=1
        if (numr[3]==numr[4])and(numr[3]~=0)and(numr[3]~=11) then
            numr[2]=numr[3]+1
            score=score+math.pow(2,numr[2])
            isend=1
            numr[3]=0
            numr[4]=0
            return numr
        else
            numr[2]=numr[3]
            numr[3]=numr[4]
            numr[4]=0
            return numr
        end
    elseif (numr[2]==numr[3])and(numr[2]~=0)and(numr[2]~=11) then
        numr[2]=numr[2]+1
        score=score+math.pow(2,numr[2])
        isend=1
        numr[3]=numr[4]
        numr[4]=0
        return numr
    elseif (numr[3]==numr[4])and(numr[3]~=0)and(numr[3]~=11) then
        numr[3]=numr[3]+1
        score=score+math.pow(2,numr[3])
        isend=1
        numr[4]=0
        return numr
    else
        return numr
    end
end
--滑动
local function Move()
    isend=0
    if has==0 then
        isend=1
        has=1
    end
    for i=1,4 do
        local wn=(drct-1)*16+i*4
        local nw=Fin(num[lbrt[wn-3]],num[lbrt[wn-2]],num[lbrt[wn-1]],num[lbrt[wn]])
        for j=1,4 do
            num[lbrt[wn+j-4]]=nw[j]
        end
    end
    if isend==0 then
        print("无法移动！当前分数："..score)
    else
        Add()
    end
end
--玩家点击按钮
Go=function(e)
        if 上 then
        drct=1
        Move()
    elseif 下 then
        drct=2
        Move()
    elseif 左 then
        drct=3
        Move()
    elseif 右 then
        drct=4
        Move()
    elseif 重新开始 then
        for i=1,16 do
            num[i]=0
        end
        has=0
        score=0
        Re()
    end
end