Add Classic Lunatic mode (#619)

parts/eventsets/classic_l.lua

@@ -1,3 +1,4 @@
+local gc_setColor=love.graphics.setColor
 return{
     das=16,arr=6,
 	sddas=2,sdarr=2,
@@ -15,16 +16,28 @@ return{
     keyCancel={5,6},
     mesDisp=function(P)
         setFont(75)
-        local r=P.modeData.target*.1
-        mStr(r<11 and 19 or r<22 and r+8 or("%02x"):format(r*10-220),63,210)
-        mText(drawableText.speedLV,63,290)
+        local r=P.modeData.target/10
+        mStr(r<11 and 19 or r<22 and r+9 or("%02x"):format(r*10-220),63,210)
+        mText(TEXTOBJ.speedLV,63,290)
         PLY.draw.drawProgress(P.stat.row,P.modeData.target)
+        if P.modeData.drought>7 then
+            if P.modeData.drought<=14 then
+                gc_setColor(1,1,1,P.modeData.drought/7-1)
+            else
+                local gb=P.modeData.drought<=21 and 2-P.modeData.drought/14 or .5
+                gc_setColor(1,gb,gb)
+            end
+            setFont(50)
+            mStr(P.modeData.drought,63,130)
+            mDraw(MODES.drought_l.icon,63,200,nil,.5)
+        end
     end,
     task=function(P)
         P.modeData.target=10
     end,
-    dropPiece=function(P)
+    hook_drop=function(P)
         local D=P.modeData
+        D.drought=P.lastPiece.id==7 and 0 or D.drought+1
         if P.stat.row>=D.target then
             D.target=D.target+10
             if D.target==200 then