Alpha V0.7.10

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()
@@ -85,8 +86,9 @@ function getScore(field,bn,cb,cx,cy)
 	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 +125,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 +133,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.bid or P.hid>0 and P.hid or P.nxt[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 +159,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)

call&sys.lua

@@ -12,7 +12,6 @@ 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
@@ -142,7 +141,7 @@ 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
 		local lib=setting.keyLib[p]
@@ -150,7 +149,7 @@ function keyDown.play(key)
 			for k=1,12 do
 				if key==m[lib[s]][k]then
 					pressKey(k,players[p])
-					return nil
+					return
 				end
 			end
 		end
@@ -165,7 +164,7 @@ function keyUp.play(key)
 			for k=1,12 do
 				if key==m[lib[s]][k]then
 					releaseKey(k,players[p])
-					return nil
+					return
 				end
 			end
 		end
@@ -220,7 +219,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]
@@ -228,7 +227,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
@@ -243,7 +242,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
@@ -254,7 +253,7 @@ 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)
@@ -267,7 +266,7 @@ function love.mousemoved(x,y,dx,dy,t)
 			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
+					return
 				end
 			end
 		end
@@ -297,6 +296,9 @@ function love.mousepressed(x,y,k,t,num)
 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
@@ -358,15 +360,11 @@ 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
+				if(x-b[1])^2+(y-b[2])^2<=b[3]then return end
 			end
-			if not p and players[1].isKeyDown then
+			if P.keyPressing[n]then
 				releaseKey(n,players[1])
 			end
 		end
@@ -383,31 +381,25 @@ end
 function love.keypressed(i)
 	if i=="f12"then devMode=not devMode end
 	if devMode then
-		if Buttons.sel then
-			local B=Buttons[scene][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
-		if i=="q"then
+		if i=="k"then
+			P=players.alive[rnd(#players.alive)]
+			Event.gameover.lose()
+		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[scene][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)
@@ -444,9 +436,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)
 	--[[
@@ -473,7 +462,9 @@ function love.update(dt)
 			for i=1,#Buttons[scene]do
 				Buttons[scene][i].alpha=0
 			end--Reset buttons' state
-			game[sceneSwaping.tar]()
+			scene=sceneSwaping.tar
+			BGM("blank")
+			sceneInit[scene]()
 			Buttons.sel=nil
 		elseif sceneSwaping.time==0 then
 			sceneSwaping=nil
@@ -484,10 +475,10 @@ function love.update(dt)
 	updateButton()
 end
 function love.sendData(data)
-	return nil
+	return
 end
 function love.receiveData(id,data)
-	return nil
+	return
 end
 function love.draw()
 	gc.clear()
@@ -542,7 +533,7 @@ 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()
@@ -567,7 +558,7 @@ function love.run()
 				if bgmPlaying then bgm[bgmPlaying]:pause()end
 				if scene=="play"then
 					for i=1,#players.alive do
-						local l=players.alive[i].isKeyDown
+						local l=players.alive[i].keyPressing
 						for j=1,#l do
 							if l[j]then
 								releaseKey(j,players.alive[i])
@@ -585,7 +576,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

conf.lua

@@ -9,12 +9,12 @@ function love.conf(t)
 	t.audio.mixwithsystem=true--Switch on to keep sysBGM
 
 	local W=t.window
-	W.title="Techmino V0.7.7"
+	W.title="Techmino V0.7.10"
 	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

gamefunc.lua

@@ -1,7 +1,6 @@
 function loadGame(mode,level)
 	--rec={}
-	print(mode)
-	curMode={id=modeID[mode],lv=level,modeName=modeName[mode],levelName=modeLevel[modeID[mode]][level]}
+	curMode={id=modeID[mode],lv=level,modeName=text.modeName[mode],levelName=modeLevel[modeID[mode]][level]}
 	gotoScene("play")
 end
 function resetGameData()
@@ -12,6 +11,8 @@ function resetGameData()
 	players={alive={}}
 	modeEnv=defaultModeEnv[curMode.id][curMode.lv]or defaultModeEnv[curMode.id][1]
 	loadmode[curMode.id]()
+	curBG=modeEnv.bg
+	BGM(modeEnv.bgm)
 
 	FX.beam={}
 	for k,v in pairs(PTC.dust)do
@@ -39,7 +40,7 @@ function resetGameData()
 
 	freeRow={}
 	collectgarbage()
-	for i=1,40*#players do
+	for i=1,30*#players do
 		freeRow[i]={0,0,0,0,0,0,0,0,0,0}
 	end
 end
@@ -63,6 +64,7 @@ function createPlayer(id,x,y,size,AIspeed,data)
 	P.small=P.size<.3
 	if P.small then
 		P.centerX,P.centerY=P.x+150*P.size,P.y+300*P.size
+		P.size=P.size*5
 	else
 		P.centerX,P.centerY=P.x+300*P.size,P.y+670*P.size
 	end
@@ -90,7 +92,7 @@ function createPlayer(id,x,y,size,AIspeed,data)
 	P.atkMode,P.swappingAtkMode=1,20
 	P.atker,P.atking,P.lastRecv={}
 	--Royale-related
-	
+
 	P.gameEnv={}--Game setting vars,like dropDelay setting
 	for k,v in pairs(gameEnv0)do
 		if data and data[k]~=nil then
@@ -104,35 +106,36 @@ function createPlayer(id,x,y,size,AIspeed,data)
 		end
 	end--reset current game settings
 
-	P.hn,P.hb,P.holded=0,{{}},false
+	P.hid,P.hc,P.hb,P.holded=0,0,{{}},false
 	P.nxt,P.nb={},{}
 	P.dropDelay,P.lockDelay=P.gameEnv.drop,P.gameEnv.lock
 	P.freshTime=0
 	P.spinLast,P.lastClear=nil
-	if P.gameEnv.sequence<3 then
+	local s=P.gameEnv.sequence
+	if s=="bag7"or s=="his4"then
 		local bag1={1,2,3,4,5,6,7}
 		for i=1,7 do
 			P.nxt[i]=rem(bag1,rnd(#bag1))
 			P.nb[i]=blocks[P.nxt[i]][0]
 		end
-	elseif P.gameEnv.sequence==3 then
+	elseif s=="rnd"then
 		for i=1,6 do
 			local r=rnd(7)
 			P.nxt[i]=r
 			P.nb[i]=blocks[r][0]
 		end
-	elseif P.gameEnv.sequence==5 then
+	elseif s=="drought1"then
 		local bag1={1,2,3,4,5,6}
 		for i=1,6 do
 			P.nxt[i]=rem(bag1,rnd(#bag1))
 			P.nb[i]=blocks[P.nxt[i]][0]
-		end--First bag
-	elseif P.gameEnv.sequence==6 then
+		end
+	elseif s=="drought2"then
 		local bag1={1,2,3,4,6,7}
 		for i=1,6 do
 			P.nxt[i]=rem(bag1,rnd(#bag1))
 			P.nb[i]=blocks[P.nxt[i]][0]
-		end--First bag
+		end
 	end
 
 	P.freshNext=freshMethod[P.gameEnv.sequence]
@@ -142,8 +145,8 @@ function createPlayer(id,x,y,size,AIspeed,data)
 	end
 
 	P.showTime=P.gameEnv.visible==1 and 1e99 or P.gameEnv.visible==2 and 300 or 20
-	P.cb,P.sc,P.bn,P.r,P.c,P.cx,P.cy,P.dir,P.y_img={{}},{0,0},1,0,0,0,0,0,0
-	P.keyPressing,P.isKeyDown={},{}for i=1,12 do P.keyPressing[i],P.isKeyDown[i]=false,false end
+	P.cb,P.sc,P.bid,P.r,P.c,P.cx,P.cy,P.dir,P.y_img={{}},{0,0},1,0,0,0,0,0,0
+	P.keyPressing={}for i=1,12 do P.keyPressing[i]=false end
 	P.moving,P.downing=0,0
 	P.waiting,P.falling=0,0
 	P.clearing={}
@@ -158,21 +161,51 @@ function createPlayer(id,x,y,size,AIspeed,data)
 	P.result=nil--string,"win"/"lose"
 	P.task={}
 	P.bonus={}
-end 
+end
 function showText(P,text,type,font,dy,spd,inf)
 	if not P.small then
 		ins(P.bonus,{t=0,text=text,draw=FX[type],font=font,dy=dy or 0,speed=spd or 1,inf=inf})
 	end
 end
+function garbageSend(S,R,send,time)
+	local pos=rnd(10)
+	createBeam(S,R,send<4 and 1 or send<7 and 2 or 3)
+	R.lastRecv=S
+	if R.atkBuffer.sum<20 then
+		send=min(send,20-R.atkBuffer.sum)
+		R.atkBuffer.sum=R.atkBuffer.sum+send
+		ins(R.atkBuffer,{pos,amount=send,countdown=time,cd0=time,time=0,sent=false,lv=send<4 and 1 or send<7 and 2 or 3})
+		if R.id==1 then sysSFX(send<4 and "blip_1"or"blip_2",min(send+1,5)*.1)end
+	end
+end
+function garbageRelease()
+	local t=P.showTime*2
+	for i=1,#P.atkBuffer do
+		local atk=P.atkBuffer[i]
+		if not atk.sent and atk.countdown<=0 then
+			for j=1,atk.amount do
+				ins(P.field,1,getNewRow(13))
+				ins(P.visTime,1,getNewRow(t))
+				for k=1,#atk do
+					P.field[1][atk[k]]=0
+				end
+			end
+			P.atkBuffer.sum=P.atkBuffer.sum-atk.amount
+			atk.sent=true
+			atk.time=0
+			P.fieldBeneath=P.fieldBeneath+atk.amount*30
+		end
+	end
+end
 function createBeam(S,R,lv)--Player id
 	local x1,y1,x2,y2
 	if S.small then
-		x1,y1=S.x+(30*(P.cx+P.sc[2]-1)+15)*S.size,S.y+(600-30*(P.cy+P.sc[1]-1)+15)*S.size
+		x1,y1=S.centerX,S.centerY
 	else
 		x1,y1=S.x+(30*(P.cx+P.sc[2]-1)-30+15+150)*S.size,S.y+(600-30*(P.cy+P.sc[1]-1)+15+70)*S.size
 	end
 	if R.small then
-		x2,y2=R.x+150*R.size,R.y+300*R.size
+		x2,y2=R.x+150*R.size*.2,R.y+300*R.size*.2
 	else
 		x2,y2=R.x+308*R.size,R.y+450*R.size
 	end
@@ -181,23 +214,23 @@ end
 function throwBadge(S,R,amount)--Player id
 	local x1,y1,x2,y2
 	if S.small then
-		x1,y1=S.x+150*S.size,S.y+300*S.size
+		x1,y1=S.x+30*S.size,S.y+60*S.size
 	else
 		x1,y1=S.x+308*S.size,S.y+450*S.size
 	end
 	if R.small then
-		x2,y2=R.x+150*R.size,R.y+300*R.size
+		x2,y2=R.x+30*R.size,R.y+60*R.size
 	else
-		x2,y2=R.x+73*R.size,R.y+360*R.size
+		x2,y2=R.x+73*R.size,R.y+345*R.size
 	end
 	ins(FX.badge,{x1,y1,x2,y2,t=0,size=(9+min(amount,12))*.1})
 end
 function randomTarget(p)
 	if #players.alive>1 then
 		local r
-		repeat
+		::L::
 			r=players.alive[rnd(#players.alive)]
-		until r~=p
+		if r==p then goto L end
 		return r
 	end
 end
@@ -214,7 +247,7 @@ function freshTarget(P)
 		for i=1,#P.atker do
 			if not P.atker[i].alive then
 				rem(P.atker,i)
-				break
+				return
 			end
 		end
 	end
@@ -236,16 +269,6 @@ function changeAtk(P,R)
 		P.atking=nil
 	end
 end
-function freshMostBadge()
-	mostBadge,secBadge=nil
-	local m=0
-	for i=1,#players.alive do
-		if players.alive[i].badge>=m then
-			mostBadge,secBadge=players.alive[i],mostBadge
-			m=players.alive[i].badge
-		end
-	end
-end
 function freshMostDangerous()
 	mostDangerous,secDangerous=nil
 	local m=0
@@ -260,7 +283,7 @@ function royaleLevelup()
 	gameStage=gameStage+1
 	local spd
 	if(gameStage==3 or gameStage>4)and players[1].alive then
-		showText(players[1],#players.alive.." Players Remain","beat",50,-100,.3)
+		showText(players[1],text.royale_remain(#players.alive),"beat",50,-100,.3)
 	end
 	if gameStage==2 then
 		spd=30
@@ -292,50 +315,55 @@ function royaleLevelup()
 end
 function freshgho()
 	if P.gameEnv._20G or P.keyPressing[7]and P.gameEnv.sdarr==0 then
-		while not ifoverlap(P.cb,P.cx,P.cy-1)do
+		::L::if not ifoverlap(P.cb,P.cx,P.cy-1)then
 			P.cy=P.cy-1
 			P.spinLast=false
+			goto L
 		end
 		P.y_img=P.cy
 	else
 		P.y_img=P.cy>#P.field+1 and #P.field+1 or P.cy
-		while not ifoverlap(P.cb,P.cx,P.y_img-1)do
+		::L::if not ifoverlap(P.cb,P.cx,P.y_img-1)then
 			P.y_img=P.y_img-1
+			goto L
 		end
 	end
 end
 function freshLockDelay()
-	if P.lockDelay<P.gameEnv.lock and P.freshTime<=P.gameEnv.freshLimit then
-		P.lockDelay=P.gameEnv.lock
+	if P.lockDelay<P.gameEnv.lock or P.cy==P.y_img then
+		if P.freshTime<=P.gameEnv.freshLimit then
+			P.lockDelay=P.gameEnv.lock
+		end
 		P.freshTime=P.freshTime+1
 	end
 end
 function ifoverlap(bk,x,y)
 	if x<1 or x+#bk[1]>11 or y<1 then return true end
-	if y>#P.field then return nil end
+	if y>#P.field then return end
 	for i=1,#bk do for j=1,#bk[1]do
 		if P.field[y+i-1]and bk[i][j]>0 and P.field[y+i-1][x+j-1]>0 then return true end
 	end end
 end
 function ckfull(i)
-	for j=1,10 do if P.field[i][j]==0 then return nil end end
+	for j=1,10 do if P.field[i][j]==0 then return end end
 	return true
 end
-function checkrow(s,num)--(cy,r)
-	local c=0--rows cleared
-	for i=s,s+num-1 do
+function checkrow(start,height)--(cy,r)
+	local c=0
+	for i=start,start+height-1 do
 		if ckfull(i)then
 			ins(P.clearing,1,i)
-			P.falling=P.gameEnv.fall
-			c=c+1--row cleared+1
+			c=c+1
 			if not P.small then
-				for k=1,250 do
-					PTC.dust[P.id]:setPosition(rnd(300),600-30*i+rnd(30))
-					PTC.dust[P.id]:emit(1)
+				local S=PTC.dust[P.id]
+				for k=1,100 do
+					S:setPosition(rnd(300),600-30*i+rnd(30))
+					S:emit(3)
 				end
 			end
 		end
 	end
+	if c>0 then P.falling=P.gameEnv.fall end
 	return c
 end
 function solid(x,y)
@@ -346,10 +374,12 @@ end
 function resetblock()
 	P.holded=false
 	P.spinLast=false
+	P.bid,P.cb=rem(P.nxt,1),rem(P.nb,1)--block id/current block
+	P.bc=P.bid--block color
 	P.freshNext()
-	P.sc,P.dir=scs[P.bn][0],0
-	P.r,P.c=#P.cb,#P.cb[1]
-	P.cx,P.cy=blockPos[P.bn],21+ceil(P.fieldBeneath/30)-P.r+min(int(#P.field*.2),2)
+	P.sc,P.dir=scs[P.bid][0],0--spin center/direction
+	P.r,P.c=#P.cb,#P.cb[1]--row/column
+	P.cx,P.cy=blockPos[P.bid],21+ceil(P.fieldBeneath/30)-P.r+min(int(#P.field*.2),2)
 	P.dropDelay,P.lockDelay,P.freshTime=P.gameEnv.drop,P.gameEnv.lock,0
 
 	if P.keyPressing[8]then hold(true)end
@@ -369,11 +399,14 @@ end
 function pressKey(i,p)
 	P=p
 	P.keyPressing[i]=true
-	P.isKeyDown[i]=true
+	if P.id==1 then
+		virtualkeyDown[i]=true
+		virtualkeyPressTime[i]=10
+	end
 	if i==10 then
 		act.restart()
 	elseif P.alive then
-        if P.control and P.waiting<=0 then
+		if P.control and P.waiting<=0 then
 			act[actName[i]]()
 			if i>2 and i<7 then P.keyPressing[i]=false end
 		elseif P.keyPressing[9]then
@@ -402,25 +435,62 @@ function pressKey(i,p)
 end
 function releaseKey(i,p)
 	p.keyPressing[i]=false
-	p.isKeyDown[i]=false
-	-- if playmode=="recording"then ins(rec,{-i,frame})end
+	if p.id==1 then virtualkeyDown[i]=false end
+	-- if recording then ins(rec,{-i,frame})end
 end
 function spin(d,ifpre)
 	local idir=(P.dir+d)%4
-    if P.bn==6 then
+	if P.bid==6 then
 		freshLockDelay()
 		SFX(ifpre and"prerotate"or"rotate")
-		if P.id==1 then
-			stat.rotate=stat.rotate+1
+		if P.gameEnv.ospin and P.freshTime>10 then
+			if d==1 then
+				if P.cy==P.y_img and solid(P.cx+2,P.cy+1)and solid(P.cx+2,P.cy)and solid(P.cx-1,P.cy+1)and not solid(P.cx-1,P.cy)then
+					if solid(P.cx-2,P.cy)then
+						P.cx=P.cx-1
+						goto T
+					else
+						P.cx=P.cx-2
+						goto I
+					end
+				end
+			elseif d==-1 then
+				if P.cy==P.y_img and solid(P.cx-1,P.cy+1)and solid(P.cx-1,P.cy)and solid(P.cx+2,P.cy+1)and not solid(P.cx+2,P.cy)then
+					if solid(P.cx+3,P.cy)then
+						goto T
+					else
+						goto I
+					end
+				end
+			elseif d==2 and P.cy==P.y_img and solid(P.cx-1,P.cy+1)and solid(P.cx+2,P.cy+1)and not solid(P.cx-1,P.cy)and not solid(P.cx+2,P.cy)then
+				P.cx=P.cx-1
+				goto I
+			end
+			goto E
+			::T::
+				P.bid=5
+				P.cb=blocks[5][0]
+				P.sc=scs[5][0]
+				P.r,P.c,P.dir=2,3,0
+				P.spinLast=3
+				if P.id==1 then stat.rotate=stat.rotate+1 end
+				goto E
+			::I::
+				P.bid=7
+				P.cb=blocks[7][2]
+				P.sc=scs[7][2]
+				P.r,P.c,P.dir=1,4,2
+				P.spinLast=3
+				if P.id==1 then stat.rotate=stat.rotate+1 end
 		end
-        return nil
-    end
-	local icb=blocks[P.bn][idir]
-	local isc=scs[P.bn][idir]
+		::E::return
+	end
+	local icb=blocks[P.bid][idir]
+	local isc=scs[P.bid][idir]
 	local ir,ic=#icb,#icb[1]
 	local ix,iy=P.cx+P.sc[2]-isc[2],P.cy+P.sc[1]-isc[1]
 	local t--succssful test
-	local iki=TRS[P.bn][P.dir*10+idir]
+	local iki=TRS[P.bid][P.dir*10+idir]
 	for i=1,P.freshTime<=1.2*P.gameEnv.freshLimit and #iki or 1 do
 		if not ifoverlap(icb,ix+iki[i][1],iy+iki[i][2])then
 			ix,iy=ix+iki[i][1],iy+iki[i][2]
@@ -430,7 +500,7 @@ function spin(d,ifpre)
 	end
 	if t then
 		P.cx,P.cy,P.dir=ix,iy,idir
-		P.sc,P.cb=scs[P.bn][idir],icb
+		P.sc,P.cb=scs[P.bid][idir],icb
 		P.r,P.c=ir,ic
 		P.spinLast=testScore[t==2 and -d or d]
 		freshgho()
@@ -443,13 +513,17 @@ function spin(d,ifpre)
 end
 function hold(ifpre)
 	if not P.holded and P.waiting<=0 and P.gameEnv.hold then
-		P.hn,P.bn=P.bn,P.hn
-		P.hb,P.cb=blocks[P.hn][0],P.hb
+		P.hid,P.bid,P.bc,P.hc=P.bid,P.hid,P.hc,P.bc
+		P.hb,P.cb=blocks[P.hid][0],P.hb
 
-		if P.bn==0 then P.freshNext()end
-		P.sc,P.dir=scs[P.bn][0],0
+		if P.bid==0 then
+			P.bid,P.cb=rem(P.nxt,1),rem(P.nb,1)
+			P.bc=P.bid
+			P.freshNext()
+		end
+		P.sc,P.dir=scs[P.bid][0],0
 		P.r,P.c=#P.cb,#P.cb[1]
-		P.cx,P.cy=blockPos[P.bn],21+ceil(P.fieldBeneath/30)-P.r+min(int(#P.field*.2),2)
+		P.cx,P.cy=blockPos[P.bid],21+ceil(P.fieldBeneath/30)-P.r+min(int(#P.field*.2),2)
 
 		if abs(P.moving)-P.gameEnv.das>1 then
 			if not ifoverlap(P.cb,P.cx+sgn(P.moving),P.cy)then
@@ -473,7 +547,7 @@ function drop()
 		P.waiting=P.gameEnv.wait
 		local dospin=0
 		if P.spinLast then
-			if P.bn<6 then
+			if P.bid<6 then
 				local x,y=P.cx+P.sc[2]-1,P.cy+P.sc[1]-1
 				local c=0
 				if solid(x-1,y+1)then c=c+1 end
@@ -486,7 +560,7 @@ function drop()
 					end
 				end
 			end--Three point
-			if P.bn~=6 and ifoverlap(P.cb,P.cx-1,P.cy)and ifoverlap(P.cb,P.cx+1,P.cy)and ifoverlap(P.cb,P.cx,P.cy+1)then
+			if P.bid~=6 and ifoverlap(P.cb,P.cx-1,P.cy)and ifoverlap(P.cb,P.cx+1,P.cy)and ifoverlap(P.cb,P.cx,P.cy+1)then
 				dospin=dospin+2
 			end--Immobile
 		end
@@ -505,22 +579,22 @@ function drop()
 		elseif dospin<2 then
 			dospin=false
 		elseif dospin==2 then
-			mini=P.bn<6 and cc<3 and cc<P.r
+			mini=P.bid<6 and cc<3 and cc<P.r
 		end
 
 		P.combo=P.combo+1--combo=0 is under
 		if cc==4 then
 			if P.b2b>480 then
-				showText(P,"Techrash B2B2B","fly",70)
+				showText(P,text.techrashB3B,"fly",70)
 				csend=6
-				sendTime=80
+				sendTime=100
 				exblock=exblock+1
 			elseif P.b2b>=30 then
-				showText(P,"Techrash B2B","drive",70)
-				sendTime=70
+				showText(P,text.techrashB2B,"drive",70)
+				sendTime=80
 				csend=5
 			else
-				showText(P,"Techrash","stretch",80)
+				showText(P,text.techrash,"stretch",80)
 				sendTime=60
 				csend=4
 			end
@@ -530,39 +604,39 @@ function drop()
 		elseif cc>0 then
 			if dospin then
 				if P.b2b>480 then
-					showText(P,spinName[cc][P.bn].." B2B2B","spin",40)
+					showText(P,text.b3b..text.spin[P.bc]..text.clear[cc],"spin",40)
 					csend=b2bATK[cc]+1
 					exblock=exblock+1
 				elseif P.b2b>=30 then
-					showText(P,spinName[cc][P.bn].." B2B","spin",40)
+					showText(P,text.b2b..text.spin[P.bc]..text.clear[cc],"spin",40)
 					csend=b2bATK[cc]
 				else
-					showText(P,spinName[cc][P.bn],"spin",50)
+					showText(P,text.spin[P.bc]..text.clear[cc],"spin",50)
 					csend=2*cc
 				end
 				sendTime=20+csend*20
 				if mini then
-					showText(P,"Mini","drive",40,10)
+					showText(P,text.mini,"appear",40,-60)
 					csend=ceil(csend*.5)
 					sendTime=sendTime+60
 					P.b2b=P.b2b+b2bPoint[cc]*.8
 				else
 					P.b2b=P.b2b+b2bPoint[cc]
 				end
-				P.lastClear=P.bn*10+cc
+				P.lastClear=P.bid*10+cc
 				if P.id==1 then
 					stat.spin=stat.spin+1
 				end
 				SFX(spin_n[cc])
 			elseif #P.clearing<#P.field then
 				P.b2b=P.b2b-150-cc*50
-				showText(P,clearName[cc],"appear",50)
+				showText(P,text.clear[cc],"appear",32+cc*3,0,(8-cc)*.3)
 				csend=cc-1
 				sendTime=20+csend*20
 				P.lastClear=cc
 			end
 			if #P.clearing==#P.field then
-				showText(P,"Perfect Clear","flicker",70,-80)
+				showText(P,text.PC,"flicker",70,-80)
 				csend=csend+min(6+P.cstat.pc,10)
 				exblock=exblock+2
 				sendTime=sendTime+30
@@ -570,13 +644,13 @@ function drop()
 					P.b2b=600
 				end
 				P.cstat.pc=P.cstat.pc+1
-				P.lastClear=P.bn*10+5
+				P.lastClear=P.bid*10+5
 				SFX("perfectclear")
 			end
 		else
 			P.combo=0
 			if dospin then
-				showText(P,spinName[0][P.bn],"appear",50)
+				showText(P,text.spin[P.bc],"appear",50)
 				SFX("spin_0")
 				P.b2b=P.b2b+15
 			end
@@ -584,7 +658,7 @@ function drop()
 
 		csend=csend+(renATK[P.combo]or 4)
 		if P.combo>2 then
-			showText(P,renName[min(P.combo,20)],P.combo<10 and"appear"or"flicker",20+P.combo*3,60)
+			showText(P,text.cmb[min(P.combo,20)],P.combo<10 and"appear"or"flicker",20+P.combo*3,60)
 		end
 		sendTime=sendTime+20*P.combo
 		if cc>0 then
@@ -616,10 +690,11 @@ function drop()
 			if csend>0 then
 				showText(P,csend,"zoomout",25,70)
 				if exblock>0 then
-					showText(P,exblock,"zoomout",10,70)
+					showText(P,exblock,"zoomout",10,90)
 				end
 			end
-			while csend>0 and P.atkBuffer[1]do
+			::L::
+			if csend>0 and P.atkBuffer[1]then
 				if exblock>0 then
 					exblock=exblock-1
 				else
@@ -630,6 +705,7 @@ function drop()
 				if P.atkBuffer[1].amount==0 then
 					rem(P.atkBuffer,1)
 				end
+				goto L
 			end
 			if csend>0 then
 				if modeEnv.royaleMode then
@@ -675,42 +751,12 @@ function lock()
 		if not P.field[y]then P.field[y],P.visTime[y]=getNewRow(),getNewRow()end
 		for j=1,P.c do
 			if P.cb[i][j]~=0 then
-				P.field[y][P.cx+j-1]=P.bn
+				P.field[y][P.cx+j-1]=P.bc
 				P.visTime[y][P.cx+j-1]=P.showTime
 			end
 		end
 	end
 end
-function garbageSend(S,R,send,time)
-	local pos=rnd(10)
-	createBeam(S,R,send<4 and 1 or send<7 and 2 or 3)
-	R.lastRecv=S
-	if R.atkBuffer.sum<20 then
-		send=min(send,20-R.atkBuffer.sum)
-		R.atkBuffer.sum=R.atkBuffer.sum+send
-		ins(R.atkBuffer,{pos,amount=send,countdown=time,cd0=time,time=0,sent=false,lv=send<4 and 1 or send<7 and 2 or 3})
-		if R.id==1 then sysSFX(send<4 and "blip_1"or"blip_2",min(send+1,5)*.1)end
-	end
-end
-function garbageRelease()
-	local t=P.showTime*2
-	for i=1,#P.atkBuffer do
-		local atk=P.atkBuffer[i]
-		if not atk.sent and atk.countdown<=0 then
-			for j=1,atk.amount do
-				ins(P.field,1,getNewRow(13))
-				ins(P.visTime,1,getNewRow(t))
-				for k=1,#atk do
-					P.field[1][atk[k]]=0
-				end
-			end
-			P.atkBuffer.sum=P.atkBuffer.sum-atk.amount
-			atk.sent=true
-			atk.time=0
-			P.fieldBeneath=P.fieldBeneath+atk.amount*30
-		end
-	end
-end
 act={
 	moveLeft=function(auto)
 		if P.keyPressing[9]then
@@ -735,7 +781,7 @@ act={
 		if P.keyPressing[9]then
 			if P.atkMode~=2 then
 				P.atkMode=2
-				changeAtk(P,P~=mostBadge and mostBadge or secBadge or randomTarget(P))
+				freshTarget(P)
 			end
 		else
 			if not auto then
@@ -757,7 +803,7 @@ act={
 		if P.keyPressing[9]then
 			if P.atkMode~=3 then
 				P.atkMode=3
-				changeAtk(P,P~=mostDangerous and mostDangerous or secDangerous or randomTarget(P))
+				freshTarget(P)
 			end
 		else
 			if P.waiting<=0 then
@@ -805,16 +851,22 @@ act={
 	end,
 	insDown=function()if P.cy~=P.y_img then P.cy,P.lockDelay,P.spinLast=P.y_img,P.gameEnv.lock,false end end,
 	insLeft=function()
-		while not ifoverlap(P.cb,P.cx-1,P.cy)do
-			P.cx,P.lockDelay=P.cx-1,P.gameEnv.lock
+		local x0=cx
+		::L::if not ifoverlap(P.cb,P.cx-1,P.cy)then
+			P.cx=P.cx-1
 			freshgho()
+			goto L
 		end
+		if x0~=cx then freshLockDelay()end
 	end,
 	insRight=function()
-		while not ifoverlap(P.cb,P.cx+1,P.cy)do
-			P.cx,P.lockDelay=P.cx+1,P.gameEnv.lock
+		local x0=cx
+		::L::if not ifoverlap(P.cb,P.cx+1,P.cy)then
+			P.cx=P.cx+1
 			freshgho()
+			goto L
 		end
+		if x0~=cx then freshLockDelay()end
 	end,
 	down1=function()
 		if P.cy~=P.y_img then

language/chi.lua

@@ -0,0 +1,191 @@
+return{
+	royale_remain=function(n)
+		return "剩余 "..n.." 名玩家"
+	end,
+	cmb={nil,nil,"3连击","4连击","5连击","6连击","7连击","8连击","9连击","10连击!","11连击!","12连击!","13连击!","14连击!","15连击!","16连击!","17连击!","18连击!","19连击!","巨型连击"},
+	techrash="四清",
+	techrashB2B="满贯 四清",
+	techrashB3B="大满贯 四清",
+	block={"Z","S","L","J","T","O","I"},
+	spin={"Z型回旋","S型回旋","L型回旋","J型回旋","T型回旋","O型回旋","I型回旋"},
+	clear={"单清","双清","三清"},
+	b2b="满贯 ",
+	b3b="大满贯 ",
+	mini="次级",
+	PC="场地全清",
+	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="尝试坚持到最后",
+		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,[所有测试人员]和 你!",
+		"错误或者建议请附带相关信息发送到作者邮箱~",
+	},
+	ButtonText={
+		main={
+			"开始",
+			"设置",
+			"帮助",
+			"统计信息",
+			"退出",
+		},
+		mode={
+			"Λ",
+			"v",
+			"<",
+			">",
+			"开始",
+			"自定义(C)",
+			"返回",
+		},
+		custom={
+			"Λ",
+			"v",
+			"<",
+			">",
+			"开始",
+			"返回",
+		},
+		setting={
+			function()return setting.ghost and"阴影 开"or"阴影 关"end,
+			function()return setting.center and"旋转中心 开"or"旋转中心 关"end,
+			"-",
+			"+",
+			"-",
+			"+",
+			"-",
+			"+",
+			"-",
+			"+",
+			function()return setting.sfx and"音效 开"or"音效 关"end,
+			function()return setting.bgm and"音乐 开"or"音乐 关"end,
+			function()return "震动强度:"..setting.vib end,
+			function()return setting.fullscreen and"全屏 开"or"全屏 关"end,
+			function()return setting.bgblock and"背景动画 开"or"背景动画 关"end,
+			function()return"绘制帧:"..setting.frameMul.."%"end,
+			"控制设置",
+			"触摸设置",
+			function()return langName[setting.lang]end,
+			"保存&返回",
+		},
+		setting2={
+			"返回",
+		},
+		setting3={
+			"返回",
+			function()return setting.virtualkeySwitch and"隐藏虚拟按键"or"显示虚拟按键"end,
+			"默认组合",
+			function()return text.snapLevelName[snapLevel]end,
+			function()return percent0to5[setting.virtualkeyAlpha]end,
+			"图标",
+			"大小",
+		},
+		help={
+			"返回",
+			"作者QQ",
+		},
+		stat={
+			"返回",
+		},
+	},
+}--中文→

language/eng.lua

@@ -0,0 +1,191 @@
+return{
+	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"},
+		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","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",
+		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.",
+	},
+	ButtonText={
+		main={
+			"Play",
+			"Settings",
+			"Help",
+			"Statistics",
+			"Quit",
+		},
+		mode={
+			"Λ",
+			"v",
+			"<",
+			">",
+			"Start",
+			"Custom(C)",
+			"Back",
+		},
+		custom={
+			"Λ",
+			"v",
+			"<",
+			">",
+			"Start",
+			"Back",
+		},
+		setting={
+			function()return setting.ghost and"Ghost:ON"or"Ghost:OFF"end,
+			function()return setting.center and"Center:ON"or"Center:OFF"end,
+			"-",
+			"+",
+			"-",
+			"+",
+			"-",
+			"+",
+			"-",
+			"+",
+			function()return setting.sfx and"SFX:on"or"SFX:off"end,
+			function()return setting.bgm and"BGM:on"or"BGM:off"end,
+			function()return "Vibrate level:"..setting.vib end,
+			function()return setting.fullscreen and"Fullscreen:on"or"Fullscreen:off"end,
+			function()return setting.bgblock and"BG animation:on"or"BG animation:off"end,
+			function()return"FrameDraw:"..setting.frameMul.."%"end,
+			"Control settings",
+			"Touch settings",
+			function()return langName[setting.lang]end,
+			"Save&Back",
+		},
+		setting2={
+			"Back",
+		},
+		setting3={
+			"Back",
+			function()return setting.virtualkeySwitch and"Hide Virtual Key"or"Show Virtual Key"end,
+			"Defaults",
+			function()return text.snapLevelName[snapLevel]end,
+			function()return percent0to5[setting.virtualkeyAlpha]end,
+			"Icon",
+			"Size",
+		},
+		help={
+			"Back",
+			"Author's qq",
+		},
+		stat={
+			"Back",
+		},
+	}
+}

main.lua

@@ -39,7 +39,7 @@ function setFont(s)
 		if Fonts[s]then
 			gc.setFont(Fonts[s])
 		else
-			local t=gc.setNewFont("albbph.ttf",s-5)
+			local t=gc.setNewFont("font.ttf",s-5)
 			Fonts[s]=t
 			gc.setFont(t)
 		end
@@ -54,11 +54,13 @@ gameEnv0={
 	drop=30,lock=45,
 	wait=1,fall=1,
 	next=6,hold=true,oncehold=true,
-	sequence=1,visible=1,
+	sequence="bag7",visible=1,
 	_20G=false,target=1e99,
 	freshLimit=15,
-	virtualkey={},
+	ospin=true,
 	reach=null,
+	bg="none",
+	bgm="race"
 	--not all is actually used,some only provide a key
 }
 customSel={
@@ -77,44 +79,28 @@ customSel={
 loadmode={
 	sprint=function()
 		createPlayer(1,340,15)
-		curBG="game1"
-		BGM("race")
 	end,
 	marathon=function()
 		createPlayer(1,340,15)
-		curBG="strap"
-		BGM("way")
+	end,
+	classic=function()
+		createPlayer(1,340,15)
 	end,
 	zen=function()
 		createPlayer(1,340,15)
-		curBG="strap"
-		BGM("infinite")
 	end,
 	infinite=function()
 		createPlayer(1,340,15)
-		curBG="glow"
-		BGM("infinite")
 	end,
 	solo=function()
-		createPlayer(1,20,15)--Player
-		createPlayer(2,660,85,.9,customRange.opponent[3*curMode.lv])--AI
-		curBG="game2"
-		BGM("race")
-	end,
-	death=function()
-		createPlayer(1,340,15)
-		curBG="game2"
-		BGM("push")
+		createPlayer(1,200,15)
+		createPlayer(2,830,220,.7,customRange.opponent[3*curMode.lv])
 	end,
 	tsd=function()
 		createPlayer(1,340,15)
-		curBG="matrix"
-		BGM("reason")
 	end,
 	blind=function()
 		createPlayer(1,340,15)
-		curBG="glow"
-		BGM("push")
 	end,
 	dig=function()
 		createPlayer(1,340,15)
@@ -126,122 +112,69 @@ loadmode={
 			ins(players[1].task,Event.task.dig_lunatic)
 			pushSpeed=1
 		end
-		curBG="game2"
-		BGM("push")
 	end,
 	survivor=function()
 		createPlayer(1,340,15)
 		local P=players[1]
-		if curMode.lv==1 then
-			ins(players[1].task,Event.task.survivor_easy)
-			pushSpeed=1
-		elseif curMode.lv==2 then
-			ins(players[1].task,Event.task.survivor_normal)
-			pushSpeed=1
-		elseif curMode.lv==3 then
-			ins(players[1].task,Event.task.survivor_hard)
-			pushSpeed=2
-		elseif curMode.lv==4 then
-			ins(players[1].task,Event.task.survivor_lunatic)
-			pushSpeed=2
-		end
-		curBG="game2"
-		BGM("push")
+		ins(players[1].task,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"])
+		pushSpeed=curMode.lv>2 and 2 or 1
 	end,
-	sudden=function()
+	tech=function()
 		createPlayer(1,340,15)
-		curBG="matrix"
-		BGM("way")
 	end,
 	pctrain=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
+		P=players[1]
 		Event.newPC()
-		curBG="matrix"
-		BGM("infinite")
+		P.freshNext()
 	end,
 	pcchallenge=function()
 		createPlayer(1,340,15)
-		curBG="matrix"
-		BGM("infinite")
 	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
+		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
+		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="game3"
-		BGM("race")
 	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
+		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
+		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
 
-		curBG="game3"
-		BGM("race")
 	end,
 	drought=function()
 		createPlayer(1,340,15)
-		curBG="strap"
-		BGM("reason")
-	end,
-	gmroll=function()
-		createPlayer(1,340,15)
-		curBG="glow"
-		BGM("push")
 	end,
 	hotseat=function()
 		if curMode.lv==1 then
@@ -257,11 +190,8 @@ loadmode={
 			createPlayer(3,645,160,.5)
 			createPlayer(4,955,160,.5)
 		end
-		curBG="game2"
-		BGM("way")
 	end,
 	custom=function()
-		modeEnv={}
 		for i=1,#customID do
 			local k=customID[i]
 			modeEnv[k]=customRange[k][customSel[k]]
@@ -274,8 +204,6 @@ loadmode={
 			createPlayer(1,20,15)
 			createPlayer(2,660,85,.9,modeEnv.opponent)
 		end
-		curBG="matrix"
-		BGM("reason")
 	end,
 }
 mesDisp={
@@ -284,6 +212,23 @@ mesDisp={
 		setFont(70)
 		mStr(max(P.gameEnv.target-P.cstat.row,0),-75,260)
 	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,
+	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)
 		mStr(max(200-P.cstat.row,0),-75,280)
@@ -293,25 +238,19 @@ mesDisp={
 		mStr(P.cstat.atk,-75,310)
 		mStr(format("%.2f",2.5*P.cstat.atk/P.cstat.piece),-75,420)
 		setFont(20)
-		gc.print("Attack",-98,363)
-		gc.print("Efficiency",-110,475)
-	end,
-	marathon=function()
-		setFont(50)
-		mStr(P.cstat.row,-75,320)
-		mStr(P.gameEnv.target,-75,370)
-		gc.rectangle("fill",-120,376,90,4)
+		mStr("Attack",-75,363)
+		mStr("Efficiency",-75,475)
 	end,
 	tsd=function()
 		setFont(35)
-		gc.print("TSD",-102,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)
-		gc.print("Rows",-102,300)
-		gc.print("Techrash",-123,420)
+		mStr("Rows",-75,300)
+		mStr("Techrash",-75,420)
 		setFont(80)
 		mStr(P.cstat.row,-75,220)
 		mStr(P.cstat.techrash,-75,340)
@@ -320,23 +259,23 @@ mesDisp={
 		setFont(70)
 		mStr(P.cstat.event,-75,310)
 		setFont(30)
-		gc.print("Wave",-112,375)
+		mStr("Wave",-75,375)
 	end,
 	survivor=function()
 		setFont(70)
 		mStr(P.cstat.event,-75,310)
 		setFont(30)
-		gc.print("Wave",-112,375)
+		mStr("Wave",-75,375)
 	end,
 	pctrain=function()
 		setFont(25)
-		gc.print("Perfect Clear",-140,410)
+		mStr("Perfect Clear",-75,410)
 		setFont(80)
 		mStr(P.cstat.pc,-75,330)
 	end,
 	pcchallenge=function()
 		setFont(25)
-		gc.print("Perfect Clear",-140,430)
+		mStr("Perfect Clear",-75,430)
 		setFont(80)
 		mStr(P.cstat.pc,-75,350)
 		setFont(50)
@@ -386,18 +325,21 @@ mesDisp={
 Event={
 	gameover={
 		win=function()
+			local P=players.alive[1]
 			P.alive=false
 			P.control=false
 			P.timing=false
 			P.waiting=1e99
 			P.b2b=0
 			if modeEnv.royaleMode then
-				P.rank=#players.alive
+				P.rank=1
 				P.result="WIN"
+				showText(P,1,"appear",60,120,nil,true)
 				changeAtk(P)
 			end
-			while P.task[1]do
+			::L::if P.task[1]then
 				rem(P.task)
+				goto L
 			end
 			for i=1,#P.atkBuffer do
 				P.atkBuffer[i].sent=true
@@ -408,7 +350,7 @@ Event={
 					P.visTime[i][j]=min(P.visTime[i][j],20)
 				end
 			end
-			showText(P,"WIN","appear",90,nil,nil,true)
+			showText(P,text.win,"beat",90,nil,nil,true)
 			if P.id==1 and players[2]and players[2].ai then SFX("win")end
 			ins(P.task,Event.task.win)
 		end,
@@ -418,8 +360,9 @@ Event={
 			P.timing=false
 			P.waiting=1e99
 			P.b2b=0
-			while P.task[1]do
+			::L::if P.task[1]then
 				rem(P.task)
+				goto L
 			end
 			for i=1,#players.alive do
 				if players.alive[i]==P then
@@ -430,10 +373,14 @@ Event={
 			if modeEnv.royaleMode then
 				changeAtk(P)
 				P.result="K.O."
-				P.rank=#players.alive
+				P.rank=#players.alive+1
+				showText(P,P.rank,"appear",60,120,nil,true)
 				P.strength=0
-				if P.lastRecv and P.lastRecv.alive then
-					local A=P.lastRecv
+				local A=P
+				::L::
+					A=A.lastRecv
+				if A and not A.alive and A~=P then goto L end
+				if A and A~=P then
 					if P.id==1 or A.id==1 then
 						throwBadge(P,A,P.badge)
 						P.killMark=A.id==1
@@ -444,8 +391,28 @@ Event={
 							A.strength=i
 						end
 					end
+					if P==mostBadge then
+						mostBadge,secBadge=secBadge
+					elseif P==secBadge then
+						secBadge=nil
+					end
+					if mostBadge then
+						if A.badge>mostBadge.badge then
+							if A~=mostBadge then
+								mostBadge,secBadge=A,mostBadge
+							end
+						elseif secBadge then
+							if A.badge>secBadge.badge then
+								secBadge=A
+							end
+						else
+							secBadge=A
+						end
+					else
+						mostBadge=A
+					end
 				end
-				freshMostBadge()
+				freshMostDangerous()
 				for i=1,#players.alive do
 					if players.alive[i].atking==P then
 						freshTarget(players.alive[i])
@@ -464,17 +431,21 @@ Event={
 					P.visTime[i][j]=min(P.visTime[i][j],20)
 				end
 			end
-			showText(P,"LOSE","appear",90,nil,nil,true)
+			showText(P,text.lose,"appear",90,nil,nil,true)
 			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)
+				local t=P
+				P=players.alive[1]
+				Event.gameover.win()
+				P=t
 			end
 		end,
 	},
 	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]
@@ -485,34 +456,59 @@ Event={
 	end,
 	marathon_reach_lunatic=function()
 		if P.gameEnv.target==250 then
+			P.cstat.row=250
 			Event.gameover.win()
 		else
 			P.gameEnv.target=P.gameEnv.target+50
 			local t=P.gameEnv.target/50
+			P.gameEnv.lock=rush_lock[t]
+			P.gameEnv.wait=rush_wait[t]
+			P.gameEnv.fall=rush_fall[t]
+			showText(P,text.stage[t],"fly",80,-120)
+			SFX("reach")
+		end
+	end,
+	marathon_reach_ultimate=function()
+		if P.cstat.event==5 then
+			P.cstat.row=250
+			Event.gameover.win()
+		else
+			local t=P.cstat.event+1
+			if t==1 then t=2 end
+			P.gameEnv.target=50*t
+			P.cstat.event=t
 			P.gameEnv.lock=death_lock[t]
 			P.gameEnv.wait=death_wait[t]
 			P.gameEnv.fall=death_fall[t]
-			showText(P,"STAGE "..t,"fly",80,-120)
+			showText(P,text.stage[t],"fly",80,-120)
 			SFX("reach")
 		end
 	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()
 		else
-			P.gameEnv.target=P.gameEnv.target+2
-			if P.cstat.row%10~=0 then
+			P.gameEnv.target=P.gameEnv.target+20
+			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,
-	sudden_reach=function()
+	tech_reach=function()
 		if #P.clearing>0 and P.lastClear<10 then
 			Event.gameover.lose()
 		end
 	end,
-	sudden_reach_hard=function()
-		if #P.clearing>0 and P.lastClear<10 and P.lastClear~=74 then
+	tech_reach_hard=function()
+		if #P.clearing>0 and P.lastClear<10 or P.lastClear==74 then
 			Event.gameover.lose()
 		end
 	end,
@@ -520,7 +516,7 @@ Event={
 		local P=players[1]
 		if P.cstat.piece%4==0 then
 			if #P.field==#P.clearing then
-				P.counter=P.cstat.piece==0 and 19 or 0
+				P.counter=P.cstat.piece==0 and 20 or 0
 				ins(P.task,Event.task.PC)
 				if curMode.lv==2 then
 					local s=P.cstat.pc*.5
@@ -529,34 +525,18 @@ Event={
 						P.gameEnv.lock=pc_lock[s]or 20
 						P.gameEnv.fall=pc_fall[s]or 5
 						if s==10 then
-							showText(P,"Max speed","appear",80,-120)
+							showText(P,text.maxspeed,"appear",80,-140)
 						else
-							showText(P,"Speed up","appear",30,-130)
+							showText(P,text.speedup,"appear",30,-140)
 						end
 					end
 				end
-				local r=rnd(#PClist)
-				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
 			else
 				Event.gameover.lose()
 			end
 		end
 	end,
 	task={
-		winTrigger=function()
-			Event.gameover.win()
-			return true
-		end,
 		win=function()
 			P.endCounter=P.endCounter+1
 			if P.endCounter>80 then
@@ -633,8 +613,9 @@ Event={
 			local P=players[1]
 			P.counter=P.counter+1
 			if P.counter==max(60,180-2*P.cstat.event)then
-				ins(P.atkBuffer,{rnd(10),amount=1,countdown=0,cd0=0,time=0,sent=false,lv=1})
+				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,
@@ -642,30 +623,28 @@ Event={
 			local P=players[1]
 			P.counter=P.counter+1
 			if P.counter==max(60,180-2*P.cstat.event)then
-				local d=P.cstat.event
-				if rnd()<.33 then
-					ins(P.atkBuffer,{rnd(10),amount=1,countdown=20,cd0=20,time=0,sent=false,lv=1})
-				elseif rnd()<.33 then
-					ins(P.atkBuffer,{rnd(10),amount=2,countdown=40,cd0=40,time=0,sent=false,lv=1})
-				elseif rnd()<.5 then
-					ins(P.atkBuffer,{rnd(10),amount=3,countdown=60,cd0=60,time=0,sent=false,lv=2})
-				else
-					ins(P.atkBuffer,{rnd(10),amount=4,countdown=90,cd0=90,time=0,sent=false,lv=3})
+				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()
 			local P=players[1]
 			P.counter=P.counter+1
-			if P.counter==max(80,150-2*P.cstat.event)then
-				if rnd()<.33 then
+			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=0,cd0=0,time=0,sent=false,lv=1})
+					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,
@@ -673,9 +652,10 @@ Event={
 			local P=players[1]
 			P.counter=P.counter+1
 			if P.counter==max(90,150-P.cstat.event)then
-				local t=max(30,90-2*P.cstat.event)
+				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,
@@ -703,10 +683,10 @@ Event={
 }
 --Game system Data
 setting={
+	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,
@@ -762,17 +742,28 @@ stat={
 	rotate=0,
 	spin=0,
 }
+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
+	]]
+
+}
+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("gamefunc")
-require("list")
-require("texture")
-require("ai")
-require("timer")
-require("paint")
-require("scene")
-require("call&sys")
-
 userData=fs.newFile("userdata")
 userSetting=fs.newFile("usersetting")
 if fs.getInfo("userdata")then
@@ -782,4 +773,13 @@ if fs.getInfo("usersetting")then
 	loadSetting()
 elseif system=="Android" or system=="iOS"then
 	setting.virtualkeySwitch=true
-end
+end
+
+require("gamefunc")
+require("ai")
+require("timer")
+require("paint")
+require("call&sys")
+require("list")
+swapLanguage(setting.lang)
+require("texture")

paint.lua

@@ -99,7 +99,7 @@ FX={
 			setFont(t.font)
 			gc.translate(150,290+t.dy)
 			if t.t<20 then
-				local k=.2*(5+(25-t.t)^.5)-.5
+				local k=.2*(5+(25-t.t)^.5)-.45
 				gc.scale(k,k)
 			end
 			gc.setColor(1,1,1,a)
@@ -155,32 +155,38 @@ 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)
+	gc.setColor(0,.6,1,.35+sin(Timer()*20)*.2)
+	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,25*(1+a),6)
 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]*.08)
+		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,2*b[4]*.0125,nil,18,18)end
+		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=P.isKeyDown[i]
-		local b=virtualkey[i]
-		if p then
-			gc.setColor(.75,.75,1,a)
-		else
-			gc.setColor(1,1,1,a)
+		local p,b=virtualkeyDown[i],virtualkey[i]
+		if p then gc.setColor(.75,.75,.75,a)
+		else gc.setColor(1,1,1,a)
+		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
-		gc.setLineWidth(b[4]*.08)
-		gc.circle("line",b[1],p and b[2]+15 or b[2],b[4]-5)
-		if setting.virtualkeyIcon then gc.draw(virtualkeyIcon[i],b[1],p and b[2]+15 or b[2],nil,b[4]*.025,nil,18,18)end
 	end
 end
 
@@ -195,15 +201,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(
@@ -215,8 +221,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
@@ -237,9 +243,9 @@ function Pnt.load()
 	gc.setColor(1,1,1)
 	gc.rectangle("line",300,330,680,60)
 	setFont(40)
-	mStr(Text.load[loading],640,335)
+	mStr(text.load[loading],640,335)
 	setFont(25)
-	mStr("not animation,real loading!",640,400)
+	mStr(text.loadTip,640,400)
 end
 function Pnt.intro()
 	gc.push()
@@ -261,7 +267,7 @@ end
 function Pnt.main()
 	gc.setColor(1,1,1)
 	setFont(30)
-	gc.print("Alpha V0.7.7",370,140)
+	gc.print("Alpha V0.7.10",370,140)
 	gc.print(system,530,110)
 	gc.draw(titleImage,30,30)
 end
@@ -271,32 +277,32 @@ function Pnt.mode()
 	mStr(modeLevel[modeID[modeSel]][levelSel],270,215)
 	setFont(30)
 	gc.setColor(color.white)
-	mStr(modeInfo[modeID[modeSel]],270,255)
+	mStr(text.modeInfo[modeID[modeSel]],270,255)
 	setFont(80)
 	gc.setColor(color.grey)
-	mStr(modeName[modeSel],643,273)
+	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,310+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],50,y,300,"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
@@ -309,44 +315,44 @@ 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,.4)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.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,61*i-47,15,nil,3)
+					gc.draw(badgeIcon,12*i-7,4,nil,.5)
 				end
 			end
 			if P.result then
 				gc.setColor(1,1,1,min(P.endCounter,60)*.01)
-				setFont(100)
-				mStr(P.result,150,235)
+				setFont(22)mStr(P.result,32,47)
+				setFont(20)mStr(P.rank,30,82)
 				if P.killMark then
-					gc.setLineWidth(20)
+					gc.setLineWidth(4)
 					gc.setColor(1,0,0,min(P.endCounter,25)*.04)
-					gc.circle("line",150,300,420-10*min(P.endCounter,30))
+					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.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
@@ -369,7 +375,7 @@ function Pnt.play()
 					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)
+								drawPixel(i+P.y_img-1,j+P.cx-1,P.bc,.3)
 							end
 						end end
 					end--Ghost
@@ -381,7 +387,7 @@ function Pnt.play()
 					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)
+							drawPixel(i+P.cy-1,j+P.cx-1,P.bc,1)
 						end
 					end end--Block
 					if P.gameEnv.center then
@@ -395,8 +401,8 @@ function Pnt.play()
 				gc.draw(PTC.dust[p])--Draw game field
 			gc.setStencilTest()--In-playField mask
 			gc.translate(0,-P.fieldBeneath)
-			gc.setLineWidth(5)
-			gc.setColor(1,1,1)gc.rectangle("line",-2,-12,304,614)--Draw boarder
+			gc.setLineWidth(3)
+			gc.setColor(1,1,1)gc.rectangle("line",-1,-11,302,612)--Draw boarder
 
 			local h=0
 			for i=1,#P.atkBuffer do
@@ -410,45 +416,45 @@ function Pnt.play()
 					end
 					if a.countdown>0 then
 						gc.setColor(attackColor[a.lv][1])
-						gc.rectangle("fill",307,600-h,12,-bar+5)
+						gc.rectangle("fill",304,600-h,12,-bar+3)
 						gc.setColor(attackColor[a.lv][2])
-						gc.rectangle("fill",307,600-h+(-bar+5),12,-(-bar+5)*(1-a.countdown/a.cd0))
+						gc.rectangle("fill",304,600-h+(-bar+3),12,-(-bar+3)*(1-a.countdown/a.cd0))
 						--Timing
 					else
 						attackColor.animate[a.lv]((sin((Timer()-i)*20)+1)*.5)
-						gc.rectangle("fill",307,600-h,12,-bar+5)
+						gc.rectangle("fill",304,600-h,12,-bar+3)
 						--Warning
 					end
 				else
 					gc.setColor(attackColor[a.lv][1])
 					bar=bar*(20-a.time)*.05
-					gc.rectangle("fill",307,600-h,12,-bar+3)
+					gc.rectangle("fill",304,600-h,12,-bar+2)
 					--Disappear
 				end
 				h=h+bar
 			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.rectangle("fill",-13,600,10,-P.b2b1)
 			gc.setColor(color.red)
-			gc.rectangle("fill",-23,600-40,16,5)
+			gc.rectangle("fill",-19,600-40,16,5)
 			gc.setColor(color.blue)
-			gc.rectangle("fill",-23,600-480,16,5)
+			gc.rectangle("fill",-19,600-480,16,5)
 			--B2B bar
 
 			setFont(40)
 			gc.setColor(1,1,1)
 			if P.gameEnv.hold then
-				gc.print("Hold",-115,-10)
+				mStr(text.hold,-75,-10)
 				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)
+							drawPixel(i+17.5-#P.hb*.5,j-2.5-#P.hb[1]*.5,P.holded and 13 or P.hc,1)
 						end
 					end
 				end
 			end--Hold
-			gc.print("Next",336,-10)
+			gc.print(text.next,325,-10)
 			for N=1,P.gameEnv.next do
 				local b=P.nb[N]
 				for i=1,#b do
@@ -516,21 +522,18 @@ function Pnt.play()
 			gc.draw(badgeIcon,b[1]+(b[3]-b[1])*t,b[2]+(b[4]-b[2])*t,nil,b.size,nil,14,14)
 		end
 		P=players[1]
-		if P.atkMode~=4 then
-			gc.setLineWidth(5)
-			gc.setColor(.8,1,0,.2)
-		else
-			gc.setLineWidth(9)
-			gc.setColor(1,.6,.2,.4)
-		end
+		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
-			if P.atking then
-				gc.setColor(0,.5,1,.2+(sin(Timer()*10)+1)*.1)
-				gc.line(P.centerX,P.centerY,P.atking.centerX,P.atking.centerY)
+			if P.atking then drawAtkPointer(P.atking.centerX,P.atking.centerY)end
+		else
+			for i=1,#players[1].atker do
+				local p=players[1].atker[i]
+				drawAtkPointer(p.centerX,p.centerY)
 			end
 		end
 	end
@@ -541,8 +544,8 @@ function Pnt.setting()
 	mStr("DAS:"..setting.das,288,158)
 	mStr("ARR:"..setting.arr,503,158)
 	setFont(18)
-	mStr("softdropDAS:"..setting.sddas,288,249)
-	mStr("softdropARR:"..setting.sdarr,503,249)
+	mStr(text.softdropdas..setting.sddas,288,249)
+	mStr(text.softdroparr..setting.sdarr,503,249)
 end
 function Pnt.setting2()
 	if keyboardSetting then
@@ -561,7 +564,7 @@ function Pnt.setting2()
 	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)
 		for x=1,2 do
 			mStr(setting.keyMap[curBoard+x*8-8][y],200*x+140,40*y-3)
 		end
@@ -571,8 +574,9 @@ function Pnt.setting2()
 		gc.line(200*x-160,30,200*x-160,550)
 	end
 	gc.line(40,550,640,550)
-	gc.print("Keyboard | Joystick",335,1)
-	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
@@ -594,7 +598,7 @@ function Pnt.help()
 	setFont(32)
 	gc.setColor(1,1,1)
 	for i=1,11 do
-		gc.printf(Text.help[i],140,15+43*i,1000,"center")
+		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)
 end
@@ -602,7 +606,7 @@ function Pnt.stat()
 	setFont(35)
 	gc.setColor(1,1,1)
 	for i=1,10 do
-		gc.print(Text.stat[i],350,20+40*i)
+		gc.print(text.stat[i],350,20+40*i)
 	end
 
 	gc.print(stat.run,650,60)

scene.lua

@@ -1,87 +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
-	levelSel=levelSel or 3
-	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
-	defaultSel=1
-	sel=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

@@ -62,19 +62,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 +83,81 @@ 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")
+background1=N("/image/BG/bg1.jpg")
+background2=N("/image/BG/bg2.png")
 
-background={
-	N("/image/BG/bg1.jpg"),
-	N("/image/BG/bg2.png"),
-}
 c=nil
-gc.setCanvas()
+gc.setCanvas()
+
+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,
+}

timer.lua

@@ -64,10 +64,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,7 +87,7 @@ 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]
@@ -105,7 +109,7 @@ function Tmr.play(dt)
 						P.ai.controlDelay=P.ai.controlDelay0+1
 					else
 						AI_getControls(P.ai.controls)
-						P.ai.controlDelay=2*P.ai.controlDelay0
+						P.ai.controlDelay=P.ai.controlDelay0+2
 					end
 				end
 			end
@@ -159,8 +163,9 @@ function Tmr.play(dt)
 						removeRow(P.field,P.clearing[i])
 						removeRow(P.visTime,P.clearing[i])
 					end
-					while P.clearing[1]do
+					::L::if P.clearing[1]then
 						rem(P.clearing)
+						goto L
 					end
 				end
 			elseif P.waiting>0 then
@@ -245,7 +250,5 @@ function Tmr.play(dt)
 			PTC.dust[p]:update(dt)
 		end
 	end
-	if modeEnv.royaleMode and frame%60==0 then
-		freshMostDangerous()
-	end
+	if modeEnv.royaleMode and frame%60==0 then freshMostDangerous()end
 end

toolfunc.lua

@@ -1,22 +1,22 @@
 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-250,y,500,"center")
+	gc.printf(s,x-300,y,600,"center")
 end
 
 function getNewRow(val)
@@ -66,10 +66,19 @@ function stencil_field()
 	gc.rectangle("fill",150,60,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 scene,list in pairs(Buttons)do
+		for num=1,#list do
+			list[num].alpha=0
+			list[num].t=text.ButtonText[scene][num]
+		end
+	end
+end
 function VIB(t)
 	if setting.vib>0 then
 		love.system.vibrate(vibrateLevel[setting.vib+t])
@@ -78,14 +87,15 @@ 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)
-				break
+				goto quit
 			end
-		end
+			goto L
+		end::quit::
 		sfx[s][n]:setVolume(v or 1)
 		sfx[s][n]:play()
 	end
@@ -93,14 +103,15 @@ 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
@@ -133,7 +144,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
@@ -168,7 +179,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
@@ -179,7 +190,7 @@ function loadSetting()
 			if t=="sfx"or t=="bgm"or t=="bgblock"then
 				setting[t]=v=="true"
 			elseif t=="vib"then
-				setting.vib=toN(v:match("[0123]"))or 0
+				setting.vib=toN(v:match("[01234]"))or 0
 			elseif t=="fullscreen"then
 				setting.fullscreen=v=="true"
 				love.window.setFullscreen(setting.fullscreen)
@@ -227,6 +238,8 @@ function loadSetting()
 				setting[t]=int(v)
 			elseif t=="ghost"or t=="center"then
 				setting[t]=v=="true"
+			elseif t=="lang"then
+				setting[t]=toN(v:match("[12]"))or 1
 			end
 		end
 	end
@@ -248,6 +261,7 @@ function saveSetting()
 		lib[i]=table.concat(setting.keyLib[i],",")
 	end
 	local t=table.concat({
+		stringPack("lang=",setting.lang),
 		stringPack("sfx=",setting.sfx),
 		stringPack("bgm=",setting.bgm),
 		stringPack("vib=",setting.vib),