Alpha V0.7.20

ai.lua

@@ -51,7 +51,7 @@ function ifoverlapAI(f,bk,x,y)
 	if y<1 then return true end
 	if y>#f then return end
 	for i=1,#bk do for j=1,#bk[1]do
-		if f[y+i-1]and bk[i][j]>0 and f[y+i-1][x+j-1]>0 then return true end
+		if f[y+i-1]and bk[i][j]and f[y+i-1][x+j-1]>0 then return true end
 	end end
 end
 function resetField(f0,f,start)
@@ -60,7 +60,7 @@ function resetField(f0,f,start)
 		goto L
 	end
 	for i=start,#f0 do
-		f[i]=getNewRow()
+		f[i]=getNewRow(0)
 		for j=1,10 do
 			f[i][j]=f0[i][j]
 		end
@@ -69,19 +69,17 @@ end
 function getScore(field,bn,cb,cx,cy)
 	local score=0
 	local highest=0
-	local height=getNewRow()
+	local height=getNewRow(0)
 	local clear=0
 	local hole=0
 
 	for i=cy+#cb-1,cy,-1 do
-		local f=true
 		for j=1,10 do
-			if field[i][j]==0 then f=false;break end
-		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
@@ -119,21 +117,21 @@ function getScore(field,bn,cb,cx,cy)
 		+clearScore[clear]*(8+#field)
 		-hole*50
 	if #field>6 then score=score-highest*5 end
-	if mh1>3 then score=score-50-mh1*40 end
+	if mh1>3 then score=score-40-mh1*30 end
 	return score
 end
 function AI_getControls(ctrl)
 	local Tfield={}--test field
 	local field_org=P.field
-    for i=1,#field_org do
-		Tfield[i]=getNewRow()
+	for i=1,#field_org do
+		Tfield[i]=getNewRow(0)
 		for j=1,10 do
 			Tfield[i][j]=field_org[i][j]
 		end
 	end
 	local best={x=1,dir=0,hold=false,score=-9e99}
 	for ifhold=0,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.cur.id or P.hold.id>0 and P.hold.id or P.next[1].id
 		for dir=0,dirCount[bn] do--each dir
 			local cb=blocks[bn][dir]
 			for cx=1,11-#cb[1]do--each pos
@@ -144,9 +142,9 @@ function AI_getControls(ctrl)
 				end--move to bottom
 				for i=1,#cb do
 					local y=cy+i-1
-					if not Tfield[y]then Tfield[y]=getNewRow()end
+					if not Tfield[y]then Tfield[y]=getNewRow(0)end
 					for j=1,#cb[1]do
-						if cb[i][j]~=0 then
+						if cb[i][j]then
 							Tfield[y][cx+j-1]=1
 						end
 					end
@@ -173,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

class.lua

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

conf.lua

@@ -9,7 +9,7 @@ function love.conf(t)
 	t.audio.mixwithsystem=true--Switch on to keep sysBGM
 
 	local W=t.window
-	W.title="Techmino V0.7.8"
+	W.title="Techmino V0.7.20"
 	W.icon="/image/icon.png"
 	W.width,W.height=1280,720
 	W.minwidth,W.minheight=640,360
@@ -17,7 +17,7 @@ function love.conf(t)
 	W.resizable=true
 	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→∞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

language/chi.lua

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

language/chi_full.lua

@@ -0,0 +1,260 @@
+return{
+	atkModeName={"随机","徽章","击杀","反击"},
+	royale_remain=function(n)return"剩余 "..n.." 名玩家"end,
+	cmb={nil,nil,"3 Combo","4 Combo","5 Combo","6 Combo","7 Combo","8 Combo","9 Combo","10 Combo!","11 Combo!","12 Combo!","13 Combo!","14 Combo!","15 Combo!","16 Combo!","17 Combo!","18 Combo!","19 Combo!","MEGACMB"},
+	techrash="四清",
+	techrashB2B="满贯 四清",
+	techrashB3B="大满贯 四清",
+	block={"Z","S","L","J","T","O","I"},
+	clear={"单清","双清","三清"},
+	spin={"Z型回旋","S型回旋","L型回旋","J型回旋","T型回旋","O型回旋","I型回旋"},
+	b2b="满贯",b3b="大满贯",
+	mini="迷你",
+	PC="场地全清",
+	hold="暂存",next="下一个",
+
+	stage={"关卡 1","关卡 2","关卡 3","关卡 4","关卡 5",},
+	maxspeed="最高速度",
+	speedup="速度加快",
+
+	win="胜利",
+	lose="失败",
+	pause="暂停",
+	finish="结束",
+	pauseTime="暂停时间",
+
+	custom="自定义游戏",
+	customOption={
+		drop="下落延迟:",
+		lock="锁定延迟:",
+		wait="放块延迟:",
+		fall="消行延迟:",
+		next="序列数量:",
+		hold="暂存:",
+		sequence="序列:",
+		visible="可见性:",
+		target="目标行数:",
+		freshLimit="锁延刷新次数:",
+		opponent="对手速度等级:",
+		bg="背景:",
+		bgm="背景音乐:",
+	},
+	customVal={
+		drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞","[20G]"},
+		lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞"},
+		wait=nil,
+		fall=nil,
+		next=nil,
+		hold={"开","关","无限"},
+		sequence={"bag7","his4","随机"},
+		visible={"可见","半隐","全隐","瞬隐"},
+		target={10,20,40,100,200,500,1000,"∞"},
+		freshLimit={0,8,15,"∞"},
+		opponent={"无电脑",1,2,3,4,5,6,7,8,9,10,11},
+	},
+	softdropdas="软降DAS:",
+	softdroparr="软降ARR:",
+	snapLevelName={"任意摆放","10px吸附","20px吸附","40px吸附","60px吸附","80px吸附"},
+	keyboard="键盘",joystick="手柄",
+	space="空格",enter="回车",
+	setting2Help="方向键选择/翻页,回车修改,esc返回",
+	musicRoom="音乐室",
+	nowPlaying="正在播放:",
+
+	actName={"左移:","右移:","顺时针旋转:","逆时针旋转:","180°旋转","硬降:","软降:","暂存:","功能键:","重新开始:","左瞬移:","右瞬移:","软降到底:"},
+	modeName={
+		[0]="自定义",
+		"竞速","马拉松","大师","经典","禅","无尽","单挑","仅TSD","隐形","挖掘","生存","科研",
+		"C4W练习","全清训练","全清挑战","49人混战","99人混战","干旱","多人",
+	},
+	modeInfo={
+		sprint="挑战世界纪录",
+		marathon="尝试坚持到最后",
+		master="成为方块大师",
+		classic="高速经典",
+		zen="无重力消除200行",
+		infinite="科研沙盒",
+		solo="打败AI",
+		tsd="尽可能做T旋双清",
+		blind="最强大脑",
+		dig="核能挖掘机",
+		survivor="防守练习",
+		tech="尽可能不要普通消除!",
+		c4wtrain="无 限 连 击",
+		pctrain="熟悉全清定式的组合",
+		pcchallenge="100行内尽可能多全清",
+		techmino49="49人混战",
+		techmino99="99人混战",
+		drought="异常序列",
+		hotseat="友尽模式",
+	},
+
+	load={"加载语音ing","加载音乐ing","加载音效ing","加载完成",},
+	tips={
+		"不是动画,真的在加载!",
+		"整个游戏都是MrZ完成的!",
+		"大满贯10连击消四全清!",
+		"<方块研究所>有一个Nspire-CX版本!",
+		"B2B2B2B存在吗?",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O型回旋三清?",
+		"只用一个输入设备就可以游玩了",
+		"Miya:喵!",
+		"225238922,哔哩哔哩 干杯~",
+		"适度游戏益脑,沉迷游戏伤身,合理安排时间,享受健康生活",
+		"合群了就会消失,但是消失不代表没有意义",
+		"学会使用两个旋转键,三个更好",
+		"更小的DAS和ARR拥有更高的操作上限",
+		"注意到\"旋转\"到底对方块做了些什么吗?",
+		"20G是一套全新的游戏规则",
+		"不要在上课时玩游戏!",
+		"本游戏难度上限很高,做好心理准备",
+		"方块可以不是个休闲游戏",
+		"调到特殊的日期也不会发生什么的",
+		"[随机文本]",
+	},
+	stat={
+		"游戏运行次数:",
+		"游戏局数:",
+		"游戏时间:",
+		"按键数:",
+		"旋转数:",
+		"暂存次数:",
+		"方块使用:",
+		"消行数:",
+		"攻击行数:",
+		"发送数:",
+		"接收数:",
+		"上涨数:",
+		"消除数:",
+		"旋转消行数:",
+		"满贯数:",
+		"全清数:",
+		"效率:",
+	},
+	help={
+		"好像也没啥好帮助的吧?就当是关于了",
+		"这只是一个方块游戏,请勿过度解读和随意联想",
+		"不过就当成TOP/C2/KOS/TGM3/JS玩好了",
+		"游戏还在测试阶段,请 勿 外 传",
+		"",
+		"使用LOVE2D引擎",
+		"作者:MrZ   邮箱:1046101471@qq.com",
+		"程序:MrZ  美术:MrZ  音乐:MrZ  音效:MrZ 语音:Miya",
+		"使用工具:VScode,GFIE,Beepbox,Goldwave",
+		"特别感谢:Farter,Teatube,196,Flyz,T830,[所有测试人员]和 你!",
+		"错误或者建议请附带相关信息发送到作者邮箱~",
+	},
+	support="支持作者",
+	group="官方QQ群",
+	ButtonText={
+		main={
+			play="开始",
+			setting="设置",
+			music="音乐室",
+			stat="统计信息",
+			help="帮助",
+			quit="退出",
+		},
+		mode={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start="开始",
+			custom="自定义(C)",
+			back="返回",
+		},
+		music={
+			up="↑",
+			play="播放",
+			down="↓",
+			back="返回",
+		},
+		custom={
+			up="↑",
+			down="↓",
+			left="<",
+			right=">",
+			start1="消除开始",
+			start2="拼图开始",
+			draw="画图(D)",
+			set1="40行",
+			set2="1v1",
+			set3="无尽",
+			set4="隐形",
+			set5="极限",
+			back="返回",
+		},
+		draw={
+			any="不定",
+			block1="■",
+			block2="■",
+			block3="■",
+			block4="■",
+			block5="■",
+			block6="■",
+			block7="■",
+			gb1="■",
+			gb2="■",
+			gb3="■",
+			gb4="■",
+			gb5="■",
+			space="×",
+			clear="清空",
+			back="返回",
+		},
+		play={
+			pause="暂停",
+		},
+		pause={
+			resume="继续",
+			quit="退出",
+		},
+		setting={
+			ghost=function()return setting.ghost and"阴影:开"or"阴影:关"end,
+			center=function()return setting.center and"旋转中心:开"or"旋转中心:关"end,
+			grid=function()return setting.grid and"网格:开"or"网格:关"end,
+			swap=function()return setting.swap and"目标选择:组合键"or"目标选择:循环"end,
+			fxs=function()return setting.fxs and"特效:开"or"特效:关"end,
+			bg=function()return setting.bg and"背景:开"or"背景:关"end,
+			dasD="-",dasU="+",
+			arrD="-",arrU="+",
+			sddasD="-",sddasU="+",
+			sdarrD="-",sdarrU="+",
+			ctrl="控制设置",
+			touch="触摸设置",
+			lang=function()return langName[setting.lang]end,
+			sfx=function()return setting.sfx and"音效:开"or"音效:关"end,
+			bgm=function()return setting.bgm and"音乐:开"or"音乐:关"end,
+			vib=function()return "震动:"..setting.vib end,
+			voc=function()return setting.voc and"语音:开"or"语音:关"end,
+			fullscreen=function()return setting.fullscreen and"全屏:开"or"全屏:关"end,
+			bgblock=function()return setting.bgblock and"背景动画:开"or"背景动画:关"end,
+			frame=function()return"绘制帧:"..setting.frameMul.."%"end,
+			skin="切换方块皮肤",
+			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,260 @@
+return{
+	atkModeName={"Random","Badges","K.O.s","Counters"},
+	royale_remain=function(n)return n.." Players Remain"end,
+	cmb={nil,nil,"3 Combo","4 Combo","5 Combo","6 Combo","7 Combo","8 Combo","9 Combo","10 Combo!","11 Combo!","12 Combo!","13 Combo!","14 Combo!","15 Combo!","16 Combo!","17 Combo!","18 Combo!","19 Combo!","MEGACMB"},
+	techrash="Techrash",
+	techrashB2B="B2B Techrash",
+	techrashB3B="B2B2B Techrash",
+	block={"Z","S","L","J","T","O","I"},
+	clear={" single"," double"," triple"},
+	spin={"Z-spin","S-spin","L-spin","J-spin","T-spin","O-spin","I-spin"},
+	b2b="B2B ",b3b="B2B2B ",
+	mini="Mini",
+	PC="Perfect Clear",
+	hold="Hold",next="Next",
+
+	stage={"STAGE 1","STAGE 2","STAGE 3","STAGE 4","STAGE 5",},
+	maxspeed="Max speed",
+	speedup="Speed up",
+
+	win="WIN",
+	lose="LOSE",
+	pause="PAUSE",
+	finish="FINISH",
+	pauseTime="Pause time",
+	
+	custom="Custom Game",
+	customOption={
+		drop="Drop delay:",
+		lock="Lock delay:",
+		wait="Next piece delay:",
+		fall="Clear row delay:",
+		next="Next count:",
+		hold="Hold:",
+		sequence="Sequence:",
+		visible="Visible:",
+		target="Line limit:",
+		freshLimit="Lock fresh limit:",
+		opponent="Opponent speed:",
+		bg="Background:",
+		bgm="BGM:",
+	},
+	customVal={
+		drop={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞","[20G]"},
+		lock={0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,25,30,40,60,180,"∞"},
+		wait=nil,
+		fall=nil,
+		next=nil,
+		hold={"ON","OFF","FREE"},
+		sequence={"bag7","his4","random"},
+		visible={"normal","time","invisible","sudden"},
+		target={10,20,40,100,200,500,1000,"∞"},
+		freshLimit={0,8,15,"∞"},
+		opponent={"No CPU",1,2,3,4,5,6,7,8,9,10,11},
+	},
+	softdropdas="Down DAS:",
+	softdroparr="Down ARR:",
+	snapLevelName={"Free pos","Snap-10","Snap-20","Snap-40","Snap-60","Snap-80"},
+	keyboard="Keyboard",joystick="Joystick",
+	space="Space",enter="Enter",
+	setting2Help="Arrowkey to select/change slot,Enter to change,Esc back",
+	musicRoom="Music Room",
+	nowPlaying="Now Playing:",
+
+	actName={"Move Left:","Move Right:","Rotate Right:","Rotate Left:","Rotate Flip:","Hard Drop:","Soft Drop:","Hold:","Function:","Restart:","Instant Left:","Instant Right:","Ins Down:"},
+	modeName={
+		[0]="Custom",
+		"Sprint","Marathon","Master","Classic","Zen","Infinite","1v1","TSD-only","Blind","Dig","Survivor","Tech",
+		"C4W Train","PC Train","PC Challenge","Techmino49","Techmino99","Drought","Hotseat",
+	},
+	modeInfo={
+		sprint="Speed run",
+		marathon="Survive and reach target",
+		master="To be Grand Master",
+		classic="Vintage car drag racing",
+		zen="Clear 200 Lines without gravity",
+		infinite="Infinite game,infinite happiness",
+		solo="Beat AI",
+		tsd="Make more T-spin-doubles",
+		blind="Invisible board",
+		dig="Downstack!",
+		survivor="Hand them!",
+		tech="Don't do normal clear",
+		c4wtrain="Infinite combo",
+		pctrain="Let's learn some PCs",
+		pcchallenge="Make PCs in 100 Lines",
+		techmino49="Melee fight with 48 AIs",
+		techmino99="Melee fight with 98 AIs",
+		drought="ERRSEQ flood attack",
+		hotseat="",
+	},
+
+	load={"Loading VOICE","Loading BGM","Loading SFX","Finished",},
+	tips={
+		"Not animation,real loading!",
+		"The WHOLE game is made by MrZ!",
+		"Back to Back 10 combo Techrash PC!",
+		"Techmino has a Nspire-CX edition!",
+		"Is B2B2B2B possible?",
+		"MEGACMB!",
+		"ALLSPIN!",
+		"O spin triple?",
+		"You can play with any input device!",
+		"Miya:Nya!",
+		"225238922,Bilibili cheers!",
+		"Playing too much = taking drugs",
+		"Disappearing doesn't mean useless",
+		"Try to use two rotate button,three better",
+		"Small DAS&ARR can make you faster,if you can adapt to it",
+		"Have you noticed what does \"rotating\" do to block?",
+		"20G is a brand new game rule",
+		"Do not play game in class!",
+		"This game can be very hard,be mentally perpared",
+		"This in not a casual game",
+		"Nothing will happen when some special day come",
+		"[random text]",
+	},
+	stat={
+		"Games run:",
+		"Games played:",
+		"Game time:",
+		"Key pressed:",
+		"Rotate:",
+		"Hold:",
+		"Block used:",
+		"Rows cleared:",
+		"Attack:",
+		"Sent:",
+		"Receive:",
+		"Pend:",
+		"Clear:",
+		"Spin:",
+		"B2B:",
+		"PC:",
+		"Efficiency:",
+	},
+	help={
+		"I don't think you need \"help\".",
+		"THIS IS ONLY A BLOCK GAME",
+		"But just play like playing TOP/C2/KOS/TGM3",
+		"Game is not public now,so DO NOT DISTIRBUTE",
+		"",
+		"Powered by LOVE2D",
+		"Author:MrZ   E-mail:1046101471@qq.com",
+		"Programe:MrZ  Art:MrZ  Music:MrZ  SFX:MrZ VOICE:Miya",
+		"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",
+			music="Music room",
+			stat="Statistics",
+			help="Help",
+			quit="Quit",
+		},
+		mode={
+			up="Λ",
+			down="v",
+			left="<",
+			right=">",
+			start="Start",
+			custom="Custom(C)",
+			back="Back",
+		},
+		music={
+			up="↑",
+			play="Play",
+			down="↓",
+			back="Back",
+		},
+		custom={
+			up="↑",
+			down="↓",
+			left="<",
+			right=">",
+			start1="Clear Start",
+			start2="Puzzle Start",
+			draw="Draw(D)",
+			set1="40L",
+			set2="1v1",
+			set3="infinite",
+			set4="blind",
+			set5="classic",
+			back="Back",
+		},
+		draw={
+			any="ANY",
+			block1="■",
+			block2="■",
+			block3="■",
+			block4="■",
+			block5="■",
+			block6="■",
+			block7="■",
+			gb1="■",
+			gb2="■",
+			gb3="■",
+			gb4="■",
+			gb5="■",
+			space="×",
+			clear="CLEAR",
+			back="Back",
+		},
+		play={
+			pause="Pause",
+		},
+		pause={
+			resume="Resume",
+			quit="Quit",
+		},
+		setting={
+			ghost=function()return setting.ghost and"Ghost:ON"or"Ghost:OFF"end,
+			center=function()return setting.center and"Center:ON"or"Center:OFF"end,
+			grid=function()return setting.grid and"Grid:ON"or"Grid:OFF"end,
+			swap=function()return setting.swap and"Swap:comboKey"or"Swap:loop"end,
+			fxs=function()return setting.fxs and"FXs:ON"or"FXs:OFF"end,
+			bg=function()return setting.bg and"BG:ON"or"BG:OFF"end,
+			dasD="-",dasU="+",
+			arrD="-",arrU="+",
+			sddasD="-",sddasU="+",
+			sdarrD="-",sdarrU="+",
+			ctrl="Control settings",
+			touch="Touch settings",
+			lang=function()return langName[setting.lang]end,
+			sfx=function()return setting.sfx and"SFX:ON"or"SFX:OFF"end,
+			bgm=function()return setting.bgm and"BGM:ON"or"BGM:OFF"end,
+			voc=function()return setting.voc and"VOC:ON"or"VOC:OFF"end,
+			vib=function()return "VIB:"..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,
+			skin="Change Block Skin",
+			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",
+		},
+	}
+}

main.lua

@@ -1,666 +1,79 @@
-lib={
-	gc=love.graphics,
-	kb=love.keyboard,
-	ms=love.mouse,
-	tc=love.touch,
-	tm=love.timer,
-	fs=love.filesystem,
-	wd=love.window,
-	mt=love.math,
-	sys=love.system,
-}for k,v in pairs(lib)do _G[k]=v end lib=nil
-toN,toS=tonumber,tostring
-int,ceil,abs,rnd,max,min,sin,cos,atan,pi=math.floor,math.ceil,math.abs,math.random,math.max,math.min,math.sin,math.cos,math.atan,math.pi
+local gc,tm=love.graphics,love.timer
+local ms,kb=love.mouse,love.keyboard
+local fs,sys=love.filesystem,love.system
+int,ceil,abs,rnd,max,min,sin,cos,atan=math.floor,math.ceil,math.abs,math.random,math.max,math.min,math.sin,math.cos,math.atan
 sub,gsub,find,format,byte,char=string.sub,string.gsub,string.find,string.format,string.byte,string.char
-ins,rem,sort=table.insert,table.remove,table.sort
+ins,rem,concat=table.insert,table.remove,table.concat
+-- sort=table.sort
+math.randomseed(os.time()*626)
 null=function()end
 
-ww,wh=gc.getWidth(),gc.getHeight()
-Timer=tm.getTime--Easy&Quick to get time!
-mx,my,mouseShow=-20,-20,false
-xOy=love.math.newTransform()
-focus=true
-
 system=sys.getOS()
-touching=nil--1st touching ID
-
+scr={x=0,y=0,w=gc.getWidth(),h=gc.getHeight(),k=1}
 scene=""
 bgmPlaying=nil
 curBG="none"
-BGblock={ct=150,next=7}
+voicePlaying={}
 
-kb.setKeyRepeat(false)
-kb.setTextInput(false)
-ms.setVisible(false)
+local F=false
+kb.setKeyRepeat(F)
+kb.setTextInput(F)
+ms.setVisible(F)
 
-Fonts={}
+local Fonts={}
 function setFont(s)
 	if s~=currentFont then
 		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
 		currentFont=s
 	end
+	return Fonts[s]
 end
 
 gameEnv0={
 	das=10,arr=2,
 	sddas=0,sdarr=2,
 	ghost=true,center=true,
+	grid=F,swap=true,
+	_20G=F,bone=F,
 	drop=30,lock=45,
-	wait=1,fall=1,
+	wait=0,fall=0,
 	next=6,hold=true,oncehold=true,
-	sequence="bag7",visible=1,
-	_20G=false,target=1e99,
-	freshLimit=15,
-	virtualkey={},
-	reach=null,
-	bgm="race"
-	--not all is actually used,some only provide a key
-}
-customSel={
-	drop=20,
-	lock=20,
-	wait=1,
-	fall=1,
-	next=7,
-	hold=1,
-	sequence=1,
-	visible=1,
-	target=4,
-	freshLimit=3,
-	opponent=1,
-}
-loadmode={
-	sprint=function()
-		createPlayer(1,340,15)
-		curBG="game1"
-	end,
-	marathon=function()
-		createPlayer(1,340,15)
-		curBG="strap"
-	end,
-	zen=function()
-		createPlayer(1,340,15)
-		curBG="strap"
-	end,
-	infinite=function()
-		createPlayer(1,340,15)
-		curBG="glow"
-	end,
-	solo=function()
-		createPlayer(1,20,15)--Player
-		createPlayer(2,660,85,.9,customRange.opponent[3*curMode.lv])--AI
-		curBG="game2"
-	end,
-	death=function()
-		createPlayer(1,340,15)
-		curBG="game2"
-		BGM("push")
-	end,
-	tsd=function()
-		createPlayer(1,340,15)
-		curBG="matrix"
-	end,
-	blind=function()
-		createPlayer(1,340,15)
-		curBG="glow"
-	end,
-	dig=function()
-		createPlayer(1,340,15)
-		local P=players[1]
-		if curMode.lv==1 then
-			ins(players[1].task,Event.task.dig_normal)
-			pushSpeed=1
-		elseif curMode.lv==2 then
-			ins(players[1].task,Event.task.dig_lunatic)
-			pushSpeed=1
-		end
-		curBG="game2"
-	end,
-	survivor=function()
-		createPlayer(1,340,15)
-		local P=players[1]
-		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
-		curBG="game2"
-	end,
-	sudden=function()
-		createPlayer(1,340,15)
-		curBG="matrix"
-	end,
-	pctrain=function()
-		createPlayer(1,340,15)
-		P=players[1]
-		Event.newPC()
-		P.freshNext()
-		curBG="matrix"
-	end,
-	pcchallenge=function()
-		createPlayer(1,340,15)
-		curBG="matrix"
-	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
+	sequence="bag7",
 
-		curBG="game3"
-	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
-
-		curBG="game3"
-	end,
-	drought=function()
-		createPlayer(1,340,15)
-		curBG="strap"
-	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
-		curBG="game2"
-	end,
-	custom=function()
-		for i=1,#customID do
-			local k=customID[i]
-			modeEnv[k]=customRange[k][customSel[k]]
-		end
-		modeEnv._20G=modeEnv.drop==-1
-		if modeEnv.opponent==0 then
-			createPlayer(1,340,15)
-		else
-			modeEnv.target=nil
-			createPlayer(1,20,15)
-			createPlayer(2,660,85,.9,modeEnv.opponent)
-		end
-		curBG="matrix"
-	end,
-}
-mesDisp={
-	--Default:font=35,white
-	sprint=function()
-		setFont(70)
-		mStr(max(P.gameEnv.target-P.cstat.row,0),-75,260)
-	end,
-	zen=function()
-		setFont(75)
-		mStr(max(200-P.cstat.row,0),-75,280)
-	end,
-	infinite=function()
-		setFont(50)
-		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)
-	end,
-	tsd=function()
-		setFont(35)
-		gc.print("TSD",-102,405)
-		setFont(80)
-		mStr((P.gameEnv.target-1)*.5,-75,330)
-	end,
-	blind=function()
-		setFont(25)
-		gc.print("Rows",-102,300)
-		gc.print("Techrash",-123,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)
-		gc.print("Wave",-112,375)
-	end,
-	survivor=function()
-		setFont(70)
-		mStr(P.cstat.event,-75,310)
-		setFont(30)
-		gc.print("Wave",-112,375)
-	end,
-	pctrain=function()
-		setFont(25)
-		gc.print("Perfect Clear",-140,410)
-		setFont(80)
-		mStr(P.cstat.pc,-75,330)
-	end,
-	pcchallenge=function()
-		setFont(25)
-		gc.print("Perfect Clear",-140,430)
-		setFont(80)
-		mStr(P.cstat.pc,-75,350)
-		setFont(50)
-		mStr(max(100-P.cstat.row,0),-75,250)
-	end,
-	techmino41=function()
-		setFont(40)
-		mStr(#players.alive.."/41",-75,175)
-		mStr(P.ko,-60,215)
-		setFont(25)
-		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,290)
-		for i=1,P.strength do
-			gc.draw(badgeIcon,16*i-130,260)
-		end
-	end,
-	techmino99=function()
-		setFont(40)
-		mStr(#players.alive.."/99",-75,175)
-		mStr(P.ko,-60,215)
-		setFont(25)
-		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,290)
-		for i=1,P.strength do
-			gc.draw(badgeIcon,16*i-130,260)
-		end
-	end,
-	drought=function()
-		setFont(75)
-		mStr(max(100-P.cstat.row,0),-75,280)
-	end,
-	custom=function()
-		if P.gameEnv.target<1e4 then
-			setFont(75)
-			mStr(max(P.gameEnv.target-P.cstat.row,0),-75,280)
-		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
-			if modeEnv.royaleMode then
-				P.rank=1
-				P.result="WIN"
-				changeAtk(P)
-			end
-			::L::if P.task[1]then
-				rem(P.task)
-				goto L
-			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,"WIN","appear",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,
-		lose=function()
-			P.alive=false
-			P.control=false
-			P.timing=false
-			P.waiting=1e99
-			P.b2b=0
-			::L::if P.task[1]then
-				rem(P.task)
-				goto L
-			end
-			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
-				P.strength=0
-				local A=P
-				::L::
-					A=A.lastRecv
-				if A and not A.alive 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
-					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
-				end
-				freshMostBadge()
-				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,"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
-				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]
-			if s==18 then P.gameEnv._20G=true end
-			P.gameEnv.target=s*10+10
-			SFX("reach")
-		end
-	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,"STAGE "..t,"fly",80,-120)
-			SFX("reach")
-		end
-	end,
-	marathon_reach_ultimate=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=death_lock[t]
-			P.gameEnv.wait=death_wait[t]
-			P.gameEnv.fall=death_fall[t]
-			showText(P,"STAGE "..t,"beat",80,-120)
-			SFX("reach")
-		end
-	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
-				ins(P.clearing,1)
-			end
-		end
-	end,
-	sudden_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
-			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
-				ins(P.task,Event.task.PC)
-				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,"Max speed","appear",80,-120)
-						else
-							showText(P,"Speed up","appear",30,-130)
-						end
-					end
-				end
-			else
-				Event.gameover.lose()
-			end
-		end
-	end,
-	task={
-		win=function()
-			P.endCounter=P.endCounter+1
-			if P.endCounter>80 then
-				if P.gameEnv.visible==1 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.endCounter=P.endCounter+1
-			if P.endCounter>80 then
-				if P.gameEnv.visible==1 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,
-		dig_normal=function()
-			local P=players[1]
-			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(13))
-				ins(P.visTime,1,getNewRow(1e99))
-				P.field[1][rnd(10)]=0
-				P.fieldBeneath=P.fieldBeneath+30
-				P.cy,P.y_img=P.cy+1,P.y_img+1
-				P.counter=0
-				P.cstat.event=P.cstat.event+1
-			end
-		end,
-		dig_lunatic=function()
-			local P=players[1]
-			P.counter=P.counter+1
-			if #P.clearing==0 and P.counter>=max(40,60-.5*P.cstat.event)then
-				ins(P.field,1,getNewRow(13))
-				ins(P.visTime,1,getNewRow(1e99))
-				P.field[1][rnd(10)]=0
-				P.fieldBeneath=P.fieldBeneath+30
-				P.cy,P.y_img=P.cy+1,P.y_img+1
-				P.counter=0
-				P.cstat.event=P.cstat.event+1
-			end
-		end,
-		survivor_easy=function()
-			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=30,cd0=30,time=0,sent=false,lv=1})
-				P.counter=0
-				P.cstat.event=P.cstat.event+1
-			end
-		end,
-		survivor_normal=function()
-			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+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
-				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
-					ins(P.atkBuffer,{rnd(10),amount=1,countdown=20,cd0=20,time=0,sent=false,lv=1})
-				else
-					ins(P.atkBuffer,{rnd(10),amount=3,countdown=40,cd0=40,time=0,sent=false,lv=2})
-				end
-				P.counter=0
-				P.cstat.event=P.cstat.event+1
-			end
-		end,
-		survivor_lunatic=function()
-			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)
-				ins(P.atkBuffer,{rnd(10),amount=4,countdown=t,cd0=t,time=0,sent=false,lv=3})
-				P.counter=0
-				P.cstat.event=P.cstat.event+1
-			end
-		end,
-		PC=function()
-			local P=players[1]
-			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.cy=P.cy+4
-				P.y_img=P.y_img+4
-				freshgho()
-				return true
-			end
-		end,
-	},
+	block=true,
+	keepVisible=true,visible="show",
+	Fkey=F,puzzle=F,ospin=true,
+	freshLimit=1e99,target=1e99,reach=null,
+	bg="none",bgm="race"
 }
+customSel={22,22,1,1,7,3,1,1,8,4,1,1,1}
+preField={h=20}
+for i=1,18 do preField[i]={0,0,0,0,0,0,0,0,0,0}end
+for i=19,20 do preField[i]={-1,-1,-1,-1,-1,-1,-1,-1,-1,-1}end
+freeRow={}
+for i=1,40 do
+	freeRow[i]={0,0,0,0,0,0,0,0,0,0}
+end
 --Game system Data
 setting={
-	sfx=true,bgm=true,vib=3,
-	fullscreen=false,
-	bgblock=true,
-	lang="eng",
+	ghost=true,center=true,
+	grid=F,swap=true,
+	fxs=true,bg=true,
 	das=10,arr=2,
 	sddas=0,sdarr=2,
-	ghost=true,center=true,
+	lang=1,
+	
+	sfx=true,bgm=true,
+	vib=3,voc=false,
+	fullscreen=F,
+	bgblock=true,
+	skin=1,
 	keyMap={
 		{"left","right","x","z","c","up","down","space","tab","r","","",""},
 		{"","","","","","","","","","","","",""},
@@ -679,12 +92,6 @@ setting={
 		{"","","","","","","","","","","","",""},
 		{"","","","","","","","","","","","",""},
 	},--keyboard & joystick
-	keyLib={
-		{1},
-		{2},
-		{3},
-		{4},
-	},--Players' key setting(s)
 	virtualkey={
 		{80,720-80,6400,80},--moveLeft
 		{240,720-80,6400,80},--moveRight
@@ -698,34 +105,50 @@ setting={
 	},
 	virtualkeyAlpha=3,
 	virtualkeyIcon=true,
-	virtualkeySwitch=false,
+	virtualkeySwitch=F,
 	frameMul=100,
 }
 stat={
-	run=0,
-	game=0,
-	gametime=0,
-	piece=0,
-	row=0,
-	atk=0,
-	key=0,
-	hold=0,
-	rotate=0,
-	spin=0,
+	run=0,game=0,time=0,
+	key=0,rotate=0,hold=0,piece=0,row=0,
+	atk=0,send=0,recv=0,pend=0,
+	clear_1=0,clear_2=0,clear_3=0,clear_4=0,
+	spin_0=0,spin_1=0,spin_2=0,spin_3=0,
+	b2b=0,b3b=0,pc=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},--func
+	{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={F,F,F,F,F,F,F,F,F,F,F,F,F}
+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("class")
+require("gamefunc")
 require("ai")
 require("timer")
 require("paint")
-require("scene")
 require("call&sys")
+require("dataList")
+require("texture")
 
-userData=fs.newFile("userdata")
-userSetting=fs.newFile("usersetting")
+userData,userSetting=fs.newFile("userdata"),fs.newFile("usersetting")
 if fs.getInfo("userdata")then
 	loadData()
 end
@@ -733,4 +156,8 @@ if fs.getInfo("usersetting")then
 	loadSetting()
 elseif system=="Android" or system=="iOS"then
 	setting.virtualkeySwitch=true
-end
+	setting.swap=F
+end
+
+swapLanguage(setting.lang)
+changeBlockSkin(setting.skin)

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

@@ -1,35 +1,18 @@
-local N=gc.newImage
-function C(x,y)
+local gc=love.graphics
+local N,c=gc.newImage
+local function T(s,t)return gc.newText(setFont(s),t)end
+local function C(x,y)
 	c=gc.newCanvas(x,y)
 	gc.setCanvas(c)
 	return c
 end
 
 gc.setDefaultFilter("nearest","nearest")
-
-local blockImg=N("/image/block/1.png")
+blockImg=N("/image/block.png")
 blockSkin,blockSkinmini={},{}
 for i=1,13 do
-	C(30,30)
-	gc.draw(blockImg,30-30*i,0)
-	blockSkin[i]=c
-	C(6,6)
-	gc.draw(blockImg,6-6*i,0,nil,.2)
-	blockSkinmini[i]=c
-end
-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]+3)
-	end
+	blockSkin[i]=C(30,30)
+	blockSkinmini[i]=C(6,6)
 end
 
 virtualkeyIcon={}
@@ -43,8 +26,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]then
 			gc.rectangle("fill",x-1,#b-y,1,1)
 		end
 	end end
@@ -62,19 +45,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 +66,30 @@ 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")
 
-background={
-	N("/image/BG/bg1.jpg"),
-	N("/image/BG/bg2.png"),
+background1=N("/image/BG/bg1.jpg")
+background2=N("/image/BG/bg2.png")
+groupCode=N("/image/mess/groupcode.png")
+payCode=N("/image/mess/paycode.png")
+drawableText={
+	question=T(100,"?"),
+	bpm=T(15,"BPM"),
+	kpm=T(15,"KPM"),
+
+	modeName=T(30),levelName=T(30),
+	next=T(40),hold=T(40),
+	pause=T(120),
+	finish=T(120),
+	custom=T(80),
+	keyboard=T(25),joystick=T(25),
+	setting2Help=T(25),
+	musicRoom=T(80),
+	nowPlaying=T(50),
 }
-c=nil
-gc.setCanvas()
+c=gc.setCanvas()

timer.lua

@@ -1,18 +1,28 @@
+local wd=love.window
+local Timer=love.timer.getTime
+
 Tmr={}
 function Tmr.load()
+	local t=Timer()
+	::R::
 	if loading==1 then
-		loadnum=loadnum+1
-		loadprogress=loadnum/10
-		if loadnum==5 then
-			--require("load_texture")
-		elseif loadnum==10 then
-			loadnum=1
+		if loadnum<=#voiceList then
+			local N=voiceList[loadnum]
+			for i=1,#voice[N]do
+				voice[N][i]=love.audio.newSource("VOICE/"..voice[N][i]..".ogg","static")
+			end
+			loadprogress=loadnum/#voiceList
+			loadnum=loadnum+1
+		else
 			loading=2
+			loadnum=1
 		end
 	elseif loading==2 then
 		if loadnum<=#bgm then
-			bgm[bgm[loadnum]]=love.audio.newSource("/BGM/"..bgm[loadnum]..".ogg","stream")
-			bgm[bgm[loadnum]]:setLooping(true)
+			local N=bgm[loadnum]
+			bgm[N]=love.audio.newSource("/BGM/"..N..".ogg","stream")
+			bgm[N]:setLooping(true)
+			bgm[N]:setVolume(0)
 			loadprogress=loadnum/#bgm
 			loadnum=loadnum+1
 		else
@@ -28,7 +38,7 @@ function Tmr.load()
 		else
 			for i=1,#sfx do sfx[i]=nil end
 			loading=4
-			loadnum=0
+			loadnum=1
 		end
 	elseif loading==4 then
 		loadnum=loadnum+1
@@ -42,10 +52,12 @@ function Tmr.intro()
 	count=count+1
 	if count==200 then count=80 end
 end
+function Tmr.draw()
+	if clearSureTime>0 then clearSureTime=clearSureTime-1 end
+end
 function Tmr.play(dt)
 	frame=frame+1
-	stat.gametime=stat.gametime+dt
-
+	stat.time=stat.time+dt
 	for i=#FX.beam,1,-1 do
 		local b=FX.beam[i]
 		b.t=b.t+1
@@ -69,38 +81,55 @@ function Tmr.play(dt)
 			virtualkeyPressTime[i]=virtualkeyPressTime[i]-1
 		end
 	end
-	for i=1,3 do
-		PTC.attack[i]:update(dt)
-	end
-	-- Update attack beam
-
+	PTC.attack[1]:update(dt)
+	PTC.attack[2]:update(dt)
+	PTC.attack[3]:update(dt)
 	if frame<180 then
 		if frame==179 then
 			gameStart()
 		elseif frame%60==0 then
-			sysSFX("ready")
+			SFX("ready")
 		end
 		for p=1,#players do
 			P=players[p]
 			if P.keyPressing[1]or P.keyPressing[2]then
-				P.moving=P.moving+sgn(P.moving)
+				P.moving=P.moving+(P.moving>0 and 1 or -1)
 			else
 				P.moving=0
 			end
 		end
+		if restartCount>0 then restartCount=restartCount-1 end
 		return
-	end--Counting,include pre-das
+	elseif players[1].keyPressing[10]then
+		restartCount=restartCount+1
+		if restartCount>17 then
+			clearTask("play")
+			updateStat()
+			resetGameData()
+		end
+	elseif restartCount>0 then
+		restartCount=max(restartCount-2,0)
+	end--Counting,include pre-das,directy RETURN,or restart counting
 	for p=1,#players do
 		P=players[p]
-		if P.timing then P.time=P.time+dt end
+		if P.timing then P.stat.time=P.stat.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
+			if P.ai and P.waiting==-1 then
 				P.ai.controlDelay=P.ai.controlDelay-1
 				if P.ai.controlDelay==0 then
 					if #P.ai.controls>0 then
@@ -110,17 +139,23 @@ 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
+						if Timer()-P.modeData.point>P.modeData.event then
+							P.modeData.point=Timer()
+							P.modeData.event=P.ai.controlDelay0+rnd(2,10)
+							changeAtkMode(rnd()<.85 and 1 or #P.atker>3 and 4 or rnd()<.35 and 2 or 3)
+						end
 					end
 				end
 			end
+			if not P.keepVisible then
+				for j=1,#P.field do for i=1,10 do
+					if P.visTime[j][i]>0 then P.visTime[j][i]=P.visTime[j][i]-1 end
+				end end
+			end--Fresh visible time
 
-			for j=1,#P.field do for i=1,10 do
-				if P.visTime[j][i]>0 then P.visTime[j][i]=P.visTime[j][i]-1 end
-			end end
-			--Fresh visible time
 			if P.keyPressing[1]or P.keyPressing[2]then
-				P.moving=P.moving+sgn(P.moving)
+				P.moving=P.moving+(P.moving>0 and 1 or -1)
 				local d=abs(P.moving)-P.gameEnv.das
 				if d>1 then
 					if P.gameEnv.arr>0 then
@@ -135,8 +170,8 @@ function Tmr.play(dt)
 				P.moving=0
 			end
 			if P.keyPressing[7]and not P.keyPressing[9]then
-				P.downing=P.downing+1
 				local d=abs(P.downing)-P.gameEnv.sddas
+				P.downing=P.downing+1
 				if d>1 then
 					if P.gameEnv.sdarr>0 then
 						if d%P.gameEnv.sdarr==0 then
@@ -149,76 +184,88 @@ 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
+			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
-					for i=1,#P.clearing do
-						removeRow(P.field,P.clearing[i])
-						removeRow(P.visTime,P.clearing[i])
-					end
-					::L::if P.clearing[1]then
-						rem(P.clearing)
-						goto L
-					end
+				if P.falling>=0 then goto stop end
+				if P.human and P.gameEnv.fall>0 and #P.field>P.clearing[1]then SFX("fall")end
+				for i=1,#P.clearing do
+					removeRow(P.field,P.clearing[i])
+					removeRow(P.visTime,P.clearing[i])
 				end
-			elseif P.waiting>0 then
+				::L::
+					rem(P.clearing)
+				if P.clearing[1]then goto L end
+			end
+			if P.waiting>=0 then
 				P.waiting=P.waiting-1
-				if P.waiting<=0 then
-					resetblock()
+				if P.waiting==-1 then resetblock()end
+				goto stop
+			end
+			if P.curY~=P.y_img then
+				if P.dropDelay>=0 then
+					P.dropDelay=P.dropDelay-1
+					if P.dropDelay>=0 then goto stop end
+				end
+				drop()
+				P.dropDelay=P.gameEnv.drop
+				if P.freshTime<=P.gameEnv.freshLimit then
+					P.lockDelay=P.gameEnv.lock
 				end
 			else
-				if P.cy~=P.y_img then
-					if P.dropDelay>0 then
-						P.dropDelay=P.dropDelay-1
-					else
-						drop()
-						P.dropDelay=P.gameEnv.drop
-						if P.freshTime<=P.gameEnv.freshLimit then
-							P.lockDelay=P.gameEnv.lock
-						end
-					end
-				else
-					if P.lockDelay>0 then P.lockDelay=P.lockDelay-1
-					else drop()
-					end
-				end
+				P.lockDelay=P.lockDelay-1
+				if P.lockDelay>=0 then goto stop end
+				drop()
+			end
+			::stop::
+			if P.b2b1==P.b2b then
+			elseif P.b2b1<P.b2b then
+				P.b2b1=min(P.b2b1*.98+P.b2b*.02+.4,P.b2b)
+			else
+				P.b2b1=max(P.b2b1*.95+P.b2b*.05-.6,P.b2b)
 			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 P.falling>0 then
-				P.falling=P.falling-1
-				if P.falling<=0 then
-					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])
-					end
-					P.clearing={}
+			if not P.small then
+				P.keySpeed=P.keySpeed*.96+P.stat.key/P.stat.time*60*.04
+				P.dropSpeed=P.dropSpeed*.96+P.stat.piece/P.stat.time*60*.04
+				--Final average speeds
+				if modeEnv.royaleMode then
+					P.swappingAtkMode=min(P.swappingAtkMode+2,30)
 				end
-			end--Rows cleared drop
+			end
+			if P.falling>=0 then
+				P.falling=P.falling-1
+				if P.falling>=0 then goto stop end
+				if P.human and P.gameEnv.fall>0 and #P.field>P.clearing[1]then SFX("fall")end
+				for i=1,#P.clearing do
+					removeRow(P.field,P.clearing[i])
+					removeRow(P.visTime,P.clearing[i])
+				end
+				::L::
+					rem(P.clearing)
+				if P.clearing[1]then goto L end
+			end::stop::
 			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
+			if P.b2b1>0 then P.b2b1=max(0,P.b2b1*.92-1)end
 			--Dead
 		end
+		for i=#P.shade,1,-1 do
+			local S=P.shade[i]
+			S[1]=S[1]-1
+			if S[1]==0 then
+				rem(P.shade,i)
+			end
+		end
+		if P.fieldOffY>0 then
+			P.fieldOffY=P.fieldOffY-(P.fieldOffY>3 and 2 or 1)
+		end
+		if P.fieldOffX~=0 then
+			P.fieldOffX=P.fieldOffX-(P.fieldOffX>0 and 1 or -1)
+		end
 		for i=#P.bonus,1,-1 do
 			local b=P.bonus[i]
 			if b.inf then
@@ -230,9 +277,6 @@ function Tmr.play(dt)
 				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
@@ -251,5 +295,13 @@ 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%120==0 then freshMostDangerous()end
+end
+function Tmr.pause(dt)
+	if not gamefinished then
+		pauseTime=pauseTime+dt
+	end
+	if pauseTimer<50 and not wd.isMinimized()then
+		pauseTimer=pauseTimer+1
+	end
 end

toolfunc.lua

@@ -1,4 +1,10 @@
-function string.splitS(s,sep)
+local tm=love.timer
+local gc=love.graphics
+local kb=love.keyboard
+local setFont=setFont
+local toN,toS=tonumber,tostring
+
+local function splitS(s,sep)
 	local t={}
 	::L::
 		local i=find(s,sep)or #s+1
@@ -7,27 +13,21 @@ function string.splitS(s,sep)
 	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 end
-	end
-	return true
-end
 function mStr(s,x,y)
-	gc.printf(s,x-300,y,600,"center")
+	gc.printf(s,x-320,y,640,"center")
+end
+function mDraw(s,x,y)
+	gc.draw(s,x-s:getWidth()*.5,y)
 end
 
 function getNewRow(val)
-	if not val then val=0 end
 	local t=rem(freeRow)
 	for i=1,10 do
-		t[i]=val or 0
+		t[i]=val
 	end
 	--clear a row and move to active list
 	if #freeRow==0 then
-		for i=1,20 do
+		for i=1,10 do
 			ins(freeRow,{0,0,0,0,0,0,0,0,0,0})
 		end
 	end
@@ -38,44 +38,69 @@ function removeRow(t,k)
 	ins(freeRow,rem(t,k))
 end
 
-local count=0
-BGblockList={}for i=1,16 do BGblockList[i]={v=0}end
-function getNewBlock()
-	count=count+1
-	if count==17 then count=1 end
-	local t=BGblockList[count]
-	t.bn,t.size=BGblock.next,2+3*rnd()
-	t.b=blocks[t.bn][rnd(0,3)]
-	t.x=rnd(-#t.b[1]*t.size*30+100,1180)
-	t.y=-#t.b*30*t.size
-	t.v=t.size*(1+rnd())
-	BGblock.next=BGblock.next%7+1
-	return t
-end
---Background animation
-
-function timeSort(a,b)
-	return a.time>b.time
-end
-function stencil_miniTitle()
-	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)
-end
-function stencil_field_small()
-	gc.rectangle("fill",0,0,60,120)
-end
 --Single-usage funcs
+langName={"中文","全中文","English"}
+local langID={"chi","chi_full","eng"}
+local drawableTextLoad={
+	"next",
+	"hold",
+	"pause",
+	"finish",
+	"custom",
+	"keyboard",
+	"joystick",
+	"setting2Help",
+	"musicRoom",
+	"nowPlaying",
+}
+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
+	gc.push("transform")
+	gc.origin()
+		royaleCtrlPad=gc.newCanvas(300,100)
+		gc.setCanvas(royaleCtrlPad)
+		gc.setColor(1,1,1)
+		setFont(25)
+		gc.setLineWidth(2)
+		for i=1,4 do
+			gc.rectangle("line",RCPB[2*i-1],RCPB[2*i],90,35,8,4)
+			mStr(text.atkModeName[i],RCPB[2*i-1]+45,RCPB[2*i]+3)
+		end
+	gc.pop()
+	gc.setCanvas()
+	for _,s in next,drawableTextLoad do
+		drawableText[s]:set(text[s])
+	end
+	collectgarbage()
+end
+function changeBlockSkin(n)
+	n=n-1
+	gc.push("transform")
+	gc.origin()
+	for i=1,13 do
+		gc.setCanvas(blockSkin[i])
+		gc.draw(blockImg,30-30*i,-30*n)
+		gc.setCanvas(blockSkinmini[i])
+		gc.draw(blockImg,6-6*i,-6*n,nil,.2)
+	end
+	gc.pop()
+	gc.setCanvas()
+end
 
+local vibrateLevel={0,.02,.03,.04,.05,.06,.07,.08}
 function VIB(t)
 	if setting.vib>0 then
 		love.system.vibrate(vibrateLevel[setting.vib+t])
 	end
 end
-function sysSFX(s,v)
+function SFX(s,v)
 	if setting.sfx then
 		local n=1
 		::L::if sfx[s][n]:isPlaying()then
@@ -91,40 +116,116 @@ function sysSFX(s,v)
 		sfx[s][n]:play()
 	end
 end
-function SFX(s,v)
-	if setting.sfx and not P.ai then
-		local n=1
-		::L::if sfx[s][n]:isPlaying()then
-			n=n+1
-			if not sfx[s][n]then
-				sfx[s][n]=sfx[s][n-1]:clone()
-				sfx[s][n]:seek(0)
-				goto quit
-			end
-			goto L
-		end::quit::
-		sfx[s][n]:setVolume(v or 1)
-		sfx[s][n]:play()
+function VOICE(s,n)
+	if setting.voc then
+		ins(voicePlaying,voice[s][n or rnd(#voice[s])])
+		if #voicePlaying==1 then
+			voicePlaying[1]:play()
+		end
 	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
+
+local swapDeck_data={
+	{4,0,1,1},{6,0,15,1},{5,0,9,1},{6,0,6,1},
+	{1,0,3,1},{3,0,12,1},{1,1,8,1},{2,1,4,2},
+	{3,2,13,2},{4,1,12,2},{5,2,1,2},{7,1,11,2},
+	{2,1,9,3},{3,0,6,3},{4,2,14,3},{1,0,4,4},
+	{7,1,1,4},{6,0,2,4},{5,2,6,4},{6,0,14,5},
+	{3,3,15,5},{4,0,7,6},{7,1,10,5},{5,0,2,6},
+	{2,1,1,7},{1,0,4,6},{4,1,13,5},{1,1,6,7},
+	{5,3,11,5},{3,2,11,7},{6,0,8,7},{4,2,12,8},
+	{7,0,8,9},{1,0,2,8},{5,2,4,8},{6,0,15,8},
+}--Block id [ZSLJTOI] ,dir,x,y
+local swap={
+	none={2,1,d=function()end},
+	flash={8,1,d=function()gc.clear(1,1,1)end},
+	fade={30,15,d=function()
+		local t=1-abs(sceneSwaping.time*.06667-1)
+		gc.setColor(0,0,0,t)
+		gc.rectangle("fill",0,0,1280,720)
+	end},
+	deck={50,8,d=function()
+		local t=sceneSwaping.time
+		gc.setColor(1,1,1)
+		if t>8 then
+			local t=max(t,15)
+			for i=1,51-t do
+				local bn=swapDeck_data[i][1]
+				local b=blocks[bn][swapDeck_data[i][2]]
+				local cx,cy=swapDeck_data[i][3],swapDeck_data[i][4]
+				for y=1,#b do for x=1,#b[1]do
+					if b[y][x]then
+						gc.draw(blockSkin[bn],80*(cx+x-2),80*(10-cy-y),nil,8/3)
+					end
+				end end
+			end
+		end
+		if t<17 then
+			gc.setColor(1,1,1,(8-abs(t-8))*.125)
+			gc.rectangle("fill",0,0,1280,720)
+		end
+	end},
+}--Scene swapping animations
 function gotoScene(s,style)
 	if not sceneSwaping and s~=scene then
-		style=style or"deck"
+		style=style or"fade"
 		sceneSwaping={
 			tar=s,style=style,
 			time=swap[style][1],mid=swap[style][2],
 			draw=swap[style].d
 		}
 		Buttons.sel=nil
+		if style~="none"then
+			SFX("swipe")
+		end
 	end
 end
+function updateStat()
+	for k,v in next,players[1].stat do
+		stat[k]=stat[k]+v
+	end
+end
+local prevMenu={
+	load=love.event.quit,
+	intro="quit",
+	main="intro",
+	music="main",
+	mode="main",
+	custom="mode",
+	draw=function()
+		kb.setKeyRepeat(false)
+		gotoScene("custom")
+	end,
+	play=function()
+		updateStat()
+		clearTask("play")
+		gotoScene(curMode.id~="custom"and"mode"or"custom","deck")
+	end,
+	pause=nil,
+	setting=function()
+		saveSetting()
+		gotoScene("main")
+	end,
+	setting2="setting",
+	setting3="setting",
+	help="main",
+	stat="main",
+}prevMenu.pause=prevMenu.play
 function back()
 	local t=prevMenu[scene]
 	if type(t)=="string"then
@@ -133,36 +234,62 @@ function back()
 		t()
 	end
 end
+function pauseGame()
+	pauseTimer=0--Pause timer for animation
+	if not gamefinished then
+		pauseCount=pauseCount+1
+		if bgmPlaying then bgm[bgmPlaying]:pause()end
+	end
+	for i=1,#players.alive do
+		local l=players.alive[i].keyPressing
+		for j=1,#l do
+			if l[j]then
+				releaseKey(j,players.alive[i])
+			end
+		end
+	end
+	gotoScene("pause","none")
+end
+function resumeGame()
+	if bgmPlaying then bgm[bgmPlaying]:play()end
+	gotoScene("play","fade")
+end
+local dataOpt={
+	"run","game","time",
+	"key","rotate","hold","piece","row",
+	"atk","send","recv","pend",
+	"clear_1","clear_2","clear_3","clear_4",
+	"spin_0","spin_1","spin_2","spin_3",
+	"b2b","b3b","pc",
+}
 function loadData()
 	userData:open("r")
-    --local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
-	local t=string.splitS(userData:read(),"\r\n")
+	--local t=splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	local t=splitS(userData:read(),"\r\n")
 	userData:close()
 	for i=1,#t do
 		local i=t[i]
 		if find(i,"=")then
 			local t=sub(i,1,find(i,"=")-1)
 			local v=sub(i,find(i,"=")+1)
-			if t=="run"or t=="game"or t=="gametime"or t=="piece"or t=="row"or t=="atk"or t=="key"or t=="rotate"or t=="hold"or t=="spin"then
+			if t=="gametime"then t="time"end
+			for i=1,#dataOpt do
+				if t==dataOpt[i]then goto L end
+			end
+			goto E
+			::L::
 				v=toN(v)if not v or v<0 then v=0 end
 				stat[t]=v
-			end
+			::E::
 		end
 	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=concat(t,"\r\n")
 	--t=love.math.compress(t,"zlib"):getString()
 	userData:open("w")
 	userData:write(t)
@@ -170,49 +297,34 @@ function saveData()
 end
 function loadSetting()
 	userSetting:open("r")
-    --local t=string.splitS(love.math.decompress(userdata,"zlib"),"\r\n")
-	local t=string.splitS(userSetting:read(),"\r\n")
+	--local t=splitS(love.math.decompress(userdata,"zlib"),"\r\n")
+	local t=splitS(userSetting:read(),"\r\n")
 	userSetting:close()
 	for i=1,#t do
 		local i=t[i]
 		if find(i,"=")then
 			local t=sub(i,1,find(i,"=")-1)
 			local v=sub(i,find(i,"=")+1)
-			if t=="sfx"or t=="bgm"or t=="bgblock"then
+			if t=="sfx"or t=="bgm"or t=="bgblock"or t=="voc"then
 				setting[t]=v=="true"
 			elseif t=="vib"then
-				setting.vib=toN(v:match("[0123]"))or 0
+				setting.vib=toN(v:match("[012345]"))or 0
 			elseif t=="fullscreen"then
 				setting.fullscreen=v=="true"
 				love.window.setFullscreen(setting.fullscreen)
 			elseif t=="keymap"then
-				v=string.splitS(v,"/")
+				v=splitS(v,"/")
 				for i=1,16 do
-					local v1=string.splitS(v[i],",")
+					local v1=splitS(v[i],",")
 					for j=1,#v1 do
 						setting.keyMap[i][j]=v1[j]
 					end
 				end
-			elseif t=="keylib"then
-				v=string.splitS(v,"/")
-				for i=1,4 do
-					local v1=string.splitS(v[i],",")
-					for j=1,#v1 do
-						setting.keyLib[i][j]=toN(v1[j])
-					end
-					for j=1,#setting.keyLib[i]do
-						local v=setting.keyLib[i][j]
-						if int(v)~=v or v>=9 or v<=0 then
-							setting.keyLib[i]={i}
-							break
-						end
-					end
-				end
 			elseif t=="virtualkey"then
-				v=string.splitS(v,"/")
+				v=splitS(v,"/")
 				for i=1,10 do
 					if not v[i]then goto c end
-					virtualkey[i]=string.splitS(v[i],",")
+					virtualkey[i]=splitS(v[i],",")
 					for j=1,4 do
 						virtualkey[i][j]=toN(virtualkey[i][j])
 					end
@@ -227,46 +339,54 @@ function loadSetting()
 			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"or t=="fxs"or t=="bg"then
 				setting[t]=v=="true"
+			elseif t=="lang"then
+				setting[t]=toN(v:match("[123]"))or 1
+			elseif t=="skin"then
+				setting[t]=toN(v:match("[123456]"))or 1
 			end
 		end
 	end
 end
+local saveOpt={
+	"ghost","center",
+	"grid","swap",
+	"fxs","bg",
+	"das","arr",
+	"sddas","sdarr",
+	"lang",
+
+	"sfx","bgm",
+	"vib","voc",
+	"fullscreen",
+	"bgblock",
+	"skin",
+	"virtualkeyAlpha",
+	"virtualkeyIcon",
+	"virtualkeySwitch",
+	"frameMul",
+}
 function saveSetting()
 	local vk={}
 	for i=1,10 do
 		for j=1,4 do
 			virtualkey[i][j]=int(virtualkey[i][j]+.5)
 		end--Saving a integer is better?
-		vk[i]=table.concat(virtualkey[i],",")
+		vk[i]=concat(virtualkey[i],",")
 	end--pre-pack virtualkey setting
 	local map={}
 	for i=1,16 do
-		map[i]=table.concat(setting.keyMap[i],",")
+		map[i]=concat(setting.keyMap[i],",")
 	end
-	local lib={}
-	for i=1,4 do
-		lib[i]=table.concat(setting.keyLib[i],",")
+	local t={
+		"keymap="..toS(concat(map,"/")),
+		"virtualkey="..toS(concat(vk,"/")),
+	}
+	for i=1,#saveOpt do
+		ins(t,saveOpt[i].."="..toS(setting[saveOpt[i]]))
 	end
-	local t=table.concat({
-		stringPack("sfx=",setting.sfx),
-		stringPack("bgm=",setting.bgm),
-		stringPack("vib=",setting.vib),
-		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")
+	t=concat(t,"\r\n")
 	--t=love.math.compress(t,"zlib"):getString()
 	userSetting:open("w")
 	userSetting:write(t)