local rem=table.remove
local function check_c4w(P)
	if P.lastPiece.row==0 then
		P:lose()
	else
		for _=1,P.lastPiece.row do
			local h=#P.field
			P.field[h+1]=FREEROW.get(20)
			P.visTime[h+1]=FREEROW.get(20)
			for i=4,7 do P.field[h+1][i]=0 end
		end
		if P.combo>P.modeData.maxCombo then
			P.modeData.maxCombo=P.combo
		end
		if P.stat.row>=100 then
			P:win('finish')
		end
	end
end

return{
	color=COLOR.red,
	env={
		drop=5,lock=30,
		task=function(P)P.modeData.maxCombo=0 end,
		dropPiece=check_c4w,
		freshLimit=15,ospin=false,
		bg='rgb',bgm='oxygen',
	},
	load=function()
		PLY.newPlayer(1)
		local P=PLAYERS[1]
		local F=P.field
		for i=1,24 do
			F[i]=FREEROW.get(20)
			P.visTime[i]=FREEROW.get(20)
			for x=4,7 do F[i][x]=0 end
		end
		if P.holeRND:random()<.6 then
			local initCell={11,14,12,13,21,24}
			for _=1,3 do
				_=rem(initCell,P.holeRND:random(#initCell))
				F[math.floor(_/10)][3+_%10]=20
			end
		else
			local initCell={11,12,13,14,21,22,23,24}
			rem(initCell,P.holeRND:random(5,8))
			rem(initCell,P.holeRND:random(1,4))
			for _=1,6 do
				_=rem(initCell,P.holeRND:random(#initCell))
				F[math.floor(_/10)][3+_%10]=20
			end
		end
	end,
	mesDisp=function(P)
		setFont(45)
		mStr(P.combo,69,310)
		mStr(P.modeData.maxCombo,69,400)
		mText(drawableText.combo,69,358)
		mText(drawableText.maxcmb,69,450)
	end,
	score=function(P)return{math.min(P.modeData.maxCombo,100),P.stat.time}end,
	scoreDisp=function(D)return D[1].." Combo   "..STRING.time(D[2])end,
	comp=function(a,b)return a[1]>b[1]or a[1]==b[1]and a[2]<b[2]end,
	getRank=function(P)
		local L=P.modeData.maxCombo
		if L==100 then
			local T=P.stat.time
			return
			T<=40 and 5 or
			T<=60 and 4 or
			3
		else
			return
			L>=70 and 3 or
			L>=40 and 2 or
			L>=20 and 1 or
			L>=5 and 0
		end
	end,
}