SweetSea/Techmino
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

新增小程序:Link

Browse Source
This commit is contained in:
MrZ626
2021-09-14 01:09:19 +08:00
parent 9020798f90
commit e9d58a4f74
8 changed files with 376 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
parts/language/lang_en.lua
View File

@@ -713,6 +713,11 @@ return{
bgm="BGM",
arcade="Arcade",
},
app_link={
reset="Reset",
invis="Invis",
fast="Fast",
},
savedata={
export="Export to clipboard",
import="Import from clipboard",

5
parts/language/lang_es.lua
View File

@@ -618,6 +618,11 @@ return{
bgm="BGM",
arcade="Arcade",
},
app_link={
reset="Reiniciar",
invis="A ciegas",
fast="Rápido",
},
savedata={
export="Exportar al portapapeles",
import="Importar de portapapeles",

5
parts/language/lang_fr.lua
View File

@@ -620,6 +620,11 @@ return{
his="History",
qq="QQ du créateur",
},
app_link={
reset="Réinitialiser",
invis="Aveugler",
-- fast="Fast",
},
savedata={
-- export="Export to clipboard",
-- import="Import from clipboard",

5
parts/language/lang_pt.lua
View File

@@ -702,6 +702,11 @@ return{
bgm="BGM",
-- arcade="Arcade",
},
app_link={
reset="Resetar",
invis="Cego",
-- fast="Fast",
},
savedata={
-- export="Export to clipboard",
-- import="Import from clipboard",

20
parts/language/lang_yygq.lua
View File

@@ -188,12 +188,30 @@ return{
revKB="键盘反向",
},
app_schulteG={
reset="重开",
rank="尺寸",
invis="盲",
disappear="消失",
tapFX="动画",
},
app_2048={
invis="盲",
tapControl="点",
skip="跳过",
},
app_ten={
next="预览",
invis="盲",
fast="冲",
},
app_dtw={
color="彩",
bgm="曲",
arcade="街机",
},
app_link={
invis="盲",
fast="冲",
},
savedata={
export="复制走",
import="粘贴到",

5
parts/language/lang_zh.lua
View File

@@ -714,6 +714,11 @@ return{
bgm="音乐",
arcade="街机",
},
app_link={
reset="重置",
invis="盲打",
fast="速打",
},
savedata={
export="导出到剪切板",
import="从剪切板导入",

5
parts/scenes/app_console.lua
View File

@@ -587,6 +587,11 @@ local commands={}do
scene='app_polyforge',
description="Polyforge, original by ImpactBlue Studios"
},
{
code="link",
scene='app_link',
description="Simple link game"
},
}
commands.app={
code=function(name)

327
parts/scenes/app_link.lua Normal file
View File

@@ -0,0 +1,327 @@
local ms=love.mouse
local gc=love.graphics
local gc_setColor,gc_rectangle=gc.setColor,gc.rectangle
local int,rnd,abs=math.floor,math.random,math.abs
local max,min=math.max,math.min
local ins,rem=table.insert,table.remove
local levels={
{c=6,r=3,color=3},
{c=6,r=4,color=3},
{c=6,r=4,color=4},
{c=8,r=5,color=4},
{c=8,r=6,color=5},
{c=9,r=6,color=5},
{c=10,r=6,color=6},
{c=12,r=7,color=6},
{c=14,r=8,color=7},
{c=14,r=9,color=7},
{c=15,r=10,color=7},
{c=17,r=10,color=8},
{c=18,r=11,color=8},
{c=20,r=12,color=9},
{c=22,r=13,color=9},
{c=24,r=14,color=9},
}
local colorList={
COLOR.lR,
COLOR.lB,
COLOR.lY,
COLOR.lG,
COLOR.lM,
COLOR.lC,
COLOR.H,
COLOR.Z,
COLOR.lF,
}
local sure=0
local progress,level
local state
local invis,fast
local startTime,time
local field={
x=160,y=30,
w=960,h=640,
c=16,r=10,
remain=0,
}
local lines={}
local selX,selY
local function resetBoard()
selX,selY=false,false
local colors=levels[level].color
field.c,field.r=levels[level].c,levels[level].r
local total=field.r*field.c/2--Total cell count
local pool=TABLE.new(int(total/colors),colors)
for i=1,total%colors do pool[i]=pool[i]+1 end
for i=1,#pool do pool[i]=pool[i]*2 end
field.remain=total
field.full=true
total=total*2
TABLE.cut(field)
for y=1,field.r do
field[y]={}
for x=1,field.c do
local ri=0
local rn=rnd(total)
while rn>0 do
ri=ri+1
rn=rn-pool[ri]
end
total=total-1
pool[ri]=pool[ri]-1
field[y][x]=ri
end
end
SYSFX.newShade(2,field.x,field.y,field.w,field.h,1,1,1)
end
local function newGame()
progress={}
state=0
startTime=TIME()
time=0
level=1
resetBoard()
end
local function addPoint(list,x,y)
local l=#list
if x~=list[l-1]or y~=list[l]then
list[l+1]=x
list[l+2]=y
end
end
local function checkLink(x1,y1,x2,y2)
--Y-X-Y Check
local bestLen,bestLine=1e99,false
do
if x1>x2 then x1,y1,x2,y2=x2,y2,x1,y1 end
local luy,ldy,ruy,rdy=y1,y1,y2,y2
while luy>1 and not field[luy-1][x1]do luy=luy-1 end
while ldy<field.r and not field[ldy+1][x1]do ldy=ldy+1 end
while ruy>1 and not field[ruy-1][x2]do ruy=ruy-1 end
while rdy<field.r and not field[rdy+1][x2]do rdy=rdy+1 end
for y=max(luy,ruy),min(ldy,rdy)do
for x=x1+1,x2-1 do if field[y][x]then goto CONTINUE_nextRow end end
do
local len=abs(x1-x2)+abs(y-y1)+abs(y-y2)
if len<bestLen then
bestLen=len
bestLine={x1,y1}
addPoint(bestLine,x1,y)
addPoint(bestLine,x2,y)
addPoint(bestLine,x2,y2)
end
end
::CONTINUE_nextRow::
end
end
--X-Y-X Check
do
if y1>y2 then x1,y1,x2,y2=x2,y2,x1,y1 end
local ulx,urx,dlx,drx=x1,x1,x2,x2
while ulx>1 and not field[y1][ulx-1]do ulx=ulx-1 end
while urx<field.c and not field[y1][urx+1]do urx=urx+1 end
while dlx>1 and not field[y2][dlx-1]do dlx=dlx-1 end
while drx<field.c and not field[y2][drx+1]do drx=drx+1 end
for x=max(ulx,dlx),min(urx,drx)do
for y=y1+1,y2-1 do if field[y][x]then goto CONTINUE_nextCol end end
do
local len=abs(y1-y2)+abs(x-x1)+abs(x-x2)
if len<bestLen then
bestLen=len
bestLine={x1,y1}
addPoint(bestLine,x,y1)
addPoint(bestLine,x,y2)
addPoint(bestLine,x2,y2)
end
end
::CONTINUE_nextCol::
end
end
return bestLine
end
local function touch(x,y)
if x>=1 and x<=field.c and y>=1 and y<=field.r then
if state==0 then
state=1
startTime=TIME()
elseif state==1 then
if selX and(x~=selX or y~=selY)and field[y][x]==field[selY][selX]then
local line=checkLink(x,y,selX,selY)
if line then
ins(lines,{time=0,line=line})
field[y][x]=false
field[selY][selX]=false
field.remain=field.remain-1
field.full=false
if field.remain==0 then
if levels[level+1]then
ins(progress,("%s - %.3fs"):format(level,TIME()-startTime))
level=level+1
resetBoard()
SFX.play('reach')
else
state=2
SFX.play('win')
end
else
SFX.play('clear_1')
end
selX,selY=false,false
else
selX,selY=x,y
SFX.play('lock')
end
else
if field[y][x]and(x~=selX or y~=selY)then
selX,selY=x,y
SFX.play('lock')
end
end
end
end
end
local scene={}
function scene.sceneInit()
invis,fast=false,false
newGame()
SYSFX.update(1e99)
for i=1,#field do TABLE.cut(field[i])end
state=2
BGM.play('hang out')
end
function scene.keyDown(key,isRep)
if isRep then return end
if key=="r"then
if state~=1 or sure>.2 then
newGame()
else
sure=1
MES.new('info',"Press again")
end
elseif key=="z"or key=="x"then
love.mousepressed(ms.getPosition())
elseif key=="escape"then
if state~=1 or sure>.2 then
SCN.back()
else
sure=1
MES.new('info',"Press again")
end
elseif state==0 then
if key=="q"then
invis=not invis
elseif key=="w"then
fast=not fast
end
end
end
function scene.mouseDown(x,y,k)
if k==1 or k==2 or not k then
x=int((x-field.x)/field.w*field.c+1)
y=int((y-field.y)/field.h*field.r+1)
touch(x,y)
end
end
function scene.mouseMove(x,y)
if fast then
scene.mouseDown(x,y)
end
end
function scene.touchDown(x,y)
scene.mouseDown(x,y,1)
end
function scene.touchMove(x,y)
if fast then
scene.mouseDown(x,y)
end
end
function scene.update(dt)
if state==1 then
time=TIME()-startTime
end
if sure>0 then
sure=sure-dt
end
for i=#lines,1,-1 do
local L=lines[i]
L.time=L.time+dt
if L.time>=1 then
rem(lines,i)
end
end
end
function scene.draw()
gc.push('transform')
gc.translate(field.x,field.y)
gc.scale(field.w/field.c,field.h/field.r)
--Matrix
local mono=state==0 or invis and not field.full
if mono then
gc_setColor(COLOR.dH)
for y=1,field.r do
for x=1,field.c do
if field[y][x]then
gc_rectangle('fill',x-1,y-1,1,1)
end
end
end
else
for y=1,field.r do
for x=1,field.c do
if field[y][x]then
gc_setColor(colorList[field[y][x]])
gc_rectangle('fill',x-1,y-1,1,1)
end
end
end
end
--Selecting box
gc.setLineWidth(.1)
if selX then
gc_setColor(1,1,1)
gc_rectangle('line',selX-1+.05,selY-1+.05,.9,.9)
end
--Clearing lines
gc.translate(-.5,-.5)
for i=1,#lines do
gc_setColor(1,1,1,1-lines[i].time)
gc.line(lines[i].line)
end
gc.pop()
--Time
setFont(30)
gc.setColor(COLOR.Z)
gc.print(("%.3f"):format(time),1140,20)
--Progress time list
setFont(15)
gc.setColor(.6,.6,.6)
for i=1,#progress do
gc.print(progress[i],1140,35+20*i)
end
end
scene.widgetList={
WIDGET.newButton{name="reset",x=80,y=60,w=120,h=60,color='lG',code=pressKey"r",hideF=function()return state==0 end},
WIDGET.newSwitch{name="invis",x=100,y=140,disp=function()return invis end,code=pressKey"q",hideF=function()return state==1 end},
WIDGET.newSwitch{name="fast", x=100,y=210,disp=function()return fast end,code=pressKey"w",hideF=function()return state==1 end},
WIDGET.newButton{name="back",x=1210,y=670,w=100,h=60,fText=TEXTURE.back,code=pressKey"escape"},
}
return scene