以下运算核心
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 thenprint('')
elseprint(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
