新小程序：Mahjong（无和牌检测）

parts/scenes/app_console.lua

@@ -652,6 +652,11 @@ local commands={}do
                 scene='app_stopwatch',
                 description="A stopwatch"
             },
+            {
+                code="mj",
+                scene='app_mahjong',
+                description="A simple mahjong game (1 player)"
+            },
             {
                 code="spin",
                 scene='app_spin',

parts/scenes/app_mahjong.lua

@@ -0,0 +1,170 @@
+local gc=love.graphics
+local gc_translate=gc.translate
+local gc_setColor,gc_setLineWidth=gc.setColor,gc.setLineWidth
+local gc_rectangle=gc.rectangle
+local gc_print=gc.print
+
+local max,min=math.max,math.min
+local ins,rem=table.insert,table.remove
+
+local colorName={
+    m={'一','二','三','四','五','六','七','八','九'},
+    p={'①','②','③','④','⑤','⑥','⑦','⑧','⑨'},
+    s={'1','2','3','4','5','6','7','8','9'},
+}
+local deck0={}
+local cardText={}
+for i=1,9 do
+    for _=1,4 do
+        ins(deck0,'m'..i)
+        ins(deck0,'p'..i)
+        ins(deck0,'s'..i)
+        if i<=7 then ins(deck0,'z'..i)end
+    end
+    cardText['m'..i]={COLOR.lF,colorName.m[i]}
+    cardText['p'..i]={COLOR.lB,colorName.p[i]}
+    cardText['s'..i]={COLOR.lG,colorName.s[i]}
+end
+-- deck0[TABLE.find(deck0,'m5')]='m0'
+-- deck0[TABLE.find(deck0,'p5')]='p0'
+-- deck0[TABLE.find(deck0,'s5')]='s0'
+-- cardText['5m+']={COLOR.R,'五'}
+-- cardText['5p+']={COLOR.R,'⑤'}
+-- cardText['5s+']={COLOR.R,'5'}
+
+cardText['z1']={COLOR.Z,'東'}
+cardText['z2']={COLOR.Z,'南'}
+cardText['z3']={COLOR.Z,'西'}
+cardText['z4']={COLOR.Z,'北'}
+cardText['z5']={COLOR.Z,' '}
+cardText['z6']={COLOR.G,'發'}
+cardText['z7']={COLOR.R,'中'}
+
+local deck,hand,pool
+local selected
+
+local function _getPoolCardArea(i)
+    local row=math.floor((i-1)/10)
+    local col=i-row*10
+    return
+    240+70*col,45+95*row,
+    65,90
+end
+
+local function _getHandCardArea(i)
+    return
+    20+70*i+(i==14 and 30 or 0),480,
+    65,90
+end
+
+local function _newGame()
+    deck=TABLE.shift(deck0)
+    hand={}
+    pool={}
+    for _=1,14 do ins(hand,(TABLE.popRandom(deck)))end
+    table.sort(hand)
+end
+
+local function _checkWin()
+    if #hand==14 then
+        --???
+    end
+end
+
+local function _throwCard()
+    if hand[selected]and #pool<40 then
+        ins(pool,rem(hand,selected))
+        table.sort(hand)
+        SFX.play('hold')
+        SFX.play('lock')
+        if #pool<40 then
+            ins(hand,(TABLE.popRandom(deck)))
+        end
+    end
+end
+
+local scene={}
+
+function scene.sceneInit()
+    _newGame()
+    selected=false
+end
+
+function scene.mouseMove(x,y)
+    selected=false
+    for i=1,#hand do
+        local cx,cy,cw,ch=_getHandCardArea(i)
+        if x>cx and x<cx+cw and y>cy and y<cy+ch then
+            selected=i
+            return
+        end
+    end
+end
+function scene.mouseDown()
+    _throwCard()
+end
+function scene.keyDown(key)
+    if key=='left'then
+        if selected then
+            selected=max(selected-1,1)
+        else
+            selected=1
+        end
+    elseif key=='right'then
+        if selected then
+            selected=min(selected+1,#hand)
+        else
+            selected=#hand
+        end
+    elseif key=='space'then
+        _throwCard()
+    elseif key=='r'then
+        _newGame()
+    elseif key=='return'then
+        _checkWin()
+    elseif key=='escape'then
+        SCN.back()
+    end
+end
+
+function scene.draw()
+    setFont(35)
+    gc_setColor(COLOR.Z)
+    gc_print('余: '..#deck,1060,30)
+
+    gc_setLineWidth(4)
+    setFont(50)
+    for i=1,#hand do
+        local c=hand[i]
+        local x,y,w,h=_getHandCardArea(i)
+        if i==selected then
+            gc_translate(0,-10)
+            gc_setColor(1,1,1,.4)
+            gc_rectangle('fill',x,y,w,h,5)
+        end
+        gc_setColor(COLOR.Z)
+        gc_rectangle('line',x,y,w,h,5)
+        gc_setColor(1,1,1)
+        mStr(cardText[c],x+w/2,y+10)
+        if i==selected then gc_translate(0,10)end
+    end
+    for i=1,#pool do
+        local c=pool[i]
+        local x,y,w,h=_getPoolCardArea(i)
+        if selected and hand[selected]==c then
+            gc_setColor(1,1,1,.4)
+            gc_rectangle('fill',x,y,w,h,5)
+        end
+        gc_setColor(COLOR.Z)
+        gc_rectangle('line',x,y,w,h,5)
+        gc_setColor(1,1,1)
+        mStr(cardText[c],x+w/2,y+10)
+    end
+end
+
+scene.widgetList={
+    WIDGET.newButton{name='reset',x=160, y=100,w=180,h=100,color='lG',font=50,fText=CHAR.icon.retry_spin,code=pressKey'r'},
+    WIDGET.newKey{name="hu",      x=1150,y=370,w=140,h=80,font=50,sound=false,fText='自摸',code=pressKey'return'},
+    WIDGET.newButton{name="back", x=1140,y=640,w=170,h=80,sound='back',font=60,fText=CHAR.icon.back,code=backScene},
+}
+return scene