Merge commit 'f8f115de10b4ef7818cf58bc03c9d75700e425b0' into test-new-mode-system

模式列表显示获得的段位

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_1.md

@@ -1,8 +1,8 @@
 ---
 name: Bug report (bluescreen crash) Bug报告 (蓝屏报错)
-about: Create a bug report which causes a bluescreen crash
+about: Create a report of problems which made the crash with a bluescreen
 ---
 Screenshot with crash information (*Image(s) Here*):
 
 
-If you can reproduce it, write the steps here. If you can't, try to describe what causes the game to crash, like pressing a key/button (*Details Here*)
+If you can reproduce it, write the steps here. If you can't, try to describe the exactly time the game crash, like pressing which key or which button (*Details Here*)

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_2.md

@@ -1,8 +1,8 @@
 ---
 name: Bug report (unintended behaviors) Bug报告 (奇怪的现象)
-about: Create bug report that causes unintended behaviors
+about: Create a report of unintended behaviors
 ---
 Screenshot with unintended behaviors (*Image(s) Here*):
 
 
-If you can reproduce it, write the steps here. If you can't, try to describe what causes the unintended behavior, like pressing a key/button (*Details Here*):
+If you can reproduce it, write the steps here. If you can't, try to describe the exactly time the game crash, like pressing which key or which button (*Details Here*):

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_3.md

@@ -2,7 +2,3 @@
 name: Feature Request 添加新功能
 about: Suggest an idea that may improve Techmino 提一些有意思的新想法,让Techmino越来越好!
 ---
-### What feature do you want to suggest to the game?
-
-
-

.github/actions/automatic-test/action.yml

@@ -4,6 +4,7 @@ description: 'Check for obvious errors.'
 runs:
   using: "composite"
   steps:
+  - uses: actions/checkout@v2
   - uses: ./.github/actions/build-love
     with:
       file-path: Techmino.love
@@ -20,4 +21,4 @@ runs:
     uses: GabrielBB/xvfb-action@v1
     with:
       run: |
-        ./dest/love Techmino.love --test
+        ./dest/love Techmino.love --test

.github/actions/get-cc/action.yml

@@ -3,7 +3,7 @@ description: 'download cc into specific dir'
 inputs:
   tag:
     required: false
-    default: techmino-alize-2
+    default:
   arch:
     required: true
   dir:

.github/workflows/dev.yml

@@ -31,8 +31,6 @@ jobs:
     runs-on: ubuntu-20.04
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/automatic-test
 
   build-windows:
@@ -40,8 +38,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -64,8 +60,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -84,8 +78,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -111,8 +103,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -141,8 +131,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -171,8 +159,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -206,8 +192,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
     - uses: ./.github/actions/build-love
       with:

.github/workflows/release.yml

@@ -41,8 +41,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-windows
         with:
@@ -64,8 +62,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-windows
         with:
@@ -87,8 +83,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-linux
         with:
@@ -105,8 +99,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-android
         with:
@@ -129,8 +121,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-macos
         with:
@@ -158,8 +148,6 @@ jobs:
     needs: get-info
     steps:
       - uses: actions/checkout@v2
-        with:
-          submodules: 'recursive'
       - uses: ./.github/actions/update-version
       - uses: ./.github/actions/build-ios
         with:

.github/workflows/test.yml

@@ -33,8 +33,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -57,8 +55,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -77,8 +73,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -104,8 +98,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}
@@ -133,8 +125,6 @@ jobs:
     needs: get-info
     steps:
     - uses: actions/checkout@v2
-      with:
-        submodules: 'recursive'
     - uses: ./.github/actions/update-version
       with:
         commit: ${{ needs.get-info.outputs.commit }}

.gitmodules

@@ -1,3 +0,0 @@
-[submodule "Zframework"]
-    path = Zframework
-    url = git@github.com:26F-Studio/Zframework.git

Zframework/background.lua

@@ -0,0 +1,56 @@
+local gc_clear=love.graphics.clear
+local BGs={
+    none={draw=function()gc_clear(.08,.08,.084)end}
+}
+local BGlist={'none'}
+local BG={
+    default='none',
+    locked=false,
+    cur='none',
+    init=false,
+    resize=false,
+    update=NULL,
+    draw=BGs.none.draw,
+    event=false,
+    discard=NULL,
+}
+
+function BG.lock()BG.locked=true end
+function BG.unlock()BG.locked=false end
+function BG.add(name,bg)
+    BGs[name]=bg
+    BGlist[#BGlist+1]=name
+end
+function BG.getList()
+    return BGlist
+end
+function BG.remList(name)
+    table.remove(BGlist,TABLE.find(BGlist,name))
+end
+function BG.send(...)
+    if BG.event then
+        BG.event(...)
+    end
+end
+function BG.setDefault(bg)
+    BG.default=bg
+end
+function BG.set(name)
+    name=name or BG.default
+    if not BGs[name]or BG.locked then return end
+    if name~=BG.cur then
+        BG.discard()
+        BG.cur=name
+        local bg=BGs[name]
+
+        BG.init=   bg.init or NULL
+        BG.resize= bg.resize or NULL
+        BG.update= bg.update or NULL
+        BG.draw=   bg.draw or NULL
+        BG.event=  bg.event or NULL
+        BG.discard=bg.discard or NULL
+        BG.init()
+    end
+    return true
+end
+return BG

Zframework/bgm.lua

@@ -0,0 +1,182 @@
+local lastLoaded={}
+local maxLoadedCount=3
+local nameList={}
+local SourceObjList={}
+local volume=1
+
+local BGM={
+    default=false,
+    onChange=NULL,
+    --nowPlay=[str:playing ID]
+    --playing=[src:playing SRC]
+    --lastPlayed=[str:lastPlayed ID]
+}
+
+function BGM.getList()return nameList end
+function BGM.getCount()return #nameList end
+local function _addFile(name,path)
+    if not SourceObjList[name]then
+        table.insert(nameList,name)
+        SourceObjList[name]={path=path,source=false}
+    end
+end
+function BGM.load(name,path)
+    if type(name)=='table'then
+        for k,v in next,name do
+            _addFile(k,v)
+        end
+    else
+        _addFile(name,path)
+    end
+    table.sort(nameList)
+    LOG(BGM.getCount().." BGM files added")
+end
+
+local function _tryReleaseSources()
+    local n=#lastLoaded
+    while #lastLoaded>maxLoadedCount do
+        local name=lastLoaded[n]
+        if SourceObjList[name].source:isPlaying()then
+            n=n-1
+            if n<=0 then return end
+        else
+            SourceObjList[name].source=SourceObjList[name].source:release()and nil
+            table.remove(lastLoaded,n)
+            return
+        end
+    end
+end
+function BGM.setDefault(bgm)
+    BGM.default=bgm
+end
+function BGM.setMaxSources(count)
+    maxLoadedCount=count
+    _tryReleaseSources()
+end
+function BGM.setChange(func)
+    BGM.onChange=func
+end
+function BGM.setVol(v)
+    assert(type(v)=='number'and v>=0 and v<=1,'Wrong volume')
+    volume=v
+    if BGM.playing then
+        if volume>0 then
+            BGM.playing:setVolume(volume)
+            BGM.playing:play()
+        elseif BGM.nowPlay then
+            BGM.playing:pause()
+        end
+    end
+end
+
+local function task_fadeOut(src)
+    while true do
+        coroutine.yield()
+        local v=src:getVolume()-.025*volume
+        src:setVolume(v>0 and v or 0)
+        if v<=0 then
+            src:pause()
+            return true
+        end
+    end
+end
+local function task_fadeIn(src)
+    while true do
+        coroutine.yield()
+        local v=volume
+        v=math.min(v,src:getVolume()+.025*v)
+        src:setVolume(v)
+        if v>=volume then
+            return true
+        end
+    end
+end
+local function check_curFadeOut(task,code,src)
+    return task.code==code and task.args[1]==src
+end
+local function _tryLoad(name)
+    if SourceObjList[name]then
+        if SourceObjList[name].source then
+            return true
+        elseif love.filesystem.getInfo(SourceObjList[name].path)then
+            SourceObjList[name].source=love.audio.newSource(SourceObjList[name].path,'stream')
+            SourceObjList[name].source:setVolume(0)
+            table.insert(lastLoaded,1,name)
+            _tryReleaseSources()
+            return true
+        else
+            LOG("No BGM: "..SourceObjList[name],5)
+        end
+    elseif name then
+        LOG("No BGM: "..name,5)
+    end
+end
+function BGM.play(name,args)
+    name=name or BGM.default
+    args=args or""
+    if not _tryLoad(name)or args:sArg('-preLoad')then return end
+    if volume==0 then
+        BGM.nowPlay=name
+        BGM.playing=SourceObjList[name].source
+        return true
+    end
+    if name and SourceObjList[name].source then
+        if BGM.nowPlay~=name then
+            if BGM.nowPlay then
+                if not args:sArg('-sdout')then
+                    TASK.new(task_fadeOut,BGM.playing)
+                else
+                    BGM.playing:pause()
+                end
+            end
+            TASK.removeTask_iterate(check_curFadeOut,task_fadeOut,SourceObjList[name].source)
+            TASK.removeTask_code(task_fadeIn)
+
+            BGM.nowPlay=name
+            BGM.playing=SourceObjList[name].source
+            if not args:sArg('-sdin')then
+                BGM.playing:setVolume(0)
+                TASK.new(task_fadeIn,BGM.playing)
+            else
+                BGM.playing:setVolume(volume)
+                BGM.playing:play()
+            end
+            SourceObjList[name].source:setLooping(not args:sArg('-noloop'))
+            BGM.lastPlayed=BGM.nowPlay
+            BGM.playing:seek(0)
+            BGM.playing:play()
+            BGM.onChange(name)
+        end
+        return true
+    end
+end
+function BGM.seek(t)
+    if BGM.playing then
+        BGM.playing:seek(t)
+    end
+end
+function BGM.isPlaying()
+    return BGM.playing and BGM.playing:isPlaying()
+end
+function BGM.continue()
+    if BGM.lastPlayed then
+        BGM.nowPlay,BGM.playing=BGM.lastPlayed,SourceObjList[BGM.lastPlayed].source
+        TASK.removeTask_iterate(check_curFadeOut,task_fadeOut,SourceObjList[BGM.nowPlay].source)
+        TASK.removeTask_code(task_fadeIn)
+        TASK.new(task_fadeIn,BGM.playing)
+        BGM.playing:play()
+    end
+end
+function BGM.stop(args)
+    args=args or""
+    TASK.removeTask_code(task_fadeIn)
+    if not args:sArg('-s')then
+        if BGM.nowPlay then
+            TASK.new(task_fadeOut,BGM.playing)
+        end
+    elseif BGM.playing then
+        BGM.playing:pause()
+    end
+    BGM.nowPlay,BGM.playing=nil
+end
+return BGM

Zframework/color.lua

@@ -0,0 +1,148 @@
+local abs=math.abs
+local function hsv(h,s,v,a)--Color type, Color amount, Light
+    if s<=0 then return v,v,v,a end
+    h=h*6
+    local c=v*s
+    local x=abs((h-1)%2-1)*c
+    if h<1     then return v,x+v-c,v-c,a
+    elseif h<2 then return x+v-c,v,v-c,a
+    elseif h<3 then return v-c,v,x+v-c,a
+    elseif h<4 then return v-c,x+v-c,v,a
+    elseif h<5 then return x+v-c,v-c,v,a
+    else            return v,v-c,x+v-c,a
+    end
+end
+
+local COLOR={
+    hsv=hsv,
+
+    red=        {hsv(0.00, 0.89, 0.91)},
+    fire=       {hsv(0.04, 0.93, 0.94)},
+    orange=     {hsv(0.09, 0.99, 0.96)},
+    yellow=     {hsv(0.15, 0.82, 0.90)},
+    lime=       {hsv(0.20, 0.89, 0.88)},
+    jade=       {hsv(0.25, 1.00, 0.82)},
+    green=      {hsv(0.33, 1.00, 0.81)},
+    aqua=       {hsv(0.47, 1.00, 0.76)},
+    cyan=       {hsv(0.53, 1.00, 0.88)},
+    navy=       {hsv(0.56, 1.00, 1.00)},
+    sea=        {hsv(0.61, 1.00, 1.00)},
+    blue=       {hsv(0.64, 1.00, 0.95)},
+    violet=     {hsv(0.74, 1.00, 0.91)},
+    purple=     {hsv(0.80, 1.00, 0.81)},
+    magenta=    {hsv(0.86, 1.00, 0.78)},
+    wine=       {hsv(0.92, 0.98, 0.91)},
+
+    lRed=       {hsv(0.00, 0.38, 0.93)},
+    lFire=      {hsv(0.04, 0.45, 0.91)},
+    lOrange=    {hsv(0.10, 0.53, 0.92)},
+    lYellow=    {hsv(0.14, 0.61, 0.95)},
+    lLime=      {hsv(0.20, 0.66, 0.92)},
+    lJade=      {hsv(0.26, 0.56, 0.90)},
+    lGreen=     {hsv(0.34, 0.49, 0.89)},
+    lAqua=      {hsv(0.47, 0.59, 0.86)},
+    lCyan=      {hsv(0.51, 0.77, 0.88)},
+    lNavy=      {hsv(0.54, 0.80, 0.95)},
+    lSea=       {hsv(0.57, 0.72, 0.97)},
+    lBlue=      {hsv(0.64, 0.44, 0.96)},
+    lViolet=    {hsv(0.72, 0.47, 0.95)},
+    lPurple=    {hsv(0.80, 0.62, 0.89)},
+    lMagenta=   {hsv(0.86, 0.61, 0.89)},
+    lWine=      {hsv(0.93, 0.57, 0.92)},
+
+    dRed=       {hsv(0.00, 0.80, 0.48)},
+    dFire=      {hsv(0.04, 0.80, 0.34)},
+    dOrange=    {hsv(0.07, 0.80, 0.39)},
+    dYellow=    {hsv(0.12, 0.80, 0.37)},
+    dLime=      {hsv(0.20, 0.80, 0.26)},
+    dJade=      {hsv(0.29, 0.80, 0.27)},
+    dGreen=     {hsv(0.33, 0.80, 0.26)},
+    dAqua=      {hsv(0.46, 0.80, 0.24)},
+    dCyan=      {hsv(0.50, 0.80, 0.30)},
+    dNavy=      {hsv(0.58, 0.80, 0.42)},
+    dSea=       {hsv(0.64, 0.80, 0.40)},
+    dBlue=      {hsv(0.67, 0.80, 0.34)},
+    dViolet=    {hsv(0.71, 0.80, 0.35)},
+    dPurple=    {hsv(0.76, 0.80, 0.32)},
+    dMagenta=   {hsv(0.87, 0.80, 0.28)},
+    dWine=      {hsv(0.92, 0.80, 0.28)},
+
+    black=      {hsv(0.04, 0.04, 0.14)},
+    dGray=      {hsv(0.02, 0.05, 0.44)},
+    gray=       {hsv(0.02, 0.05, 0.65)},
+    lGray=      {hsv(0.02, 0.06, 0.86)},
+    white=      {hsv(0.01, 0.02, 0.99)},
+
+    xGray=      {hsv(0.00, 0.00, 0.35,.8)},
+    lxGray=     {hsv(0.00, 0.00, 0.62,.8)},
+    dxGray=     {hsv(0.00, 0.00, 0.16,.8)},
+}
+for k,v in next,{
+    R='red', F='fire', O='orange', Y='yellow', L='lime', J='jade', G='green', A='aqua', C='cyan', N='navy', S='sea', B='blue', V='violet', P='purple', M='magenta', W='wine',
+    lR='lRed',lF='lFire',lO='lOrange',lY='lYellow',lL='lLime',lJ='lJade',lG='lGreen',lA='lAqua',lC='lCyan',lN='lNavy',lS='lSea',lB='lBlue',lV='lViolet',lP='lPurple',lM='lMagenta',lW='lWine',
+    dR='dRed',dF='dFire',dO='dOrange',dY='dYellow',dL='dLime',dJ='dJade',dG='dGreen',dA='dAqua',dC='dCyan',dN='dNavy',dS='dSea',dB='dBlue',dV='dViolet',dP='dPurple',dM='dMagenta',dW='dWine',
+    D='black',dH='dGray',H='gray',lH='lGray',Z='white',
+    X='xGray',lX='lxGray',dX='dxGray',
+    --Remain letter: EIKQTUX
+}do
+    COLOR[k]=COLOR[v]
+end
+setmetatable(COLOR,{__index=function(_,k)
+    error("No color: "..tostring(k))
+end})
+
+
+do--Random generators
+    local rnd=math.random
+    local list_norm={'red','fire','orange','yellow','lime','jade','green','aqua','cyan','navy','sea','blue','violet','purple','magenta','wine'}
+    local len_list_norm=#list_norm
+    function COLOR.random_norm()
+        return COLOR[list_norm[rnd(len_list_norm)]]
+    end
+
+    local list_bright={'lRed','lFire','lOrange','lYellow','lLime','lJade','lGreen','lAqua','lCyan','lNavy','lSea','lBlue','lViolet','lPurple','lMagenta','lWine'}
+    local len_list_bright=#list_bright
+    function COLOR.random_bright()
+        return COLOR[list_bright[rnd(len_list_bright)]]
+    end
+
+    local list_dark={'dRed','dFire','dOrange','dYellow','dLime','dJade','dGreen','dAqua','dCyan','dNavy','dSea','dBlue','dViolet','dPurple','dMagenta','dWine'}
+    local len_list_dark=#list_dark
+    function COLOR.random_dark()
+        return COLOR[list_dark[rnd(len_list_dark)]]
+    end
+end
+
+do--Rainbow generators
+    local sin=math.sin
+    function COLOR.rainbow(phase,a)
+        return
+            sin(phase)*.4+.6,
+            sin(phase+2.0944)*.4+.6,
+            sin(phase-2.0944)*.4+.6,
+            a
+    end
+    function COLOR.rainbow_light(phase,a)
+        return
+            sin(phase)*.2+.7,
+            sin(phase+2.0944)*.2+.7,
+            sin(phase-2.0944)*.2+.7,
+            a
+    end
+    function COLOR.rainbow_dark(phase,a)
+        return
+            sin(phase)*.2+.4,
+            sin(phase+2.0944)*.2+.4,
+            sin(phase-2.0944)*.2+.4,
+            a
+    end
+    function COLOR.rainbow_gray(phase,a)
+        return
+            sin(phase)*.16+.5,
+            sin(phase+2.0944)*.16+.5,
+            sin(phase-2.0944)*.16+.5,
+            a
+    end
+end
+
+return COLOR

Zframework/file.lua

@@ -0,0 +1,105 @@
+local fs=love.filesystem
+local FILE={}
+function FILE.load(name,args)
+    if not args then args=''end
+    if fs.getInfo(name)then
+        local F=fs.newFile(name)
+        assert(F:open'r','open error')
+        local s=F:read()F:close()
+        local mode=
+            STRING.sArg(args,'-luaon')and'luaon'or
+            STRING.sArg(args,'-lua')and'lua'or
+            STRING.sArg(args,'-json')and'json'or
+            STRING.sArg(args,'-string')and'string'or
+            s:sub(1,6)=='return{'and'luaon'or
+            (s:sub(1,1)=='['and s:sub(-1)==']'or s:sub(1,1)=='{'and s:sub(-1)=='}')and'json'or
+            'string'
+        if mode=='luaon'then
+            local func,err_mes=loadstring(s)
+            if func then
+                setfenv(func,{})
+                local res=func()
+                return assert(res,'decode error')
+            else
+                error('decode error: '..err_mes)
+            end
+        elseif mode=='lua'then
+            local func,err_mes=loadstring(s)
+            if func then
+                local res=func()
+                return assert(res,'run error')
+            else
+                error('compile error: '..err_mes)
+            end
+        elseif mode=='json'then
+            local res=JSON.decode(s)
+            if res then
+                return res
+            end
+            error('decode error')
+        elseif mode=='string'then
+            return s
+        else
+            error('unknown mode')
+        end
+    else
+        error('no file')
+    end
+end
+function FILE.save(data,name,args)
+    if not args then args=''end
+    if STRING.sArg(args,'-d')and fs.getInfo(name)then
+        error('duplicate')
+    end
+
+    if type(data)=='table'then
+        if STRING.sArg(args,'-luaon')then
+            data=TABLE.dump(data)
+            if not data then
+                error('encode error')
+            end
+        else
+            data=JSON.encode(data)
+            if not data then
+                error('encode error')
+            end
+        end
+    else
+        data=tostring(data)
+    end
+
+    local F=fs.newFile(name)
+    assert(F:open('w'),'open error')
+    F:write(data)F:flush()F:close()
+end
+function FILE.clear(path)
+    if fs.getRealDirectory(path)==SAVEDIR and fs.getInfo(path).type=='directory'then
+        for _,name in next,fs.getDirectoryItems(path)do
+            name=path..'/'..name
+            if fs.getRealDirectory(name)==SAVEDIR then
+                local t=fs.getInfo(name).type
+                if t=='file'then
+                    fs.remove(name)
+                end
+            end
+        end
+    end
+end
+function FILE.clear_s(path)
+    if path==''or(fs.getRealDirectory(path)==SAVEDIR and fs.getInfo(path).type=='directory')then
+        for _,name in next,fs.getDirectoryItems(path)do
+            name=path..'/'..name
+            if fs.getRealDirectory(name)==SAVEDIR then
+                local t=fs.getInfo(name).type
+                if t=='file'then
+                    fs.remove(name)
+                elseif t=='directory'then
+                    FILE.clear_s(name)
+                    fs.remove(name)
+                end
+            end
+        end
+        fs.remove(path)
+    end
+end
+return FILE

Zframework/font.lua

@@ -0,0 +1,60 @@
+local gc=love.graphics
+local set=gc.setFont
+local fontFiles,fontCache={},{}
+local defaultFont,defaultFallBack
+local curFont=false--Current using font object
+
+local FONT={}
+function FONT.setDefault(name)defaultFont=name end
+function FONT.setFallback(name)defaultFallBack=name end
+function FONT.rawget(s)
+    if not fontCache[s]then
+        fontCache[s]=gc.setNewFont(s,'light',gc.getDPIScale()*SCR.k*2)
+    end
+    return fontCache[s]
+end
+function FONT.rawset(s)
+    set(fontCache[s]or FONT.rawget(s))
+end
+function FONT.load(fonts)
+    for name,path in next,fonts do
+        assert(love.filesystem.getInfo(path),STRING.repD("Font file $1($2) not exist!",name,path))
+        fontFiles[name]=love.filesystem.newFile(path)
+        fontCache[name]={}
+    end
+    FONT.reset()
+end
+function FONT.get(size,name)
+    if not name then name=defaultFont end
+    local f=fontCache[name][size]
+    if not f then
+        f=gc.setNewFont(fontFiles[name],size,'light',gc.getDPIScale()*SCR.k*2)
+        if defaultFallBack and name~=defaultFallBack then
+            f:setFallbacks(FONT.get(size,defaultFallBack))
+        end
+        fontCache[name][size]=f
+    end
+    return f
+end
+function FONT.set(size,name)
+    if not name then name=defaultFont end
+
+    local f=fontCache[name][size]
+    if f~=curFont then
+        curFont=f or FONT.get(size,name)
+        set(curFont)
+    end
+end
+function FONT.reset()
+    for name,cache in next,fontCache do
+        if type(cache)=='table'then
+            for size in next,cache do
+                cache[size]=FONT.get(size,name)
+            end
+        else
+            fontCache[name]=FONT.rawget(name)
+        end
+    end
+end
+
+return FONT

Zframework/gcExtend.lua

@@ -0,0 +1,164 @@
+local gc=love.graphics
+local setColor,printf,draw=gc.setColor,gc.printf,gc.draw
+local GC={}
+function GC.mStr(obj,x,y)printf(obj,x-626,y,1252,'center')end--Printf a string with 'center'
+function GC.simpX(obj,x,y)draw(obj,x-obj:getWidth()*.5,y)end--Simply draw an obj with x=obj:getWidth()/2
+function GC.simpY(obj,x,y)draw(obj,x,y-obj:getHeight()*.5)end--Simply draw an obj with y=obj:getWidth()/2
+function GC.X(obj,x,y,a,k)draw(obj,x,y,a,k,nil,obj:getWidth()*.5,0)end--Draw an obj with x=obj:getWidth()/2
+function GC.Y(obj,x,y,a,k)draw(obj,x,y,a,k,nil,0,obj:getHeight()*.5)end--Draw an obj with y=obj:getWidth()/2
+function GC.draw(obj,x,y,a,k)draw(obj,x,y,a,k,nil,obj:getWidth()*.5,obj:getHeight()*.5)end--Draw an obj with both middle X & Y
+function GC.outDraw(obj,div,x,y,a,k)
+    local w,h=obj:getWidth()*.5,obj:getHeight()*.5
+    draw(obj,x-div,y-div,a,k,nil,w,h)
+    draw(obj,x-div,y+div,a,k,nil,w,h)
+    draw(obj,x+div,y-div,a,k,nil,w,h)
+    draw(obj,x+div,y+div,a,k,nil,w,h)
+end
+function GC.shadedPrint(str,x,y,mode,d,clr1,clr2)
+    local w=1280
+    if mode=='center'then
+        x=x-w*.5
+    elseif mode=='right'then
+        x=x-w
+    end
+    if not d then d=1 end
+    setColor(clr1 or COLOR.D)
+    printf(str,x-d,y-d,w,mode)
+    printf(str,x-d,y+d,w,mode)
+    printf(str,x+d,y-d,w,mode)
+    printf(str,x+d,y+d,w,mode)
+    setColor(clr2 or COLOR.Z)
+    printf(str,x,y,w,mode)
+end
+function GC.regularPolygon(mode,x,y,R,segments,r,phase)
+    local X,Y={},{}
+    local ang=phase or 0
+    local angStep=6.283185307179586/segments
+    for i=1,segments do
+        X[i]=x+R*math.cos(ang)
+        Y[i]=y+R*math.sin(ang)
+        ang=ang+angStep
+    end
+    X[segments+1]=x+R*math.cos(ang)
+    Y[segments+1]=y+R*math.sin(ang)
+    local halfAng=6.283185307179586/segments/2
+    local erasedLen=r*math.tan(halfAng)
+    if mode=='line'then
+        erasedLen=erasedLen+1--Fix 1px cover
+        for i=1,segments do
+            --Line
+            local x1,y1,x2,y2=X[i],Y[i],X[i+1],Y[i+1]
+            local dir=math.atan2(y2-y1,x2-x1)
+            gc.line(x1+erasedLen*math.cos(dir),y1+erasedLen*math.sin(dir),x2-erasedLen*math.cos(dir),y2-erasedLen*math.sin(dir))
+
+            --Arc
+            ang=ang+angStep
+            local R2=R-r/math.cos(halfAng)
+            local arcCX,arcCY=x+R2*math.cos(ang),y+R2*math.sin(ang)
+            gc.arc('line','open',arcCX,arcCY,r,ang-halfAng,ang+halfAng)
+        end
+    elseif mode=='fill'then
+        local L={}
+        for i=1,segments do
+            --Line
+            local x1,y1,x2,y2=X[i],Y[i],X[i+1],Y[i+1]
+            local dir=math.atan2(y2-y1,x2-x1)
+            table.insert(L,x1+erasedLen*math.cos(dir))
+            table.insert(L,y1+erasedLen*math.sin(dir))
+            table.insert(L,x2-erasedLen*math.cos(dir))
+            table.insert(L,y2-erasedLen*math.sin(dir))
+
+            --Arc
+            ang=ang+angStep
+            local R2=R-r/math.cos(halfAng)
+            local arcCX,arcCY=x+R2*math.cos(ang),y+R2*math.sin(ang)
+            gc.arc('fill','open',arcCX,arcCY,r,ang-halfAng,ang+halfAng)
+        end
+        gc.polygon('fill',L)
+    else
+        error("Draw mode should be 'line' or 'fill'")
+    end
+end
+do--function GC.DO(L)
+    local cmds={
+        origin="origin",
+        move="translate",
+        scale="scale",
+        rotate="rotate",
+        shear="shear",
+        clear="clear",
+
+        setCL="setColor",
+        setCM="setColorMask",
+        setLW="setLineWidth",
+        setLS="setLineStyle",
+        setLJ="setLineJoin",
+
+        print="print",
+        rawFT=function(...)FONT.rawset(...)end,
+        setFT=function(...)FONT.set(...)end,
+        mText=GC.mStr,
+        mDraw=GC.draw,
+        mDrawX=GC.X,
+        mDrawY=GC.Y,
+        mOutDraw=GC.outDraw,
+
+        draw="draw",
+        line="line",
+        fRect=function(...)gc.rectangle('fill',...)end,
+        dRect=function(...)gc.rectangle('line',...)end,
+        fCirc=function(...)gc.circle('fill',...)end,
+        dCirc=function(...)gc.circle('line',...)end,
+        fElps=function(...)gc.ellipse('fill',...)end,
+        dElps=function(...)gc.ellipse('line',...)end,
+        fPoly=function(...)gc.polygon('fill',...)end,
+        dPoly=function(...)gc.polygon('line',...)end,
+
+        dPie=function(...)gc.arc('line',...)end,
+        dArc=function(...)gc.arc('line','open',...)end,
+        dBow=function(...)gc.arc('line','closed',...)end,
+        fPie=function(...)gc.arc('fill',...)end,
+        fArc=function(...)gc.arc('fill','open',...)end,
+        fBow=function(...)gc.arc('fill','closed',...)end,
+
+        fRPol=function(...)GC.regularPolygon('fill',...)end,
+        dRPol=function(...)GC.regularPolygon('line',...)end,
+    }
+    local sizeLimit=gc.getSystemLimits().texturesize
+    function GC.DO(L)
+        gc.push()
+            ::REPEAT_tryAgain::
+            local success,canvas=pcall(gc.newCanvas,math.min(L[1],sizeLimit),math.min(L[2],sizeLimit))
+            if not success then
+                sizeLimit=math.floor(sizeLimit*.8)
+                goto REPEAT_tryAgain
+            end
+            gc.setCanvas(canvas)
+                gc.origin()
+                gc.clear(1,1,1,0)
+                gc.setColor(1,1,1)
+                gc.setLineWidth(1)
+                for i=3,#L do
+                    local cmd=L[i][1]
+                    if type(cmd)=='boolean'and cmd then
+                        table.remove(L[i],1)
+                        cmd=L[i][1]
+                    end
+                    if type(cmd)=='string'then
+                        local func=cmds[cmd]
+                        if type(func)=='string'then
+                            func=gc[func]
+                        end
+                        if func then
+                            func(unpack(L[i],2))
+                        else
+                            error("No gc command: "..cmd)
+                        end
+                    end
+                end
+            gc.setCanvas()
+        gc.pop()
+        return canvas
+    end
+end
+return GC

Zframework/image.lua

@@ -0,0 +1,25 @@
+local IMG={}
+function IMG.init(list)
+    IMG.init=nil
+
+    setmetatable(IMG,{__index=function(self,name)
+        if type(list[name])=='table'then
+            self[name]={}
+            for i=1,#list[name]do
+                self[name][i]=love.graphics.newImage(list[name][i])
+            end
+        elseif type(list[name])=='string'then
+            self[name]=love.graphics.newImage(list[name])
+        else
+            LOG("No IMG: "..name)
+            self[name]=PAPER
+        end
+        return self[name]
+    end})
+
+    function IMG.loadAll()
+        for k in next,list do local _=IMG[k]end
+        IMG.loadAll=nil
+    end
+end
+return IMG

Zframework/init.lua

@@ -0,0 +1,864 @@
+NONE={}function NULL()end PAPER=love.graphics.newCanvas(1,1)
+EDITING=""
+LOADED=false
+
+--Pure lua modules (basic)
+MATH=       require'Zframework.mathExtend'
+COLOR=      require'Zframework.color'
+TABLE=      require'Zframework.tableExtend'
+STRING=     require'Zframework.stringExtend'
+PROFILE=    require'Zframework.profile'
+JSON=       require'Zframework.json'
+TEST=       require'Zframework.test'
+
+do--Add pcall & MES for JSON lib
+    local encode,decode=JSON.encode,JSON.decode
+    JSON.encode=function(val)
+        local a,b=pcall(encode,val)
+        if a then
+            return b
+        elseif MES then
+            MES.traceback()
+        end
+    end
+    JSON.decode=function(str)
+        local a,b=pcall(decode,str)
+        if a then
+            return b
+        elseif MES then
+            MES.traceback()
+        end
+    end
+end
+
+--Pure lua modules (complex)
+LOG=        require'Zframework.log'
+REQUIRE=    require'Zframework.require'
+TASK=       require'Zframework.task'
+WS=         require'Zframework.websocket'
+LANG=       require'Zframework.languages'
+
+--Love-based modules (basic)
+FILE=       require'Zframework.file'
+WHEELMOV=   require'Zframework.wheelScroll'
+SCR=        require'Zframework.screen'
+SCN=        require'Zframework.scene'
+LIGHT=      require'Zframework.light'
+
+--Love-based modules (complex)
+GC=         require'Zframework.gcExtend'
+FONT=       require'Zframework.font'
+TEXT=       require'Zframework.text'
+SYSFX=      require'Zframework.sysFX'
+MES=        require'Zframework.message'
+BG=         require'Zframework.background'
+WIDGET=     require'Zframework.widget'
+VIB=        require'Zframework.vibrate'
+SFX=        require'Zframework.sfx'
+IMG=        require'Zframework.image'
+BGM=        require'Zframework.bgm'
+VOC=        require'Zframework.voice'
+
+local ms,kb=love.mouse,love.keyboard
+local KBisDown=kb.isDown
+
+local gc=love.graphics
+local gc_push,gc_pop,gc_clear,gc_discard=gc.push,gc.pop,gc.clear,gc.discard
+local gc_replaceTransform,gc_present=gc.replaceTransform,gc.present
+local gc_setColor,gc_setLineWidth=gc.setColor,gc.setLineWidth
+local gc_draw,gc_line,gc_circle,gc_print=gc.draw,gc.line,gc.circle,gc.print
+
+local WIDGET,SCR,SCN=WIDGET,SCR,SCN
+local xOy=SCR.xOy
+local ITP=xOy.inverseTransformPoint
+
+local max,min=math.max,math.min
+
+local devMode
+local mx,my,mouseShow,cursorSpd=640,360,false,0
+local jsState={}--map, joystickID->axisStates: {axisName->axisVal}
+local errData={}--list, each error create {mes={errMes strings},scene=sceneNameStr}
+
+local function drawCursor(_,x,y)
+    gc_setColor(1,1,1)
+    gc_setLineWidth(2)
+    gc_circle(ms.isDown(1)and'fill'or'line',x,y,6)
+end
+local showPowerInfo=true
+local showClickFX=true
+local discardCanvas=false
+local frameMul=100
+local sleepInterval=1/60
+local onQuit=NULL
+
+local batteryImg=GC.DO{31,20,
+    {'fRect',1,0,26,2},
+    {'fRect',1,18,26,2},
+    {'fRect',0,1,2,18},
+    {'fRect',26,1,2,18},
+    {'fRect',29,3,2,14},
+}
+local infoCanvas=gc.newCanvas(108,27)
+local function updatePowerInfo()
+    local state,pow=love.system.getPowerInfo()
+    gc.setCanvas(infoCanvas)
+    gc_push('transform')
+    gc.origin()
+    gc_clear(0,0,0,.25)
+    if state~='unknown'then
+        gc_setLineWidth(4)
+        if state=='nobattery'then
+            gc_setColor(1,1,1)
+            gc_setLineWidth(2)
+            gc_line(74,5,100,22)
+        elseif pow then
+            if state=='charging'then gc_setColor(0,1,0)
+            elseif pow>50 then       gc_setColor(1,1,1)
+            elseif pow>26 then       gc_setColor(1,1,0)
+            elseif pow==26 then      gc_setColor(.5,0,1)
+            else                     gc_setColor(1,0,0)
+            end
+            gc.rectangle('fill',76,6,pow*.22,14)
+            if pow<100 then
+                FONT.set(15)
+                gc.setColor(COLOR.D)
+                gc_print(pow,77,1)
+                gc_print(pow,77,3)
+                gc_print(pow,79,1)
+                gc_print(pow,79,3)
+                gc_setColor(COLOR.Z)
+                gc_print(pow,78,2)
+            end
+        end
+        gc_draw(batteryImg,73,3)
+    end
+    FONT.set(25)
+    gc_print(os.date("%H:%M"),3,-5)
+    gc_pop()
+    gc.setCanvas()
+end
+-------------------------------------------------------------
+local lastX,lastY=0,0--Last click pos
+local function _updateMousePos(x,y,dx,dy)
+    if SCN.swapping then return end
+    dx,dy=dx/SCR.k,dy/SCR.k
+    if SCN.mouseMove then SCN.mouseMove(x,y,dx,dy)end
+    if ms.isDown(1)then
+        WIDGET.drag(x,y,dx,dy)
+    else
+        WIDGET.cursorMove(x,y)
+    end
+end
+local function _triggerMouseDown(x,y,k)
+    if devMode==1 then
+        print(("(%d,%d)<-%d,%d ~~(%d,%d)<-%d,%d"):format(
+            x,y,
+            x-lastX,y-lastY,
+            math.floor(x/10)*10,math.floor(y/10)*10,
+            math.floor((x-lastX)/10)*10,math.floor((y-lastY)/10)*10
+        ))
+    end
+    if SCN.swapping then return end
+    if SCN.mouseDown then SCN.mouseDown(x,y,k)end
+    WIDGET.press(x,y,k)
+    lastX,lastY=x,y
+    if showClickFX then SYSFX.newTap(3,x,y)end
+end
+local function mouse_update(dt)
+    if not KBisDown('lctrl','rctrl')and KBisDown('up','down','left','right')then
+        local dx,dy=0,0
+        if KBisDown('up')then    dy=dy-cursorSpd end
+        if KBisDown('down')then  dy=dy+cursorSpd end
+        if KBisDown('left')then  dx=dx-cursorSpd end
+        if KBisDown('right')then dx=dx+cursorSpd end
+        mx=max(min(mx+dx,1280),0)
+        my=max(min(my+dy,720),0)
+        if my==0 or my==720 then
+            WIDGET.sel=false
+            WIDGET.drag(0,0,0,-dy)
+        end
+        _updateMousePos(mx,my,dx,dy)
+        cursorSpd=min(cursorSpd+dt*26,12.6)
+    else
+        cursorSpd=6
+    end
+end
+local function gp_update(js,dt)
+    local sx,sy=js._jsObj:getGamepadAxis('leftx'),js._jsObj:getGamepadAxis('lefty')
+    if math.abs(sx)>.1 or math.abs(sy)>.1 then
+        local dx,dy=0,0
+        if sy<-.1 then dy=dy+2*sy*cursorSpd end
+        if sy>.1 then  dy=dy+2*sy*cursorSpd end
+        if sx<-.1 then dx=dx+2*sx*cursorSpd end
+        if sx>.1 then  dx=dx+2*sx*cursorSpd end
+        mx=max(min(mx+dx,1280),0)
+        my=max(min(my+dy,720),0)
+        if my==0 or my==720 then
+            WIDGET.sel=false
+            WIDGET.drag(0,0,0,-dy)
+        end
+        _updateMousePos(mx,my,dx,dy)
+        cursorSpd=min(cursorSpd+dt*26,12.6)
+    else
+        cursorSpd=6
+    end
+end
+function love.mousepressed(x,y,k,touch)
+    if touch then return end
+    mouseShow=true
+    mx,my=ITP(xOy,x,y)
+    _triggerMouseDown(mx,my,k)
+end
+function love.mousemoved(x,y,dx,dy,touch)
+    if touch then return end
+    mouseShow=true
+    mx,my=ITP(xOy,x,y)
+    _updateMousePos(mx,my,dx,dy)
+end
+function love.mousereleased(x,y,k,touch)
+    if touch or SCN.swapping then return end
+    mx,my=ITP(xOy,x,y)
+    if SCN.mouseUp then SCN.mouseUp(mx,my,k)end
+    if WIDGET.sel then
+        WIDGET.release(mx,my)
+    else
+        if lastX and SCN.mouseClick and(mx-lastX)^2+(my-lastY)^2<62 then
+            SCN.mouseClick(mx,my,k)
+        end
+    end
+end
+function love.wheelmoved(x,y)
+    if SCN.swapping then return end
+    if SCN.wheelMoved then
+        SCN.wheelMoved(x,y)
+    else
+        WIDGET.unFocus()
+        WIDGET.drag(0,0,0,100*y)
+    end
+end
+
+function love.touchpressed(id,x,y)
+    mouseShow=false
+    if SCN.swapping then return end
+    if not SCN.mainTouchID then
+        SCN.mainTouchID=id
+        WIDGET.unFocus(true)
+        love.touchmoved(id,x,y,0,0)
+    end
+    x,y=ITP(xOy,x,y)
+    lastX,lastY=x,y
+    WIDGET.cursorMove(x,y)
+    if SCN.touchDown then SCN.touchDown(x,y,id)end
+    if kb.hasTextInput()then kb.setTextInput(false)end
+end
+function love.touchmoved(id,x,y,dx,dy)
+    if SCN.swapping then return end
+    x,y=ITP(xOy,x,y)
+    if SCN.touchMove then SCN.touchMove(x,y,dx/SCR.k,dy/SCR.k,id)end
+    WIDGET.drag(x,y,dx/SCR.k,dy/SCR.k)
+end
+function love.touchreleased(id,x,y)
+    if SCN.swapping then return end
+    x,y=ITP(xOy,x,y)
+    if id==SCN.mainTouchID then
+        WIDGET.press(x,y,1)
+        WIDGET.release(x,y)
+        WIDGET.cursorMove(x,y)
+        WIDGET.unFocus()
+        SCN.mainTouchID=false
+    end
+    if SCN.touchUp then SCN.touchUp(x,y,id)end
+    if(x-lastX)^2+(y-lastY)^2<62 then
+        if SCN.touchClick then SCN.touchClick(x,y)end
+        if showClickFX then SYSFX.newTap(3,x,y)end
+    end
+end
+
+local fnKey={NULL,NULL,NULL,NULL,NULL,NULL,NULL}
+local function noDevkeyPressed(key)
+    if key=='f1'then      fnKey[1]()
+    elseif key=='f2'then  fnKey[2]()
+    elseif key=='f3'then  fnKey[3]()
+    elseif key=='f4'then  fnKey[4]()
+    elseif key=='f5'then  fnKey[5]()
+    elseif key=='f6'then  fnKey[6]()
+    elseif key=='f7'then  fnKey[7]()
+    elseif key=='f8'then  devMode=nil MES.new('info',"DEBUG OFF",.2)
+    elseif key=='f9'then  devMode=1   MES.new('info',"DEBUG 1")
+    elseif key=='f10'then devMode=2   MES.new('info',"DEBUG 2")
+    elseif key=='f11'then devMode=3   MES.new('info',"DEBUG 3")
+    elseif key=='f12'then devMode=4   MES.new('info',"DEBUG 4")
+    elseif devMode==2 then
+        local W=WIDGET.sel
+        if W then
+            if key=='left'then W.x=W.x-10
+            elseif key=='right'then W.x=W.x+10
+            elseif key=='up'then W.y=W.y-10
+            elseif key=='down'then W.y=W.y+10
+            elseif key==','then W.w=W.w-10
+            elseif key=='.'then W.w=W.w+10
+            elseif key=='/'then W.h=W.h-10
+            elseif key=='\''then W.h=W.h+10
+            elseif key=='['then W.font=W.font-5
+            elseif key==']'then W.font=W.font+5
+            else return true
+            end
+        else
+            return true
+        end
+    else
+        return true
+    end
+end
+function love.keypressed(key,_,isRep)
+    mouseShow=false
+    if devMode and not noDevkeyPressed(key)then
+        return
+    elseif key=='f8'then
+        devMode=1
+        MES.new('info',"DEBUG ON",.2)
+    elseif key=='f11'then
+        SETTING.fullscreen=not SETTING.fullscreen
+        applySettings()
+        saveSettings()
+    elseif not SCN.swapping then
+        if EDITING==""and(not SCN.keyDown or SCN.keyDown(key,isRep))then
+            local W=WIDGET.sel
+            if key=='escape'and not isRep then
+                SCN.back()
+            elseif key=='up'or key=='down'or key=='left'or key=='right'then
+                mouseShow=true
+                if KBisDown('lctrl','rctrl')then
+                    if W and W.arrowKey then W:arrowKey(key)end
+                end
+            elseif key=='space'or key=='return'then
+                mouseShow=true
+                if not isRep then
+                    if showClickFX then SYSFX.newTap(3,mx,my)end
+                    _triggerMouseDown(mx,my,1)
+                end
+            else
+                if W and W.keypress then
+                    W:keypress(key)
+                end
+            end
+        end
+    end
+end
+function love.keyreleased(i)
+    if SCN.swapping then return end
+    if SCN.keyUp then SCN.keyUp(i)end
+end
+
+function love.textedited(texts)
+    EDITING=texts
+end
+function love.textinput(texts)
+    WIDGET.textinput(texts)
+end
+
+--analog sticks: -1, 0, 1 for neg, neutral, pos
+--triggers: 0 for released, 1 for pressed
+local jsAxisEventName={
+    leftx={'leftstick_left','leftstick_right'},
+    lefty={'leftstick_up','leftstick_down'},
+    rightx={'rightstick_left','rightstick_right'},
+    righty={'rightstick_up','rightstick_down'},
+    triggerleft='triggerleft',
+    triggerright='triggerright'
+}
+local gamePadKeys={'a','b','x','y','back','guide','start','leftstick','rightstick','leftshoulder','rightshoulder','dpup','dpdown','dpleft','dpright'}
+local dPadToKey={
+    dpup='up',
+    dpdown='down',
+    dpleft='left',
+    dpright='right',
+    start='return',
+    back='escape',
+}
+function love.joystickadded(JS)
+    table.insert(jsState,{
+        _id=JS:getID(),
+        _jsObj=JS,
+        leftx=0,lefty=0,
+        rightx=0,righty=0,
+        triggerleft=0,triggerright=0
+    })
+    MES.new('info',"Joystick added")
+end
+function love.joystickremoved(JS)
+    for i=1,#jsState do
+        if jsState[i]._jsObj==JS then
+            for j=1,#gamePadKeys do
+                if JS:isGamepadDown(gamePadKeys[j])then
+                    love.gamepadreleased(JS,gamePadKeys[j])
+                end
+            end
+            love.gamepadaxis(JS,'leftx',0)
+            love.gamepadaxis(JS,'lefty',0)
+            love.gamepadaxis(JS,'rightx',0)
+            love.gamepadaxis(JS,'righty',0)
+            love.gamepadaxis(JS,'triggerleft',-1)
+            love.gamepadaxis(JS,'triggerright',-1)
+            MES.new('info',"Joystick removed")
+            table.remove(jsState,i)
+            break
+        end
+    end
+end
+function love.gamepadaxis(JS,axis,val)
+    if jsState[1]and JS==jsState[1]._jsObj then
+        local js=jsState[1]
+        if axis=='leftx'or axis=='lefty'or axis=='rightx'or axis=='righty'then
+            local newVal=--range: [0,1]
+                val>.4 and 1 or
+                val<-.4 and -1 or
+                0
+            if newVal~=js[axis]then
+                if js[axis]==-1 then
+                    love.gamepadreleased(JS,jsAxisEventName[axis][1])
+                elseif js[axis]~=0 then
+                    love.gamepadreleased(JS,jsAxisEventName[axis][2])
+                end
+                if newVal==-1 then
+                    love.gamepadpressed(JS,jsAxisEventName[axis][1])
+                elseif newVal==1 then
+                    love.gamepadpressed(JS,jsAxisEventName[axis][2])
+                end
+                js[axis]=newVal
+            end
+        elseif axis=='triggerleft'or axis=='triggerright'then
+            local newVal=val>.3 and 1 or 0--range: [0,1]
+            if newVal~=js[axis]then
+                if newVal==1 then
+                    love.gamepadpressed(JS,jsAxisEventName[axis])
+                else
+                    love.gamepadreleased(JS,jsAxisEventName[axis])
+                end
+                js[axis]=newVal
+            end
+        end
+    end
+end
+function love.gamepadpressed(_,key)
+    mouseShow=false
+    if not SCN.swapping then
+        local cursorCtrl
+        if SCN.gamepadDown then
+            cursorCtrl=SCN.gamepadDown(key)
+        elseif SCN.keyDown then
+            cursorCtrl=SCN.keyDown(dPadToKey[key]or key)
+        else
+            cursorCtrl=true
+        end
+        if cursorCtrl then
+            key=dPadToKey[key]or key
+            mouseShow=true
+            local W=WIDGET.sel
+            if key=='back'then
+                SCN.back()
+            elseif key=='up'or key=='down'or key=='left'or key=='right'then
+                mouseShow=true
+                if W and W.arrowKey then W:arrowKey(key)end
+            elseif key=='return'then
+                mouseShow=true
+                if showClickFX then SYSFX.newTap(3,mx,my)end
+                _triggerMouseDown(mx,my,1)
+            else
+                if W and W.keypress then
+                    W:keypress(key)
+                end
+            end
+        end
+    end
+end
+function love.gamepadreleased(_,i)
+    if SCN.swapping then return end
+    if SCN.gamepadUp then SCN.gamepadUp(i)end
+end
+
+function love.filedropped(file)
+    if SCN.fileDropped then SCN.fileDropped(file)end
+end
+function love.directorydropped(dir)
+    if SCN.directoryDropped then SCN.directoryDropped(dir)end
+end
+local autoGCcount=0
+function love.lowmemory()
+    collectgarbage()
+    if autoGCcount<3 then
+        autoGCcount=autoGCcount+1
+        MES.new('check',"[auto GC] low MEM 设备内存过低")
+    end
+end
+
+local onResize=NULL
+function love.resize(w,h)
+    if SCR.w==w and SCR.h==h then return end
+    SCR.resize(w,h)
+    if BG.resize then BG.resize(w,h)end
+    if SCN.resize then SCN.resize(w,h)end
+    WIDGET.resize(w,h)
+    FONT.reset()
+    onResize(w,h)
+end
+
+local onFocus=NULL
+function love.focus(f)onFocus(f)end
+
+local yield=coroutine.yield
+local function secondLoopThread()
+    local mainLoop=love.run()
+    repeat yield()until mainLoop()
+end
+function love.errorhandler(msg)
+    if type(msg)~='string'then
+        msg="Unknown error"
+    elseif msg:find("Invalid UTF-8")and text then
+        msg=text.tryAnotherBuild
+    end
+
+    --Generate error message
+    local err={"Error:"..msg}
+    local c=2
+    for l in debug.traceback("",2):gmatch("(.-)\n")do
+        if c>2 then
+            if not l:find("boot")then
+                err[c]=l:gsub("^\t*","")
+                c=c+1
+            end
+        else
+            err[2]="Traceback"
+            c=3
+        end
+    end
+    print(table.concat(err,"\n",1,c-2))
+
+    --Reset something
+    love.audio.stop()
+    gc.reset()
+
+    if LOADED and #errData<3 then
+        BG.set('none')
+        local scn=SCN and SCN.cur or"NULL"
+        table.insert(errData,{mes=err,scene=scn})
+
+        --Write messages to log file
+        love.filesystem.append('conf/error.log',
+            os.date("%Y/%m/%d %A %H:%M:%S\n")..
+            #errData.." crash(es) "..love.system.getOS().."-"..VERSION.string.."  scene: "..scn.."\n"..
+            table.concat(err,"\n",1,c-2).."\n\n"
+        )
+
+        --Get screencapture
+        gc.captureScreenshot(function(_)errData[#errData].shot=gc.newImage(_)end)
+        gc.present()
+
+        --Create a new mainLoop thread to keep game alive
+        local status,resume=coroutine.status,coroutine.resume
+        local loopThread=coroutine.create(secondLoopThread)
+        local res,threadErr
+        repeat
+            res,threadErr=resume(loopThread)
+        until status(loopThread)=='dead'
+        if not res then
+            love.errorhandler(threadErr)
+            return
+        end
+    else
+        ms.setVisible(true)
+
+        local errorMsg
+        errorMsg=LOADED and
+            "Too many errors or fatal error occured.\nPlease restart the game."or
+            "An error has occurred during loading.\nError info has been created, and you can send it to the author."
+        while true do
+            love.event.pump()
+            for E,a,b in love.event.poll()do
+                if E=='quit'or a=='escape'then
+                    return true
+                elseif E=='resize'then
+                    SCR.resize(a,b)
+                end
+            end
+            gc_clear(.3,.5,.9)
+            gc_push('transform')
+            gc_replaceTransform(SCR.xOy)
+            FONT.set(100)gc_print(":(",100,0,0,1.2)
+            FONT.set(40)gc.printf(errorMsg,100,160,SCR.w0-100)
+            FONT.set(20)
+            gc_print(love.system.getOS().."-"..VERSION.string.."                          scene:"..(SCN and SCN.cur or"NULL"),100,660)
+            gc.printf(err[1],100,360,1260-100)
+            gc_print("TRACEBACK",100,450)
+            for i=4,#err-2 do
+                gc_print(err[i],100,400+20*i)
+            end
+            gc_pop()
+            gc_present()
+            love.timer.sleep(.26)
+        end
+    end
+end
+love.threaderror=nil
+
+love.draw,love.update=nil--remove default draw/update
+
+local devColor={
+    COLOR.Z,
+    COLOR.lM,
+    COLOR.lG,
+    COLOR.lB,
+}
+local WS=WS
+local WSnames={'app','user','play','stream','chat','manage'}
+local wsImg={}do
+    local L={78,18,
+        {'clear',1,1,1,0},
+        {'setCL',1,1,1,.3},
+        {'fRect',60,0,18,18},
+    }
+    for i=0,59 do
+        table.insert(L,{'setCL',1,1,1,i*.005})
+        table.insert(L,{'fRect',i,0,1,18})
+    end
+    wsImg.bottom=GC.DO(L)
+    wsImg.dead=GC.DO{20,20,
+        {'rawFT',20},
+        {'setCL',1,.3,.3},
+        {'mText',"X",11,-1},
+    }
+    wsImg.connecting=GC.DO{20,20,
+        {'rawFT',20},
+        {'setLW',3},
+        {'mText',"C",11,-1},
+    }
+    wsImg.running=GC.DO{20,20,
+        {'rawFT',20},
+        {'setCL',.5,1,0},
+        {'mText',"R",11,-1},
+    }
+end
+
+function love.run()
+    local love=love
+
+    local BG=BG
+    local TEXT_update,TEXT_draw=TEXT.update,TEXT.draw
+    local MES_update,MES_draw=MES.update,MES.draw
+    local WS_update=WS.update
+    local TASK_update=TASK.update
+    local SYSFX_update,SYSFX_draw=SYSFX.update,SYSFX.draw
+    local WIDGET_update,WIDGET_draw=WIDGET.update,WIDGET.draw
+    local STEP,WAIT=love.timer.step,love.timer.sleep
+    local FPS,MINI=love.timer.getFPS,love.window.isMinimized
+    local PUMP,POLL=love.event.pump,love.event.poll
+
+    local timer,VERSION=love.timer.getTime,VERSION
+
+    local frameTimeList={}
+    local lastFrame=timer()
+    local lastFreshPow=lastFrame
+    local FCT=0--Framedraw counter, from 0~99
+
+    love.resize(gc.getWidth(),gc.getHeight())
+
+    --Scene Launch
+    while #SCN.stack>0 do SCN.pop()end
+    SCN.push('quit','slowFade')
+    SCN.init(#errData==0 and'load'or'error')
+
+    return function()
+        local _
+
+        local time=timer()
+        local dt=time-lastFrame
+        lastFrame=time
+
+        --EVENT
+        PUMP()
+        for N,a,b,c,d,e in POLL()do
+            if love[N]then
+                love[N](a,b,c,d,e)
+            elseif N=='quit'then
+                onQuit()
+                return a or true
+            end
+        end
+
+        --UPDATE
+        STEP()
+        if mouseShow then mouse_update(dt)end
+        if next(jsState)then gp_update(jsState[1],dt)end
+        VOC.update()
+        BG.update(dt)
+        TEXT_update(dt)
+        MES_update(dt)
+        WS_update(dt)
+        TASK_update(dt)
+        SYSFX_update(dt)
+        if SCN.update then SCN.update(dt)end
+        if SCN.swapping then SCN.swapUpdate(dt)end
+        WIDGET_update(dt)
+
+        --DRAW
+        if not MINI()then
+            FCT=FCT+frameMul
+            if FCT>=100 then
+                FCT=FCT-100
+
+                gc_replaceTransform(SCR.origin)
+                    gc_setColor(1,1,1)
+                    BG.draw()
+                gc_replaceTransform(SCR.xOy)
+                    if SCN.draw then SCN.draw()end
+                    WIDGET_draw()
+                    SYSFX_draw()
+                    TEXT_draw()
+
+                    --Draw cursor
+                    if mouseShow then drawCursor(time,mx,my)end
+                gc_replaceTransform(SCR.origin)
+                    MES_draw()
+
+                    --Draw power info.
+                    if showPowerInfo then
+                        gc_setColor(1,1,1)
+                        gc_draw(infoCanvas,SCR.safeX,0,0,SCR.k)
+                    end
+
+                    --Draw scene swapping animation
+                    if SCN.swapping then
+                        gc_setColor(1,1,1)
+                        _=SCN.stat
+                        _.draw(_.time)
+                    end
+                gc_replaceTransform(SCR.xOy_d)
+                    --Draw Version string
+                    gc_setColor(.9,.9,.9,.42)
+                    FONT.set(20)
+                    mStr(VERSION.string,0,-30)
+                gc_replaceTransform(SCR.xOy_dl)
+                    local safeX=SCR.safeX/SCR.k
+
+                    --Draw FPS
+                    FONT.set(15)
+                    gc_setColor(1,1,1)
+                    gc_print(FPS(),safeX+5,-20)
+
+                    --Debug info.
+                    if devMode then
+                        --Left-down infos
+                        gc_setColor(devColor[devMode])
+                        gc_print("MEM     "..gcinfo(),safeX+5,-40)
+                        gc_print("Tasks   "..TASK.getCount(),safeX+5,-60)
+                        gc_print("Voices  "..VOC.getQueueCount(),safeX+5,-80)
+
+                        --Update & draw frame time
+                        table.insert(frameTimeList,1,dt)table.remove(frameTimeList,126)
+                        gc_setColor(1,1,1,.3)
+                        for i=1,#frameTimeList do
+                            gc.rectangle('fill',150+2*i,-20,2,-frameTimeList[i]*4000)
+                        end
+
+                        --Cursor pos disp
+                        gc_replaceTransform(SCR.origin)
+                            local x,y=SCR.xOy:transformPoint(mx,my)
+                            gc_setLineWidth(1)
+                            gc_line(x,0,x,SCR.h)
+                            gc_line(0,y,SCR.w,y)
+                            local t=math.floor(mx+.5)..","..math.floor(my+.5)
+                            gc.setColor(COLOR.D)
+                            gc_print(t,x+1,y)
+                            gc_print(t,x+1,y-1)
+                            gc_print(t,x+2,y-1)
+                            gc_setColor(COLOR.Z)
+                            gc_print(t,x+2,y)
+
+                        gc_replaceTransform(SCR.xOy_dr)
+                            --Websocket status
+                            for i=1,6 do
+                                local status=WS.status(WSnames[i])
+                                gc_setColor(1,1,1)
+                                gc.draw(wsImg.bottom,-79,20*i-139)
+                                if status=='dead'then
+                                    gc_draw(wsImg.dead,-20,20*i-140)
+                                elseif status=='connecting'then
+                                    gc_setColor(1,1,1,.5+.3*math.sin(time*6.26))
+                                    gc_draw(wsImg.connecting,-20,20*i-140)
+                                elseif status=='running'then
+                                    gc_draw(wsImg.running,-20,20*i-140)
+                                end
+                                local t1,t2,t3=WS.getTimers(WSnames[i])
+                                gc_setColor(.9,.9,.9,t1)gc.rectangle('fill',-60,20*i-122,-16,-16)
+                                gc_setColor(.3,1,.3,t2)gc.rectangle('fill',-42,20*i-122,-16,-16)
+                                gc_setColor(1,.2,.2,t3)gc.rectangle('fill',-24,20*i-122,-16,-16)
+                            end
+                    end
+                gc_present()
+
+                --SPEED UPUPUP!
+                if discardCanvas then gc_discard()end
+            end
+        end
+
+        --Fresh power info.
+        if time-lastFreshPow>2.6 then
+            if showPowerInfo then
+                updatePowerInfo()
+                lastFreshPow=time
+            end
+            if gc.getWidth()~=SCR.w or gc.getHeight()~=SCR.h then
+                love.resize(gc.getWidth(),gc.getHeight())
+            end
+        end
+
+        --Slow devmode
+        if devMode then
+            if devMode==3 then
+                WAIT(.1)
+            elseif devMode==4 then
+                WAIT(.5)
+            end
+        end
+
+        _=timer()-lastFrame
+        if _<sleepInterval*.9626 then WAIT(sleepInterval*.9626-_)end
+        while timer()-lastFrame<sleepInterval do end
+    end
+end
+
+local Z={}
+
+function Z.getJsState()return jsState end
+function Z.getErr(i)
+    if i=='#'then
+        return errData[#errData]
+    elseif i then
+        return errData[i]
+    else
+        return errData
+    end
+end
+
+function Z.setPowerInfo(bool)showPowerInfo=bool end
+function Z.setCleanCanvas(bool)discardCanvas=bool end
+function Z.setFrameMul(n)frameMul=n end
+function Z.setMaxFPS(fps)sleepInterval=1/fps end
+function Z.setClickFX(bool)showClickFX=bool end
+
+--[Warning] Color and line width is uncertain value, set it in the function.
+function Z.setCursor(func)drawCursor=func end
+
+--Change F1~F7 events of devmode (F8 mode)
+function Z.setOnFnKeys(list)
+    assert(type(list)=='table',"Z.setOnFnKeys(list): list must be a table.")
+    for i=1,7 do fnKey[i]=type(list[i])=='function'and list[i]or NULL end
+end
+
+function Z.setOnFocus(func)onFocus=assert(type(func)=='function'and func,"Z.setOnFocus(func): func must be a function")end
+
+function Z.setOnResize(func)onResize=assert(type(func)=='function'and func,"Z.setOnResize(func): func must be a function")end
+
+function Z.setOnQuit(func)onQuit=assert(type(func)=='function'and func,"Z.setOnQuit(func): func must be a function")end
+
+return Z

Zframework/json.lua

@@ -0,0 +1,340 @@
+-- json.lua
+
+-- Copyright (c) 2020 rxi
+
+-- Permission is hereby granted, free of charge, to any person obtaining a copy of
+-- this software and associated documentation files (the "Software"), to deal in
+-- the Software without restriction, including without limitation the rights to
+-- use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
+-- of the Software, and to permit persons to whom the Software is furnished to do
+-- so, subject to the following conditions:
+
+-- The above copyright notice and this permission notice shall be included in all
+-- copies or substantial portions of the Software.
+
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+-- SOFTWARE.
+
+-- Editted by MrZ
+
+local ins,char=table.insert,string.char
+local json = {}
+
+-------------------------------------------------------------------------------
+-- Encode
+-------------------------------------------------------------------------------
+
+local _encode
+
+local escape_char_map = {
+    ["\\"] = "\\",
+    ["\""] = "\"",
+    ["\b"] = "b",
+    ["\f"] = "f",
+    ["\n"] = "n",
+    ["\r"] = "r",
+    ["\t"] = "t"
+}
+
+local escape_char_map_inv = {["/"] = "/"}
+for k, v in pairs(escape_char_map) do escape_char_map_inv[v] = k end
+
+local function escape_char(c)
+    return "\\" .. (escape_char_map[c] or string.format("u%04x", c:byte()))
+end
+
+local function encode_nil() return "null" end
+
+local function encode_table(val, stack)
+    local res = {}
+    stack = stack or {}
+
+    -- Circular reference?
+    if stack[val] then error("circular reference") end
+
+    stack[val] = true
+
+    if rawget(val, 1) ~= nil or next(val) == nil then
+        -- Treat as array -- check keys are valid and it is not sparse
+        local n = 0
+        for k in pairs(val) do
+            if type(k) ~= 'number' then
+                error("invalid table: mixed or invalid key types")
+            end
+            n = n + 1
+        end
+        if n ~= #val then error("invalid table: sparse array") end
+        -- Encode
+        for _, v in ipairs(val) do ins(res, _encode(v, stack)) end
+        stack[val] = nil
+        return "[" .. table.concat(res, ",") .. "]"
+
+    else
+        -- Treat as an object
+        for k, v in pairs(val) do
+            if type(k) ~= 'string' then
+                error("invalid table: mixed or invalid key types")
+            end
+            ins(res, _encode(k, stack) .. ":" .. _encode(v, stack))
+        end
+        stack[val] = nil
+        return "{" .. table.concat(res, ",") .. "}"
+    end
+end
+
+local function encode_string(val)
+    return '"' .. val:gsub('[%z\1-\31\\"]', escape_char) .. '"'
+end
+
+local function encode_number(val)
+    -- Check for NaN, -inf and inf
+    if val ~= val or val <= -math.huge or val >= math.huge then
+        error("unexpected number value '" .. tostring(val) .. "'")
+    end
+    return string.format("%.14g", val)
+end
+
+local type_func_map = {
+    ['nil'] = encode_nil,
+    ['table'] = encode_table,
+    ['string'] = encode_string,
+    ['number'] = encode_number,
+    ['boolean'] = tostring
+}
+
+_encode = function(val, stack)
+    local t = type(val)
+    local f = type_func_map[t]
+    if f then return f(val, stack) end
+    error("unexpected type '" .. t .. "'")
+end
+
+json.encode=_encode
+
+-------------------------------------------------------------------------------
+-- Decode
+-------------------------------------------------------------------------------
+
+local parse
+
+local function create_set(...)
+    local res = {}
+    for i = 1, select("#", ...) do res[select(i, ...)] = true end
+    return res
+end
+
+local space_chars = create_set(" ", "\t", "\r", "\n")
+local delim_chars = create_set(" ", "\t", "\r", "\n", "]", "}", ",")
+local escape_chars = create_set("\\", "/", '"', "b", "f", "n", "r", "t", "u")
+local literals = create_set("true", "false", "null")
+
+local literal_map = {["true"] = true, ["false"] = false, ["null"] = nil}
+
+local function next_char(str, idx, set, negate)
+    for i = idx, #str do if set[str:sub(i, i)] ~= negate then return i end end
+    return #str + 1
+end
+
+local function decode_error(str, idx, msg)
+    local line_count = 1
+    local col_count = 1
+    for i = 1, idx - 1 do
+        col_count = col_count + 1
+        if str:sub(i, i) == "\n" then
+            line_count = line_count + 1
+            col_count = 1
+        end
+    end
+    error(string.format("%s at line %d col %d", msg, line_count, col_count))
+end
+
+local function codepoint_to_utf8(n)
+    -- http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=iws-appendixa
+    local f = bit.rshift
+    if n <= 0x7f then
+        return char(n)
+    elseif n <= 0x7ff then
+        return char(f(n, 6) + 192, n % 64 + 128)
+    elseif n <= 0xffff then
+        return char(f(n, 12) + 224, f(n % 4096, 6) + 128, n % 64 + 128)
+    elseif n <= 0x10ffff then
+        return char(f(n, 18) + 240, f(n % 262144, 12) + 128, f(n % 4096, 6) + 128, n % 64 + 128)
+    end
+    error(string.format("invalid unicode codepoint '%x'", n))
+end
+
+local function parse_unicode_escape(s)
+    local n1 = tonumber(s:sub(1, 4), 16)
+    local n2 = tonumber(s:sub(7, 10), 16)
+    -- Surrogate pair?
+    if n2 then
+        return
+            codepoint_to_utf8((n1 - 0xd800) * 0x400 + (n2 - 0xdc00) + 0x10000)
+    else
+        return codepoint_to_utf8(n1)
+    end
+end
+
+local function parse_string(str, i)
+    local res = ""
+    local j = i + 1
+    local k = j
+
+    while j <= #str do
+        local x = str:byte(j)
+
+        if x < 32 then
+            decode_error(str, j, "control character in string")
+
+        elseif x == 92 then -- `\`: Escape
+            res = res .. str:sub(k, j - 1)
+            j = j + 1
+            local c = str:sub(j, j)
+            if c == "u" then
+                local hex = str:match("^[dD][89aAbB]%x%x\\u%x%x%x%x", j + 1) or
+                                str:match("^%x%x%x%x", j + 1) or
+                                decode_error(str, j - 1,
+                                            "invalid unicode escape in string")
+                res = res .. parse_unicode_escape(hex)
+                j = j + #hex
+            else
+                if not escape_chars[c] then
+                    decode_error(str, j - 1,
+                                "invalid escape char '" .. c .. "' in string")
+                end
+                res = res .. escape_char_map_inv[c]
+            end
+            k = j + 1
+
+        elseif x == 34 then -- `"`: End of string
+            res = res .. str:sub(k, j - 1)
+            return res, j + 1
+        end
+
+        j = j + 1
+    end
+
+    decode_error(str, i, "expected closing quote for string")
+end
+
+local function parse_number(str, i)
+    local x = next_char(str, i, delim_chars)
+    local s = str:sub(i, x - 1)
+    local n = tonumber(s)
+    if not n then decode_error(str, i, "invalid number '" .. s .. "'") end
+    return n, x
+end
+
+local function parse_literal(str, i)
+    local x = next_char(str, i, delim_chars)
+    local word = str:sub(i, x - 1)
+    if not literals[word] then
+        decode_error(str, i, "invalid literal '" .. word .. "'")
+    end
+    return literal_map[word], x
+end
+
+local function parse_array(str, i)
+    local res = {}
+    local n = 1
+    i = i + 1
+    while 1 do
+        local x
+        i = next_char(str, i, space_chars, true)
+        -- Empty / end of array?
+        if str:sub(i, i) == "]" then
+            i = i + 1
+            break
+        end
+        -- Read token
+        x, i = parse(str, i)
+        res[n] = x
+        n = n + 1
+        -- Next token
+        i = next_char(str, i, space_chars, true)
+        local chr = str:sub(i, i)
+        i = i + 1
+        if chr == "]" then break end
+        if chr ~= "," then decode_error(str, i, "expected ']' or ','") end
+    end
+    return res, i
+end
+
+local function parse_object(str, i)
+    local res = {}
+    i = i + 1
+    while 1 do
+        local key, val
+        i = next_char(str, i, space_chars, true)
+        -- Empty / end of object?
+        if str:sub(i, i) == "}" then
+            i = i + 1
+            break
+        end
+        -- Read key
+        if str:sub(i, i) ~= '"' then
+            decode_error(str, i, "expected string for key")
+        end
+        key, i = parse(str, i)
+        -- Read ':' delimiter
+        i = next_char(str, i, space_chars, true)
+        if str:sub(i, i) ~= ":" then
+            decode_error(str, i, "expected ':' after key")
+        end
+        i = next_char(str, i + 1, space_chars, true)
+        -- Read value
+        val, i = parse(str, i)
+        -- Set
+        res[key] = val
+        -- Next token
+        i = next_char(str, i, space_chars, true)
+        local chr = str:sub(i, i)
+        i = i + 1
+        if chr == "}" then break end
+        if chr ~= "," then decode_error(str, i, "expected '}' or ','") end
+    end
+    return res, i
+end
+
+local char_func_map = {
+    ['"'] = parse_string,
+    ["0"] = parse_number,
+    ["1"] = parse_number,
+    ["2"] = parse_number,
+    ["3"] = parse_number,
+    ["4"] = parse_number,
+    ["5"] = parse_number,
+    ["6"] = parse_number,
+    ["7"] = parse_number,
+    ["8"] = parse_number,
+    ["9"] = parse_number,
+    ["-"] = parse_number,
+    ["t"] = parse_literal,
+    ["f"] = parse_literal,
+    ["n"] = parse_literal,
+    ["["] = parse_array,
+    ["{"] = parse_object
+}
+
+function parse(str, idx)
+    local chr = str:sub(idx, idx)
+    local f = char_func_map[chr]
+    if f then return f(str, idx) end
+    decode_error(str, idx, "unexpected character '" .. chr .. "'")
+end
+
+function json.decode(str)
+    if type(str) ~= 'string' then
+        error("expected argument of type string, got " .. type(str))
+    end
+    local res, idx = parse(str, next_char(str, 1, space_chars, true))
+    idx = next_char(str, idx, space_chars, true)
+    if idx <= #str then decode_error(str, idx, "trailing garbage") end
+    return res
+end
+return json

Zframework/languages.lua

@@ -0,0 +1,57 @@
+local LANG={}
+--ONLY FIRST CALL MAKE SENSE
+--Create LANG.get() and LANG.addScene()
+function LANG.init(defaultLang,langList,publicText,pretreatFunc)
+    local function _langFallback(T0,T)
+        for k,v in next,T0 do
+            if type(v)=='table'and not v.refuseCopy then--refuseCopy: just copy pointer, not contents
+                if not T[k]then T[k]={}end
+                if type(T[k])=='table'then
+                    _langFallback(v,T[k])
+                end
+            elseif not T[k]then
+                T[k]=v
+            end
+        end
+    end
+
+    --Set public text
+    if publicText then
+        for _,L in next,langList do
+            for key,list in next,publicText do L[key]=list end
+        end
+    end
+
+    --Fallback to default language
+    for name,L in next,langList do
+        if name~=defaultLang then
+            _langFallback(langList[L.fallback or defaultLang],L)
+        end
+    end
+
+    --Custom pretreatment for each language
+    if pretreatFunc then
+        for _,L in next,langList do
+            pretreatFunc(L)
+        end
+    end
+
+    function LANG.get(l)
+        if not langList[l]then
+            LOG("Wrong language: "..tostring(l))
+            l=defaultLang
+        end
+        return langList[l]
+    end
+
+    function LANG.addScene(name)
+        for _,L in next,langList do
+            if L.WidgetText and not L.WidgetText[name]then
+                L.WidgetText[name]={}
+            end
+        end
+    end
+
+    function LANG.init()end
+end
+return LANG

Zframework/light/init.lua

@@ -0,0 +1,86 @@
+--LIGHT MODULE (Optimized by MrZ, Original on github/LÖVE community/simple-love-lights)
+--Heavily based on mattdesl's libGDX implementation:
+--https://github.com/mattdesl/lwjgl-basics/wiki/2D-Pixel-Perfect-Shadows
+local gc=love.graphics
+local clear,gc_translate=gc.clear,gc.translate
+local gc_setCanvas,gc_setShader=gc.setCanvas,gc.setShader
+local gc_setColor,gc_draw=gc.setColor,gc.draw
+
+local shadowMapShader=gc.newShader('Zframework/light/shadowMap.glsl')--Shader for caculating the 1D shadow map.
+local lightRenderShader=gc.newShader('Zframework/light/lightRender.glsl')--Shader for rendering blurred lights and shadows.
+local Lights={}--Lightsource objects
+local function move(L,x,y)
+    L.x,L.y=x,y
+end
+local function setPow(L,pow)
+    L.size=pow
+end
+local function drawLight(L)
+    local s=L.size
+
+    --Initialization
+    gc_setCanvas(L.blackCanvas)clear()
+    gc_setCanvas(L.shadowCanvas)clear()
+    gc_setCanvas(L.renderCanvas)clear()
+    lightRenderShader:send('xresolution',s)
+    shadowMapShader:send('yresolution',s)
+
+    --Get up-left of light
+    local X=L.x-s*.5
+    local Y=L.y-s*.5
+
+    --Render solid
+    gc_translate(-X,-Y)
+    L.blackCanvas:renderTo(L.blackFn)
+    gc_translate(X,Y)
+
+    --Render shade canvas by solid
+    gc_setShader(shadowMapShader)
+    gc_setCanvas(L.shadowCanvas)
+    gc_draw(L.blackCanvas)
+
+    --Render light canvas by shade
+    gc_setShader(lightRenderShader)
+    gc_setCanvas(L.renderCanvas)
+    gc_draw(L.shadowCanvas,0,0,0,1,s)
+
+    --Ready to final render
+    gc_setShader()gc_setCanvas()gc.setBlendMode('add')
+
+    --Render to screen
+    gc_draw(L.renderCanvas,X,Y+s,0,1,-1)
+
+    --Reset
+    gc.setBlendMode('alpha')
+end
+
+local LIGHT={}
+function LIGHT.draw()
+    gc_setColor(1,1,1)
+    for i=1,#Lights do
+        drawLight(Lights[i])
+    end
+end
+function LIGHT.clear()
+    for i=1,#Lights do
+        Lights[i].blackCanvas:release()
+        Lights[i].shadowCanvas:release()
+        Lights[i].renderCanvas:release()
+        Lights[i]=nil
+    end
+end
+function LIGHT.add(x,y,radius,solidFunc)
+    local id=#Lights+1
+    Lights[id]={
+        id=id,
+        x=x,y=y,size=radius,
+        blackCanvas=gc.newCanvas(radius,radius),--Solid canvas
+        shadowCanvas=gc.newCanvas(radius,1),--1D vis-depth canvas
+        renderCanvas=gc.newCanvas(radius,radius),--Light canvas
+        blackFn=solidFunc,--Solid draw function
+
+        move=move,
+        setPow=setPow,
+    }
+end
+return LIGHT

Zframework/light/lightRender.glsl

@@ -0,0 +1,29 @@
+#define PI 3.14159
+extern float xresolution;
+// Sample from 1D vis-depth map
+float samp(vec2 coord,float r,Image u_texture){
+    return step(r,Texel(u_texture,coord).r);
+}
+vec4 effect(vec4 color,Image tex,vec2 tex_coords,vec2 screen_coords){
+    // Cartesian to polar, y of 1D sample is always 0
+    vec2 norm=tex_coords.st*2.-1.;
+    vec2 tc=vec2((atan(norm.y,norm.x)+PI)/(2.*PI),0.);
+    float r=length(norm);
+
+    // Enlarge blur parameter by distance, light scattering simulation
+    float blur=(1./xresolution)*smoothstep(0.3,1.,r);
+
+    // Simple Gaussian blur
+    float sum=// Brightness(0~1)
+        samp(vec2(tc.x-3.*blur,tc.y),r,tex)*0.1
+        +samp(vec2(tc.x-2.*blur,tc.y),r,tex)*0.13
+        +samp(vec2(tc.x-1.*blur,tc.y),r,tex)*0.17
+
+        +samp(tc,r,tex)*0.2// The center tex coord, which gives us hard shadows.
+        +samp(vec2(tc.x+1.*blur,tc.y),r,tex)*0.17
+        +samp(vec2(tc.x+2.*blur,tc.y),r,tex)*0.13
+        +samp(vec2(tc.x+3.*blur,tc.y),r,tex)*0.1;
+
+    // Multiply the distance to get a soft fading
+    return vec4(vec3(1.),sum*smoothstep(1.,0.,r));
+}

Zframework/light/shadowMap.glsl

@@ -0,0 +1,20 @@
+#define PI 3.14
+extern float yresolution;
+vec4 effect(vec4 color,Image tex,vec2 tex_coords,vec2 screen_coords){
+    // Iterate through the occluder map's y-axis.
+    for(float y=0.;y<yresolution;y++){
+        // Cartesian to polar
+        // y/yresolution=distance to light source(0~1)
+        vec2 norm=vec2(tex_coords.s,y/yresolution)*2.-1.;
+        float theta=PI*1.5+norm.x*PI;
+        float r=(1.+norm.y)*0.5;
+
+        //sample from solid
+        if(
+            Texel(tex,(
+                vec2(-r*sin(theta),-r*cos(theta))*0.5+0.5// Coord of solid sampling
+            )).a>0.1
+        )return vec4(vec3(y/yresolution),1.);// Collision check, alpha>0.1 means transparent
+    }
+    return vec4(1.);// Return max distance 1
+}

Zframework/log.lua

@@ -0,0 +1,20 @@
+local ins=table.insert
+
+local logs={os.date("Techmino logs  %Y/%m/%d %A")}
+
+local function log(message)
+    ins(logs,os.date("[%H:%M:%S] ")..message)
+end
+
+local LOG=setmetatable({logs=logs},{
+    __call=function(_,message)
+        print(message)
+        log(message)
+    end
+})
+
+function LOG.read()
+    return table.concat(logs,"\n")
+end
+
+return LOG

Zframework/mathExtend.lua

@@ -0,0 +1,37 @@
+local MATH={}for k,v in next,math do MATH[k]=v end
+
+local rnd=math.random
+
+MATH.tau=2*math.pi
+
+function MATH.sign(a)
+    return a>0 and 1 or a<0 and -1 or 0
+end
+
+function MATH.roll(chance)
+    return rnd()<(chance or .5)
+end
+
+function MATH.coin(a,b)
+    if rnd()<.5 then
+        return a
+    else
+        return b
+    end
+end
+
+function MATH.interval(v,low,high)
+    if v<=low then
+        return low
+    elseif v>=high then
+        return high
+    else
+        return v
+    end
+end
+
+function MATH.expApproach(a,b,k)
+    return b+(a-b)*2.718281828459045^-k
+end
+
+return MATH

Zframework/message.lua

@@ -0,0 +1,148 @@
+local gc=love.graphics
+local gc_push,gc_pop=gc.push,gc.pop
+local gc_translate,gc_setColor,gc_draw=gc.translate,gc.setColor,gc.draw
+
+local ins,rem=table.insert,table.remove
+local max=math.max
+
+local mesList={}
+local mesIcon={
+    check=GC.DO{40,40,
+        {'setLW',10},
+        {'setCL',0,0,0},
+        {'line',4,19,15,30,36,9},
+        {'setLW',6},
+        {'setCL',.7,1,.6},
+        {'line',5,20,15,30,35,10},
+    },
+    info=GC.DO{40,40,
+        {'setCL',.2,.25,.85},
+        {'fCirc',20,20,15},
+        {'setCL',1,1,1},
+        {'setLW',2},
+        {'dCirc',20,20,15},
+        {'fRect',18,11,4,4},
+        {'fRect',18,17,4,12},
+    },
+    broadcast=GC.DO{40,40,
+        {'setCL',1,1,1},
+        {'fRect',2,4,36,26,3},
+        {'fPoly',2,27,2,37,14,25},
+        {'setCL',.5,.5,.5},
+        {'fRect',6,11,4,4,1},{'fRect',14,11,19,4,1},
+        {'fRect',6,19,4,4,1},{'fRect',14,19,19,4,1},
+    },
+    warn=GC.DO{40,40,
+        {'setCL',.95,.83,.4},
+        {'fPoly',20.5,1,0,38,40,38},
+        {'setCL',0,0,0},
+        {'dPoly',20.5,1,0,38,40,38},
+        {'fRect',17,10,7,18,2},
+        {'fRect',17,29,7,7,2},
+        {'setCL',1,1,1},
+        {'fRect',18,11,5,16,2},
+        {'fRect',18,30,5,5,2},
+    },
+    error=GC.DO{40,40,
+        {'setCL',.95,.3,.3},
+        {'fCirc',20,20,19},
+        {'setCL',0,0,0},
+        {'dCirc',20,20,19},
+        {'setLW',6},
+        {'line',10.2,10.2,29.8,29.8},
+        {'line',10.2,29.8,29.8,10.2},
+        {'setLW',4},
+        {'setCL',1,1,1},
+        {'line',11,11,29,29},
+        {'line',11,29,29,11},
+    },
+    music=GC.DO{40,40,
+        {'setLW',2},
+        {'dRect',1,3,38,34,3},
+        {'setLW',4},
+        {'line',21,26,21,10,28,10},
+        {'fElps',17,26,6,5},
+    },
+}
+
+local MES={}
+local backColors={
+    check={.3,.6,.3,.7},
+    broadcast={.3,.3,.6,.8},
+    warn={.4,.4,.2,.9},
+    error={.4,.2,.2,.9},
+    music={.2,.4,.4,.9},
+}
+function MES.new(icon,str,time)
+    local backColor={.5,.5,.5,.7}
+    if type(icon)=='string'then
+        backColor=backColors[icon]or backColor
+        icon=mesIcon[icon]
+    end
+    local t=gc.newText(FONT.get(30),str)
+    local w=math.max(t:getWidth()+(icon and 45 or 5),200)+15
+    local h=math.max(t:getHeight(),46)+2
+    local L={w,h,
+        {'clear',backColor},
+        {'setCL',.7,.7,.7},
+        {'setLW',2},
+        {'dRect',1,1,w-2,h-2},
+        {'setCL',1,1,1},
+    }
+    if icon then
+        ins(L,{'draw',icon,4,4,nil,40/icon:getWidth(),40/icon:getHeight()})
+    end
+    ins(L,{'mDrawY',t,icon and 50 or 10,h/2})
+
+    ins(mesList,{
+        startTime=.5,
+        endTime=.5,
+        time=time or 3,
+        canvas=GC.DO(L),
+        width=w,height=h,
+        scale=h>400 and 1/math.min(h/400,2.6)or 1
+    })
+end
+
+function MES.update(dt)
+    for i=#mesList,1,-1 do
+        local m=mesList[i]
+        if m.startTime>0 then
+            m.startTime=max(m.startTime-dt,0)
+        elseif m.time>0 then
+            m.time=max(m.time-dt,0)
+        elseif m.endTime>0 then
+            m.endTime=m.endTime-dt
+        else
+            rem(mesList,i)
+        end
+    end
+end
+
+function MES.draw()
+    gc_push('transform')
+    if #mesList>0 then
+        gc_translate(SCR.safeX,30)
+        for i=1,#mesList do
+            local m=mesList[i]
+            gc_setColor(1,1,1,2*(m.endTime-m.startTime))
+            gc_draw(m.canvas,40-80*(m.endTime+m.startTime),0,nil,m.scale)
+            gc_translate(0,m.height*m.scale+2)
+        end
+    end
+    gc_pop()
+end
+
+function MES.traceback()
+    local mes=
+        debug.traceback('',1)
+        :gsub(': in function',', in')
+        :gsub(':',' ')
+        :gsub('\t','')
+    MES.new('error',mes:sub(
+        mes:find("\n",2)+1,
+        mes:find("\n%[C%], in 'xpcall'")
+    ),5)
+end
+
+return MES

Zframework/profile.lua

@@ -0,0 +1,157 @@
+local clock=os.clock
+
+local profile={}
+
+local _labeled={} -- function labels
+local _defined={} -- function definitions
+local _tcalled={} -- time of last call
+local _telapsed={}-- total execution time
+local _ncalls={}  -- number of calls
+local _internal={}-- list of internal profiler functions
+
+local getInfo=debug.getinfo
+function profile.hooker(event,line,info)
+    info=info or getInfo(2,'fnS')
+    local f=info.func
+    if _internal[f]then return end-- ignore the profiler itself
+    if info.name then _labeled[f]=info.name end-- get the function name if available
+    -- find the line definition
+    if not _defined[f]then
+        _defined[f]=info.short_src..":"..info.linedefined
+        _ncalls[f]=0
+        _telapsed[f]=0
+    end
+    if _tcalled[f]then
+        local dt=clock()-_tcalled[f]
+        _telapsed[f]=_telapsed[f]+dt
+        _tcalled[f]=nil
+    end
+    if event=='tail call'then
+        local prev=getInfo(3,'fnS')
+        profile.hooker('return',line,prev)
+        profile.hooker('call',line,info)
+    elseif event=='call'then
+        _tcalled[f]=clock()
+    else
+        _ncalls[f]=_ncalls[f]+1
+    end
+end
+
+--- Starts collecting data.
+function profile.start()
+    if jit then
+        jit.off()
+        jit.flush()
+    end
+    debug.sethook(profile.hooker,'cr')
+end
+
+--- Stops collecting data.
+function profile.stop()
+    debug.sethook()
+    for f in next,_tcalled do
+        local dt=clock()-_tcalled[f]
+        _telapsed[f]=_telapsed[f]+dt
+        _tcalled[f]=nil
+    end
+    -- merge closures
+    local lookup={}
+    for f,d in next,_defined do
+        local id=(_labeled[f]or"?")..d
+        local f2=lookup[id]
+        if f2 then
+            _ncalls[f2]=_ncalls[f2]+(_ncalls[f]or 0)
+            _telapsed[f2]=_telapsed[f2]+(_telapsed[f]or 0)
+            _defined[f],_labeled[f]=nil,nil
+            _ncalls[f],_telapsed[f]=nil,nil
+        else
+            lookup[id]=f
+        end
+    end
+    collectgarbage()
+end
+
+--- Resets all collected data.
+function profile.reset()
+    for f in next,_ncalls do
+        _ncalls[f]=0
+        _telapsed[f]=0
+        _tcalled[f]=nil
+    end
+    collectgarbage()
+end
+
+local function _comp(a,b)
+    local dt=_telapsed[b]-_telapsed[a]
+    return dt==0 and _ncalls[b]<_ncalls[a]or dt<0
+end
+
+--- Iterates all functions that have been called since the profile was started.
+function profile.query(limit)
+    local t={}
+    for f,n in next,_ncalls do
+        if n>0 then
+            t[#t+1]=f
+        end
+    end
+    table.sort(t,_comp)
+
+    if limit then while #t>limit do table.remove(t)end end
+
+    for i,f in ipairs(t)do
+        local dt=0
+        if _tcalled[f]then
+            dt=clock()-_tcalled[f]
+        end
+        t[i]={i,_labeled[f]or"?",math.floor((_telapsed[f]+dt)*1e6)/1e6,_ncalls[f],_defined[f]}
+    end
+    return t
+end
+
+local cols={3,20,8,6,32}
+function profile.report(n)
+    local out={}
+    local report=profile.query(n)
+    for i,row in ipairs(report)do
+        for j=1,5 do
+            local s=tostring(row[j])
+            local l1,l2=#s,cols[j]
+            if l1<l2 then
+                s=s..(" "):rep(l2-l1)
+            elseif l1>l2 then
+                s=s:sub(l1-l2+1,l1)
+            end
+            row[j]=s
+        end
+        out[i]=table.concat(row," | ")
+    end
+
+    local row=" +-----+----------------------+----------+--------+----------------------------------+ \n"
+    local col=" | #   | Function             | Time     | Calls  | Code                             | \n"
+    local sz=row..col..row
+    if #out>0 then
+        sz=sz.." | "..table.concat(out," | \n | ").." | \n"
+    end
+    return "\n"..sz..row
+end
+
+local switch=false
+function profile.switch()
+    switch=not switch
+    if not switch then
+        profile.stop()
+        love.system.setClipboardText(profile.report())
+        profile.reset()
+        return false
+    else
+        profile.start()
+        return true
+    end
+end
+
+-- store all internal profiler functions
+for _,v in next,profile do
+    _internal[v]=type(v)=='function'
+end
+
+return profile

Zframework/require.lua

@@ -0,0 +1,33 @@
+package.cpath=package.cpath..';'..SAVEDIR..'/lib/lib?.so;'..'?.dylib'
+local loaded={}
+return function(libName)
+    local require=require
+    if love.system.getOS()=='OS X'then
+        require=package.loadlib(libName..'.dylib','luaopen_'..libName)
+        libname=nil
+    elseif love.system.getOS()=='Android'then
+        if not loaded[libName]then
+            local platform=(function()
+                local p=io.popen('uname -m')
+                local arch=p:read('*a'):lower()
+                p:close()
+                if arch:find('v8')or arch:find('64')then
+                    return'arm64-v8a'
+                else
+                    return'armeabi-v7a'
+                end
+            end)()
+            love.filesystem.write(
+                'lib/libCCloader.so',
+                love.filesystem.read('data','libAndroid/'..platform..'/libCCloader.so')
+            )
+            loaded[libName]=true
+        end
+    end
+    local success,res=pcall(require,libName)
+    if success and res then
+        return res
+    else
+        MES.new('error',"Cannot load "..libName..": "..res)
+    end
+end

Zframework/scene.lua

@@ -0,0 +1,210 @@
+local gc=love.graphics
+local abs=math.abs
+
+local scenes={}
+
+local SCN={
+    mainTouchID=nil,     --First touching ID(userdata)
+    cur='NULL',          --Current scene name
+    swapping=false,      --If Swapping
+    stat={
+        tar=false,       --Swapping target
+        style=false,     --Swapping style
+        changeTime=false,--Loading point
+        time=false,      --Full swap time
+        draw=false,      --Swap draw  func
+    },
+    stack={},--Scene stack
+    prev=false,
+    args={},--Arguments from previous scene
+
+    scenes=scenes,
+
+    --Events
+    update=false,
+    draw=false,
+    mouseClick=false,
+    touchClick=false,
+    mouseDown=false,
+    mouseMove=false,
+    mouseUp=false,
+    wheelMoved=false,
+    touchDown=false,
+    touchUp=false,
+    touchMove=false,
+    keyDown=false,
+    keyUp=false,
+    gamepadDown=false,
+    gamepadUp=false,
+    fileDropped=false,
+    directoryDropped=false,
+    resize=false,
+    socketRead=false,
+}--Scene datas, returned
+
+function SCN.add(name,scene)
+    scenes[name]=scene
+    if scene.widgetList then
+        setmetatable(scene.widgetList,WIDGET.indexMeta)
+    end
+end
+
+function SCN.swapUpdate(dt)
+    local S=SCN.stat
+    S.time=S.time-dt
+    if S.time<S.changeTime and S.time+dt>=S.changeTime then
+        --Scene swapped this frame
+        SCN.prev=SCN.cur
+        SCN.init(S.tar)
+        SCN.mainTouchID=nil
+    end
+    if S.time<0 then
+        SCN.swapping=false
+    end
+end
+function SCN.init(s)
+    love.keyboard.setTextInput(false)
+
+    local S=scenes[s]
+    SCN.cur=s
+
+    WIDGET.setScrollHeight(S.widgetScrollHeight)
+    WIDGET.setWidgetList(S.widgetList)
+    SCN.sceneInit=S.sceneInit
+    SCN.sceneBack=S.sceneBack
+    SCN.mouseDown=S.mouseDown
+    SCN.mouseMove=S.mouseMove
+    SCN.mouseUp=S.mouseUp
+    SCN.mouseClick=S.mouseClick
+    SCN.wheelMoved=S.wheelMoved
+    SCN.touchDown=S.touchDown
+    SCN.touchUp=S.touchUp
+    SCN.touchMove=S.touchMove
+    SCN.touchClick=S.touchClick
+    SCN.keyDown=S.keyDown
+    SCN.keyUp=S.keyUp
+    SCN.gamepadDown=S.gamepadDown
+    SCN.gamepadUp=S.gamepadUp
+    SCN.fileDropped=S.fileDropped
+    SCN.directoryDropped=S.directoryDropped
+    SCN.resize=S.resize
+    SCN.socketRead=S.socketRead
+    SCN.update=S.update
+    SCN.draw=S.draw
+    if S.sceneInit then
+        S.sceneInit()
+    end
+end
+function SCN.push(tar,style)
+    if not SCN.swapping then
+        local m=#SCN.stack
+        SCN.stack[m+1]=tar or SCN.cur
+        SCN.stack[m+2]=style or'fade'
+    end
+end
+function SCN.pop()
+    local s=SCN.stack
+    s[#s],s[#s-1]=nil
+end
+
+local swap={
+    none={
+        duration=0,changeTime=0,
+        draw=function()end
+    },
+    flash={
+        duration=.16,changeTime=.08,
+        draw=function()gc.clear(1,1,1)end
+    },
+    fade={
+        duration=.5,changeTime=.25,
+        draw=function(t)
+            t=t>.25 and 2-t*4 or t*4
+            gc.setColor(0,0,0,t)
+            gc.rectangle('fill',0,0,SCR.w,SCR.h)
+        end
+    },
+    fade_togame={
+        duration=2,changeTime=.5,
+        draw=function(t)
+            t=t>.5 and(2-t)/1.5 or t*.5
+            gc.setColor(0,0,0,t)
+            gc.rectangle('fill',0,0,SCR.w,SCR.h)
+        end
+    },
+    slowFade={
+        duration=3,changeTime=1.5,
+        draw=function(t)
+            t=t>1.5 and (3-t)/1.5 or t/1.5
+            gc.setColor(0,0,0,t)
+            gc.rectangle('fill',0,0,SCR.w,SCR.h)
+        end
+    },
+    swipeL={
+        duration=.5,changeTime=.25,
+        draw=function(t)
+        t=t*2
+            gc.setColor(.1,.1,.1,1-abs(t-.5))
+            t=t*t*(3-2*t)*2-1
+            gc.rectangle('fill',t*SCR.w,0,SCR.w,SCR.h)
+        end
+    },
+    swipeR={
+        duration=.5,changeTime=.25,
+        draw=function(t)
+            t=t*2
+            gc.setColor(.1,.1,.1,1-abs(t-.5))
+            t=t*t*(2*t-3)*2+1
+            gc.rectangle('fill',t*SCR.w,0,SCR.w,SCR.h)
+        end
+    },
+    swipeD={
+        duration=.5,changeTime=.25,
+        draw=function(t)
+            t=t*2
+            gc.setColor(.1,.1,.1,1-abs(t-.5))
+            t=t*t*(2*t-3)*2+1
+            gc.rectangle('fill',0,t*SCR.h,SCR.w,SCR.h)
+        end
+    },
+}--Scene swapping animations
+function SCN.swapTo(tar,style,...)--Parallel scene swapping, cannot back
+    if scenes[tar]then
+        if not SCN.swapping and tar~=SCN.cur then
+            style=style or'fade'
+            SCN.swapping=true
+            SCN.args={...}
+            local S=SCN.stat
+            S.tar,S.style=tar,style
+            S.time=swap[style].duration
+            S.changeTime=swap[style].changeTime
+            S.draw=swap[style].draw
+        end
+    else
+        MES.new('warn',"No Scene: "..tar)
+    end
+end
+function SCN.go(tar,style,...)--Normal scene swapping, can back
+    if scenes[tar]then
+        SCN.push()
+        SCN.swapTo(tar,style,...)
+    else
+        MES.new('warn',"No Scene: "..tar)
+    end
+end
+function SCN.back(...)
+    if SCN.swapping then return end
+
+    --Leave scene
+    if SCN.sceneBack then
+        SCN.sceneBack()
+    end
+
+    --Poll&Back to previous Scene
+    local m=#SCN.stack
+    if m>0 then
+        SCN.swapTo(SCN.stack[m-1],SCN.stack[m],...)
+        SCN.stack[m],SCN.stack[m-1]=nil
+    end
+end
+return SCN

Zframework/screen.lua

@@ -0,0 +1,73 @@
+local SCR={
+    w0=1280,h0=720, --Default Screen Size
+    x=0,y=0,        --Up-left Coord on screen
+    cx=0,cy=0,      --Center Coord on screen (Center X/Y)
+    ex=0,ey=0,      --Down-right Coord on screen (End X/Y)
+    w=0,h=0,        --Fullscreen w/h for graphic functions
+    W=0,H=0,        --Fullscreen w/h for shader
+    safeX=0,safeY=0,--Safe area
+    safeW=0,safeH=0,--Safe area
+    rad=0,          --Radius
+    k=1,            --Scale size
+    dpi=1,          --DPI from gc.getDPIScale()
+
+    --Screen transformation objects
+    origin=love.math.newTransform(),
+    xOy=love.math.newTransform(),
+    xOy_m=love.math.newTransform(),
+    xOy_ul=love.math.newTransform(),
+    xOy_u=love.math.newTransform(),
+    xOy_ur=love.math.newTransform(),
+    xOy_l=love.math.newTransform(),
+    xOy_r=love.math.newTransform(),
+    xOy_dl=love.math.newTransform(),
+    xOy_d=love.math.newTransform(),
+    xOy_dr=love.math.newTransform(),
+}
+function SCR.setSize(w,h)
+    SCR.w0,SCR.h0=w,h
+end
+function SCR.resize(w,h)
+    SCR.w,SCR.h,SCR.dpi=w,h,love.graphics.getDPIScale()
+    SCR.W,SCR.H=SCR.w*SCR.dpi,SCR.h*SCR.dpi
+    SCR.r=h/w
+    SCR.rad=(w^2+h^2)^.5
+
+    SCR.x,SCR.y=0,0
+    if SCR.r>=SCR.h0/SCR.w0 then
+        SCR.k=w/SCR.w0
+        SCR.y=(h-SCR.h0*SCR.k)/2
+    else
+        SCR.k=h/SCR.h0
+        SCR.x=(w-SCR.w0*SCR.k)/2
+    end
+    SCR.cx,SCR.cy=SCR.w/2,SCR.h/2
+    SCR.ex,SCR.ey=SCR.w-SCR.x,SCR.h-SCR.y
+    SCR.safeX,SCR.safeY,SCR.safeW,SCR.safeH=love.window.getSafeArea()
+
+    SCR.origin:setTransformation(0,0)
+    SCR.xOy:setTransformation(SCR.x,SCR.y,0,SCR.k)
+    SCR.xOy_m:setTransformation(w/2,h/2,0,SCR.k)
+    SCR.xOy_ul:setTransformation(0,0,0,SCR.k)
+    SCR.xOy_u:setTransformation(w/2,0,0,SCR.k)
+    SCR.xOy_ur:setTransformation(w,0,0,SCR.k)
+    SCR.xOy_l:setTransformation(0,h/2,0,SCR.k)
+    SCR.xOy_r:setTransformation(w,h/2,0,SCR.k)
+    SCR.xOy_dl:setTransformation(0,h,0,SCR.k)
+    SCR.xOy_d:setTransformation(w/2,h,0,SCR.k)
+    SCR.xOy_dr:setTransformation(w,h,0,SCR.k)
+end
+function SCR.info()
+    return{
+        ("w0,h0 : %d, %d"):format(SCR.w0,SCR.h0),
+        ("x,y : %d, %d"):format(SCR.x,SCR.y),
+        ("cx,cy : %d, %d"):format(SCR.cx,SCR.cy),
+        ("ex,ey : %d, %d"):format(SCR.ex,SCR.ey),
+        ("w,h : %d, %d"):format(SCR.w,SCR.h),
+        ("W,H : %d, %d"):format(SCR.W,SCR.H),
+        ("safeX,safeY : %d, %d"):format(SCR.safeX,SCR.safeY),
+        ("safeW,safeH : %d, %d"):format(SCR.safeW,SCR.safeH),
+        ("k,dpi,rad : %.2f, %d, %.2f"):format(SCR.k,SCR.dpi,SCR.rad),
+    }
+end
+return SCR

Zframework/sfx.lua

@@ -0,0 +1,170 @@
+local type,rem=type,table.remove
+local int,rnd=math.floor,math.random
+local interval=MATH.interval
+
+local sfxList={}
+local packSetting={}
+local Sources={}
+local volume=1
+local stereo=1
+
+local noteVal={
+    C=1,c=1,
+    D=3,d=3,
+    E=5,e=5,
+    F=6,f=6,
+    G=8,g=8,
+    A=10,a=10,
+    B=12,b=12,
+}
+local noteName={'C','C#','D','D#','E','F','F#','G','G#','A','A#','B'}
+local function _getTuneHeight(tune)
+    local octave=tonumber(tune:sub(-1,-1))
+    if octave then
+        local tuneHeight=noteVal[tune:sub(1,1)]
+        if tuneHeight then
+            tuneHeight=tuneHeight+(octave-1)*12
+            local s=tune:sub(2,2)
+            if s=='s'or s=='#'then
+                tuneHeight=tuneHeight+1
+            elseif s=='f'or s=='b'then
+                tuneHeight=tuneHeight-1
+            end
+            return tuneHeight
+        end
+    end
+end
+
+local SFX={}
+
+function SFX.init(list)
+    assert(type(list)=='table',"Initialize SFX lib with a list of filenames!")
+    for i=1,#list do table.insert(sfxList,list[i])end
+end
+function SFX.load(path)
+    local c=0
+    local missing=0
+    for i=1,#sfxList do
+        local fullPath=path..sfxList[i]..'.ogg'
+        if love.filesystem.getInfo(fullPath)then
+            if Sources[sfxList[i]]then
+                for j=1,#Sources[sfxList[i]]do
+                    Sources[sfxList[i]][j]:release()
+                end
+            end
+            Sources[sfxList[i]]={love.audio.newSource(fullPath,'static')}
+            c=c+1
+        else
+            LOG("No SFX: "..sfxList[i]..'.ogg',.1)
+            missing=missing+1
+        end
+    end
+    LOG(c.."/"..#sfxList.." SFX files loaded")
+    LOG(missing.." SFX files missing")
+    if missing>0 then
+        MES.new('info',missing.." SFX files missing")
+    end
+    collectgarbage()
+end
+function SFX.loadSample(pack)
+    assert(type(pack)=='table',"Usage: SFX.loadsample([table])")
+    assert(pack.name,"No field: name")
+    assert(pack.path,"No field: path")
+    local num=1
+    while love.filesystem.getInfo(pack.path..'/'..num..'.ogg')do
+        Sources[pack.name..num]={love.audio.newSource(pack.path..'/'..num..'.ogg','static')}
+        num=num+1
+    end
+    local base=(_getTuneHeight(pack.base)or 37)-1
+    local top=base+num-1
+    packSetting[pack.name]={base=base,top=top}
+    LOG((num-1).." "..pack.name.." samples loaded")
+end
+
+function SFX.getCount()
+    return #sfxList
+end
+function SFX.setVol(v)
+    assert(type(v)=='number'and v>=0 and v<=1,'Wrong volume')
+    volume=v
+end
+function SFX.setStereo(v)
+    assert(type(v)=='number'and v>=0 and v<=1,'Wrong stereo')
+    stereo=v
+end
+
+function SFX.getNoteName(note)
+    if note<1 then
+        return'---'
+    else
+        note=note-1
+        local octave=int(note/12)+1
+        return noteName[note%12+1]..octave
+    end
+end
+function SFX.playSample(pack,...)--vol-1, sampSet1, vol-2, sampSet2
+    if ... then
+        local arg={...}
+        local vol
+        for i=1,#arg do
+            local a=arg[i]
+            if type(a)=='number'and a<=1 then
+                vol=a
+            else
+                local base=packSetting[pack].base
+                local top=packSetting[pack].top
+                local tune=type(a)=='string'and _getTuneHeight(a)or a--Absolute tune in number
+                local playTune=tune+rnd(-2,2)
+                if playTune<=base then--Too low notes
+                    playTune=base+1
+                elseif playTune>top then--Too high notes
+                    playTune=top
+                end
+                SFX.play(pack..playTune-base,vol,nil,tune-playTune)
+            end
+        end
+    end
+end
+local function _play(name,vol,pos,pitch)
+    if volume==0 or vol==0 then return end
+    local S=Sources[name]--Source list
+    if not S then return end
+    local n=1
+    while S[n]:isPlaying()do
+        n=n+1
+        if not S[n]then
+            S[n]=S[1]:clone()
+            S[n]:seek(0)
+            break
+        end
+    end
+    S=S[n]--AU_SRC
+    if S:getChannelCount()==1 then
+        if pos then
+            pos=interval(pos,-1,1)*stereo
+            S:setPosition(pos,1-pos^2,0)
+        else
+            S:setPosition(0,0,0)
+        end
+    end
+    S:setVolume(vol^1.626)
+    S:setPitch(pitch and 1.0594630943592953^pitch or 1)
+    S:play()
+end
+SFX.fplay=_play--Play sounds without apply module's volume setting
+function SFX.play(name,vol,pos,pitch)
+    _play(name,(vol or 1)*volume,pos,pitch)
+end
+function SFX.reset()
+    for _,L in next,Sources do
+        if type(L)=='table'then
+            for i=#L,1,-1 do
+                if not L[i]:isPlaying()then
+                    rem(L,i)
+                end
+            end
+        end
+    end
+end
+
+return SFX

Zframework/stringExtend.lua

@@ -0,0 +1,231 @@
+local data=love.data
+local STRING={}
+local assert,tostring,tonumber=assert,tostring,tonumber
+local int,format=math.floor,string.format
+local find,sub,gsub,upper=string.find,string.sub,string.gsub,string.upper
+local char,byte=string.char,string.byte
+
+--"Replace dollars", replace all $n with ...
+function STRING.repD(str,...)
+    local l={...}
+    for i=#l,1,-1 do
+        str=gsub(str,'$'..i,l[i])
+    end
+    return str
+end
+
+--"Scan arg", scan if str has the arg (format of str is like "-json -q", arg is like "-q")
+function STRING.sArg(str,switch)
+    if find(str.." ",switch.." ")then
+        return true
+    end
+end
+
+do--function STRING.shiftChar(c)
+    local shiftMap={
+        ['1']='!',['2']='@',['3']='#',['4']='$',['5']='%',
+        ['6']='^',['7']='&',['8']='*',['9']='(',['0']=')',
+        ['`']='~',['-']='_',['=']='+',
+        ['[']='{',[']']='}',['\\']='|',
+        [';']=':',['\'']='"',
+        [',']='<',['.']='>',['/']='?',
+    }
+    function STRING.shiftChar(c)
+        return shiftMap[c]or upper(c)
+    end
+end
+
+function STRING.trim(s)
+    if not s:find("%S")then return""end
+    s=s:sub((s:find("%S"))):reverse()
+    return s:sub((s:find("%S"))):reverse()
+end
+
+function STRING.split(s,sep,regex)
+    local L={}
+    local p1,p2=1--start,target
+    if regex then
+        while p1<=#s do
+            p2=find(s,sep,p1)or #s+1
+            L[#L+1]=sub(s,p1,p2-1)
+            p1=p2+#sep
+        end
+    else
+        while p1<=#s do
+            p2=find(s,sep,p1,true)or #s+1
+            L[#L+1]=sub(s,p1,p2-1)
+            p1=p2+#sep
+        end
+    end
+    return L
+end
+
+function STRING.simpEmailCheck(e)
+    e=STRING.split(e,"@")
+    if #e~=2 then return false end
+    if e[1]:sub(-1)=="."or e[2]:sub(-1)=="."then return false end
+    local e1,e2=STRING.split(e[1],"."),STRING.split(e[2],".")
+    if #e1*#e2==0 then return false end
+    for _,v in next,e1 do if #v==0 then return false end end
+    for _,v in next,e2 do if #v==0 then return false end end
+    return true
+end
+
+function STRING.time_simp(t)
+    return format("%02d:%02d",int(t/60),int(t%60))
+end
+
+function STRING.time(t)
+    if t<60 then
+        return format("%.3f\"",t)
+    elseif t<3600 then
+        return format("%d'%05.2f\"",int(t/60),int(t%60*100)/100)
+    else
+        return format("%d:%.2d'%05.2f\"",int(t/3600),int(t/60%60),int(t%60*100)/100)
+    end
+end
+
+function STRING.UTF8(n)--Simple utf8 coding
+    assert(type(n)=='number',"Wrong type ("..type(n)..")")
+    assert(n>=0 and n<2^31,"Out of range ("..n..")")
+    if n<2^7 then return char(n)
+    elseif n<2^11 then return char(192+int(n/2^06),128+n%2^6)
+    elseif n<2^16 then return char(224+int(n/2^12),128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^21 then return char(240+int(n/2^18),128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^26 then return char(248+int(n/2^24),128+int(n/2^18)%2^6,128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^31 then return char(252+int(n/2^30),128+int(n/2^24)%2^6,128+int(n/2^18)%2^6,128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    end
+end
+
+do--function STRING.bigInt(t)
+    local lg=math.log10
+    local units={"","K","M","B","T","Qa","Qt","Sx","Sp","Oc","No"}
+    local preUnits={"","U","D","T","Qa","Qt","Sx","Sp","O","N"}
+    local secUnits={"Dc","Vg","Tg","Qd","Qi","Se","St","Og","Nn","Ce"}--Ce is next-level unit, but DcCe is not used so used here
+    for _,preU in next,preUnits do for _,secU in next,secUnits do table.insert(units,preU..secU)end end
+    function STRING.bigInt(t)
+        if t<1000 then
+            return tostring(t)
+        elseif t~=1e999 then
+            local e=int(lg(t)/3)
+            return(t/10^(e*3))..units[e+1]
+        else
+            return"INF"
+        end
+    end
+end
+
+function STRING.hexColor(str)--[LOW PERFORMENCE]
+    assert(type(str)=='string')
+    if str:sub(1,1)=="#"then str=str:sub(2)end
+    assert(#str<=8)
+    local r=(tonumber(str:sub(1,2),16)or 0)/255
+    local g=(tonumber(str:sub(3,4),16)or 0)/255
+    local b=(tonumber(str:sub(5,6),16)or 0)/255
+    local a=(tonumber(str:sub(7,8),16)or 255)/255
+    return r,g,b,a
+end
+
+do--function STRING.urlEncode(s)
+    local rshift=bit.rshift
+    local b16={[0]='0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
+    function STRING.urlEncode(s)
+        local out=""
+        for i=1,#s do
+            if s:sub(i,i):match("[a-zA-Z0-9]")then
+                out=out..s:sub(i,i)
+            else
+                local b=s:byte(i)
+                out=out.."%"..b16[rshift(b,4)]..b16[b%16]
+            end
+        end
+        return out
+    end
+end
+
+function STRING.vcsEncrypt(text,key)
+    local keyLen=#key
+    local result=""
+    local buffer=""
+    for i=0,#text-1 do
+        buffer=buffer..char((byte(text,i+1)-32+byte(key,i%keyLen+1))%95+32)
+        if #buffer==26 then
+            result=result..buffer
+            buffer=""
+        end
+    end
+    return result..buffer
+end
+function STRING.vcsDecrypt(text,key)
+    local keyLen=#key
+    local result=""
+    local buffer=""
+    for i=0,#text-1 do
+        buffer=buffer..char((byte(text,i+1)-32-byte(key,i%keyLen+1))%95+32)
+        if #buffer==26 then
+            result=result..buffer
+            buffer=""
+        end
+    end
+    return result..buffer
+end
+function STRING.digezt(text)--Not powerful hash, just protect the original text
+    local out={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
+    local seed=26
+    for i=1,#text do
+        local c=byte(text,i)
+        seed=(seed+c)%26
+        c=c+seed
+        local pos=c*i%16
+        local step=(c+i)%4+1
+        local times=2+(c%6)
+        for _=1,times do
+            out[pos+1]=(out[pos+1]+c)%256
+            pos=(pos+step)%16
+        end
+    end
+    local result=""
+    for i=1,16 do result=result..char(out[i])end
+    return result
+end
+
+function STRING.readLine(str)
+    local p=str:find("\n")
+    if p then
+        return str:sub(1,p-1),str:sub(p+1)
+    else
+        return str,""
+    end
+end
+function STRING.readChars(str,n)
+    return sub(str,1,n),sub(str,n+1)
+end
+
+function STRING.packBin(s)
+    return data.encode('string','base64',data.compress('string','zlib',s))
+end
+function STRING.unpackBin(str)
+    local res
+    res,str=pcall(data.decode,'string','base64',str)
+    if not res then return end
+    res,str=pcall(data.decompress,'string','zlib',str)
+    if res then return str end
+end
+function STRING.packText(s)
+    return data.encode('string','base64',data.compress('string','gzip',s))
+end
+function STRING.unpackText(str)
+    local res
+    res,str=pcall(data.decode,'string','base64',str)
+    if not res then return end
+    res,str=pcall(data.decompress,'string','gzip',str)
+    if res then return str end
+end
+function STRING.packTable(t)
+    return STRING.packText(JSON.encode(t))
+end
+function STRING.unpackTable(t)
+    return JSON.decode(STRING.unpackText(t))
+end
+
+return STRING

Zframework/sysFX.lua

@@ -0,0 +1,205 @@
+local gc=love.graphics
+local gc_setColor,gc_setLineWidth=gc.setColor,gc.setLineWidth
+local gc_draw,gc_line=gc.draw,gc.line
+local gc_rectangle,gc_circle=gc.rectangle,gc.circle
+
+local max,min=math.max,math.min
+local rnd=math.random
+local ins,rem=table.insert,table.remove
+
+local fx={}
+
+local function _normUpdate(S,dt)
+    S.t=S.t+dt*S.rate
+    return S.t>1
+end
+
+local FXupdate={}
+function FXupdate.badge(S,dt)
+    S.t=S.t+dt
+    if S.t<.2 then
+        S.x,S.y=S.x1-14,S.y1-14
+    elseif S.t<.8 then
+        local t=((S.t-.2)*1.6667)
+        t=(3-2*t)*t*t
+        S.x,S.y=S.x1*(1-t)+S.x2*t-14,S.y1*(1-t)+S.y2*t-14
+    else
+        S.x,S.y=S.x2-14,S.y2-14
+    end
+    return S.t>=1
+end
+FXupdate.attack=_normUpdate
+FXupdate.tap=_normUpdate
+FXupdate.ripple=_normUpdate
+FXupdate.rectRipple=_normUpdate
+FXupdate.shade=_normUpdate
+function FXupdate.cell(S,dt)
+    if S.vx then
+        S.x=S.x+S.vx*S.rate
+        S.y=S.y+S.vy*S.rate
+        if S.ax then
+            S.vx=S.vx+S.ax*S.rate
+            S.vy=S.vy+S.ay*S.rate
+        end
+    end
+    S.t=S.t+dt*S.rate
+    return S.t>1
+end
+FXupdate.line=_normUpdate
+
+local FXdraw={}
+function FXdraw.badge(S)
+    gc_setColor(1,1,1,S.t<.2 and S.t*.6 or S.t<.8 and 1 or(1-S.t)*.6)
+    gc_draw(IMG.badgeIcon,S.x,S.y)
+end
+function FXdraw.attack(S)
+    gc_setColor(S.r*2,S.g*2,S.b*2,S.a*min(4-S.t*4,1))
+
+    gc_setLineWidth(S.wid)
+    local t1,t2=max(5*S.t-4,0),min(S.t*4,1)
+    gc_line(
+        S.x1*(1-t1)+S.x2*t1,
+        S.y1*(1-t1)+S.y2*t1,
+        S.x1*(1-t2)+S.x2*t2,
+        S.y1*(1-t2)+S.y2*t2
+    )
+
+    gc_setLineWidth(S.wid*.6)
+    t1,t2=max(4*S.t-3,0),min(S.t*5,1)
+    gc_line(
+        S.x1*(1-t1)+S.x2*t1,
+        S.y1*(1-t1)+S.y2*t1,
+        S.x1*(1-t2)+S.x2*t2,
+        S.y1*(1-t2)+S.y2*t2
+    )
+end
+function FXdraw.tap(S)
+    local t=S.t
+    gc_setColor(1,1,1,(1-t)*.4)
+    gc_circle('fill',S.x,S.y,30*(1-t)^.5)
+end
+function FXdraw.ripple(S)
+    local t=S.t
+    gc_setLineWidth(2)
+    gc_setColor(1,1,1,1-t)
+    gc_circle('line',S.x,S.y,t*(2-t)*S.r)
+end
+function FXdraw.rectRipple(S)
+    gc_setLineWidth(6)
+    gc_setColor(1,1,1,1-S.t)
+    local r=(10*S.t)^1.2
+    gc_rectangle('line',S.x-r,S.y-r,S.w+2*r,S.h+2*r)
+end
+function FXdraw.shade(S)
+    gc_setColor(S.r,S.g,S.b,1-S.t)
+    gc_rectangle('fill',S.x,S.y,S.w,S.h,2)
+end
+function FXdraw.cell(S)
+    gc_setColor(1,1,1,1-S.t)
+    gc_draw(S.image,S.x,S.y,nil,S.size,nil,S.cx,S.cy)
+end
+function FXdraw.line(S)
+    gc_setColor(1,1,1,S.a*(1-S.t))
+    gc_line(S.x1,S.y1,S.x2,S.y2)
+end
+
+local SYSFX={}
+function SYSFX.update(dt)
+    for i=#fx,1,-1 do
+        if fx[i]:update(dt)then
+            rem(fx,i)
+        end
+    end
+end
+function SYSFX.draw()
+    for i=1,#fx do
+        fx[i]:draw()
+    end
+end
+
+function SYSFX.newBadge(x1,y1,x2,y2)
+    ins(fx,{
+        update=FXupdate.badge,
+        draw=FXdraw.badge,
+        t=0,
+        x=x1,y=y1,
+        x1=x1,y1=y1,
+        x2=x2,y2=y2,
+    })
+end
+function SYSFX.newAttack(rate,x1,y1,x2,y2,wid,r,g,b,a)
+    ins(fx,{
+        update=FXupdate.attack,
+        draw=FXdraw.attack,
+        t=0,
+        rate=rate,
+        x1=x1,y1=y1,--Start pos
+        x2=x2,y2=y2,--End pos
+        wid=wid,--Line width
+        r=r,g=g,b=b,a=a,
+    })
+end
+function SYSFX.newTap(rate,x,y)
+    local T=
+    {
+        update=FXupdate.tap,
+        draw=FXdraw.tap,
+        t=0,
+        rate=rate,
+        x=x,y=y,
+    }
+    ins(fx,T)
+end
+function SYSFX.newRipple(rate,x,y,r)
+    ins(fx,{
+        update=FXupdate.ripple,
+        draw=FXdraw.ripple,
+        t=0,
+        rate=rate,
+        x=x,y=y,r=r,
+    })
+end
+function SYSFX.newRectRipple(rate,x,y,w,h)
+    ins(fx,{
+        update=FXupdate.rectRipple,
+        draw=FXdraw.rectRipple,
+        t=0,
+        rate=rate,
+        x=x,y=y,w=w,h=h,
+    })
+end
+function SYSFX.newShade(rate,x,y,w,h,r,g,b)
+    ins(fx,{
+        update=FXupdate.shade,
+        draw=FXdraw.shade,
+        t=0,
+        rate=rate,
+        x=x,y=y,w=w,h=h,
+        r=r or 1,g=g or 1,b=b or 1,
+    })
+end
+function SYSFX.newCell(rate,image,size,x,y,vx,vy,ax,ay)
+    ins(fx,{
+        update=FXupdate.cell,
+        draw=FXdraw.cell,
+        t=0,
+        rate=rate*(.9+rnd()*.2),
+        image=image,size=size,
+        cx=image:getWidth()*.5,cy=image:getHeight()*.5,
+        x=x,y=y,
+        vx=vx,vy=vy,
+        ax=ax,ay=ay,
+    })
+end
+function SYSFX.newLine(rate,x1,y1,x2,y2,r,g,b,a)
+    ins(fx,{
+        update=FXupdate.line,
+        draw=FXdraw.line,
+        t=0,
+        rate=rate,
+        x1=x1 or 0,y1=y1 or 0,
+        x2=x2 or x1 or 1280,y2=y2 or y1 or 720,
+        r=r or 1,g=g or 1,b=b or 1,a=a or 1,
+    })
+end
+return SYSFX

Zframework/tableExtend.lua

@@ -0,0 +1,255 @@
+local find=string.find
+local rem=table.remove
+local next,type=next,type
+local TABLE={}
+
+--Get a new filled table
+function TABLE.new(val,count)
+    local L={}
+    for i=1,count do
+        L[i]=val
+    end
+    return L
+end
+
+--Get a copy of [1~#] elements
+function TABLE.shift(org,depth)
+    if not depth then depth=1e99 end
+    local L={}
+    for i=1,#org do
+        if type(org[i])=='table'and depth>0 then
+            L[i]=TABLE.shift(org[i],depth-1)
+        else
+            L[i]=org[i]
+        end
+    end
+    return L
+end
+
+--Get a full copy of a table, depth = how many layers will be recreate, default to inf
+function TABLE.copy(org,depth)
+    if not depth then depth=1e99 end
+    local L={}
+    for k,v in next,org do
+        if type(v)=='table'and depth>0 then
+            L[k]=TABLE.copy(v,depth-1)
+        else
+            L[k]=v
+        end
+    end
+    return L
+end
+
+--For all things in new, push to old
+function TABLE.cover(new,old)
+    for k,v in next,new do
+        old[k]=v
+    end
+end
+
+--For all things in new, push to old
+function TABLE.coverR(new,old)
+    for k,v in next,new do
+        if type(v)=='table'and type(old[k])=='table'then
+            TABLE.coverR(v,old[k])
+        else
+            old[k]=v
+        end
+    end
+end
+
+
+--For all things in new if same type in old, push to old
+function TABLE.update(new,old)
+    for k,v in next,new do
+        if type(v)==type(old[k])then
+            if type(v)=='table'then
+                TABLE.update(v,old[k])
+            else
+                old[k]=v
+            end
+        end
+    end
+end
+
+--For all things in new if no val in old, push to old
+function TABLE.complete(new,old)
+    for k,v in next,new do
+        if type(v)=='table'then
+            if old[k]==nil then old[k]={}end
+            TABLE.complete(v,old[k])
+        elseif old[k]==nil then
+            old[k]=v
+        end
+    end
+end
+
+--Remove [1~#] of table
+function TABLE.cut(G)
+    for i=1,#G do
+        G[i]=nil
+    end
+end
+
+--Clear table
+function TABLE.clear(G)
+    for k in next,G do
+        G[k]=nil
+    end
+end
+
+--Remove duplicated value of [1~#]
+function TABLE.trimDuplicate(org)
+    local cache={}
+    for i=1,#org,-1 do
+        if cache[org[i]]then
+            rem(org,i)
+        else
+            cache[org[i]]=true
+        end
+    end
+end
+
+--Discard duplicated value
+function TABLE.remDuplicate(org)
+    local cache={}
+    for k,v in next,org do
+        if cache[v]then
+            org[k]=nil
+        else
+            cache[v]=true
+        end
+    end
+end
+
+
+--Reverse [1~#]
+function TABLE.reverse(org)
+    local l=#org
+    for i=1,math.floor(l/2)do
+        org[i],org[l+1-i]=org[l+1-i],org[i]
+    end
+end
+
+--------------------------
+
+--Find value in [1~#]
+function TABLE.find(t,val)
+    for i=1,#t do if t[i]==val then return i end end
+end
+
+--Return next value of [1~#] (by value)
+function TABLE.next(t,val)
+    for i=1,#t do if t[i]==val then return t[i%#t+1]end end
+end
+
+--------------------------
+
+--Find value in whole table
+function TABLE.search(t,val)
+    for k,v in next,t do if v==val then return k end end
+end
+
+--Re-index string value of a table
+function TABLE.reIndex(org)
+    for k,v in next,org do
+        if type(v)=='string'then
+            org[k]=org[v]
+        end
+    end
+end
+
+--------------------------
+
+--Dump a simple lua table
+do--function TABLE.dump(L,t)
+    local tabs={
+        [0]="",
+        "\t",
+        "\t\t",
+        "\t\t\t",
+        "\t\t\t\t",
+        "\t\t\t\t\t",
+    }
+    local function dump(L,t)
+        local s
+        if t then
+            s="{\n"
+        else
+            s="return{\n"
+            t=1
+            if type(L)~='table'then
+                return
+            end
+        end
+        local count=1
+        for k,v in next,L do
+            local T=type(k)
+            if T=='number'then
+                if k==count then
+                    k=""
+                    count=count+1
+                else
+                    k="["..k.."]="
+                end
+            elseif T=='string'then
+                if find(k,"[^0-9a-zA-Z_]")then
+                    k="[\""..k.."\"]="
+                else
+                    k=k.."="
+                end
+            elseif T=='boolean'then k="["..k.."]="
+            else error("Error key type!")
+            end
+            T=type(v)
+            if T=='number'then v=tostring(v)
+            elseif T=='string'then v="\""..v.."\""
+            elseif T=='table'then v=dump(v,t+1)
+            elseif T=='boolean'then v=tostring(v)
+            else error("Error data type!")
+            end
+            s=s..tabs[t]..k..v..",\n"
+        end
+        return s..tabs[t-1].."}"
+    end
+    TABLE.dump=dump
+end
+
+--Dump a simple lua table (no whitespaces)
+do--function TABLE.dumpDeflate(L,t)
+    local function dump(L)
+        local s="return{"
+        if type(L)~='table'then return end
+        local count=1
+        for k,v in next,L do
+            local T=type(k)
+            if T=='number'then
+                if k==count then
+                    k=""
+                    count=count+1
+                else
+                    k="["..k.."]="
+                end
+            elseif T=='string'then
+                if find(k,"[^0-9a-zA-Z_]")then
+                    k="[\""..k.."\"]="
+                else
+                    k=k.."="
+                end
+            elseif T=='boolean'then k="["..k.."]="
+            else error("Error key type!")
+            end
+            T=type(v)
+            if T=='number'then v=tostring(v)
+            elseif T=='string'then v="\""..v.."\""
+            elseif T=='table'then v=dump(v)
+            elseif T=='boolean'then v=tostring(v)
+            else error("Error data type!")
+            end
+        end
+        return s.."}"
+    end
+    TABLE.dumpDeflate=dump
+end
+
+return TABLE

Zframework/task.lua

@@ -0,0 +1,56 @@
+local rem=table.remove
+local assert,resume,status=assert,coroutine.resume,coroutine.status
+local tasks={}
+
+local TASK={}
+function TASK.getCount()
+    return #tasks
+end
+local trigFrame=0
+function TASK.update(dt)
+    trigFrame=trigFrame+dt*60
+    while trigFrame>=1 do
+        for i=#tasks,1,-1 do
+            local T=tasks[i]
+            if status(T.thread)=='dead'then
+                rem(tasks,i)
+            else
+                assert(resume(T.thread))
+            end
+        end
+        trigFrame=trigFrame-1
+    end
+end
+function TASK.new(code,...)
+    local thread=coroutine.create(code)
+    assert(resume(thread,...))
+    if status(thread)~='dead'then
+        tasks[#tasks+1]={
+            thread=thread,
+            code=code,
+            args={...},
+        }
+    end
+end
+function TASK.removeTask_code(code)
+    for i=#tasks,1,-1 do
+        if tasks[i].code==code then
+            rem(tasks,i)
+        end
+    end
+end
+function TASK.removeTask_iterate(func,...)
+    for i=#tasks,1,-1 do
+        if func(tasks[i],...)then
+            rem(tasks,i)
+        end
+    end
+end
+function TASK.clear()
+    local i=#tasks
+    while i>0 do
+        tasks[i]=nil
+        i=i-1
+    end
+end
+return TASK

Zframework/test.lua

@@ -0,0 +1,12 @@
+local TEST={}
+
+--Wait for the scene swapping animation to finish
+function TEST.yieldUntilNextScene()
+    while SCN.swapping do YIELD()end
+end
+
+function TEST.yieldN(frames)
+    for _=1,frames do YIELD()end
+end
+
+return TEST

Zframework/text.lua

@@ -0,0 +1,153 @@
+local gc=love.graphics
+local getColor,setColor=gc.getColor,gc.setColor
+
+local int,rnd=math.floor,math.random
+local ins,rem=table.insert,table.remove
+local draw=gc.draw
+
+local texts={}
+
+local textFX={}
+function textFX.appear(t)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.sudden(t)
+    setColor(1,1,1,1-t.c)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.fly(t)
+    draw(
+        t.text,t.x+(t.c-.5)^3*300,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.stretch(t)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        t.c<.3 and(.3-t.c)*1.6+1 or 1,1,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.drive(t)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5,
+        t.c<.3 and(.3-t.c)*2 or 0,0
+    )
+end
+function textFX.spin(t)
+    draw(
+        t.text,t.x,t.y,
+        t.c<.3 and(.3-t.c)^2*4 or t.c<.8 and 0 or(t.c-.8)^2*-4,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.flicker(t)
+    local _,_,_,T=getColor()
+    setColor(1,1,1,T*(rnd()+.5))
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.zoomout(t)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        t.c^.5*.1+1,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.beat(t)
+    local k=t.c<.3 and 1.3-t.c^2/.3 or 1
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        k,k,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+function textFX.score(t)
+    local _,_,_,T=getColor()
+    setColor(1,1,1,T*.5)
+    draw(
+        t.text,t.x,t.y-0-t.c^.2*50,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
+end
+
+local TEXT={}
+function TEXT.clear()
+    texts={}
+end
+function TEXT.show(text,x,y,font,style,spd,stop)
+    ins(texts,{
+        c=0,                                                         --Timer
+        text=gc.newText(FONT.get(int(font/5)*5 or 40),text),         --String
+        x=x or 0,                                                    --X
+        y=y or 0,                                                    --Y
+        spd=(spd or 1),                                              --Timing speed(1=last 1 sec)
+        stop=stop,                                                   --Stop time(sustained text)
+        draw=assert(textFX[style or'appear'],"no text type:"..style),--Draw method
+    })
+end
+function TEXT.getText(text,x,y,font,style,spd,stop)--Another version of TEXT.show(), but only return text object, need manual management
+    return{
+        c=0,
+        text=gc.newText(FONT.get(int(font/5)*5 or 40),text),
+        x=x or 0,
+        y=y or 0,
+        spd=(spd or 1),
+        stop=stop,
+        draw=textFX[style or'appear']or error("unavailable type:"..style),
+    }
+end
+function TEXT.update(dt,list)
+    if not list then
+        list=texts
+    end
+    for i=#list,1,-1 do
+        local t=list[i]
+        t.c=t.c+t.spd*dt
+        if t.stop then
+            if t.c>t.stop then
+                t.c=t.stop
+            end
+        end
+        if t.c>1 then
+            rem(list,i)
+        end
+    end
+end
+function TEXT.draw(list)
+    if not list then
+        list=texts
+    end
+    for i=1,#list do
+        local t=list[i]
+        local p=t.c
+        setColor(1,1,1,p<.2 and p*5 or p<.8 and 1 or 5-p*5)
+        t:draw()
+    end
+end
+return TEXT

Zframework/vibrate.lua

@@ -0,0 +1,12 @@
+local level={0,0,.01,.016,.023,.03,.04,.05,.06,.07,.08,.09,.12,.15}
+local vib=love.system.vibrate
+return love.system.getOS()=='iOS'and
+    function(t)
+        t=level[t]
+        if t then vib(t<=.03 and 1 or t<=.09 and 2 or 3)end
+    end
+or
+    function(t)
+        t=level[t]
+        if t then vib(t)end
+    end

Zframework/voice.lua

@@ -0,0 +1,132 @@
+local rnd=math.random
+local volume=1
+local diversion=0
+local VOC={
+    getCount=function()return 0 end,
+    getQueueCount=function()return 0 end,
+    load=function()error("Cannot load before init!")end,
+    getFreeChannel=NULL,
+    play=NULL,
+    update=NULL,
+}
+function VOC.setDiversion(n)
+    assert(type(n)=='number'and n>0 and n<12,'Wrong div')
+    diversion=n
+end
+function VOC.setVol(v)
+    assert(type(v)=='number'and v>=0 and v<=1,'Wrong volume')
+    volume=v
+end
+function VOC.init(list)
+    VOC.init=nil
+    local rem=table.remove
+    local voiceQueue={free=0}
+    local bank={}--{vocName1={SRC1s},vocName2={SRC2s},...}
+    local Source={}
+
+    local count=#list function VOC.getCount()return count end
+    local function _loadVoiceFile(path,N,vocName)
+        local fullPath=path..vocName..'.ogg'
+        if love.filesystem.getInfo(fullPath)then
+            bank[vocName]={love.audio.newSource(fullPath,'stream')}
+            table.insert(Source[N],vocName)
+            return true
+        end
+    end
+    --Load voice with string
+    local function _getVoice(str)
+        local L=bank[str]
+        local n=1
+        while L[n]:isPlaying()do
+            n=n+1
+            if not L[n]then
+                L[n]=L[1]:clone()
+                L[n]:seek(0)
+                break
+            end
+        end
+        return L[n]
+    end
+    function VOC.load(path)
+        for i=1,count do
+            Source[list[i]]={}
+
+            local n=0
+            repeat n=n+1 until not _loadVoiceFile(path,list[i],list[i]..'_'..n)
+
+            if n==1 then
+                if not _loadVoiceFile(path,list[i],list[i])then
+                    LOG("No VOC: "..list[i],.1)
+                end
+            end
+            if not Source[list[i]][1]then
+                Source[list[i]]=nil
+            end
+        end
+
+        function VOC.getQueueCount()
+            return #voiceQueue
+        end
+        function VOC.getFreeChannel()
+            local l=#voiceQueue
+            for i=1,l do
+                if #voiceQueue[i]==0 then return i end
+            end
+            voiceQueue[l+1]={s=0}
+            return l+1
+        end
+
+        function VOC.play(s,chn)
+            if volume>0 then
+                local _=Source[s]
+                if not _ then return end
+                if chn then
+                    local L=voiceQueue[chn]
+                    L[#L+1]=_[rnd(#_)]
+                    L.s=1
+                    --Add to queue[chn]
+                else
+                    voiceQueue[VOC.getFreeChannel()]={s=1,_[rnd(#_)]}
+                    --Create new channel & play
+                end
+            end
+        end
+        function VOC.update()
+            for i=#voiceQueue,1,-1 do
+                local Q=voiceQueue[i]
+                if Q.s==0 then--Free channel, auto delete when >3
+                    if i>3 then
+                        rem(voiceQueue,i)
+                    end
+                elseif Q.s==1 then--Waiting load source
+                    Q[1]=_getVoice(Q[1])
+                    Q[1]:setVolume(volume)
+                    Q[1]:setPitch(1.0594630943592953^(diversion*(rnd()*2-1)))
+                    Q[1]:play()
+                    Q.s=Q[2]and 2 or 4
+                elseif Q.s==2 then--Playing 1,ready 2
+                    if Q[1]:getDuration()-Q[1]:tell()<.08 then
+                        Q[2]=_getVoice(Q[2])
+                        Q[2]:setVolume(volume)
+                        Q[1]:setPitch(1.0594630943592953^(diversion*(rnd()*2-1)))
+                        Q[2]:play()
+                        Q.s=3
+                    end
+                elseif Q.s==3 then--Playing 12 same time
+                    if not Q[1]:isPlaying()then
+                        for j=1,#Q do
+                            Q[j]=Q[j+1]
+                        end
+                        Q.s=Q[2]and 2 or 4
+                    end
+                elseif Q.s==4 then--Playing last
+                    if not Q[1].isPlaying(Q[1])then
+                        Q[1]=nil
+                        Q.s=0
+                    end
+                end
+            end
+        end
+    end
+end
+return VOC

Zframework/websocket.lua

@@ -0,0 +1,191 @@
+local host=
+    -- '127.0.0.1'
+    -- '192.168.114.102'
+    'game.techmino.org'
+local port='10026'
+local path='/tech/socket/v1'
+
+-- lua + LÖVE threading websocket client
+-- Original pure lua ver. by flaribbit and Particle_G
+-- Threading version by MrZ
+
+local type=type
+local timer=love.timer.getTime
+local CHN=love.thread.newChannel()
+local CHN_getCount,CHN_push,CHN_pop=CHN.getCount,CHN.push,CHN.pop
+local TRD=love.thread.newThread("\n")
+local TRD_isRunning=TRD.isRunning
+
+local WS={}
+local wsList=setmetatable({},{
+    __index=function(l,k)
+        local ws={
+            real=false,
+            status='dead',
+            lastPongTime=timer(),
+            sendTimer=0,
+            alertTimer=0,
+            pongTimer=0,
+        }
+        l[k]=ws
+        return ws
+    end
+})
+
+function WS.switchHost(_1,_2,_3)
+    for k in next,wsList do
+        WS.close(k)
+    end
+    host=_1
+    port=_2 or port
+    path=_3 or path
+end
+
+function WS.connect(name,subPath,body,timeout)
+    if wsList[name]and wsList[name].thread then
+        wsList[name].thread:release()
+    end
+    local ws={
+        real=true,
+        thread=love.thread.newThread('Zframework/websocket_thread.lua'),
+        triggerCHN=love.thread.newChannel(),
+        sendCHN=love.thread.newChannel(),
+        readCHN=love.thread.newChannel(),
+        lastPingTime=0,
+        lastPongTime=timer(),
+        pingInterval=6,
+        status='connecting',--'connecting', 'running', 'dead'
+        sendTimer=0,
+        alertTimer=0,
+        pongTimer=0,
+    }
+    wsList[name]=ws
+    ws.thread:start(ws.triggerCHN,ws.sendCHN,ws.readCHN)
+    CHN_push(ws.sendCHN,host)
+    CHN_push(ws.sendCHN,port)
+    CHN_push(ws.sendCHN,path..subPath)
+    CHN_push(ws.sendCHN,body or"")
+    CHN_push(ws.sendCHN,timeout or 2.6)
+end
+
+function WS.status(name)
+    local ws=wsList[name]
+    return ws.status or'dead'
+end
+
+function WS.getTimers(name)
+    local ws=wsList[name]
+    return ws.pongTimer,ws.sendTimer,ws.alertTimer
+end
+
+function WS.setPingInterval(name,time)
+    local ws=wsList[name]
+    ws.pingInterval=math.max(time or 2.6,2.6)
+end
+
+function WS.alert(name)
+    local ws=wsList[name]
+    ws.alertTimer=2.6
+end
+
+local OPcode={
+    continue=0,
+    text=1,
+    binary=2,
+    close=8,
+    ping=9,
+    pong=10,
+}
+local OPname={
+    [0]='continue',
+    [1]='text',
+    [2]='binary',
+    [8]='close',
+    [9]='ping',
+    [10]='pong',
+}
+function WS.send(name,message,op)
+    if type(message)=='string'then
+        local ws=wsList[name]
+        if ws.real and ws.status=='running'then
+            CHN_push(ws.sendCHN,op and OPcode[op]or 2)--2=binary
+            CHN_push(ws.sendCHN,message)
+            ws.lastPingTime=timer()
+            ws.sendTimer=1
+        end
+    else
+        MES.new('error',"Attempt to send non-string value!")
+        MES.traceback()
+    end
+end
+
+function WS.read(name)
+    local ws=wsList[name]
+    if ws.real and ws.status~='connecting'and CHN_getCount(ws.readCHN)>=2 then
+        local op,message=CHN_pop(ws.readCHN),CHN_pop(ws.readCHN)
+        if op==8 then--8=close
+            ws.status='dead'
+        elseif op==9 then--9=ping
+            WS.send(name,message or"",'pong')
+        end
+        ws.lastPongTime=timer()
+        ws.pongTimer=1
+        return message,OPname[op]or op
+    end
+end
+
+function WS.close(name)
+    local ws=wsList[name]
+    if ws.real then
+        CHN_push(ws.sendCHN,8)--close
+        CHN_push(ws.sendCHN,"")
+        ws.status='dead'
+    end
+end
+
+function WS.update(dt)
+    local time=timer()
+    for name,ws in next,wsList do
+        if ws.real and ws.status~='dead'then
+            if TRD_isRunning(ws.thread)then
+                if CHN_getCount(ws.triggerCHN)==0 then
+                    CHN_push(ws.triggerCHN,0)
+                end
+                if ws.status=='connecting'then
+                    local mes=CHN_pop(ws.readCHN)
+                    if mes then
+                        if mes=='success'then
+                            ws.status='running'
+                            ws.lastPingTime=time
+                            ws.lastPongTime=time
+                            ws.pongTimer=1
+                        else
+                            ws.status='dead'
+                            MES.new('warn',text.wsFailed..": "..(mes=="timeout"and text.netTimeout or mes))
+                        end
+                    end
+                elseif ws.status=='running'then
+                    if time-ws.lastPingTime>ws.pingInterval then
+                        WS.send(name,"",'pong')
+                    end
+                    if time-ws.lastPongTime>6+2*ws.pingInterval then
+                        WS.close(name)
+                    end
+                end
+                if ws.sendTimer>0 then ws.sendTimer=ws.sendTimer-dt end
+                if ws.pongTimer>0 then ws.pongTimer=ws.pongTimer-dt end
+                if ws.alertTimer>0 then ws.alertTimer=ws.alertTimer-dt end
+            else
+                ws.status='dead'
+                local err=ws.thread:getError()
+                if err then
+                    err=err:sub((err:find(":",(err:find(":")or 0)+1)or 0)+1,(err:find("\n")or 0)-1)
+                    MES.new('warn',text.wsClose..err)
+                    WS.alert(name)
+                end
+            end
+        end
+    end
+end
+
+return WS

Zframework/websocket_thread.lua

@@ -0,0 +1,191 @@
+local triggerCHN,sendCHN,readCHN=...
+
+local CHN_demand,CHN_getCount=triggerCHN.demand,triggerCHN.getCount
+local CHN_push,CHN_pop=triggerCHN.push,triggerCHN.pop
+
+local SOCK=require'socket'.tcp()
+local JSON=require'Zframework.json'
+
+do--Connect
+    local host=CHN_demand(sendCHN)
+    local port=CHN_demand(sendCHN)
+    local path=CHN_demand(sendCHN)
+    local body=CHN_demand(sendCHN)
+    local timeout=CHN_demand(sendCHN)
+
+    SOCK:settimeout(timeout)
+    local res,err=SOCK:connect(host,port)
+    assert(res,err)
+
+    --WebSocket handshake
+    if not body then body=''end
+    SOCK:send(
+        'GET '..path..' HTTP/1.1\r\n'..
+        'Host: '..host..':'..port..'\r\n'..
+        'Connection: Upgrade\r\n'..
+        'Upgrade: websocket\r\n'..
+        'Content-Type: application/json\r\n'..
+        'Content-Length: '..#body..'\r\n'..
+        'Sec-WebSocket-Version: 13\r\n'..
+        'Sec-WebSocket-Key: osT3F7mvlojIvf3/8uIsJQ==\r\n\r\n'..--secKey
+        body
+    )
+
+    --First line of HTTP
+    res,err=SOCK:receive('*l')
+    assert(res,err)
+    local code,ctLen
+    code=res:find(' ')
+    code=res:sub(code+1,code+3)
+
+    --Get body length from headers and remove headers
+    repeat
+        res,err=SOCK:receive('*l')
+        assert(res,err)
+        if not ctLen and res:find('length')then
+            ctLen=tonumber(res:match('%d+'))
+        end
+    until res==''
+
+    --Result
+    if ctLen then
+        if code=='101'then
+            CHN_push(readCHN,'success')
+        else
+            res,err=SOCK:receive(ctLen)
+            res=JSON.decode(assert(res,err))
+            error((code or"XXX")..":"..(res and res.reason or"Server Error"))
+        end
+    end
+    SOCK:settimeout(0)
+end
+
+local YIELD=coroutine.yield
+local byte,char=string.byte,string.char
+local band,bor,bxor=bit.band,bit.bor,bit.bxor
+local shl,shr=bit.lshift,bit.rshift
+
+local mask_key={1,14,5,14}
+local mask_str=char(unpack(mask_key))
+local function _send(op,message)
+    --Message type
+    SOCK:send(char(bor(op,0x80)))
+
+    if message then
+        --Length
+        local length=#message
+        if length>65535 then
+            SOCK:send(char(bor(127,0x80),0,0,0,0,band(shr(length,24),0xff),band(shr(length,16),0xff),band(shr(length,8),0xff),band(length,0xff)))
+        elseif length>125 then
+            SOCK:send(char(bor(126,0x80),band(shr(length,8),0xff),band(length,0xff)))
+        else
+            SOCK:send(char(bor(length,0x80)))
+        end
+        local msgbyte={byte(message,1,length)}
+        for i=1,length do
+            msgbyte[i]=bxor(msgbyte[i],mask_key[(i-1)%4+1])
+        end
+        return SOCK:send(mask_str..char(unpack(msgbyte)))
+    else
+        SOCK:send('\128'..mask_str)
+        return 0
+    end
+end
+local sendThread=coroutine.wrap(function()
+    while true do
+        while CHN_getCount(sendCHN)>=2 do
+            _send(CHN_pop(sendCHN),CHN_pop(sendCHN))
+        end
+        YIELD()
+    end
+end)
+
+local function _receive(sock,len)
+    local buffer=""
+    while true do
+        local r,e,p=sock:receive(len)
+        if r then
+            buffer=buffer..r
+            len=len-#r
+        elseif p then
+            buffer=buffer..p
+            len=len-#p
+        elseif e then
+            return nil,e
+        end
+        if len==0 then
+            return buffer
+        end
+        YIELD()
+    end
+end
+local readThread=coroutine.wrap(function()
+    local res,err
+    local op,fin
+    local lBuffer=""--Long multi-pack buffer
+    while true do
+        --Byte 0-1
+        res,err=_receive(SOCK,2)
+        assert(res,err)
+
+        op=band(byte(res,1),0x0f)
+        fin=band(byte(res,1),0x80)==0x80
+
+        --Calculating data length
+        local length=band(byte(res,2),0x7f)
+        if length==126 then
+            res,err=_receive(SOCK,2)
+            assert(res,err)
+            length=shl(byte(res,1),8)+byte(res,2)
+        elseif length==127 then
+            local lenData
+            lenData,err=_receive(SOCK,8)
+            assert(res,err)
+            local _,_,_,_,_5,_6,_7,_8=byte(lenData,1,8)
+            length=shl(_5,24)+shl(_6,16)+shl(_7,8)+_8
+        end
+        res,err=_receive(SOCK,length)
+        assert(res,err)
+
+        --React
+        if op==8 then--8=close
+            CHN_push(readCHN,8)--close
+            if type(res)=='string'then
+                CHN_push(readCHN,res:sub(3))--[Warning] 2 bytes close code at start so :sub(3)
+            else
+                CHN_push(readCHN,"WS closed")
+            end
+            return
+        elseif op==0 then--0=continue
+            lBuffer=lBuffer..res
+            if fin then
+                CHN_push(readCHN,lBuffer)
+                lBuffer=""
+            end
+        else
+            CHN_push(readCHN,op)
+            if fin then
+                CHN_push(readCHN,res)
+                lBuffer=""
+            else
+                lBuffer=res
+            end
+        end
+        YIELD()
+    end
+end)
+
+local success,err
+
+while true do--Running
+    CHN_demand(triggerCHN)
+    success,err=pcall(sendThread)
+    if not success or err then break end
+    success,err=pcall(readThread)
+    if not success or err then break end
+end
+
+SOCK:close()
+CHN_push(readCHN,8)--close
+CHN_push(readCHN,err or"Disconnected")
+error()

Zframework/wheelScroll.lua

@@ -0,0 +1,19 @@
+local love=love
+local max,min=math.max,math.min
+local trigDist=0
+return function(y,key1,key2)
+    if y>0 then
+        trigDist=max(trigDist,0)+y^1.2
+    elseif y<0 then
+        if trigDist>0 then trigDist=0 end
+        trigDist=min(trigDist,0)-(-y)^1.2
+    end
+    while trigDist>=1 do
+        love.keypressed(key1 or'up')
+        trigDist=trigDist-1
+    end
+    while trigDist<=-1 do
+        love.keypressed(key2 or'down')
+        trigDist=trigDist+1
+    end
+end

legals.md

@@ -1,4 +1,4 @@
-TECHMINO © 2019–2022 26F Studio. Some rights reserved.
+TECHMINO © 2019-2021 26F Studio. Some rights reserved.
 
 TECHMINO and "26F Studio" are trademarks of 26F Studio. The TECHMINO game and source code are under a GNU Lesser General Public License Version 3.
 
@@ -6,13 +6,13 @@ TECHMINO and "26F Studio" are trademarks of 26F Studio. The TECHMINO game and so
 "Tetris" is the registered trademark of The Tetris Holding, LLC, licensed to The Tetris Company, Inc. TECHMINO is not a fan game of Tetris. TECHMINO and 26F Studio are not affiliated with Tetris Holding, LLC or The Tetris Company, Inc. in any way.
 
 
-Powered by LÖVE, © 2006–2022 LÖVE Development Team.
+Powered by LÖVE, © 2006-2021 LÖVE Development Team.
 
-Lua is free software distributed under the terms of the MIT license. Copyright © 1994–2022 by Lua.org, PUC-Rio.
+Lua is free software distributed under the terms of the MIT license. Copyright © 1994-2021 by Lua.org, PUC-Rio.
 
 SIMPLE LOVE LIGHTS is under a MIT License. Created by Dylan Hunn.
 
-json.lua is copyrighted by rxi. © 2022 rxi.
+json.lua is copyrighted by rxi. © 2021 rxi.
 
 IBM Plex is copyrighted by the International Business Machines Corporation. IBM and IBM Plex are trademarks of IBM Corp, registered in many jurisdictions worldwide. IBM Plex is licensed under the SIL Open Font License, Version 1.1.
 
@@ -23,7 +23,7 @@ Source Han Sans is copyrighted by Adobe Inc. Source Han Sans and Adobe are regis
 JetBrains Mono is copyrighted by the JetBrains Mono Project authors. JetBrains Mono is a trademark of JetBrains s.r.o. JetBrains Mono is licensed under the SIL Open Font License, Version 1.1.
 
 
-"PlayStation", "PS", "PlayStation Family Mark", "PS logo", "DualSense" and "Play Has No Limits" are registered trademarks or trademarks of Sony Interactive Entertainment Inc. "SONY" is a registered trademark of Sony Corporation. © 2022 Sony Interactive Entertainment LLC.
+"PlayStation", "PS", "PlayStation Family Mark", "PS logo", "DualSense" and "Play Has No Limits" are registered trademarks or trademarks of Sony Interactive Entertainment Inc. "SONY" is a registered trademark of Sony Corporation. © 2021 Sony Interactive Entertainment LLC.
 
 
 "Windows", the Windows logo, "Xbox", Xbox logo, and "Microsoft" are registered trademarks of Microsoft Corporation in the United States of America and other countries or regions.
@@ -32,20 +32,20 @@ JetBrains Mono is copyrighted by the JetBrains Mono Project authors. JetBrains M
 The Apple logo, "Apple Inc.," iOS, iPadOS, macOS, iPhone, and Mac are registered trademarks of Apple Inc. in the United States of America and other countries or regions.
 
 
-"EA" and "Electronic Arts" are registered trademarks of Electronic Arts Inc. © 2022 Electronic Arts Inc.
+"EA" and "Electronic Arts" are registered trademarks of Electronic Arts Inc. © 2021 Electronic Arts Inc.
 
-SEGA and the SEGA logo are registered trademarks of Sega Corporation. © 2022 Sega Corporation.
+SEGA and the SEGA logo are registered trademarks of Sega Corporation. © 2021 Sega Corporation.
 
 Oculus Quest is a registered trademark of Facebook Technologies, LLC. © Meta Platforms, Inc.
 
-"Nintendo" is a registered trademarks of Nintendo Co., Ltd. © 2022 Nintendo Co., Ltd.
+"Nintendo" is a registered trademarks of Nintendo Co., Ltd. © 2021 Nintendo Co., Ltd.
 
-N3TWORK is a registered trademark of N3TWORK Inc. © 2022 N3TWORK Inc.
+N3TWORK is a registered trademark of N3TWORK Inc. © 2021 N3TWORK Inc.
 
 GoldWave is a registered trademark of GoldWave, Inc.
 
 Linux is a registered trademark of Linus Torvalds.
 
-Touhou Project © Team Shanghai Alice 2002–2022.
+Touhou Project © Team Shanghai Alice 2002-2021.
 
 All other trademarks, logos, and copyrights are the properties of their respective owners.

main.lua

@@ -51,8 +51,8 @@ local _LOADTIME_=TIME()
 --Load modules
 Z=require'Zframework'
 FONT.load{
-    norm='parts/fonts/proportional.otf',
-    mono='parts/fonts/monospaced.otf',
+    norm='parts/fonts/proportional.ttf',
+    mono='parts/fonts/monospaced.ttf',
 }
 FONT.setDefault('norm')
 FONT.setFallback('norm')
@@ -128,7 +128,7 @@ BOT=        require'parts.bot'
 RSlist=     require'parts.RSlist'DSCP=RSlist.TRS.centerPos
 PLY=        require'parts.player'
 NETPLY=     require'parts.netPlayer'
-MODES=      require'parts.modes'
+MODETREE=   require'parts.modeTree'
 
 setmetatable(TEXTURE,{__index=function(self,k)
     MES.new('warn',"No texture called: "..k)
@@ -159,7 +159,7 @@ do--Z.setCursor
             _=BLOCK_COLORS[SETTING.skin[R]]
             gc_setColor(_[1],_[2],_[3],min(abs(1-time%2),.3))
             _=DSCP[R][0]
-            gc_draw(TEXTURE.miniBlock[R],x,y,time%3.14159265359*4,8,8,2*_[2]+1,2*(#BLOCKS[R][0]-_[1])-1)
+            gc_draw(TEXTURE.miniBlock[R],x,y,time%3.14159265359*4,16,16,_[2]+.5,#BLOCKS[R][0]-_[1]-.5)
             gc_setColor(1,1,1)
             gc_draw(ms.isDown(1)and holdImg or normImg,x,y,nil,nil,nil,8,8)
         end
@@ -184,12 +184,6 @@ Z.setOnFnKeys({
     function()for k,v in next,_G do print(k,v)end end,
     function()if love['_openConsole']then love['_openConsole']()end end,
 })
-Z.setDebugInfo{
-    {"Cache",gcinfo},
-    {"Tasks",TASK.getCount},
-    {"Voices",VOC.getQueueCount},
-    {"Audios",love.audio.getSourceCount},
-}
 Z.setOnResize(function(w,_)
     SHADER.warning:send('w',w*SCR.dpi)
 end)
@@ -277,6 +271,7 @@ IMG.init{
     speedLimit='media/image/mess/speedLimit.png',--Not used, for future C2-mode
     pay1='media/image/mess/pay1.png',
     pay2='media/image/mess/pay2.png',
+    drought='media/image/mess/drought.png',
 
     miyaCH1='media/image/characters/miya1.png',
     miyaCH2='media/image/characters/miya2.png',
@@ -321,7 +316,6 @@ SKIN.load{
     {name="yinyang_scf",path='media/image/skin/yinyang_scf.png'},
     {name="cartooncup_earety",path='media/image/skin/cartooncup_earety.png'},
     {name="jelly_miya",path='media/image/skin/jelly_miya.png'},
-    {name="guidetris_xmiao_lusisi",path='media/image/skin/guidetris_xmiao_lusisi.png'},
     {name="brick_notypey",path='media/image/skin/brick_notypey.png'},
     {name="gem_notypey",path='media/image/skin/gem_notypey.png'},
     {name="classic",path='media/image/skin/classic_unknown.png'},
@@ -367,13 +361,14 @@ LANG.init('zh',
     {
         zh=require'parts.language.lang_zh',
         zh_trad=require'parts.language.lang_zh_trad',
+        zh_full=require'parts.language.lang_zh_full',
         en=require'parts.language.lang_en',
         fr=require'parts.language.lang_fr',
         es=require'parts.language.lang_es',
         pt=require'parts.language.lang_pt',
         id=require'parts.language.lang_id',
-        ja=require'parts.language.lang_ja',
         zh_grass=require'parts.language.lang_zh_grass',
+        zh_yygq=require'parts.language.lang_yygq',
         symbol=require'parts.language.lang_symbol',
         --1. Add language file to LANG folder;
         --2. Require it;
@@ -415,24 +410,6 @@ for _,v in next,fs.getDirectoryItems('parts/scenes')do
         LANG.addScene(sceneName)
     end
 end
---Load mode files
-for i=1,#MODES do
-    local m=MODES[i]--Mode template
-    if isSafeFile('parts/modes/'..m.name)then
-        TABLE.complete(require('parts.modes.'..m.name),MODES[i])
-        MODES[m.name],MODES[i]=MODES[i]
-    end
-end
-for _,v in next,fs.getDirectoryItems('parts/modes')do
-    if isSafeFile('parts/modes/'..v)and not MODES[v:sub(1,-5)]then
-        local M={name=v:sub(1,-5)}
-        local modeData=require('parts.modes.'..M.name)
-        if modeData.env then
-            TABLE.complete(modeData,M)
-            MODES[M.name]=M
-        end
-    end
-end
 
 table.insert(_LOADTIMELIST_,("Load Files: %.3fs"):format(TIME()-_LOADTIME_))
 
@@ -550,7 +527,6 @@ do
     if type(SETTING.bg)~='string'then SETTING.bg='on'end
     if SETTING.skin[18]==10 then SETTING.skin[18]=4 end
     if SETTING.reTime>3 or SETTING.reTime<.5 then SETTING.reTime=2 end
-    if SETTING.locale=='zh_full' then SETTING.locale='zh' end
     if RANKS.infinite then RANKS.infinite=0 end
     if RANKS.infinite_dig then RANKS.infinite_dig=0 end
     if not RANKS.sprint_10l then RANKS.sprint_10l=0 end
@@ -561,26 +537,8 @@ do
         if type(name)=='number'or type(rank)~='number'then
             RANKS[name]=nil
             needSave=true
-        else
-            local M=MODES[name]
-            if M and M.unlock and rank>0 then
-                for _,unlockName in next,M.unlock do
-                    if not RANKS[unlockName]then
-                        RANKS[unlockName]=0
-                        needSave=true
-                    end
-                end
-            end
-            if not(M and M.x)then
-                RANKS[name]=nil
-                needSave=true
-            end
         end
     end
-    if not MODES[STAT.lastPlay]then
-        STAT.lastPlay='sprint_10l'
-        needSave=true
-    end
 
     if needSave then
         saveStats()
@@ -684,4 +642,3 @@ if TABLE.find(arg,'--test')then
         love.event.quit(1)
     end)
 end
-WS.switchHost('101.43.110.22','10026','/tech/socket/v1')