500 lines
14 KiB
Lua
500 lines
14 KiB
Lua
local gc,kb=love.graphics,love.keyboard
|
|
local setColor,rectangle=gc.setColor,gc.rectangle
|
|
|
|
local int,abs=math.floor,math.abs
|
|
local rnd,min=math.random,math.min
|
|
local ins=table.insert
|
|
local setFont=FONT.set
|
|
local mStr=GC.mStr
|
|
|
|
local scene={}
|
|
|
|
local invis,tapControl
|
|
|
|
local board
|
|
local startTime,time
|
|
local state,progress
|
|
local move
|
|
|
|
local autoPressing
|
|
local nextTile,nextCD
|
|
local nextPos,prevPos
|
|
local prevSpawnTime=0
|
|
local maxTile
|
|
|
|
local skipper={
|
|
used=false,
|
|
cd=0,
|
|
}
|
|
local repeater={
|
|
focus=false,
|
|
seq={"",""},last={"X","X"},
|
|
}
|
|
local score
|
|
|
|
--[[Tiles' value:
|
|
-1: black tile, cannot move
|
|
0: X tile, cannot merge
|
|
1/2/3/...: 2/4/8/... tile
|
|
]]
|
|
local tileColor={
|
|
[-1]=COLOR.D,
|
|
[0]={.5,.3,.3},
|
|
{.93,.89,.85},
|
|
{.93,.88,.78},
|
|
{.95,.69,.47},
|
|
{.96,.58,.39},
|
|
{.96,.49,.37},
|
|
{.96,.37,.23},
|
|
{.93,.81,.45},
|
|
{.93,.80,.38},
|
|
{.93,.78,.31},
|
|
{.93,.77,.25},
|
|
{.93,.76,.18},
|
|
{.40,.37,.33},
|
|
{.22,.19,.17},
|
|
}
|
|
local tileFont={
|
|
80,80,80,--2/4/8
|
|
70,70,70,--16/32/64
|
|
60,60,60,--128/256/512
|
|
55,55,55,55,--1024/2048/4096/8192
|
|
50,50,50,--16384/32768/65536
|
|
45,45,45,--131072/262144/524288
|
|
30,--1048576
|
|
}
|
|
local tileName={[0]="X","2","4","8","16","32","64","128","256","512","1024","2048","4096","8192","16384","32768","65536","131072","262144","524288","2^20"}
|
|
local function airExist()
|
|
for i=1,16 do
|
|
if not board[i]then
|
|
return true
|
|
end
|
|
end
|
|
end
|
|
local function newTile()
|
|
--Select position & generate number
|
|
nextPos=(nextPos+6)%16+1
|
|
while board[nextPos]do
|
|
nextPos=(nextPos-4)%16+1
|
|
end
|
|
board[nextPos]=nextTile
|
|
prevPos=nextPos
|
|
prevSpawnTime=0
|
|
|
|
--Fresh score
|
|
score=score+2^nextTile
|
|
TEXT.show("+"..2^nextTile,1130+rnd(-60,60),575+rnd(-30,30),30,'score',1.5)
|
|
|
|
--Generate next number
|
|
nextCD=nextCD-1
|
|
if nextCD>0 then
|
|
nextTile=1
|
|
else
|
|
nextTile=rnd()>.1 and 2 or rnd()>.1 and 3 or 4
|
|
nextCD=rnd(8,12)
|
|
end
|
|
|
|
--Check if board is full
|
|
if airExist()then return end
|
|
|
|
--Check if board is locked in all-directions
|
|
for i=1,12 do
|
|
if board[i]==board[i+4]then
|
|
return
|
|
end
|
|
end
|
|
for i=1,13,4 do
|
|
if
|
|
board[i+0]==board[i+1]or
|
|
board[i+1]==board[i+2]or
|
|
board[i+2]==board[i+3]
|
|
then
|
|
return
|
|
end
|
|
end
|
|
|
|
--Die.
|
|
state=2
|
|
SFX.play(maxTile>=10 and'win'or'fail')
|
|
end
|
|
local function freshMaxTile()
|
|
maxTile=maxTile+1
|
|
if maxTile==12 then
|
|
skipper.cd=0
|
|
end
|
|
SFX.play('reach')
|
|
ins(progress,("%s - %.3fs"):format(tileName[maxTile],TIME()-startTime))
|
|
end
|
|
local function squash(L)
|
|
local p1,p2=1
|
|
local moved=false
|
|
while true do
|
|
p2=p1+1
|
|
while not L[p2]and p2<5 do
|
|
p2=p2+1
|
|
end
|
|
if p2==5 then
|
|
if p1==4 then
|
|
return L[1],L[2],L[3],L[4],moved
|
|
else
|
|
p1=p1+1
|
|
end
|
|
else
|
|
if not L[p1]then--air←2
|
|
L[p1],L[p2]=L[p2],false
|
|
moved=true
|
|
elseif L[p1]==L[p2]then--2←2
|
|
L[p1],L[p2]=L[p1]+1,false
|
|
if L[p1]>maxTile then
|
|
freshMaxTile()
|
|
end
|
|
L[p2]=false
|
|
p1=p1+1
|
|
moved=true
|
|
elseif p1+1~=p2 then--2←4
|
|
L[p1+1],L[p2]=L[p2],false
|
|
p1=p1+1
|
|
moved=true
|
|
else--2,4
|
|
p1=p1+1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
local function reset()
|
|
for i=1,16 do board[i]=false end
|
|
progress={}
|
|
state=0
|
|
score=0
|
|
time=0
|
|
move=0
|
|
maxTile=6
|
|
nextTile,nextPos=1,rnd(16)
|
|
nextCD=32
|
|
skipper.cd,skipper.used=false,false
|
|
repeater.seq[1],repeater.seq[2]="",""
|
|
repeater.last[1],repeater.last[2]="X","X"
|
|
newTile()
|
|
end
|
|
|
|
local function moveUp()
|
|
local moved
|
|
for i=1,4 do
|
|
local m
|
|
board[i],board[i+4],board[i+8],board[i+12],m=squash({board[i],board[i+4],board[i+8],board[i+12]})
|
|
if m then moved=true end
|
|
end
|
|
return moved
|
|
end
|
|
local function moveDown()
|
|
local moved
|
|
for i=1,4 do
|
|
local m
|
|
board[i+12],board[i+8],board[i+4],board[i],m=squash({board[i+12],board[i+8],board[i+4],board[i]})
|
|
if m then moved=true end
|
|
end
|
|
return moved
|
|
end
|
|
local function moveLeft()
|
|
local moved
|
|
for i=1,13,4 do
|
|
local m
|
|
board[i],board[i+1],board[i+2],board[i+3],m=squash({board[i],board[i+1],board[i+2],board[i+3]})
|
|
if m then moved=true end
|
|
end
|
|
return moved
|
|
end
|
|
local function moveRight()
|
|
local moved
|
|
for i=1,13,4 do
|
|
local m
|
|
board[i+3],board[i+2],board[i+1],board[i],m=squash({board[i+3],board[i+2],board[i+1],board[i]})
|
|
if m then moved=true end
|
|
end
|
|
return moved
|
|
end
|
|
local function skip()
|
|
if state==1 and skipper.cd==0 then
|
|
if airExist()then
|
|
skipper.cd=1024
|
|
skipper.used=true
|
|
newTile()
|
|
SFX.play('hold')
|
|
else
|
|
SFX.play('finesseError')
|
|
end
|
|
end
|
|
end
|
|
|
|
function scene.sceneInit()
|
|
BG.set('cubes')
|
|
BGM.play('truth')
|
|
board={}
|
|
|
|
invis=false
|
|
tapControl=false
|
|
startTime=0
|
|
reset()
|
|
end
|
|
|
|
function scene.mouseDown(x,y,k)
|
|
if tapControl then
|
|
if k==2 then
|
|
skip()
|
|
else
|
|
local dx,dy=x-640,y-360
|
|
if abs(dx)<320 and abs(dy)<320 and(abs(dx)>60 or abs(dy)>60)then
|
|
scene.keyDown(abs(dx)-abs(dy)>0 and
|
|
(dx>0 and"right"or"left")or
|
|
(dy>0 and"down"or"up")
|
|
)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
scene.touchDown=scene.mouseDown
|
|
|
|
local moveFunc={
|
|
up=moveUp,
|
|
down=moveDown,
|
|
left=moveLeft,
|
|
right=moveRight,
|
|
}
|
|
local arrows={
|
|
up='↑',down='↓',left='←',right='→',
|
|
['↑']='up',['↓']='down',['←']='left',['→']='right',
|
|
}
|
|
local function setFocus(n)
|
|
if state~=2 then
|
|
repeater.focus=n
|
|
repeater.seq[n]=""
|
|
end
|
|
end
|
|
local function playRep(n)
|
|
if state~=2 and #repeater.seq[n]>0 then
|
|
repeater.focus=false
|
|
local move0=move
|
|
for i=1,#repeater.seq[n],3 do
|
|
autoPressing=true
|
|
scene.keyDown(arrows[repeater.seq[n]:sub(i,i+2)])
|
|
autoPressing=false
|
|
end
|
|
if move~=move0 then
|
|
if repeater.seq[n]~=repeater.last[n]then
|
|
repeater.last[n]=repeater.seq[n]
|
|
move=move0+#repeater.seq[n]/3+1
|
|
else
|
|
move=move0+1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
function scene.keyDown(key,isRep)
|
|
if isRep then return end
|
|
if key=="up"or key=="down"or key=="left"or key=="right"then
|
|
if repeater.focus then
|
|
local f=repeater.focus
|
|
if #repeater.seq[f]<24 then
|
|
repeater.seq[f]=repeater.seq[f]..arrows[key]
|
|
end
|
|
else
|
|
if moveFunc[key]()then
|
|
if state==0 then
|
|
startTime=TIME()
|
|
state=1
|
|
end
|
|
if skipper.cd and skipper.cd>0 then
|
|
skipper.cd=skipper.cd-1
|
|
if skipper.cd==0 then
|
|
SFX.play('spin_0')
|
|
end
|
|
end
|
|
newTile()
|
|
TEXT.show(arrows[key],640,360,80,'beat',3)
|
|
move=move+1
|
|
if not autoPressing then
|
|
SFX.play('touch')
|
|
end
|
|
end
|
|
end
|
|
elseif key=="space"then skip()
|
|
elseif key=="r"then reset()
|
|
elseif key=="q"then if state==0 then invis=not invis end
|
|
elseif key=="w"then if state==0 then tapControl=not tapControl end
|
|
elseif key=="1"or key=="2"then(kb.isDown("lshift","lctrl","lalt")and playRep or setFocus)(key=="1"and 1 or 2)
|
|
elseif key=="c1"then playRep(1)
|
|
elseif key=="c2"then playRep(2)
|
|
elseif key=="return"then
|
|
if repeater.focus then
|
|
repeater.focus=false
|
|
end
|
|
elseif key=="escape"then
|
|
if repeater.focus then
|
|
repeater.focus=false
|
|
else
|
|
SCN.back()
|
|
end
|
|
end
|
|
end
|
|
|
|
function scene.update(dt)
|
|
if state==1 then
|
|
time=TIME()-startTime
|
|
end
|
|
if prevSpawnTime<1 then
|
|
prevSpawnTime=min(prevSpawnTime+3*dt,1)
|
|
end
|
|
end
|
|
|
|
function scene.draw()
|
|
setFont(35)
|
|
setColor(1,1,1)
|
|
gc.print(("%.3f"):format(time),1000,10)
|
|
gc.print(move,1000,45)
|
|
|
|
--Progress time list
|
|
setFont(20)
|
|
setColor(.6,.6,.6)
|
|
for i=1,#progress do
|
|
gc.print(progress[i],1000,65+20*i)
|
|
end
|
|
|
|
--Repeater
|
|
gc.setLineWidth(6)
|
|
setFont(25)
|
|
for i=1,2 do
|
|
setColor(COLOR[
|
|
repeater.focus==i and(
|
|
TIME()%.5>.25 and
|
|
'R'or
|
|
'Y'
|
|
)or(
|
|
repeater.seq[i]==repeater.last[i]and
|
|
'H'or
|
|
'Z'
|
|
)
|
|
])
|
|
rectangle('line',990,305+60*i,220,50)
|
|
gc.print(repeater.seq[i],1000,313+60*i)
|
|
end
|
|
|
|
--Score
|
|
setFont(40)
|
|
setColor(1,.7,.7)
|
|
mStr(score,1130,510)
|
|
|
|
--Messages
|
|
if state==2 then
|
|
--Draw no-setting area
|
|
setColor(1,0,0,.3)
|
|
rectangle('fill',15,265,285,140)
|
|
|
|
setColor(.9,.9,0)--win
|
|
elseif state==1 then
|
|
setColor(.9,.9,.9)--game
|
|
elseif state==0 then
|
|
setColor(.2,.8,.2)--ready
|
|
end
|
|
gc.setLineWidth(10)
|
|
rectangle('line',310,30,660,660)
|
|
|
|
--Board
|
|
for i=1,16 do
|
|
if board[i]then
|
|
local x,y=1+(i-1)%4,int((i+3)/4)
|
|
local N=board[i]
|
|
if i~=prevPos or prevSpawnTime==1 then
|
|
if not invis or i==prevPos then
|
|
setColor(tileColor[N]or COLOR.D)
|
|
rectangle('fill',x*160+163,y*160-117,154,154,15)
|
|
if N>=0 then
|
|
setColor(N<3 and COLOR.D or COLOR.Z)
|
|
local fontSize=tileFont[N]
|
|
setFont(fontSize)
|
|
mStr(tileName[N],320+(x-.5)*160,40+(y-.5)*160-fontSize*.7)
|
|
end
|
|
else
|
|
setColor(COLOR.H)
|
|
rectangle('fill',x*160+163,y*160-117,154,154,15)
|
|
end
|
|
else
|
|
local c=tileColor[N]
|
|
setColor(c[1],c[2],c[3],prevSpawnTime)
|
|
rectangle('fill',x*160+163,y*160-117,154,154,15)
|
|
c=N<3 and 0 or 1
|
|
setColor(c,c,c,prevSpawnTime)
|
|
local fontSize=tileFont[N]
|
|
setFont(fontSize)
|
|
mStr(tileName[N],320+(x-.5)*160,40+(y-.5)*160-fontSize*.7)
|
|
end
|
|
end
|
|
end
|
|
|
|
--Next indicator
|
|
setColor(1,1,1)
|
|
if nextCD<=12 then
|
|
for i=1,nextCD do
|
|
rectangle('fill',140+i*16-nextCD*8,170,12,12)
|
|
end
|
|
end
|
|
|
|
--Next
|
|
setFont(40)
|
|
gc.print("Next",50,195)
|
|
if nextTile>1 then
|
|
setColor(1,.5,.4)
|
|
end
|
|
setFont(70)
|
|
mStr(tileName[nextTile],220,175)
|
|
|
|
--Skip CoolDown
|
|
if skipper.cd and skipper.cd>0 then
|
|
setFont(50)
|
|
setColor(1,1,.5)
|
|
mStr(skipper.cd,155,600)
|
|
end
|
|
|
|
--Skip mark
|
|
if skipper.used then
|
|
setColor(1,1,.5)
|
|
gc.circle('fill',280,675,10)
|
|
end
|
|
|
|
--New tile position
|
|
local x,y=1+(prevPos-1)%4,int((prevPos+3)/4)
|
|
gc.setLineWidth(8)
|
|
setColor(.2,.8,0,prevSpawnTime)
|
|
local d=25-prevSpawnTime*25
|
|
rectangle('line',x*160+163-d,y*160-117-d,154+2*d,154+2*d,15)
|
|
|
|
--Touch control border line
|
|
if tapControl then
|
|
gc.setLineWidth(6)
|
|
setColor(1,1,1,.2)
|
|
gc.line(310,30,580,300)
|
|
gc.line(970,30,700,300)
|
|
gc.line(310,690,580,420)
|
|
gc.line(970,690,700,420)
|
|
rectangle('line',580,300,120,120,10)
|
|
end
|
|
end
|
|
|
|
scene.widgetList={
|
|
WIDGET.newButton{name='reset', x=155, y=100,w=180,h=100,color='lG',font=40,code=pressKey"r"},
|
|
WIDGET.newSwitch{name='invis', x=240, y=300,lim=200,font=40,disp=function()return invis end,code=pressKey"q",hideF=function()return state==1 end},
|
|
WIDGET.newSwitch{name='tapControl',x=240, y=370,lim=200,font=40,disp=function()return tapControl end,code=pressKey"w",hideF=function()return state==1 end},
|
|
|
|
WIDGET.newKey{name='up', x=155, y=460,w=100,fText="↑",font=50, color='Y',code=pressKey"up", hideF=function()return tapControl end},
|
|
WIDGET.newKey{name='down', x=155, y=660,w=100,fText="↓",font=50, color='Y',code=pressKey"down", hideF=function()return tapControl end},
|
|
WIDGET.newKey{name='left', x=55, y=560,w=100,fText="←",font=50, color='Y',code=pressKey"left", hideF=function()return tapControl end},
|
|
WIDGET.newKey{name='right', x=255, y=560,w=100,fText="→",font=50,color='Y',code=pressKey"right", hideF=function()return tapControl end},
|
|
WIDGET.newKey{name='skip', x=155, y=400,w=100,font=20, color='Y',code=pressKey"space", hideF=function()return state~=1 or not skipper.cd or skipper.cd>0 end},
|
|
WIDGET.newKey{name='record1', x=1100,y=390,w=220,h=50,fText="", color='H',code=pressKey"1", hideF=function()return state==2 end},
|
|
WIDGET.newKey{name='record2', x=1100,y=450,w=220,h=50,fText="", color='H',code=pressKey"2", hideF=function()return state==2 end},
|
|
WIDGET.newKey{name='replay1', x=1245,y=390,w=50,fText="!", color='G',code=pressKey"c1", hideF=function()return state==2 or #repeater.seq[1]==0 end},
|
|
WIDGET.newKey{name='replay2', x=1245,y=450,w=50,fText="!", color='G',code=pressKey"c2", hideF=function()return state==2 or #repeater.seq[2]==0 end},
|
|
WIDGET.newButton{name='back', x=1140,y=640,w=170,h=80,font=60,fText=CHAR.icon.back,code=backScene},
|
|
}
|
|
|
|
return scene
|