修改几乎所有模式名

parts/modes/drought_l.lua

@@ -0,0 +1,128 @@
+local min=math.min
+return{
+	color=COLOR.red,
+	env={
+		drop=20,lock=60,
+		sequence=function(P)
+			for _=1,3 do P:getNext(7)end
+		end,
+		freshMethod=function(P)
+			if not P.nextQueue[1] then
+				local height=FREEROW.get(0)
+				local max=#P.field
+				if max>0 then
+					--Get heights
+					for x=1,10 do
+						local h=max
+						while P.field[h][x]==0 and h>1 do
+							h=h-1
+						end
+						height[x]=h
+					end
+				else
+					for x=1,10 do
+						height[x]=0
+					end
+				end
+				height[11]=999
+
+				local res={1,1,2,2,3,4}
+				local d=0
+				local A
+				for i=1,10 do
+					d=d+height[i]
+				end
+				if d<40 or P.stat.row>2*42 then
+					A=#res+1
+					for _=1,4 do
+						res[A]=1
+						res[A+1]=2
+						res[A+2]=6
+						A=A+3
+					end
+					goto END
+				end
+
+				--Give I when no hole
+				d=-999--Height difference
+				--A=hole mark
+				for x=2,11 do
+					local _=height[x]-height[x-1]
+					if d<-2 and _>2 then
+						A=true
+					end
+					d=_
+				end
+				if not A then
+					A=#res+1
+					res[A]=7
+					res[A+1]=7
+					res[A+2]=7
+				end
+
+				--Give O when no d=0/give T when no d=1
+				d=0--d=0 count
+				A=0--d=1 count
+				for x=2,10 do
+					local _=height[x]-height[x-1]
+					if _==0 then
+						d=d+1
+					elseif _==1 or _==-1 then
+						A=A+1
+					end
+				end
+				if d<3 then
+					A=#res+1
+					res[A]=6
+					res[A+1]=6
+					res[A+2]=6
+				end
+				if A<3 then
+					A=#res+1
+					res[A]=5
+					res[A+1]=5
+					res[A+2]=5
+					res[A+3]=5
+					res[A+4]=5
+				end
+
+				::END::
+				FREEROW.discard(height)
+				P:getNext(res[P:RND(#res)])
+			end
+		end,
+		target=100,dropPiece=PLY.check_lineReach,
+		nextCount=1,holdCount=0,
+		ospin=false,
+		freshLimit=15,
+		bg="glow",bgm="reason",
+	},
+	pauseLimit=true,
+	load=function()
+		PLY.newPlayer(1)
+	end,
+	mesDisp=function(P)
+		setFont(70)
+		local R=100-P.stat.row
+		mStr(R>=0 and R or 0,69,265)
+	end,
+	score=function(P)return{min(P.stat.row,100),P.stat.frame/60}end,
+	scoreDisp=function(D)return D[1].." Lines   "..toTime(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.stat.row
+		if L>=100 then
+			local T=P.stat.frame/60
+			return
+			T<=100 and 5 or
+			T<=120 and 4 or
+			T<=160 and 3 or
+			T<=240 and 2 or
+			1
+		else
+			return
+			L>=50 and 1 or
+			L>=10 and 0
+		end
+	end,
+}