Alpha V0.7.17

BGblock.lua

@@ -1,14 +0,0 @@
-local count=0
-BGblockList={}for i=1,16 do BGblockList[i]={}end
-
-function getNewBlock()
-    count=count+1
-    if count==17 then count=1 end
-    local t=BGblockList[count]
-    t.bn,t.size=rnd(7),2+3*rnd()
-    t.b=blocks[t.bn][rnd(0,3)]
-    t.x=rnd(-#t.b[1]*t.size*30+100,1180)
-    t.y=-#t.b*30*t.size
-    t.v=t.size*(1+rnd())
-    return t
-end

TRS.lua

@@ -1,78 +0,0 @@
-blocks={
- {[0]={{0,1,1},{1,1,0}},{{1,0},{1,1},{0,1}},{{0,1,1},{1,1,0}},{{1,0},{1,1},{0,1}}},--Z
- {[0]={{1,1,0},{0,1,1}},{{0,1},{1,1},{1,0}},{{1,1,0},{0,1,1}},{{0,1},{1,1},{1,0}}},--S
- {[0]={{1,1,1},{0,0,1}},{{1,1},{1,0},{1,0}},{{1,0,0},{1,1,1}},{{0,1},{0,1},{1,1}}},--L
- {[0]={{1,1,1},{1,0,0}},{{1,0},{1,0},{1,1}},{{0,0,1},{1,1,1}},{{1,1},{0,1},{0,1}}},--J
- {[0]={{1,1,1},{0,1,0}},{{1,0},{1,1},{1,0}},{{0,1,0},{1,1,1}},{{0,1},{1,1},{0,1}}},--T
- {[0]={{1,1},{1,1}},{{1,1},{1,1}},{{1,1},{1,1}},{{1,1},{1,1}}},--O
- {[0]={{1,1,1,1}},{{1},{1},{1},{1}},{{1,1,1,1}},{{1},{1},{1},{1}}},--I
-}
-do
-	scs={
-		{[0]={1,2},{2,1},{2,2},{2,2}},
-		{[0]={1,2},{2,1},{2,2},{2,2}},
-		{[0]={1,2},{2,1},{2,2},{2,2}},
-		{[0]={1,2},{2,1},{2,2},{2,2}},
-		{[0]={1,2},{2,1},{2,2},{2,2}},
-		{[0]={1.5,1.5},{1.5,1.5},{1.5,1.5},{1.5,1.5},},
-		{[0]={.5,2.5},{2.5,0.5},{1.5,2.5},{2.5,1.5}},
-	}
-	TRS={
-	[1]={
-		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2},{0,1}},
-		[10]={{0,0},{1,0},{1,-1},{0,2},{1,2},{0,-1}},
-		[12]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
-		[21]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
-		[23]={{0,0},{1,0},{1,1},{0,-2},{1,-2}},
-		[32]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2}},
-		[30]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2}},
-		[03]={{0,0},{1,0},{1,1},{0,-2},{1,-2}},
-		[02]={{0,0},{1,0},{-1,0},{0,-1},{0,1}},
-		[20]={{0,0},{-1,0},{1,0},{0,1},{0,-1}},
-		[13]={{0,0},{0,1},{0,-1},{-1,0},{1,0},{0,2}},
-		[31]={{0,0},{0,-1},{0,1},{1,0},{-1,0},{0,2}},
-	},
-	[2]={
-		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
-		[10]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
-		[12]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
-		[21]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
-		[23]={{0,0},{1,0},{1,1},{0,-2},{1,-2}},
-		[32]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2}},
-		[30]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2},{0,-1}},
-		[03]={{0,0},{1,0},{1,1},{0,-2},{1,-2},{0,1}},
-		[02]={{0,0},{-1,0},{1,0},{0,-1},{0,1}},
-		[20]={{0,0},{1,0},{-1,0},{0,1},{0,-1}},
-		[13]={{0,0},{0,-1},{0,1},{1,0},{-1,0},{0,2}},
-		[31]={{0,0},{0,1},{0,-1},{-1,0},{1,0},{0,2}},
-	},
-	[5]={
-		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
-		[10]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
-		[12]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
-		[21]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
-		[23]={{0,0},{1,0},{1,1},{0,-2},{1,-2}},
-		[32]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2}},
-		[30]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2},{0,-1}},
-		[03]={{0,0},{1,0},{1,1},{0,-2},{1,-2},{0,1}},
-		[02]={{0,0},{-1,0},{1,0},{0,-1},{0,1}},
-		[20]={{0,0},{1,0},{-1,0},{0,1},{0,-1}},
-		[13]={{0,0},{0,-1},{0,1},{1,0},{-1,0},{0,2}},
-		[31]={{0,0},{0,-1},{0,1},{-1,0},{1,0},{0,2}},
-	},
-	[7]={
-		[01]={{0,0},{-2,0},{1,0},{-2,-1},{1,2}},
-		[10]={{0,0},{2,0},{-1,0},{2,1},{-1,-2}},
-		[12]={{0,0},{-1,0},{2,0},{-1,2},{2,-1}},
-		[21]={{0,0},{1,0},{-2,0},{1,-2},{-2,1}},
-		[23]={{0,0},{2,0},{-1,0},{2,1},{-1,-2}},
-		[32]={{0,0},{-2,0},{1,0},{-2,-1},{1,2}},
-		[30]={{0,0},{1,0},{-2,0},{1,-2},{-2,1}},
-		[03]={{0,0},{-1,0},{2,0},{-1,2},{2,-1}},
-		[02]={{0,0},{-1,0},{1,0},{0,1}},
-		[20]={{0,0},{1,0},{-1,0},{0,-1}},
-		[13]={{0,0},{1,0}},
-		[31]={{0,0},{-1,0}},
-	}
-}TRS[3],TRS[4],TRS[6]=TRS[2],TRS[1],TRS[1]
-end

ai.lua

@@ -1,12 +1,12 @@
 --[[
-HighestBlock
+	HighestBlock
-HorizontalTransitions
+	HorizontalTransitions
-VerticalTransitions
+	VerticalTransitions
-BlockedCells
+	BlockedCells
-Wells
+	Wells
-FilledLines
+	FilledLines
-TetrisShape
+	4deepShape
-BlockedWells;
+	BlockedWells;
 ]]
 dirCount={1,1,3,3,3,0,1}
 spinOffset={
@@ -18,127 +18,157 @@ spinOffset={
 	{0,0,0},--O
 	{2,0,1},--I
 }for i=1,7 do spinOffset[i][0]=0 end
-
+--[[
+	controlname:
+	1~5:mL,mR,rR,rL,rF,
+	6~10:hD,sD,H,A,R,
+	11~13:LL,RR,DD
+]]
+FCL={
+	[1]={
+		{{11},{11,2},{1},{},{2},{2,2},{12,1},{12}},
+		{{11,4},{11,3},{11,2,3},{4},{3},{2,3},{2,2,3},{12,4},{12,3}},
+	},
+	[3]={
+		{{11},{11,2},{1},{},{2},{2,2},{12,1},{12},},
+		{{3,11},{11,3},{11,2,3},{1,3},{3},{2,3},{2,2,3},{12,1,3},{12,3},},
+		{{11,5},{11,2,5},{1,5},{5},{2,5},{2,2,5},{12,1,5},{12,5},},
+		{{11,4},{11,2,4},{1,4},{4},{2,4},{2,2,4},{12,1,4},{12,4},{4,12},},
+	},
+	[6]={
+		{{11},{11,2},{1,1},{1},{},{2},{2,2},{12,1},{12},},
+	},
+	[7]={
+		{{11},{11,2},{1},{},{2},{12,1},{12},},
+		{{4,11},{11,4},{11,3},{1,4},{4},{3},{2,3},{12,4},{12,3},{3,12},},
+	},
+}
+FCL[2]=FCL[1]
+FCL[4]=FCL[3]
+FCL[5]=FCL[3]
+clearScore={[0]=0,0,2,4,12}
 function ifoverlapAI(f,bk,x,y)
 	if y<1 then return true end
-	if y>#f then return nil end
+	if y>#f then return end
 	for i=1,#bk do for j=1,#bk[1]do
-		if f[y+i-1]and bk[i][j]>0 and f[y+i-1][x+j-1]>0 then return true end
+		if f[y+i-1]and bk[i][j]and f[y+i-1][x+j-1]>0 then return true end
 	end end
 end
 function resetField(f0,f,start)
-	while f[start]do
+	::L::if f[start]then
 		removeRow(f,start)
+		goto L
 	end
 	for i=start,#f0 do
-		f[i]=getNewRow()
+		f[i]=getNewRow(0)
 		for j=1,10 do
 			f[i][j]=f0[i][j]
 		end
 	end
 end
-function getScore(field,cb,cx,cy)
+function getScore(field,bn,cb,cx,cy)
+	local score=0
 	local highest=0
-	local height=getNewRow()
+	local height=getNewRow(0)
-	local rough=0
 	local clear=0
 	local hole=0
 
 	for i=cy+#cb-1,cy,-1 do
-		local f=true
 		for j=1,10 do
-			if field[i][j]==0 then f=false;break end
+			if field[i][j]==0 then goto L end
-		end
-		if f then
-			removeRow(field,i)
-			clear=clear+1
 		end
+		removeRow(field,i)
+		clear=clear+1
+		::L::
 	end
 	if #field==0 then return 9e99 end--PC best
 	for x=1,10 do
 		local h=#field
-		while field[h][x]==0 and h>1 do
+		::L::if field[h][x]==0 and h>1 then
 			h=h-1
+			goto L
 		end
 		height[x]=h
 		if x>3 and x<8 and h>highest then highest=h end
 		if h>1 then
 			for h=h-1,1,-1 do
-				if field[h][x]==0 then hole=hole+1 if hole>5 then break end end
+				if field[h][x]==0 then
+					hole=hole+1
+					if hole==5 then break end
+				end
 			end
 		end
 	end
+	local h1,mh1=0,0
 	for x=1,9 do
-		local dh=abs(height[x]-height[x])
+		local dh=abs(height[x]-height[x+1])
-		if dh>1 then
+		if dh==1 then
-			rough=rough+min(dh^2,10)
+			h1=h1+1
+			if h1>mh1 then mh1=h1 end
+		else
+			h1=0
 		end
 	end
 	ins(freeRow,height)
-	return 
+	score=
-	-highest*5
+		#field*20
-	-rough*15
+		-cy*35
-	-cy*20
+		-#cb*25
-	-#cb*10
+		+clearScore[clear]*(8+#field)
-	+clear^2*4
+		-hole*50
-	-hole*15
+	if #field>6 then score=score-highest*5 end
+	if mh1>3 then score=score-40-mh1*30 end
+	return score
 end
---controlname:mL,mR,rR,rL,rF,hD,sD,H,LL,RR
 function AI_getControls(ctrl)
 	local Tfield={}--test field
-	local field_org=field
+	local field_org=P.field
-    for i=1,#field_org do
+	for i=1,#field_org do
-		Tfield[i]=getNewRow()
+		Tfield[i]=getNewRow(0)
 		for j=1,10 do
 			Tfield[i][j]=field_org[i][j]
 		end
 	end
 	local best={x=1,dir=0,hold=false,score=-9e99}
-	for ifhold=0,1 do
+	for ifhold=0,P.gameEnv.hold and 1 or 0 do
-		local bn=ifhold==0 and bn or hn>0 and hn or nxt[1]
+		local bn=ifhold==0 and P.cur.id or P.hold.id>0 and P.hold.id or P.next[1].id
-		for dir=0,dirCount[bn] do--for each direction
+		for dir=0,dirCount[bn] do--each dir
 			local cb=blocks[bn][dir]
-			for cx=1,11-#cb[1]do--for each positioon
+			for cx=1,11-#cb[1]do--each pos
 				local cy=#Tfield+1
-				while not ifoverlapAI(Tfield,cb,cx,cy-1)do
+				::L::if not ifoverlapAI(Tfield,cb,cx,cy-1)then
 					cy=cy-1
+					goto L
 				end--move to bottom
 				for i=1,#cb do
 					local y=cy+i-1
-					if not Tfield[y]then Tfield[y]=getNewRow()end
+					if not Tfield[y]then Tfield[y]=getNewRow(0)end
 					for j=1,#cb[1]do
-						if cb[i][j]~=0 then
+						if cb[i][j]then
 							Tfield[y][cx+j-1]=1
 						end
 					end
 				end--simulate lock
-				local score=getScore(Tfield,cb,cx,cy)
+				local score=getScore(Tfield,bn,cb,cx,cy)
 				if score>best.score then
 					best={bn=bn,x=cx,dir=dir,hold=ifhold==1,score=score}
 				end
 				resetField(field_org,Tfield,cy)
 			end
 		end
-	end--ifHold loop
+	end
 
-	while #Tfield>0 do
+	::L::
+	if #Tfield>0 then
 		removeRow(Tfield,1)
+		goto L
 	end--Release cache
-
 	if best.hold then
 		ins(ctrl,8)
 	end
-	if best.dir==1 then
+	local l=FCL[best.bn][best.dir+1][best.x]
-		ins(ctrl,3)
+	for i=1,#l do
-	elseif best.dir==2 then
+		ins(ctrl,l[i])
-		ins(ctrl,5)
+	end
-	elseif best.dir==3 then
+	ins(ctrl,6)
-		ins(ctrl,4)
-	end--hold&rotate
-	best.x=best.x-spinOffset[best.bn][best.dir]
-	local n=blockPos[best.bn]<best.x and 2 or 1
-	for i=1,abs(blockPos[best.bn]-best.x)do
-		ins(ctrl,n)
-	end--move
-	ins(ctrl,6)--harddrop
 end

button.lua

@@ -1,109 +0,0 @@
-Buttons={
-	load={},
-	intro={},
-	main={
-		{x=250,y=300,w=330,h=60,rgb=color.red,t="Play",code=function()gotoScene("mode")end,down=2},
-		{x=250,y=380,w=330,h=60,rgb=color.blue,t="Settings",code=function()gotoScene("setting")end,up=1,down=3},
-		{x=165,y=460,w=160,h=60,rgb=color.yellow,t="Help",code=function()gotoScene("help")end,up=2,down=5,right=4},
-		{x=335,y=460,w=160,h=60,rgb=color.cyan,t="Statistics",code=function()gotoScene("stat")end,up=2,down=5,left=3},
-		{x=250,y=540,w=330,h=60,rgb=color.grey,t="Quit",code=function()gotoScene("quit")end,up=3},
-	},
-	mode={
-		{x=330,y=140,w=280,h=70,rgb=color.white,t="40 Lines",code=function()startGame("sprint")end,down=4,right=2},
-		{x=640,y=140,w=280,h=70,rgb=color.white,t="Zen",code=function()startGame("zen")end,down=5,left=1,right=3},
-		{x=950,y=140,w=280,h=70,rgb=color.white,t="GM Roll",code=function()startGame("gmroll")end,down=6,left=2},
-		{x=330,y=250,w=280,h=70,rgb=color.white,t="Marathon",code=function()startGame("marathon")end,up=1,down=7,right=5},
-		{x=640,y=250,w=280,h=70,rgb=color.white,t="Tetris 21",code=function()startGame("tetris21")end,up=2,down=8,left=4,right=6},
-		{x=950,y=250,w=280,h=70,rgb=color.white,t="Blind",code=function()startGame("blind")end,up=3,down=9,left=5},
-		{x=330,y=360,w=280,h=70,rgb=color.white,t="Death",code=function()startGame("death")end,up=4,down=10,right=8},
-		{x=640,y=360,w=280,h=70,rgb=color.white,t="AI Solo",code=function()startGame("solo")end,up=5,down=10,right=9,left=7},
-		{x=950,y=360,w=280,h=70,rgb=color.white,t="Asymmetry Solo",code=function()startGame("asymsolo")end,up=6,down=10,left=8},
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()gotoScene("main")end,up=8},
-	},
-	play={
-	},
-	setting={
-		{x=330,y=100,w=200,h=60,rgb=color.white,t=function()return setting.ghost and"Ghost ON"or"Ghost OFF"end,code=function()setting.ghost=not setting.ghost end,down=6,right=2},
-		{x=540,y=100,w=200,h=60,rgb=color.white,t=function()return setting.center and"Center ON"or"Center OFF"end,code=function()setting.center=not setting.center end,down=6,left=1,right=3},
-		{x=870,y=100,w=340,h=60,rgb=color.white,t=function()return setting.sfx and"Disable SFX"or"Enable SFX"end,code=function()setting.sfx=not setting.sfx end,down=4,left=2},
-		{x=870,y=180,w=340,h=60,rgb=color.white,t=function()return setting.bgm and"Disable BGM"or"Enable BGM"end,code=function()BGM()setting.bgm=not setting.bgm;BGM("blank")end,up=3,down=5,left=2},
-		{x=870,y=260,w=340,h=60,rgb=color.white,t=function()return setting.fullscreen and"Disable fullscreen"or"Enable fullscreen"end,
-			code=function()
-				setting.fullscreen=not setting.fullscreen
-				love.window.setFullscreen(setting.fullscreen)
-			end,
-			up=4,down=7,left=6
-		},
-		{x=435,y=250,w=320,h=60,rgb=color.white,t="Advanced settings",code=function()gotoScene("setting2")end,up=1,down=7,right=5},
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()back()end,up=6},
-	},
-	setting2={
-		{x=290,y=70 ,w=160,h=45,rgb=color.white,t=function()return setting.key[1]end,code=function()keysetting,gamepadsetting=1 end,up=1,down=2,right=10},
-		{x=290,y=130,w=160,h=45,rgb=color.white,t=function()return setting.key[2]end,code=function()keysetting,gamepadsetting=2 end,up=1,down=3,right=11},
-		{x=290,y=190,w=160,h=45,rgb=color.white,t=function()return setting.key[3]end,code=function()keysetting,gamepadsetting=3 end,up=2,down=4,right=12},
-		{x=290,y=250,w=160,h=45,rgb=color.white,t=function()return setting.key[4]end,code=function()keysetting,gamepadsetting=4 end,up=3,down=5,right=13},
-		{x=290,y=310,w=160,h=45,rgb=color.white,t=function()return setting.key[5]end,code=function()keysetting,gamepadsetting=5 end,up=4,down=6,right=14},
-		{x=290,y=370,w=160,h=45,rgb=color.white,t=function()return setting.key[6]end,code=function()keysetting,gamepadsetting=6 end,up=5,down=7,right=15},
-		{x=290,y=430,w=160,h=45,rgb=color.white,t=function()return setting.key[7]end,code=function()keysetting,gamepadsetting=7 end,up=6,down=8,right=16},
-		{x=290,y=490,w=160,h=45,rgb=color.white,t=function()return setting.key[8]end,code=function()keysetting,gamepadsetting=8 end,up=7,down=9,right=17},
-		{x=290,y=550,w=160,h=45,rgb=color.white,t=function()return setting.key[9]end,code=function()keysetting,gamepadsetting=9 end,up=8,down=27,right=18},
-		--1~9
-		{x=540,y=70 ,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[1]end,code=function()gamepadsetting,keysetting=1 end,up=10,down=11,left=1,right=19},
-		{x=540,y=130,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[2]end,code=function()gamepadsetting,keysetting=2 end,up=10,down=12,left=2,right=19},
-		{x=540,y=190,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[3]end,code=function()gamepadsetting,keysetting=3 end,up=11,down=13,left=3,right=23},
-		{x=540,y=250,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[4]end,code=function()gamepadsetting,keysetting=4 end,up=12,down=14,left=4,right=23},
-		{x=540,y=310,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[5]end,code=function()gamepadsetting,keysetting=5 end,up=13,down=15,left=5,right=28},
-		{x=540,y=370,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[6]end,code=function()gamepadsetting,keysetting=6 end,up=14,down=16,left=6,right=28},
-		{x=540,y=430,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[7]end,code=function()gamepadsetting,keysetting=7 end,up=15,down=17,left=7,right=28},
-		{x=540,y=490,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[8]end,code=function()gamepadsetting,keysetting=8 end,up=16,down=18,left=8,right=28},
-		{x=540,y=550,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[9]end,code=function()gamepadsetting,keysetting=9 end,up=17,down=27,left=9,right=28},
-		--10~18
-		{x=745,y=90,w=40,h=40,rgb=color.white,t="-",code=function()setting.das=(setting.das-1)%31 end,hold=true,left=10,right=20,down=23},
-		{x=910,y=90,w=40,h=40,rgb=color.white,t="+",code=function()setting.das=(setting.das+1)%31 end,hold=true,left=19,right=21,down=24},
-		{x=960,y=90,w=40,h=40,rgb=color.white,t="-",code=function()setting.arr=(setting.arr-1)%16 end,hold=true,left=20,right=22,down=25},
-		{x=1125,y=90,w=40,h=40,rgb=color.white,t="+",code=function()setting.arr=(setting.arr+1)%16 end,hold=true,left=21,down=26},
-		--19~22
-		{x=745,y=150,w=40,h=40,rgb=color.white,t="-",code=function()setting.sddas=(setting.sddas-1)%11 end,hold=true,up=19,down=28,left=10,right=24},
-		{x=910,y=150,w=40,h=40,rgb=color.white,t="+",code=function()setting.sddas=(setting.sddas+1)%11 end,hold=true,up=20,down=28,left=23,right=25},
-		{x=960,y=150,w=40,h=40,rgb=color.white,t="-",code=function()setting.sdarr=(setting.sdarr-1)%6 end,hold=true,up=21,down=28,left=24,right=26},
-		{x=1125,y=150,w=40,h=40,rgb=color.white,t="+",code=function()setting.sdarr=(setting.sdarr+1)%4 end,hold=true,up=22,down=28,left=25},
-		--23~26
-		{x=405,y=630,w=130,h=60,rgb=color.white,t="Reset",code=function()for i=1,#setting.key do setting.key[i]=gameEnv0.key[i] end end,up=9,right=28},
-		{x=840,y=630,w=180,h=60,rgb=color.white,t="Back",code=function()keysetting=nil;back()end,up=9,left=27},
-		--27~28
-	},
-	help={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()back()end},
-	},
-	stat={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()back()end},
-	},
-	sel=nil,--selected button Obj
-	pressing=0,--pressing time
-}
-for k,v in pairs(Buttons)do
-	if type(v)=="table"then
-		for i=1,#v do
-			v[i].alpha=0
-		end
-	end
-end
-
-gamePad={
-	{x=0,y=0,r=60},--moveLeft
-	{x=0,y=0,r=60},--moveRight
-	{x=0,y=0,r=60},--rotLeft
-	{x=0,y=0,r=60},--rotRight
-	{x=0,y=0,r=60},--rotFlip
-	{x=0,y=0,r=60},--hardDrop
-	{x=0,y=0,r=60},--softDrop
-	{x=0,y=0,r=60},--hold
-	{x=0,y=0,r=60},--restart
-	{x=0,y=0,r=60},--toLeft
-	{x=0,y=0,r=60},--toRight
-	{x=0,y=0,r=60},--toDown
-}
-for i=1,#gamePad do
-	gamePad[i].press=false
-	gamePad[i].r=gamePad[i].r^2
-end

call&sys.lua

@@ -0,0 +1,777 @@
+local gc,tm=love.graphics,love.timer
+local ms,kb,tc=love.mouse,love.keyboard,love.touch
+local wd=love.window
+local setFont=setFont
+local Timer=tm.getTime
+
+local scr=scr
+local xOy=love.math.newTransform()
+local focus=true
+local mx,my,mouseShow=-20,-20,false
+local touching=nil--1st touching ID
+
+local sceneInit={
+	load=function()
+		loading=1--Loading mode
+		loadnum=1--Loading counter
+		loadprogress=0--Loading bar(0~1)
+		loadTip=text.tips[rnd(#text.tips)]
+	end,
+	intro=function()
+		count=0
+		BGM("blank")
+	end,
+	main=function()
+		collectgarbage()
+	end,
+	mode=function()
+		curBG="none"
+		saveData()
+		modeSel=modeSel or 1
+		levelSel=levelSel or 3
+		BGM("blank")
+	end,
+	custom=function()
+		optSel=optSel or 1
+		curBG="matrix"
+		BGM("blank")
+	end,
+	draw=function()
+		kb.setKeyRepeat(true)
+		clearSureTime=0
+		pen=1
+		sx,sy=1,1
+	end,
+	play=function()
+		if needResetGameData then
+			resetGameData()
+			needResetGameData=nil
+		end
+	end,
+	pause=function()
+	end,
+	setting=function()
+		curBG="none"
+	end,
+	setting2=function()
+		curBoard=1
+		keyboardSet=1
+		joystickSet=1
+		keyboardSetting=false
+		joystickSetting=false
+	end,--Control settings
+	setting3=function()
+		curBG="game1"
+		defaultSel=1
+		sel=nil
+		snapLevel=1
+	end,--Touch setting
+	help=function()
+	end,
+	stat=function()
+	end,
+	quit=function()
+		love.event.quit()
+	end,
+}
+
+BGblockList={}for i=1,16 do BGblockList[i]={v=0}end
+local BGblock={tm=150,next=7,ct=0}
+local function getNewBlock()
+	BGblock.ct=BGblock.ct+1
+	if BGblock.ct==17 then BGblock.ct=1 end
+	local t=BGblockList[BGblock.ct]
+	t.bn,t.size=BGblock.next,2+3*rnd()
+	t.b=blocks[t.bn][rnd(0,3)]
+	t.x=rnd(-#t.b[1]*t.size*30+100,1180)
+	t.y=-#t.b*30*t.size
+	t.v=t.size*(1+rnd())
+	BGblock.next=BGblock.next%7+1
+	return t
+end
+local scs={{1,2},nil,nil,nil,nil,{1.5,1.5},{0.5,2.5}}for i=2,5 do scs[i]=scs[1]end
+
+function onVirtualkey(x,y)
+	local d2,nearest,distance
+	for K=1,#virtualkey do
+		local b=virtualkey[K]
+		d2=(x-b[1])^2+(y-b[2])^2
+		if d2<b[3]then
+			if not nearest or d2<distance then
+				nearest,distance=K,d2
+			end
+		end
+	end
+	return nearest
+end
+function buttonControl_key(i)
+	if i=="up"or i=="down"or i=="left"or i=="right"then
+		if Buttons.sel then
+			Buttons.sel=Buttons[scene][Buttons.sel[i]]or Buttons.sel
+		else
+			Buttons.sel=select(2,next(Buttons[scene]))
+			mouseShow=false
+		end
+	elseif i=="space"or i=="return"then
+		if not sceneSwaping and Buttons.sel then
+			Buttons.sel.alpha=1
+			Buttons.sel.code()
+			sysSFX("button")
+		end
+	end
+end
+function buttonControl_gamepad(i)
+	if i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
+		if Buttons.sel then
+			Buttons.sel=Buttons[scene][Buttons.sel[i=="dpup"and"up"or i=="dpdown"and"down"or i=="dpleft"and"left"or"right"]]or Buttons.sel
+		else
+			Buttons.sel=select(2,next(Buttons[scene]))
+			mouseShow=false
+		end
+	elseif i=="start"then
+		if not sceneSwaping and Buttons.sel then
+			Buttons.sel.alpha=1
+			Buttons.sel.code()
+			sysSFX("button")
+		end
+	end
+	mouseShow=false
+end
+
+mouseDown={}
+function mouseDown.intro(x,y,k)
+	if k==2 then
+		back()
+	else
+		gotoScene("main")
+	end
+end
+function mouseDown.draw(x,y,k)
+	mouseMove.draw(x,y)
+end
+function mouseDown.setting3(x,y,k)
+	if k==2 then back()end
+	for K=1,#virtualkey do
+		local b=virtualkey[K]
+		if (x-b[1])^2+(y-b[2])^2<b[3]then
+			sel=K
+		end
+	end
+end
+mouseMove={}
+function mouseMove.draw(x,y,dx,dy)
+	sx,sy=int((x-200)/30)+1,20-int((y-60)/30)
+	if sx<1 or sx>10 then sx=nil end
+	if sy<1 or sy>20 then sy=nil end
+	if sx and sy and ms.isDown(1,2)then
+		preField[sy][sx]=ms.isDown(1)and pen or 0
+	end
+end
+function mouseMove.setting3(x,y,dx,dy)
+	if sel and ms.isDown(1)then
+		local b=virtualkey[sel]
+		b[1],b[2]=b[1]+dx,b[2]+dy
+	end
+end
+mouseUp={}
+function mouseUp.setting3(x,y,k)
+	if sel then
+		local b=virtualkey[sel]
+		local k=snapLevelValue[snapLevel]
+		b[1],b[2]=int(b[1]/k+.5)*k,int(b[2]/k+.5)*k
+	end
+end
+wheelmoved={}
+function wheelmoved.draw(x,y)
+	if y<0 then
+		pen=pen+1
+		if pen==8 then pen=9 elseif pen==14 then pen=0 end
+	else
+		pen=pen-1
+		if pen==8 then pen=7 elseif pen==-1 then pen=13 end
+	end
+end
+function wheelmoved.mode(x,y)
+	modeSel=min(max(modeSel+(y>0 and -1 or 1),1),#modeID)
+	levelSel=ceil(#modeLevel[modeID[modeSel]]*.5)
+end
+touchDown={}
+function touchDown.intro(id,x,y)
+	gotoScene("main")
+end
+function touchDown.draw(id,x,y)
+end
+function touchDown.setting3(id,x,y)
+	for K=1,#virtualkey do
+		local b=virtualkey[K]
+		if (x-b[1])^2+(y-b[2])^2<b[3]then
+			sel=K
+		end
+	end
+end
+function touchDown.play(id,x,y)
+	if setting.virtualkeySwitch then
+		local t=onVirtualkey(x,y)
+		if t then
+			pressKey(t,players[1])
+		end
+	end
+end
+touchUp={}
+function touchUp.setting3(id,x,y)
+	if sel then
+		x,y=xOy:inverseTransformPoint(x,y)
+		if sel then
+			local b=virtualkey[sel]
+			local k=snapLevelValue[snapLevel]
+			b[1],b[2]=int(b[1]/k+.5)*k,int(b[2]/k+.5)*k
+		end
+	end
+end
+function touchUp.play(id,x,y)
+	if setting.virtualkeySwitch then
+		local t=onVirtualkey(x,y)
+		if t then
+			releaseKey(t,players[1])
+		end
+	end
+end
+touchMove={}
+function touchMove.setting3(id,x,y,dx,dy)
+	if sel then
+		local b=virtualkey[sel]
+		b[1],b[2]=b[1]+dx,b[2]+dy
+	end
+end
+function touchMove.draw(id,x,y,dx,dy)
+	sx,sy=int((x-200)/30)+1,20-int((y-60)/30)
+	if sx<1 or sx>10 then sx=nil end
+	if sy<1 or sy>20 then sy=nil end
+	if sx and sy then
+		preField[sy][sx]=pen
+	end
+end
+function touchMove.play(id,x,y,dx,dy)
+	if setting.virtualkeySwitch then
+		local l=tc.getTouches()
+		for n=1,#virtualkey do
+			local b=virtualkey[n]
+			for i=1,#l do
+				local x,y=xOy:inverseTransformPoint(tc.getPosition(l[i]))
+				if(x-b[1])^2+(y-b[2])^2<=b[3]then goto L end
+			end
+			releaseKey(n,players[1])
+			::L::
+		end
+	end
+end
+keyDown={}
+function keyDown.intro(key)
+	if key=="escape"then
+		back()
+	else
+		gotoScene("main")
+	end
+end
+function keyDown.mode(key)
+	if key=="down"then
+		if modeSel<#modeID then
+			modeSel=modeSel+1
+			levelSel=ceil(#modeLevel[modeID[modeSel]]*.5)
+		end
+	elseif key=="up"then
+		if modeSel>1 then
+			modeSel=modeSel-1
+			levelSel=ceil(#modeLevel[modeID[modeSel]]*.5)
+		end
+	elseif key=="left"then
+		if levelSel>1 then
+			levelSel=levelSel-1
+		end
+	elseif key=="right"then
+		if levelSel<#modeLevel[modeID[modeSel]]then
+			levelSel=levelSel+1
+		end
+	elseif key=="return"then
+		loadGame(modeSel,levelSel)
+	elseif key=="c"then
+		gotoScene("custom")
+	elseif key=="escape"then
+		back()
+	end
+end
+function keyDown.custom(key)
+	if key=="left"then
+		local k=customID[optSel]
+		customSel[k]=(customSel[k]-2)%#customRange[k]+1
+	elseif key=="right"then
+		local k=customID[optSel]
+		customSel[k]=customSel[k]%#customRange[k]+1
+	elseif key=="down"then
+		optSel=optSel%#customID+1
+	elseif key=="up"then
+		optSel=(optSel-2)%#customID+1
+	elseif key=="d"then
+		gotoScene("draw")
+	elseif key=="return"then
+		loadGame(0,1)
+	elseif key=="space"then
+		loadGame(0,2)
+	elseif key=="escape"then
+		back()
+	end
+end
+function keyDown.draw(key)
+	if key=="delete"then
+		Buttons.draw.clear.code()
+	elseif key=="up"or key=="down"or key=="left"or key=="right"then
+		if not sx then sx=1 end
+		if not sy then sy=1 end
+		if key=="up"and sy<20 then sy=sy+1
+		elseif key=="down"and sy>1 then sy=sy-1
+		elseif key=="left"and sx>1 then sx=sx-1
+		elseif key=="right"and sx<10 then sx=sx+1
+		end
+		if kb.isDown("space")then
+			preField[sy][sx]=pen
+		end
+	elseif key=="space"then
+		if sx and sy then
+			preField[sy][sx]=pen
+		end
+	elseif key=="backspace"then
+		pen=0
+	elseif key=="escape"then
+		back()
+	else
+		pen=find("123qwea#sdzxc",key)or pen
+	end
+end
+function keyDown.setting2(key)
+	if key=="escape"then
+		if keyboardSetting then
+			keyboardSetting=false
+		else
+			back()
+		end
+	elseif keyboardSetting then
+		for l=1,8 do
+			for y=1,13 do
+				if setting.keyMap[l][y]==key then
+					setting.keyMap[l][y]=""
+				end
+			end
+		end
+		setting.keyMap[curBoard][keyboardSet]=key
+		keyboardSetting=false
+	elseif key=="return"then
+		keyboardSetting=true
+	elseif key=="up"then
+		keyboardSet=max(keyboardSet-1,1)
+	elseif key=="down"then
+		keyboardSet=min(keyboardSet+1,13)
+	elseif key=="left"then
+		curBoard=max(curBoard-1,1)
+	elseif key=="right"then
+		curBoard=min(curBoard+1,8)
+	end
+end
+function keyDown.play(key)
+	if key=="escape"and not sceneSwaping then
+		return(frame<180 and back or pauseGame)()
+	end
+	local m=setting.keyMap
+	for p=1,human do
+		local lib=setting.keyLib[p]
+		for s=1,#lib do
+			for k=1,12 do
+				if key==m[lib[s]][k]then
+					pressKey(k,players[p])
+					return
+				end
+			end
+		end
+	end
+end
+function keyDown.pause(key)
+	if key=="escape"then
+		back()
+	elseif key=="return"or key=="space"then
+		resumeGame()
+	end
+end
+keyUp={}
+function keyUp.play(key)
+	local m=setting.keyMap
+	for p=1,human do
+		local lib=setting.keyLib[p]
+		for s=1,#lib do
+			for k=1,12 do
+				if key==m[lib[s]][k]then
+					releaseKey(k,players[p])
+					return
+				end
+			end
+		end
+	end
+end
+gamepadDown={}
+function gamepadDown.intro(key)
+	if key=="back"then
+		back()
+	else
+		gotoScene("main")
+	end
+end
+function gamepadDown.mode(key)
+	if key=="dpdown"then
+		if modeSel<#modeID then modeSel=modeSel+1 end
+	elseif key=="dpup"then
+		if modeSel>1 then modeSel=modeSel-1 end
+	elseif key=="start"then
+		loadGame(modeSel,levelSel)
+	elseif key=="back"then
+		back()
+	end
+end
+function gamepadDown.setting2(key)
+	if key=="back"then
+		if joystickSetting then
+			joystickSetting=false
+		else
+			back()
+		end
+	elseif joystickSetting then
+		for l=9,16 do
+			for y=1,12 do
+				if setting.keyMap[l][y]==key then
+					setting.keyMap[l][y]=""
+				end
+			end
+		end
+		setting.keyMap[8+curBoard][joystickSet]=key
+		joystickSetting=false
+	elseif key=="start"then
+		joystickSetting=true
+	elseif key=="up"then
+		joystickSet=max(joystickSet-1,1)
+	elseif key=="down"then
+		joystickSet=min(joystickSet+1,12)
+	elseif key=="left"then
+		curBoard=max(curBoard-1,1)
+	elseif key=="right"then
+		curBoard=min(curBoard+1,8)
+	end
+end
+function gamepadDown.play(key)
+	if key=="back"then back()return end
+	local m=setting.keyMap
+	for p=1,4 do
+		local lib=setting.keyLib[p]
+		for s=1,#lib do
+			for k=1,12 do
+				if key==m[8+lib[s]][k]then
+					pressKey(k,players[p])
+					return
+				end
+			end
+		end
+	end
+end
+gamepadUp={}
+function gamepadUp.play(key)
+	local m=setting.keyMap
+	for p=1,4 do
+		local lib=setting.keyLib[p]
+		for s=1,#lib do
+			for k=1,12 do
+				if key==m[8+lib[s]][k]then
+					releaseKey(k,players[p])
+					return
+				end
+			end
+		end
+	end
+end
+
+
+function love.mousepressed(x,y,k,t,num)
+	if t then return end
+	mouseShow=true
+	mx,my=xOy:inverseTransformPoint(x,y)
+	if mouseDown[scene]then
+		mouseDown[scene](mx,my,k)
+	elseif k==2 then
+		back()
+	end
+	if k==1 then
+		if not sceneSwaping and Buttons.sel then
+			local B=Buttons.sel
+			B.code()
+			B.alpha=1
+			Buttons.sel=nil
+			love.mousemoved(x,y,0,0)
+			sysSFX("button")
+			VIB(1)
+		end
+	end
+end
+function love.mousemoved(x,y,dx,dy,t)
+	if t then return end
+	mouseShow=true
+	mx,my=xOy:inverseTransformPoint(x,y)
+	Buttons.sel=nil
+	if mouseMove[scene]then
+		mouseMove[scene](mx,my,dx/scr.k,dy/scr.k)
+	end
+	for _,B in next,Buttons[scene]do
+		if not(B.hide and B.hide())then
+			if abs(mx-B.x)<B.w*.5 and abs(my-B.y)<B.h*.5 then
+				Buttons.sel=B
+				return
+			end
+		end
+	end
+end
+function love.mousereleased(x,y,k,t,num)
+	if t then return end
+	mx,my=xOy:inverseTransformPoint(x,y)
+	if mouseUp[scene]then
+		mouseUp[scene](mx,my,k)
+	end
+end
+function love.wheelmoved(x,y)
+	if wheelmoved[scene]then wheelmoved[scene](x,y)end
+end
+
+function love.touchpressed(id,x,y)
+	if not touching then
+		touching=id
+		love.touchmoved(id,x,y,0,0)
+		mouseShow=false
+	end
+	if touchDown[scene]then
+		touchDown[scene](id,xOy:inverseTransformPoint(x,y))
+	end
+end
+function love.touchreleased(id,x,y)
+	if id==touching then
+		touching=nil
+		if Buttons.sel then
+			local B=Buttons.sel
+			B.code()
+			B.alpha=1
+			Buttons.sel=nil
+			sysSFX("button")
+			VIB(1)
+		end
+		Buttons.sel=nil
+		mouseShow=false
+	end
+	if touchUp[scene]then
+		touchUp[scene](id,xOy:inverseTransformPoint(x,y))
+	end
+end
+function love.touchmoved(id,x,y,dx,dy)
+	x,y=xOy:inverseTransformPoint(x,y)
+	if touchMove[scene]then
+		touchMove[scene](id,x,y,dx/scr.k,dy/scr.k)
+	end
+	Buttons.sel=nil
+	for _,B in next,Buttons[scene]do
+		if not(B.hide and B.hide())then
+			if abs(x-B.x)<B.w*.5 and abs(y-B.y)<B.h*.5 then
+				Buttons.sel=B
+				return
+			end
+		end
+	end
+	if not Buttons.sel then
+		touching=nil
+	end
+end
+
+function love.keypressed(i)
+	if i=="f8"then devMode=not devMode end
+	if devMode then
+		if i=="k"then
+			P=players.alive[rnd(#players.alive)]
+			Event_gameover.lose()
+			--Test code here
+		elseif i=="q"then
+			for k,B in next,Buttons[scene]do
+				print(format("x=%d,y=%d,w=%d,h=%d",B.x,B.y,B.w,B.h))
+			end
+		elseif i=="s"then
+			print(scr.x,scr.y,scr.w,scr.h,scr.k)
+		elseif Buttons.sel then
+			local B=Buttons.sel
+			if i=="left"then B.x=B.x-10
+			elseif i=="right"then B.x=B.x+10
+			elseif i=="up"then B.y=B.y-10
+			elseif i=="down"then B.y=B.y+10
+			elseif i==","then B.w=B.w-10
+			elseif i=="."then B.w=B.w+10
+			elseif i=="/"then B.h=B.h-10
+			elseif i=="'"then B.h=B.h+10
+			end
+		end
+	else
+		if keyDown[scene]then keyDown[scene](i)
+		elseif i=="escape"or i=="back"then back()
+		else buttonControl_key(i)
+		end
+	end
+	mouseShow=false
+end
+function love.keyreleased(i)
+	if keyUp[scene]then keyUp[scene](i)
+	end
+end
+
+function love.gamepadpressed(joystick,i)
+	if gamepadDown[scene]then return gamepadDown[scene](i)
+	elseif i=="back"then back()
+	else buttonControl_gamepad(i)
+	end
+	mouseShow=false
+end
+function love.gamepadreleased(joystick,i)
+	if gamepadUp[scene]then gamepadUp[scene](i)
+	end
+end
+--[[
+function love.joystickpressed(js,k)end
+function love.joystickaxis(js,axis,valend
+function love.joystickhat(js,hat,dirend
+function love.sendData(data)end
+function love.receiveData(id,data)end
+]]
+function love.lowmemory()
+	collectgarbage()
+end
+function love.resize(w,h)
+	scr.w,scr.h,scr.r=w,h,h/w
+	if scr.r>=.5625 then
+		scr.k=w/1280
+		scr.x,scr.y=0,(h-w*9/16)*.5
+	else
+		scr.k=h/720
+		scr.x,scr.y=(w-h*16/9)*.5,0
+	end
+	xOy=xOy:setTransformation(w*.5,h*.5,nil,scr.k,nil,640,360)
+	gc.replaceTransform(xOy)
+	collectgarbage()
+end
+function love.focus(f)
+	if not f and wd.isMinimized()and scene=="play"then pauseGame()end
+end
+function love.update(dt)
+	--[[
+	if players then
+		for k,v in pairs(players[1])do
+			if rawget(_G,k)and k~="next"and k~="hold"and k~="stat"then print(k,_G[v])end
+		end
+	end--check player data flew(debugging)
+	]]
+	for i=#BGblock,1,-1 do
+		BGblock[i].y=BGblock[i].y+BGblock[i].v
+		if BGblock[i].y>720 then rem(BGblock,i)end
+	end
+	if setting.bgblock then
+		BGblock.tm=BGblock.tm-1
+		if BGblock.tm==0 then
+			ins(BGblock,getNewBlock())
+			BGblock.tm=rnd(20,30)
+		end
+	end
+	if sceneSwaping then
+		sceneSwaping.time=sceneSwaping.time-1
+		if sceneSwaping.time==sceneSwaping.mid then
+			for k,B in next,Buttons[scene]do
+				B.alpha=0
+			end--Reset buttons' alpha
+			scene=sceneSwaping.tar
+			sceneInit[scene]()
+			Buttons.sel=nil
+		elseif sceneSwaping.time==0 then
+			sceneSwaping=nil
+		end
+	end
+	if Tmr[scene]then
+		Tmr[scene](dt)
+	end
+	for i=#Task,1,-1 do
+		Task[i]:update()
+	end
+	updateButton()
+end
+function love.draw()
+	gc.discard()--SPEED UPUPUP!
+	Pnt.BG[setting.bg and curBG or"grey"]()
+	gc.setColor(1,1,1,.2)
+	for n=1,#BGblock do
+		local b,img=BGblock[n].b,blockSkin[BGblock[n].bn]
+		local size=BGblock[n].size
+		for i=1,#b do for j=1,#b[1]do
+			if b[i][j]then
+				gc.draw(img,BGblock[n].x+(j-1)*30*size,BGblock[n].y+(i-1)*30*size,nil,size)
+			end
+		end end
+	end
+	if Pnt[scene]then Pnt[scene]()end
+	drawButton()
+	if mouseShow and not touching then
+		local r=Timer()*.5
+		gc.setColor(1,1,1,min(1-abs(1-r%1*2),.3))
+		r=int(r)%7+1
+		gc.draw(mouseBlock[r],mx,my,Timer()%pi*4,20,20,scs[r][2]-.5,#blocks[r][0]-scs[r][1]+.5)
+		gc.setColor(1,1,1,.5)gc.circle("fill",mx,my,5)
+		gc.setColor(1,1,1)gc.circle("fill",mx,my,3)
+	end
+	if sceneSwaping then sceneSwaping.draw()end
+
+	if scr.r~=.5625 then
+		gc.setColor(0,0,0)
+		if scr.r>.5625 then
+			local d=(scr.h-scr.w*9/16)*.5/scr.k
+			gc.rectangle("fill",0,0,1280,-d)
+			gc.rectangle("fill",0,720,1280,d)
+		else--high
+			local d=(scr.w-scr.h*16/9)*.5/scr.k
+			gc.rectangle("fill",0,0,-d,720)
+			gc.rectangle("fill",1280,0,d,720)
+		end--wide
+	end
+	setFont(20)gc.setColor(1,1,1)
+	gc.print(tm.getFPS(),5,700)
+	if devMode then
+		gc.print(gcinfo(),5,680)
+		gc.print(#freeRow or 0,5,660)
+	end
+end
+function love.run()
+	local frameT=Timer()
+	local readyDrawFrame=0
+	love.resize(gc.getWidth(),gc.getHeight())
+	scene="load"sceneInit.load()--System Launch
+	return function()
+		love.event.pump()
+		for name,a,b,c,d,e,f in love.event.poll()do
+			if name=="quit"then return 0 end
+			if love[name]then love[name](a,b,c,d,e,f)end
+		end
+		tm.step()
+		-- love.receiveData(id,data)
+		love.update(tm.getDelta())
+		readyDrawFrame=readyDrawFrame+setting.frameMul
+		if readyDrawFrame>=100 then
+			readyDrawFrame=readyDrawFrame-100
+			love.draw()
+			gc.present()
+		end
+		::L::if Timer()-frameT<1/60 then goto L end
+		frameT=Timer()
+		tm.sleep(.001)
+	end
+end

class.lua

@@ -0,0 +1,44 @@
+Task={}
+metatable_task={__index=Task}
+function newTask(code,P,data)
+	local obj={
+		code=code,
+		P=P,
+		data=data,
+	}
+	setmetatable(obj,metatable_task)
+	ins(Task,obj)
+end
+function clearTask(opt)
+	if opt=="all"then
+		while Task[1]do
+			rem(Task,i)
+		end
+	elseif opt=="play"then
+		for i=#Task,1,-1 do
+			if Task[i].P then
+				rem(Task,i)
+			end
+		end
+	else--Player table
+		for i=#Task,1,-1 do
+			if Task[i].P==P then
+				rem(Task,i)
+			end
+		end
+	end
+end
+function Task:update()
+	if(not self.P or self.P and scene=="play")and self.code(self.P,self.data)then
+		self:destroy()
+		return nil
+	end
+end
+function Task:destroy()
+	for i=#Task,1,-1 do
+		if Task[i]==self then
+			rem(Task,i)
+			return nil
+		end
+	end
+end

conf.lua

@@ -1,49 +1,48 @@
 function love.conf(t)
-    local X=nil
+	local X=nil
-    t.identity="Techmino"--The name of the save directory (string)
+	t.identity="Techmino"--Save directory name
-    t.appendidentity=X--Search files in source directory before save directory (boolean)
+	t.appendidentity=X--If search files in source before save directory
-    t.version="11.1"
+	t.version="11.1"
-    t.console=X
+	t.console=X
-    t.accelerometerjoystick=X--Enable the accelerometer on iOS and Android by exposing it as a Joystick (boolean)
+	t.accelerometerjoystick=X--If exposing accelerometer on iOS and Android as a Joystick
-    t.externalstorage=X
+	t.gammacorrect=X
-    t.gammacorrect=true
+	t.audio.mixwithsystem=true--Switch on to keep sysBGM
-    -- t.audio.mixwithsystem=true--Keep background music playing when opening LOVE (boolean, iOS and Android only)
 
-    t.window.title="Techmino Alpha"
+	local W=t.window
-    t.window.icon="/image/icon.png"
+	W.title="Techmino V0.7.17"
-    t.window.width=1280
+	W.icon="/image/icon.png"
-    t.window.height=720
+	W.width,W.height=1280,720
-    t.window.borderless=X
+	W.minwidth,W.minheight=640,360
-    t.window.resizable=true
+	W.borderless=X
-    t.window.minwidth=640
+	W.resizable=true
-    t.window.minheight=360
+	W.fullscreentype="desktop"--Choose between "desktop" fullscreen or "exclusive" fullscreen mode (string)
-    t.window.fullscreen=X
+	W.fullscreen=X
-    t.window.fullscreentype="desktop"--Choose between "desktop" fullscreen or "exclusive" fullscreen mode (string)
+	W.vsync=0--0→∞fps
-    t.window.vsync=1
+	W.msaa=X--The number of samples to use with multi-sampled antialiasing (number)
-    t.window.msaa=X--The number of samples to use with multi-sampled antialiasing (number)
+	W.depth=X--Bits per sample in the depth buffer
-    t.window.depth=X--The number of bits per sample in the depth buffer
+	W.stencil=1--The number of bits per sample in the stencil buffer
-    t.window.stencil=1--The number of bits per sample in the stencil buffer
+	W.display=1--Monitor ID
-    t.window.display=1--Monitor ID
+	W.highdpi=X--Enable high-dpi mode for the window on a Retina display (boolean)
-    t.window.highdpi=X--Enable high-dpi mode for the window on a Retina display (boolean)
+	W.x,W.y=nil
-    t.window.x=nil
-    t.window.y=nil
 
-    t.modules.window=true
+	local M=t.modules
-    t.modules.system=true
+	M.window=true
-    t.modules.audio=true
+	M.system=true
-    t.modules.data=true
+	M.audio=true
-    t.modules.event=true
+	M.data=true
-    t.modules.font=true
+	M.event=true
-    t.modules.graphics=true
+	M.font=true
-    t.modules.image=true
+	M.graphics=true
-    t.modules.joystick=true
+	M.image=true
-    t.modules.keyboard=true
+	M.joystick=true
-    t.modules.math=true
+	M.keyboard=true
-    t.modules.mouse=true
+	M.math=true
-    t.modules.sound=true
+	M.mouse=true
-    t.modules.timer=true
+	M.sound=true
-    t.modules.touch=true
+	M.timer=true
-    t.modules.physics=X
+	M.touch=true
-    t.modules.thread=X
+
-    t.modules.video=X
+	M.physics=X
+	M.thread=X
+	M.video=X
 end

control.lua

@@ -1,127 +0,0 @@
-function buttonControl_key(i)
-	mouseShow=false
-	if i=="up"or i=="down"or i=="left"or i=="right"then
-		if not Buttons.sel then
-			Buttons.sel=1
-		else
-			Buttons.sel=Buttons[scene][Buttons.sel][i]or Buttons.sel
-		end
-	elseif i=="space"or i=="return"then
-		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			B.code()
-			B.alpha=1
-			sysSFX("button")
-		end
-	end
-end
-function buttonControl_gamepad(i)
-	if i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
-		
-		if not Buttons.sel then
-			Buttons.sel=1
-			mouseShow=false
-		else
-			Buttons.sel=Buttons[scene][Buttons.sel][i=="dpup"and"up"or i=="dpdown"and"down"or i=="dpleft"and"left"or"right"]or Buttons.sel
-		end
-	elseif i=="start"then
-		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			if B.hold then Buttons.pressing=max(Buttons.pressing,1)end
-			B.code()
-			B.alpha=1
-			sysSFX("button")
-		end
-	end
-end
-
-function love.mousemoved(x,y)
-	mouseShow=true
-	mx,my=mouseConvert(x,y)
-	Buttons.sel=nil
-	for i=1,#Buttons[scene]do
-		local B=Buttons[scene][i]
-		if not(B.hide and B.hide())then
-			if abs(mx-B.x)<B.w*.5 and abs(my-B.y)<B.h*.5 then
-				Buttons.sel=i
-				return nil
-			end
-		end
-	end
-	if not Buttons.sel then Buttons.pressing=0 end
-end
-function love.mousepressed(x,y,k)
-	mouseShow=true
-	mx,my=mouseConvert(x,y)
-	if mouseDown[scene]then mouseDown[scene](mx,my,k)end
-	if k==1 then
-		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			if B.hold then Buttons.pressing=max(Buttons.pressing,1)end
-			B.code()
-			B.alpha=1
-			Buttons.sel=nil
-			love.mousemoved(x,y)
-			sysSFX("button")
-		end
-	elseif k==3 then
-		back()
-	end
-end
-function love.mousereleased(x,y,k)
-	Buttons.pressing=0
-end
-
-function love.touchpressed(id,x,y)
-	ins(touches,id)
-end
-function love.touchrealeased(id,x,y)
-	for i=1,#touches do
-		if touches[i]==id then rem(touches,i)break end
-	end
-end
-function love.touchmoved(id,x,y,dx,dy)
-end
-
-function love.keypressed(i)
-	if keyDown[scene]then keyDown[scene](i)
-	elseif i=="escape"then back()
-	else buttonControl_key(i)
-	end
-end
-function love.keyreleased(i)
-	if keyUp[scene]then keyUp[scene](i)
-	end
-end
-
-function love.gamepadpressed(joystick,i)
-	if scene~="play"or scene=="setting2"and not gamepadsetting then
-		if i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
-			if not Buttons.sel then
-				Buttons.sel=1
-				mouseShow=false
-			else
-				Buttons.sel=Buttons[scene][Buttons.sel][i]or Buttons.sel
-			end
-		elseif i=="start"then
-			if not sceneSwaping and Buttons.sel then
-				local B=Buttons[scene][Buttons.sel]
-				if B.hold then Buttons.pressing=max(Buttons.pressing,1)end
-				B.code()
-				B.alpha=1
-				sysSFX("button")
-			end
-		end
-	end
-	if gamepadDown[scene]then return gamepadDown[scene](i)
-	elseif i=="back"then return back()
-	end
-end
-function love.gamepadreleased(joystick,i)
-	if gamepadUp[scene]then gamepadUp[scene](i)
-	end
-end
-
-function love.wheelmoved(x,y)
-	if wheelmoved[scene]then wheelmoved[scene](x,y)end
-end

game_scene.lua

@@ -1,56 +0,0 @@
-game={}
-function game.load()
-	scene="load"
-	curBG="none"
-	mouseShow=true
-	loading=1--Loading mode
-	loadnum=1--Loading counter
-	loadprogress=0--Loading bar
-end
-function game.intro()
-	scene="intro"
-	curBG="none"
-	mouseShow=true
-end
-function game.main()
-	scene="main"
-	curBG="none"
-	mouseShow=true
-	BGM("blank")
-end
-function game.mode()
-	scene="mode"
-	curBG="none"
-	mouseShow=true
-	BGM("blank")
-end
-function game.play()
-	scene="play"
-	--curBG="game1"
-	resetGameData()
-	sysSFX("ready")
-end
-function game.setting()
-	scene="setting"
-	curBG="none"
-	BGM("blank")
-end
-function game.setting2()
-	scene="setting2"
-	curBG="none"
-	keyssetting=nil
-	BGM("blank")
-end
-function game.help()
-	scene="help"
-	curBG="none"
-	BGM("blank")
-end
-function game.stat()
-	scene="stat"
-	curBG="none"
-	BGM("blank")
-end
-function game.quit()
-	love.event.quit()
-end

language/chi.lua

@@ -0,0 +1,239 @@
+return{
+	atkModeName={"随机","徽章","击杀","反击"},
+	royale_remain=function(n)return"剩余 "..n.." 名玩家"end,
+	cmb={nil,nil,"3 Combo","4 Combo","5 Combo","6 Combo","7 Combo","8 Combo","9 Combo","10 Combo!","11 Combo!","12 Combo!","13 Combo!","14 Combo!","15 Combo!","16 Combo!","17 Combo!","18 Combo!","19 Combo!","MEGACMB"},
+	techrash="Techrash",
+	techrashB2B="B2B Techrash",
+	techrashB3B="B2B2B Techrash",
+	block={"Z","S","L","J","T","O","I"},
+	clear={" single"," double"," triple"},
+	spin={"Z-spin","S-spin","L-spin","J-spin","T-spin","O-spin","I-spin"},
+	b2b="B2B ",b3b="B2B2B ",
+	mini="Mini",
+	PC="Perfect Clear",
+	hold="暂存",next="下一个",
+
+	stage={"关卡 1","关卡 2","关卡 3","关卡 4","关卡 5",},
+	maxspeed="最高速度",
+	speedup="速度加快",
+
+	win="胜利",
+	lose="失败",
+	pause="暂停",
+	finish="结束",
+	pauseTime="暂停时间",
+
+	custom="自定义游戏",
+	customOption={
+		drop="下落延迟:",
+		lock="锁定延迟:",
+		wait="放块延迟:",
+		fall="消行延迟:",
+		next="序列数量:",
+		hold="暂存:",
+		sequence="序列:",
+		visible="可见性:",
+		target="目标行数:",
+		freshLimit="锁延刷新次数:",
+		opponent="对手速度等级:",
+	},
+	customVal={
+		drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞","[20G]"},
+		lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞"},
+		wait=nil,
+		fall=nil,
+		next=nil,
+		hold={"开","关","无限"},
+		sequence={"bag7","his4","随机"},
+		visible={"可见","半隐","全隐","瞬隐"},
+		target={10,20,40,100,200,500,1000,"∞"},
+		freshLimit={0,8,15,"∞"},
+		opponent={"无电脑",1,2,3,4,5,6,7,8,9,10,11},
+	},
+	softdropdas="软降DAS:",
+	softdroparr="软降ARR:",
+	snapLevelName={"任意摆放","10px吸附","20px吸附","40px吸附","60px吸附","80px吸附"},
+	keyboard="键盘",joystick="手柄",
+	space="空格",enter="回车",
+	setting2Help="方向键选择/翻页,回车修改,esc返回",
+
+
+	actName={"左移:","右移:","顺时针旋转:","逆时针旋转:","180°旋转","硬降:","软降:","暂存:","功能键:","重新开始:","左瞬移:","右瞬移:","软降到底:"},
+	modeName={
+		[0]="自定义",
+		"竞速","马拉松","大师","经典","禅","无尽","单挑","仅TSD","隐形","挖掘","生存","科研",
+		"全清训练","全清挑战","41人混战","99人混战","干旱","多人",
+	},
+	modeInfo={
+		sprint="挑战世界纪录",
+		marathon="尝试坚持到最后",
+		master="成为方块大师",
+		classic="高速经典",
+		zen="无重力消除200行",
+		infinite="科研沙盒",
+		solo="打败AI",
+		tsd="尽可能做TSD",
+		blind="最强大脑",
+		dig="核能挖掘机",
+		survivor="防守练习",
+		tech="尽可能不要普通消除",
+		pctrain="熟悉全清定式的组合",
+		pcchallenge="100行内尽可能多PC",
+		techmino41="41人混战",
+		techmino99="99人混战",
+		drought="异常序列",
+		hotseat="友尽模式",
+	},
+
+	load={"加载材质ing","加载音乐ing","加载音效ing","加载完成",},
+	tips={
+		"不是动画，真的在加载!",
+		"整个游戏都是MrZ完成的!",
+		"大满贯10连击消四全清!",
+		"<方块研究所>有一个Nspire-CX版本!",
+		"B2B2B2B存在吗?",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O型回旋三清?",
+		"只用一个输入设备就可以游玩了",
+		"Miya:喵!",
+		"225238922,哔哩哔哩 干杯~",
+		"适度游戏益脑,沉迷游戏伤身,合理安排时间,享受健康生活",
+		"合群了就会消失，但是消失不代表没有意义",
+		"学会使用两个旋转键,三个更好",
+		"更小的DAS和ARR拥有更高的操作上限",
+		"注意到\"旋转\"到底对方块做了些什么吗?",
+		"20G是一套全新的游戏规则",
+		"不要在上课时玩游戏!",
+		"本游戏难度上限很高,做好心理准备",
+		"方块可以不是个休闲游戏",
+	},
+	stat={
+		"游戏运行次数:",
+		"游戏局数:",
+		"游戏时间:",
+		"总按键数:",
+		"总旋转数:",
+		"Hold次数:",
+		"方块使用数:",
+		"总消行数:",
+		"总攻击数:",
+		"总发送数:",
+		"总接收数:",
+		"总上涨数:",
+		"总消除数:",
+		"总Spin数:",
+		"总B2B数:",
+		"总PC数:",
+		"平均效率:",
+	},
+	help={
+		"好像也没啥好帮助的吧?就当是关于了",
+		"这只是一个方块游戏,请勿过度解读和随意联想",
+		"不过就当成TOP/C2/KOS/TGM3/JS玩好了",
+		"游戏还在测试阶段,请 勿 外 传",
+		"",
+		"使用LOVE2D引擎",
+		"作者:MrZ   邮箱:1046101471@qq.com",
+		"程序:MrZ  美术:MrZ  音乐:MrZ  音效:MrZ",
+		"使用工具:VScode,GFIE,Beepbox,Goldwave",
+		"特别感谢:Farter,Teatube,196,Flyz,T830,[所有测试人员]和 你!",
+		"错误或者建议请附带相关信息发送到作者邮箱~",
+	},
+	support="支持作者",
+	group="官方QQ群",
+	ButtonText={
+		main={
+			play="开始",
+			setting="设置",
+			stat="统计信息",
+			help="帮助",
+			quit="退出",
+		},
+		mode={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start="开始",
+			custom="自定义(C)",
+			back="返回",
+		},
+		custom={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start1="消除开始",
+			start2="拼图开始",
+			draw="画图(D)",
+			back="返回",
+		},
+		draw={
+			block1="■",
+			block2="■",
+			block3="■",
+			block4="■",
+			block5="■",
+			block6="■",
+			block7="■",
+			gb1="■",
+			gb2="■",
+			gb3="■",
+			gb4="■",
+			gb5="■",
+			erase="×",
+			clear="清空",
+			back="返回",
+		},
+		play={
+			pause="暂停",
+		},
+		pause={
+			resume="继续",
+			quit="退出",
+		},
+		setting={
+			ghost=function()return setting.ghost and"阴影:开"or"阴影:关"end,
+			center=function()return setting.center and"旋转中心:开"or"旋转中心:关"end,
+			grid=function()return setting.grid and"网格:开"or"网格:关"end,
+			swap=function()return setting.swap and"目标选择:组合键"or"目标选择:循环"end,
+			fxs=function()return setting.fxs and"特效:开"or"特效:关"end,
+			bg=function()return setting.bg and"背景:开"or"背景:关"end,
+			dasD="-",dasU="+",
+			arrD="-",arrU="+",
+			sddasD="-",sddasU="+",
+			sdarrD="-",sdarrU="+",
+			sfx=function()return setting.sfx and"音效:开"or"音效:关"end,
+			bgm=function()return setting.bgm and"音乐:开"or"音乐:关"end,
+			vib=function()return "震动强度:"..setting.vib end,
+			fullscreen=function()return setting.fullscreen and"全屏:开"or"全屏:关"end,
+			bgblock=function()return setting.bgblock and"背景动画:开"or"背景动画:关"end,
+			frame=function()return"绘制帧:"..setting.frameMul.."%"end,
+			control="控制设置",
+			touch="触摸设置",
+			lang=function()return langName[setting.lang]end,
+			back="保存&返回",
+		},
+		setting2={
+			back="返回",
+		},
+		setting3={
+			back="返回",
+			hide=function()return setting.virtualkeySwitch and"隐藏虚拟按键"or"显示虚拟按键"end,
+			default="默认组合",
+			snap=function()return text.snapLevelName[snapLevel]end,
+			alpha=function()return percent0to5[setting.virtualkeyAlpha]end,
+			icon="图标",
+			size="大小",
+		},
+		help={
+			back="返回",
+			qq="作者QQ",
+		},
+		stat={
+			back="返回",
+			path="打开存储目录",
+		},
+	},
+}--

language/chi_full.lua

@@ -0,0 +1,239 @@
+return{
+	atkModeName={"随机","徽章","击杀","反击"},
+	royale_remain=function(n)return"剩余 "..n.." 名玩家"end,
+	cmb={nil,nil,"3 Combo","4 Combo","5 Combo","6 Combo","7 Combo","8 Combo","9 Combo","10 Combo!","11 Combo!","12 Combo!","13 Combo!","14 Combo!","15 Combo!","16 Combo!","17 Combo!","18 Combo!","19 Combo!","MEGACMB"},
+	techrash="四清",
+	techrashB2B="满贯 四清",
+	techrashB3B="大满贯 四清",
+	block={"Z","S","L","J","T","O","I"},
+	clear={"单清","双清","三清"},
+	spin={"Z型回旋","S型回旋","L型回旋","J型回旋","T型回旋","O型回旋","I型回旋"},
+	b2b="满贯",b3b="大满贯",
+	mini="迷你",
+	PC="场地全清",
+	hold="暂存",next="下一个",
+
+	stage={"关卡 1","关卡 2","关卡 3","关卡 4","关卡 5",},
+	maxspeed="最高速度",
+	speedup="速度加快",
+
+	win="胜利",
+	lose="失败",
+	pause="暂停",
+	finish="结束",
+	pauseTime="暂停时间",
+
+	custom="自定义游戏",
+	customOption={
+		drop="下落延迟:",
+		lock="锁定延迟:",
+		wait="放块延迟:",
+		fall="消行延迟:",
+		next="序列数量:",
+		hold="暂存:",
+		sequence="序列:",
+		visible="可见性:",
+		target="目标行数:",
+		freshLimit="锁延刷新次数:",
+		opponent="对手速度等级:",
+	},
+	customVal={
+		drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞","[20G]"},
+		lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞"},
+		wait=nil,
+		fall=nil,
+		next=nil,
+		hold={"开","关","无限"},
+		sequence={"bag7","his4","随机"},
+		visible={"可见","半隐","全隐","瞬隐"},
+		target={10,20,40,100,200,500,1000,"∞"},
+		freshLimit={0,8,15,"∞"},
+		opponent={"无电脑",1,2,3,4,5,6,7,8,9,10,11},
+	},
+	softdropdas="软降DAS:",
+	softdroparr="软降ARR:",
+	snapLevelName={"任意摆放","10px吸附","20px吸附","40px吸附","60px吸附","80px吸附"},
+	keyboard="键盘",joystick="手柄",
+	space="空格",enter="回车",
+	setting2Help="方向键选择/翻页,回车修改,esc返回",
+
+
+	actName={"左移:","右移:","顺时针旋转:","逆时针旋转:","180°旋转","硬降:","软降:","暂存:","功能键:","重新开始:","左瞬移:","右瞬移:","软降到底:"},
+	modeName={
+		[0]="自定义",
+		"竞速","马拉松","大师","经典","禅","无尽","单挑","仅TSD","隐形","挖掘","生存","科研",
+		"全清训练","全清挑战","41人混战","99人混战","干旱","多人",
+	},
+	modeInfo={
+		sprint="挑战世界纪录",
+		marathon="尝试坚持到最后",
+		master="成为方块大师",
+		classic="高速经典",
+		zen="无重力消除200行",
+		infinite="科研沙盒",
+		solo="打败AI",
+		tsd="尽可能做T旋双清",
+		blind="最强大脑",
+		dig="核能挖掘机",
+		survivor="防守练习",
+		tech="尽可能不要普通消除!",
+		pctrain="熟悉全清定式的组合",
+		pcchallenge="100行内尽可能多全清",
+		techmino41="41人混战",
+		techmino99="99人混战",
+		drought="异常序列",
+		hotseat="友尽模式",
+	},
+
+	load={"加载材质ing","加载音乐ing","加载音效ing","加载完成",},
+	tips={
+		"不是动画，真的在加载!",
+		"整个游戏都是MrZ完成的!",
+		"大满贯10连击消四全清!",
+		"<方块研究所>有一个Nspire-CX版本!",
+		"B2B2B2B存在吗?",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O型回旋三清?",
+		"只用一个输入设备就可以游玩了",
+		"Miya:喵!",
+		"225238922,哔哩哔哩 干杯~",
+		"适度游戏益脑,沉迷游戏伤身,合理安排时间,享受健康生活",
+		"合群了就会消失，但是消失不代表没有意义",
+		"学会使用两个旋转键,三个更好",
+		"更小的DAS和ARR拥有更高的操作上限",
+		"注意到\"旋转\"到底对方块做了些什么吗?",
+		"20G是一套全新的游戏规则",
+		"不要在上课时玩游戏!",
+		"本游戏难度上限很高,做好心理准备",
+		"方块可以不是个休闲游戏",
+	},
+	stat={
+		"游戏运行次数:",
+		"游戏局数:",
+		"游戏时间:",
+		"总按键数:",
+		"总旋转数:",
+		"暂存次数:",
+		"总方块使用:",
+		"总消行数:",
+		"总攻击行数:",
+		"总发送数:",
+		"总接收数:",
+		"总上涨数:",
+		"总消除数:",
+		"总旋转消行数:",
+		"总满贯数:",
+		"总全清数:",
+		"平均效率:",
+	},
+	help={
+		"好像也没啥好帮助的吧?就当是关于了",
+		"这只是一个方块游戏,请勿过度解读和随意联想",
+		"不过就当成TOP/C2/KOS/TGM3/JS玩好了",
+		"游戏还在测试阶段,请 勿 外 传",
+		"",
+		"使用LOVE2D引擎",
+		"作者:MrZ   邮箱:1046101471@qq.com",
+		"程序:MrZ  美术:MrZ  音乐:MrZ  音效:MrZ",
+		"使用工具:VScode,GFIE,Beepbox,Goldwave",
+		"特别感谢:Farter,Teatube,196,Flyz,T830,[所有测试人员]和 你!",
+		"错误或者建议请附带相关信息发送到作者邮箱~",
+	},
+	support="支持作者",
+	group="官方QQ群",
+	ButtonText={
+		main={
+			play="开始",
+			setting="设置",
+			stat="统计信息",
+			help="帮助",
+			quit="退出",
+		},
+		mode={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start="开始",
+			custom="自定义(C)",
+			back="返回",
+		},
+		custom={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start1="消除开始",
+			start2="拼图开始",
+			draw="画图(D)",
+			back="返回",
+		},
+		draw={
+			block1="■",
+			block2="■",
+			block3="■",
+			block4="■",
+			block5="■",
+			block6="■",
+			block7="■",
+			gb1="■",
+			gb2="■",
+			gb3="■",
+			gb4="■",
+			gb5="■",
+			erase="×",
+			clear="清空",
+			back="返回",
+		},
+		play={
+			pause="暂停",
+		},
+		pause={
+			resume="继续",
+			quit="退出",
+		},
+		setting={
+			ghost=function()return setting.ghost and"阴影:开"or"阴影:关"end,
+			center=function()return setting.center and"旋转中心:开"or"旋转中心:关"end,
+			grid=function()return setting.grid and"网格:开"or"网格:关"end,
+			swap=function()return setting.swap and"目标选择:组合键"or"目标选择:循环"end,
+			fxs=function()return setting.fxs and"特效:开"or"特效:关"end,
+			bg=function()return setting.bg and"背景:开"or"背景:关"end,
+			dasD="-",dasU="+",
+			arrD="-",arrU="+",
+			sddasD="-",sddasU="+",
+			sdarrD="-",sdarrU="+",
+			sfx=function()return setting.sfx and"音效:开"or"音效:关"end,
+			bgm=function()return setting.bgm and"音乐:开"or"音乐:关"end,
+			vib=function()return "震动强度:"..setting.vib end,
+			fullscreen=function()return setting.fullscreen and"全屏:开"or"全屏:关"end,
+			bgblock=function()return setting.bgblock and"背景动画:开"or"背景动画:关"end,
+			frame=function()return"绘制帧:"..setting.frameMul.."%"end,
+			control="控制设置",
+			touch="触摸设置",
+			lang=function()return langName[setting.lang]end,
+			back="保存&返回",
+		},
+		setting2={
+			back="返回",
+		},
+		setting3={
+			back="返回",
+			hide=function()return setting.virtualkeySwitch and"隐藏虚拟按键"or"显示虚拟按键"end,
+			default="默认组合",
+			snap=function()return text.snapLevelName[snapLevel]end,
+			alpha=function()return percent0to5[setting.virtualkeyAlpha]end,
+			icon="图标",
+			size="大小",
+		},
+		help={
+			back="返回",
+			qq="作者QQ",
+		},
+		stat={
+			back="返回",
+			path="打开存储目录",
+		},
+	},
+}--文全

language/eng.lua

@@ -0,0 +1,239 @@
+return{
+	atkModeName={"Random","Badges","K.O.s","Counters"},
+	royale_remain=function(n)return n.." Players Remain"end,
+	cmb={nil,nil,"3 Combo","4 Combo","5 Combo","6 Combo","7 Combo","8 Combo","9 Combo","10 Combo!","11 Combo!","12 Combo!","13 Combo!","14 Combo!","15 Combo!","16 Combo!","17 Combo!","18 Combo!","19 Combo!","MEGACMB"},
+	techrash="Techrash",
+	techrashB2B="B2B Techrash",
+	techrashB3B="B2B2B Techrash",
+	block={"Z","S","L","J","T","O","I"},
+	clear={" single"," double"," triple"},
+	spin={"Z-spin","S-spin","L-spin","J-spin","T-spin","O-spin","I-spin"},
+	b2b="B2B ",b3b="B2B2B ",
+	mini="Mini",
+	PC="Perfect Clear",
+	hold="Hold",next="Next",
+
+	stage={"STAGE 1","STAGE 2","STAGE 3","STAGE 4","STAGE 5",},
+	maxspeed="Max speed",
+	speedup="Speed up",
+
+	win="WIN",
+	lose="LOSE",
+	pause="PAUSE",
+	finish="FINISH",
+	pauseTime="Pause time",
+	
+	custom="Custom Game",
+	customOption={
+		drop="Drop delay:",
+		lock="Lock delay:",
+		wait="Next piece delay:",
+		fall="Clear row delay:",
+		next="Next count:",
+		hold="Hold:",
+		sequence="Sequence:",
+		visible="Visible:",
+		target="Line limit:",
+		freshLimit="Lock fresh limit:",
+		opponent="Opponent speed:",
+	},
+	customVal={
+		drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞","[20G]"},
+		lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞"},
+		wait=nil,
+		fall=nil,
+		next=nil,
+		hold={"ON","OFF","FREE"},
+		sequence={"bag7","his4","random"},
+		visible={"normal","time","invisible","sudden"},
+		target={10,20,40,100,200,500,1000,"∞"},
+		freshLimit={0,8,15,"∞"},
+		opponent={"No CPU",1,2,3,4,5,6,7,8,9,10,11},
+	},
+	softdropdas="softdropDAS:",
+	softdroparr="softdropARR:",
+	snapLevelName={"Free pos","Snap-10","Snap-20","Snap-40","Snap-60","Snap-80"},
+	keyboard="Keyboard",joystick="Joystick",
+	space="Space",enter="Enter",
+	setting2Help="Arrowkey to select/change slot,Enter to change,Esc back",
+
+
+	actName={"Move Left:","Move Right:","Rotate Right:","Rotate Left:","Rotate Flip:","Hard Drop:","Soft Drop:","Hold:","Function:","Restart:","Instant Left:","Instant Right:","Ins Down:"},
+	modeName={
+		[0]="Custom",
+		"Sprint","Marathon","Master","Classic","Zen","Infinite","1v1","TSD-only","Blind","Dig","Survivor","Tech",
+		"PC Train","PC Challenge","Techmino41","Techmino99","Drought","Hotseat",
+	},
+	modeInfo={
+		sprint="Speed run",
+		marathon="Survive and reach target",
+		master="To be Grand Master",
+		classic="Vintage car drag racing",
+		zen="Clear 200 Lines without gravity",
+		infinite="Infinite game,infinite happiness",
+		solo="Beat AI",
+		tsd="Make more T-spin-doubles",
+		blind="Invisible board",
+		dig="Downstack!",
+		survivor="Hand them!",
+		tech="Don't do normal clear",
+		pctrain="Let's learn some PCs",
+		pcchallenge="Make PCs in 100 Lines",
+		techmino41="Melee fight with 40 AIs",
+		techmino99="Melee fight with 98 AIs",
+		drought="ERRSEQ flood attack",
+		hotseat="",
+	},
+
+	load={"Loading textures","Loading BGM","Loading SFX","Finished",},
+	tips={
+		"Not animation,real loading!",
+		"The WHOLE game is made by MrZ!",
+		"Back to Back 10 combo Techrash PC!",
+		"Techmino has a Nspire-CX edition!",
+		"Is B2B2B2B possible?",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O spin triple?",
+		"You can play with any input device!",
+		"Miya:Nya!",
+		"225238922,Bilibili cheers!",
+		"Playing too much = taking drugs",
+		"Disappearing doesn't mean useless",
+		"Try to use two rotate button,three better",
+		"Small DAS&ARR can make you faster,if you can adapt to it",
+		"Have you noticed what does \"rotating\" do to block?",
+		"20G is a brand new game rule",
+		"Do not play game in class!",
+		"This game can be very hard,be mentally perpared",
+		"This in not a casual game",
+	},
+	stat={
+		"Games run:",
+		"Games played:",
+		"Game time:",
+		"Total key pressed:",
+		"Total rotate:",
+		"Total hold:",
+		"Total block used:",
+		"Total rows cleared:",
+		"Total attack:",
+		"Total sent:",
+		"Total receive:",
+		"Total pend:",
+		"Total clear:",
+		"Total spin:",
+		"Total B2B:",
+		"Total PC:",
+		"Total Efficiency",
+	},
+	help={
+		"I don't think you need \"help\".",
+		"THIS IS ONLY A BLOCK GAME",
+		"But just play like playing TOP/C2/KOS/TGM3",
+		"Game is not public now,so DO NOT DISTIRBUTE",
+		"",
+		"Powered by LOVE2D",
+		"Author:MrZ   E-mail:1046101471@qq.com",
+		"Programe:MrZ  Art:MrZ  Music:MrZ  SFX:MrZ",
+		"Tool used:VScode,GFIE,Beepbox,Goldwave",
+		"Special thanks:Farter,Teatube,196,Flyz,T830,[all test staff] and YOU!",
+		"Any bugs/suggestions to my E-mail.",
+	},
+	support="Support Author",
+	group="Official QQ Group",
+	ButtonText={
+		main={
+			play="Play",
+			setting="Settings",
+			stat="Statistics",
+			help="Help",
+			quit="Quit",
+		},
+		mode={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start="Start",
+			custom="Custom(C)",
+			back="Back",
+		},
+		custom={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start1="Clear Start",
+			start2="Puzzle Start",
+			draw="Draw(D)",
+			back="Back",
+		},
+		draw={
+			block1="■",
+			block2="■",
+			block3="■",
+			block4="■",
+			block5="■",
+			block6="■",
+			block7="■",
+			gb1="■",
+			gb2="■",
+			gb3="■",
+			gb4="■",
+			gb5="■",
+			erase="×",
+			clear="Clear",
+			back="Back",
+		},
+		play={
+			pause="Pause",
+		},
+		pause={
+			resume="Resume",
+			quit="Quit",
+		},
+		setting={
+			ghost=function()return setting.ghost and"Ghost:ON"or"Ghost:OFF"end,
+			center=function()return setting.center and"Center:ON"or"Center:OFF"end,
+			grid=function()return setting.grid and"Grid:ON"or"Grid:OFF"end,
+			swap=function()return setting.swap and"Swap:comboKey"or"Swap:loop"end,
+			fxs=function()return setting.fxs and"FXs:ON"or"FXs:OFF"end,
+			bg=function()return setting.bg and"BG:ON"or"BG:OFF"end,
+			dasD="-",dasU="+",
+			arrD="-",arrU="+",
+			sddasD="-",sddasU="+",
+			sdarrD="-",sdarrU="+",
+			sfx=function()return setting.sfx and"SFX:ON"or"SFX:OFF"end,
+			bgm=function()return setting.bgm and"BGM:ON"or"BGM:OFF"end,
+			vib=function()return "Vibrate level:"..setting.vib end,
+			fullscreen=function()return setting.fullscreen and"Fullscreen:ON"or"Fullscreen:OFF"end,
+			bgblock=function()return setting.bgblock and"BG animation:ON"or"BG animation:OFF"end,
+			frame=function()return"FrameDraw:"..setting.frameMul.."%"end,
+			control="Control settings",
+			touch="Touch settings",
+			lang=function()return langName[setting.lang]end,
+			back="Save&Back",
+		},
+		setting2={
+			back="Back",
+		},
+		setting3={
+			back="Back",
+			hide=function()return setting.virtualkeySwitch and"Hide Virtual Key"or"Show Virtual Key"end,
+			default="Defaults",
+			snap=function()return text.snapLevelName[snapLevel]end,
+			alpha=function()return percent0to5[setting.virtualkeyAlpha]end,
+			icon="Icon",
+			size="Size",
+		},
+		help={
+			back="Back",
+			qq="Author's qq",
+		},
+		stat={
+			back="Back",
+			path="Open Data Folder",
+		},
+	}
+}

list.lua

@@ -0,0 +1,374 @@
+local gc=love.graphics
+local sys=love.system
+local fs=love.filesystem
+actName={"moveLeft","moveRight","rotRight","rotLeft","rotFlip","hardDrop","softDrop","hold","func","restart","insLeft","insRight","insDown"}
+color={
+	red={1,0,0},
+	green={0,1,0},
+	blue={.2,.2,1},
+	yellow={1,1,0},
+	magenta={1,0,1},
+	cyan={0,1,1},
+	grey={.6,.6,.6},
+
+	lightRed={1,.5,.5},
+	lightGreen={.5,1,.5},
+	lightBlue={.6,.6,1},
+	lightYellow={1,1,.5},
+	lightMagenta={1,.5,1},
+	lightCyan={.5,1,1},
+	lightGrey={.8,.8,.8},
+
+	darkRed={.6,0,0},
+	darkGreen={0,.6,0},
+	darkBlue={0,0,.6},
+	darkYellow={.6,.6,0},
+	darkMagenta={.6,0,.6},
+	darkCyan={0,.6,.6},
+	darkGrey={.3,.3,.3},
+
+	white={1,1,1},
+	orange={1,.6,0},
+	lightOrange={1,.7,.3},
+	purple={.5,0,1},
+	lightPurple={.8,.4,1},
+	darkPurple={.3,0,.6},
+}
+blockColor={
+	color.red,
+	color.green,
+	color.orange,
+	color.blue,
+	color.magenta,
+	color.yellow,
+	color.cyan,
+	color.darkGreen,
+	color.darkGrey,
+	color.grey,
+	color.darkPurple,
+	color.darkRed,
+	color.darkGreen,
+}
+sfx={
+	"button","swipe",
+
+	"ready","start","win","fail","collect",
+	"move","rotate","rotatekick","hold",
+	"prerotate","prehold",
+	"lock","drop","fall",
+	"reach",
+	"ren_1","ren_2","ren_3","ren_4","ren_5","ren_6","ren_7","ren_8","ren_9","ren_10","ren_11",
+	"clear_1","clear_2","clear_3","clear_4",
+	"spin_0","spin_1","spin_2","spin_3",
+	"emit","blip_1","blip_2",
+	"perfectclear",
+}
+bgm={
+	"blank",
+	"way",
+	"race",
+	"newera",
+	"push",
+	"reason",
+	"infinite",
+	"cruelty",
+	"final",
+	"secret7th",
+	"secret8th",
+	"rockblock",
+	"end",
+}
+
+customID={
+	"drop",
+	"lock",
+	"wait",
+	"fall",
+	"next",
+	"hold",
+	"sequence",
+	"visible",
+	"target",
+	"freshLimit",
+	"opponent",
+}
+customRange={
+	drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99,-1},
+	lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,1e99},
+	wait={0,1,2,3,4,5,6,7,8,10,15,20,30,60},
+	fall={0,1,2,3,4,5,6,7,8,10,15,20,30,60},
+	next={0,1,2,3,4,5,6},
+	hold={true,false,true},
+	sequence={"bag7","his4","rnd"},
+	visible={"show","time","fast","none"},
+	target={10,20,40,100,200,500,1000,1e99},
+	freshLimit={0,8,15,1e99},
+	opponent={0,60,30,20,15,10,7,5,4,3,2,1},
+}
+
+RCPB={10,33,200,33,105,5,105,60}
+snapLevelValue={1,10,20,40,60,80}
+up0to4={[0]="000%UP","025%UP","050%UP","075%UP","100%UP",}
+percent0to5={[0]="0%","20%","40%","60%","80%","100%",}
+
+modeID={
+	[0]="custom",
+	"sprint","marathon","master","classic","zen","infinite","solo","tsd","blind","dig","survivor","tech",
+	"pctrain","pcchallenge","techmino41","techmino99","drought","hotseat",
+}
+modeLevel={
+	sprint={"10L","20L","40L","100L","400L","1000L"},
+	marathon={"EASY","NORMAL","HARD"},
+	master={"LUNATIC","ULTIMATE"},
+	classic={"CTWC"},
+	zen={"NORMAL"},
+	infinite={"NORMAL"},
+	solo={"EASY","NORMAL","HARD","LUNATIC"},
+	tsd={"NORMAL","HARD"},
+	blind={"EASY","HARD","HARD+","LUNATIC","ULTIMATE","GM"},
+	dig={"NORMAL","LUNATIC"},
+	survivor={"EASY","NORMAL","HARD","LUNATIC","ULTIMATE"},
+	tech={"EASY","NORMAL","HARD","LUNATIC","ULTIMATE"},
+	pctrain={"NORMAL","EXTRA"},
+	pcchallenge={"NORMAL","HARD","LUNATIC"},
+	techmino41={"EASY","NORMAL","HARD","LUNATIC","ULTIMATE"},
+	techmino99={"EASY","NORMAL","HARD","LUNATIC","ULTIMATE"},
+	drought={"NORMAL","MESS"},
+	hotseat={"2P","3P","4P",},
+	custom={"Normal","Puzzle"},
+}
+local t,f=true,false
+blocks={
+	{[0]={{f,t,t},{t,t,f}},{{t,f},{t,t},{f,t}}},
+	{[0]={{t,t,f},{f,t,t}},{{f,t},{t,t},{t,f}}},
+	{[0]={{t,t,t},{f,f,t}},{{t,t},{t,f},{t,f}},{{t,f,f},{t,t,t}},{{f,t},{f,t},{t,t}}},
+	{[0]={{t,t,t},{t,f,f}},{{t,f},{t,f},{t,t}},{{f,f,t},{t,t,t}},{{t,t},{f,t},{f,t}}},
+	{[0]={{t,t,t},{f,t,f}},{{t,f},{t,t},{t,f}},{{f,t,f},{t,t,t}},{{f,t},{t,t},{f,t}}},
+	{[0]={{t,t},{t,t}},{{t,t},{t,t}}},
+	{[0]={{t,t,t,t}},{{t},{t},{t},{t}}},
+}
+local l={1,2,6,7}for i=1,4 do blocks[l[i]][2],blocks[l[i]][3]=blocks[l[i]][0],blocks[l[i]][1]end
+for i=1,7 do blocks[i+7]=blocks[i]end
+
+local virtualkeySet={
+	{
+		{80,720-200,6400,80},--moveLeft
+		{320,720-200,6400,80},--moveRight
+		{1280-80,720-200,6400,80},--rotRight
+		{1280-200,720-80,6400,80},--rotLeft
+		{1280-200,720-320,6400,80},--rotFlip
+		{200,720-320,6400,80},--hardDrop
+		{200,720-80,6400,80},--softDrop
+		{1280-320,720-200,6400,80},--hold
+		{1280-80,280,6400,80},--func
+		{80,280,6400,80},--restart
+	},--Farter's set 3
+	{
+		{1280-320,720-200,6400,80},--moveLeft
+		{1280-80,720-200,6400,80},--moveRight
+		{200,720-80,6400,80},--rotRight
+		{80,720-200,6400,80},--rotLeft
+		{200,720-320,6400,80},--rotFlip
+		{1280-200,720-320,6400,80},--hardDrop
+		{1280-200,720-80,6400,80},--softDrop
+		{320,720-200,6400,80},--hold
+		{80,280,6400,80},--func
+		{1280-80,280,6400,80},--restart
+	},--Mirrored farter's set 3
+	{
+		{80,720-80,6400,80},--moveLeft
+		{240,720-80,6400,80},--moveRight
+		{1280-240,720-80,6400,80},--rotRight
+		{1280-400,720-80,6400,80},--rotLeft
+		{1280-240,720-240,6400,80},--rotFlip
+		{1280-80,720-80,6400,80},--hardDrop
+		{1280-80,720-240,6400,80},--softDrop
+		{1280-80,720-400,6400,80},--hold
+		{80,360,6400,80},--func
+		{80,80,6400,80},--restart
+	},--Author's set
+	{
+		{1280-400,720-80,6400,80},--moveLeft
+		{1280-80,720-80,6400,80},--moveRight
+		{240,720-80,6400,80},--rotRight
+		{80,720-80,6400,80},--rotLeft
+		{240,720-240,6400,80},--rotFlip
+		{1280-240,720-240,6400,80},--hardDrop
+		{1280-240,720-80,6400,80},--softDrop
+		{1280-80,720-240,6400,80},--hold
+		{80,720-240,6400,80},--func
+		{80,320,6400,80},--restart
+	},--Keyboard set
+	{
+		{1200-370,40,1600,40},--moveLeft
+		{1200-280,40,1600,40},--moveRight
+		{1200-530,40,1600,40},--rotRight
+		{1200-610,40,1600,40},--rotLeft
+		{1200-450,40,1600,40},--rotFlip
+		{1200-50,40,1600,40},--hardDrop
+		{1200-130,40,1600,40},--softDrop
+		{1200-210,40,1600,40},--hold
+		{1200-690,40,1600,40},--func
+		{1200-770,40,1600,40},--restart
+	},--PC key feedback
+}
+Buttons={
+	load={},
+	intro={},
+	main={
+		play=	{x=380,y=300,w=240,h=240,rgb=color.red,f=70,code=function()gotoScene("mode")end,down="stat",right="setting"},
+		setting={x=640,y=300,w=240,h=240,rgb=color.lightBlue,f=55,code=function()gotoScene("setting")end,down="stat",left="play",right="help"},
+		stat=	{x=640,y=560,w=240,h=240,rgb=color.cyan,f=55,code=function()gotoScene("stat")end,up="setting",left="play",right="help"},
+		help=	{x=900,y=560,w=240,h=240,rgb=color.yellow,f=55,code=function()gotoScene("help")end,up="setting",left="stat",right="quit"},
+		quit=	{x=1180,y=620,w=120,h=120,rgb=color.lightGrey,f=50,code=function()gotoScene("quit")end,up="setting",left="help"},
+	},
+	mode={
+		up=		{x=1000,y=210,w=200,h=140,	rgb=color.white,	f=64,	code=function()keyDown.mode("up")end,	hide=function()return modeSel==1 end,},
+		down=	{x=1000,y=430,w=200,h=140,	rgb=color.white,	f=80,	code=function()keyDown.mode("down")end,	hide=function()return modeSel==#modeID end,},
+		left=	{x=190,	y=160,w=100,h=80,	rgb=color.white,			code=function()keyDown.mode("left")end,	hide=function()return levelSel==1 end,},
+		right=	{x=350,	y=160,w=100,h=80,	rgb=color.white,			code=function()keyDown.mode("right")end,hide=function()return levelSel==#modeLevel[modeID[modeSel]]end,},
+		start={	x=1000,	y=600,w=250,h=100,	rgb=color.green,	f=50,	code=function()
+			loadGame(modeSel,levelSel)end},
+		custom=	{x=275,	y=420,w=200,h=90,	rgb=color.yellow,			code=function()gotoScene("custom")end},
+		back=	{x=640,	y=630,w=230,h=90,	rgb=color.white,	f=45,	code=back},
+	},
+	custom={
+		up=		{x=1000,y=220,	w=100,	h=100,	rgb=color.white,		code=function()optSel=(optSel-2)%#customID+1 end},
+		down=	{x=1000,y=460,	w=100,	h=100,	rgb=color.white,f=50,	code=function()optSel=optSel%#customID+1 end},
+		left=	{x=880,	y=340,	w=100,	h=100,	rgb=color.white,f=50,	code=function()local k=customID[optSel]customSel[k]=(customSel[k]-2)%#customRange[k]+1 end},
+		right=	{x=1120,y=340,	w=100,	h=100,	rgb=color.white,f=50,	code=function()local k=customID[optSel]customSel[k]=customSel[k]%#customRange[k]+1 end},
+		start1=	{x=880,	y=580,	w=220,	h=70,	rgb=color.green,		code=function()loadGame(0,1)end},
+		start2=	{x=1120,y=580,	w=220,	h=70,	rgb=color.lightPurple,	code=function()loadGame(0,2)end},
+		draw=	{x=1000,y=90,	w=190,	h=85,	rgb=color.cyan,			code=function()gotoScene("draw")end},
+		back=	{x=640,	y=630	,w=180,	h=60,	rgb=color.white,		code=back},
+	},
+	draw={
+		block1=	{x=840,	y=80,w=120,h=120,	f=65,	rgb=color.red,		code=function()pen=1 end},
+		block2=	{x=980,	y=80,w=120,h=120,	f=65,	rgb=color.green,	code=function()pen=2 end},
+		block3=	{x=1120,y=80,w=120,h=120,	f=65,	rgb=color.orange,	code=function()pen=3 end},
+		block4=	{x=840,	y=220,w=120,h=120,	f=65,	rgb=color.blue,		code=function()pen=4 end},
+		block5=	{x=980,	y=220,w=120,h=120,	f=65,	rgb=color.magenta,	code=function()pen=5 end},
+		block6=	{x=1120,y=220,w=120,h=120,	f=65,	rgb=color.yellow,	code=function()pen=6 end},
+		block7=	{x=840,	y=360,w=120,h=120,	f=65,	rgb=color.cyan,		code=function()pen=7 end},
+		gb1=	{x=980,	y=360,w=120,h=120,	f=65,	rgb=color.darkGrey,	code=function()pen=9 end},
+		gb2=	{x=1120,y=360,w=120,h=120,	f=65,	rgb=color.grey,		code=function()pen=10 end},
+		gb3=	{x=840,	y=500,w=120,h=120,	f=65,	rgb=color.darkPurple,code=function()pen=11 end},
+		gb4=	{x=980,	y=500,w=120,h=120,	f=65,	rgb=color.darkRed,	code=function()pen=12 end},
+		gb5=	{x=1120,y=500,w=120,h=120,	f=65,	rgb=color.darkGreen,code=function()pen=13 end},
+		erase=	{x=840,	y=640,w=120,h=120,	f=70,	rgb=color.grey,		code=function()pen=0 end},
+		clear=	{x=1120,y=640,w=120,h=120,			rgb=color.white,	code=function()
+			if clearSureTime>0 then
+				for y=1,20 do for x=1,10 do preField[y][x]=0 end end
+				clearSureTime=0
+			else
+				clearSureTime=50
+			end
+			end},
+		back=	{x=1235,y=45,w=80,h=80,		f=35,	rgb=color.white,	code=back},
+	},
+	play={
+		pause={x=1235,y=45,w=80,h=80,rgb=color.white,f=30,code=pauseGame},
+	},
+	pause={
+		resume=	{x=640,y=400,w=240,h=100,	rgb=color.white,f=50,code=resumeGame},
+		quit=	{x=640,y=550,w=240,h=100,	rgb=color.white,f=50,code=back},
+	},
+	setting={--Normal setting
+		ghost=	{x=290,	y=90,	w=210,	h=60,		rgb=color.white,code=function()setting.ghost=not setting.ghost end,down="grid",right="center"},
+		center=	{x=505,	y=90,	w=210,	h=60,		rgb=color.white,code=function()setting.center=not setting.center end,down="swap",left="ghost",right="sfx"},
+		grid=	{x=290,	y=160,	w=210,	h=60,		rgb=color.white,code=function()setting.grid=not setting.grid end,up="ghost",down="fxs",right="swap"},
+		swap=	{x=505,	y=160,	w=210,	h=60,f=28,	rgb=color.white,code=function()setting.swap=not setting.swap end,up="center",down="bg",left="grid",right="vib"},
+		fxs=	{x=290,	y=230,	w=210,	h=60,		rgb=color.white,code=function()setting.fxs=not setting.fxs end,up="grid",down="dasU",right="bg"},
+		bg=		{x=505,	y=230,	w=210,	h=60,		rgb=color.white,code=function()setting.bg=not setting.bg end,up="swap",down="arrD",right="fullscreen"},
+
+		dasD=	{x=210,	y=300,	w=50,	h=50,		rgb=color.white,code=function()setting.das=(setting.das-1)%31 end,up="fxs",down="sddasD",right="dasU"},
+		dasU=	{x=370,	y=300,	w=50,	h=50,		rgb=color.white,code=function()setting.das=(setting.das+1)%31 end,up="fxs",down="sddasU",left="dasD",right="arrD"},
+		arrD=	{x=425,	y=300,	w=50,	h=50,		rgb=color.white,code=function()setting.arr=(setting.arr-1)%16 end,up="bg",down="sdarrD",left="dasU",right="arrU"},
+		arrU=	{x=585,	y=300,	w=50,	h=50,		rgb=color.white,code=function()setting.arr=(setting.arr+1)%16 end,up="bg",down="sdarrU",left="arrD",right="bgblock"},--3~6
+		sddasD=	{x=210,	y=370,	w=50,	h=50,		rgb=color.white,code=function()setting.sddas=(setting.sddas-1)%11 end,up="dasD",down="lang",right="sddasU"},
+		sddasU=	{x=370,	y=370,	w=50,	h=50,		rgb=color.white,code=function()setting.sddas=(setting.sddas+1)%11 end,up="dasU",down="lang",left="sddasD",right="sdarrD"},
+		sdarrD=	{x=425,	y=370,	w=50,	h=50,		rgb=color.white,code=function()setting.sdarr=(setting.sdarr-1)%4 end,up="arrD",down="lang",left="sddasU",right="sdarrU"},
+		sdarrU=	{x=585,	y=370,	w=50,	h=50,		rgb=color.white,code=function()setting.sdarr=(setting.sdarr+1)%4 end,up="arrU",down="lang",left="sdarrD",right="frame"},
+
+		sfx=	{x=760,y=90,	w=160,	h=60,		rgb=color.white,code=function()setting.sfx=not setting.sfx end,down="vib",left="center",right="bgm"},
+		bgm=	{x=940,y=90,	w=160,	h=60,		rgb=color.white,code=function()
+			BGM()
+			setting.bgm=not setting.bgm
+			BGM("blank")
+			end,down="vib",left="sfx"},
+		vib=	{x=850,y=160,	w=340,h=60,rgb=color.white,	code=function()
+			setting.vib=(setting.vib+1)%6
+			VIB(1)
+			end,up="sfx",down="fullscreen",left="swap"},
+		fullscreen=	{x=850,y=230,	w=340,h=60,rgb=color.white,	code=function()
+			setting.fullscreen=not setting.fullscreen
+			love.window.setFullscreen(setting.fullscreen)
+			if not setting.fullscreen then
+				love.resize(gc.getWidth(),gc.getHeight())
+			end
+			end,up="vib",down="bgblock",left="bg"},
+		bgblock={x=850,y=300,	w=340,h=60,rgb=color.white,	code=function()
+			setting.bgblock=not setting.bgblock
+			if not setting.bgblock then
+				for i=1,16 do
+					BGblockList[i].v=3*BGblockList[i].v
+				end
+			end
+			end,up="fullscreen",down="frame",left="arrU"},
+		frame=	{x=850,y=370,	w=340,h=60,rgb=color.white,	code=function()
+			setting.frameMul=setting.frameMul+(setting.frameMul<50 and 5 or 10)
+			if setting.frameMul>100 then setting.frameMul=25 end
+			end,up="bgblock",down="control",left="sdarrU"},
+		control={x=850,y=440,	w=340,h=60,rgb=color.green,	code=function()gotoScene("setting2")end,up="frame",down="touch",left="lang"},
+		touch=	{x=850,y=510,	w=340,h=60,rgb=color.yellow,code=function()gotoScene("setting3")end,up="control",down="back",left="lang"},
+		lang=	{x=280,y=510,	w=200,h=60,rgb=color.red,	code=function()
+			setting.lang=setting.lang%#langName+1
+			swapLanguage(setting.lang)
+			end,up="sddasD",down="back",right="touch"},
+		back=	{x=640,y=620,	w=300,h=70,rgb=color.white,	code=back,up="touch"},
+	},
+	setting2={--Control setting
+		back={x=840,y=630,w=180,h=60,rgb=color.white,code=back},
+	},
+	setting3={--Touch setting
+		back={x=640,y=410,w=170,h=80,f=45,code=back},
+		hide={x=640,y=210,w=500,h=80,f=45,code=function()
+			setting.virtualkeySwitch=not setting.virtualkeySwitch
+			end},
+		default={x=450,y=310,w=170,h=80,code=function()
+			for K=1,#virtualkey do
+				local b,b0=virtualkey[K],virtualkeySet[defaultSel][K]
+				b[1],b[2],b[3],b[4]=b0[1],b0[2],b0[3],b0[4]
+			end--Default virtualkey
+			defaultSel=defaultSel%5+1
+			end},
+		snap={x=640,y=310,w=170,h=80,code=function()
+			snapLevel=snapLevel%6+1
+			end},
+		alpha={x=830,y=310,w=170,h=80,f=45,code=function()
+			setting.virtualkeyAlpha=(setting.virtualkeyAlpha+1)%6
+			--Adjust virtualkey alpha
+			end},
+		icon={x=450,y=410,w=170,h=80,f=45,code=function()
+			setting.virtualkeyIcon=not setting.virtualkeyIcon
+			--Switch virtualkey icon
+			end},
+		size={x=830,y=410,w=170,h=80,f=45,code=function()
+			if sel then
+				local b=virtualkey[sel]
+				b[4]=b[4]+10
+				if b[4]==150 then b[4]=40 end
+				b[3]=b[4]^2
+			end
+			end},
+	},
+	help={
+		back={x=640,y=590,w=180,h=60,rgb=color.white,code=back,right="qq"},
+		qq={x=980,y=590,w=230,h=60,hide=function()return system=="Android"end,rgb=color.white,code=function()sys.openURL("tencent://message/?uin=1046101471&Site=&Menu=yes")end,left="back"},
+	},
+	stat={
+		back={x=640,y=590,w=180,h=60,rgb=color.white,code=back,right="path"},
+		path={x=980,y=590,w=250,h=60,f=30,hide=function()return system=="Android"end,rgb=color.white,code=function()sys.openURL(fs.getSaveDirectory())end,left="back"},
+	},
+	sel=nil,--selected button id(integer)
+}

lists.lua

@@ -1,13 +0,0 @@
-loseReason={"Finished","Block out"}
-blockName={"Z","S","L","J","T","O","I"}
-clearName={"Single","Double","Triple"}
-actName={"moveLeft","moveRight","rotRight","rotLeft","rotFlip","hardDrop","softDrop","hold","restart","toLeft","toRight"}
-actName_show={"move left","move right","rotate right","rotate left","rotate flip","hard drop","soft drop","hold","restart","toLeft","toRight"}
-blockPos={4,4,4,4,4,5,4}
-renATK={[0]=0,0,0,1,1,2,2,3,3,3}--4 else
-b2bATK={3,5,8}
-
-marathon_drop={[0]=60,48,40,30,24,18,15,12,10,8,7,6,5,4,3,2,1,1,0,0}
-death_lock={10,9,8,7,6}
-death_wait={6,5,4,3,2}
-death_fall={10,8,7,6,5}

texture.lua

@@ -0,0 +1,95 @@
+local gc=love.graphics
+local N,c=gc.newImage
+local function T(s,t)return gc.newText(setFont(s),t)end
+local function C(x,y)
+	c=gc.newCanvas(x,y)
+	gc.setCanvas(c)
+	return c
+end
+
+gc.setDefaultFilter("nearest","nearest")
+local blockImg=N("/image/block/1.png")
+blockSkin,blockSkinmini={},{}
+for i=1,13 do
+	C(30,30)
+	gc.draw(blockImg,30-30*i,0)
+	blockSkin[i]=c
+	C(6,6)
+	gc.draw(blockImg,6-6*i,0,nil,.2)
+	blockSkinmini[i]=c
+end
+blockImg:release()
+
+virtualkeyIcon={}
+for i=1,10 do
+	virtualkeyIcon[i]=N("/image/virtualkey/"..actName[i]..".png")
+end
+
+gc.setColor(1,1,1)
+mouseBlock={}
+for i=1,7 do
+	local b=blocks[i][0]
+	mouseBlock[i]=C(#b[1],#b)
+	gc.setColor(blockColor[i])
+	for y=1,#b do for x=1,#b[1]do
+		if b[y][x]then
+			gc.rectangle("fill",x-1,#b-y,1,1)
+		end
+	end end
+end
+
+PTC={dust={}}--Particle systems
+C(6,6)
+gc.clear(1,1,1)
+PTC.dust0=gc.newParticleSystem(c,1000)
+PTC.dust0:setParticleLifetime(.2,.3)
+PTC.dust0:setEmissionRate(0)
+PTC.dust0:setLinearAcceleration(-1500,-200,1500,200)
+PTC.dust0:setColors(1,1,1,.5,1,1,1,0)
+c:release()
+--Dust particles
+
+PTC.attack={}
+PTC.attack[1]=gc.newParticleSystem(N("/image/mess/atk1.png"),200)
+PTC.attack[1]:setParticleLifetime(.25)
+PTC.attack[1]:setEmissionRate(0)
+PTC.attack[1]:setSpin(10)
+PTC.attack[1]:setColors(1,1,1,.7,1,1,1,0)
+
+PTC.attack[2]=gc.newParticleSystem(N("/image/mess/atk2.png"),200)
+PTC.attack[2]:setParticleLifetime(.3)
+PTC.attack[2]:setEmissionRate(0)
+PTC.attack[2]:setSpin(8)
+PTC.attack[2]:setColors(1,1,1,.7,1,1,1,0)
+
+PTC.attack[3]=gc.newParticleSystem(N("/image/mess/atk3.png"),200)
+PTC.attack[3]:setParticleLifetime(.4)
+PTC.attack[3]:setEmissionRate(0)
+PTC.attack[3]:setSpin(6)
+PTC.attack[3]:setColors(1,1,1,.7,1,1,1,0)
+--Attack particles
+
+gc.setDefaultFilter("linear","linear")
+titleImage=N("/image/mess/title.png")
+dialCircle=N("/image/mess/dialCircle.png")
+dialNeedle=N("/image/mess/dialNeedle.png")
+badgeIcon=N("/image/mess/badge.png")
+spinCenter=N("/image/mess/spinCenter.png")
+lightBulb=N("/image/mess/lightBulb.png")
+light=N("/image/mess/light.png")
+
+background1=N("/image/BG/bg1.jpg")
+background2=N("/image/BG/bg2.png")
+groupCode=N("/image/mess/groupcode.png")
+payCode=N("/image/mess/paycode.png")
+drawableText={
+	question=T(100,"?"),
+	x=T(110,"×"),
+	bpm=T(15,"BPM"),
+	kpm=T(15,"KPM"),
+	modeName=T(30),
+	levelName=T(30),
+	next=T(40),
+	hold=T(40),
+}
+c=gc.setCanvas()

timer.lua

@@ -1,10 +1,13 @@
+local wd=love.window
+local Timer=love.timer.getTime
+
 Tmr={}
 function Tmr.load()
 	if loading==1 then
 		loadnum=loadnum+1
 		loadprogress=loadnum/10
 		if loadnum==5 then
-			--require("load_texture")
+			--require("texture")
 		elseif loadnum==10 then
 			loadnum=1
 			loading=2
@@ -13,6 +16,7 @@ function Tmr.load()
 		if loadnum<=#bgm then
 			bgm[bgm[loadnum]]=love.audio.newSource("/BGM/"..bgm[loadnum]..".ogg","stream")
 			bgm[bgm[loadnum]]:setLooping(true)
+			bgm[bgm[loadnum]]:setVolume(0)
 			loadprogress=loadnum/#bgm
 			loadnum=loadnum+1
 		else
@@ -33,191 +37,250 @@ function Tmr.load()
 	elseif loading==4 then
 		loadnum=loadnum+1
 		if loadnum==15 then
-			gotoScene("main")
+			stat.run=stat.run+1
+			gotoScene("intro","none")
 		end
 	end
 end
+function Tmr.intro()
+	count=count+1
+	if count==200 then count=80 end
+end
+function Tmr.draw()
+	if clearSureTime>0 then clearSureTime=clearSureTime-1 end
+end
 function Tmr.play(dt)
 	frame=frame+1
-	stat.gametime=stat.gametime+dt
+	stat.time=stat.time+dt
 
 	for i=#FX.beam,1,-1 do
 		local b=FX.beam[i]
 		b.t=b.t+1
-		local t=b.t*.025
+		local t0=b.t*.025--t in [0,1]
-		PTC.attack[b.lv]:setPosition(b[1]+(b[3]-b[1])*t,b[2]+(b[4]-b[2])*t-100*(4*t*(1-t)))
+		local t=(sin(1.5*(2*t0-1))+1)*.5
+		PTC.attack[b.lv]:setPosition(b[1]+(b[3]-b[1])*t,b[2]+(b[4]-b[2])*t)
 		PTC.attack[b.lv]:emit(1)
-		if t==1 then
+		if t0==1 then
 			rem(FX.beam,i)
 		end
 	end
-	for i=1,3 do
+	for i=#FX.badge,1,-1 do
-		PTC.attack[i]:update(dt)
+		local b=FX.badge[i]
+		b.t=b.t+1
+		if b.t==60 then
+			rem(FX.badge,i)
+		end
 	end
-	-- Update attack beam
+	for i=1,#virtualkey do
-	if count then
+		if virtualkeyPressTime[i]>0 then
-		count=count-1
+			virtualkeyPressTime[i]=virtualkeyPressTime[i]-1
-		if count==0 then
+		end
-			count=nil
+	end
-			sysSFX("start")
+	PTC.attack[1]:update(dt)
-			for P=1,#players do
+	PTC.attack[2]:update(dt)
-				P=players[P]
+	PTC.attack[3]:update(dt)
-				_G.P=P
+	if frame<180 then
-				setmetatable(_G,P.index)
+		if frame==179 then
-				P.control=true
+			gameStart()
-				P.timing=true
+		elseif frame%60==0 then
-				resetblock()
-			end
-			setmetatable(_G,nil)
-		elseif count%60==0 then
 			sysSFX("ready")
 		end
-
+		for p=1,#players do
-		if count then
+			P=players[p]
-			for p=1,#players do
+			if P.keyPressing[1]or P.keyPressing[2]then
-				P=players[p]
+				P.moving=P.moving+(P.moving>0 and 1 or -1)
-				setmetatable(_G,P.index)
+			else
-				if keyPressing[1]or keyPressing[2]then
+				P.moving=0
-					P.moving=moving+sgn(moving)
-				else
-					P.moving=0
-				end
 			end
-			return nil
 		end
-	end--Start counting,include pre-das
+		return
+	end--Counting,include pre-das,directy RETURN
 	for p=1,#players do
 		P=players[p]
-		setmetatable(_G,P.index)
+		if P.timing then P.stat.time=P.stat.time+dt end
-		if timing then P.time=time+dt end
+		if P.alive then
-		if alive then
+			if not P.small then
-			local v=0
+				local v=0
-			for i=2,10 do v=v+i*(i-1)*7.2/(frame-keyTime[i])end P.keySpeed=keySpeed*.99+v*.1
+				for i=2,10 do v=v+i*(i-1)*7.2/(frame-P.keyTime[i])end P.keySpeed=P.keySpeed*.99+v*.1
-			v=0 for i=2,10 do v=v+i*(i-1)*7.2/(frame-dropTime[i])end P.dropSpeed=dropSpeed*.99+v*.1
+				v=0
-			--Update speeds
+				for i=2,10 do v=v+i*(i-1)*7.2/(frame-P.dropTime[i])end P.dropSpeed=P.dropSpeed*.99+v*.1
+				--Update speeds
+				if modeEnv.royaleMode then
+					if P.keyPressing[9]then
+						P.swappingAtkMode=min(P.swappingAtkMode+2,30)
+					else
+						P.swappingAtkMode=P.swappingAtkMode+((#P.field>15 and P.swappingAtkMode>4 or P.swappingAtkMode>8)and -1 or 1)
+					end
+				end
+			end
 
-			if P.ai then
+			if P.ai and P.waiting==-1 then
 				P.ai.controlDelay=P.ai.controlDelay-1
 				if P.ai.controlDelay==0 then
 					if #P.ai.controls>0 then
 						pressKey(P.ai.controls[1],P)
 						releaseKey(P.ai.controls[1],P)
 						rem(P.ai.controls,1)
-						P.ai.controlDelay=P.ai.controlDelay0+rnd(3)
+						P.ai.controlDelay=P.ai.controlDelay0+1
 					else
 						AI_getControls(P.ai.controls)
-						P.ai.controlDelay=2*P.ai.controlDelay0
+						P.ai.controlDelay=P.ai.controlDelay0+2
+						if Timer()-P.modeData.point>P.modeData.event then
+							P.modeData.point=Timer()
+							P.modeData.event=P.ai.controlDelay0+rnd(2,10)
+							changeAtkMode(rnd()<.85 and 1 or #P.atker>3 and 4 or rnd()<.35 and 2 or 3)
+						end
 					end
 				end
 			end
+			if not P.keepVisible then
+				for j=1,#P.field do for i=1,10 do
+					if P.visTime[j][i]>0 then P.visTime[j][i]=P.visTime[j][i]-1 end
+				end end
+			end--Fresh visible time
 
-			for j=1,#field do for i=1,10 do
+			if P.keyPressing[1]or P.keyPressing[2]then
-				if visTime[j][i]>0 then P.visTime[j][i]=visTime[j][i]-1 end
+				P.moving=P.moving+(P.moving>0 and 1 or -1)
-			end end
+				local d=abs(P.moving)-P.gameEnv.das
-			--Fresh visible time
-			if keyPressing[1]or keyPressing[2]then
-				local d=abs(moving)-gameEnv.das
 				if d>1 then
-					if gameEnv.arr>0 then
+					if P.gameEnv.arr>0 then
-						if d%gameEnv.arr==0 then
+						if d%P.gameEnv.arr==0 then
-							act[moving>0 and"moveRight"or"moveLeft"](true)
+							act[P.moving>0 and"moveRight"or"moveLeft"](true)
 						end
 					else
-						act[moving>0 and"toRight"or"toLeft"]()
+						act[P.moving>0 and"insRight"or"insLeft"]()
 					end
 				end
-				P.moving=moving+sgn(moving)
 			else
 				P.moving=0
 			end
-			if keyPressing[7]then
+			if P.keyPressing[7]and not P.keyPressing[9]then
-				local d=abs(downing)-gameEnv.sddas
+				local d=abs(P.downing)-P.gameEnv.sddas
+				P.downing=P.downing+1
 				if d>1 then
-					if gameEnv.sdarr>0 then
+					if P.gameEnv.sdarr>0 then
-						if d%gameEnv.sdarr==0 then
+						if d%P.gameEnv.sdarr==0 then
 							act.down1()
 						end
 					else
-						act.toDown()
+						act.insDown()
 					end
 				end
-				P.downing=downing+1
 			else
 				P.downing=0
 			end
-			if falling>0 then
+			if P.falling>=0 then
-				P.falling=falling-1
+				P.falling=P.falling-1
-				if falling<=0 then
+				if P.falling>=0 then goto stop end
-					if #field>clearing[1]then SFX("fall")end
+				if P.gameEnv.fall>0 and #P.field>P.clearing[1]then SFX("fall")end
-					for i=1,#clearing do
+				for i=1,#P.clearing do
-						removeRow(field,clearing[i])
+					removeRow(P.field,P.clearing[i])
-						removeRow(visTime,clearing[i])
+					removeRow(P.visTime,P.clearing[i])
-					end
-					P.clearing={}
 				end
-				--Rows cleared drop
+				::L::
-			elseif waiting>0 then
+					rem(P.clearing)
-				P.waiting=waiting-1
+				if P.clearing[1]then goto L end
-				if waiting<=0 then
+			end
-					resetblock()
+			if P.waiting>=0 then
+				P.waiting=P.waiting-1
+				if P.waiting==-1 then resetblock()end
+				goto stop
+			end
+			if P.curY~=P.y_img then
+				if P.dropDelay>=0 then
+					P.dropDelay=P.dropDelay-1
+					if P.dropDelay>=0 then goto stop end
+				end
+				drop()
+				P.dropDelay=P.gameEnv.drop
+				if P.freshTime<=P.gameEnv.freshLimit then
+					P.lockDelay=P.gameEnv.lock
 				end
 			else
-				if cy~=y_img then
+				P.lockDelay=P.lockDelay-1
-					if dropDelay>1 then
+				if P.lockDelay>=0 then goto stop end
-						P.dropDelay=dropDelay-1
+				drop()
-					else
+			end
-						drop()
+			::stop::
-						P.dropDelay,P.lockDelay=gameEnv.drop,gameEnv.lock
+			if P.b2b1==P.b2b then
-					end
+			elseif P.b2b1<P.b2b then
-				else
+				P.b2b1=min(P.b2b1*.98+P.b2b*.02+.4,P.b2b)
-					if lockDelay>0 then P.lockDelay=lockDelay-1
+			else
-					else drop()
+				P.b2b1=max(P.b2b1*.95+P.b2b*.05-.6,P.b2b)
-					end
+			end
+			--Alive
+		else
+			if not P.small then
+				P.keySpeed=P.keySpeed*.96+P.stat.key/P.stat.time*60*.04
+				P.dropSpeed=P.dropSpeed*.96+P.stat.piece/P.stat.time*60*.04
+				--Final average speeds
+				if modeEnv.royaleMode then
+					P.swappingAtkMode=min(P.swappingAtkMode+2,30)
 				end
 			end
-			if P.b2b>480 then P.b2b=P.b2b-1 end
+			if P.falling>=0 then
-		else--Alive
+				P.falling=P.falling-1
-			P.keySpeed=keySpeed*.96+cstat.key/time*60*.04
+				if P.falling>=0 then goto stop end
-			P.dropSpeed=dropSpeed*.96+cstat.piece/time*60*.04
+				if P.gameEnv.fall>0 and #P.field>P.clearing[1]then SFX("fall")end
-			--Final average speeds
+				for i=1,#P.clearing do
-			if falling>0 then
+					removeRow(P.field,P.clearing[i])
-				P.falling=falling-1
+					removeRow(P.visTime,P.clearing[i])
-				if falling<=0 then
-					if #field>clearing[1]then SFX("fall")end
-					for i=1,#clearing do
-						removeRow(field,clearing[i])
-						removeRow(visTime,clearing[i])
-					end
-					P.clearing={}
 				end
-			end--Rows cleared drop
+				::L::
-			for j=1,#field do for i=1,10 do
+					rem(P.clearing)
-				if visTime[j][i]<20 then P.visTime[j][i]=visTime[j][i]+.5 end
+				if P.clearing[1]then goto L end
-			end end--Make field visible
+			end::stop::
-		end--Dead
+			if P.endCounter<40 then
-		for i=#bonus,1,-1 do
+				for j=1,#P.field do for i=1,10 do
-			bonus[i].t=bonus[i].t+1
+					if P.visTime[j][i]<20 then P.visTime[j][i]=P.visTime[j][i]+.5 end
-			if bonus[i].t>60 then rem(bonus,i)end
+				end end--Make field visible
+			end
+			if P.b2b1>0 then P.b2b1=max(0,P.b2b1*.92-1)end
+			--Dead
 		end
-		for i=#task,1,-1 do
+		for i=#P.shade,1,-1 do
-			if task[i]()then rem(task,i)end
+			local S=P.shade[i]
+			S[1]=S[1]-1
+			if S[1]==0 then
+				rem(P.shade,i)
+			end
 		end
-		for i=#atkBuffer,1,-1 do
+		for i=#P.bonus,1,-1 do
-			local atk=atkBuffer[i]
+			local b=P.bonus[i]
+			if b.inf then
+				if b.t<30 then
+					b.t=b.t+.5
+				end
+			else
+				b.t=b.t+b.speed
+				if b.t>=60 then rem(P.bonus,i)end
+			end
+		end
+		for i=#P.atkBuffer,1,-1 do
+			local atk=P.atkBuffer[i]
 			atk.time=atk.time+1
 			if not atk.sent then
 				if atk.countdown>0 then
-					atk.countdown=atk.countdown-1
+					atk.countdown=atk.countdown-garbageSpeed
 				end
 			else
 				if atk.time>20 then
-					rem(atkBuffer,i)
+					rem(P.atkBuffer,i)
 				end
 			end
 		end
-		if fieldBeneath>0 then P.fieldBeneath=fieldBeneath-3 end
+		if P.fieldBeneath>0 then P.fieldBeneath=max(P.fieldBeneath-pushSpeed,0)end
-		P.b2b1=P.b2b1*.95+P.b2b*.05
+		if not P.small then
-		PTC.dust[p]:update(dt)
+			PTC.dust[p]:update(dt)
+		end
+	end
+	if modeEnv.royaleMode and frame%120==0 then freshMostDangerous()end
+end
+function Tmr.pause(dt)
+	if not gamefinished then
+		pauseTime=pauseTime+dt
+	end
+	if pauseTimer<50 and not wd.isMinimized()then
+		pauseTimer=pauseTimer+1
 	end
-	setmetatable(_G,nil)
 end

toolfunc.lua

@@ -0,0 +1,394 @@
+local tm=love.timer
+local gc=love.graphics
+local kb=love.keyboard
+local setFont=setFont
+local toN,toS=tonumber,tostring
+
+local function splitS(s,sep)
+	local t={}
+	::L::
+		local i=find(s,sep)or #s+1
+		ins(t,sub(s,1,i-1))
+		s=sub(s,i+#sep)
+	if #s~=0 then goto L end
+	return t
+end
+function mStr(s,x,y)
+	gc.printf(s,x-320,y,640,"center")
+end
+
+function getNewRow(val)
+	local t=rem(freeRow)
+	for i=1,10 do
+		t[i]=val
+	end
+	--clear a row and move to active list
+	if #freeRow==0 then
+		for i=1,10 do
+			ins(freeRow,{0,0,0,0,0,0,0,0,0,0})
+		end
+	end
+	--prepare new rows
+	return t
+end
+function removeRow(t,k)
+	ins(freeRow,rem(t,k))
+end
+
+--Single-usage funcs
+langName={"中文","全中文","English"}
+local langID={"chi","chi_full","eng"}
+function swapLanguage(l)
+	text=require("language/"..langID[l])
+	Buttons.sel=nil
+	for S,L in next,Buttons do
+		for N,B in next,L do
+			B.alpha=0
+			B.t=text.ButtonText[S][N]
+		end
+	end
+	drawableText.next:set(text.next)
+	drawableText.hold:set(text.hold)
+	if royaleCtrlPad then royaleCtrlPad:release()end
+	gc.push("transform")
+	gc.origin()
+		royaleCtrlPad=gc.newCanvas(300,100)
+		gc.setCanvas(royaleCtrlPad)
+		gc.setColor(1,1,1)
+		setFont(25)
+		gc.setLineWidth(2)
+		for i=1,4 do
+			gc.rectangle("line",RCPB[2*i-1],RCPB[2*i],90,35,8,4)
+			mStr(text.atkModeName[i],RCPB[2*i-1]+45,RCPB[2*i]+3)
+		end
+		gc.setCanvas()
+	gc.pop()
+	collectgarbage()
+end
+
+local vibrateLevel={0,.02,.03,.04,.05,.06,.07,.08}
+function VIB(t)
+	if setting.vib>0 then
+		love.system.vibrate(vibrateLevel[setting.vib+t])
+	end
+end
+function sysSFX(s,v)
+	if setting.sfx then
+		local n=1
+		::L::if sfx[s][n]:isPlaying()then
+			n=n+1
+			if not sfx[s][n]then
+				sfx[s][n]=sfx[s][n-1]:clone()
+				sfx[s][n]:seek(0)
+				goto quit
+			end
+			goto L
+		end::quit::
+		sfx[s][n]:setVolume(v or 1)
+		sfx[s][n]:play()
+	end
+end
+function SFX(s,v)
+	if setting.sfx and not P.ai then
+		local n=1
+		::L::if sfx[s][n]:isPlaying()then
+			n=n+1
+			if not sfx[s][n]then
+				sfx[s][n]=sfx[s][n-1]:clone()
+				sfx[s][n]:seek(0)
+				goto quit
+			end
+			goto L
+		end::quit::
+		sfx[s][n]:setVolume(v or 1)
+		sfx[s][n]:play()
+	end
+end
+function BGM(s)
+	if setting.bgm and bgmPlaying~=s then
+		if bgmPlaying then newTask(Event_task.bgmFadeOut,nil,bgmPlaying)end
+		for i=1,#Task do
+			if Task[i].code==Event_task.bgmFadeIn then
+				Task[i].code=Event_task.bgmFadeOut
+			end
+		end
+		if s then
+			newTask(Event_task.bgmFadeIn,nil,s)
+			bgm[s]:play()
+		end
+		bgmPlaying=s
+	end
+end
+
+local swapDeck_data={
+	{4,0,1,1},{6,0,15,1},{5,0,9,1},{6,0,6,1},
+	{1,0,3,1},{3,0,12,1},{1,1,8,1},{2,1,4,2},
+	{3,2,13,2},{4,1,12,2},{5,2,1,2},{7,1,11,2},
+	{2,1,9,3},{3,0,6,3},{4,2,14,3},{1,0,4,4},
+	{7,1,1,4},{6,0,2,4},{5,2,6,4},{6,0,14,5},
+	{3,3,15,5},{4,0,7,6},{7,1,10,5},{5,0,2,6},
+	{2,1,1,7},{1,0,4,6},{4,1,13,5},{1,1,6,7},
+	{5,3,11,5},{3,2,11,7},{6,0,8,7},{4,2,12,8},
+	{7,0,8,9},{1,0,2,8},{5,2,4,8},{6,0,15,8},
+}--Block id [ZSLJTOI] ,dir,x,y
+local swap={
+	none={2,1,d=function()end},
+	flash={8,1,d=function()gc.clear(1,1,1)end},
+	fade={30,15,d=function()
+		local t=1-abs(sceneSwaping.time*.06667-1)
+		gc.setColor(0,0,0,t)
+		gc.rectangle("fill",0,0,1280,720)
+	end},
+	deck={50,8,d=function()
+		local t=sceneSwaping.time
+		gc.setColor(1,1,1)
+		if t>8 then
+			local t=max(t,15)
+			for i=1,51-t do
+				local bn=swapDeck_data[i][1]
+				local b=blocks[bn][swapDeck_data[i][2]]
+				local cx,cy=swapDeck_data[i][3],swapDeck_data[i][4]
+				for y=1,#b do for x=1,#b[1]do
+					if b[y][x]then
+						gc.draw(blockSkin[bn],80*(cx+x-2),80*(10-cy-y),nil,8/3)
+					end
+				end end
+			end
+		end
+		if t<17 then
+			gc.setColor(1,1,1,(8-abs(t-8))*.125)
+			gc.rectangle("fill",0,0,1280,720)
+		end
+	end},
+}--Scene swapping animations
+function gotoScene(s,style)
+	if not sceneSwaping and s~=scene then
+		style=style or"fade"
+		sceneSwaping={
+			tar=s,style=style,
+			time=swap[style][1],mid=swap[style][2],
+			draw=swap[style].d
+		}
+		Buttons.sel=nil
+		if style~="none"then
+			sysSFX("swipe")
+		end
+	end
+end
+function updateStat()
+	for k,v in next,players[1].stat do
+		print(k)
+		stat[k]=stat[k]+v
+	end
+end
+local prevMenu={
+	load=love.event.quit,
+	intro="quit",
+	main="intro",
+	mode="main",
+	custom="mode",
+	draw=function()
+		kb.setKeyRepeat(false)
+		gotoScene("custom")
+	end,
+	ready="mode",
+	play=function()
+		updateStat()
+		clearTask("play")
+		gotoScene(curMode.id~="custom"and"mode"or"custom","deck")
+	end,
+	pause=null,
+	help="main",
+	stat="main",
+	setting=function()
+		saveSetting()
+		gotoScene("main")
+	end,
+	setting2="setting",
+	setting3="setting",
+}prevMenu.pause=prevMenu.play
+function back()
+	local t=prevMenu[scene]
+	if type(t)=="string"then
+		gotoScene(t)
+	else
+		t()
+	end
+end
+function pauseGame()
+	pauseTimer=0--Pause timer for animation
+	if not gamefinished then
+		pauseCount=pauseCount+1
+		if bgmPlaying then bgm[bgmPlaying]:pause()end
+	end
+	for i=1,#players.alive do
+		local l=players.alive[i].keyPressing
+		for j=1,#l do
+			if l[j]then
+				releaseKey(j,players.alive[i])
+			end
+		end
+	end
+	gotoScene("pause","none")
+end
+function resumeGame()
+	if bgmPlaying then bgm[bgmPlaying]:play()end
+	gotoScene("play","fade")
+end
+local dataOpt={
+	"run","game","time",
+	"key","rotate","hold","piece","row",
+	"atk","send","recv","pend",
+	"clear_1","clear_2","clear_3","clear_4",
+	"spin_0","spin_1","spin_2","spin_3",
+	"b2b","b3b","pc",
+}
+local saveOpt={
+	"ghost","center",
+	"grid","swap",
+	"fxs","bg",
+
+	"das","arr",
+	"sddas","sdarr",
+
+	"lang",
+
+	"sfx","bgm",
+	"vib",
+	"fullscreen",
+	"bgblock",
+	"virtualkeyAlpha",
+	"virtualkeyIcon",
+	"virtualkeySwitch",
+	"frameMul",
+}
+function loadData()
+	userData:open("r")
+	--local t=splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	local t=splitS(userData:read(),"\r\n")
+	userData:close()
+	for i=1,#t do
+		local i=t[i]
+		if find(i,"=")then
+			local t=sub(i,1,find(i,"=")-1)
+			local v=sub(i,find(i,"=")+1)
+			if t=="gametime"then t="time"end
+			for i=1,#dataOpt do
+				if t==dataOpt[i]then goto L end
+			end
+			goto E
+			::L::
+				v=toN(v)if not v or v<0 then v=0 end
+				stat[t]=v
+			::E::
+		end
+	end
+end
+function saveData()
+	local t={}
+	for i=1,#dataOpt do
+		ins(t,dataOpt[i].."="..toS(stat[dataOpt[i]]))
+	end
+	t=concat(t,"\r\n")
+	--t=love.math.compress(t,"zlib"):getString()
+	userData:open("w")
+	userData:write(t)
+	userData:close()
+end
+function loadSetting()
+	userSetting:open("r")
+	--local t=splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	local t=splitS(userSetting:read(),"\r\n")
+	userSetting:close()
+	for i=1,#t do
+		local i=t[i]
+		if find(i,"=")then
+			local t=sub(i,1,find(i,"=")-1)
+			local v=sub(i,find(i,"=")+1)
+			if t=="sfx"or t=="bgm"or t=="bgblock"then
+				setting[t]=v=="true"
+			elseif t=="vib"then
+				setting.vib=toN(v:match("[012345]"))or 0
+			elseif t=="fullscreen"then
+				setting.fullscreen=v=="true"
+				love.window.setFullscreen(setting.fullscreen)
+			elseif t=="keymap"then
+				v=splitS(v,"/")
+				for i=1,16 do
+					local v1=splitS(v[i],",")
+					for j=1,#v1 do
+						setting.keyMap[i][j]=v1[j]
+					end
+				end
+			elseif t=="keylib"then
+				v=splitS(v,"/")
+				for i=1,4 do
+					local v1=splitS(v[i],",")
+					for j=1,#v1 do
+						setting.keyLib[i][j]=toN(v1[j])
+					end
+					for j=1,#setting.keyLib[i]do
+						local v=setting.keyLib[i][j]
+						if int(v)~=v or v>=9 or v<=0 then
+							setting.keyLib[i]={i}
+							break
+						end
+					end
+				end
+			elseif t=="virtualkey"then
+				v=splitS(v,"/")
+				for i=1,10 do
+					if not v[i]then goto c end
+					virtualkey[i]=splitS(v[i],",")
+					for j=1,4 do
+						virtualkey[i][j]=toN(virtualkey[i][j])
+					end
+					::c::
+				end
+			elseif t=="virtualkeyAlpha"then
+				setting.virtualkeyAlpha=int(abs(toN(v)))
+			elseif t=="virtualkeyIcon"or t=="virtualkeySwitch"then
+				setting[t]=v=="true"
+			elseif t=="frameMul"then
+				setting.frameMul=min(max(toN(v)or 100,0),100)
+			elseif t=="das"or t=="arr"or t=="sddas"or t=="sdarr"then
+				v=toN(v)if not v or v<0 then v=0 end
+				setting[t]=int(v)
+			elseif t=="ghost"or t=="center"or t=="grid"or t=="swap"or t=="fxs"or t=="bg"then
+				setting[t]=v=="true"
+			elseif t=="lang"then
+				setting[t]=toN(v:match("[123]"))or 1
+			end
+		end
+	end
+end
+function saveSetting()
+	local vk={}
+	for i=1,10 do
+		for j=1,4 do
+			virtualkey[i][j]=int(virtualkey[i][j]+.5)
+		end--Saving a integer is better?
+		vk[i]=concat(virtualkey[i],",")
+	end--pre-pack virtualkey setting
+	local map={}
+	for i=1,16 do
+		map[i]=concat(setting.keyMap[i],",")
+	end
+	local lib={}
+	for i=1,4 do
+		lib[i]=concat(setting.keyLib[i],",")
+	end
+	local t={
+		"keymap="..toS(concat(map,"/")),
+		"keylib="..toS(concat(lib,"/")),
+		"virtualkey="..toS(concat(vk,"/")),
+	}
+	for i=1,#saveOpt do
+		ins(t,saveOpt[i].."="..toS(setting[saveOpt[i]]))
+	end
+	t=concat(t,"\r\n")
+	--t=love.math.compress(t,"zlib"):getString()
+	userSetting:open("w")
+	userSetting:write(t)
+	userSetting:close()
+end

user_actions.lua

@@ -1,53 +0,0 @@
-act={
-	moveLeft=function(auto)
-		if not auto then P.moving=-1 end
-		if not ifoverlap(cb,cx-1,cy)then
-			P.cx=cx-1
-			freshgho()
-			freshLockDelay()
-			if cy==y_img then SFX("move")end
-			P.spinLast=false
-		end
-	end,
-	moveRight=function(auto)
-		if not auto then P.moving=1 end
-		if not ifoverlap(cb,cx+1,cy)then
-			P.cx=cx+1
-			freshgho()
-			freshLockDelay()
-			if cy==y_img then SFX("move")end
-			P.spinLast=false
-		end
-	end,
-	hardDrop=function()
-		if P.waiting<=0 then
-			if cy~=y_img then
-				P.cy=y_img
-				P.spinLast=false
-				SFX("drop")
-			end
-			drop()
-			P.keyPressing[6]=false
-		end
-	end,
-	softDrop=function()
-		if cy~=y_img then P.cy=cy-1 end
-		P.downing=1
-	end,
-	rotRight=function()spin(1)end,
-	rotLeft=function()spin(-1)end,
-	rotFlip=function()spin(2)end,
-	hold=hold,
-	--Player movements
-	restart=function()
-		resetGameData()
-		count=60+26--Althour'z neim
-	end,
-	down1=function()if cy~=y_img then P.cy=cy-1 end end,
-	down4=function()for i=1,4 do if cy~=y_img then P.cy=cy-1 else break end end end,
-	toDown=function()if cy~= y_img then P.cy,P.lockDelay,P.spinLast=y_img,gameEnv.lock,false end end,
-	toLeft=function()while not ifoverlap(cb,cx-1,cy)do P.cx,P.lockDelay=cx-1,gameEnv.lock;freshgho()end end,
-	toRight=function()while not ifoverlap(cb,cx+1,cy)do P.cx,P.lockDelay=cx+1,gameEnv.lock;freshgho()end end,
-	quit=function()Event.gameover.lose()end,
-	--System movements
-}