add dig_techrash_10l.lua (#703)

2022-05-07 12:28:31 +08:00
parent 6c960fdde8
commit 38be81114f
9 changed files with 54 additions and 0 deletions
--- a/parts/modes/dig_quad_10l.lua
+++ b/parts/modes/dig_quad_10l.lua
@@ -0,0 +1,46 @@
+return{
+    env={
+        pushSpeed=6,
+        bg='bg1',bgm='way',
+        mesDisp=function(P)
+            setFont(55)
+            mStr(10-P.stat.dig_quad,63,265)
+        end,
+        hook_drop=function(P)
+            if P.lastPiece.row>0 and P.lastPiece.row<4 then
+                P:lose()
+            else
+                P.stat.dig_quad = P.stat.dig
+            end
+            if P.stat.dig==10 then
+                P:win('finish')
+            end
+        end,
+        task=function(P)
+            local last = -1
+            for _=1,10 do
+                local garbage = last
+                repeat
+                    garbage = P:getHolePos()
+                until garbage ~= last
+                last = garbage
+                P:garbageRise(21,1,garbage)
+            end
+            P.fieldBeneath=0
+            P.stat.dig_quad = 0
+        end,
+    },
+    score=function(P)return{P.stat.dig_quad,P.stat.piece}end,
+    scoreDisp=function(D)return D[1].." Techrash "..D[2].." Pieces"end,
+    comp=function(a,b)return a[1]>b[1]or a[1]==b[1]and a[2]<b[2]end,
+    getRank=function(P)
+        if P.stat.dig_quad<4 then return end
+        return
+        P.stat.piece<=81 and 5 or
+        P.stat.piece<=92 and 4 or
+        P.stat.piece<=103 and 3 or
+        P.stat.dig_quad>=10 and 2 or
+        P.stat.dig_quad>=7 and 1 or
+        0
+    end,
+}