Alpha V0.7.12

ai.lua

@@ -49,14 +49,15 @@ 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
 	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()
@@ -73,20 +74,19 @@ function getScore(field,bn,cb,cx,cy)
 	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
-		end
-		if f then
-			removeRow(field,i)
-			clear=clear+1
+			if field[i][j]==0 then goto L end
 		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
@@ -123,7 +123,7 @@ end
 function AI_getControls(ctrl)
 	local Tfield={}--test field
 	local field_org=P.field
-    for i=1,#field_org do
+	for i=1,#field_org do
 		Tfield[i]=getNewRow()
 		for j=1,10 do
 			Tfield[i][j]=field_org[i][j]
@@ -131,13 +131,14 @@ function AI_getControls(ctrl)
 	end
 	local best={x=1,dir=0,hold=false,score=-9e99}
 	for ifhold=0,P.gameEnv.hold and 1 or 0 do
-		local bn=ifhold==0 and P.bn or P.hn>0 and P.hn or P.nxt[1]
+		local bn=ifhold==0 and P.curID or P.holdID>0 and P.holdID or P.nextID[1]
 		for dir=0,dirCount[bn] do--each dir
 			local cb=blocks[bn][dir]
 			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
@@ -156,8 +157,11 @@ function AI_getControls(ctrl)
 			end
 		end
 	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)
@@ -167,11 +171,4 @@ function AI_getControls(ctrl)
 		ins(ctrl,l[i])
 	end
 	ins(ctrl,6)
-
-	if rnd()<.1 then
-		if P.atkMode~=4 and P==mostDangerous then
-			ins(P.ai.controls,9)
-			--Smarter AI???
-		end
-	end
 end

call&sys.lua

@@ -12,36 +12,34 @@ function onVirtualkey(x,y)
 	end
 	return nearest
 end
-
 function buttonControl_key(i)
 	if i=="up"or i=="down"or i=="left"or i=="right"then
-		if not Buttons.sel then
-			Buttons.sel=1
+		if Buttons.sel then
+			Buttons.sel=Buttons[scene][Buttons.sel[i]]or Buttons.sel
 		else
-			Buttons.sel=Buttons[scene][Buttons.sel][i]or Buttons.sel
+			Buttons.sel=select(2,next(Buttons[scene]))
+			mouseShow=false
 		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
+			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 not Buttons.sel then
-			Buttons.sel=1
-			mouseShow=false
+		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=Buttons[scene][Buttons.sel][i=="dpup"and"up"or i=="dpdown"and"down"or i=="dpleft"and"left"or"right"]or Buttons.sel
+			Buttons.sel=select(2,next(Buttons[scene]))
+			mouseShow=false
 		end
 	elseif i=="start"then
 		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			B.code()
-			B.alpha=1
+			Buttons.sel.alpha=1
+			Buttons.sel.code()
 			sysSFX("button")
 		end
 	end
@@ -66,11 +64,25 @@ function keyDown.intro(key)
 end
 function keyDown.mode(key)
 	if key=="down"then
-		if modeSel<#modeID then modeSel=modeSel+1 end
+		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 end
+		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
-		startGame(modeID[modeSel])
+		loadGame(modeSel,levelSel)
 	elseif key=="c"then
 		gotoScene("custom")
 	elseif key=="escape"then
@@ -89,7 +101,7 @@ function keyDown.custom(key)
 	elseif key=="up"then
 		optSel=(optSel-2)%#customID+1
 	elseif key=="return"then
-		startGame("custom")
+		loadGame(0,1)
 	elseif key=="escape"then
 		back()
 	end
@@ -124,15 +136,15 @@ function keyDown.setting2(key)
 	end
 end
 function keyDown.play(key)
-	if key=="escape"then back()return nil end
+	if key=="escape"then back()return end
 	local m=setting.keyMap
-	for p=1,4 do
+	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 nil
+					return
 				end
 			end
 		end
@@ -141,13 +153,13 @@ end
 keyUp={}
 function keyUp.play(key)
 	local m=setting.keyMap
-	for p=1,4 do
+	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 nil
+					return
 				end
 			end
 		end
@@ -167,7 +179,7 @@ function gamepadDown.mode(key)
 	elseif key=="dpup"then
 		if modeSel>1 then modeSel=modeSel-1 end
 	elseif key=="start"then
-		startGame(modeID[modeSel])
+		loadGame(modeSel,levelSel)
 	elseif key=="back"then
 		back()
 	end
@@ -202,7 +214,7 @@ function gamepadDown.setting2(key)
 	end
 end
 function gamepadDown.play(key)
-	if key=="back"then back()return nil end
+	if key=="back"then back()return end
 	local m=setting.keyMap
 	for p=1,4 do
 		local lib=setting.keyLib[p]
@@ -210,7 +222,7 @@ function gamepadDown.play(key)
 			for k=1,12 do
 				if key==m[8+lib[s]][k]then
 					pressKey(k,players[p])
-					return nil
+					return
 				end
 			end
 		end
@@ -225,7 +237,7 @@ function gamepadUp.play(key)
 			for k=1,12 do
 				if key==m[8+lib[s]][k]then
 					releaseKey(k,players[p])
-					return nil
+					return
 				end
 			end
 		end
@@ -234,50 +246,52 @@ end
 wheelmoved={}
 function wheelmoved.mode(x,y)
 	modeSel=min(max(modeSel-sgn(y),1),#modeID)
+	levelSel=ceil(#modeLevel[modeID[modeSel]]*.5)
 end
---Warning,these are not system callbacks!
+
 
 
 function love.mousemoved(x,y,dx,dy,t)
-	if not t then
-		mouseShow=true
-		mx,my=xOy:inverseTransformPoint(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
+	if t then return end
+	mouseShow=true
+	mx,my=xOy:inverseTransformPoint(x,y)
+	Buttons.sel=nil
+	for N,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.mousepressed(x,y,k,t,num)
-	if not t then
-		mouseShow=true
-		mx,my=xOy:inverseTransformPoint(x,y)
-		if mouseDown[scene]then
-			mouseDown[scene](mx,my,k)
-		else
-			if k==1 then
-				if not sceneSwaping and Buttons.sel then
-					local B=Buttons[scene][Buttons.sel]
-					B.code()
-					B.alpha=1
-					Buttons.sel=nil
-					love.mousemoved(x,y)
-					sysSFX("button")
-				end
-			elseif k==2 then
-				back()
+	if t then return end
+	mouseShow=true
+	mx,my=xOy:inverseTransformPoint(x,y)
+	if mouseDown[scene]then
+		mouseDown[scene](mx,my,k)
+	else
+		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)
+				sysSFX("button")
 			end
+		elseif k==2 then
+			back()
 		end
 	end
 end
 function love.mousereleased(x,y,k,t,num)
 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
@@ -311,6 +325,7 @@ function love.touchreleased(id,x,y)
 			B.code()
 			B.alpha=1
 			Buttons.sel=nil
+			sysSFX("button")
 		end
 		Buttons.sel=nil
 		mouseShow=false
@@ -339,17 +354,12 @@ function love.touchmoved(id,x,y,dx,dy)
 		local l=tc.getTouches()
 		for n=1,#virtualkey do
 			local b=virtualkey[n]
-			local p=false
 			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
-					p=true
-					break
-				end
-			end
-			if not p and players[1].keyPressing then
-				releaseKey(n,players[1])
+				if(x-b[1])^2+(y-b[2])^2<=b[3]then goto L end
 			end
+			releaseKey(n,players[1])
+			::L::
 		end
 	elseif scene=="setting3"then
 		x,y=xOy:inverseTransformPoint(x,y)
@@ -362,10 +372,34 @@ function love.touchmoved(id,x,y,dx,dy)
 end
 
 function love.keypressed(i)
-	if i=="f12"then devMode=true end
-	if keyDown[scene]then keyDown[scene](i)
-	elseif i=="escape"or i=="back"then back()
-	else buttonControl_key(i)
+	if i=="f12"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 i=1,#Buttons[scene]do
+				local B=Buttons[scene][i]
+				print(format("x=%d,y=%d,w=%d,h=%d",B.x,B.y,B.w,B.h))
+			end
+		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
@@ -376,9 +410,10 @@ end
 
 function love.gamepadpressed(joystick,i)
 	if gamepadDown[scene]then return gamepadDown[scene](i)
-	elseif i=="back"then return back()
+	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)
@@ -395,9 +430,6 @@ function love.joystickhat(js,hat,dir)
 
 end
 ]]
-function love.wheelmoved(x,y)
-	if wheelmoved[scene]then wheelmoved[scene](x,y)end
-end
 
 function love.update(dt)
 	--[[
@@ -418,29 +450,33 @@ function love.update(dt)
 			BGblock.ct=rnd(20,30)
 		end
 	end
-	--Background blocks update
-
 	if sceneSwaping then
 		sceneSwaping.time=sceneSwaping.time-1
 		if sceneSwaping.time==sceneSwaping.mid then
-			for i=1,#Buttons[scene]do
-				Buttons[scene][i].alpha=0
-			end--Reset buttons' state
-			game[sceneSwaping.tar]()
+			for k,B in next,Buttons[scene]do
+				B.alpha=0
+			end--Reset buttons' alpha
+			scene=sceneSwaping.tar
+			BGM("blank")
+			sceneInit[scene]()
 			Buttons.sel=nil
 		elseif sceneSwaping.time==0 then
 			sceneSwaping=nil
 		end
-	elseif Tmr[scene]then
+	end
+	if Tmr[scene]then
 		Tmr[scene](dt)
 	end
-	--scene swapping & Timer
+	for i=#Task,1,-1 do
+		Task[i]:update()
+	end
+	updateButton()
 end
 function love.sendData(data)
-	return nil
+	return
 end
 function love.receiveData(id,data)
-	return nil
+	return
 end
 function love.draw()
 	gc.clear()
@@ -453,7 +489,7 @@ function love.draw()
 			if b[i][j]>0 then
 				gc.draw(img,BGblock[n].x+(j-1)*30*size,BGblock[n].y+(i-1)*30*size,nil,size)
 			end
-		end end--Block
+		end end
 	end
 	if Pnt[scene]then Pnt[scene]()end
 	drawButton()
@@ -486,16 +522,19 @@ function love.draw()
 	end
 end
 function love.resize(w,h)
-	ww,wh=w,h
+	if w>=h then ww,wh=w,h
+	else ww,wh=h,w
+	end
 	screenK=h/w>=.5625 and w/1280 or h/720
 	xOy=xOy:setTransformation(w*.5,h*.5,nil,screenK,nil,640,360)
 	gc.replaceTransform(xOy)
+	collectgarbage()
 end
 function love.run()
 	local frameT=Timer()
 	local readyDrawFrame=0
 	love.resize(gc.getWidth(),gc.getHeight())
-	game.load()--System scene Launch
+	scene="load"sceneInit.load()--System Launch
 	math.randomseed(os.time()*626)
 	return function()
 		love.event.pump()
@@ -538,7 +577,7 @@ function love.run()
 				if bgmPlaying then bgm[bgmPlaying]:play()end
 			end
 		end
-		while Timer()-frameT<1/60 do end
+		::L::if Timer()-frameT<1/60 then goto L end
 		frameT=Timer()
 	end
 end

class.lua

@@ -0,0 +1,45 @@
+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 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

@@ -9,15 +9,15 @@ function love.conf(t)
 	t.audio.mixwithsystem=true--Switch on to keep sysBGM
 
 	local W=t.window
-	W.title="Techmino V0.7.5"
+	W.title="Techmino V0.7.12"
 	W.icon="/image/icon.png"
 	W.width,W.height=1280,720
+	W.minwidth,W.minheight=640,360
 	W.borderless=X
 	W.resizable=true
-	W.minwidth,W.minheight=640,360
 	W.fullscreentype="desktop"--Choose between "desktop" fullscreen or "exclusive" fullscreen mode (string)
 	W.fullscreen=X
-	W.vsync=X--0 to set ∞fps
+	W.vsync=0--0 to set ∞fps
 	W.msaa=X--The number of samples to use with multi-sampled antialiasing (number)
 	W.depth=X--Bits per sample in the depth buffer
 	W.stencil=1--The number of bits per sample in the stencil buffer

dataList.lua

@@ -0,0 +1,919 @@
+local PCbase={
+	{3,3,3,0,0,0,0,0,2,2},
+	{3,6,6,0,0,0,0,2,2,5},
+	{4,6,6,0,0,0,1,1,5,5},
+	{4,4,4,0,0,0,0,1,1,5},
+	{1,1,0,0,0,0,0,3,3,3},
+	{5,1,1,0,0,0,0,6,6,3},
+	{5,5,2,2,0,0,0,6,6,4},
+	{5,2,2,0,0,0,0,4,4,4},
+}
+local PClist={
+	{7,7,4,5},{7,7,6,4},{7,7,2,4},{7,7,1,3},{7,7,5,6},{7,7,5,2},{7,7,5,4},{7,7,5,3},
+	{7,4,1,2},{7,3,5,7},{7,5,4,3},{7,5,1,2},{7,1,4,2},{7,4,2,5},{7,6,4,5},{7,5,4,2},
+	{7,5,6,4},{7,5,3,6},{7,2,5,6},{7,2,6,4},{7,2,1,3},{7,5,2,7},{7,5,7,2},{7,5,2,3},
+	{7,5,3,2},{7,6,5,4},{7,3,1,5},{7,3,2,5},{7,4,1,5},{7,4,5,2},{7,7,3,6},{7,3,7,6},
+	{7,3,6,2},{7,3,7,1},{7,6,4,2},{3,2,7,6},{3,2,6,7},{7,7,4,5},{7,5,3,4},{7,3,6,5},
+	{7,3,2,5},{7,4,6,5},{7,5,2,3},{7,3,5,7},{7,3,2,5},{7,3,5,1},{7,5,2,3},{3,6,2,5},
+	{3,1,2,5},{3,1,1,5},{3,1,5,2},{3,1,5,1},{3,5,1,2},{4,5,3,2},{4,2,6,5},{6,5,3,2},
+	{1,4,2,5},{1,5,3,6},{5,2,6,3},{5,2,1,3},{5,2,7,4},{2,4,1,5},{2,4,5,1},{2,1,4,5},
+	{2,5,4,3},{2,5,6,7},{7,5,4,2},{4,5,3,5},
+}
+local marathon_drop={[0]=60,48,40,30,24,18,15,12,10,8,7,6,5,4,3,2,1,1,0,0}
+local rush_lock={20,18,16,15,14}
+local rush_wait={12,10,9,8,7}
+local rush_fall={18,16,14,13,12}
+local death_lock={12,10,9,8,7}
+local death_wait={10,9,8,7,6}
+local death_fall={10,9,8,7,6}
+local pc_drop={50,45,40,35,30,26,22,18,15,12}
+local pc_lock={55,50,45,40,36,32,30}
+local pc_fall={18,16,14,12,10,9,8,7,6}
+freshMethod={
+	bag7=function()
+		if #P.nextID<6 then
+			local bag={1,2,3,4,5,6,7}
+			for i=1,7 do
+				newNext(rem(bag,rnd(#bag)))
+			end
+		end
+	end,
+	his4=function()
+		if #P.nextID<6 then
+			local j,i=0
+			::L::
+				i,j=rnd(7),j+1
+			if(i==P.his[1]or i==P.his[2]or i==P.his[3]or i==P.his[4])then goto L end
+			newNext(i)
+			rem(P.his,1)ins(P.his,i)
+		end
+	end,
+	rnd=function()
+		local i
+		::L::
+			i=rnd(7)
+		if i==P.nextID[5]then goto L end
+		newNext(i)
+	end,--random
+	pc=function()
+		if P.cstat.piece%4==0 then
+			local r=rnd(#PClist)
+			local f=P.cstat.event==1
+			for i=1,4 do
+				local b=PClist[r][i]
+				if f then
+					if b<3 then b=3-b
+					elseif b<5 then b=7-b
+					end
+				end
+				newNext(b)
+			end
+			P.cstat.event=(P.cstat.event+1)%2
+		end
+	end,
+	drought1=function()
+		if #P.nextID<6 then
+			local bag={1,2,3,4,5,6}
+			for i=1,6 do
+				newNext(rem(bag,rnd(#bag)))
+			end
+		end
+	end,
+	drought2=function()
+		if #P.nextID<6 then
+			local bag={1,1,1,2,2,2,3,3,3,4,4,4,6,6,6,5,7}
+			::L::
+				newNext(rem(bag,rnd(#bag)))
+			if bag[1]then goto L end
+		end
+	end,
+}
+Event={
+	marathon_reach=function()
+		local s=int(P.cstat.row*.1)
+		if s>=20 then
+			P.cstat.row=200
+			Event_gameover.win()
+		else
+			P.gameEnv.drop=marathon_drop[s]
+			if s==18 then P.gameEnv._20G=true end
+			P.gameEnv.target=s*10+10
+			SFX("reach")
+		end
+	end,
+	master_reach_lunatic=function()
+		local t=P.cstat.point
+		if t%100==99 and #P.clearing==0 then goto L end
+		t=t+clearPoint[#P.clearing]
+		if int(t*.01)>P.cstat.event then
+			P.cstat.event=P.cstat.event+1
+			if P.cstat.event==5 then
+				P.cstat.event=4
+				P.cstat.point=500
+				Event_gameover.win()
+				goto L
+			else
+				local s=P.cstat.event+1
+				P.gameEnv.lock=rush_lock[s]
+				P.gameEnv.wait=rush_wait[s]
+				P.gameEnv.fall=rush_fall[s]
+				P.gameEnv.das=10-s
+				if s==3 then P.gameEnv.arr=2 end
+				if s==5 then P.gameEnv.bone=true end
+				showText(P,text.stage[s],"fly",80,-120)
+				SFX("reach")
+			end
+		end
+		P.cstat.point=t
+		if t%100==99 then SFX("blip_1")end
+		::L::
+	end,
+	master_reach_ultimate=function()
+		local t=P.cstat.point
+		if t%100==99 and #P.clearing==0 then goto L end
+		t=t+clearPoint[#P.clearing]
+		if int(t*.01)>P.cstat.event then
+			P.cstat.event=P.cstat.event+1
+			if P.cstat.event==5 then
+				P.cstat.event=4
+				P.cstat.point=500
+				Event_gameover.win()
+				goto L
+			else
+				local s=P.cstat.event+1
+				P.gameEnv.lock=death_lock[s]
+				P.gameEnv.wait=death_wait[s]
+				P.gameEnv.fall=death_fall[s]
+				P.gameEnv.das=int(7.3-s*.4)
+				if s==4 then P.gameEnv.bone=true end
+					showText(P,text.stage[s],"fly",80,-120)
+				SFX("reach")
+			end
+		end
+		P.cstat.point=t
+		if t%100==99 then SFX("blip_1")end
+		::L::
+	end,
+	classic_reach=function()
+		P.gameEnv.target=P.gameEnv.target+10
+		if P.gameEnv.target==100 then
+			P.gameEnv.drop,P.gameEnv.lock=0,0
+		end
+		SFX("reach")
+	end,
+	tsd_reach=function()
+		if P.lastClear~=52 then
+			Event_gameover.lose()
+		elseif #P.clearing>0 then
+			P.cstat.event=P.cstat.event+1
+			if #P.field>11 and P.cstat.event%5~=1 then
+				ins(P.clearing,1)
+			end
+		end
+	end,
+	tech_reach=function()
+		if #P.clearing>0 and P.lastClear<10 then
+			Event_gameover.lose()
+		end
+	end,
+	tech_reach_hard=function()
+		if #P.clearing>0 and P.lastClear<10 or P.lastClear==74 then
+			Event_gameover.lose()
+		end
+	end,
+	newPC=function()
+		local P=players[1]
+		if P.cstat.piece%4==0 then
+			if #P.field==#P.clearing then
+				P.counter=P.cstat.piece==0 and 20 or 0
+				newTask(Event_task.PC,P)
+				if curMode.lv==2 then
+					local s=P.cstat.pc*.5
+					if int(s)==s and s>0 then
+						P.gameEnv.drop=pc_drop[s]or 10
+						P.gameEnv.lock=pc_lock[s]or 20
+						P.gameEnv.fall=pc_fall[s]or 5
+						if s==10 then
+							showText(P,text.maxspeed,"appear",80,-140)
+						else
+							showText(P,text.speedup,"appear",30,-140)
+						end
+					end
+				end
+			else
+				Event_gameover.lose()
+			end
+		end
+	end,
+}
+Event_gameover={
+	win=function()
+		local P=players.alive[1]
+		P.alive=false
+		P.control=false
+		P.timing=false
+		P.waiting=1e99
+		P.b2b=0
+		clearTask(P)
+		if modeEnv.royaleMode then
+			P.rank=1
+			P.result="WIN"
+			showText(P,1,"appear",60,120,nil,true)
+			changeAtk(P)
+		end
+		for i=1,#P.atkBuffer do
+			P.atkBuffer[i].sent=true
+			P.atkBuffer[i].time=0
+		end
+		for i=1,#P.field do
+			for j=1,10 do
+				P.visTime[i][j]=min(P.visTime[i][j],20)
+			end
+		end
+		showText(P,text.win,"beat",90,nil,nil,true)
+		if P.id==1 and players[2]and players[2].ai then SFX("win")BGM()end
+		newTask(Event_task.win,P)
+	end,
+	lose=function()
+		P.alive=false
+		P.control=false
+		P.timing=false
+		P.waiting=1e99
+		P.b2b=0
+		clearTask(P)
+		for i=1,#players.alive do
+			if players.alive[i]==P then
+				rem(players.alive,i)
+				break
+			end
+		end
+		if modeEnv.royaleMode then
+			changeAtk(P)
+			P.result="K.O."
+			P.rank=#players.alive+1
+			showText(P,P.rank,"appear",60,120,nil,true)
+			P.strength=0
+			local A,i=P,0
+			::L::
+				A,i=A.lastRecv,i+1
+			if A and not A.alive and A~=P and i<3 then goto L end
+			if A and A~=P then
+				if P.id==1 or A.id==1 then
+					P.killMark=A.id==1
+				end
+				A.ko,A.badge=A.ko+1,A.badge+P.badge+1
+				for i=A.strength+1,4 do
+					if A.badge>=modeEnv.royalePowerup[i]then
+						A.strength=i
+					end
+				end
+				P.lastRecv=A
+				if P.id==1 or A.id==1 then
+					newTask(Event_task.throwBadge,nil,{P,max(3,P.badge)*4})
+				end
+				freshMostBadge()
+			else
+				P.badge=-1
+			end
+			freshMostDangerous()
+			for i=1,#players.alive do
+				if players.alive[i].atking==P then
+					freshTarget(players.alive[i])
+				end
+			end
+			if #players.alive==modeEnv.royaleRemain[gameStage]then
+				royaleLevelup()
+			end
+		end
+		for i=1,#P.atkBuffer do
+			P.atkBuffer[i].sent=true
+			P.atkBuffer[i].time=0
+		end
+		for i=1,#P.field do
+			for j=1,10 do
+				P.visTime[i][j]=min(P.visTime[i][j],20)
+			end
+		end
+		showText(P,text.lose,"appear",90,nil,nil,true)
+		if P.id==1 then
+			SFX("fail")
+			if modeEnv.royaleMode then
+				BGM("sores")
+			end
+		end
+		newTask(Event_task.lose,P)
+		if #players.alive==1 then
+			local t=P
+			P=players.alive[1]
+			Event_gameover.win()
+			P=t
+		end
+	end,
+}
+Event_task={
+	win=function(P)
+		P.endCounter=P.endCounter+1
+		if P.endCounter>80 then
+			if P.gameEnv.visible=="show"then
+				for i=1,#P.field do
+					for j=1,10 do
+						if P.visTime[i][j]>0 then
+							P.visTime[i][j]=P.visTime[i][j]-1
+						end
+					end
+				end
+				if P.endCounter==100 then
+					for i=1,#P.field do
+						removeRow(P.field)
+						removeRow(P.visTime)
+					end
+					return true
+				end
+			elseif P.endCounter==100 then
+				return true
+			end
+		end
+	end,
+	lose=function(P)
+		P.endCounter=P.endCounter+1
+		if P.endCounter>80 then
+			if P.gameEnv.visible=="show"then
+				for i=1,#P.field do
+					for j=1,10 do
+						if P.visTime[i][j]>0 then
+							P.visTime[i][j]=P.visTime[i][j]-1
+						end
+					end
+				end
+				if P.endCounter==100 then
+					for i=1,#P.field do
+						removeRow(P.field)
+						removeRow(P.visTime)
+					end
+					return true
+				end
+			elseif P.endCounter==100 then
+				return true
+			end
+		end
+	end,
+	throwBadge=function(P,data)
+		data[2]=data[2]-1
+		if data[2]%4==0 then
+			throwBadge(data[1],data[1].lastRecv)
+			if data[2]%8==0 then
+				sysSFX("collect")
+			end
+		end
+		if data[2]<=0 then return true end
+	end,
+	dig_normal=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if #P.clearing==0 and P.counter>=max(90,180-2*P.cstat.event)then
+			ins(P.field,1,getNewRow(10))
+			ins(P.visTime,1,getNewRow(1e99))
+			P.field[1][rnd(10)]=0
+			P.fieldBeneath=P.fieldBeneath+30
+			P.curY,P.y_img=P.curY+1,P.y_img+1
+			P.counter=0
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	dig_lunatic=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if #P.clearing==0 and P.counter>=max(45,80-.4*P.cstat.event)then
+			ins(P.field,1,getNewRow(11+P.cstat.event%3))
+			ins(P.visTime,1,getNewRow(1e99))
+			P.field[1][rnd(10)]=0
+			P.fieldBeneath=P.fieldBeneath+30
+			P.curY,P.y_img=P.curY+1,P.y_img+1
+			P.counter=0
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	survivor_easy=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if P.counter==max(60,180-2*P.cstat.event)then
+			ins(P.atkBuffer,{rnd(10),amount=1,countdown=30,cd0=30,time=0,sent=false,lv=1})
+			P.counter=0
+			if P.cstat.event==60 then showText(P,text.maxspeed,"appear",80,-140)end
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	survivor_normal=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if P.counter==max(60,180-2*P.cstat.event)then
+			local d=P.cstat.event+1
+			if d%4==0 then ins	(P.atkBuffer,{rnd(10),amount=1,countdown=60,cd0=60,time=0,sent=false,lv=1})
+			elseif d%4==1 then ins(P.atkBuffer,{rnd(10),amount=2,countdown=70,cd0=70,time=0,sent=false,lv=1})
+			elseif d%4==2 then ins(P.atkBuffer,{rnd(10),amount=3,countdown=80,cd0=80,time=0,sent=false,lv=2})
+			elseif d%4==3 then ins(P.atkBuffer,{rnd(10),amount=4,countdown=90,cd0=90,time=0,sent=false,lv=3})
+			end
+			P.counter=0
+			if P.cstat.event==60 then showText(P,text.maxspeed,"appear",80,-140)end
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	survivor_hard=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if P.counter==max(60,180-2*P.cstat.event)then
+			if P.cstat.event%3<2 then
+				ins(P.atkBuffer,{rnd(10),amount=1,countdown=0,cd0=0,time=0,sent=false,lv=1})
+			else
+				ins(P.atkBuffer,{rnd(10),amount=3,countdown=60,cd0=60,time=0,sent=false,lv=2})
+			end
+			P.counter=0
+			if P.cstat.event==45 then showText(P,text.maxspeed,"appear",80,-140)end
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	survivor_lunatic=function(P)
+		if not P.control then return end
+		P.counter=P.counter+1
+		if P.counter==max(90,150-P.cstat.event)then
+			local t=max(60,90-P.cstat.event)
+			ins(P.atkBuffer,{rnd(10),amount=4,countdown=t,cd0=t,time=0,sent=false,lv=3})
+			P.counter=0
+			if P.cstat.event==30 then showText(P,text.maxspeed,"appear",80,-140)end
+			P.cstat.event=P.cstat.event+1
+		end
+	end,
+	PC=function(P)
+		P.counter=P.counter+1
+		if P.counter==21 then
+			local t=P.cstat.pc%2
+			for i=1,4 do
+				local r=getNewRow()
+				for j=1,10 do
+					r[j]=PCbase[4*t+i][j]
+				end
+				ins(P.field,1,r)
+				ins(P.visTime,1,getNewRow(P.showTime))
+			end
+			P.fieldBeneath=P.fieldBeneath+120
+			-- P.curY=P.curY+4
+			P.y_img=P.y_img+4
+			freshgho()
+			return true
+		end
+	end,
+
+	bgmFadeOut=function(_,id)
+		bgm[id]:setVolume(max(bgm[id]:getVolume()-.03,0))
+		if bgm[id]:getVolume()==0 then
+			bgm[id]:stop()
+			return true
+		end
+	end,
+	bgmFadeIn=function(_,id)
+		bgm[id]:setVolume(min(bgm[id]:getVolume()+.03,1))
+		if bgm[id]:getVolume()==1 then return true end
+	end,
+}
+defaultModeEnv={
+	sprint={
+		{
+			drop=60,
+			target=10,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="race",
+		},
+		{
+			drop=60,
+			target=20,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="race",
+		},
+		{
+			drop=60,
+			target=40,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="race",
+		},
+		{
+			drop=60,
+			target=100,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="race",
+		},
+		{
+			drop=60,
+			target=400,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="push",
+		},
+		{
+			drop=60,
+			target=1000,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="push",
+		},
+	},
+	marathon={
+		{
+			drop=60,
+			lock=60,
+			fall=30,
+			target=200,
+			reach=Event.marathon_reach,
+			bg="strap",
+			bgm="way",
+		},
+		{
+			drop=60,
+			fall=20,
+			target=10,
+			reach=Event.marathon_reach,
+			bg="strap",
+			bgm="way",
+		},
+		{
+			_20G=true,
+			fall=15,
+			target=200,
+			reach=Event.marathon_reach,
+			bg="strap",
+			bgm="race",
+		},
+	},
+	master={
+		{
+			_20G=true,
+			drop=0,
+			lock=rush_lock[1],
+			wait=rush_wait[1],
+			fall=rush_fall[1],
+			target=0,
+			reach=Event.master_reach_lunatic,
+			das=9,arr=3,
+			freshLimit=15,
+			bg="game2",
+			bgm="secret8th",
+		},
+		{ 
+			_20G=true,
+			drop=0,
+			lock=death_lock[1],
+			wait=death_wait[1],
+			fall=death_fall[1],
+			target=0,
+			reach=Event.master_reach_ultimate,
+			das=6,arr=1,
+			freshLimit=15,
+			bg="game2",
+			bgm="secret7th",
+		},
+	},
+	classic={
+		{
+			das=15,arr=3,
+			sddas=2,sdarr=2,
+			ghost=false,center=false,
+			drop=1,lock=1,
+			wait=10,fall=25,
+			next=1,hold=false,
+			sequence="rnd",
+			freshLimit=0,
+			target=10,
+			reach=Event.classic_reach,
+			bg="rgb",
+			bgm="rockblock",
+		},
+	},
+	zen={
+		{
+			drop=1e99,
+			lock=1e99,
+			oncehold=false,
+			target=200,
+			reach=Event_gameover.win,
+			bg="strap",
+			bgm="infinite",
+		},
+	},
+	infinite={
+		{
+			drop=1e99,
+			lock=1e99,
+			oncehold=false,
+			bg="glow",
+			bgm="infinite",
+		},
+	},
+	solo={
+		{
+			freshLimit=15,
+			bg="game2",
+			bgm="race",
+		},
+	},
+	tsd={
+		{
+			oncehold=false,
+			drop=1e99,
+			lock=1e99,
+			freshLimit=15,
+			target=1,
+			reach=Event.tsd_reach,
+			ospin=false,
+			bg="matrix",
+			bgm="reason",
+		},
+		{
+			drop=60,
+			lock=60,
+			freshLimit=15,
+			target=1,
+			reach=Event.tsd_reach,
+			ospin=false,
+			bg="matrix",
+			bgm="reason",
+		},
+	},
+	blind={
+		{
+			drop=30,
+			lock=60,
+			freshLimit=15,
+			ghost=false,
+			visible="time",
+			bg="glow",
+			bgm="newera",
+		},
+		{
+			drop=15,
+			lock=60,
+			freshLimit=15,
+			visible="fast",
+			freshLimit=10,
+			bg="glow",
+			bgm="reason",
+		},
+		{
+			fall=10,
+			lock=60,
+			center=false,
+			ghost=false,
+			visible="none",
+			freshLimit=15,
+			bg="rgb",
+			bgm="secret7th",
+		},
+		{
+			fall=5,
+			lock=60,
+			block=false,
+			center=false,
+			ghost=false,
+			visible="none",
+			freshLimit=15,
+			bg="rgb",
+			bgm="secret7th",
+		},
+		{
+			_20G=true,
+			drop=0,
+			lock=15,
+			wait=10,
+			fall=15,
+			visible="fast",
+			freshLimit=15,
+			arr=1,
+			bg="game3",
+			bgm="secret8th",
+		},
+	},
+	dig={
+		{
+			drop=60,
+			lock=120,
+			fall=20,
+			freshLimit=15,
+			bg="game2",
+			bgm="push",
+		},
+		{
+			drop=10,
+			lock=30,
+			freshLimit=15,
+			bg="game2",
+			bgm="secret7th",
+		},
+	},
+	survivor={
+		{
+			drop=60,
+			lock=120,
+			fall=30,
+			freshLimit=15,
+			bg="game2",
+			bgm="push",
+		},
+		{
+			drop=30,
+			lock=60,
+			fall=20,
+			freshLimit=15,
+			bg="game2",
+			bgm="newera",
+		},
+		{
+			drop=10,
+			lock=60,
+			fall=15,
+			freshLimit=15,
+			bg="game2",
+			bgm="secret8th",
+		},
+		{
+			drop=5,
+			lock=60,
+			fall=10,
+			freshLimit=15,
+			bg="game3",
+			bgm="secret7th",
+		},
+	},
+	tech={
+		{
+			oncehold=false,
+			drop=1e99,
+			lock=1e99,
+			target=0,
+			reach=Event.tech_reach,
+			bg="matrix",
+			bgm="way",
+		},
+		{
+			drop=30,
+			lock=60,
+			target=0,
+			reach=Event.tech_reach,
+			bg="matrix",
+			bgm="way",
+		},
+		{
+			drop=15,
+			lock=60,
+			target=0,
+			reach=Event.tech_reach_hard,
+			freshLimit=15,
+			bg="matrix",
+			bgm="way",
+		},
+		{
+			drop=5,
+			lock=40,
+			target=0,
+			freshLimit=15,
+			reach=Event.tech_reach_hard,
+			bg="matrix",
+			bgm="way",
+		},
+		{
+			drop=1,
+			lock=40,
+			target=0,
+			freshLimit=15,
+			reach=Event.tech_reach_hard,
+			bg="matrix",
+			bgm="secret7th",
+		},
+	},
+	pctrain={
+		{
+			next=4,
+			hold=false,
+			drop=120,
+			lock=120,
+			fall=20,
+			sequence="pc",
+			target=0,
+			reach=Event.newPC,
+			ospin=false,
+			bg="rgb",
+			bgm="newera",
+		},
+		{
+			next=4,
+			hold=false,
+			drop=60,
+			lock=60,
+			fall=20,
+			sequence="pc",
+			target=0,
+			freshLimit=15,
+			reach=Event.newPC,
+			ospin=false,
+			bg="rgb",
+			bgm="newera",
+		},
+	},
+	pcchallenge={
+		{
+			oncehold=false,
+			drop=300,
+			lock=1e99,
+			target=100,
+			reach=Event_gameover.win,
+			ospin=false,
+			bg="rgb",
+			bgm="newera",
+		},
+		{
+			drop=60,
+			lock=120,
+			fall=10,
+			target=100,
+			reach=Event_gameover.win,
+			freshLimit=15,
+			ospin=false,
+			bg="rgb",
+			bgm="infinite",
+		},
+		{
+			drop=20,
+			lock=60,
+			fall=20,
+			target=100,
+			reach=Event_gameover.win,
+			freshLimit=15,
+			ospin=false,
+			bg="rgb",
+			bgm="infinite",
+		},
+	},
+	techmino41={
+		{
+			fall=20,
+			royaleMode=true,
+			royalePowerup={2,5,10,20},
+			royaleRemain={30,20,15,10,5},
+			pushSpeed=2,
+			freshLimit=15,
+			bg="game3",
+			bgm="rockblock",
+		},
+	},
+	techmino99={
+		{
+			fall=20,
+			royaleMode=true,
+			royalePowerup={2,6,14,30},
+			royaleRemain={75,50,35,20,10},
+			pushSpeed=2,
+			freshLimit=15,
+			bg="game3",
+			bgm="rockblock",
+		},
+	},
+	drought={
+		{
+			drop=20,
+			lock=60,
+			sequence="drought1",
+			target=100,
+			reach=Event_gameover.win,
+			ospin=false,
+			freshLimit=15,
+			bg="glow",
+			bgm="reason",
+		},
+		{
+			drop=20,
+			lock=60,
+			sequence="drought2",
+			target=100,
+			reach=Event_gameover.win,
+			ospin=false,
+			freshLimit=15,
+			bg="glow",
+			bgm="reason",
+		},
+	},
+	hotseat={
+		{
+			freshLimit=15,
+			bg="none",
+			bgm="way",
+		},
+	},
+	custom={
+		{
+			bg="none",
+			bgm="reason",
+			reach=Event_gameover.win,
+		},
+	},
+}

language/chi.lua

@@ -0,0 +1,195 @@
+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="Techrash B2B",
+	techrashB3B="Techrash B2B2B",
+	block={"Z","S","L","J","T","O","I"},
+	spin={"Z-spin","S-spin","L-spin","J-spin","T-spin","O-spin","I-spin"},
+	clear={" single"," double"," triple"},
+	b2b="B2B ",
+	b3b="B2B2B ",
+	mini="Mini",
+	PC="Perfect Clear",
+	hold="暂存",
+	next="下一个",
+
+	stage={"关卡 1","关卡 2","关卡 3","关卡 4","关卡 5",},
+	maxspeed="最高速度",
+	speedup="速度加快",
+
+	win="胜利",
+	lose="失败",
+
+	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="手柄",
+	setting2Help="方向键选择/翻页,回车修改,esc返回",
+
+
+	actName={"左移:","右移:","顺时针旋转:","逆时针旋转:","180°旋转","硬降:","软降:","暂存:","切换攻击:","重新开始:","左瞬移:","右瞬移:","软降到底:"},
+	modeName={
+		[0]="自定义",
+		"竞速","马拉松","大师","经典","禅","无尽","单挑","仅TSD","隐形","挖掘","生存","科研",
+		"全清训练","全清挑战","41人混战","99人混战","干旱","多人",
+	},
+	modeInfo={
+		sprint="挑战世界纪录",
+		marathon="尝试坚持到最后",
+		master="成为方块大师",
+		classic="高速经典",
+		zen="无重力消除200行",
+		infinite="科研沙盒",
+		solo="打败AI",
+		tsd="尽可能做T旋消2",
+		blind="最强大脑",
+		dig="核能挖掘机",
+		survivor="防守练习",
+		tech="ALLSPIN练习",
+		pctrain="熟悉全清定式的组合",
+		pcchallenge="100行内尽可能多全清",
+		techmino41="41人混战",
+		techmino99="99人混战",
+		drought="异常序列",
+		hotseat="友尽模式",
+	},
+
+	loadTip="真在加载,不只是动画!",
+	load={"加载材质ing","加载音乐ing","加载音效ing","加载完成",},
+	tips={
+		"The whole game is made by MrZ!",
+		"Back to Back 10 combo Techrash PC!",
+		"Techmino has a Nspire-CX edition!",
+		"Is B2B2B2B possible?",
+		"MrZ spin Penta!",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O spin Techrash?"
+	},
+	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=">",
+			start="开始",
+			back="返回",
+		},
+		play={
+			back="返回",
+		},
+		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,
+			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,199 @@
+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="Techrash B2B",
+	techrashB3B="Techrash B2B2B",
+	block={"Z","S","L","J","T","O","I"},
+	spin={"Z-spin","S-spin","L-spin","J-spin","T-spin","O-spin","I-spin"},
+	clear={" single"," double"," triple"},
+	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",
+
+	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"},
+		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",
+	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:","Swap:","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="Techniques practice",
+		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="",
+	},
+
+	loadTip="not animation,real loading!",
+	load={"Loading textures","Loading BGM","Loading SFX","Finished",},
+	tips={
+		"The whole game is made by MrZ!",
+		"Back to Back 10 combo Techrash PC!",
+		"Techmino has a Nspire-CX edition!",
+		"Is B2B2B2B possible?",
+		"MrZ spin Penta!",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O spin Techrash?"
+	},
+	stat={
+		"Games run:",
+		"Games played:",
+		"Game time:",
+		"Total block used:",
+		"Total rows cleared:",
+		"Total lines sent:",
+		"Total key pressed:",
+		"Total rotate:",
+		"Total hold:",
+		"Total spin:",
+	},
+	help={
+		"I think you don't need \"help\".",
+		"THIS IS ONLY A SMALL 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=">",
+			start="Start",
+			back="Back",
+		},
+		play={
+			back="Back",
+		},
+		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,
+			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

@@ -1,40 +1,22 @@
 --[["four name"
 	Techrash
+ x	Zestris
+ x	Quadruple
+ x	Tequeno
+ x	Techzino
+ x	Tectris
+	Techris
+
 	Techmino
 	Tequéno
-	Zestris
-	Quadruple
-	Tequeno
-	Techzino
-	Tectris
 ]]
-PCbase={
-	{3,3,3,0,0,0,0,0,2,2},
-	{3,6,6,0,0,0,0,2,2,5},
-	{4,6,6,0,0,0,1,1,5,5},
-	{4,4,4,0,0,0,0,1,1,5},
-	{1,1,0,0,0,0,0,3,3,3},
-	{5,1,1,0,0,0,0,6,6,3},
-	{5,5,2,2,0,0,0,6,6,4},
-	{5,2,2,0,0,0,0,4,4,4},
-}
-PClist={--ZSLJTOI
-	{7,7,4,5},{7,7,6,4},{7,7,2,4},{7,7,1,3},{7,7,5,6},{7,7,5,2},{7,7,5,4},{7,7,5,3},
-	{7,4,1,2},{7,3,5,7},{7,5,4,3},{7,5,1,2},{7,1,4,2},{7,4,2,5},{7,6,4,5},{7,5,4,2},
-	{7,5,6,4},{7,5,3,6},{7,2,5,6},{7,2,6,4},{7,2,1,3},{7,5,2,7},{7,5,7,2},{7,5,2,3},
-	{7,5,3,2},{7,6,4,5},{7,6,5,4},{7,3,1,5},{7,3,2,5},{7,4,1,5},{7,4,5,2},{7,7,3,6},
-	{7,3,7,6},{7,3,6,2},{7,3,7,1},{7,6,4,2},{3,2,7,6},{3,2,6,7},{7,7,4,5},{7,5,3,4},
-	{7,3,6,5},{7,3,2,5},{7,4,6,5},{7,6,4,5},{7,5,2,3},{7,3,5,7},{7,3,2,5},{7,3,5,1},
-	{7,5,2,3},{3,6,2,5},{3,1,2,5},{3,1,1,5},{3,1,5,2},{3,1,5,1},{3,5,1,2},{4,5,3,2},
-	{4,2,6,5},{6,5,3,2},{1,4,2,5},{1,5,3,6},{5,2,6,3},{5,2,1,3},{5,2,7,4},{2,4,1,5},
-	{2,4,5,1},{2,1,4,5},{2,5,4,3},{2,5,6,7},{7,5,4,2},
-}
+
 color={
 	red={1,0,0},
 	green={0,1,0},
 	blue={.2,.2,1},
 	yellow={1,1,0},
-	purple={1,0,1},
+	magenta={1,0,1},
 	cyan={0,1,1},
 	grey={.6,.6,.6},
 
@@ -42,7 +24,7 @@ color={
 	lightGreen={.5,1,.5},
 	lightBlue={.6,.6,1},
 	lightYellow={1,1,.5},
-	lightPurple={1,.5,1},
+	lightMagenta={1,.5,1},
 	lightCyan={.5,1,1},
 	lightGrey={.8,.8,.8},
 
@@ -50,59 +32,41 @@ color={
 	darkGreen={0,.6,0},
 	darkBlue={0,0,.6},
 	darkYellow={.6,.6,0},
-	darkPurple={.6,0,.6},
+	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={.7,.3,1},
 }
 attackColor={
-	{color.red,color.yellow},
-	{color.red,color.purple},
-	{color.blue,color.white},
-	animate={
-		function(t)
-			gc.setColor(1,t,0)
-		end,
-		function(t)
-			gc.setColor(1,0,t)
-		end,
-		function(t)
-			gc.setColor(t,t,1)
-		end,
-	}--3 animation-colorsets of attack buffer bar
+	{color.darkGrey,color.white},
+	{color.grey,color.white},
+	{color.lightPurple,color.white},
+	{color.lightRed,color.white},
+	{color.darkGreen,color.cyan},
 }
 frameColor={
 	[0]=color.white,
-	color.green,
-	color.blue,
-	color.purple,
-	color.orange,
+	color.lightGreen,
+	color.lightBlue,
+	color.lightPurple,
+	color.lightOrange,
 }
-blockName={"Z","S","L","J","T","O","I"}
 blockColor={
 	color.red,
 	color.green,
 	color.orange,
 	color.blue,
-	color.purple,
+	color.magenta,
 	color.yellow,
 	color.cyan,
 }
-clearName={"Single","Double","Triple"}
-spinName={[0]={}}
-for i=1,3 do
-	spinName[i]={}
-	for j=1,7 do
-		spinName[i][j]=blockName[j].." spin "..clearName[i]
-	end
-end
-for j=1,7 do
-	spinName[0][j]=blockName[j].." spin"
-end
 
-miniTitle_pixel={
+miniTitle_rect={
 	{2,0,5,1},{4,1,1,6},
 	{9,0,4,1},{9,3,4,1},{9,6,4,1},{8,0,1,7},
 	{15,0,3,1},{15,6,3,1},{14,0,1,7},
@@ -115,25 +79,101 @@ miniTitle_pixel={
 
 sfx={
 	"button",
-	"ready","start","win","fail",
+	"ready","start","win","fail","collect",
 	"move","rotate","rotatekick","hold",
 	"prerotate","prehold",
-	"drop","fall",
+	"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",
+	"sores",
 }
 
+sceneInit={
+	load=function()
+		curBG="none"
+		keeprun=true
+		loading=1--Loading mode
+		loadnum=1--Loading counter
+		loadprogress=0--Loading bar(0~1)
+	end,
+	intro=function()
+		curBG="none"
+		count=0
+		keeprun=true
+	end,
+	main=function()
+		curBG="none"
+		keeprun=true
+		collectgarbage()
+	end,
+	mode=function()
+		saveData()
+		modeSel=modeSel or 1
+		levelSel=levelSel or 3
+		curBG="none"
+		keeprun=true
+	end,
+	custom=function()
+		optSel=optSel or 1
+		curBG="matrix"
+		keeprun=true
+	end,
+	play=function()
+		keeprun=false
+		resetGameData()
+		sysSFX("ready")
+		mouseShow=false
+	end,
+	setting=function()
+		curBG="none"
+		keeprun=true
+	end,
+	setting2=function()
+		curBG="none"
+		keeprun=true
+			curBoard=1
+			keyboardSet=1
+			joystickSet=1
+			keyboardSetting=false
+			joystickSetting=false
+	end,--Control settings
+	setting3=function()
+		curBG="game1"
+		keeprun=true
+		defaultSel=1
+		sel=nil
+		snapLevel=1
+	end,--Touch setting
+	help=function()
+		curBG="none"
+		keeprun=true
+	end,
+	stat=function()
+		curBG="none"
+		keeprun=true
+	end,
+	quit=function()
+		love.event.quit()
+	end,
+}
 prevMenu={
 	load=love.event.quit,
 	intro="quit",
@@ -142,7 +182,8 @@ prevMenu={
 	custom="mode",
 	ready="mode",
 	play=function()
-		gotoScene(gamemode~="custom"and"mode"or"custom")
+		clearTask()
+		gotoScene(curMode.id~="custom"and"mode"or"custom")
 	end,
 	help="main",
 	stat="main",
@@ -154,33 +195,6 @@ prevMenu={
 	setting3="setting",
 }
 
-modeID={
-	"sprint","marathon","zen","infinite","solo","death","tsd","blind",
-	"pctrain","pcchallenge","techmino41","techmino99","gmroll","p2","p3","p4"
-}
-modeName={
-	"Sprint","Marathon","Zen","Infinite","1v1","Death","TSD-only","Blind",
-	"PC Train","PC Challenge","Techmino41","Techmino99","GM roll","2P","3P","4P"
-}
-modeInfo={
-	sprint="Clear 40 Lines",
-	marathon="Clear 200 Lines",
-	zen="Clear 200 Lines without gravity",
-	infinite="Infinite game,infinite happiness",
-	solo="Beat AI",
-	death="Survive under terrible speed",
-	tsd="T-spin-double Only!",
-	blind="Invisible board!",
-	pctrain="Let's learn some PCs",
-	pcchallenge="Make PCs in 100 Lines",
-	techmino41="Melee fight with 40 AIs",
-	techmino99="Melee fight with 98 AIs",
-	gmroll="Who want to be the grand master?",
-	p2="2 players game",
-	p3="3 players game",
-	p4="4 players game",
-}
-
 customID={
 	"drop",
 	"lock",
@@ -193,33 +207,7 @@ customID={
 	"target",
 	"freshLimit",
 	"opponent",
-}--Order
-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:",
-}--Key str
-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"},
-	sequence={"bag","his4","random"},
-	visible={"normal","time","invisible"},
-	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},
-}--number-Val str
+}
 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},
@@ -227,49 +215,93 @@ customRange={
 	fall={1,3,5,7,10,15,20,30,60},
 	next={0,1,2,3,4,5,6},
 	hold={true,false},
-	sequence={1,2,3},
-	visible={1,2,3},
+	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},
 }
 
+langName={"中文","English"}
+langID={"chi","eng"}
 actName={"moveLeft","moveRight","rotRight","rotLeft","rotFlip","hardDrop","softDrop","hold","swap","restart","insLeft","insRight","insDown"}
-actName_show={"Move Left:","Move Right:","Rotate Right:","Rotate Left:","Rotate Flip","Hard Drop:","Soft Drop:","Hold:","Swap:","Restart:","Instant Left:","Instant Right:","Ins Down:"}
 blockPos={4,4,4,4,4,5,4}
+clearPoint={[0]=1,2,3,5,7}
 renATK={[0]=0,0,0,1,1,2,2,3,3,4,4}--3 else
-renName={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",}
-b2bPoint={50,90,150}
+b2bPoint={50,120,200}
 b2bATK={3,5,8}
-testScore={[0]=0,[-1]=1,[-2]=0,[-3]=1,2,2,2}
+testScore={[-1]=1,[-2]=0,[-3]=1,2,2,2}
+visible_opt={show=1e99,time=300,fast=20,none=5}
+reAtk={0,0,1,1,1,2,2,3,3}
+reDef={0,1,1,2,3,3,4,4,5}
 
 spin_n={"spin_1","spin_2","spin_3"}
 clear_n={"clear_1","clear_2","clear_3","clear_4"}
-ren_n={"ren_1","ren_2","ren_3","ren_4","ren_5","ren_6","ren_7","ren_8","ren_9","ren_10","ren_11"}
-atkModeName={"Random","Badges","K.O.s","Counters"}
-up0to4={[0]="000%UP","025%UP","050%UP","075%UP","100%UP",}
-percent0to5={[0]="0%","20%","40%","60%","80%","100%",}
-reAtk={0,0,1,1,1,2,2,3,3}
-reDef={0,1,1,2,3,3,4,4,5}
-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={12,11,10,9,8}
-death_wait={9,8,7,6,5}
-death_fall={10,9,8,7,6}
-pc_drop={50,45,40,35,30,26,22,18,15,12}
-pc_lock={55,50,45,40,36,32,30}
-pc_fall={18,16,14,12,10,9,8,7,6}
-snapLevelName={"Free pos","Snap-10","Snap-20","Snap-40","Snap-60","Snap-80"}
+ren_n={}for i=1,11 do ren_n[i]="ren_"..i end
+vibrateLevel={0,0,.03,.04,.05,.07,.9}
 snapLevelValue={1,10,20,40,60,80}
 
+RCPB={10,33,200,33,105,5,105,60}
+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","LUNATIC","ULTIMATE","GM"},
+	dig={"NORMAL","LUNATIC"},
+	survivor={"EASY","NORMAL","HARD","LUNATIC"},
+	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={""},
+}
+modeLevelColor={
+	EASY=color.cyan,
+	NORMAL=color.green,
+	HARD=color.magenta,
+	LUNATIC=color.red,
+	EXTRA=color.lightMagenta,
+	ULTIMATE=color.lightYellow,
+
+	MESS=color.lightGrey,
+	GM=color.blue,
+	DEATH=color.lightRed,
+	CTWC=color.lightBlue,
+	["10L"]=color.cyan,
+	["20L"]=color.lightBlue,
+	["40L"]=color.green,
+	["100L"]=color.orange,
+	["400L"]=color.red,
+	["1000L"]=color.darkRed,
+}
+
 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}}},
-	{[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}}},
+	{[0]={{0,1,1},{1,1,0}},{{1,0},{1,1},{0,1}}},
+	{[0]={{1,1,0},{0,1,1}},{{0,1},{1,1},{1,0}}},
 	{[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}}},
 	{[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}}},
 	{[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}}},
-	{[0]={{1,1},{1,1}},{{1,1},{1,1}},{{1,1},{1,1}},{{1,1},{1,1}}},
-	{[0]={{1,1,1,1}},{{1},{1},{1},{1}},{{1,1,1,1}},{{1},{1},{1},{1}}},
+	{[0]={{1,1},{1,1}},{{1,1},{1,1}}},
+	{[0]={{1,1,1,1}},{{1},{1},{1},{1}}},
 }
+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
 scs={
 	{[0]={1,2},{2,1},{2,2},{2,2}},
 	{[0]={1,2},{2,1},{2,2},{2,2}},
@@ -283,24 +315,24 @@ 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},{-1,0},{0,2},{1,2}},
+		[12]={{0,0},{1,0},{1,-1},{0,1},{-1,0},{0,2},{1,2}},
 		[21]={{0,0},{-1,0},{-1,1},{1,0},{0,-2},{-1,-2}},
 		[23]={{0,0},{1,0},{1,1},{1,-1},{0,-2},{1,-2}},
 		[32]={{0,0},{-1,0},{-1,-1},{-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}},
+		[03]={{0,0},{1,0},{1,1},{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}},
 		[31]={{0,0},{0,1},{0,-1},{1,0}},
 	},--Z/J
 	[2]={
-		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2}},
+		[01]={{0,0},{-1,0},{-1,1},{-1,-1},{0,-2},{-1,-2}},
 		[10]={{0,0},{1,0},{1,-1},{0,2},{1,2}},
 		[12]={{0,0},{1,0},{1,-1},{1,1},{0,2},{1,2}},
 		[21]={{0,0},{-1,0},{-1,1},{-1,-1},{0,-2},{-1,-2}},
 		[23]={{0,0},{1,0},{1,1},{-1,0},{0,-2},{1,-2}},
-		[32]={{0,0},{-1,0},{-1,-1},{1,0},{0,2},{-1,2}},
+		[32]={{0,0},{-1,0},{-1,-1},{0,1},{1,0},{0,2},{-1,2}},
 		[30]={{0,0},{-1,0},{-1,-1},{0,2},{-1,2},{0,-1},{-1,1}},
 		[03]={{0,0},{1,0},{1,1},{0,-2},{1,-2},{1,-1},{0,1}},
 		[02]={{0,0},{-1,0},{1,0},{0,-1},{0,1}},
@@ -309,136 +341,236 @@ TRS={
 		[31]={{0,0},{0,-1},{0,1},{-1,0}},
 	},--S/L
 	[5]={
-		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2},{-1,-1},{0,1}},
+		[01]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2},{-1,-1}},
 		[10]={{0,0},{1,0},{1,-1},{0,2},{1,2},{0,-1},{1,1}},
 		[12]={{0,0},{1,0},{1,-1},{0,-1},{0,2},{1,2},{-1,-1}},
 		[21]={{0,0},{-1,0},{-1,1},{0,-2},{-1,-2},{1,1}},
 		[23]={{0,0},{1,0},{1,1},{0,-2},{1,-2},{-1,1}},
 		[32]={{0,0},{-1,0},{-1,-1},{0,-1},{0,2},{-1,2},{1,-1}},
 		[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}},
+		[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}},
 	},
 	[7]={
-		[01]={{0,0},{1,0},{-2,0},{-2,-1},{1,2}},
-		[10]={{0,0},{2,0},{-1,0},{2,1},{-1,-2}},
+		[01]={{0,0},{0,1},{1,0},{-2,0},{-2,-1},{1,2}},
+		[03]={{0,0},{0,1},{-1,0},{2,0},{2,-1},{-1,2}},
+		[10]={{0,0},{2,0},{-1,0},{-1,-2},{2,1},{0,2}},
+		[30]={{0,0},{-2,0},{1,0},{1,-2},{-2,1},{0,2}},
 		[12]={{0,0},{-1,0},{2,0},{-1,2},{2,-1}},
+		[32]={{0,0},{1,0},{-2,0},{1,-2},{-2,-1}},
 		[21]={{0,0},{-2,0},{1,0},{1,-2},{-2,1}},
 		[23]={{0,0},{2,0},{-1,0},{-1,-2},{2,1}},
-		[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},{2,-1},{-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},{-1,0},{1,0},{0,1}},
-		[31]={{0,0},{0,-1},{1,0},{-1,0},{0,1}},
+		[31]={{0,0},{1,0},{-1,0}},
 	}
 }TRS[3],TRS[4]=TRS[2],TRS[1]
 
+dataOpt={
+	"run",
+	"game",
+	"gametime",
+	"piece",
+	"row",
+	"atk",
+	"key",
+	"rotate",
+	"hold",
+	"spin",
+}
+saveOpt={
+	"lang",
+	"ghost",
+	"center",
+	"grid",
+	"swap",
+	"sfx",
+	"bgm",
+	"vib",
+	"fullscreen",
+	"bgblock",
+	"das",
+	"arr",
+	"sddas",
+	"sdarr",
+	"virtualkeyAlpha",
+	"virtualkeyIcon",
+	"virtualkeySwitch",
+	"frameMul",
+}
+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},--swap
+		{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},--swap
+		{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},--swap
+		{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},--swap
+		{80,320,6400,80},--restart
+	},--Keyboard set
+	{
+		{1200-360,40,0,40},--moveLeft
+		{1200-280,40,0,40},--moveRight
+		{1200-520,40,0,40},--rotRight
+		{1200-600,40,0,40},--rotLeft
+		{1200-440,40,0,40},--rotFlip
+		{1200-40,40,0,40},--hardDrop
+		{1200-120,40,0,40},--softDrop
+		{1200-200,40,0,40},--hold
+		{1200-680,40,0,40},--swap
+		{1200-760,40,0,40},--restart
+	},--PC key feedback
+}
 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=back,up=3},
+		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={
-		{x=1000,y=210,w=200,h=140,rgb=color.white,t="Λ",f=64,code=function()if modeSel>1 then modeSel=modeSel-1 end end},
-		{x=1000,y=430,w=200,h=140,rgb=color.white,t="v",f=80,code=function()if modeSel<#modeID then modeSel=modeSel+1 end end},
-		{x=1000,y=600,w=180,h=80,rgb=color.green,t="Start",code=function()startGame(modeID[modeSel])end},
-		{x=400,y=150,w=180,h=80,rgb=color.yellow,t="Custom(c)",code=function()gotoScene("custom")end},
-		{x=640,y=630,w=180,h=60,rgb=color.white,t="Back",code=back},
+		up={x=1000,y=210,w=200,h=140,rgb=color.white,hide=function()return modeSel==1 end,f=64,code=function()keyDown.mode("up")end},
+		down={x=1000,y=430,w=200,h=140,rgb=color.white,hide=function()return modeSel==#modeID end,f=80,code=function()keyDown.mode("down")end},
+		left={x=190,y=160,w=100,h=80,rgb=color.white,hide=function()return levelSel==1 end,code=function()keyDown.mode("left")end},
+		right={x=350,y=160,w=100,h=80,rgb=color.white,hide=function()return levelSel==#modeLevel[modeID[modeSel]] end,code=function()keyDown.mode("right")end},
+		start={x=1000,y=600,w=250,h=100,rgb=color.green,f=50,code=function()loadGame(modeSel,levelSel)end},
+		custom={x=270,y=540,w=190,h=85,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={
-		{x=1000,y=200,w=100,h=100,rgb=color.white,t="Λ",f=40,code=function()optSel=(optSel-2)%#customID+1 end},
-		{x=1000,y=440,w=100,h=100,rgb=color.white,t="v",f=50,code=function()optSel=optSel%#customID+1 end},
-		{x=880,y=320,w=100,h=100,rgb=color.white,t="<",f=50,code=function()local k=customID[optSel]customSel[k]=(customSel[k]-2)%#customRange[k]+1 end},
-		{x=1120,y=320,w=100,h=100,rgb=color.white,t=">",f=50,code=function()local k=customID[optSel]customSel[k]=customSel[k]%#customRange[k]+1 end},
-		{x=1000,y=580,w=180,h=80,rgb=color.green,t="Start",code=function()startGame("custom")end},
-		{x=640,y=630,w=180,h=60,rgb=color.white,t="Back",code=back},
+		up={x=1000,y=200,w=100,h=100,rgb=color.white,code=function()optSel=(optSel-2)%#customID+1 end},
+		down={x=1000,y=440,w=100,h=100,rgb=color.white,f=50,code=function()optSel=optSel%#customID+1 end},
+		left={x=880,y=320,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=320,w=100,h=100,rgb=color.white,f=50,code=function()local k=customID[optSel]customSel[k]=customSel[k]%#customRange[k]+1 end},
+		start={x=1000,y=580,w=180,h=80,rgb=color.green,code=function()loadGame(0,1)end},
+		back={x=640,y=630,w=180,h=60,rgb=color.white,code=back},
 	},
 	play={
+		back={x=1235,y=45,w=80,h=80,rgb=color.white,code=back,f=35},
 	},
 	setting={--Normal 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=3,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=5,left=1,right=11},
-		--1,2
-		{x=245,y=180,w=40,h=40,rgb=color.white,t="-",code=function()setting.das=(setting.das-1)%31 end,up=1,down=7,right=4},
-		{x=410,y=180,w=40,h=40,rgb=color.white,t="+",code=function()setting.das=(setting.das+1)%31 end,up=1,down=8,left=3,right=5},
-		{x=460,y=180,w=40,h=40,rgb=color.white,t="-",code=function()setting.arr=(setting.arr-1)%16 end,up=2,down=9,left=4,right=6},
-		{x=625,y=180,w=40,h=40,rgb=color.white,t="+",code=function()setting.arr=(setting.arr+1)%16 end,up=2,down=10,left=5,right=13},
-		--3~6
-		{x=245,y=260,w=40,h=40,rgb=color.white,t="-",code=function()setting.sddas=(setting.sddas-1)%11 end,up=3,down=17,right=8},
-		{x=410,y=260,w=40,h=40,rgb=color.white,t="+",code=function()setting.sddas=(setting.sddas+1)%11 end,up=4,down=17,left=7,right=9},
-		{x=460,y=260,w=40,h=40,rgb=color.white,t="-",code=function()setting.sdarr=(setting.sdarr-1)%6 end,up=5,down=17,left=8,right=10},
-		{x=625,y=260,w=40,h=40,rgb=color.white,t="+",code=function()setting.sdarr=(setting.sdarr+1)%4 end,up=6,down=17,left=9,right=14},
-		--7~10
-		{x=870-90,y=100,w=160,h=60,rgb=color.white,t=function()return setting.sfx and"SFX:on"or"SFX:off"end,code=function()setting.sfx=not setting.sfx end,down=13,left=2,right=12},
-		{x=870+90,y=100,w=160,h=60,rgb=color.white,t=function()return setting.bgm and"BGM:on"or"BGM:off"end,code=function()BGM()setting.bgm=not setting.bgm;BGM("blank")end,down=13,left=11},
-		{x=870,y=180,w=340,h=60,rgb=color.white,t=function()return setting.fullscreen and"Fullscreen:on"or"Fullscreen:off"end,
-			code=function()
-				setting.fullscreen=not setting.fullscreen
-				love.window.setFullscreen(setting.fullscreen)
-				if not setting.fullscreen then
-					love.resize(gc.getWidth(),gc.getHeight())
+		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="dasD",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="arrD",left="grid",right="vib"},
+		dasD={x=210,y=230,w=50,h=50,rgb=color.white,code=function()setting.das=(setting.das-1)%31 end,up="grid",down="sddasD",right="dasU"},
+		dasU={x=370,y=230,w=50,h=50,rgb=color.white,code=function()setting.das=(setting.das+1)%31 end,up="grid",down="sddasU",left="dasD",right="arrD"},
+		arrD={x=425,y=230,w=50,h=50,rgb=color.white,code=function()setting.arr=(setting.arr-1)%16 end,up="swap",down="sdarrD",left="dasU",right="arrU"},
+		arrU={x=585,y=230,w=50,h=50,rgb=color.white,code=function()setting.arr=(setting.arr+1)%16 end,up="swap",down="sdarrU",left="arrD",right="fullscreen"},--3~6
+		sddasD={x=210,y=300,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=300,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=300,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=300,w=50,h=50,rgb=color.white,code=function()setting.sdarr=(setting.sdarr+1)%4 end,up="arrU",down="lang",left="sdarrD",right="bgblock"},
+		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)%5
+			VIB(2)
+		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="arrU"},
+		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,
-			up=11,down=14,left=6
-		},
-		{x=870,y=260,w=340,h=60,rgb=color.white,t=function()return setting.bgblock and"BG animation:on"or"BG animation:off"end,
-			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=12,down=15,left=10
-		},
-
-		--11~14
-		{x=870,y=340,w=340,h=60,rgb=color.white,t=function()return"frameDraw:"..setting.frameMul.."%"end,code=function()
+			end
+		end,up="fullscreen",down="frame",left="sdarrU"},
+		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=14,down=16},
-		{x=870,y=420,w=340,h=60,rgb=color.green,t="Control settings",code=function()gotoScene("setting2")end,up=15,down=17},
-		{x=870,y=500,w=340,h=60,rgb=color.yellow,t="Touch settings",code=function()gotoScene("setting3")end,up=16,down=18},
-		{x=640,y=640,w=210,h=60,rgb=color.white,t="Save&Back",code=back,up=17},
-		--15~18
+		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
-		{x=840,y=630,w=180,h=60,rgb=color.white,t="Back",code=back},
+		back={x=840,y=630,w=180,h=60,rgb=color.white,code=back},
 	},
 	setting3={--Touch setting
-		{x=640,y=410,w=170,h=80,t="Back",code=back},
-		{x=640,y=210,w=500,h=80,t=function()return setting.virtualkeySwitch and"Hide Virtual Key"or"Show Virtual Key"end,code=function()
+		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},
-		{x=450,y=310,w=170,h=80,t="Reset",code=function()
+		default={x=450,y=310,w=170,h=80,code=function()
 			for K=1,#virtualkey do
-				local b,b0=virtualkey[K],gameEnv0.virtualkey[K]
+				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--Reset virtualkey
+			end--Default virtualkey
+			defaultSel=defaultSel%5+1
 		end},
-		{x=640,y=310,w=170,h=80,t=function()return snapLevelName[snapLevel]end,code=function()
+		snap={x=640,y=310,w=170,h=80,code=function()
 			snapLevel=snapLevel%6+1
 		end},
-		{x=830,y=310,w=170,h=80,t=function()return percent0to5[setting.virtualkeyAlpha]end,code=function()
+		alpha={x=830,y=310,w=170,h=80,f=45,code=function()
 			setting.virtualkeyAlpha=(setting.virtualkeyAlpha+1)%6
 			--Adjust virtualkey alpha
 		end},
-		{x=450,y=410,w=170,h=80,t="Icon",code=function()
+		icon={x=450,y=410,w=170,h=80,f=45,code=function()
 			setting.virtualkeyIcon=not setting.virtualkeyIcon
 			--Switch virtualkey icon
 		end},
-		{x=830,y=410,w=170,h=80,t="Size",code=function()
+		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
@@ -448,63 +580,12 @@ Buttons={
 		end},
 	},
 	help={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=back,right=2},
-		{x=980,y=590,w=230,h=60,rgb=color.white,t="Author's qq",code=function()sys.openURL("tencent://message/?uin=1046101471&Site=&Menu=yes")end,left=1},
+		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,rgb=color.white,code=function()sys.openURL("tencent://message/?uin=1046101471&Site=&Menu=yes")end,left="back"},
 	},
 	stat={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=back},
+		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,rgb=color.white,code=function()sys.openURL("C:/Users/MrZ/AppData/Roaming/LOVE/Techmino")end,left="back"},
 	},
 	sel=nil,--selected button id(integer)
-}
-for k,v in pairs(Buttons)do
-	for i=1,#v do
-		v[i].alpha=0
-	end
-end
-
-virtualkey={
-	{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},--swap
-	{80,80,6400,80},--restart
-	--[[
-	{x=0,y=0,r=0},--toLeft
-	{x=0,y=0,r=0},--toRight
-	{x=0,y=0,r=0},--toDown
-	]]
-}
-
-Text={
-	load={"Loading textures","Loading BGM","Loading SFX","Finished",},
-	stat={
-		"Games run:",
-		"Games played:",
-		"Game time:",
-		"Total block used:",
-		"Total rows cleared:",
-		"Total lines sent:",
-		"Total key pressed:",
-		"Total rotate:",
-		"Total hold:",
-		"Total spin:",
-	},
-	help={
-		"I think you don't need \"help\".",
-		"THIS IS ONLY A SMALL 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,flyz,t830,[all test staff] and YOU!!",
-		"Any bugs/suggestions to my E-mail.",
-	},
 }

main.lua

@@ -25,7 +25,6 @@ system=sys.getOS()
 touching=nil--1st touching ID
 
 scene=""
-gamemode=""
 bgmPlaying=nil
 curBG="none"
 BGblock={ct=150,next=7}
@@ -40,7 +39,7 @@ function setFont(s)
 		if Fonts[s]then
 			gc.setFont(Fonts[s])
 		else
-			local t=gc.setNewFont("siyuanhei.otf",s-5)
+			local t=gc.setNewFont("font.ttf",s-5)
 			Fonts[s]=t
 			gc.setFont(t)
 		end
@@ -52,26 +51,19 @@ gameEnv0={
 	das=10,arr=2,
 	sddas=0,sdarr=2,
 	ghost=true,center=true,
+	grid=false,swap=true,
+	_20G=false,bone=false,
 	drop=30,lock=45,
 	wait=1,fall=1,
 	next=6,hold=true,oncehold=true,
-	sequence=1,visible=1,
-	_20G=false,target=1e99,
+	sequence="bag7",
+	block=true,visible="show",
+	target=1e99,
 	freshLimit=1e99,
-	virtualkey={
-		{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},--swap
-		{80,80,6400,80},--restart
-	},
+	ospin=true,
 	reach=null,
-	--not all is actually used,some only provide a key
+	bg="none",
+	bgm="race"
 }
 customSel={
 	drop=20,
@@ -86,296 +78,124 @@ customSel={
 	freshLimit=3,
 	opponent=1,
 }
-freshMethod={
-	function()
-		P.bn,P.cb=rem(P.nxt,1),rem(P.nb,1)
-		if #P.nxt<6 then
-			local bag={1,2,3,4,5,6,7}
-			for i=1,7 do
-				ins(P.nxt,rem(bag,rnd(8-i)))
-				ins(P.nb,blocks[P.nxt[#P.nxt]][0])
-			end
-		end
-	end,
-	function()
-		P.bn,P.cb=rem(P.nxt,1),rem(P.nb,1)
-		local i,j=nil,0
-		repeat
-			i,j=rnd(7),j+1
-		until not(i==P.his[1]or i==P.his[2]or i==P.his[3]or i==P.his[4])
-		P.nxt[6],P.nb[6]=i,blocks[i][0]
-		rem(P.his,1)ins(P.his,i)
-	end,
-	function()
-		P.bn,P.cb=rem(P.nxt,1),rem(P.nb,1)
-		repeat i=rnd(7)until i~=P.nxt[5]
-		P.nxt[6],P.nb[6]=i,blocks[i][0]
-	end,
-	function()
-		P.bn,P.cb=rem(P.nxt,1),rem(P.nb,1)
-		if #P.nxt<6 then
-			local bag={1,1,2,2,3,3,4,4,5,5,5,6,6,7,7}
-			repeat
-				local i=rem(bag,rnd(#bag))
-				ins(P.nxt,i)
-				ins(P.nb,blocks[i][0])
-			until #bag==0
-		end
-	end,
-	function()
-		P.bn,P.cb=rem(P.nxt,1),rem(P.nb,1)
-		if P.cstat.piece%4==0 then
-			local r=rnd(#PClist)
-			local P=players[1]
-			local f=P.cstat.pc%2==0
-			for i=1,4 do
-				local b=PClist[r][i]
-				if f then
-					if b<3 then b=3-b
-					elseif b<5 then b=7-b
-					end
-				end
-				ins(P.nxt,b)
-				ins(P.nb,blocks[b][0])
-			end
-		end
-	end,
-}
 loadmode={
 	sprint=function()
-		modeEnv={
-			drop=60,
-			target=40,
-			reach=Event.gameover.win,
-		}
 		createPlayer(1,340,15)
-		curBG="game1"
-		BGM("race")
-	end,
-	zen=function()
-		modeEnv={
-			drop=1e99,
-			lock=1e99,
-			target=200,
-			reach=Event.gameover.win,
-		}
-		createPlayer(1,340,15)
-		curBG="strap"
-		BGM("infinite")
-	end,
-	infinite=function()
-		modeEnv={
-			drop=1e99,
-			lock=1e99,
-		}
-		createPlayer(1,340,15)
-		curBG="glow"
-		BGM("infinite")
-	end,
-	gmroll=function()
-		modeEnv={
-			drop=0,
-			lock=15,
-			wait=10,
-			fall=15,
-			_20G=true,
-			visible=0,
-			freshLimit=15,
-			arr=1,
-		}
-		createPlayer(1,340,15)
-		curBG="glow"
-		BGM("push")
 	end,
 	marathon=function()
-		modeEnv={
-			drop=60,
-			fall=20,
-			target=10,
-			reach=Event.marathon_reach,
-			freshLimit=15,
-		}
 		createPlayer(1,340,15)
-		curBG="strap"
-		BGM("way")
 	end,
-	death=function()
-		modeEnv={
-			_20G=true,
-			drop=0,
-			lock=death_lock[1],
-			wait=death_wait[1],
-			fall=death_fall[1],
-			target=50,
-			reach=Event.death_reach,
-			freshLimit=15,
-			arr=1,
-		}
+	master=function()
 		createPlayer(1,340,15)
-		curBG="game2"
-		BGM("push")
 	end,
-	tsd=function()
-		modeEnv={
-			drop=60,
-			lock=60,
-			sequence=4,
-			target=1,
-			reach=Event.tsd_reach,
-			freshLimit=15,
-		}
+	classic=function()
 		createPlayer(1,340,15)
-		curBG="matrix"
-		BGM("infinite")
 	end,
-	pctrain=function()
-		modeEnv={
-			next=4,
-			hold=false,
-			drop=60,
-			lock=60,
-			fall=20,
-			sequence=5,
-			target=0,
-			reach=Event.newPC,
-			freshLimit=15,
-		}
+	zen=function()
 		createPlayer(1,340,15)
-		local r=rnd(#PClist)
-		local P=players[1]
-		for i=1,4 do
-			local b=PClist[r][i]
-			ins(P.nxt,b)
-			ins(P.nb,blocks[b][0])
-		end
-		Event.newPC()
-		curBG="matrix"
-		BGM("infinite")
 	end,
-	pcchallenge=function()
-		modeEnv={
-			oncehold=false,
-			drop=300,
-			lock=1e99,
-			fall=20,
-			sequence=1,
-			target=100,
-			reach=Event.gameover.win,
-			freshLimit=1e99,
-		}
+	infinite=function()
 		createPlayer(1,340,15)
-		curBG="matrix"
-		BGM("infinite")
-	end,
-	techmino41=function()
-		modeEnv={
-			freshLimit=15,
-			fall=20,
-			royaleMode=true,
-			royale={2,5,10,20},
-		}
-		createPlayer(1,340,15)--Player
-
-		local n=2
-		for i=1,4 do
-			for j=1,5 do
-				createPlayer(n,77*i-55,140*j-125,.2,rnd(15))
-				n=n+1
-			end
-		end
-		for i=9,12 do
-			for j=1,5 do
-				createPlayer(n,77*i+275,140*j-125,.2,rnd(15))
-				n=n+1
-			end
-		end--AIs
-
-		curBG="game3"
-		BGM("race")
-	end,
-	techmino99=function()
-		modeEnv={
-			freshLimit=15,
-			fall=20,
-			royaleMode=true,
-			royale={2,6,14,30},
-		}
-		createPlayer(1,340,15)--Player
-
-		local n=2
-		for i=1,7 do
-			for j=1,7 do
-				createPlayer(n,46*i-36,97*j-72,.135,rnd()<.1 and rnd(6)or rnd(10,30))
-				n=n+1
-			end
-		end
-		for i=15,21 do
-			for j=1,7 do
-				createPlayer(n,46*i+264,97*j-72,.135,rnd()<.1 and rnd(6)or rnd(10,30))
-				n=n+1
-			end
-		end--AIs
-
-		curBG="game3"
-		BGM("race")
 	end,
 	solo=function()
-		modeEnv={
-			freshLimit=15,
-		}
-		createPlayer(1,20,15)--Player
-		createPlayer(2,660,85,.9,1)--AI
-
-		curBG="game2"
-		BGM("race")
+		createPlayer(1,340,15)
+		createPlayer(2,965,360,.5,customRange.opponent[3*curMode.lv])
+	end,
+	tsd=function()
+		createPlayer(1,340,15)
 	end,
 	blind=function()
-		modeEnv={
-			drop=15,
-			lock=30,
-			visible=0,
-			freshLimit=10,
-		}
 		createPlayer(1,340,15)
-
-		curBG="glow"
-		BGM("push")
 	end,
-	p2=function()
-		modeEnv={
-			freshLimit=15,
-		}
-		createPlayer(1,20,15)
-		createPlayer(2,650,15)
-
-		curBG="game2"
-		BGM("way")
+	dig=function()
+		createPlayer(1,340,15)
+		local P=players[1]
+		if curMode.lv==1 then
+			newTask(Event_task.dig_normal,P)
+			pushSpeed=1
+		elseif curMode.lv==2 then
+			newTask(Event_task.dig_lunatic,P)
+			pushSpeed=1
+		end
 	end,
-	p3=function()
-		modeEnv={
-			freshLimit=15,
-		}
-		createPlayer(1,20,100,.65)
-		createPlayer(2,435,100,.65)
-		createPlayer(3,850,100,.65)
-
-		curBG="game2"
-		BGM("way")
+	survivor=function()
+		createPlayer(1,340,15)
+		newTask(Event_task[curMode.lv==1 and"survivor_easy"or curMode.lv==2 and"survivor_normal"or curMode.lv==3 and"survivor_hard"or curMode.lv==4 and"survivor_lunatic"],P)
+		pushSpeed=curMode.lv>2 and 2 or 1
 	end,
-	p4=function()
-		modeEnv={
-			freshLimit=15,
-		}
-		createPlayer(1,25,150,.5)
-		createPlayer(2,335,150,.5)
-		createPlayer(3,645,150,.5)
-		createPlayer(4,955,150,.5)
+	tech=function()
+		createPlayer(1,340,15)
+	end,
+	pctrain=function()
+		createPlayer(1,340,15)
+		P=players[1]
+		Event.newPC()
+		P.freshNext()
+	end,
+	pcchallenge=function()
+		createPlayer(1,340,15)
+	end,
+	techmino41=function()
+		createPlayer(1,340,15)--Player
+		if curMode.lv==5 then players[1].gameEnv.drop=15 end
+		local n,min,max=2
+		if curMode.lv==1 then min,max=5,30
+		elseif curMode.lv==2 then min,max=3,25
+		elseif curMode.lv==3 then min,max=2,20
+		elseif curMode.lv==4 then min,max=2,10
+		elseif curMode.lv==5 then min,max=1,6
+		end
+		for i=1,4 do for j=1,5 do
+			createPlayer(n,77*i-55,140*j-125,.2,rnd(min,max))
+			n=n+1
+		end end
+		for i=9,12 do for j=1,5 do
+			createPlayer(n,77*i+275,140*j-125,.2,rnd(min,max))
+			n=n+1
+		end end
+		--AIs
 
-		curBG="game2"
-		BGM("way")
+	end,
+	techmino99=function()
+		createPlayer(1,340,15)--Player
+		if curMode.lv==5 then players[1].gameEnv.drop=15 end
+		local n,min,max=2
+		if curMode.lv==1 then min,max=5,32
+		elseif curMode.lv==2 then min,max=3,25
+		elseif curMode.lv==3 then min,max=2,18
+		elseif curMode.lv==4 then min,max=2,12
+		elseif curMode.lv==5 then min,max=1,12
+		end
+		for i=1,7 do for j=1,7 do
+			createPlayer(n,46*i-36,97*j-72,.135,rnd(min,max))
+			n=n+1
+		end end
+		for i=15,21 do for j=1,7 do
+			createPlayer(n,46*i+264,97*j-72,.135,rnd(min,max))
+			n=n+1
+		end end
+		--AIs
+
+	end,
+	drought=function()
+		createPlayer(1,340,15)
+	end,
+	hotseat=function()
+		if curMode.lv==1 then
+			createPlayer(1,20,15)
+			createPlayer(2,650,15)
+		elseif curMode.lv==2 then
+			createPlayer(1,20,100,.65)
+			createPlayer(2,435,100,.65)
+			createPlayer(3,850,100,.65)
+		elseif curMode.lv==3 then
+			createPlayer(1,25,160,.5)
+			createPlayer(2,335,160,.5)
+			createPlayer(3,645,160,.5)
+			createPlayer(4,955,160,.5)
+		end
 	end,
 	custom=function()
-		modeEnv={reach=Event.gameover.win}
 		for i=1,#customID do
 			local k=customID[i]
 			modeEnv[k]=customRange[k][customSel[k]]
@@ -385,18 +205,45 @@ loadmode={
 			createPlayer(1,340,15)
 		else
 			modeEnv.target=nil
-			createPlayer(1,20,15)
-			createPlayer(2,660,85,.9,modeEnv.opponent)
+			createPlayer(1,340,15)
+			createPlayer(2,965,360,.9,modeEnv.opponent)
 		end
-		curBG="matrix"
-		BGM("reason")
 	end,
 }
 mesDisp={
-	--Default:font=40,white
+	--Default:font=35,white
 	sprint=function()
-		setFont(75)
-		mStr(max(40-P.cstat.row,0),-75,280)
+		setFont(70)
+		local r=max(P.gameEnv.target-P.cstat.row,0)
+		mStr(r,-75,260)
+		if r<21 and r>0 then
+			gc.setLineWidth(3)
+			gc.setColor(color.lightRed)
+			gc.line(0,600-30*r,300,600-30*r)
+		end
+	end,
+	marathon=function()
+		setFont(50)
+		mStr(P.cstat.row,-75,320)
+		mStr(P.gameEnv.target,-75,370)
+		gc.rectangle("fill",-120,376,90,4)
+	end,
+	master=function()
+		setFont(50)
+		mStr(P.cstat.point,-75,320)
+		mStr((P.cstat.event+1)*100,-75,370)
+		gc.rectangle("fill",-120,376,90,4)
+	end,
+	classic=function()
+		setFont(80)
+		local r=P.gameEnv.target*.1
+		mStr(r<11 and 19+r or r==11 and"00"or r==12 and"0a"or format("%x",r*10-110),-75,210)
+		setFont(20)
+		mStr("speed level",-75,290)
+		setFont(50)
+		mStr(P.cstat.row,-75,320)
+		mStr(P.gameEnv.target,-75,370)
+		gc.rectangle("fill",-120,376,90,4)
 	end,
 	zen=function()
 		setFont(75)
@@ -404,51 +251,47 @@ mesDisp={
 	end,
 	infinite=function()
 		setFont(50)
-		mStr(P.cstat.atk,-75,320)
-		mStr(format("%.2f",2.5*P.cstat.atk/P.cstat.piece),-75,430)
+		mStr(P.cstat.atk,-75,310)
+		mStr(format("%.2f",2.5*P.cstat.atk/P.cstat.piece),-75,420)
 		setFont(20)
-		gc.print("Attack",-100,360)
-		gc.print("Efficiency",-108,472)
-	end,
-	solo=function()
-		setFont(50)
-		mStr(P.cstat.atk,-75,320)
-		setFont(20)
-		gc.print("Attack",-100,360)
-	end,
-	gmroll=function()
-		setFont(25)
-		gc.print("Techrash",-120,420)
-		setFont(80)
-		mStr(P.cstat.techrash,-75,350)
-	end,
-	marathon=function()
-		setFont(50)
-		mStr(P.cstat.row,-75,330)
-		mStr(P.gameEnv.target,-75,380)
-		gc.rectangle("fill",-120,376,90,4)
-	end,
-	death=function()
-		setFont(50)
-		mStr(P.cstat.row,-75,330)
-		mStr(P.gameEnv.target,-75,380)
-		gc.rectangle("fill",-120,376,90,4)
+		mStr("Attack",-75,363)
+		mStr("Efficiency",-75,475)
 	end,
 	tsd=function()
 		setFont(35)
-		gc.print("TSD",-105,405)
+		mStr("TSD",-75,405)
 		setFont(80)
-		mStr((P.gameEnv.target-1)*.5,-75,330)
+		mStr(P.cstat.event,-75,330)
+	end,
+	blind=function()
+		setFont(25)
+		mStr("Rows",-75,300)
+		mStr("Techrash",-75,420)
+		setFont(80)
+		mStr(P.cstat.row,-75,220)
+		mStr(P.cstat.techrash,-75,340)
+	end,
+	dig=function()
+		setFont(70)
+		mStr(P.cstat.event,-75,310)
+		setFont(30)
+		mStr("Wave",-75,375)
+	end,
+	survivor=function()
+		setFont(70)
+		mStr(P.cstat.event,-75,310)
+		setFont(30)
+		mStr("Wave",-75,375)
 	end,
 	pctrain=function()
 		setFont(25)
-		gc.print("Perfect Clear",-138,400)
+		mStr("Perfect Clear",-75,410)
 		setFont(80)
 		mStr(P.cstat.pc,-75,330)
 	end,
 	pcchallenge=function()
 		setFont(25)
-		gc.print("Perfect Clear",-138,420)
+		mStr("Perfect Clear",-75,430)
 		setFont(80)
 		mStr(P.cstat.pc,-75,350)
 		setFont(50)
@@ -456,37 +299,37 @@ mesDisp={
 	end,
 	techmino41=function()
 		setFont(40)
-		mStr(#players.alive.."/41",-80,180)
-		mStr(P.ko,-65,220)
+		mStr(#players.alive.."/41",-75,175)
+		mStr(P.ko,-60,215)
 		setFont(25)
-		gc.print("KO",-120,229)
-		gc.print(P.badge,-40,233)
+		gc.print("KO",-115,225)
+		gc.setColor(1,.5,0,.6)
+		gc.print(P.badge,-35,227)
+		gc.setColor(1,1,1)
 		setFont(30)
-		gc.print(up0to4[P.strength],-125,295)
+		gc.print(up0to4[P.strength],-125,290)
 		for i=1,P.strength do
 			gc.draw(badgeIcon,16*i-130,260)
 		end
 	end,
 	techmino99=function()
 		setFont(40)
-		mStr(#players.alive.."/99",-80,180)
-		mStr(P.ko,-65,220)
+		mStr(#players.alive.."/99",-75,175)
+		mStr(P.ko,-60,215)
 		setFont(25)
-		gc.print("KO",-120,229)
-		gc.print(P.badge,-40,233)
+		gc.print("KO",-115,225)
+		gc.setColor(1,.5,0,.6)
+		gc.print(P.badge,-35,227)
+		gc.setColor(1,1,1)
 		setFont(30)
-		gc.print(up0to4[P.strength],-125,295)
+		gc.print(up0to4[P.strength],-125,290)
 		for i=1,P.strength do
 			gc.draw(badgeIcon,16*i-130,260)
 		end
 	end,
-	blind=function()
-		setFont(25)
-		gc.print("Rows",-100,300)
-		gc.print("Techrash",-120,420)
-		setFont(80)
-		mStr(P.cstat.row,-75,230)
-		mStr(P.cstat.techrash,-75,350)
+	drought=function()
+		setFont(75)
+		mStr(max(100-P.cstat.row,0),-75,280)
 	end,
 	custom=function()
 		if P.gameEnv.target<1e4 then
@@ -495,206 +338,16 @@ mesDisp={
 		end
 	end
 }
-Event={
-	gameover={
-		win=function()
-			P.alive=false
-			P.control=false
-			P.timing=false
-			P.waiting=1e99
-			P.atking=nil
-			P.b2b=0
-			P.result="WIN"
-			for i=1,#P.field do
-				for j=1,10 do
-					P.visTime[i][j]=min(P.visTime[i][j],20)
-				end
-			end
-			showText("WIN","appear",100,nil,true)
-			if P.id==1 and players[2]and players[2].ai then SFX("win")end
-			ins(P.task,Event.task.win)
-		end,
-		lose=function()
-			P.alive=false
-			P.control=false
-			P.timing=false
-			P.waiting=1e99
-			P.atking=nil
-			P.b2b=0
-			P.result=" K.O."
-			showText("LOSE","appear",100,nil,true)
-			for i=1,#players.alive do
-				if players.alive[i]==P then
-					rem(players.alive,i)
-					break
-				end
-			end
-			if modeEnv.royaleMode then
-				if P.lastRecv and P.lastRecv.alive then
-					if P.lastRecv.id==1 then
-						throwBadge(P,P.lastRecv,P.badge)
-					end
-					local A=P.lastRecv
-					A.ko,A.badge=A.ko+1,A.badge+P.badge+1
-					for i=A.strength+1,4 do
-						if A.badge>=modeEnv.royale[i]then
-							A.strength=i
-						end
-					end
-				end
-				for i=1,#players.alive do
-					if players.alive[i].atking==P then
-						players.alive[i].atking=nil
-					end
-				end
-				freshRoyaleTarget()
-			end
-			for i=1,#P.atkBuffer do
-				P.atkBuffer[i].sent=true
-				P.atkBuffer[i].time=0
-			end
-			for i=1,#P.field do
-				for j=1,10 do
-					P.visTime[i][j]=min(P.visTime[i][j],20)
-				end
-			end
-			if P.id==1 and players[2]and players[2].ai then SFX("fail")end
-			ins(P.task,Event.task.lose)
-			if #players.alive==1 then
-				ins(players.alive[1].task,Event.task.winTrigger)
-			end
-		end,
-	},
-	marathon_reach=function()
-		local s=int(P.cstat.row*.1)
-		if s>=20 then
-			Event.gameover.win()
-		else
-			P.gameEnv.drop=marathon_drop[s]
-			if s==18 then P.gameEnv._20G=true end
-			P.gameEnv.target=s*10+10
-			SFX("reach")
-		end
-	end,
-	death_reach=function()
-		if P.gameEnv.target==250 then
-			Event.gameover.win()
-		else
-			P.gameEnv.target=P.gameEnv.target+50
-			local t=P.gameEnv.target/50
-			P.gameEnv.lock=death_lock[t]
-			P.gameEnv.wait=death_wait[t]
-			P.gameEnv.fall=death_fall[t]
-			showText("STAGE "..t,"fly",80,-120)
-			SFX("reach")
-		end
-	end,
-	tsd_reach=function()
-		if not(#P.clearing==2 and P.bn==5 and P.spinLast)then
-			Event.gameover.lose()
-		else
-			P.gameEnv.target=P.gameEnv.target+2
-		end
-	end,
-	newPC=function()
-		local P=players[1]
-		if #P.field==#P.clearing then
-			P.counter=P.cstat.piece==0 and 19 or 0
-			ins(P.task,Event.task.PC)
-			local s=P.cstat.pc*.5
-			if int(s)==s and s>0 then
-				P.gameEnv.drop=pc_drop[s]or 10
-				P.gameEnv.lock=pc_lock[s]or 20
-				P.gameEnv.fall=pc_fall[s]or 5
-				if s==10 then
-					showText("Max speed","appear",80,-120)
-				else
-					showText("Speed up","appear",30,-130)
-				end
-			end
-		else
-			Event.gameover.lose()
-		end
-	end,
-	task={
-		winTrigger=function()
-			Event.gameover.win()
-			return true
-		end,
-		win=function()
-			P.counter=P.counter+1
-			if P.counter>80 then
-				for i=1,#P.field do
-					for j=1,10 do
-						if P.visTime[i][j]>0 then
-							P.visTime[i][j]=P.visTime[i][j]-1
-						end
-					end
-				end
-				if P.counter==100 then
-					for i=1,#P.field do
-						removeRow(P.field)
-						removeRow(P.visTime)
-					end
-					return true
-				end
-			end
-		end,
-		lose=function()
-			P.counter=P.counter+1
-			if P.counter>80 then
-				for i=1,#P.field do
-					for j=1,10 do
-						if P.visTime[i][j]>0 then
-							P.visTime[i][j]=P.visTime[i][j]-1
-						end
-					end
-				end
-				if P.counter==100 then
-					for i=1,#P.field do
-						removeRow(P.field)
-						removeRow(P.visTime)
-					end
-					return true
-				end
-			end
-		end,
-		garbagepush=function()
-			
-		end,
-		PC=function()
-			local P=players[1]
-			P.counter=P.counter+1
-			if P.counter==21 then
-				P.gameEnv.target=P.gameEnv.target+4
-				local t=P.cstat.pc%2
-				for i=1,4 do
-					local r=getNewRow()
-					for j=1,10 do
-						r[j]=PCbase[4*t+i][j]
-					end
-					ins(P.field,1,r)
-					ins(P.visTime,1,getNewRow(P.showTime))
-				end
-				P.fieldBeneath=P.fieldBeneath+120
-				-- P.cy=P.cy+4
-				P.y_img=P.y_img+4
-				freshgho()
-				return true
-			end
-		end,
-	},
-}
 --Game system Data
-
 setting={
-	sfx=true,bgm=true,
+	lang=1,
+	sfx=true,bgm=true,vib=3,
 	fullscreen=false,
 	bgblock=true,
-	lang="eng",
 	das=10,arr=2,
 	sddas=0,sdarr=2,
 	ghost=true,center=true,
+	grid=false,swap=true,
 	keyMap={
 		{"left","right","x","z","c","up","down","space","tab","r","","",""},
 		{"","","","","","","","","","","","",""},
@@ -747,20 +400,39 @@ stat={
 	rotate=0,
 	spin=0,
 }
---User Data&User Setting
---------------------------------Wrning!_G __index Plyr[n] when chng any playr's val!
-require("toolfunc")
-require("gamefunc")
-require("list")
-require("texture")
-require("ai")
-require("timer")
-require("paint")
-require("scene")
-require("call&sys")
+virtualkey={
+	{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},--swap
+	{80,80,6400,80},--restart
+	--[[
+	{x=0,y=0,r=0},--toLeft
+	{x=0,y=0,r=0},--toRight
+	{x=0,y=0,r=0},--toDown
+	]]
 
-userData=fs.newFile("userdata")
-userSetting=fs.newFile("usersetting")
+}
+virtualkeyDown={false,false,false,false,false,false,false,false,false,false,false,false,false}
+virtualkeyPressTime={0,0,0,0,0,0,0,0,0,0,0,0,0}
+--User Data&User Setting
+require"toolfunc"
+require"class"
+require"gamefunc"
+require"ai"
+require"timer"
+require"paint"
+require"call&sys"
+require"dataList"
+require"list"
+require"texture"
+
+userData,userSetting=fs.newFile("userdata"),fs.newFile("usersetting")
 if fs.getInfo("userdata")then
 	loadData()
 end
@@ -768,4 +440,6 @@ if fs.getInfo("usersetting")then
 	loadSetting()
 elseif system=="Android" or system=="iOS"then
 	setting.virtualkeySwitch=true
-end
+	setting.swap=false
+end
+swapLanguage(setting.lang)

paint.lua

@@ -54,8 +54,8 @@ FX={
 		gc.push("transform")
 			setFont(t.font)
 			gc.translate(150,250+t.dy)
-			gc.setColor(1,1,1,a)
 			if t.t<20 then gc.scale((20-t.t)*.015+1,1)end
+			gc.setColor(1,1,1,a)
 			mStr(t.text,0,-t.font*.5)
 		gc.pop()
 	end,
@@ -63,102 +63,127 @@ FX={
 		gc.push("transform")
 			setFont(t.font)
 			gc.translate(150,290+t.dy)
-			gc.setColor(1,1,1,a)
 			if t.t<20 then gc.shear((20-t.t)*.05,0)end
-			mStr(t.text,0,-t.font*.5)
+			gc.setColor(1,1,1,a)
+			mStr(t.text,0,-t.font*.5-15)
 		gc.pop()
 	end,
 	spin=function(t,a)
 		gc.push("transform")
 			setFont(t.font)
 			gc.translate(150,250+t.dy)
-			gc.setColor(1,1,1,a)
 			if t.t<20 then
 				gc.rotate((20-t.t)^2*.0015)
 			end
-			mStr(t.text,0,-t.font*.5)
+			gc.setColor(1,1,1,a)
+			mStr(t.text,0,-t.font*.5-8)
 		gc.pop()
 	end,
 	flicker=function(t,a)
 		setFont(t.font)
 		gc.setColor(1,1,1,a*(rnd()+.5))
-		mStr(t.text,150,250-t.font*.5+t.dy)
+		mStr(t.text,150,225-t.font*.5+t.dy)
 	end,
 	zoomout=function(t,a)
 		gc.push("transform")
 			setFont(t.font)
+			local k=t.t^.5*.1+1
 			gc.translate(150,290+t.dy)
-			gc.setColor(1,1,1,a)
-			local k=t.t^.5*.2+1
 			gc.scale(k,k)
-			mStr(t.text,0,-t.font*.5)
+			gc.setColor(1,1,1,a)
+			mStr(t.text,0,-t.font*.5-5)
 		gc.pop()
-	end
+	end,
+	beat=function(t,a)
+		gc.push("transform")
+			setFont(t.font)
+			gc.translate(150,290+t.dy)
+			if t.t<20 then
+				local k=.2*(5+(25-t.t)^.5)-.45
+				gc.scale(k,k)
+			end
+			gc.setColor(1,1,1,a)
+			mStr(t.text,0,-t.font*.5-5)
+		gc.pop()
+	end,
 }
 
+function updateButton()
+	for k,B in next,Buttons[scene]do
+		local t=B==Buttons.sel and .4 or 0
+		B.alpha=abs(B.alpha-t)>.02 and(B.alpha+(B.alpha<t and .02 or -.02))or t
+		if B.alpha>t then B.alpha=B.alpha-.02 elseif B.alpha<t then B.alpha=B.alpha+.02 end
+	end
+end
 function drawButton()
-	for i=1,#Buttons[scene]do
-		local B=Buttons[scene][i]
+	for k,B in next,Buttons[scene]do
 		if not(B.hide and B.hide())then
-			local t=i==Buttons.sel and .3 or 0
-			B.alpha=abs(B.alpha-t)>.02 and(B.alpha+(B.alpha<t and .02 or -.02))or t
-			if B.alpha>t then B.alpha=B.alpha-.02 elseif B.alpha<t then B.alpha=B.alpha+.02 end
 			local C=B.rgb or color.white
 			gc.setColor(C[1],C[2],C[3],B.alpha)
 			gc.rectangle("fill",B.x-B.w*.5,B.y-B.h*.5,B.w,B.h)
+			gc.setColor(C)
+			gc.setLineWidth(3)gc.rectangle("line",B.x-B.w*.5,B.y-B.h*.5,B.w,B.h,4)
 			gc.setColor(C[1],C[2],C[3],.3)
-			gc.setLineWidth(5)gc.rectangle("line",B.x-B.w*.5,B.y-B.h*.5,B.w,B.h)
+			gc.setLineWidth(5)gc.rectangle("line",B.x-B.w*.5,B.y-B.h*.5,B.w,B.h,4)
 			local t=B.t
 			local y0
 			if t then
 				if type(t)=="function"then t=t()end
 				setFont(B.f or 40)
-				y0=B.y-1-currentFont*.5
-				mStr(t,B.x-1,y0)
-				mStr(t,B.x+1,y0)
-				mStr(t,B.x-1,y0+2)
-				mStr(t,B.x+1,y0+2)
-			end
-			gc.setColor(C)
-			if t then
+				y0=B.y-currentFont*.64
+				gc.printf(t,B.x-201,y0+2,400,"center")
+				gc.printf(t,B.x-199,y0+2,400,"center")
+				gc.printf(t,B.x-201,y0,400,"center")
+				gc.printf(t,B.x-199,y0,400,"center")
+				gc.setColor(C)
 				mStr(t,B.x,y0+1)
 			end
-			gc.setLineWidth(3)gc.rectangle("line",B.x-B.w*.5,B.y-B.h*.5,B.w,B.h)
 		end
 	end
 end
 function drawDial(x,y,speed)
-	gc.push("transform")
-		gc.translate(x,y)
-		gc.setColor(1,1,1)
-		mStr(int(speed),0,-14)
-		gc.draw(dialCircle,0,0,nil,nil,nil,32,32)
-		gc.setColor(1,1,1,.6)
-		gc.draw(dialNeedle,0,0,2.094+(speed<=175 and .02094*speed or 4.712-52.36/(speed-125)),nil,nil,5,4)
-	gc.pop()
+	gc.setColor(1,1,1)
+	mStr(int(speed),x,y-18)
+	gc.draw(dialCircle,x,y,nil,nil,nil,32,32)
+	gc.setColor(1,1,1,.6)
+	gc.draw(dialNeedle,x,y,2.094+(speed<=175 and .02094*speed or 4.712-52.36/(speed-125)),nil,nil,5,4)
 end
 function drawPixel(y,x,id,alpha)
 	gc.setColor(1,1,1,alpha)
 	gc.draw(blockSkin[id],30*x-30,600-30*y)
 end
-function drawPixelmini(y,x,id)
-	gc.draw(blockSkinmini[id],30*x-30,600-30*y,nil,5)
+function drawAtkPointer(x,y)
+	local t=sin(Timer()*20)
+	gc.setColor(.2,.7+t*.2,1,.6+t*.4)
+	gc.circle("fill",x,y,25,6)
+	local a=Timer()*3%1*.8
+	gc.setColor(0,.6,1,.8-a)
+	gc.circle("line",x,y,30*(1+a),6)
 end
-function drawVirtualkey(s)
-	gc.setLineWidth(10)
-	if s then
-		for i=1,#virtualkey do
-			gc.setColor(1,s==i and 0 or 1,s==i and 0 or 1,setting.virtualkeyAlpha*.2)
-			local b=virtualkey[i]
-			gc.circle("line",b[1],b[2],b[4]-5)
-			if setting.virtualkeyIcon then gc.draw(virtualkeyIcon[i],b[1],b[2],nil,2*b[4]*.0125,nil,18,18)end
+
+function VirtualkeyPreview()
+	for i=1,#virtualkey do
+		gc.setColor(1,sel==i and .5 or 1,sel==i and .5 or 1,setting.virtualkeyAlpha*.2)
+		local b=virtualkey[i]
+		gc.setLineWidth(b[4]*.07)
+		gc.circle("line",b[1],b[2],b[4]-5)
+		if setting.virtualkeyIcon then gc.draw(virtualkeyIcon[i],b[1],b[2],nil,b[4]*.025,nil,18,18)end
+	end
+end
+function drawVirtualkey()
+	local a=setting.virtualkeyAlpha*.2
+	local P=players[1]
+	for i=1,#virtualkey do
+		local p,b=virtualkeyDown[i],virtualkey[i]
+		if p then gc.setColor(.7,.7,.7,a)
+		else gc.setColor(1,1,1,a)
 		end
-	else
-		gc.setColor(1,1,1,setting.virtualkeyAlpha*.2)
-		for i=1,#virtualkey do
-			local b=virtualkey[i]
-			gc.circle("line",b[1],b[2],b[4]-5)
-			if setting.virtualkeyIcon then gc.draw(virtualkeyIcon[i],b[1],b[2],nil,2*b[4]*.0125,nil,18,18)end
+		gc.setLineWidth(b[4]*.07)
+		gc.circle("line",b[1],b[2]+virtualkeyPressTime[i],b[4]-5)
+		if setting.virtualkeyIcon then gc.draw(virtualkeyIcon[i],b[1],b[2]+virtualkeyPressTime[i],nil,b[4]*.025,nil,18,18)end
+		if virtualkeyPressTime[i]>0 then
+			gc.setColor(1,1,1,a*virtualkeyPressTime[i]*.1)
+			gc.circle("line",b[1],b[2],b[4]*(1.4-virtualkeyPressTime[i]*.04))
 		end
 	end
 end
@@ -174,15 +199,15 @@ Pnt.BG={
 	end,
 	game1=function()
 		gc.setColor(1,1,1)
-		gc.draw(background[1],640,360,Timer()*.15,12,nil,64,64)
+		gc.draw(background1,640,360,Timer()*.15,12,nil,64,64)
 	end,
 	game2=function()
 		gc.setColor(1,.5,.5)
-		gc.draw(background[1],640,360,Timer()*.2,12,nil,64,64)
+		gc.draw(background1,640,360,Timer()*.2,12,nil,64,64)
 	end,
 	game3=function()
 		gc.setColor(.6,.6,1)
-		gc.draw(background[1],640,360,Timer()*.25,12,nil,64,64)
+		gc.draw(background1,640,360,Timer()*.25,12,nil,64,64)
 	end,
 	rgb=function()
 		gc.clear(
@@ -194,8 +219,8 @@ Pnt.BG={
 	strap=function()
 		gc.setColor(1,1,1)
 		local x=Timer()%32*40
-		gc.draw(background[2],x,0,nil,10)
-		gc.draw(background[2],x-1280,0,nil,10)
+		gc.draw(background2,x,0,nil,10)
+		gc.draw(background2,x-1280,0,nil,10)
 	end,
 	matrix=function()
 		for i=0,15 do
@@ -212,13 +237,13 @@ Pnt.BG={
 function Pnt.load()
 	gc.setLineWidth(4)
 	gc.setColor(1,1,1,.5)
-	gc.rectangle("fill",340,340,loadprogress*640,40)
+	gc.rectangle("fill",300,330,loadprogress*680,60,5)
 	gc.setColor(1,1,1)
-	gc.rectangle("line",340,340,640,40)
-	setFont(30)
-	mStr(Text.load[loading],640,346)
-	setFont(20)
-	mStr("not animation,real loading!",640,392)
+	gc.rectangle("line",300,330,680,60,5)
+	setFont(40)
+	mStr(text.load[loading],640,335)
+	setFont(25)
+	mStr(text.loadTip,640,400)
 end
 function Pnt.intro()
 	gc.push()
@@ -229,50 +254,52 @@ function Pnt.intro()
 		gc.setColor(1,1,1,min(count,80)*.005)
 		gc.rectangle("fill",0,0,26,14)
 	gc.pop()
-		gc.setColor(1,1,1)
-		gc.setColor(1,1,1,.125)
-		for i=19,5,-2 do
+		gc.setColor(1,1,1,.06)
+		for i=41,5,-2 do
 			gc.setLineWidth(i)
-			gc.line(250+(count-80)*25,150,(count-80)*25-150,570)
+			gc.line(200+(count-80)*25,130,(count-80)*25,590)
 		end
 	gc.setStencilTest()
 end
 function Pnt.main()
 	gc.setColor(1,1,1)
+	gc.draw(titleImage,300,30)
 	setFont(30)
-	gc.print("Alpha V0.7.5",370,150)
-	gc.print(system,530,110)
-	gc.draw(titleImage,30,30)
+	gc.print("Alpha V0.7.12",290,140)
+	gc.print(system,800,110)
 end
 function Pnt.mode()
+	setFont(40)
+	gc.setColor(modeLevelColor[modeLevel[modeID[modeSel]][levelSel]]or color.white)
+	mStr(modeLevel[modeID[modeSel]][levelSel],270,215)
 	setFont(30)
 	gc.setColor(color.white)
-	mStr(modeInfo[modeID[modeSel]],270,305)
+	mStr(text.modeInfo[modeID[modeSel]],270,255)
 	setFont(80)
 	gc.setColor(color.grey)
-	mStr(modeName[modeSel],643,283)
+	mStr(text.modeName[modeSel],643,273)
 	for i=modeSel-2,modeSel+2 do
 		if i>=1 and i<=#modeID then
 			local f=80-abs(i-modeSel)*20
 			gc.setColor(i==modeSel and color.white or abs(i-modeSel)==1 and color.grey or color.darkGrey)
 			setFont(f)
-			mStr(modeName[i],640,320+70*(i-modeSel)-f*.5)
+			mStr(text.modeName[i],640,310+70*(i-modeSel)-f*.5)
 		end
 	end
 end
 function Pnt.custom()
 	setFont(80)
 	gc.setColor(color.lightGrey)
-	gc.print("Custom Game",20,20)
+	gc.print(text.custom,20,20)
 	gc.setColor(color.white)
-	gc.print("Custom Game",22,23)
+	gc.print(text.custom,22,23)
 	setFont(40)
 	for i=1,#customID do
 		local k=customID[i]
 		local y=90+40*i
-		gc.print(customOption[k],50,y)
-		if customVal[k]then
-			gc.print(customVal[k][customSel[k]],350,y)
+		gc.printf(text.customOption[k],30,y,320,"right")
+		if text.customVal[k]then
+			gc.print(text.customVal[k][customSel[k]],350,y)
 		else
 			gc.print(customRange[k][customSel[k]],350,y)
 		end
@@ -285,39 +312,56 @@ function Pnt.play()
 		if P.small then
 			gc.push("transform")
 			gc.translate(P.x,P.y)gc.scale(P.size)--Scale
-			gc.setColor(0,0,0,.5)gc.rectangle("fill",0,0,300,600)--Black Background
-			gc.setLineWidth(13)
+			gc.setColor(0,0,0,.4)gc.rectangle("fill",0,0,60,120)--Black Background
 			gc.stencil(stencil_field_small,"replace",1)
-			gc.translate(0,P.fieldBeneath)
+			gc.translate(0,P.fieldBeneath*.2)
 			gc.setStencilTest("equal",1)
-			gc.setColor(1,1,1,P.result and max(20-P.counter,0)*.05 or 1)
+			gc.setColor(1,1,1,P.result and max(20-P.endCounter,0)*.05 or 1)
 			for j=int(P.fieldBeneath/30+1),#P.field do
 				if P.falling<=0 or without(P.clearing,j)then
 					for i=1,10 do
 						if P.field[j][i]>0 then
-							drawPixelmini(j,i,P.field[j][i])
+							gc.draw(blockSkinmini[P.field[j][i]],6*i-6,120-6*j)
 						end
 					end
 				end
 			end
 			gc.setStencilTest()--In-playField mask
-			gc.translate(0,-P.fieldBeneath)
-			gc.setColor(frameColor[P.strength])gc.rectangle("line",-7,-7,314,614)--Draw boarder
-
+			gc.translate(0,-P.fieldBeneath*.2)
+			gc.setLineWidth(2)
+			gc.setColor(frameColor[P.strength])gc.rectangle("line",-1,-1,62,122)--Draw boarder
+			if modeEnv.royaleMode then
+				gc.setColor(1,1,1)
+				for i=1,P.strength do
+					gc.draw(badgeIcon,12*i-7,4,nil,.5)
+				end
+			end
 			if P.result then
-				gc.setColor(1,1,1,min(P.counter,60)*.01)
-				setFont(100)
-				mStr(P.result,150,250)
+				gc.setColor(1,1,1,min(P.endCounter,60)*.01)
+				setFont(22)mStr(P.result,32,47)
+				setFont(20)mStr(P.rank,30,82)
+				if P.killMark then
+					gc.setLineWidth(4)
+					gc.setColor(1,0,0,min(P.endCounter,25)*.04)
+					gc.circle("line",31,60,84-2*min(P.endCounter,30))
+				end
 			end
 			gc.pop()
 		else
 			gc.push("transform")
-			gc.translate(P.x,P.y)gc.scale(P.size)--Scale
-			gc.setColor(0,0,0,.7)gc.rectangle("fill",0,0,600,690)--Black Background
+			gc.translate(P.x,P.y)gc.scale(P.size)
+			gc.setColor(0,0,0,.6)gc.rectangle("fill",0,0,600,690)--Black Background
 			gc.setLineWidth(7)
 			gc.setColor(frameColor[P.strength])gc.rectangle("line",0,0,600,690)--Big frame
+			gc.translate(150,70)
+			if P.gameEnv.grid then
+				gc.setLineWidth(1)
+				gc.setColor(1,1,1,.2)
+				for x=1,9 do gc.line(30*x,-10,30*x,600)end
+				for y=0,19 do gc.line(0,30*y,300,30*y)end
+			end
 			gc.stencil(stencil_field,"replace", 1)
-			gc.translate(150,70+P.fieldBeneath)
+			gc.translate(0,P.fieldBeneath)
 			gc.setStencilTest("equal",1)
 				for j=int(P.fieldBeneath/30+1),#P.field do
 					if P.falling<=0 or without(P.clearing,j)then
@@ -334,25 +378,28 @@ function Pnt.play()
 				if P.waiting<=0 then
 					if P.gameEnv.ghost then
 						for i=1,P.r do for j=1,P.c do
-							if P.cb[i][j]>0 then
-								drawPixel(i+P.y_img-1,j+P.cx-1,P.bn,.3)
+							if P.curBlock[i][j]>0 then
+								drawPixel(i+P.y_img-1,j+P.curX-1,P.curColor,.3)
 							end
 						end end
 					end--Ghost
-					gc.setColor(1,1,1,P.lockDelay/P.gameEnv.lock)
-					for i=1,P.r do for j=1,P.c do
-						if P.cb[i][j]>0 then
-							gc.rectangle("fill",30*(j+P.cx-1)-34,596-30*(i+P.cy-1),38,38)
-						end
-					end end--BlockShade(lockdelay indicator)
-					for i=1,P.r do for j=1,P.c do
-						if P.cb[i][j]>0 then
-							drawPixel(i+P.cy-1,j+P.cx-1,P.bn,1)
-						end
-					end end--Block
+					if P.gameEnv.block then
+						gc.setColor(1,1,1,P.lockDelay/P.gameEnv.lock)
+						for i=1,P.r do for j=1,P.c do
+							if P.curBlock[i][j]>0 then
+								gc.rectangle("fill",30*(j+P.curX-1)-34,596-30*(i+P.curY-1),38,38)
+							end
+						end end--BlockShade(lockdelay indicator)
+						for i=1,P.r do for j=1,P.c do
+							if P.curBlock[i][j]>0 then
+								drawPixel(i+P.curY-1,j+P.curX-1,P.curColor,1)
+							end
+						end end--Block
+					end
 					if P.gameEnv.center then
-						local x=30*(P.cx+P.sc[2]-1)-30+15
-						gc.draw(spinCenter,x,600-30*(P.cy+P.sc[1]-1)+15,nil,nil,nil,4,4)
+						gc.setColor(1,1,1)
+						local x=30*(P.curX+P.sc[2]-1)-30+15
+						gc.draw(spinCenter,x,600-30*(P.curY+P.sc[1]-1)+15,nil,nil,nil,4,4)
 						gc.setColor(1,1,1,.5)
 						gc.draw(spinCenter,x,600-30*(P.y_img+P.sc[1]-1)+15,nil,nil,nil,4,4)
 					end--Rotate center
@@ -361,17 +408,11 @@ function Pnt.play()
 				gc.draw(PTC.dust[p])--Draw game field
 			gc.setStencilTest()--In-playField mask
 			gc.translate(0,-P.fieldBeneath)
-			gc.setColor(1,1,1)gc.rectangle("line",-3,-13,306,616)--Draw boarder
-
-			if modeEnv.royale then
-				if P.atkMode then
-					gc.setColor(1,.8,0,P.swappingAtkMode*.02)
-					gc.rectangle("fill",RCPB[2*P.atkMode-1],RCPB[2*P.atkMode],90,35,8,4)
-				end
-				gc.setColor(1,1,1,P.swappingAtkMode*.025)
-				gc.draw(royaleCtrlPad)
-				--Draw selector
-			end
+			gc.setLineWidth(3)
+			gc.setColor(1,1,1)
+			gc.rectangle("line",-1,-11,302,612)--Draw boarder
+			gc.setLineWidth(2)
+			gc.rectangle("line",301,0,16,601.5)--Draw atkBuffer boarder
 
 			local h=0
 			for i=1,#P.atkBuffer do
@@ -385,56 +426,59 @@ function Pnt.play()
 					end
 					if a.countdown>0 then
 						gc.setColor(attackColor[a.lv][1])
-						gc.rectangle("fill",308,600-h,8,-bar+5)
+						gc.rectangle("fill",304,599-h,11,-bar+3)
 						gc.setColor(attackColor[a.lv][2])
-						gc.rectangle("fill",308,600-h+(-bar+5),8,-(-bar+5)*(1-a.countdown/a.cd0))
+						gc.rectangle("fill",304,599-h+(-bar+3),11,-(-bar+3)*(1-a.countdown/a.cd0))
 						--Timing
 					else
-						attackColor.animate[a.lv]((sin((Timer()-i)*20)+1)*.5)
-						gc.rectangle("fill",308,600-h,8,-bar+5)
+						local t=sin((Timer()-i)*30)*.5+.5
+						local c1,c2=attackColor[a.lv][1],attackColor[a.lv][2]
+						gc.setColor(c1[1]*t+c2[1]*(1-t),c1[2]*t+c2[2]*(1-t),c1[3]*t+c2[3]*(1-t))
+						gc.rectangle("fill",304,599-h,11,-bar+3)
 						--Warning
 					end
 				else
 					gc.setColor(attackColor[a.lv][1])
 					bar=bar*(20-a.time)*.05
-					gc.rectangle("fill",308,600-h,8,-bar+3)
+					gc.rectangle("fill",304,599-h,11,-bar+2)
 					--Disappear
 				end
 				h=h+bar
-				if h>=600 then break end
 			end--Buffer line
-
-			gc.setColor(P.b2b<40 and color.white or P.b2b<=480 and color.lightRed or color.lightBlue)
-			gc.rectangle("fill",-17,600,10,-P.b2b1)
-			gc.setColor(color.red)
-			gc.rectangle("fill",-23,600-40,16,5)
-			gc.setColor(color.blue)
-			gc.rectangle("fill",-23,600-480,16,5)
-			--B2B bar
-
+			gc.setColor(1,1,1)
+			gc.draw(lightBulb,-35,573)
+			if P.b2b>0 then
+				gc.setColor(P.b2b<50 and color.white or P.b2b<=1000 and color.lightRed or color.lightBlue)
+				gc.draw(light,-35,573)
+			end
+			--B2B indictator
 			setFont(40)
 			gc.setColor(1,1,1)
 			if P.gameEnv.hold then
-				gc.print("Hold",-113,0)
-				for i=1,#P.hb do
-					for j=1,#P.hb[1] do
-						if P.hb[i][j]>0 then
-							drawPixel(i+17.5-#P.hb*.5,j-2.5-#P.hb[1]*.5,P.holded and 13 or P.hn,1)
+				mStr(text.hold,-75,-10)
+				for i=1,#P.holdBlock do
+					for j=1,#P.holdBlock[1] do
+						if P.holdBlock[i][j]>0 then
+							drawPixel(i+17.5-#P.holdBlock*.5,j-2.5-#P.holdBlock[1]*.5,P.holded and 9 or P.holdColor,1)
 						end
 					end
 				end
 			end--Hold
-			gc.print("Next",336,0)
+			mStr(text.next,375,-10)
 			for N=1,P.gameEnv.next do
-				local b=P.nb[N]
+				local b=P.nextBlock[N]
 				for i=1,#b do
 					for j=1,#b[1] do
 						if b[i][j]>0 then
-							drawPixel(i+20-2.4*N-#b*.5,j+12.5-#b[1]*.5,P.nxt[N],1)
+							drawPixel(i+20-2.4*N-#b*.5,j+12.7-#b[1]*.5,P.nextColor[N],1)
 						end
 					end
 				end
 			end--Next
+			setFont(30)
+			gc.setColor(.8,.8,.8)
+			gc.print(curMode.modeName,-135,-65)
+			gc.printf(curMode.levelName,240,-65,200,"right")
 			if frame<180 then
 				local count=179-frame
 				gc.push("transform")
@@ -446,22 +490,30 @@ function Pnt.play()
 				gc.pop()
 			end--Draw starting counter
 			for i=1,#P.bonus do
-				P.bonus[i]:draw(min((30-abs(P.bonus[i].t-30))*.05,1)*(not P.bonus[i].solid and #P.field>(9-P.bonus[i].dy*.03333)and .7 or 1))
+				P.bonus[i]:draw(min((30-abs(P.bonus[i].t-30))*.05,1)*(not P.bonus[i].inf and #P.field>(9-P.bonus[i].dy*.0333)and .7 or 1))
 			end--Effects
 
 			gc.setColor(1,1,1)
-			setFont(40)
-			gc.print(format("%.2f",P.time),-130,530)--Draw time
-			if mesDisp[gamemode]then mesDisp[gamemode]()end--Draw other message
+			setFont(35)
+			mStr(format("%.2f",P.time),-75,520)--Draw time
+			if mesDisp[curMode.id]then mesDisp[curMode.id]()end--Draw other message
 
-			setFont(15)
 			gc.setColor(1,1,1)
-			gc.print("BPM",380,490)
-			gc.print("KPM",335,580)
+			setFont(15)
+			gc.print("BPM",390,490)
+			gc.print("KPM",350,583)
 			setFont(30)
-			drawDial(350,520,P.dropSpeed)
-			drawDial(400,570,P.keySpeed)
+			drawDial(360,520,P.dropSpeed)
+			drawDial(405,575,P.keySpeed)
 			--Speed dials
+			if modeEnv.royaleMode then
+				if P.atkMode then
+					gc.setColor(1,.8,0,P.swappingAtkMode*.02)
+					gc.rectangle("fill",RCPB[2*P.atkMode-1],RCPB[2*P.atkMode],90,35,8,4)
+				end
+				gc.setColor(1,1,1,P.swappingAtkMode*.025)
+				gc.draw(royaleCtrlPad)
+			end
 			gc.pop()
 		end
 	end--Draw players
@@ -469,34 +521,29 @@ function Pnt.play()
 	for i=1,3 do
 		gc.draw(PTC.attack[i])
 	end
-	for i=1,#FX.badge do
-		local b=FX.badge[i]
-		local t=b.t<10 and 0 or b.t<50 and(sin(1.5*(b.t/20-1.5))+1)*.5 or 1
-		gc.setColor(1,1,1,b.t<10 and b.t*.1 or b.t<50 and 1 or(60-b.t)*.1)
-		gc.draw(badgeIcon,b[1]+(b[3]-b[1])*t,b[2]+(b[4]-b[2])*t,nil,b.size,nil,14,14)
-	end
 	if setting.virtualkeySwitch then
 		drawVirtualkey()
 	end
 	if modeEnv.royaleMode then
+		for i=1,#FX.badge do
+			local b=FX.badge[i]
+			local t=b.t<10 and 0 or b.t<50 and(sin(1.5*(b.t/20-1.5))+1)*.5 or 1
+			gc.setColor(1,1,1,b.t<10 and b.t*.1 or b.t<50 and 1 or(60-b.t)*.1)
+			gc.draw(badgeIcon,b[1]+(b[3]-b[1])*t,b[2]+(b[4]-b[2])*t,nil,nil,nil,14,14)
+		end
 		P=players[1]
+		gc.setLineWidth(5)
+		gc.setColor(.8,1,0,.2)
+		for i=1,#players[1].atker do
+			local p=players[1].atker[i]
+			gc.line(p.centerX,p.centerY,P.centerX,P.centerY)
+		end
 		if P.atkMode~=4 then
-			gc.setLineWidth(5)
-			gc.setColor(.8,1,0,.2)
+			if P.atking then drawAtkPointer(P.atking.centerX,P.atking.centerY)end
 		else
-			gc.setLineWidth(9)
-			gc.setColor(1,.6,.2,.4)
-		end
-		for i=1,#players.alive do
-			local p=players.alive[i]
-			if p.atking==players[1]then
-				gc.line(p.centerX,p.centerY,P.centerX,P.centerY)
-			end
-		end
-		if P.atkMode~=4 then
-			if P.atking then
-				gc.setColor(0,.5,1,.2+(sin(Timer()*7)+1)*.1)
-				gc.line(P.centerX,P.centerY,P.atking.centerX,P.atking.centerY)
+			for i=1,#players[1].atker do
+				local p=players[1].atker[i]
+				drawAtkPointer(p.centerX,p.centerY)
 			end
 		end
 	end
@@ -504,32 +551,33 @@ end
 function Pnt.setting()
 	gc.setColor(1,1,1)
 	setFont(35)
-	mStr("DAS:"..setting.das,328,163)
-	mStr("ARR:"..setting.arr,543,163)
+	mStr("DAS:"..setting.das,290,208)
+	mStr("ARR:"..setting.arr,506,208)
 	setFont(18)
-	mStr("softdropDAS:"..setting.sddas,328,250)
-	mStr("softdropARR:"..setting.sdarr,543,250)
+	mStr(text.softdropdas..setting.sddas,290,291)
+	mStr(text.softdroparr..setting.sdarr,506,291)
 end
 function Pnt.setting2()
+	local a=.2+(sin(Timer()*15)+1)*.1
 	if keyboardSetting then
-		gc.setColor(1,.5,.5,.2+(sin(Timer()*15)+1)*.1)
+		gc.setColor(1,.5,.5,a)
 	else
-		gc.setColor(.9,.9,.9,.2+(sin(Timer()*15)+1)*.1)
+		gc.setColor(.9,.9,.9,a)
 	end
 	gc.rectangle("fill",240,40*keyboardSet-10,200,40)
 	if joystickSetting then
-		gc.setColor(1,.5,.5,.2+(sin(Timer()*15)+1)*.1)
+		gc.setColor(1,.5,.5,a)
 	else
-		gc.setColor(.9,.9,.9,.2+(sin(Timer()*15)+1)*.1)
+		gc.setColor(.9,.9,.9,a)
 	end
 	gc.rectangle("fill",440,40*joystickSet-10,200,40)
 
 	gc.setColor(1,1,1)
 	setFont(25)
 	for y=1,13 do
-		mStr(actName_show[y],150,40*y)
+		mStr(text.actName[y],150,40*y-5)
 		for x=1,2 do
-			mStr(setting.keyMap[curBoard+x*8-8][y],200*x+140,40*y)
+			mStr(setting.keyMap[curBoard+x*8-8][y],200*x+140,40*y-3)
 		end
 		gc.line(40,40*y-10,640,40*y-10)
 	end
@@ -537,13 +585,14 @@ function Pnt.setting2()
 		gc.line(200*x-160,30,200*x-160,550)
 	end
 	gc.line(40,550,640,550)
-	gc.print("Keyboard | Joystick",330,3)
-	gc.print("Arrowkey to select/change slot,Enter to change,Esc back",50,620)
+	gc.print(text.keyboard,335,1)
+	gc.print(text.joystick,420,1)
+	gc.print(text.setting2Help,50,620)
 	setFont(40)
 	gc.print("< P"..curBoard.."/P8 >",430,570)
 end
 function Pnt.setting3()
-	drawVirtualkey(sel)
+	VirtualkeyPreview()
 	local d=snapLevelValue[snapLevel]
 	if d>=10 then
 		gc.setLineWidth(3)
@@ -560,20 +609,24 @@ function Pnt.help()
 	setFont(32)
 	gc.setColor(1,1,1)
 	for i=1,11 do
-		mStr(Text.help[i],640,15+43*i)
+		gc.printf(text.help[i],140,15+43*i,1000,"center")
 	end
 	gc.draw(titleImage,180,600,.2,.7+.05*sin(Timer()*2),nil,140,100)
+	gc.draw(payCode,20,20)
+	gc.draw(groupCode,1080,20)
+	gc.setColor(1,1,1,sin(Timer()*10)*.5+.5)
+	setFont(35)
+	mStr(text.support,150,283)
+	setFont(25)
+	mStr(text.group,1170,210)
 end
 function Pnt.stat()
-	setFont(30)
+	setFont(35)
 	gc.setColor(1,1,1)
-	for i=1,10 do
-		gc.print(Text.stat[i],350,20+40*i)
-	end
-
+	for i=1,10 do gc.print(text.stat[i],350,20+40*i)end
 	gc.print(stat.run,650,60)
 	gc.print(stat.game,650,100)
-	gc.print(format("%0.2f",stat.gametime).."s",650,140)
+	gc.print(format("%0.1fhr",stat.gametime*2.78e-4),650,140)
 	gc.print(stat.piece,650,180)
 	gc.print(stat.row,650,220)
 	gc.print(stat.atk,650,260)
@@ -581,6 +634,5 @@ function Pnt.stat()
 	gc.print(stat.rotate,650,340)
 	gc.print(stat.hold,650,380)
 	gc.print(stat.spin,650,420)
-
 	gc.draw(titleImage,260,570,.2+.07*sin(Timer()*3),.8,nil,250,60)
 end

scene.lua

@@ -1,86 +0,0 @@
-game={}
-function game.load()
-	scene="load"
-	curBG="none"
-	keeprun=true
-	loading=1--Loading mode
-	loadnum=1--Loading counter
-	loadprogress=0--Loading bar
-end
-function game.intro()
-	scene="intro"
-	curBG="none"
-	count=0
-	keeprun=true
-end
-function game.main()
-	scene="main"
-	curBG="none"
-	keeprun=true
-	BGM("blank")
-	collectgarbage()
-end
-function game.mode()
-	saveData()
-	modeSel=modeSel or 1
-	scene="mode"
-	curBG="none"
-	keeprun=true
-	BGM("blank")
-end
-function game.custom()
-	optSel=optSel or 1
-	scene="custom"
-	curBG="matrix"
-	keeprun=true
-	BGM("blank")
-end
-function game.play()
-	scene="play"
-	--curBG="game1"
-	keeprun=false
-	resetGameData()
-	sysSFX("ready")
-	mouseShow=false
-end
-function game.setting()
-	scene="setting"
-	curBG="none"
-	keeprun=true
-	BGM("blank")
-end
-function game.setting2()
-	scene="setting2"
-	curBG="none"
-	keeprun=true
-		curBoard=1
-		keyboardSet=1
-		joystickSet=1
-		keyboardSetting=false
-		joystickSetting=false
-	BGM("blank")
-end--Control settings
-function game.setting3()
-	scene="setting3"
-	curBG="game1"
-	keeprun=true
-	sel=nil
-	keyssetting=nil
-	snapLevel=1
-	BGM("blank")
-end--Touch setting
-function game.help()
-	scene="help"
-	curBG="none"
-	keeprun=true
-	BGM("blank")
-end
-function game.stat()
-	scene="stat"
-	curBG="none"
-	keeprun=true
-	BGM("blank")
-end
-function game.quit()
-	love.event.quit()
-end

texture.lua

@@ -1,5 +1,6 @@
+local c
 local N=gc.newImage
-function C(x,y)
+local C=function(x,y)
 	c=gc.newCanvas(x,y)
 	gc.setCanvas(c)
 	return c
@@ -17,21 +18,8 @@ for i=1,13 do
 	gc.draw(blockImg,6-6*i,0,nil,.2)
 	blockSkinmini[i]=c
 end
-for i=1,13 do
-end
 blockImg:release()
 
-RCPB={10,33,200,33,105,5,105,60}
-do royaleCtrlPad=C(300,100)
-	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(atkModeName[i],RCPB[2*i-1]+45,RCPB[2*i]+6)
-	end
-end
-
 virtualkeyIcon={}
 for i=1,10 do
 	virtualkeyIcon[i]=N("/image/virtualkey/"..actName[i]..".png")
@@ -43,8 +31,8 @@ for i=1,7 do
 	local b=blocks[i][0]
 	mouseBlock[i]=C(#b[1],#b)
 	gc.setColor(blockColor[i])
-	for x=1,#b[1]do for y=1,#b do
-		if b[y][x]==1 then
+	for y=1,#b do for x=1,#b[1]do
+		if b[y][x]~=0 then
 			gc.rectangle("fill",x-1,#b-y,1,1)
 		end
 	end end
@@ -62,19 +50,19 @@ c:release()
 --Dust particles
 
 PTC.attack={}
-PTC.attack[1]=gc.newParticleSystem(gc.newImage("/image/mess/atk1.png"),200)
+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(gc.newImage("/image/mess/atk2.png"),200)
+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(gc.newImage("/image/mess/atk3.png"),200)
+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)
@@ -83,14 +71,17 @@ PTC.attack[3]:setColors(1,1,1,.7,1,1,1,0)
 
 gc.setDefaultFilter("linear","linear")
 titleImage=N("/image/mess/title.png")
-spinCenter=N("/image/mess/spinCenter.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")
 
-background={
-	N("/image/BG/bg1.jpg"),
-	N("/image/BG/bg2.png"),
-}
 c=nil
 gc.setCanvas()

timer.lua

@@ -4,7 +4,7 @@ function Tmr.load()
 		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 +13,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
@@ -64,10 +65,14 @@ function Tmr.play(dt)
 			rem(FX.badge,i)
 		end
 	end
+	for i=1,#virtualkey do
+		if virtualkeyPressTime[i]>0 then
+			virtualkeyPressTime[i]=virtualkeyPressTime[i]-1
+		end
+	end
 	for i=1,3 do
 		PTC.attack[i]:update(dt)
 	end
-	-- Update attack beam
 
 	if frame<180 then
 		if frame==179 then
@@ -83,17 +88,26 @@ function Tmr.play(dt)
 				P.moving=0
 			end
 		end
-		return nil
+		return
 	end--Counting,include pre-das
 	for p=1,#players do
 		P=players[p]
 		if P.timing then P.time=P.time+dt end
 		if P.alive then
-			local v=0
-			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-P.dropTime[i])end P.dropSpeed=P.dropSpeed*.99+v*.1
-			--Update speeds
+			if not P.small then
+				local v=0
+				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-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 and P.waiting<=0 then
 				P.ai.controlDelay=P.ai.controlDelay-1
@@ -102,10 +116,15 @@ function Tmr.play(dt)
 						pressKey(P.ai.controls[1],P)
 						releaseKey(P.ai.controls[1],P)
 						rem(P.ai.controls,1)
-						P.ai.controlDelay=P.ai.controlDelay0+2
+						P.ai.controlDelay=P.ai.controlDelay0+1
 					else
 						AI_getControls(P.ai.controls)
-						P.ai.controlDelay=rnd(3)*P.ai.controlDelay0
+						P.ai.controlDelay=P.ai.controlDelay0+2
+						if Timer()-P.cstat.point>P.cstat.event then
+							P.cstat.point=Timer()
+							P.cstat.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
@@ -144,13 +163,6 @@ function Tmr.play(dt)
 			else
 				P.downing=0
 			end
-			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
 			if P.falling>0 then
 				P.falling=P.falling-1
 				if P.falling<=0 then
@@ -159,18 +171,18 @@ function Tmr.play(dt)
 						removeRow(P.field,P.clearing[i])
 						removeRow(P.visTime,P.clearing[i])
 					end
-					while #P.clearing>0 do
+					::L::if P.clearing[1]then
 						rem(P.clearing)
+						goto L
 					end
 				end
-				--Rows cleared drop
 			elseif P.waiting>0 then
 				P.waiting=P.waiting-1
 				if P.waiting<=0 then
 					resetblock()
 				end
 			else
-				if P.cy~=P.y_img then
+				if P.curY~=P.y_img then
 					if P.dropDelay>0 then
 						P.dropDelay=P.dropDelay-1
 					else
@@ -186,16 +198,23 @@ function Tmr.play(dt)
 					end
 				end
 			end
-			P.b2b1=P.b2b1*.92+P.b2b*.08
 			--Alive
 		else
-			P.keySpeed=P.keySpeed*.96+P.cstat.key/P.time*60*.04
-			P.dropSpeed=P.dropSpeed*.96+P.cstat.piece/P.time*60*.04
-			--Final average speeds
+			if not P.small then
+				P.keySpeed=P.keySpeed*.96+P.cstat.key/P.time*60*.04
+				P.dropSpeed=P.dropSpeed*.96+P.cstat.piece/P.time*60*.04
+				--Final average speeds
+				if modeEnv.royaleMode then
+					P.swappingAtkMode=min(P.swappingAtkMode+2,30)
+				end
+			end
 			if P.falling>0 then
 				P.falling=P.falling-1
 				if P.falling<=0 then
-					if #P.field>P.clearing[1]then SFX("fall")end
+					if #P.field>P.clearing[1]then
+						SFX("fall")
+						if P.id==1 then VIB(1)end
+					end
 					for i=1,#P.clearing do
 						removeRow(P.field,P.clearing[i])
 						removeRow(P.visTime,P.clearing[i])
@@ -203,34 +222,30 @@ function Tmr.play(dt)
 					P.clearing={}
 				end
 			end--Rows cleared drop
-			if P.counter<40 then
+			if P.endCounter<40 then
 				for j=1,#P.field do for i=1,10 do
 					if P.visTime[j][i]<20 then P.visTime[j][i]=P.visTime[j][i]+.5 end
 				end end--Make field visible
 			end
-			if P.b2b1>0 then P.b2b1=max(P.b2b1-3,0)end
 			--Dead
 		end
 		for i=#P.bonus,1,-1 do
 			local b=P.bonus[i]
 			if b.inf then
 				if b.t<30 then
-					b.t=b.t+1
+					b.t=b.t+.5
 				end
 			else
-				b.t=b.t+1
-				if b.t==60 then rem(P.bonus,i)end
+				b.t=b.t+b.speed
+				if b.t>=60 then rem(P.bonus,i)end
 			end
 		end
-		for i=#P.task,1,-1 do
-			if P.task[i]()then rem(P.task,i)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
@@ -238,13 +253,10 @@ function Tmr.play(dt)
 				end
 			end
 		end
-		if P.fieldBeneath>0 then P.fieldBeneath=P.fieldBeneath-3 end
+		if P.fieldBeneath>0 then P.fieldBeneath=max(P.fieldBeneath-pushSpeed,0)end
 		if not P.small then
 			PTC.dust[p]:update(dt)
 		end
 	end
-	if modeEnv.royale and frame%75==0 then
-		freshRoyaleTarget()
-	end
-	setmetatable(_G,nil)
+	if modeEnv.royaleMode and frame%120==0 then freshMostDangerous()end
 end

toolfunc.lua

@@ -1,22 +1,21 @@
 function string.splitS(s,sep)
 	local t={}
-	repeat
+	::L::
 		local i=find(s,sep)or #s+1
 		ins(t,sub(s,1,i-1))
 		s=sub(s,i+#sep)
-	until #s==0
+	if #s~=0 then goto L end
 	return t
 end
 function sgn(i)return i>0 and 1 or i<0 and -1 or 0 end--Row numbe is A-uth-or's id!
-function stringPack(s,v)return s..toS(v)end
 function without(t,v)
 	for i=1,#t do
-		if t[i]==v then return nil end
+		if t[i]==v then return end
 	end
 	return true
 end
 function mStr(s,x,y)
-	gc.printf(s,x-500,y,1000,"center")
+	gc.printf(s,x-300,y,600,"center")
 end
 
 function getNewRow(val)
@@ -57,29 +56,60 @@ end
 function timeSort(a,b)
 	return a.time>b.time
 end
+function badgeSort(a,b)
+	return a.badge>b.badge
+end
 function stencil_miniTitle()
-	for i=1,#miniTitle_pixel do
-		gc.rectangle("fill",unpack(miniTitle_pixel[i]))
+	for i=1,#miniTitle_rect do
+		gc.rectangle("fill",unpack(miniTitle_rect[i]))
 	end
 end
 function stencil_field()
-	gc.rectangle("fill",150,60,300,610)
+	gc.rectangle("fill",0,-10,300,610)
 end
 function stencil_field_small()
-	gc.rectangle("fill",0,0,300,600)
+	gc.rectangle("fill",0,0,60,120)
 end
 --Single-usage funcs
-
+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
+	if royaleCtrlPad then royaleCtrlPad:release()end
+	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()
+	collectgarbage()
+end
+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
-		while sfx[s][n]:isPlaying()do
+		::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
-		end
+			goto L
+		end::quit::
 		sfx[s][n]:setVolume(v or 1)
 		sfx[s][n]:play()
 	end
@@ -87,22 +117,31 @@ end
 function SFX(s,v)
 	if setting.sfx and not P.ai then
 		local n=1
-		while sfx[s][n]:isPlaying()do
+		::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)
-				break
+				goto quit
 			end
-		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
-		for k,v in pairs(bgm)do v:stop()end
-		if s then bgm[s]:play()end
+		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
@@ -117,11 +156,6 @@ function gotoScene(s,style)
 		Buttons.sel=nil
 	end
 end
-function startGame(mode)
-	--rec=""
-	gamemode=mode
-	gotoScene("play")
-end
 function back()
 	local t=prevMenu[scene]
 	if type(t)=="string"then
@@ -132,7 +166,7 @@ function back()
 end
 function loadData()
 	userData:open("r")
-    --local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	--local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
 	local t=string.splitS(userData:read(),"\r\n")
 	userData:close()
 	for i=1,#t do
@@ -148,18 +182,11 @@ function loadData()
 	end
 end
 function saveData()
-	local t=table.concat({
-		stringPack("run=",stat.run),
-		stringPack("game=",stat.game),
-		stringPack("gametime=",stat.gametime),
-		stringPack("piece=",stat.piece),
-		stringPack("row=",stat.row),
-		stringPack("atk=",stat.atk),
-		stringPack("key=",stat.key),
-		stringPack("rotate=",stat.rotate),
-		stringPack("hold=",stat.hold),
-		stringPack("spin=",stat.spin),
-	},"\r\n")
+	local t={}
+	for i=1,#dataOpt do
+		ins(t,dataOpt[i].."="..toS(stat[dataOpt[i]]))
+	end
+	t=table.concat(t,"\r\n")
 	--t=love.math.compress(t,"zlib"):getString()
 	userData:open("w")
 	userData:write(t)
@@ -167,7 +194,7 @@ function saveData()
 end
 function loadSetting()
 	userSetting:open("r")
-    --local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	--local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
 	local t=string.splitS(userSetting:read(),"\r\n")
 	userSetting:close()
 	for i=1,#t do
@@ -175,13 +202,13 @@ function loadSetting()
 		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"then
+			if t=="sfx"or t=="bgm"or t=="bgblock"then
 				setting[t]=v=="true"
+			elseif t=="vib"then
+				setting.vib=toN(v:match("[01234]"))or 0
 			elseif t=="fullscreen"then
 				setting.fullscreen=v=="true"
 				love.window.setFullscreen(setting.fullscreen)
-			elseif t=="bgblock"then
-				setting.bgblock=v=="true"
 			elseif t=="keymap"then
 				v=string.splitS(v,"/")
 				for i=1,16 do
@@ -208,27 +235,26 @@ function loadSetting()
 			elseif t=="virtualkey"then
 				v=string.splitS(v,"/")
 				for i=1,10 do
-					if not v[i]then goto continue end
+					if not v[i]then goto c end
 					virtualkey[i]=string.splitS(v[i],",")
 					for j=1,4 do
 						virtualkey[i][j]=toN(virtualkey[i][j])
 					end
-					::continue::
+					::c::
 				end
 			elseif t=="virtualkeyAlpha"then
 				setting.virtualkeyAlpha=int(abs(toN(v)))
-			elseif t=="virtualkeyIcon"then
-				setting.virtualkeyIcon=v=="true"
-			elseif t=="virtualkeySwitch"then
-				setting.virtualkeySwitch=v=="true"
+			elseif t=="virtualkeyIcon"or t=="virtualkeySwitch"then
+				setting[t]=v=="true"
 			elseif t=="frameMul"then
-				v=min(max(toN(v)or 100,0),100)
-				setting.frameMul=v
+				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"then
+			elseif t=="ghost"or t=="center"or t=="grid"or t=="swap"then
 				setting[t]=v=="true"
+			elseif t=="lang"then
+				setting[t]=toN(v:match("[12]"))or 1
 			end
 		end
 	end
@@ -249,23 +275,15 @@ function saveSetting()
 	for i=1,4 do
 		lib[i]=table.concat(setting.keyLib[i],",")
 	end
-	local t=table.concat({
-		stringPack("sfx=",setting.sfx),
-		stringPack("bgm=",setting.bgm),
-		stringPack("fullscreen=",setting.fullscreen),
-		stringPack("bgblock=",setting.bgblock),
-		stringPack("das=",setting.das),
-		stringPack("arr=",setting.arr),
-		stringPack("sddas=",setting.sddas),
-		stringPack("sdarr=",setting.sdarr),
-		stringPack("keymap=",table.concat(map,"/")),
-		stringPack("keylib=",table.concat(lib,"/")),
-		stringPack("virtualkey=",table.concat(vk,"/")),
-		stringPack("virtualkeyAlpha=",setting.virtualkeyAlpha),
-		stringPack("virtualkeyIcon=",setting.virtualkeyIcon),
-		stringPack("virtualkeySwitch=",setting.virtualkeySwitch),
-		stringPack("frameMul=",setting.frameMul),
-	},"\r\n")
+	local t={
+		"keymap="..toS(table.concat(map,"/")),
+		"keylib="..toS(table.concat(lib,"/")),
+		"virtualkey="..toS(table.concat(vk,"/")),
+	}
+	for i=1,#saveOpt do
+		ins(t,saveOpt[i].."="..toS(setting[saveOpt[i]]))
+	end
+	t=table.concat(t,"\r\n")
 	--t=love.math.compress(t,"zlib"):getString()
 	userSetting:open("w")
 	userSetting:write(t)