Alpha V0.7.20

BGblock.lua

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

TRS.lua

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

ai.lua

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

button.lua

@@ -1,136 +0,0 @@
-Buttons={
-	load={},
-	intro={},
-	main={
-		{x=250,y=300,w=330,h=60,rgb=color.red,t="Play",code=function()gotoScene("mode")end,down=2},
-		{x=250,y=380,w=330,h=60,rgb=color.blue,t="Settings",code=function()gotoScene("setting")end,up=1,down=3},
-		{x=165,y=460,w=160,h=60,rgb=color.yellow,t="Help",code=function()gotoScene("help")end,up=2,down=5,right=4},
-		{x=335,y=460,w=160,h=60,rgb=color.cyan,t="Statistics",code=function()gotoScene("stat")end,up=2,down=5,left=3},
-		{x=250,y=540,w=330,h=60,rgb=color.grey,t="Quit",code=function()gotoScene("quit")end,up=3},
-	},
-	mode={
-		{x=330,y=140,w=280,h=70,rgb=color.white,t="40 Lines",code=function()startGame("sprint")end,down=4,right=2},
-		{x=640,y=140,w=280,h=70,rgb=color.white,t="Zen",code=function()startGame("zen")end,down=5,left=1,right=3},
-		{x=950,y=140,w=280,h=70,rgb=color.white,t="GM Roll",code=function()startGame("gmroll")end,down=6,left=2},
-		{x=330,y=250,w=280,h=70,rgb=color.white,t="Marathon",code=function()startGame("marathon")end,up=1,down=7,right=5},
-		{x=640,y=250,w=280,h=70,rgb=color.white,t="Tetris 21",code=function()startGame("tetris21")end,up=2,down=8,left=4,right=6},
-		{x=950,y=250,w=280,h=70,rgb=color.white,t="Blind",code=function()startGame("blind")end,up=3,down=9,left=5},
-		{x=330,y=360,w=280,h=70,rgb=color.white,t="Death",code=function()startGame("death")end,up=4,down=10,right=8},
-		{x=640,y=360,w=280,h=70,rgb=color.white,t="AI Solo",code=function()startGame("solo")end,up=5,down=10,right=9,left=7},
-		{x=950,y=360,w=280,h=70,rgb=color.white,t="Asymmetry Solo",code=function()startGame("asymsolo")end,up=6,down=10,left=8},
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()gotoScene("main")end,up=8},
-	},
-	play={
-	},
-	setting={
-		{x=330,y=100,w=200,h=60,rgb=color.white,t=function()return setting.ghost and"Ghost ON"or"Ghost OFF"end,code=function()setting.ghost=not setting.ghost end,down=6,right=2},
-		{x=540,y=100,w=200,h=60,rgb=color.white,t=function()return setting.center and"Center ON"or"Center OFF"end,code=function()setting.center=not setting.center end,down=6,left=1,right=3},
-		{x=870,y=100,w=340,h=60,rgb=color.white,t=function()return setting.sfx and"Disable SFX"or"Enable SFX"end,code=function()setting.sfx=not setting.sfx end,down=4,left=2},
-		{x=870,y=180,w=340,h=60,rgb=color.white,t=function()return setting.bgm and"Disable BGM"or"Enable BGM"end,code=function()BGM()setting.bgm=not setting.bgm;BGM("blank")end,up=3,down=5,left=2},
-		{x=870,y=260,w=340,h=60,rgb=color.white,t=function()return setting.fullscreen and"Disable fullscreen"or"Enable fullscreen"end,
-			code=function()
-				setting.fullscreen=not setting.fullscreen
-				love.window.setFullscreen(setting.fullscreen)
-			end,
-			up=4,down=7,left=6
-		},
-		{x=435,y=220,w=320,h=60,rgb=color.green,t="Advanced settings",code=function()gotoScene("setting2")end,up=1,down=7,right=5},
-		{x=435,y=300,w=320,h=60,rgb=color.yellow,t="Touch settings",code=function()gotoScene("setting3")end,up=6,down=8,right=5},
-		{x=640,y=590,w=210,h=60,rgb=color.white,t="Save&Back",code=function()back()end,up=6},
-	},
-	setting2={
-		{x=290,y=70 ,w=160,h=45,rgb=color.white,t=function()return setting.key[1]end,code=function()keysetting,gamepadsetting=1 end,up=1,down=2,right=10},
-		{x=290,y=130,w=160,h=45,rgb=color.white,t=function()return setting.key[2]end,code=function()keysetting,gamepadsetting=2 end,up=1,down=3,right=11},
-		{x=290,y=190,w=160,h=45,rgb=color.white,t=function()return setting.key[3]end,code=function()keysetting,gamepadsetting=3 end,up=2,down=4,right=12},
-		{x=290,y=250,w=160,h=45,rgb=color.white,t=function()return setting.key[4]end,code=function()keysetting,gamepadsetting=4 end,up=3,down=5,right=13},
-		{x=290,y=310,w=160,h=45,rgb=color.white,t=function()return setting.key[5]end,code=function()keysetting,gamepadsetting=5 end,up=4,down=6,right=14},
-		{x=290,y=370,w=160,h=45,rgb=color.white,t=function()return setting.key[6]end,code=function()keysetting,gamepadsetting=6 end,up=5,down=7,right=15},
-		{x=290,y=430,w=160,h=45,rgb=color.white,t=function()return setting.key[7]end,code=function()keysetting,gamepadsetting=7 end,up=6,down=8,right=16},
-		{x=290,y=490,w=160,h=45,rgb=color.white,t=function()return setting.key[8]end,code=function()keysetting,gamepadsetting=8 end,up=7,down=9,right=17},
-		{x=290,y=550,w=160,h=45,rgb=color.white,t=function()return setting.key[9]end,code=function()keysetting,gamepadsetting=9 end,up=8,down=27,right=18},
-		--1~9
-		{x=540,y=70 ,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[1]end,code=function()gamepadsetting,keysetting=1 end,up=10,down=11,left=1,right=19},
-		{x=540,y=130,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[2]end,code=function()gamepadsetting,keysetting=2 end,up=10,down=12,left=2,right=19},
-		{x=540,y=190,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[3]end,code=function()gamepadsetting,keysetting=3 end,up=11,down=13,left=3,right=23},
-		{x=540,y=250,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[4]end,code=function()gamepadsetting,keysetting=4 end,up=12,down=14,left=4,right=23},
-		{x=540,y=310,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[5]end,code=function()gamepadsetting,keysetting=5 end,up=13,down=15,left=5,right=23},
-		{x=540,y=370,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[6]end,code=function()gamepadsetting,keysetting=6 end,up=14,down=16,left=6,right=28},
-		{x=540,y=430,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[7]end,code=function()gamepadsetting,keysetting=7 end,up=15,down=17,left=7,right=28},
-		{x=540,y=490,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[8]end,code=function()gamepadsetting,keysetting=8 end,up=16,down=18,left=8,right=28},
-		{x=540,y=550,w=230,h=45,rgb=color.white,t=function()return setting.gamepad[9]end,code=function()gamepadsetting,keysetting=9 end,up=17,down=27,left=9,right=28},
-		--10~18
-		{x=745,y=90,w=40,h=40,rgb=color.white,t="-",code=function()setting.das=(setting.das-1)%31 end,left=10,right=20,down=23},
-		{x=910,y=90,w=40,h=40,rgb=color.white,t="+",code=function()setting.das=(setting.das+1)%31 end,left=19,right=21,down=24},
-		{x=960,y=90,w=40,h=40,rgb=color.white,t="-",code=function()setting.arr=(setting.arr-1)%16 end,left=20,right=22,down=25},
-		{x=1125,y=90,w=40,h=40,rgb=color.white,t="+",code=function()setting.arr=(setting.arr+1)%16 end,left=21,down=26},
-		--19~22
-		{x=745,y=150,w=40,h=40,rgb=color.white,t="-",code=function()setting.sddas=(setting.sddas-1)%11 end,up=19,down=28,left=10,right=24},
-		{x=910,y=150,w=40,h=40,rgb=color.white,t="+",code=function()setting.sddas=(setting.sddas+1)%11 end,up=20,down=28,left=23,right=25},
-		{x=960,y=150,w=40,h=40,rgb=color.white,t="-",code=function()setting.sdarr=(setting.sdarr-1)%6 end,up=21,down=28,left=24,right=26},
-		{x=1125,y=150,w=40,h=40,rgb=color.white,t="+",code=function()setting.sdarr=(setting.sdarr+1)%4 end,up=22,down=28,left=25},
-		--23~26
-		{x=405,y=630,w=130,h=60,rgb=color.white,t="Reset",code=function()for i=1,#setting.key do setting.key[i]=gameEnv0.key[i] end end,up=9,right=28},
-		{x=840,y=630,w=180,h=60,rgb=color.white,t="Back",code=function()keysetting=nil;back()end,up=24,left=27},
-		--27~28
-	},
-	setting3={
-		{x=500,y=310,w=120,h=80,rgb=color.white,t="Reset",code=function()
-			for K=1,#virtualkey do
-				local b,b0=virtualkey[K],gameEnv0.virtualkey[K]
-				b[1],b[2],b[3],b[4]=b0[1],b0[2],b0[3],b0[4]
-			end--Reset virtualkey
-		end,down=4,right=2},
-		{x=640,y=310,w=120,h=80,rgb=color.white,t="Snap",code=function()
-			for K=1,#virtualkey do
-				local b=virtualkey[K]
-				b[1],b[2]=int(b[1]*.025+.5)*40,int(b[2]*.025+.5)*40
-			end--Make virtualkey neat
-		end,down=5,left=1,right=3},
-		{x=780,y=310,w=120,h=80,rgb=color.white,t=function()return percent0to5[setting.virtualkeyAlpha]end,code=function()
-			setting.virtualkeyAlpha=(setting.virtualkeyAlpha+1)%6
-			--Adjust virtualkey alpha
-		end,down=6,left=2},
-		{x=500,y=410,w=120,h=80,rgb=color.white,t="Icon",code=function()
-			setting.virtualkeyIcon=not setting.virtualkeyIcon
-			--Switch virtualkey icon
-		end,up=1,right=6},
-		{x=640,y=410,w=120,h=80,rgb=color.white,t="Back",code=function()back()end,up=2,left=4,right=3},
-		{x=780,y=410,w=120,h=80,rgb=color.white,t="Size",code=function()
-			for K=1,#virtualkey do
-				local b=virtualkey[K]
-				b[4]=b[4]+10
-				if b[4]==150 then b[4]=40 end
-				b[3]=b[4]^2
-			end
-		end,up=3,left=5},
-	},
-	help={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()back()end},
-	},
-	stat={
-		{x=640,y=590,w=180,h=60,rgb=color.white,t="Back",code=function()back()end},
-	},
-	sel=nil,--selected button id(integer)
-}
-for k,v in pairs(Buttons)do
-	for i=1,#v do
-		v[i].alpha=0
-	end
-end
-
-virtualkey={
-	{80,720-80,6400,80},--moveLeft
-	{240,720-80,6400,80},--moveRight
-	{1280-240,720-80,6400,80},--rotRight
-	{1280-400,720-80,6400,80},--rotLeft
-	{1280-240,720-240,6400,80},--rotFlip
-	{1280-80,720-80,6400,80},--hardDrop
-	{1280-80,720-240,6400,80},--softDrop
-	{1280-80,720-400,6400,80},--hold
-	{80,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
-	]]
-}

call&sys.lua

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

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

control.lua

@@ -1,196 +0,0 @@
-function onVirtualkey(x,y)
-	local x,y=convert(x,y)
-	local d2,nearest,distance
-	for K=1,#virtualkey do
-		local b=virtualkey[K]
-		d2=(x-b[1])^2+(y-b[2])^2
-		if d2<b[3]then
-			if not nearest or d2<distance then
-				nearest,distance=K,d2
-			end
-		end
-	end
-	return nearest
-end
-
-function buttonControl_key(i)
-	if i=="up"or i=="down"or i=="left"or i=="right"then
-		if not Buttons.sel then
-			Buttons.sel=1
-		else
-			Buttons.sel=Buttons[scene][Buttons.sel][i]or Buttons.sel
-		end
-	elseif i=="space"or i=="return"then
-		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			B.code()
-			B.alpha=1
-			sysSFX("button")
-		end
-	end
-	mouseShow=false
-end
-function buttonControl_gamepad(i)
-	if i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
-		if not Buttons.sel then
-			Buttons.sel=1
-			mouseShow=false
-		else
-			Buttons.sel=Buttons[scene][Buttons.sel][i=="dpup"and"up"or i=="dpdown"and"down"or i=="dpleft"and"left"or"right"]or Buttons.sel
-		end
-	elseif i=="start"then
-		if not sceneSwaping and Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			B.code()
-			B.alpha=1
-			sysSFX("button")
-		end
-	end
-	mouseShow=false
-end
-
-function love.mousemoved(x,y,dx,dy,t)
-	if not t then
-		mouseShow=true
-		mx,my=convert(x,y)
-		Buttons.sel=nil
-		for i=1,#Buttons[scene]do
-			local B=Buttons[scene][i]
-			if not(B.hide and B.hide())then
-				if abs(mx-B.x)<B.w*.5 and abs(my-B.y)<B.h*.5 then
-					Buttons.sel=i
-					return nil
-				end
-			end
-		end
-	end
-end
-function love.mousepressed(x,y,k,t,num)
-	if not t then
-		mouseShow=true
-		mx,my=convert(x,y)
-		if mouseDown[scene]then mouseDown[scene](mx,my,k)end
-		if k==1 then
-			if not sceneSwaping and Buttons.sel then
-				local B=Buttons[scene][Buttons.sel]
-				B.code()
-				B.alpha=1
-				Buttons.sel=nil
-				love.mousemoved(x,y)
-				sysSFX("button")
-			end
-		elseif k==3 then
-			back()
-		end
-	end
-end
-function love.mousereleased(x,y,k,t,num)
-end
-function love.touchpressed(id,x,y)
-	if not touching then
-		touching=id
-		love.mousemoved(x,y)
-		mouseShow=false
-	end
-	if scene=="play"then
-		local t=onVirtualkey(x,y)
-		if t then
-			pressKey(t)
-		end
-	end
-end
-function love.touchreleased(id,x,y)
-	if id==touching then
-		touching=nil
-		if Buttons.sel then
-			local B=Buttons[scene][Buttons.sel]
-			B.code()
-			B.alpha=1
-			Buttons.sel=nil
-		end
-		Buttons.sel=nil
-		mouseShow=false
-	end
-	if scene=="play"then
-		local t=onVirtualkey(x,y)
-		if t then
-			releaseKey(t)
-		end
-	end
-end
-function love.touchmoved(id,x,y,dx,dy)
-	love.mousemoved(x,y)
-	mouseShow=false
-	if not Buttons.sel then
-		touching=nil
-	end
-	if scene=="play"then
-		local l=tc.getTouches()
-		for n=1,#virtualkey do
-			local b=virtualkey[n]
-			local p=false
-			for i=1,#l do
-				local x,y=convert(tc.getPosition(l[i]))
-				if(x-b[1])^2+(y-b[2])^2<=b[3]then
-					p=true
-					break
-				end
-			end
-			if not p and players[1].keyPressing then
-				releaseKey(n)
-			end
-		end
-	elseif scene=="setting3"then
-		x,y=convert(x,y)
-		dx,dy=dx*screenK,dy*screenK
-		for K=1,#virtualkey do
-			local b=virtualkey[K]
-			if (x-b[1])^2+(y-b[2])^2<b[3]then
-				b[1],b[2]=b[1]+dx,b[2]+dy
-			end
-		end
-	end
-end
-
-function love.keypressed(i)
-	if keyDown[scene]then keyDown[scene](i)
-	elseif i=="escape"or i=="back"then back()
-	else buttonControl_key(i)
-	end
-end
-function love.keyreleased(i)
-	if keyUp[scene]then keyUp[scene](i)
-	end
-end
-
-function love.gamepadpressed(joystick,i)
-	if scene~="play"or scene=="setting2"and not gamepadsetting then
-		if i=="dpup"or i=="dpdown"or i=="dpleft"or i=="dpright"then
-			if not Buttons.sel then
-				Buttons.sel=1
-				mouseShow=false
-			else
-				Buttons.sel=Buttons[scene][Buttons.sel][i]or Buttons.sel
-			end
-		elseif i=="start"then
-			if not sceneSwaping and Buttons.sel then
-				local B=Buttons[scene][Buttons.sel]
-				B.code()
-				B.alpha=1
-				sysSFX("button")
-			end
-		end
-	end
-	if gamepadDown[scene]then return gamepadDown[scene](i)
-	elseif i=="back"then return back()
-	else buttonControl_gamepad(i)
-	end
-end
-function love.gamepadreleased(joystick,i)
-	if gamepadUp[scene]then gamepadUp[scene](i)
-	end
-end
-
-function love.wheelmoved(x,y)
-	if wheelmoved[scene]then wheelmoved[scene](x,y)end
-end

game_scene.lua

@@ -1,62 +0,0 @@
-game={}
-function game.load()
-	scene="load"
-	curBG="none"
-	loading=1--Loading mode
-	loadnum=1--Loading counter
-	loadprogress=0--Loading bar
-end
-function game.intro()
-	scene="intro"
-	curBG="none"
-end
-function game.main()
-	scene="main"
-	curBG="none"
-	BGM("blank")
-	collectgarbage()
-end
-function game.mode()
-	savedata()
-	if players then restockRow()end--recycle row used in-game
-	scene="mode"
-	curBG="none"
-	BGM("blank")
-end
-function game.play()
-	scene="play"
-	--curBG="game1"
-	resetGameData()
-	sysSFX("ready")
-	mouseShow=false
-end
-function game.setting()
-	scene="setting"
-	curBG="none"
-	BGM("blank")
-end--Normal setting
-function game.setting2()
-	scene="setting2"
-	curBG="none"
-	keyssetting=nil
-	BGM("blank")
-end--Advanced setting and keyboard&joystick setting
-function game.setting3()
-	scene="setting3"
-	curBG="game1"
-	keyssetting=nil
-	BGM("blank")
-end--Touch setting
-function game.help()
-	scene="help"
-	curBG="none"
-	BGM("blank")
-end
-function game.stat()
-	scene="stat"
-	curBG="none"
-	BGM("blank")
-end
-function game.quit()
-	love.event.quit()
-end