新小程序：Triple
This commit is contained in:
MrZ626
@@ -566,7 +566,7 @@ local commands={}do
|
||||
{
|
||||
code="2048",
|
||||
scene='app_2048',
|
||||
description="2048 with some new features"
|
||||
description="2048 with some new features\nOriginal by Asher Vollmer"
|
||||
},
|
||||
{
|
||||
code="ten",
|
||||
@@ -601,7 +601,7 @@ local commands={}do
|
||||
{
|
||||
code="poly",
|
||||
scene='app_polyforge',
|
||||
description="Polyforge, original by ImpactBlue Studios"
|
||||
description="Polyforge\nOriginal by ImpactBlue Studios"
|
||||
},
|
||||
{
|
||||
code="link",
|
||||
@@ -623,10 +623,15 @@ local commands={}do
|
||||
scene='app_memorize',
|
||||
description="Number memorize"
|
||||
},
|
||||
{
|
||||
code="trp",
|
||||
scene='app_triple',
|
||||
description="A simply clone of a famous Match-3 Game\nOriginal idea from Sanlitun / Triple Town"
|
||||
},
|
||||
{
|
||||
code="spin",
|
||||
scene='app_spin',
|
||||
description="???"
|
||||
description="¿"
|
||||
},
|
||||
}
|
||||
commands.app={
|
||||
|
||||
321
parts/scenes/app_triple.lua
Normal file
321
parts/scenes/app_triple.lua
Normal file
@@ -0,0 +1,321 @@
|
||||
local gc=love.graphics
|
||||
local setColor,rectangle=gc.setColor,gc.rectangle
|
||||
|
||||
local int,rnd=math.floor,math.random
|
||||
local ins,rem=table.insert,table.remove
|
||||
|
||||
local setFont,mStr=FONT.set,GC.mStr
|
||||
|
||||
local tileColor={
|
||||
[-1]=COLOR.H,
|
||||
{.39, 1.0, .39},
|
||||
{.39, .39, 1.0},
|
||||
{1.0, .70, .31},
|
||||
{.94, .31, .31},
|
||||
{.00, .71, .12},
|
||||
{.90, .20, .90},
|
||||
{.94, .47, .39},
|
||||
{.90, .00, .00},
|
||||
{.86, .86, .31},
|
||||
{.78, .31, .00},
|
||||
{.78, .55, .04},
|
||||
{.12, .12, .51},
|
||||
}
|
||||
local textColor={
|
||||
[-1]=COLOR.D,
|
||||
{.26, .66, .26},
|
||||
{.26, .26, .66},
|
||||
{.66, .46, .20},
|
||||
{.62, .20, .20},
|
||||
{.00, .48, .08},
|
||||
{.60, .14, .60},
|
||||
{.62, .32, .26},
|
||||
{.60, .00, .00},
|
||||
{.58, .58, .20},
|
||||
{.52, .20, .00},
|
||||
{.52, .36, .20},
|
||||
{.08, .80, .34},
|
||||
}
|
||||
local tileTexts=setmetatable({
|
||||
[-1]="×",
|
||||
},{__index=function(self,k)self[k]=k return k end})
|
||||
|
||||
local player={x=340,y=90}
|
||||
|
||||
function player:newTile()
|
||||
local r=1
|
||||
if rnd()<.3 then
|
||||
r=r+1
|
||||
if rnd()<.3 then r=r+1 end
|
||||
end
|
||||
if self.maxTile>=4 and rnd()<.3 then
|
||||
r=r+1
|
||||
if self.maxTile>=6 and rnd()<.3 then
|
||||
r=r+1
|
||||
if self.maxTile>=8 and rnd()<.3 then
|
||||
r=r+1
|
||||
end
|
||||
end
|
||||
end
|
||||
return r
|
||||
end
|
||||
|
||||
function player:reset()
|
||||
self.progress={}
|
||||
self.state=0
|
||||
self.time=0
|
||||
self.startTime=false
|
||||
self.score=0
|
||||
self.maxTile=3
|
||||
|
||||
self.nexts,self.hold={self:newTile(),self:newTile(),self:newTile()},false
|
||||
self.selectX,self.selectY=false,false
|
||||
self.board={}
|
||||
for y=1,6 do
|
||||
self.board[y]={}
|
||||
for x=1,6 do
|
||||
self.board[y][x]=0
|
||||
end
|
||||
end
|
||||
self.board[1][1]=false
|
||||
for _,n in next,{-1,-1,1,1,2,2,3,3}do
|
||||
local x,y
|
||||
repeat
|
||||
x,y=rnd(6),rnd(6)
|
||||
until not(x==1 and y==1)and self.board[y][x]==0
|
||||
self.board[y][x]=n
|
||||
end
|
||||
end
|
||||
|
||||
function player:merge(b,v,y,x)
|
||||
if b[y]and v==b[y][x]then
|
||||
ins(self.mergedTiles,{y,x})
|
||||
b[y][x]=0
|
||||
return 1
|
||||
+self:merge(b,v,y,x-1)
|
||||
+self:merge(b,v,y,x+1)
|
||||
+self:merge(b,v,y-1,x)
|
||||
+self:merge(b,v,y+1,x)
|
||||
else
|
||||
return 0
|
||||
end
|
||||
end
|
||||
|
||||
function player:click(y,x)
|
||||
if y==1 and x==1 then
|
||||
self.nexts[1],self.hold=self.hold,self.nexts[1]
|
||||
SFX.play('hold')
|
||||
if not self.nexts[1] then
|
||||
rem(self.nexts,1)
|
||||
ins(self.nexts,self:newTile())
|
||||
end
|
||||
elseif self.board[y][x]~=0 then
|
||||
self.selectX,self.selectY=false,false
|
||||
elseif y==self.selectY and x==self.selectX then
|
||||
if self.state==0 then
|
||||
self.state=1
|
||||
self.startTime=TIME()
|
||||
end
|
||||
|
||||
self.board[y][x]=rem(self.nexts,1)
|
||||
SFX.play('touch')
|
||||
|
||||
local merged
|
||||
::REPEAT_merge::
|
||||
local cur=self.board[y][x]
|
||||
local b1=TABLE.shift(self.board)
|
||||
self.mergedTiles={}
|
||||
local count=self:merge(b1,cur,y,x)
|
||||
if count>2 then
|
||||
merged=true
|
||||
self.board=b1
|
||||
b1[y][x]=cur+1
|
||||
|
||||
if cur+1>self.maxTile then
|
||||
self.maxTile=cur+1
|
||||
if self.maxTile>=6 then
|
||||
ins(self.progress,("%s - %.3fs"):format(self.maxTile,TIME()-player.startTime))
|
||||
end
|
||||
SFX.play('reach')
|
||||
end
|
||||
|
||||
local getScore=4^cur*count
|
||||
self.score=self.score+getScore
|
||||
TEXT.show(getScore,player.x+self.selectX*100-50,player.y+self.selectY*100-50,40,'score')
|
||||
for i=1,#self.mergedTiles do
|
||||
SYSFX.newShade(3,player.x+100*self.mergedTiles[i][2]-100,player.y+100*self.mergedTiles[i][1]-100,100,100)
|
||||
end
|
||||
goto REPEAT_merge
|
||||
end
|
||||
|
||||
ins(self.nexts,self:newTile())
|
||||
|
||||
self.selectX,self.selectY=false,false
|
||||
|
||||
print('-------------')
|
||||
if merged then
|
||||
SFX.play('lock')
|
||||
if cur>=4 then
|
||||
SFX.play(
|
||||
cur>=8 and'ren_mega'or
|
||||
cur>=7 and'spin_3'or
|
||||
cur>=6 and'spin_2'or
|
||||
cur>=5 and'spin_1'or
|
||||
'spin_0'
|
||||
)
|
||||
end
|
||||
else
|
||||
for i=1,6 do
|
||||
if TABLE.find(self.board[i],0)then
|
||||
print(i,TABLE.find(self.board[i],0))
|
||||
return
|
||||
end
|
||||
end
|
||||
self.state=2
|
||||
SFX.play('fail')
|
||||
end
|
||||
else
|
||||
self.selectX,self.selectY=x,y
|
||||
end
|
||||
end
|
||||
|
||||
local function drawTile(x,y,v)
|
||||
if v and v~=0 then
|
||||
setColor(tileColor[v])
|
||||
rectangle('fill',x*100-100,y*100-100,100,100)
|
||||
setColor(textColor[v])
|
||||
mStr(tileTexts[v],x*100-50,y*100-92)
|
||||
end
|
||||
end
|
||||
|
||||
function player:drawBoard()
|
||||
gc.push('transform')
|
||||
gc.translate(self.x,self.y)
|
||||
|
||||
--Board background
|
||||
setColor(.2,.2,.2,.7)
|
||||
rectangle("fill",0,0,600,600)
|
||||
|
||||
|
||||
--Hold slot
|
||||
setColor(0,1,1,.4)
|
||||
rectangle("fill",0,0,100,100)
|
||||
gc.setLineWidth(10)
|
||||
setColor(COLOR.lC)
|
||||
rectangle("line",5,5,90,90)
|
||||
|
||||
--Hold tile
|
||||
setFont(60)
|
||||
drawTile(1,1,self.hold)
|
||||
|
||||
--Board tiles
|
||||
local b=self.board
|
||||
for y=1,6 do for x=1,6 do
|
||||
drawTile(x,y,b[y][x])
|
||||
end end
|
||||
|
||||
--Board lines
|
||||
setColor(COLOR.Z)
|
||||
gc.setLineWidth(2)
|
||||
for x=1,5 do gc.line(x*100,0,x*100,600)end
|
||||
for y=1,5 do gc.line(0,y*100,600,y*100)end
|
||||
gc.setLineWidth(6)
|
||||
rectangle("line",0,0,600,600)
|
||||
|
||||
--Select box
|
||||
if self.selectX then
|
||||
local c=tileColor[self.nexts[1]]
|
||||
setColor(c[1],c[2],c[3],.6+.3*math.sin(TIME()*9.29))
|
||||
rectangle("line",self.selectX*100-95,self.selectY*100-95,90,90)
|
||||
end
|
||||
|
||||
gc.pop()
|
||||
end
|
||||
|
||||
local scene={}
|
||||
|
||||
function scene.sceneInit()
|
||||
player:reset()
|
||||
BGM.play('truth')
|
||||
end
|
||||
|
||||
function scene.mouseDown(x,y)
|
||||
x,y=int((x-player.x)/100)+1,int((y-player.y)/100)+1
|
||||
if x>=1 and x<=6 and y>=1 and y<=6 then
|
||||
player:click(y,x)
|
||||
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 not player.selectX then
|
||||
player.selectX,player.selectY=3,3
|
||||
else
|
||||
if key=='up'then player.selectY=math.max(player.selectY-1,1)
|
||||
elseif key=='down'then player.selectY=math.min(player.selectY+1,6)
|
||||
elseif key=='left'then player.selectX=math.max(player.selectX-1,1)
|
||||
elseif key=='right'then player.selectX=math.min(player.selectX+1,6)
|
||||
end
|
||||
end
|
||||
elseif key=='z'or key=='space'then
|
||||
if not player.selectX then
|
||||
player.selectX,player.selectY=3,3
|
||||
else
|
||||
local y,x=player.selectY,player.selectX
|
||||
player:click(player.selectY,player.selectX)
|
||||
player.selectY,player.selectX=y,x
|
||||
end
|
||||
elseif key=='x'then
|
||||
player:click(1,1)
|
||||
elseif key=='r'then
|
||||
if player.state~=1 or tryReset()then
|
||||
player:reset()
|
||||
end
|
||||
elseif key=='escape'then
|
||||
if tryBack()then
|
||||
SCN.back()
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function scene.update()
|
||||
if player.state==1 then
|
||||
player.time=TIME()-player.startTime
|
||||
end
|
||||
end
|
||||
|
||||
function scene.draw()
|
||||
setFont(40)
|
||||
setColor(1,1,1)
|
||||
gc.print(("%.3f"):format(player.time),1026,50)
|
||||
gc.print(player.score,1026,100)
|
||||
|
||||
--Progress time list
|
||||
setFont(25)
|
||||
setColor(.7,.7,.7)
|
||||
for i=1,#player.progress do
|
||||
gc.print(player.progress[i],1000,140+30*i)
|
||||
end
|
||||
|
||||
gc.push('transform')
|
||||
gc.translate(745,13)
|
||||
setColor(COLOR.Z)
|
||||
gc.setLineWidth(4)
|
||||
gc.rectangle("line",-5,-5,200,70)
|
||||
for i=1,3 do
|
||||
setColor(tileColor[player.nexts[i]])
|
||||
rectangle('fill',65*i-65,0,60,60)
|
||||
setFont(40)
|
||||
setColor(textColor[player.nexts[i]])
|
||||
mStr(player.nexts[i],65*i-35,0)
|
||||
end
|
||||
gc.pop()
|
||||
|
||||
player:drawBoard()
|
||||
end
|
||||
|
||||
scene.widgetList={
|
||||
WIDGET.newButton{name='reset',x=160,y=100,w=180,h=100,color='lG',font=50,fText=CHAR.icon.retry_spin,code=pressKey'r'},
|
||||
WIDGET.newButton{name="back", x=1140,y=640,w=170,h=80,font=60,fText=CHAR.icon.back,code=backScene},
|
||||
}
|
||||
return scene
|
||||
Reference in New Issue
Block a user