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

Dictionary: "A 🤔 game developed using LÖVE."
Legal page: "TECHMINO is not a fan game of Tetris."

This commit edits the dictionary to follow the legal page into:
"A block stacker game developed using LÖVE."

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_1.md

@@ -0,0 +1,8 @@
+---
+name: Bug report (bluescreen crash) Bug报告 (蓝屏报错)
+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 the exactly time the game crash, like pressing which key or which button (*Details Here*)

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_2.md

@@ -0,0 +1,8 @@
+---
+name: Bug report (unintended behaviors) Bug报告 (奇怪的现象)
+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 the exactly time the game crash, like pressing which key or which button (*Details Here*):

.github/ISSUE_TEMPLATE/ISSUE_TEMPLATE_3.md

@@ -0,0 +1,4 @@
+---
+name: Feature Request 添加新功能
+about: Suggest an idea that may improve Techmino 提一些有意思的新想法,让Techmino越来越好!
+---

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

@@ -0,0 +1,24 @@
+name: 'Automatic Test'
+description: 'Check for obvious errors.'
+
+runs:
+  using: "composite"
+  steps:
+  - uses: actions/checkout@v2
+  - uses: ./.github/actions/build-love
+    with:
+      file-path: Techmino.love
+  - name: Download love
+    shell: bash
+    run: |
+      curl -L https://github.com/love2d/love/releases/download/11.3/love-11.3-linux-x86_64.tar.gz | tar xz
+  - name: Prepare PulseAudio
+    shell: bash
+    run: |
+      sudo apt-get update
+      sudo apt-get install pulseaudio pulseaudio-utils pavucontrol alsa-oss alsa-utils -y
+  - name: Run automated test
+    uses: GabrielBB/xvfb-action@v1
+    with:
+      run: |
+        ./dest/love Techmino.love --test

.github/actions/build-android/action.yml

@@ -0,0 +1,102 @@
+name: 'build Android'
+description: 'build Android package'
+inputs:
+  type:
+    required: true
+  apkCode:
+    required: true
+  name:
+    required: true
+  file-path:
+    required: true
+  SIGNING_KEY:
+    required: true
+  KEY_STORE_PASSWORD:
+    required: true
+  ALIAS:
+    required: true
+  KEY_PASSWORD:
+    required: true
+runs:
+  using: "composite"
+  steps:
+    - uses: actions/setup-java@v2
+      with:
+        distribution: 'adopt'
+        java-version: '8'
+    - name: Clone love-android
+      shell: bash
+      run: |
+        git clone --recurse-submodules https://github.com/26F-Studio/love-android -b CI --depth 1 --shallow-submodules
+    - uses: ./.github/actions/build-love
+      with:
+        file-path: love-android/app/src/main/assets/game.love
+    - name: Download ColdClear arm64-v8a
+      uses: ./.github/actions/get-cc
+      with:
+        arch: android_aarch64
+        dir: ColdClear/arm64-v8a
+    - name: Process ColdClear arm64-v8a
+      shell: bash
+      run: |
+        mkdir -p love-android/app/libs/arm64-v8a
+        mv ColdClear/arm64-v8a/love-11.3-android/lib/arm64-v8a/libcold_clear.so love-android/app/libs/arm64-v8a
+        mkdir -p libAndroid/arm64-v8a
+        mv ColdClear/arm64-v8a/libs/arm64-v8a/libCCloader.so libAndroid/arm64-v8a
+    - name: Download ColdClear armeabi-v7a
+      uses: ./.github/actions/get-cc
+      with:
+        arch: android_armv7
+        dir: ColdClear/armeabi-v7a
+    - name: Process ColdClear armeabi-v7a
+      shell: bash
+      run: |
+        mkdir -p love-android/app/libs/armeabi-v7a
+        mv ColdClear/armeabi-v7a/love-11.3-android/lib/armeabi-v7a/libcold_clear.so love-android/app/libs/armeabi-v7a
+        mkdir -p libAndroid/armeabi-v7a
+        mv ColdClear/armeabi-v7a/libs/armeabi-v7a/libCCloader.so libAndroid/armeabi-v7a
+    - name: Pack ColdClear
+      shell: bash
+      run: |
+        7z a -tzip love-android/app/src/main/assets/game.love libAndroid
+    - name: update Android information
+      shell: python
+      run: |
+        if '${{ inputs.type }}' == 'Release':
+          appName = 'Techmino'
+          packageName = 'org.love2d.MrZ.Techmino'
+          edition = 'release'
+        elif '${{ inputs.type }}' == 'Snapshot':
+          appName = 'Techmino_Snapshot'
+          packageName = 'org.love2d.MrZ.Techmino.Snapshot'
+          edition = 'snapshot'
+        with open('./love-android/app/src/main/AndroidManifest.xml', "r+", encoding='utf-8') as file:
+          data = file.read()
+          data = data\
+            .replace('@appName', appName)\
+            .replace('@edition', edition)
+          file.seek(0)
+          file.truncate()
+          file.write(data)
+        with open("./love-android/app/build.gradle", "r+", encoding='utf-8') as file:
+          data = file.read()
+          data = data\
+            .replace('@packageName', packageName)\
+            .replace('@versionCode', '${{ inputs.apkCode }}')\
+            .replace('@versionName', '${{ inputs.name }}')\
+            .replace('@storePassword', '${{ inputs.KEY_STORE_PASSWORD }}')\
+            .replace('@keyAlias', '${{ inputs.ALIAS }}')\
+            .replace('@keyPassword', '${{ inputs.KEY_PASSWORD }}')
+          file.seek(0)
+          file.truncate()
+          file.write(data)
+    - name: Build Techmino
+      shell: bash
+      run: |
+        echo "${{ inputs.SIGNING_KEY }}" | base64 -d > love-android/app/android.keystore
+        chmod 777 love-android/gradlew
+        cd love-android/
+        ./gradlew assembleRelease
+    - name: rename apk
+      shell: bash
+      run: mv love-android/app/build/outputs/apk/release/app-release.apk ${{ inputs.file-path }}

.github/actions/build-ios/action.yml

@@ -0,0 +1,96 @@
+name: 'build iOS'
+description: 'build iOS package'
+inputs:
+  name:
+    required: true
+    description: "Version name"
+  type:
+    required: true
+    description: "Build type"
+  APPLE_API_ID:
+    required: true
+    description: "API key ID"
+  APPLE_API_ISSUER:
+    required: true
+    description: "API issuer ID"
+  APPLE_API_KEY:
+    required: true
+    description: "API key content"
+  APPLE_APP_BUILD:
+    required: true
+    description: "Build number"
+  APPLE_APP_CHANGELOG:
+    required: true
+    description: "Changelog"
+  APPLE_APP_ID:
+    required: true
+    description: "AppStore Apple ID"
+  APPLE_APP_IDENTIFIER:
+    required: true
+    description: "Bundle ID"
+  APPLE_APP_PROFILE:
+    required: true
+    description: "Provisioning Profile specifer"
+  APPLE_KEYCHAIN_NAME:
+    required: true
+    description: "Temporary keychain name"
+  APPLE_KEYCHAIN_PWD:
+    required: true
+    description: "Temporary keychain password"
+  FASTLANE_DISCORD_WEBHOOK:
+    required: true
+    description: "Fastlane Discord webhook"
+  FASTLANE_ACTION_ID:
+    required: true
+    description: "Fastlane Action ID"
+  FASTLANE_MATCH_PWD:
+    required: true
+    description: "Fastlane Match description password"
+  FASTLANE_MATCH_TOKEN:
+    required: true
+    description: "Fastlane Match Github token"
+runs:
+  using: "composite"
+  steps:
+    - uses: ./.github/actions/build-love
+    - name: Checkout source codes
+      uses: actions/checkout@v2
+      with:
+        repository: '26F-Studio/Techmino-iOS'
+        path: 'Techmino-iOS'
+    - name: Download CCloader
+      uses: ./.github/actions/get-cc
+      with:
+        arch: iOS
+    - name: Update source codes
+      shell: bash
+      run: |
+        mv Techmino.love Techmino-iOS/platform/xcode
+        mv libcold_clear.a Techmino-iOS/platform/xcode
+        mv libCCloader.a Techmino-iOS/platform/xcode
+    - name: Run fastlane
+      uses: maierj/fastlane-action@v2.0.1
+      with:
+        lane: '${{ inputs.type }}'
+        subdirectory: 'Techmino-iOS/platform/xcode'
+      env:
+          ACTION_ID: '${{ inputs.FASTLANE_ACTION_ID }}'
+          API_ID: '${{ inputs.APPLE_API_ID }}'
+          API_ISSUER: '${{ inputs.APPLE_API_ISSUER }}'
+          API_KEY: '${{ inputs.APPLE_API_KEY }}'
+          APP_BUILD: '${{ inputs.APPLE_APP_BUILD }}'
+          APP_CHANGELOG: '${{ inputs.APPLE_APP_CHANGELOG }}'
+          APP_ID: '${{ inputs.APPLE_APP_ID }}'
+          APP_IDENTIFIER: '${{ inputs.APPLE_APP_IDENTIFIER }}'
+          APP_PROFILE: '${{ inputs.APPLE_APP_PROFILE }}'
+          APP_VERSION: '${{ inputs.name }}'
+          DISCORD_WEBHOOK: '${{ inputs.FASTLANE_DISCORD_WEBHOOK }}'
+          KEYCHAIN_NAME: '${{ inputs.APPLE_KEYCHAIN_NAME }}'
+          KEYCHAIN_PWD: '${{ inputs.APPLE_KEYCHAIN_PWD }}'
+          MATCH_PASSWORD: '${{ inputs.FASTLANE_MATCH_PWD }}'
+          MATCH_TOKEN: '${{ inputs.FASTLANE_MATCH_TOKEN }}'
+    - name: Move ipa
+      shell: bash
+      run: |
+        mv Techmino-iOS/platform/xcode/Techmino.ipa Techmino.ipa
+        

.github/actions/build-linux/action.yml

@@ -0,0 +1,40 @@
+name: 'build Linux'
+description: 'build Linux package'
+inputs:
+  file-path:
+    required: false
+    default: Techmino.AppImage
+  icon:
+    required: true
+runs:
+  using: "composite"
+  steps:
+    - name: Download AppImageKit
+      shell: bash
+      run: |
+        curl -OL https://github.com/AppImage/AppImageKit/releases/download/13/appimagetool-x86_64.AppImage
+    - name: Download love
+      shell: bash
+      run: |
+        curl -OL https://github.com/love2d/love/releases/download/11.3/love-11.3-x86_64.AppImage
+        chmod 777 love-11.3-x86_64.AppImage
+        ./love-11.3-x86_64.AppImage --appimage-extract
+    - name: Download ColdClear
+      uses: ./.github/actions/get-cc
+      with:
+        arch: linux
+    - name: Pack Techmino
+      shell: bash
+      run: |
+        rm -rf squashfs-root/love squashfs-root/love.desktop squashfs-root/love.svg squashfs-root/.DirIcon
+        mv .github/build/Linux/love.template squashfs-root/love
+        mv .github/build/Linux/Techmino.desktop.template squashfs-root/Techmino.desktop
+        mv ${{ inputs.icon }} squashfs-root/icon.png
+        cp squashfs-root/icon.png squashfs-root/.DirIcon
+        chmod 777 squashfs-root/love
+        mkdir -p squashfs-root/usr/share/Techmino
+        mv media parts Zframework conf.lua main.lua version.lua legals.md license.txt squashfs-root/usr/share/Techmino
+        mv CCloader.so squashfs-root/usr/share/Techmino
+        mv libcold_clear.so squashfs-root/usr/lib
+        chmod 777 appimagetool-x86_64.AppImage
+        ./appimagetool-x86_64.AppImage squashfs-root ${{ inputs.file-path }}

.github/actions/build-love/action.yml

@@ -0,0 +1,11 @@
+name: 'build love'
+description: 'build love file'
+inputs:
+  file-path:
+    required: true
+    default: Techmino.love
+runs:
+  using: "composite"
+  steps:
+    - run: 7z a -tzip ${{ inputs.file-path }} media parts Zframework conf.lua main.lua version.lua legals.md license.txt
+      shell: bash

.github/actions/build-macos/action.yml

@@ -0,0 +1,152 @@
+name: 'build Mac OS'
+description: 'build Mac OS package'
+inputs:
+  name:
+    required: true
+    description: "Version name"
+  icon:
+    required: true
+    description: "App icons (.icns)"
+  APPLE_API_ID:
+    required: true
+    description: "API key ID"
+  APPLE_API_ISSUER:
+    required: true
+    description: "API issuer ID"
+  APPLE_API_KEY:
+    required: true
+    description: "API key content"
+  APPLE_APP_IDENTIFIER:
+    required: true
+    description: "Bundle ID"
+  APPLE_KEYCHAIN_NAME:
+    required: true
+    description: "Temporary keychain name"
+  APPLE_KEYCHAIN_PWD:
+    required: true
+    description: "Temporary keychain password"
+  FASTLANE_MATCH_PWD:
+    required: true
+    description: "Fastlane Match description password"
+  FASTLANE_MATCH_TOKEN:
+    required: true
+    description: "Fastlane Match Github token"
+runs:
+  using: "composite"
+  steps:
+    - uses: ./.github/actions/build-love
+    - name: Checkout template
+      uses: actions/checkout@v2
+      with:
+        repository: '26F-Studio/Techmino-macOS'
+        path: 'Techmino-macOS'
+    - name: Download ColdClear
+      uses: ./.github/actions/get-cc
+      with:
+        arch: macOS
+    - name: Fastlane match
+      uses: maierj/fastlane-action@v2.0.1
+      with:
+        lane: 'get_cert'
+        subdirectory: 'Techmino-macOS'
+      env:
+          API_ID: '${{ inputs.APPLE_API_ID }}'
+          API_ISSUER: '${{ inputs.APPLE_API_ISSUER }}'
+          API_KEY: '${{ inputs.APPLE_API_KEY }}'
+          APP_IDENTIFIER: '${{ inputs.APPLE_APP_IDENTIFIER }}'
+          KEYCHAIN_NAME: '${{ inputs.APPLE_KEYCHAIN_NAME }}'
+          KEYCHAIN_PWD: '${{ inputs.APPLE_KEYCHAIN_PWD }}'
+          MATCH_PASSWORD: '${{ inputs.FASTLANE_MATCH_PWD }}'
+          MATCH_TOKEN: '${{ inputs.FASTLANE_MATCH_TOKEN }}'
+    - name: Modify template
+      shell: python
+      run: |
+        import datetime
+        from io import open
+        thisYear = str(datetime.datetime.today().year)
+        with open('./.github/build/macOS/info.plist.template', 'r', encoding='utf-8') as file:
+          data = file.read()
+          data = data\
+            .replace('@versionName', '${{ inputs.name }}'[1:])\
+            .replace('@thisYear', thisYear)\
+            .replace('@bundleId', '${{ inputs.APPLE_APP_IDENTIFIER }}')
+        with open('./Techmino-macOS/Techmino.app/Contents/info.plist', 'w+', encoding='utf-8') as file:
+          file.write(data)
+    - name: Pack
+      shell: bash
+      run: |
+        mv Techmino.love Techmino-macOS/Techmino.app/Contents/Resources
+        mv CCloader.dylib Techmino-macOS/Techmino.app/Contents/Frameworks
+        mv ${{ inputs.icon }} Techmino-macOS/Techmino.app/Contents/Resources/iconfile.icns
+
+        chmod +x Techmino-macOS/Techmino.app/Contents/Frameworks/CCloader.dylib
+        chmod +x Techmino-macOS/Techmino.app/Contents/MacOS/love
+    - name: Codesign executable
+      shell: bash
+      run: |
+        security unlock-keychain -p ${{ inputs.TEMP_KEYCHAIN_PASSWORD }} \
+        ~/Library/Keychains/${{ inputs.TEMP_KEYCHAIN_USER }}-db
+
+        [[ $(security find-identity) =~ ([0-9A-F]{40}) ]]
+
+        codesign --timestamp --force --strict --deep -v \
+        --options runtime \
+        -s ${BASH_REMATCH[1]} \
+        --entitlements Techmino-macOS/love.entitlements \
+        Techmino-macOS/Techmino.app
+    - name: Fastlane notarize
+      uses: maierj/fastlane-action@v2.0.1
+      with:
+        lane: 'make_safe'
+        subdirectory: 'Techmino-macOS'
+      env:
+        API_ID: '${{ inputs.APPLE_API_ID }}'
+        API_ISSUER: '${{ inputs.APPLE_API_ISSUER }}'
+        API_KEY: '${{ inputs.APPLE_API_KEY }}'
+        APP_IDENTIFIER: '${{ inputs.APPLE_APP_IDENTIFIER }}'
+        NOTARIZE_OBJECT: 'Techmino.app'
+    - name: Create DMG file
+      shell: bash
+      run: |
+        brew install create-dmg
+        create-dmg \
+          --volname "Techmino for MacOS" \
+          --volicon "./.github/build/macOS/Techminodisk.icns" \
+          --window-pos 200 120 \
+          --window-size 800 500 \
+          --icon-size 100 \
+          --icon "Techmino.app" 239 203 \
+          --background ".github/build/macOS/backgroundImage.tiff" \
+          --hide-extension "Techmino.app" \
+          --app-drop-link 565 203 \
+          "Techmino-macOS/Techmino-macOS.dmg" \
+          "Techmino-macOS/Techmino.app/"
+    - name: Codesign DMG
+      shell: bash
+      run: |
+        security unlock-keychain -p ${{ inputs.TEMP_KEYCHAIN_PASSWORD }} \
+        ~/Library/Keychains/${{ inputs.TEMP_KEYCHAIN_USER }}-db
+
+        [[ $(security find-identity) =~ ([0-9A-F]{40}) ]]
+
+        codesign --timestamp --force --strict --deep -v \
+        --options runtime \
+        -s ${BASH_REMATCH[1]} \
+        --entitlements Techmino-macOS/love.entitlements \
+        Techmino-macOS/Techmino-macOS.dmg
+    - name: Fastlane notarize
+      uses: maierj/fastlane-action@v2.0.1
+      with:
+        lane: 'make_safe'
+        subdirectory: 'Techmino-macOS'
+      env:
+        API_ID: '${{ inputs.APPLE_API_ID }}'
+        API_ISSUER: '${{ inputs.APPLE_API_ISSUER }}'
+        API_KEY: '${{ inputs.APPLE_API_KEY }}'
+        APP_IDENTIFIER: '${{ inputs.APPLE_APP_IDENTIFIER }}'
+        NOTARIZE_OBJECT: 'Techmino-macOS.dmg'
+    - name: Finalize
+      shell: bash
+      run: |
+        mv Techmino-macOS/Techmino-macOS.dmg Techmino.dmg
+        spctl -a -t open --context context:primary-signature -vv Techmino.dmg

.github/actions/build-windows/action.yml

@@ -0,0 +1,60 @@
+name: 'build Windows'
+description: 'build Windows package'
+inputs:
+  love-url:
+    required: true
+  love-dir:
+    required: true
+  arch:
+    required: true
+  version:
+    required: true
+  icon:
+    required: true
+runs:
+  using: "composite"
+  steps:
+    - name: Download love
+      uses: ./.github/actions/get-unzip
+      with:
+        url: ${{ inputs.love-url }}
+    - name: move love
+      shell: bash
+      run: mv ${{ inputs.love-dir }} love
+    - name: Download ColdClear
+      uses: ./.github/actions/get-cc
+      with:
+        arch: ${{ inputs.arch }}
+    - name: Download ResourceHacker
+      uses: ./.github/actions/get-unzip
+      with:
+        url: http://www.angusj.com/resourcehacker/resource_hacker.zip
+    - uses: ./.github/actions/build-love
+    - name: update Windows template
+      shell: python
+      run: |
+        Version = '${{ inputs.version }}'.replace('V', '')
+        FileVersion = (f"{Version.replace('.', ',')},0")
+        with open('./.github/build/Windows/Techmino.rc.template', 'r', encoding='utf8') as file:
+          data = file.read()
+          data = data\
+            .replace('@FileVersion', FileVersion)\
+            .replace('@Version', Version)
+        with open('Techmino.rc', 'w+', encoding='utf8') as file:
+          file.write(data)
+    - name: Pack Techmino
+      shell: pwsh
+      run: |
+        cmd /c copy /b .\love\love.exe + .\Techmino.love .\love\Techmino.exe
+        del .\love\love.exe
+        del .\love\lovec.exe
+        del .\love\game.ico
+        del .\love\love.ico
+        del .\love\changes.txt
+        del .\love\readme.txt
+        move .\cold_clear.dll .\love
+        move .\CCloader.dll .\love
+        cmd /c '.\ResourceHacker.exe -open .\love\Techmino.exe -save .\love\Techmino.exe -action delete -mask ICONGROUP,,'
+        cmd /c '.\ResourceHacker.exe -open .\Techmino.rc -save .\Techmino.res -action compile'
+        cmd /c '.\ResourceHacker.exe -open .\love\Techmino.exe -save .\love\Techmino.exe -action addoverwrite -res "${{ inputs.icon }}" -mask ICONGROUP,1,'
+        cmd /c '.\ResourceHacker.exe -open .\love\Techmino.exe -save .\love\Techmino.exe -action addoverwrite -res ".\Techmino.res" -mask VERSIONINFO,1,'

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

@@ -0,0 +1,32 @@
+name: 'get cc'
+description: 'download cc into specific dir'
+inputs:
+  tag:
+    required: false
+    default:
+  arch:
+    required: true
+  dir:
+    required: false
+    default: '.'
+  repo:
+    required: false
+    default: 26F-Studio/cold_clear_ai_love2d_wrapper
+  temp-file:
+    required: false
+    default: temp.zip
+runs:
+  using: "composite"
+  steps:
+    - run: |
+        echo "::set-output name=tag::"$(if [ -z "${{ inputs.tag }}" ]
+          then curl -w '%{url_effective}' -I -L -s -S https://github.com/${{ inputs.repo }}/releases/latest -o /dev/null | grep -o '\<[^/]*$'
+          else echo ${{ inputs.tag }}
+        fi)
+      id: get-tag
+      shell: bash
+    - uses: ./.github/actions/get-unzip
+      with:
+        url: https://github.com/${{ inputs.repo }}/releases/download/${{ steps.get-tag.outputs.tag }}/${{ inputs.arch }}.zip
+        dir: ${{ inputs.dir }}
+        temp-file: ${{ inputs.temp-file }}

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

@@ -0,0 +1,18 @@
+name: 'get and unzip'
+description: 'cURL and then 7-zip x'
+inputs:
+  url:
+    required: true
+  dir:
+    required: false
+    default: '.'
+  temp-file:
+    required: false
+    default: temp.zip
+runs:
+  using: "composite"
+  steps:
+    - run: curl -L ${{ inputs.url }} -o ${{ inputs.temp-file }}
+      shell: bash
+    - run: 7z x ${{ inputs.temp-file }} -o${{ inputs.dir }}
+      shell: bash

.github/actions/update-version/action.yml

@@ -0,0 +1,37 @@
+name: 'update version'
+description: 'common update logic for snapshot and release'
+inputs:
+  commit:
+    required: false
+  type:
+    required: true
+runs:
+  using: "composite"
+  steps:
+    - shell: python
+      name: update snapshot saving folder
+      run: |
+        from io import open
+        if '${{ inputs.type }}'.lower() != 'snapshot':
+          exit(0)
+        with open('conf.lua', 'r+', encoding='utf-8') as file:
+          data = file.read()
+          data = data.replace("t.identity='Techmino'--Saving folder", "t.identity='Techmino_Snapshot'--Saving folder")
+          file.seek(0)
+          file.truncate()
+          file.flush()
+          file.write(data)
+    - shell: python
+      run: |
+        from io import open
+        import re
+        with open('version.lua', 'r+', encoding='utf-8') as file:
+          commitHash = '${{ inputs.commit }}'
+          if commitHash != '':
+            commitHash = '@' + commitHash[0:4]
+          data = file.read()
+          data = re.sub('(\d)"', r'\1' + commitHash + '"', data, 1)
+          file.seek(0)
+          file.truncate()
+          file.flush()
+          file.write(data)

.github/build/Linux/Techmino.desktop.template

@@ -0,0 +1,8 @@
+[Desktop Entry]
+Name=Techmino Alpha
+Comment=Techmino is fun!
+Exec=wrapper-love %f
+Type=Application
+Categories=Game;
+Terminal=false
+Icon=icon

.github/build/Linux/love.template

@@ -0,0 +1,5 @@
+#!/bin/sh
+export LOVE_LAUNCHER_LOCATION="$(dirname "$(which "$0")")"
+export LD_LIBRARY_PATH="${LOVE_LAUNCHER_LOCATION}/lib/x86_64-linux-gnu:${LOVE_LAUNCHER_LOCATION}/usr/bin:${LOVE_LAUNCHER_LOCATION}/usr/lib:${LOVE_LAUNCHER_LOCATION}/usr/lib/x86_64-linux-gnu:$LD_LIBRARY_PATH"
+/sbin/ldconfig -p | grep -q libstdc++ || export LD_LIBRARY_PATH="$LD_LIBRARY_PATH:${LOVE_LAUNCHER_LOCATION}/libstdc++/"
+exec ${LOVE_BIN_WRAPPER} "${LOVE_LAUNCHER_LOCATION}/usr/bin/love" "${LOVE_LAUNCHER_LOCATION}/usr/share/Techmino"

.github/build/Windows/Techmino.rc.template

@@ -0,0 +1,23 @@
+1 VERSIONINFO
+FILEVERSION @FileVersion
+PRODUCTVERSION @FileVersion
+FILEOS 0x40004
+FILETYPE 0x1
+{
+    BLOCK "StringFileInfo"
+    {
+        BLOCK "040904B0"
+        {
+            VALUE "FileDescription", "Techmino Alpha"
+            VALUE "CompanyName", "26F Studio"
+            VALUE "LegalCopyright", "Copyright @ 26F Studio"
+            VALUE "ProductName", "Techmino"
+            VALUE "ProductVersion", "@Version"
+        }
+    }
+
+    BLOCK "VarFileInfo"
+    {
+        VALUE "Translation", 0x0409 0x04E4
+    }
+}

.github/build/macOS/info.plist.template

@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+    <key>BuildMachineOSBuild</key>
+    <string>19B88</string>
+    <key>CFBundleDevelopmentRegion</key>
+    <string>English</string>
+    <key>CFBundleExecutable</key>
+    <string>love</string>
+    <key>CFBundleIconFile</key>
+    <string>iconfile</string>
+    <key>CFBundleIdentifier</key>
+    <string>@bundleId</string>
+    <key>CFBundleInfoDictionaryVersion</key>
+    <string>6.0</string>
+    <key>CFBundleName</key>
+    <string>Techmino</string>
+    <key>CFBundlePackageType</key>
+    <string>APPL</string>
+    <key>CFBundleShortVersionString</key>
+    <string>@versionName</string>
+    <key>CFBundleSignature</key>
+    <string>LoVe</string>
+    <key>CFBundleSupportedPlatforms</key>
+    <array>
+        <string>MacOSX</string>
+    </array>
+    <key>DTCompiler</key>
+    <string>com.apple.compilers.llvm.clang.1_0</string>
+    <key>DTPlatformBuild</key>
+    <string>11C504</string>
+    <key>DTPlatformVersion</key>
+    <string>GM</string>
+    <key>DTSDKBuild</key>
+    <string>19B90</string>
+    <key>DTSDKName</key>
+    <string>macosx10.15</string>
+    <key>DTXcode</key>
+    <string>1130</string>
+    <key>DTXcodeBuild</key>
+    <string>11C504</string>
+    <key>LSApplicationCategoryType</key>
+    <string>public.app-category.games</string>
+    <key>LSMinimumSystemVersion</key>
+    <string>10.7</string>
+    <key>NSHighResolutionCapable</key>
+    <true/>
+    <key>NSHumanReadableCopyright</key>
+    <string>©2020-@thisYear 26F Studio, GNU LGPLv3.0</string>
+    <key>NSPrincipalClass</key>
+    <string>NSApplication</string>
+    <key>NSSupportsAutomaticGraphicsSwitching</key>
+    <false/>
+</dict>
+</plist>

.github/workflows/build.yml

@@ -1,88 +0,0 @@
-name: Techmino CI
-
-on:
-  push:
-    branches: [ main, ci ]
-
-jobs:
-  build-windows:
-    runs-on: windows-latest
-    steps:
-    - uses: actions/checkout@v2
-    - name: Download love
-      run: |
-        curl -OL https://github.com/love2d/love/releases/download/11.3/love-11.3-win64.zip
-        7z x love-11.3-win64.zip
-    - name: Download ColdClear
-      run: |
-        curl -OL https://github.com/26F-Studio/cold_clear_ai_love2d_wrapper/releases/download/20210520/win64.zip
-        7z x win64.zip -ocoldclear
-        move coldclear\cold_clear.dll love-11.3-win64
-        move coldclear\CCloader.dll love-11.3-win64
-    - name: Pack Techmino
-      shell: cmd
-      run: |
-        7z a -tzip game.love document media parts Zframework conf.lua font.ttf main.lua
-        copy /b love-11.3-win64\love.exe + game.love love-11.3-win64\Techmino.exe
-        del love-11.3-win64\love.exe
-        del love-11.3-win64\lovec.exe
-    - name: Artifact
-      uses: actions/upload-artifact@v1.0.0
-      with:
-        name: Windows
-        path: love-11.3-win64
-
-  build-linux:
-    runs-on: ubuntu-20.04
-    steps:
-    - uses: actions/checkout@v2
-    - name: Download AppImageKit
-      run: curl -OL https://github.com/AppImage/AppImageKit/releases/download/12/appimagetool-x86_64.AppImage
-    - name: Unpack and Repack
-      run: |
-        curl -OL https://github.com/26F-Studio/Techmino/releases/download/v0.15.1/Techmino.AppImage
-        chmod +x Techmino.AppImage appimagetool-x86_64.AppImage
-        ./Techmino.AppImage --appimage-extract
-        rm Techmino.AppImage
-        cd squashfs-root/usr/share/Techmino
-        rm -rf document media parts Zframework conf.lua font.ttf main.lua
-        cd ../../../..
-        cp -r document media parts Zframework conf.lua font.ttf main.lua squashfs-root/usr/share/Techmino
-        ./appimagetool-x86_64.AppImage squashfs-root Techmino.AppImage
-    - name: Artifact
-      uses: actions/upload-artifact@v2
-      with:
-        name: Linux
-        path: Techmino.AppImage
-
-  build-android:
-    runs-on: ubuntu-20.04
-    steps:
-    - uses: actions/checkout@v2
-    - name: Download Apktool
-      run: curl -OL https://bitbucket.org/iBotPeaches/apktool/downloads/apktool_2.5.0.jar
-    - name: Unpack and Repack
-      run: |
-        curl -OL https://github.com/26F-Studio/Techmino/releases/download/v0.15.1/Techmino.apk
-        java -jar apktool_2.5.0.jar d -s -o apk Techmino.apk
-        7z x -o. apk/assets/game.love libAndroid
-        rm apk/assets/game.love Techmino.apk
-        7z a -tzip apk/assets/game.love document libAndroid media parts Zframework conf.lua font.ttf main.lua
-        python3 .github/workflows/updateVersion.py
-        java -jar apktool_2.5.0.jar b -o Techmino.apk apk
-    - uses: 26F-Studio/sign-android-release@master
-      name: Sign app APK
-      id: sign_app
-      with:
-        releaseDirectory: .
-        signingKeyBase64: ${{ secrets.SIGNING_KEY }}
-        alias: ${{ secrets.ALIAS }}
-        keyStorePassword: ${{ secrets.KEY_STORE_PASSWORD }}
-        keyPassword: ${{ secrets.KEY_PASSWORD }}
-      env:
-        BUILD_TOOLS_VERSION: "30.0.2"
-    - name: Artifact
-      uses: actions/upload-artifact@v2
-      with:
-        name: Android
-        path: ${{steps.sign_app.outputs.signedReleaseFile}}

.github/workflows/dev.yml

@@ -0,0 +1,203 @@
+name: Techmino Develop CI
+
+on:
+  push:
+    branches: [ main, ci* ]
+  pull_request:
+    branches: [ main ]
+
+jobs:
+  get-info:
+    runs-on: ubuntu-20.04
+    outputs:
+      name: ${{ steps.actual-get-info.outputs.name }}
+      apkCode: ${{ steps.actual-get-info.outputs.apkCode }}
+      code: ${{ steps.actual-get-info.outputs.code }}
+      commit: ${{ steps.actual-get-info.outputs.commit }}
+    steps:
+    - uses: actions/checkout@v2
+    - name: Install lua
+      run: |
+        sudo apt-get install lua5.3 -y
+    - name: Get Version
+      id: actual-get-info
+      run: |
+        echo "::set-output name=name::$(lua .github/workflows/getVersion.lua -name)"
+        echo "::set-output name=apkCode::$(lua .github/workflows/getVersion.lua -apkCode)"
+        echo "::set-output name=code::$(lua .github/workflows/getVersion.lua -code)"
+        echo "::set-output name=commit::$(git rev-parse --short ${{ GITHUB.SHA }})"
+
+  automatic-test:
+    runs-on: ubuntu-20.04
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/automatic-test
+
+  build-windows:
+    runs-on: windows-latest
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-windows
+      with:
+        love-url: https://github.com/love2d/love/releases/download/11.3/love-11.3-win64.zip
+        love-dir: love-11.3-win64
+        arch: win64
+        version: ${{ needs.get-info.outputs.name }}
+        icon: .\.github\build\Windows\icon_snapshot.ico
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_Windows
+        path: love
+
+  build-linux:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-linux
+      with:
+        icon: .github/build/Linux/icon_snapshot.png
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_Linux
+        path: Techmino.AppImage
+
+  build-android:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-android
+      with:
+        type: Snapshot
+        apkCode: ${{ needs.get-info.outputs.apkCode }}
+        name: ${{ needs.get-info.outputs.name }}
+        file-path: Techmino_Snapshot.apk
+        SIGNING_KEY: ${{ secrets.SIGNING_KEY }}
+        KEY_STORE_PASSWORD: ${{ secrets.KEY_STORE_PASSWORD }}
+        ALIAS: ${{ secrets.ALIAS }}
+        KEY_PASSWORD: ${{ secrets.KEY_PASSWORD }}
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_Android
+        path: Techmino_Snapshot.apk
+  
+  build-android-mini:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - name: remove media
+      run: |
+        rm -rf media/music media/effect media/vocal
+    - uses: ./.github/actions/build-android
+      with:
+        type: Snapshot
+        apkCode: ${{ needs.get-info.outputs.apkCode }}
+        name: ${{ needs.get-info.outputs.name }}
+        file-path: Techmino_Snapshot_Mini.apk
+        SIGNING_KEY: ${{ secrets.SIGNING_KEY }}
+        KEY_STORE_PASSWORD: ${{ secrets.KEY_STORE_PASSWORD }}
+        ALIAS: ${{ secrets.ALIAS }}
+        KEY_PASSWORD: ${{ secrets.KEY_PASSWORD }}
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_Android_Mini
+        path: Techmino_Snapshot_Mini.apk
+
+  build-macOS:
+    runs-on: macos-10.15
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-macos
+      with:
+        name: ${{ needs.get-info.outputs.name }}
+        icon: .github/build/macOS/icon_snapshot.icns
+        APPLE_API_ID: '${{ secrets.APPLE_API_ID }}'
+        APPLE_API_ISSUER: '${{ secrets.APPLE_API_ISSUER }}'
+        APPLE_API_KEY: '${{ secrets.APPLE_API_KEY }}'
+        APPLE_APP_IDENTIFIER: '${{ secrets.APPLE_APP_IDENTIFIER }}'
+        APPLE_KEYCHAIN_NAME: '${{ secrets.APPLE_KEYCHAIN_NAME }}'
+        APPLE_KEYCHAIN_PWD: '${{ secrets.APPLE_KEYCHAIN_PWD }}'
+        FASTLANE_MATCH_PWD: '${{ secrets.FASTLANE_MATCH_PWD }}'
+        FASTLANE_MATCH_TOKEN: '${{ secrets.FASTLANE_MATCH_TOKEN }}'
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_macOS
+        path: Techmino.dmg
+
+  build-iOS:
+    runs-on: macos-latest
+    if: (!startsWith( github.ref , 'refs/heads/ci-')) || startsWith( github.ref , 'refs/heads/ci-ios-')
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-ios
+      with:
+        name: ${{ needs.get-info.outputs.name }}
+        type: 'dev'
+        APPLE_API_ID: '${{ secrets.APPLE_API_ID }}'
+        APPLE_API_ISSUER: '${{ secrets.APPLE_API_ISSUER }}'
+        APPLE_API_KEY: '${{ secrets.APPLE_API_KEY }}'
+        APPLE_APP_BUILD: '${{ needs.get-info.outputs.code }}.2.${{ github.run_number }}.${{ github.run_attempt }}'
+        APPLE_APP_CHANGELOG: '${{ github.event.commits[0].message }}'
+        APPLE_APP_ID: '${{ secrets.APPLE_APP_ID }}'
+        APPLE_APP_IDENTIFIER: '${{ secrets.APPLE_APP_IDENTIFIER }}'
+        APPLE_APP_PROFILE: '${{ secrets.APPLE_APP_PROFILE }}'
+        APPLE_KEYCHAIN_NAME: '${{ secrets.APPLE_KEYCHAIN_NAME }}'
+        APPLE_KEYCHAIN_PWD: '${{ secrets.APPLE_KEYCHAIN_PWD }}'
+        FASTLANE_ACTION_ID: '${{ github.run_id }}'
+        FASTLANE_DISCORD_WEBHOOK: '${{ secrets.FASTLANE_DISCORD_WEBHOOK }}'
+        FASTLANE_MATCH_PWD: '${{ secrets.FASTLANE_MATCH_PWD }}'
+        FASTLANE_MATCH_TOKEN: '${{ secrets.FASTLANE_MATCH_TOKEN }}'
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_iOS
+        path: Techmino.ipa
+
+  build-love:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+    - uses: ./.github/actions/build-love
+      with:
+        file-path: Techmino.love
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_${{ needs.get-info.outputs.name }}_${{ GITHUB.RUN_NUMBER }}_${{ needs.get-info.outputs.commit }}_Love
+        path: Techmino.love

.github/workflows/getVersion.lua

@@ -0,0 +1,28 @@
+local arg=arg[1]
+if arg=="-apkCode"then
+    local code=require"version".apkCode
+    print(code)
+elseif arg=="-code"then
+    local str=require"version".code
+    print(str)
+elseif arg=="-name"then
+    local str=require"version".string
+    print(str)
+elseif arg=="-release"then
+    local str=require"version".string:gsub("V","",1)
+    print(str)
+elseif arg=="-updateTitle"then
+    local note=require"parts.updateLog"
+    local p1=note:find("\n%d")+1
+    local p2=note:find("\n",p1)-1
+    note=note:sub(p1,p2)
+    print(note)
+elseif arg=="-updateNote"then
+    local note=require"parts.updateLog"
+    local p1=note:find("\n",note:find("\n%d")+1)+1
+    local p2=note:find("\n%d",p1+1)
+    note=note:sub(p1,p2-2)
+        :gsub("                ","- ")
+        :gsub("        ","# ")
+    print(note)
+end

.github/workflows/release.yml

@@ -0,0 +1,189 @@
+name: Techmino Release CI
+
+on:
+  push:
+    tags:
+      - "v*"
+
+jobs:
+  get-info:
+    runs-on: ubuntu-20.04
+    outputs:
+      name: ${{ steps.actual-get-info.outputs.name }}
+      apkCode: ${{ steps.actual-get-info.outputs.apkCode }}
+      code: ${{ steps.actual-get-info.outputs.code }}
+      release: ${{ steps.actual-get-info.outputs.release }}
+      updateTitle: ${{ steps.actual-get-info.outputs.updateTitle }}
+      updateNote: ${{ steps.actual-get-info.outputs.updateNote }}
+      commit: ${{ steps.actual-get-info.outputs.commit }}
+    steps:
+      - uses: actions/checkout@v2
+      - name: Install lua
+        run: |
+          sudo apt-get install lua5.3 -y
+      - name: Get Version
+        id: actual-get-info
+        run: |
+          UPDATE_NOTE=$(lua .github/workflows/getVersion.lua -updateNote)
+          UPDATE_NOTE="${UPDATE_NOTE//'%'/'%25'}"
+          UPDATE_NOTE="${UPDATE_NOTE//$'\n'/'%0A'}"
+          UPDATE_NOTE="${UPDATE_NOTE//$'\r'/'%0D'}"
+          echo "::set-output name=name::$(lua .github/workflows/getVersion.lua -name)"
+          echo "::set-output name=apkCode::$(lua .github/workflows/getVersion.lua -apkCode)"
+          echo "::set-output name=code::$(lua .github/workflows/getVersion.lua -code)"
+          echo "::set-output name=release::$(lua .github/workflows/getVersion.lua -release)"
+          echo "::set-output name=updateTitle::$(lua .github/workflows/getVersion.lua -updateTitle)"
+          echo "::set-output name=updateNote::$UPDATE_NOTE"
+          echo "::set-output name=commit::$(git rev-parse --short ${{ GITHUB.SHA }})"
+
+  build-windows-x64:
+    runs-on: windows-latest
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-windows
+        with:
+          love-url: https://github.com/love2d/love/releases/download/11.3/love-11.3-win64.zip
+          love-dir: love-11.3-win64
+          arch: win64
+          version: ${{ needs.get-info.outputs.release }}
+          icon: .\.github\build\Windows\icon.ico
+      - name: Pack Techmino
+        run: 7z a -tzip .\Techmino_a${{ needs.get-info.outputs.release }}_Win64.zip .\love
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_Win64.zip
+
+  build-windows-x86:
+    runs-on: windows-latest
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-windows
+        with:
+          love-url: https://github.com/love2d/love/releases/download/11.3/love-11.3-win32.zip
+          love-dir: love-11.3-win32
+          arch: win32
+          version: ${{ needs.get-info.outputs.release }}
+          icon: .\.github\build\Windows\icon.ico
+      - name: Pack Techmino
+        run: 7z a -tzip .\Techmino_a${{ needs.get-info.outputs.release }}_Win32.zip .\love
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_Win32.zip
+
+  build-linux:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-linux
+        with:
+          file-path: Techmino_a${{ needs.get-info.outputs.release }}_Linux.AppImage
+          icon: .github/build/Linux/icon.png
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_Linux.AppImage
+
+  build-android:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-android
+        with:
+          type: Release
+          apkCode: ${{ needs.get-info.outputs.apkCode }}
+          name: ${{ needs.get-info.outputs.name }}
+          file-path: Techmino_a${{ needs.get-info.outputs.release }}_Android.apk
+          SIGNING_KEY: ${{ secrets.SIGNING_KEY }}
+          KEY_STORE_PASSWORD: ${{ secrets.KEY_STORE_PASSWORD }}
+          ALIAS: ${{ secrets.ALIAS }}
+          KEY_PASSWORD: ${{ secrets.KEY_PASSWORD }}
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_Android.apk
+
+  build-macOS:
+    runs-on: macos-10.15
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-macos
+        with:
+          name: ${{ needs.get-info.outputs.name }}
+          icon: .github/build/macOS/icon.icns
+          APPLE_API_ID: "${{ secrets.APPLE_API_ID }}"
+          APPLE_API_ISSUER: "${{ secrets.APPLE_API_ISSUER }}"
+          APPLE_API_KEY: "${{ secrets.APPLE_API_KEY }}"
+          APPLE_APP_IDENTIFIER: "${{ secrets.APPLE_APP_IDENTIFIER }}"
+          APPLE_KEYCHAIN_NAME: "${{ secrets.APPLE_KEYCHAIN_NAME }}"
+          APPLE_KEYCHAIN_PWD: "${{ secrets.APPLE_KEYCHAIN_PWD }}"
+          FASTLANE_MATCH_PWD: "${{ secrets.FASTLANE_MATCH_PWD }}"
+          FASTLANE_MATCH_TOKEN: "${{ secrets.FASTLANE_MATCH_TOKEN }}"
+      - name: Pack Techmino
+        run: |
+          mv Techmino.dmg Techmino_a${{ needs.get-info.outputs.release }}_MacOS.dmg
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_MacOS.dmg
+
+  build-iOS:
+    runs-on: macos-latest
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - uses: ./.github/actions/update-version
+      - uses: ./.github/actions/build-ios
+        with:
+          name: ${{ needs.get-info.outputs.name }}
+          type: "release"
+          APPLE_API_ID: "${{ secrets.APPLE_API_ID }}"
+          APPLE_API_ISSUER: "${{ secrets.APPLE_API_ISSUER }}"
+          APPLE_API_KEY: "${{ secrets.APPLE_API_KEY }}"
+          APPLE_APP_BUILD: "${{ needs.get-info.outputs.code }}.0.${{ github.run_number }}.${{ github.run_attempt }}"
+          APPLE_APP_CHANGELOG: "${{ needs.get-info.outputs.updateNote }}"
+          APPLE_APP_ID: "${{ secrets.APPLE_APP_ID }}"
+          APPLE_APP_IDENTIFIER: "${{ secrets.APPLE_APP_IDENTIFIER }}"
+          APPLE_APP_PROFILE: "${{ secrets.APPLE_APP_PROFILE }}"
+          APPLE_KEYCHAIN_NAME: "${{ secrets.APPLE_KEYCHAIN_NAME }}"
+          APPLE_KEYCHAIN_PWD: "${{ secrets.APPLE_KEYCHAIN_PWD }}"
+          FASTLANE_ACTION_ID: "${{ github.run_id }}"
+          FASTLANE_DISCORD_WEBHOOK: "${{ secrets.FASTLANE_DISCORD_WEBHOOK }}"
+          FASTLANE_MATCH_PWD: "${{ secrets.FASTLANE_MATCH_PWD }}"
+          FASTLANE_MATCH_TOKEN: "${{ secrets.FASTLANE_MATCH_TOKEN }}"
+      - name: Rename ipa
+        shell: bash
+        run: |
+          mv Techmino.ipa Techmino_a${{ needs.get-info.outputs.release }}_iOS.ipa
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          files: Techmino_a${{ needs.get-info.outputs.release }}_iOS.ipa
+
+  Add-Release-note:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+      - uses: actions/checkout@v2
+      - name: Release
+        uses: softprops/action-gh-release@v1
+        with:
+          name: ${{ needs.get-info.outputs.updateTitle }}
+          body: ${{ needs.get-info.outputs.updateNote }}

.github/workflows/test.yml

@@ -0,0 +1,154 @@
+name: Techmino Test CI
+
+on:
+  push:
+    tags:
+      - 'pre*'
+
+jobs:
+  get-info:
+    runs-on: ubuntu-20.04
+    outputs:
+      name: ${{ steps.actual-get-info.outputs.name }}
+      apkCode: ${{ steps.actual-get-info.outputs.apkCode }}
+      code: ${{ steps.actual-get-info.outputs.code }}
+      release: ${{ steps.actual-get-info.outputs.release }}
+      commit: ${{ steps.actual-get-info.outputs.commit }}
+    steps:
+    - uses: actions/checkout@v2
+    - name: Install lua
+      run: |
+        sudo apt-get install lua5.3 -y
+    - name: Get Version
+      id: actual-get-info
+      run: |
+        echo "::set-output name=name::$(lua .github/workflows/getVersion.lua -name)"
+        echo "::set-output name=apkCode::$(lua .github/workflows/getVersion.lua -apkCode)"
+        echo "::set-output name=code::$(lua .github/workflows/getVersion.lua -code)"
+        echo "::set-output name=release::$(lua .github/workflows/getVersion.lua -release)"
+        echo "::set-output name=commit::$(git rev-parse --short ${{ GITHUB.SHA }})"
+
+  build-windows:
+    runs-on: windows-latest
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-windows
+      with:
+        love-url: https://github.com/love2d/love/releases/download/11.3/love-11.3-win64.zip
+        love-dir: love-11.3-win64
+        arch: win64
+        version: ${{ needs.get-info.outputs.name }}
+        icon: .\.github\build\Windows\icon_snapshot.ico
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_pre${{ needs.get-info.outputs.release }}_${{ needs.get-info.outputs.commit }}_Windows
+        path: love
+    
+  build-linux:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-linux
+      with:
+        icon: .github/build/Linux/icon_snapshot.png
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_pre${{ needs.get-info.outputs.release }}_${{ needs.get-info.outputs.commit }}_Linux
+        path: Techmino.AppImage
+
+  build-android:
+    runs-on: ubuntu-20.04
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-android
+      with:
+        type: Snapshot
+        apkCode: ${{ needs.get-info.outputs.apkCode }}
+        name: ${{ needs.get-info.outputs.name }}
+        file-path: Techmino_Snapshot.apk
+        SIGNING_KEY: ${{ secrets.SIGNING_KEY }}
+        KEY_STORE_PASSWORD: ${{ secrets.KEY_STORE_PASSWORD }}
+        ALIAS: ${{ secrets.ALIAS }}
+        KEY_PASSWORD: ${{ secrets.KEY_PASSWORD }}
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_pre${{ needs.get-info.outputs.release }}_${{ needs.get-info.outputs.commit }}_Android
+        path: Techmino_Snapshot.apk
+
+  build-macOS:
+    runs-on: macos-10.15
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-macos
+      with:
+        name: ${{ needs.get-info.outputs.name }}
+        icon: .github/build/macOS/icon_snapshot.icns
+        APPLE_API_ID: '${{ secrets.APPLE_API_ID }}'
+        APPLE_API_ISSUER: '${{ secrets.APPLE_API_ISSUER }}'
+        APPLE_API_KEY: '${{ secrets.APPLE_API_KEY }}'
+        APPLE_APP_IDENTIFIER: '${{ secrets.APPLE_APP_IDENTIFIER }}'
+        APPLE_KEYCHAIN_NAME: '${{ secrets.APPLE_KEYCHAIN_NAME }}'
+        APPLE_KEYCHAIN_PWD: '${{ secrets.APPLE_KEYCHAIN_PWD }}'
+        FASTLANE_MATCH_PWD: '${{ secrets.FASTLANE_MATCH_PWD }}'
+        FASTLANE_MATCH_TOKEN: '${{ secrets.FASTLANE_MATCH_TOKEN }}'
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_pre${{ needs.get-info.outputs.release }}_${{ needs.get-info.outputs.commit }}_MacOS
+        path: Techmino.dmg
+
+  build-iOS:
+    runs-on: macos-latest
+    needs: get-info
+    steps:
+    - uses: actions/checkout@v2
+    - uses: ./.github/actions/update-version
+      with:
+        commit: ${{ needs.get-info.outputs.commit }}
+        type: snapshot
+    - uses: ./.github/actions/build-ios
+      with:
+        name: ${{ needs.get-info.outputs.name }}
+        type: 'test'
+        APPLE_API_ID: '${{ secrets.APPLE_API_ID }}'
+        APPLE_API_ISSUER: '${{ secrets.APPLE_API_ISSUER }}'
+        APPLE_API_KEY: '${{ secrets.APPLE_API_KEY }}'
+        APPLE_APP_BUILD: '${{ needs.get-info.outputs.code }}.1.${{ github.run_number }}.${{ github.run_attempt }}'
+        APPLE_APP_CHANGELOG: '${{ github.event.commits[0].message }}'
+        APPLE_APP_ID: '${{ secrets.APPLE_APP_ID }}'
+        APPLE_APP_IDENTIFIER: '${{ secrets.APPLE_APP_IDENTIFIER }}'
+        APPLE_APP_PROFILE: '${{ secrets.APPLE_APP_PROFILE }}'
+        APPLE_KEYCHAIN_NAME: '${{ secrets.APPLE_KEYCHAIN_NAME }}'
+        APPLE_KEYCHAIN_PWD: '${{ secrets.APPLE_KEYCHAIN_PWD }}'
+        FASTLANE_ACTION_ID: '${{ github.run_id }}'
+        FASTLANE_DISCORD_WEBHOOK: '${{ secrets.FASTLANE_DISCORD_WEBHOOK }}'
+        FASTLANE_MATCH_PWD: '${{ secrets.FASTLANE_MATCH_PWD }}'
+        FASTLANE_MATCH_TOKEN: '${{ secrets.FASTLANE_MATCH_TOKEN }}'
+    - name: Upload
+      uses: actions/upload-artifact@v2
+      with:
+        name: Techmino_pre${{ needs.get-info.outputs.release }}_${{ needs.get-info.outputs.commit }}_iOS
+        path: Techmino.ipa

.github/workflows/updateVersion.py

@@ -1,12 +0,0 @@
-import re
-with open("conf.lua", "r") as file:
-    data = file.read()
-versionCode = re.search("build=(\\d+)", data).group(1)
-versionName = re.search('short="([^"]+)', data).group(1)
-with open("apk/apktool.yml", "r+") as file:
-    data = file.read()
-    data = re.sub("versionCode:.+", f"versionCode: '{versionCode}'", data)
-    data = re.sub("versionName:.+", f"versionName: {versionName}", data)
-    file.seek(0)
-    file.truncate()
-    file.write(data)

.gitignore

@@ -1,4 +1,8 @@
 .vscode
 libAndroid
-font.ttf
-note.lua
+*.ini
+.DS_Store
+Thumbs.db
+Icon?
+.Trash
+.file

LICENSE

@@ -1,165 +0,0 @@
-GNU LESSER GENERAL PUBLIC LICENSE
-Version 3, 29 June 2007
-
-Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
-Everyone is permitted to copy and distribute verbatim copies
-of this license document, but changing it is not allowed.
-
-
-	This version of the GNU Lesser General Public License incorporates
-the terms and conditions of version 3 of the GNU General Public
-License, supplemented by the additional permissions listed below.
-
-	0. Additional Definitions.
-
-	As used herein, "this License" refers to version 3 of the GNU Lesser
-General Public License, and the "GNU GPL" refers to version 3 of the GNU
-General Public License.
-
-	"The Library" refers to a covered work governed by this License,
-other than an Application or a Combined Work as defined below.
-
-	An "Application" is any work that makes use of an interface provided
-by the Library, but which is not otherwise based on the Library.
-Defining a subclass of a class defined by the Library is deemed a mode
-of using an interface provided by the Library.
-
-	A "Combined Work" is a work produced by combining or linking an
-Application with the Library.  The particular version of the Library
-with which the Combined Work was made is also called the "Linked
-Version".
-
-	The "Minimal Corresponding Source" for a Combined Work means the
-Corresponding Source for the Combined Work, excluding any source code
-for portions of the Combined Work that, considered in isolation, are
-based on the Application, and not on the Linked Version.
-
-	The "Corresponding Application Code" for a Combined Work means the
-object code and/or source code for the Application, including any data
-and utility programs needed for reproducing the Combined Work from the
-Application, but excluding the System Libraries of the Combined Work.
-
-	1. Exception to Section 3 of the GNU GPL.
-
-	You may convey a covered work under sections 3 and 4 of this License
-without being bound by section 3 of the GNU GPL.
-
-	2. Conveying Modified Versions.
-
-	If you modify a copy of the Library, and, in your modifications, a
-facility refers to a function or data to be supplied by an Application
-that uses the facility (other than as an argument passed when the
-facility is invoked), then you may convey a copy of the modified
-version:
-
-		a) under this License, provided that you make a good faith effort to
-		ensure that, in the event an Application does not supply the
-		function or data, the facility still operates, and performs
-		whatever part of its purpose remains meaningful, or
-
-		b) under the GNU GPL, with none of the additional permissions of
-		this License applicable to that copy.
-
-	3. Object Code Incorporating Material from Library Header Files.
-
-	The object code form of an Application may incorporate material from
-a header file that is part of the Library.  You may convey such object
-code under terms of your choice, provided that, if the incorporated
-material is not limited to numerical parameters, data structure
-layouts and accessors, or small macros, inline functions and templates
-(ten or fewer lines in length), you do both of the following:
-
-		a) Give prominent notice with each copy of the object code that the
-		Library is used in it and that the Library and its use are
-		covered by this License.
-
-		b) Accompany the object code with a copy of the GNU GPL and this license
-		document.
-
-	4. Combined Works.
-
-	You may convey a Combined Work under terms of your choice that,
-taken together, effectively do not restrict modification of the
-portions of the Library contained in the Combined Work and reverse
-engineering for debugging such modifications, if you also do each of
-the following:
-
-		a) Give prominent notice with each copy of the Combined Work that
-		the Library is used in it and that the Library and its use are
-		covered by this License.
-
-		b) Accompany the Combined Work with a copy of the GNU GPL and this license
-		document.
-
-		c) For a Combined Work that displays copyright notices during
-		execution, include the copyright notice for the Library among
-		these notices, as well as a reference directing the user to the
-		copies of the GNU GPL and this license document.
-
-		d) Do one of the following:
-
-			0) Convey the Minimal Corresponding Source under the terms of this
-			License, and the Corresponding Application Code in a form
-			suitable for, and under terms that permit, the user to
-			recombine or relink the Application with a modified version of
-			the Linked Version to produce a modified Combined Work, in the
-			manner specified by section 6 of the GNU GPL for conveying
-			Corresponding Source.
-
-			1) Use a suitable shared library mechanism for linking with the
-			Library.  A suitable mechanism is one that (a) uses at run time
-			a copy of the Library already present on the user's computer
-			system, and (b) will operate properly with a modified version
-			of the Library that is interface-compatible with the Linked
-			Version.
-
-		e) Provide Installation Information, but only if you would otherwise
-		be required to provide such information under section 6 of the
-		GNU GPL, and only to the extent that such information is
-		necessary to install and execute a modified version of the
-		Combined Work produced by recombining or relinking the
-		Application with a modified version of the Linked Version. (If
-		you use option 4d0, the Installation Information must accompany
-		the Minimal Corresponding Source and Corresponding Application
-		Code. If you use option 4d1, you must provide the Installation
-		Information in the manner specified by section 6 of the GNU GPL
-		for conveying Corresponding Source.)
-
-	5. Combined Libraries.
-
-	You may place library facilities that are a work based on the
-Library side by side in a single library together with other library
-facilities that are not Applications and are not covered by this
-License, and convey such a combined library under terms of your
-choice, if you do both of the following:
-
-		a) Accompany the combined library with a copy of the same work based
-		on the Library, uncombined with any other library facilities,
-		conveyed under the terms of this License.
-
-		b) Give prominent notice with the combined library that part of it
-		is a work based on the Library, and explaining where to find the
-		accompanying uncombined form of the same work.
-
-	6. Revised Versions of the GNU Lesser General Public License.
-
-	The Free Software Foundation may publish revised and/or new versions
-of the GNU Lesser General Public License from time to time. Such new
-versions will be similar in spirit to the present version, but may
-differ in detail to address new problems or concerns.
-
-	Each version is given a distinguishing version number. If the
-Library as you received it specifies that a certain numbered version
-of the GNU Lesser General Public License "or any later version"
-applies to it, you have the option of following the terms and
-conditions either of that published version or of any later version
-published by the Free Software Foundation. If the Library as you
-received it does not specify a version number of the GNU Lesser
-General Public License, you may choose any version of the GNU Lesser
-General Public License ever published by the Free Software Foundation.
-
-	If the Library as you received it specifies that a proxy can decide
-whether future versions of the GNU Lesser General Public License shall
-apply, that proxy's public statement of acceptance of any version is
-permanent authorization for you to choose that version for the
-Library.

README.md

@@ -1,8 +0,0 @@
-# Techmino
-
-《Techmino:方块研究所》
-——Github & Gitee 官方仓库 Official Repository
-
-集合各种现代方块规则，更多玩法，全新体验。
-
-官网（建设中） https://home.techmino.org

Zframework/aDraw.lua

@@ -1,17 +0,0 @@
-local printf=love.graphics.printf
-local draw=love.graphics.draw
-local aDraw={}
-function aDraw.str(obj,x,y)printf(obj,x-626,y,1252,'center')end
-function aDraw.simpX(obj,x,y)draw(obj,x-obj:getWidth()*.5,y)end
-function aDraw.simpY(obj,x,y)draw(obj,x,y-obj:getHeight()*.5)end
-function aDraw.X(obj,x,y,a,k)draw(obj,x,y,a,k,nil,obj:getWidth()*.5,0)end
-function aDraw.Y(obj,x,y,a,k)draw(obj,x,y,a,k,nil,0,obj:getHeight()*.5)end
-function aDraw.draw(obj,x,y,a,k)draw(obj,x,y,a,k,nil,obj:getWidth()*.5,obj:getHeight()*.5)end
-function aDraw.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
-return aDraw

Zframework/background.lua

@@ -1,50 +1,56 @@
 local gc_clear=love.graphics.clear
 local BGs={
-	none={draw=function()gc_clear(.15,.15,.15)end}
+    none={draw=function()gc_clear(.08,.08,.084)end}
 }
 local BGlist={'none'}
 local BG={
-	cur='none',
-	default='none',
-	init=false,
-	resize=false,
-	update=NULL,
-	draw=BGs.none.draw,
-	event=false,
-	discard=NULL,
+    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
+    BGs[name]=bg
+    BGlist[#BGlist+1]=name
 end
 function BG.getList()
-	return BGlist
+    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
+    if BG.event then
+        BG.event(...)
+    end
 end
 function BG.setDefault(bg)
-	BG.default=bg
+    BG.default=bg
 end
-function BG.set(background)
-	if not background then background=BG.default end
-	if not BGs[background]or not SETTING.bg then return end
-	if background~=BG.cur then
-		BG.discard()
-		BG.cur=background
-		background=BGs[background]
+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=	background.init or NULL
-		BG.resize=	background.resize or NULL
-		BG.update=	background.update or NULL
-		BG.draw=	background.draw or NULL
-		BG.event=	background.event or NULL
-		BG.discard=	background.discard or NULL
-		BG.init()
-	end
-	return true
+        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
+return BG

Zframework/bgm.lua

@@ -1,103 +1,182 @@
+local lastLoaded={}
+local maxLoadedCount=3
+local nameList={}
+local SourceObjList={}
+local volume=1
+
 local BGM={
-	default=false,
-	getList=function()error("Can't getList before initialized!")end,
-	getCount=function()return 0 end,
-	play=NULL,
-	freshVolume=NULL,
-	stop=NULL,
-	--nowPlay=[str:playing ID]
-	--playing=[src:playing SRC]
+    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
+    BGM.default=bgm
 end
-function BGM.init(list)
-	BGM.init=nil
-	local min=math.min
-	local Sources={}function BGM.getList()return list end
-
-	local count=#list function BGM.getCount()return count end
-	local function fadeOut(src)
-		while true do
-			coroutine.yield()
-			local v=src:getVolume()-.025*SETTING.bgm
-			src:setVolume(v>0 and v or 0)
-			if v<=0 then
-				src:stop()
-				return true
-			end
-		end
-	end
-	local function fadeIn(src)
-		while true do
-			coroutine.yield()
-			local v=SETTING.bgm
-			v=min(v,src:getVolume()+.025*v)
-			src:setVolume(v)
-			if v>=SETTING.bgm then
-				return true
-			end
-		end
-	end
-	local function removeCurFadeOut(task,code,src)
-		return task.code==code and task.args[1]==src
-	end
-	local function load(skip)
-		for i=1,count do
-			local file='media/BGM/'..list[i]..'.ogg'
-			if love.filesystem.getInfo(file)then
-				Sources[list[i]]=love.audio.newSource(file,'stream')
-				Sources[list[i]]:setLooping(true)
-				Sources[list[i]]:setVolume(0)
-			else
-				MES.new('warn',"No BGM file: "..list[i],5)
-			end
-			if not skip and i~=count then
-				coroutine.yield()
-			end
-		end
-		BGM.loadOne=nil
-
-		function BGM.play(s)
-			if not s then s=BGM.default end
-			if SETTING.bgm==0 then
-				BGM.nowPlay=s
-				BGM.playing=Sources[s]
-				return true
-			end
-			if s and Sources[s]then
-				if BGM.nowPlay~=s then
-					if BGM.nowPlay then TASK.new(fadeOut,BGM.playing)end
-					TASK.removeTask_iterate(removeCurFadeOut,fadeOut,Sources[s])
-					TASK.removeTask_code(fadeIn)
-
-					TASK.new(fadeIn,Sources[s])
-					BGM.nowPlay=s
-					BGM.playing=Sources[s]
-					BGM.playing:play()
-				end
-				return true
-			end
-		end
-		function BGM.freshVolume()
-			if BGM.playing then
-				local v=SETTING.bgm
-				if v>0 then
-					BGM.playing:setVolume(v)
-					BGM.playing:play()
-				elseif BGM.nowPlay then
-					BGM.playing:pause()
-				end
-			end
-		end
-		function BGM.stop()
-			TASK.removeTask_code(fadeIn)
-			if BGM.nowPlay then TASK.new(fadeOut,BGM.playing)end
-			BGM.nowPlay,BGM.playing=nil
-		end
-	end
-
-	BGM.loadOne=coroutine.wrap(load)
-	function BGM.loadAll()load(true)end
+function BGM.setMaxSources(count)
+    maxLoadedCount=count
+    _tryReleaseSources()
 end
-return BGM
+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

@@ -1,122 +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={
-	red=		{1.0,	0.0,	0.0},
-	fire=		{1.0,	0.4,	0.0},
-	orange=		{1.0,	0.6,	0.0},
-	yellow=		{1.0,	1.0,	0.0},
-	lime=		{0.7,	1.0,	0.0},
-	jade=		{0.5,	1.0,	0.0},
-	green=		{0.0,	1.0,	0.0},
-	aqua=		{0.0,	1.0,	0.6},
-	cyan=		{0.0,	1.0,	1.0},
-	navy=		{0.0,	0.7,	1.0},
-	sea=		{0.0,	0.4,	1.0},
-	blue=		{0.2,	0.2,	1.0},
-	violet=		{0.4,	0.0,	1.0},
-	purple=		{0.7,	0.0,	1.0},
-	magenta=	{1.0,	0.0,	1.0},
-	wine=		{1.0,	0.0,	0.5},
+    hsv=hsv,
 
-	lRed=		{1.0,	0.5,	0.5},
-	lFire=		{1.0,	0.7,	0.5},
-	lOrange=	{1.0,	0.8,	0.3},
-	lYellow=	{1.0,	1.0,	0.5},
-	lLime=		{0.8,	1.0,	0.4},
-	lJade=		{0.6,	1.0,	0.4},
-	lGreen=		{0.5,	1.0,	0.5},
-	lAqua=		{0.4,	1.0,	0.7},
-	lCyan=		{0.5,	1.0,	1.0},
-	lNavy=		{0.5,	0.8,	1.0},
-	lSea=		{0.4,	0.7,	1.0},
-	lBlue=		{0.7,	0.7,	1.0},
-	lViolet=	{0.7,	0.4,	1.0},
-	lPurple=	{0.8,	0.4,	1.0},
-	lMagenta=	{1.0,	0.5,	1.0},
-	lWine=		{1.0,	0.4,	0.7},
+    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)},
 
-	dRed=		{0.6,	0.0,	0.0},
-	dFire=		{0.6,	0.3,	0.0},
-	dOrange=	{0.6,	0.4,	0.0},
-	dYellow=	{0.6,	0.6,	0.0},
-	dLime=		{0.5,	0.6,	0.0},
-	dJade=		{0.3,	0.6,	0.0},
-	dGreen=		{0.0,	0.6,	0.0},
-	dAqua=		{0.0,	0.6,	0.4},
-	dCyan=		{0.0,	0.6,	0.6},
-	dNavy=		{0.0,	0.4,	0.6},
-	dSea=		{0.0,	0.2,	0.6},
-	dBlue=		{0.1,	0.1,	0.6},
-	dViolet=	{0.2,	0.0,	0.6},
-	dPurple=	{0.4,	0.0,	0.6},
-	dMagenta=	{0.6,	0.0,	0.6},
-	dWine=		{0.6,	0.0,	0.3},
+    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)},
 
-	black=		{0.0,	0.0,	0.0},
-	dGray=		{0.3,	0.3,	0.3},
-	gray=		{0.6,	0.6,	0.6},
-	lGray=		{0.8,	0.8,	0.8},
-	white=		{1.0,	1.0,	1.0},
+    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',
-	--Remain letter: EIKQTUX
+    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]
+    COLOR[k]=COLOR[v]
 end
 setmetatable(COLOR,{__index=function(_,k)
-	error("No color: "..tostring(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 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_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
+    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)
-		return
-			sin(phase)*.4+.6,
-			sin(phase+2.0944)*.4+.6,
-			sin(phase-2.0944)*.4+.6
-	end
-	function COLOR.rainbow_light(phase)
-		return
-			sin(phase)*.2+.7,
-			sin(phase+2.0944)*.2+.7,
-			sin(phase-2.0944)*.2+.7
-	end
-	function COLOR.rainbow_dark(phase)
-		return
-			sin(phase)*.2+.4,
-			sin(phase+2.0944)*.2+.4,
-			sin(phase-2.0944)*.2+.4
-	end
-	function COLOR.rainbow_gray(phase)
-		return
-			sin(phase)*.16+.5,
-			sin(phase+2.0944)*.16+.5,
-			sin(phase-2.0944)*.16+.5
-	end
+    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
+return COLOR

Zframework/doGC.lua

@@ -1,72 +0,0 @@
-local gc=love.graphics
-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",
-	setFT=setFont,
-	mText=ADRAW.str,
-	mDraw=ADRAW.draw,
-	mOutDraw=ADRAW.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,
-}
-local sizeLimit=gc.getSystemLimits().texturesize
-return function(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.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

Zframework/dumpTable.lua

@@ -1,50 +0,0 @@
-local find=string.find
-local tabs={
-	[0]="",
-	"\t",
-	"\t\t",
-	"\t\t\t",
-	"\t\t\t\t",
-	"\t\t\t\t\t",
-}
-return function(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=TABLE.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

Zframework/file.lua

@@ -1,85 +1,105 @@
 local fs=love.filesystem
 local FILE={}
-function FILE.load(name)
-	if fs.getInfo(name)then
-		local F=fs.newFile(name)
-		if F:open'r'then
-			local s=F:read()
-			F:close()
-			if s:sub(1,6)=="return"then
-				s=loadstring(s)
-				if s then
-					setfenv(s,{})
-					return s()
-				end
-			elseif s:sub(1,1)=="["or s:sub(1,1)=="{"then
-				local res=JSON.decode(s)
-				if res then
-					return res
-				end
-			else
-				return s
-			end
-		end
-		MES.new('error',name.." "..text.loadError)
-	end
+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,mode)
-	if not mode then mode=""end
-	if type(data)=='table'then
-		if mode:find'l'then
-			data=TABLE.dump(data)
-			if not data then
-				MES.new('error',name.." "..text.saveError.."dump error")
-				return
-			end
-		else
-			data=JSON.encode(data)
-			if not data then
-				MES.new('error',name.." "..text.saveError.."json error")
-				return
-			end
-		end
-	else
-		data=tostring(data)
-	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
 
-	local F=fs.newFile(name)
-	F:open'w'
-	local success,mes=F:write(data)
-	F:flush()F:close()
-	if not success then
-		MES.new('error',text.saveError..(mes or"unknown error"))
-		MES.traceback()
-	end
-	return success
+    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 or fs.getInfo(path).type~='directory'then return end
-	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
+    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~=''and(fs.getRealDirectory(path)~=SAVEDIR or fs.getInfo(path).type~='directory')then return end
-	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)
+    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
+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

@@ -1,35 +1,25 @@
-local IMG={
-	getCount=function()return 0 end,
-}
+local IMG={}
 function IMG.init(list)
-	IMG.init=nil
-	local count=0
-	for k,v in next,list do
-		count=count+1
-		IMG[k]=v
-	end
-	function IMG.getCount()return count end
-	local function load(skip)
-		local loaded=0
-		for k,v in next,list do
-			if type(v)=='string'then
-				IMG[k]=love.graphics.newImage('media/image/'..v)
-			else
-				for i=1,#v do
-					v[i]=love.graphics.newImage('media/image/'..v[i])
-				end
-				IMG[k]=v
-			end
-			loaded=loaded+1
-			if not skip and loaded~=count then
-				coroutine.yield()
-			end
-		end
-		IMG.loadOne=nil
-		IMG.loadAll=nil
-	end
+    IMG.init=nil
 
-	IMG.loadOne=coroutine.wrap(load)
-	function IMG.loadAll()load(true)end
+    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
+return IMG

Zframework/json.lua

@@ -29,99 +29,92 @@ local json = {}
 -- Encode
 -------------------------------------------------------------------------------
 
-local encode
+local _encode
 
 local escape_char_map = {
-	["\\"] = "\\",
-	["\""] = "\"",
-	["\b"] = "b",
-	["\f"] = "f",
-	["\n"] = "n",
-	["\r"] = "r",
-	["\t"] = "t"
+    ["\\"] = "\\",
+    ["\""] = "\"",
+    ["\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()))
+    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 {}
+    local res = {}
+    stack = stack or {}
 
-	-- Circular reference?
-	if stack[val] then error("circular reference") end
+    -- Circular reference?
+    if stack[val] then error("circular reference") end
 
-	stack[val] = true
+    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, ",") .. "]"
+    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
+    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) .. '"'
+    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)
+    -- 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
+    ['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 .. "'")
+_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
 
-function json.encode(val)
-	local a,b=pcall(encode,val)
-	if a then
-		return b
-	elseif MES then
-		MES.traceback()
-	end
-end
+json.encode=_encode
 
 -------------------------------------------------------------------------------
 -- Decode
@@ -130,9 +123,9 @@ end
 local parse
 
 local function create_set(...)
-	local res = {}
-	for i = 1, select("#", ...) do res[select(i, ...)] = true end
-	return res
+    local res = {}
+    for i = 1, select("#", ...) do res[select(i, ...)] = true end
+    return res
 end
 
 local space_chars = create_set(" ", "\t", "\r", "\n")
@@ -143,213 +136,205 @@ 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
+    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))
+    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))
+    -- 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
+    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
+    local res = ""
+    local j = i + 1
+    local k = j
 
-	while j <= #str do
-		local x = str:byte(j)
+    while j <= #str do
+        local x = str:byte(j)
 
-		if x < 32 then
-			decode_error(str, j, "control character in string")
+        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 == 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
+        elseif x == 34 then -- `"`: End of string
+            res = res .. str:sub(k, j - 1)
+            return res, j + 1
+        end
 
-		j = j + 1
-	end
+        j = j + 1
+    end
 
-	decode_error(str, i, "expected closing quote for string")
+    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
+    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
+    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
+    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
+    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
+    ['"'] = 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 .. "'")
+    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
 
-local function 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
 function json.decode(str)
-	local a,b=pcall(decode,str)
-	if a then
-		return b
-	elseif MES then
-		MES.traceback()
-	end
+    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
+return json

Zframework/languages.lua

@@ -1,56 +1,57 @@
 local LANG={}
-function LANG.init(langList,publicText)--Attention, calling this will destory all initializing methods, create a LANG.set()!
-	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
-	local tipMeta={__call=function(L)return L[math.random(#L)]end}
+--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
 
-	for i=1,#langList do
-		local L=langList[i]
+    --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
 
-		--Set public text
-		for key,list in next,publicText do
-			L[key]=list
-		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
 
-		--Fallback to other language, default zh
-		if i>1 then
-			langFallback(langList[L.fallback or 1],L)
-		end
+    --Custom pretreatment for each language
+    if pretreatFunc then
+        for _,L in next,langList do
+            pretreatFunc(L)
+        end
+    end
 
-		--Metatable:__call for table:getTip
-		if type(rawget(L,'getTip'))=='table'then
-			setmetatable(L.getTip,tipMeta)
-		end
-	end
+    function LANG.get(l)
+        if not langList[l]then
+            LOG("Wrong language: "..tostring(l))
+            l=defaultLang
+        end
+        return langList[l]
+    end
 
-	LANG.init,LANG.setLangList,LANG.setPublicText=nil
+    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.set(l)
-		if text~=langList[l]then
-			text=langList[l]
-			WIDGET.setLang(text.WidgetText)
-			for k,v in next,drawableText do
-				if text[k]then
-					v:set(text[k])
-				end
-			end
-		end
-	end
-
-	function LANG.addScene(name)
-		for i=1,#langList do
-			if langList[i].WidgetText and not langList[i].WidgetText[name]then
-				langList[i].WidgetText[name]={back=langList[i].back}
-			end
-		end
-	end
+    function LANG.init()end
 end
-return LANG
+return LANG

Zframework/light/init.lua

@@ -10,77 +10,77 @@ local shadowMapShader=gc.newShader('Zframework/light/shadowMap.glsl')--Shader fo
 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
+    L.x,L.y=x,y
 end
 local function setPow(L,pow)
-	L.size=pow
+    L.size=pow
 end
 local function drawLight(L)
-	local s=L.size
+    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)
+    --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
+    --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 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 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)
+    --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')
+    --Ready to final render
+    gc_setShader()gc_setCanvas()gc.setBlendMode('add')
 
-	--Render to screen
-	gc_draw(L.renderCanvas,X,Y+s,0,1,-1)
+    --Render to screen
+    gc_draw(L.renderCanvas,X,Y+s,0,1,-1)
 
-	--Reset
-	gc.setBlendMode('alpha')
+    --Reset
+    gc.setBlendMode('alpha')
 end
 
 local LIGHT={}
 function LIGHT.draw()
-	gc_setColor(1,1,1)
-	for i=1,#Lights do
-		drawLight(Lights[i])
-	end
+    gc_setColor(1,1,1)
+    for i=1,#Lights do
+        drawLight(Lights[i])
+    end
 end
 function LIGHT.clear()
-	for i=#Lights,1,-1 do
-		Lights[i].blackCanvas:release()
-		Lights[i].shadowCanvas:release()
-		Lights[i].renderCanvas:release()
-		Lights[i]=nil
-	end
+    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
+    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,
-	}
+        move=move,
+        setPow=setPow,
+    }
 end
-return LIGHT
+return LIGHT

Zframework/light/lightRender.glsl

@@ -2,28 +2,28 @@
 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);
+    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);
+    // 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);
+    // 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
+    // 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;
+        +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));
-}
+    // Multiply the distance to get a soft fading
+    return vec4(vec3(1.),sum*smoothstep(1.,0.,r));
+}

Zframework/light/shadowMap.glsl

@@ -1,20 +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;
+    // 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
-}
+        //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/loadLib.lua

@@ -1,42 +0,0 @@
-return function(name,libName)
-	if SYSTEM=='Windows'or SYSTEM=='Linux'then
-		local r1,r2,r3=pcall(require,libName[SYSTEM])
-		if r1 and r2 then
-			return r2
-		else
-			MES.new('error',"Cannot load "..name..": "..(r2 or r3))
-		end
-	elseif SYSTEM=='Android'then
-		local fs=love.filesystem
-		local platform={'arm64-v8a','armeabi-v7a'}
-
-		for i=1,#platform do
-			local soFile,_,_,mes1=fs.read('data','libAndroid/'..platform[i]..'/'..libName.Android)
-			if soFile then
-				local success,mes2=fs.write('lib/'..libName.Android,soFile)
-				if success then
-					libFunc,mes2=package.loadlib(SAVEDIR..'/lib/'..libName.Android,libName.libFunc)
-					if libFunc then
-						MES.new('check',name.." lib loaded")
-						break
-					else
-						MES.new('error',"Cannot load "..name..": "..mes2)
-					end
-				else
-					MES.new('error',("Write %s-%s to saving failed: %s"):format(name,platform[i],mes2))
-				end
-			else
-				MES.new('error',("Read %s-%s to saving failed: %s"):format(name,platform[i],mes1))
-			end
-		end
-		if not libFunc then
-			MES.new('error',"Cannot load "..name)
-			return
-		end
-		return libFunc()
-	else
-		MES.new('error',"No "..name.." for "..SYSTEM)
-		return
-	end
-	return true
-end

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

@@ -3,140 +3,146 @@ 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=DOGC{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=DOGC{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=DOGC{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},{'fRect',14,11,19,4},
-		{'fRect',6,19,4,4},{'fRect',14,19,19,4},
-	},
-	warn=DOGC{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},
-		{'fRect',17,29,7,7},
-		{'setCL',1,1,1},
-		{'fRect',18,11,5,16},
-		{'fRect',18,30,5,5},
-	},
-	error=DOGC{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},
-	},
+    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
-		if icon=='check'then
-			backColor={.3,.6,.3,.7}
-		elseif icon=='broadcast'then
-			backColor={.3,.3,.6,.8}
-		elseif icon=='warn'then
-			backColor={.4,.4,.2,.9}
-		elseif icon=='error'then
-			backColor={.4,.2,.2,.9}
-		end
-		icon=mesIcon[icon]
-	end
-	local t=gc.newText(getFont(30),str)
-	local w=math.max(t:getWidth()+(icon and 45 or 5),200)+20
-	local h=math.max(t:getHeight(),46)+3
-	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,{'draw',t,icon and 50 or 10,2})
+    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=DOGC(L),
-		width=w,height=h,
-		scale=h>400 and 1/math.min(h/400,2.6)or 1
-	})
+    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=m.startTime-dt
-		elseif m.time>0 then
-			m.time=m.time-dt
-		elseif m.endTime>0 then
-			m.endTime=m.endTime-dt
-		else
-			rem(mesList,i)
-		end
-	end
+    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+4)
-		end
-	end
-	gc_pop()
+    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)
+    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
+return MES

Zframework/profile.lua

@@ -2,156 +2,156 @@ local clock=os.clock
 
 local profile={}
 
-local _labeled={}	-- function labels
-local _defined={}	-- function definitions
-local _tcalled={}	-- time of last call
+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 _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
+    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')
+    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()
+    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()
+    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
+    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)
+    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
+    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
+    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 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
+    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
+    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'
+    _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

@@ -1,177 +1,210 @@
 local gc=love.graphics
 local abs=math.abs
-local SCR=SCR
 
 local scenes={}
 
 local SCN={
-	cur='NULL',--Current scene name
-	swapping=false,--If Swapping
-	stat={
-		tar=false,	--Swapping target
-		style=false,--Swapping style
-		mid=false,	--Loading point
-		time=false,	--Full swap time
-		draw=false,	--Swap draw  func
-	},
-	stack={},--Scene stack
+    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,
+    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,
+    --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
+    scenes[name]=scene
+    if scene.widgetList then
+        setmetatable(scene.widgetList,WIDGET.indexMeta)
+    end
 end
 
-function SCN.swapUpdate()
-	local S=SCN.stat
-	S.time=S.time-1
-	if S.time==S.mid then
-		SCN.init(S.tar,SCN.cur)
-		collectgarbage()
-		--Scene swapped this moment
-	end
-	if S.time==0 then
-		SCN.swapping=false
-	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,org)
-	love.keyboard.setTextInput(false)
+function SCN.init(s)
+    love.keyboard.setTextInput(false)
 
-	local S=scenes[s]
-	SCN.cur=s
+    local S=scenes[s]
+    SCN.cur=s
 
-	WIDGET.setScrollHeight(S.widgetScrollHeight)
-	WIDGET.setWidgetList(S.widgetList)
-	SCN.sceneInit=S.sceneInit
-	SCN.sceneBack=S.sceneBack
-	SCN.update=S.update
-	SCN.draw=S.draw
-	SCN.mouseClick=S.mouseClick
-	SCN.touchClick=S.touchClick
-	SCN.mouseDown=S.mouseDown
-	SCN.mouseMove=S.mouseMove
-	SCN.mouseUp=S.mouseUp
-	SCN.wheelMoved=S.wheelMoved
-	SCN.touchDown=S.touchDown
-	SCN.touchUp=S.touchUp
-	SCN.touchMove=S.touchMove
-	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
-	if S.sceneInit then S.sceneInit(org)end
+    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
+    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 _=SCN.stack
-	_[#_],_[#_-1]=nil
+    local s=SCN.stack
+    s[#s],s[#s-1]=nil
 end
 
 local swap={
-	none={1,0,function()end},--swapTime, changeTime, drawFunction
-	flash={8,1,function()gc.clear(1,1,1)end},
-	fade={30,15,function(t)
-		t=t>15 and 2-t/15 or t/15
-		gc.setColor(0,0,0,t)
-		gc.rectangle('fill',0,0,SCR.w,SCR.h)
-	end},
-	fade_togame={120,20,function(t)
-		t=t>20 and(120-t)/100 or t/20
-		gc.setColor(0,0,0,t)
-		gc.rectangle('fill',0,0,SCR.w,SCR.h)
-	end},
-	slowFade={180,90,function(t)
-		t=t>90 and 2-t/90 or t/90
-		gc.setColor(0,0,0,t)
-		gc.rectangle('fill',0,0,SCR.w,SCR.h)
-	end},
-	swipeL={30,15,function(t)
-		t=t/30
-		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={30,15,function(t)
-		t=t/30
-		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={30,15,function(t)
-		t=t/30
-		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},
+    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
-			if not style then style='fade'end
-			SCN.swapping=true
-			local S=SCN.stat
-			S.tar,S.style=tar,style
-			local s=swap[style]
-			S.time,S.mid,S.draw=s[1],s[2],s[3]
-		end
-	else
-		MES.new('warn',"No Scene: "..tar)
-	end
+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
+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
+function SCN.back(...)
+    if SCN.swapping then return end
 
-	--Leave scene
-	if SCN.sceneBack then SCN.sceneBack()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
+    --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
+return SCN

Zframework/screen.lua

@@ -1,73 +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()
+    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(),
+    --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
+    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.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.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)
+    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),
-	}
+    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
+return SCR

Zframework/setFont.lua

@@ -1,38 +0,0 @@
-local gc=love.graphics
-local newFont=gc.setNewFont
-local setNewFont=gc.setFont
-local fontCache,currentFontSize={}
-if love.filesystem.getInfo('font.ttf')then
-	local fontData=love.filesystem.newFile('font.ttf')
-	function setFont(s)
-		if s~=currentFontSize then
-			if not fontCache[s]then
-				fontCache[s]=newFont(fontData,s)
-			end
-			setNewFont(fontCache[s])
-			currentFontSize=s
-		end
-	end
-	function getFont(s)
-		if not fontCache[s]then
-			fontCache[s]=newFont(fontData,s)
-		end
-		return fontCache[s]
-	end
-else
-	function setFont(s)
-		if s~=currentFontSize then
-			if not fontCache[s]then
-				fontCache[s]=newFont(s)
-			end
-			setNewFont(fontCache[s])
-			currentFontSize=s
-		end
-	end
-	function getFont(s)
-		if not fontCache[s]then
-			fontCache[s]=newFont(s)
-		end
-		return fontCache[s]
-	end
-end

Zframework/sfx.lua

@@ -1,93 +1,170 @@
-local SFX={
-	getCount=function()return 0 end,
-	fieldPlay=NULL,
-	play=NULL,
-	fplay=NULL,
-	reset=NULL,
+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,
 }
-function SFX.init(list)
-	SFX.init=nil
-	local rem=table.remove
-	local Sources={}
-
-	local count=#list function SFX.getCount()return count end
-	local function load(skip)
-		for i=1,count do
-			local N='media/SFX/'..list[i]..'.ogg'
-			if love.filesystem.getInfo(N)then
-				Sources[list[i]]={love.audio.newSource(N,'static')}
-			else
-				MES.new('warn',"No SFX file: "..N,.1)
-			end
-			if not skip and i~=count then
-				coroutine.yield()
-			end
-		end
-		SFX.loadOne=nil
-
-		function SFX.play(s,vol,pos)
-			if SETTING.sfx==0 or vol==0 then return end
-			local S=Sources[s]--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=pos*SETTING.stereo
-					S:setPosition(pos,1-pos^2,0)
-				else
-					S:setPosition(0,0,0)
-				end
-			end
-			S:setVolume(((vol or 1)*SETTING.sfx)^1.626)
-			S:play()
-		end
-		function SFX.fplay(s,vol,pos)
-			local S=Sources[s]--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=pos*SETTING.stereo
-					S:setPosition(pos,1-pos^2,0)
-				else
-					S:setPosition(0,0,0)
-				end
-			end
-			S:setVolume(vol^1.626)
-			S:play()
-		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
-	end
-
-	SFX.loadOne=coroutine.wrap(load)
-	function SFX.loadAll()load(true)end
+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
-return SFX
+
+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

@@ -1,116 +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,upper=string.find,string.sub,string.upper
+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
+    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()
+    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
+    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
+    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(s)
-	if s<60 then
-		return format("%.3f\"",s)
-	elseif s<3600 then
-		return format("%d'%05.2f\"",int(s/60),s%60)
-	else
-		local h=int(s/3600)
-		return format("%d:%.2d'%05.2f\"",h,int(s/60%60),s%60)
-	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
+    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")
-	return str:sub(1,p-1),str:sub(p+1)
+    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))
+    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
+    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))
+    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
+    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))
+    return STRING.packText(JSON.encode(t))
 end
 function STRING.unpackTable(t)
-	return JSON.decode(STRING.unpackText(t))
+    return JSON.decode(STRING.unpackText(t))
 end
 
-return STRING
+return STRING

Zframework/sysFX.lua

@@ -3,204 +3,203 @@ 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 sin,cos=math.sin,math.cos
 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
+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
+    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
+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
+    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
+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)
+    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_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)
+    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
-	)
+    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)
+    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)
+    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)
+    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)
+    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)
+    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)
+    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
+    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
+    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,
-	})
+    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,
-	})
+    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)
+    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,
-	})
+    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,
-	})
+    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,
-	})
+    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,
-	})
+    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,
-	})
+    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
+return SYSFX

Zframework/tableExtend.lua

@@ -1,190 +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
+    local L={}
+    for i=1,count do
+        L[i]=val
+    end
+    return L
 end
 
 --Get a copy of [1~#] elements
-function TABLE.shift(org)
-	local L={}
-	for i=1,#org do
-		if type(org[i])~='table'then
-			L[i]=org[i]
-		else
-			L[i]=TABLE.shift(org[i])
-		end
-	end
-	return L
+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
-function TABLE.copy(org)
-	local L={}
-	for k,v in next,org do
-		if type(v)~='table'then
-			L[k]=v
-		else
-			L[k]=TABLE.copy(v)
-		end
-	end
-	return L
+--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 if same type in base, push to old
+--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
+    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 base, push to old
+--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
+    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 positive integer index of table
+--Remove [1~#] of table
 function TABLE.cut(G)
-	for i=#G,1,-1 do
-		G[i]=nil
-	end
+    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
+    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
+    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
+    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
+    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 find=string.find
-	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
+    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 find=string.find
-	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
+    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
+return TABLE

Zframework/task.lua

@@ -4,48 +4,53 @@ local tasks={}
 
 local TASK={}
 function TASK.getCount()
-	return #tasks
+    return #tasks
 end
-function TASK.update()
-	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
+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)
-	resume(thread,...)
-	if status(thread)~='dead'then
-		tasks[#tasks+1]={
-			thread=thread,
-			code=code,
-			args={...},
-		}
-	end
+    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
+    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
+    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
+    local i=#tasks
+    while i>0 do
+        tasks[i]=nil
+        i=i-1
+    end
 end
-return TASK
+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

@@ -1,129 +1,153 @@
 local gc=love.graphics
-local gc_getColor,gc_setColor,gc_push,gc_pop=gc.getColor,gc.setColor,gc.push,gc.pop
-local gc_translate,gc_scale,gc_rotate,gc_shear=gc.translate,gc.scale,gc.rotate,gc.shear
+local getColor,setColor=gc.getColor,gc.setColor
 
 local int,rnd=math.floor,math.random
 local ins,rem=table.insert,table.remove
-local setFont,mStr=setFont,mStr
+local draw=gc.draw
 
 local texts={}
 
 local textFX={}
 function textFX.appear(t)
-	mStr(t.text,t.x,t.y-t.font*.7)
+    draw(
+        t.text,t.x,t.y,
+        nil,
+        nil,nil,
+        t.text:getWidth()*.5,t.text:getHeight()*.5
+    )
 end
 function textFX.sudden(t)
-	gc_setColor(1,1,1,1-t.c)
-	mStr(t.text,t.x,t.y-t.font*.7)
+    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)
-	mStr(t.text,t.x+(t.c-.5)^3*300,t.y-t.font*.7)
+    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)
-	gc_push('transform')
-		gc_translate(t.x,t.y)
-		if t.c<.3 then gc_scale((.3-t.c)*1.6+1,1)end
-		mStr(t.text,0,-t.font*.7)
-	gc_pop()
+    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)
-	gc_push('transform')
-		gc_translate(t.x,t.y)
-		if t.c<.3 then gc_shear((.3-t.c)*2,0)end
-		mStr(t.text,0,-t.font*.7)
-	gc_pop()
+    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)
-	gc_push('transform')
-		gc_translate(t.x,t.y)
-		if t.c<.3 then
-			gc_rotate((.3-t.c)^2*4)
-		elseif t.c>.8 then
-			gc_rotate((t.c-.8)^2*-4)
-		end
-		mStr(t.text,0,-t.font*.7)
-	gc_pop()
+    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=gc_getColor()
-	gc_setColor(1,1,1,T*(rnd()+.5))
-	mStr(t.text,t.x,t.y-t.font*.7)
+    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)
-	gc_push('transform')
-		local k=t.c^.5*.1+1
-		gc_translate(t.x,t.y)
-		gc_scale(k,k)
-		mStr(t.text,0,-t.font*.7)
-	gc_pop()
+    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)
-	gc_push('transform')
-		gc_translate(t.x,t.y)
-		if t.c<.3 then
-			local k=1.3-t.c^2/.3
-			gc_scale(k,k)
-		end
-		mStr(t.text,0,-t.font*.7)
-	gc_pop()
+    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=gc_getColor()
-	gc_setColor(1,1,1,T*.5)
-	mStr(t.text,t.x,t.y-t.font*.7-t.c^.2*50)
+    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={}
+    texts={}
 end
 function TEXT.show(text,x,y,font,style,spd,stop)
-	ins(texts,{
-		c=0,				--Timer
-		text=text,			--String
-		x=x or 0,			--X
-		y=y or 0,			--Y
-		font=int(font/5)*5 or 40,	--Font
-		spd=(spd or 1)/60,	--Timing speed(1=last 1 sec)
-		stop=stop,			--Stop time(sustained text)
-		draw=textFX[style or'appear']or error("unavailable type:"..style),	--Draw method
-	})
+    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=text,
-		x=x or 0,
-		y=y or 0,
-		font=int(font/5)*5 or 40,
-		spd=(spd or 1)/60,
-		stop=stop,
-		draw=textFX[style or'appear']or error("unavailable type:"..style),
-	}
+    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(list)
-	if not list then list=texts end
-	for i=#list,1,-1 do
-		local t=list[i]
-		t.c=t.c+t.spd
-		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
+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
-		gc_setColor(1,1,1,p<.2 and p*5 or p<.8 and 1 or 5-p*5)
-		setFont(t.font)
-		t:draw()
-	end
+    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
+return TEXT

Zframework/theme.lua

@@ -1,97 +0,0 @@
-local THEME={
-	cur=false,--Current theme
-}
-local themeColor={
-	xmas={COLOR.R,COLOR.Z,COLOR.G},
-	sprfes={COLOR.R,COLOR.O,COLOR.Y},
-}
-
-function THEME.calculate(Y,M,D)
-	if not Y then Y,M,D=os.date('%Y'),os.date('%m'),os.date('%d')end
-	--Festival calculate within one statement
-	return
-		--Christmas
-		M=='12'and math.abs(D-25)<4 and
-		'xmas'or
-
-		--Birthday
-		M=='06'and D=='06'and
-		'birth'or
-
-		--Spring festival
-		M<'03'and math.abs((({
-			--Festival days. Jan 26=26, Feb 1=32, etc.
-			24,43,32,22,40,29,49,38,26,45,
-			34,23,41,31,50,39,28,47,36,25,
-			43,32,22,41,29,48,37,26,44,34,
-			23,42,31,50,39,28,46,35,24,43,
-			32,22,41,30,48,37,26,45,33,23,
-			42,32,50,39,28,46,35,24,43,33,
-			21,40,
-		})[Y-2000]or -26)-((M-1)*31+D))<6 and
-		'sprfes'or
-
-		--April fool's day
-		M=='04'and D=='01'and
-		'fool'or
-
-		--Z day
-		D=='26'and(
-			(M=='01'or M=='02'or M=='03')and'zday1'or
-			(M=='04'or M=='05'or M=='06')and'zday2'or
-			(M=='07'or M=='08'or M=='09')and'zday3'or
-			(M=='10'or M=='11'or M=='12')and'zday4'
-		)or
-
-		'classic'
-end
-
-function THEME.set(theme)
-	if theme=='classic'then
-		BG.setDefault('space')
-		BGM.setDefault('nil')
-	elseif theme=='xmas'then
-		BG.setDefault('snow')
-		BGM.setDefault('xmas')
-		MES.new('info',"==Merry Christmas==")
-	elseif theme=='birth'then
-		BG.setDefault('firework')
-		BGM.setDefault('magicblock')
-	elseif theme=='sprfes'then
-		BG.setDefault('firework')
-		BGM.setDefault('spring festival')
-		MES.new('info',"★☆新年快乐☆★")
-	elseif theme=='zday1'then
-		BG.setDefault('lanterns')
-		BGM.setDefault('overzero')
-	elseif theme=='zday2'then
-		BG.setDefault('lanterns')
-		BGM.setDefault('vacuum')
-	elseif theme=='zday3'then
-		BG.setDefault('lanterns')
-		BGM.setDefault('empty')
-	elseif theme=='zday4'then
-		BG.setDefault('lanterns')
-		BGM.setDefault('space')
-	elseif theme=='fool'then
-		BG.setDefault('blockrain')
-		BGM.setDefault('how feeling')
-	else
-		return
-	end
-	THEME.cur=theme
-	BG.set()
-	BGM.play()
-	return true
-end
-
-function THEME.getThemeColor(theme)
-	if not theme then theme=THEME.cur end
-	return themeColor[theme]
-end
-
-function THEME.fresh()
-	THEME.set(THEME.calculate(os.date('%Y'),os.date('%m'),os.date('%d')))
-end
-
-return THEME

Zframework/vibrate.lua

@@ -1,8 +1,12 @@
 local level={0,0,.01,.016,.023,.03,.04,.05,.06,.07,.08,.09,.12,.15}
 local vib=love.system.vibrate
-return function(t)
-	local L=SETTING.vib
-	if L>0 then
-		vib(level[L+t])
-	end
-end
+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

@@ -1,124 +1,132 @@
+local rnd=math.random
+local volume=1
+local diversion=0
 local VOC={
-	getCount=function()return 0 end,
-	getQueueCount=function()return 0 end,
-	getFreeChannel=NULL,
-	play=NULL,
-	update=NULL,
+    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.init(list)
-	VOC.init=nil
-	local rnd=math.random
-	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(N,vocName)
-		local fileName='media/VOICE/'..SETTING.cv..'/'..vocName..'.ogg'
-		if love.filesystem.getInfo(fileName)then
-			bank[vocName]={love.audio.newSource(fileName,'static')}
-			table.insert(Source[N],vocName)
-			return true
-		end
-	end
-	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]
-		--Load voice with string
-	end
-	local function load(skip)
-		for i=1,count do
-			Source[list[i]]={}
-
-			local n=0
-			repeat n=n+1 until not loadVoiceFile(list[i],list[i]..'_'..n)
-
-			if n==1 then
-				if not loadVoiceFile(list[i],list[i])then
-					MES.new('warn',"No VOICE file: "..list[i],.1)
-				end
-			end
-			if not Source[list[i]][1]then Source[list[i]]=nil end
-			if not skip and i~=count then
-				coroutine.yield()
-			end
-		end
-		VOC.loadOne=nil
-
-		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 SETTING.voc>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(SETTING.voc)
-					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(SETTING.voc)
-						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
-
-	VOC.loadOne=coroutine.wrap(load)
-	function VOC.loadAll()load(true)end
+function VOC.setDiversion(n)
+    assert(type(n)=='number'and n>0 and n<12,'Wrong div')
+    diversion=n
 end
-return VOC
+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

@@ -1,389 +1,191 @@
 local host=
-	-- '127.0.0.1'
-	-- '192.168.114.102'
-	'krakens.tpddns.cn'
-	-- 'game.techmino.org'
+    -- '127.0.0.1'
+    -- '192.168.114.102'
+    'game.techmino.org'
 local port='10026'
 local path='/tech/socket/v1'
 
-local debugMode=''--S:send, R:receive, M=mark
-
-local wsThread=[[
 -- lua + LÖVE threading websocket client
 -- Original pure lua ver. by flaribbit and Particle_G
 -- Threading version by MrZ
 
-local triggerCHN,sendCHN,readCHN,threadName=...
-
-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)
-	if err then CHN_push(readCHN,err)return end
-
-	--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')
-	if not res then CHN_push(readCHN,err)return end
-	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')
-		if not res then CHN_push(readCHN,err)return end
-		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)
-			if not res then
-				CHN_push(readCHN,err)
-			else
-				res=JSON.decode(res)
-				CHN_push(readCHN,(code or"XXX")..":"..(res and res.reason or"Server Error"))
-			end
-			return
-		end
-	end
-	SOCK:settimeout(0)
-end
-
-
-
-local byte=string.byte
-local band,shl=bit.band,bit.lshift
-
-local _send do
-	local char=string.char
-	local bor,bxor=bit.bor,bit.bxor
-	local shr=bit.rshift
-
-	local mask_key={1,14,5,14}
-	local mask_str=char(unpack(mask_key))
-
-	function _send(op,message)
-		]]..(debugMode:find'S'and''or'--')..[[print((">> %s[%d]:%s"):format(threadName,#message,message))
-		--Message type
-		SOCK:send(char(bor(0x80,op)))
-
-		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
-			SOCK:send(mask_str)
-			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(char(unpack(msgbyte)))
-		else
-			SOCK:send('\128'..mask_str)
-			return 0
-		end
-	end
-end
-local res,err
-local op,fin
-local length
-local lBuffer=""--Long multi-data buffer
-local UFF--Un-finished-frame mode
-local sBuffer=""--Short multi-frame buffer
-while true do--Running
-	CHN_demand(triggerCHN)
-
-	--Send
-	while CHN_getCount(sendCHN)>=2 do
-		local op=CHN_pop(sendCHN)
-		local message=CHN_pop(sendCHN)
-		_send(op,message)
-	end
-
-	--Read
-	while true do
-		if not UFF then--UNF process
-			--Byte 0-1
-			res,err=SOCK:receive(2)
-			if err then break end
-
-			op=band(byte(res,1),0x0f)
-			fin=band(byte(res,1),0x80)==0x80
-
-			--Calculating data length
-			length=band(byte(res,2),0x7f)
-			if length==126 then
-				res=SOCK:receive(2)
-				length=shl(byte(res,1),8)+byte(res,2)
-			elseif length==127 then
-				local b={byte(SOCK:receive(8),1,8)}
-				length=shl(b[5],24)+shl(b[6],16)+shl(b[7],8)+b[8]
-			end
-
-			if length>0 then
-				--Receive data
-				local s,_,p=SOCK:receive(length)
-				if s then
-					res=s
-				elseif p then--UNF head
-					]]..(debugMode:find'R'and''or'--')..[[print(("<< %s[%d/%d]:%s"):format(threadName,#p,length,#p<50 and p or p:sub(1,50)))
-					UFF=true
-					sBuffer=sBuffer..p
-					length=length-#p
-					break
-				end
-			else
-				res=""
-			end
-		else
-			local s,e,p=SOCK:receive(length)
-			if s then
-				]]..(debugMode:find'R'and''or'--')..[[print(("<< %s(%d):%s"):format(threadName,length,#s<50 and s or s:sub(1,50)))
-				sBuffer=sBuffer..s
-				length=length-#s
-			elseif p then
-				]]..(debugMode:find'R'and''or'--')..[[print(("<< %s(%d):%s"):format(threadName,length,#p<50 and p or p:sub(1,50)))
-				sBuffer=sBuffer..p
-				length=length-#p
-			end
-			if length==0 then
-				res,sBuffer=sBuffer,""
-				UFF=false
-			else
-				break
-			end
-		end
-		]]..(debugMode:find'R'and''or'--')..[[print(("<< %s[(%d)]:%s"):format(threadName,#res,#res<800 and res or res:sub(1,150).."\n...\n"..res:sub(-150)))
-
-		--React
-		if op==8 then--8=close
-			CHN_push(readCHN,op)
-			SOCK:close()
-			if type(res)=='string'then
-				CHN_push(readCHN,res:sub(3))--Warning: with 2 bytes close code
-			else
-				CHN_push(readCHN,"WS Error")
-			end
-		elseif op==0 then--0=continue
-			lBuffer=lBuffer..res
-			if fin then
-				]]..(debugMode:find'M'and''or'--')..[[print("FIN=1 (c")
-				CHN_push(readCHN,lBuffer)
-				lBuffer=""
-			else
-				]]..(debugMode:find'M'and''or'--')..[[print("FIN=0 (c")
-			end
-		else
-			CHN_push(readCHN,op)
-			if fin then
-				]]..(debugMode:find'M'and''or'--')..[[print("OP: "..op.."\tFIN=1")
-				CHN_push(readCHN,res)
-			else
-				]]..(debugMode:find'M'and''or'--')..[[print("OP: "..op.."\tFIN=0")
-				sBuffer=res
-				]]..(debugMode:find'M'and''or'--')..[[print("START pack: "..res)
-			end
-		end
-	end
-end
-]]
-
 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
+    __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
+    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)
-	local ws={
-		real=true,
-		thread=love.thread.newThread(wsThread),
-		triggerCHN=love.thread.newChannel(),
-		sendCHN=love.thread.newChannel(),
-		readCHN=love.thread.newChannel(),
-		lastPingTime=0,
-		lastPongTime=timer(),
-		pingInterval=12,
-		status='connecting',--'connecting', 'running', 'dead'
-		sendTimer=0,
-		alertTimer=0,
-		pongTimer=0,
-	}
-	wsList[name]=ws
-	ws.thread:start(ws.triggerCHN,ws.sendCHN,ws.readCHN,name)
-	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)
+    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'
+    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
+    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)
+    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
+    local ws=wsList[name]
+    ws.alertTimer=2.6
 end
 
 local OPcode={
-	continue=0,
-	text=1,
-	binary=2,
-	close=8,
-	ping=9,
-	pong=10,
+    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',
+    [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
+    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 ws.status='dead'end--8=close
-		ws.lastPongTime=timer()
-		ws.pongTimer=1
-		return message,OPname[op]or op
-	end
+    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
+    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 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
-					CHN_push(ws.sendCHN,9)
-					CHN_push(ws.sendCHN,"")--ping
-					ws.lastPingTime=time
-				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
-		end
-	end
+    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
+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

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

conf.lua

@@ -1,43 +1,34 @@
-VERSION={
-	build=344,
-	code=1506,
-	short="V0.15.6",
-	string="Alpha V0.15.6",
-	room="V1.0",
-	name="强化装甲 Reinforced Armor",
-}
 function love.conf(t)
-	t.identity='Techmino'--Saving folder
-	t.version="11.1"
-	t.gammacorrect=false
-	t.appendidentity=true--Search files in source then in save directory
-	t.accelerometerjoystick=false--Accelerometer=joystick on ios/android
-	if t.audio then
-		t.audio.mic=false
-		t.audio.mixwithsystem=true
-	end
+    t.identity='Techmino'--Saving folder
+    t.version="11.1"
+    t.gammacorrect=false
+    t.appendidentity=true--Search files in source then in save directory
+    t.accelerometerjoystick=false--Accelerometer=joystick on ios/android
+    if t.audio then
+        t.audio.mic=false
+        t.audio.mixwithsystem=true
+    end
 
-	local W=t.window
-	W.title="Techmino "..VERSION.string
-	W.icon="media/image/icon.png"
-	W.width,W.height=1280,720
-	W.minwidth,W.minheight=640,360
-	W.borderless=false
-	W.resizable=true
-	W.fullscreen=false
-	W.vsync=0--Unlimited FPS
-	W.msaa=false--Num of samples to use with multi-sampled antialiasing
-	W.depth=0--Bits/samp of depth buffer
-	W.stencil=1--Bits/samp of stencil buffer
-	W.display=1--Monitor ID
-	W.highdpi=true--High-dpi mode for the window on a Retina display
-	W.x,W.y=nil
+    local W=t.window
+    W.title="Techmino "..require"version".string
+    W.width,W.height=1280,720
+    W.minwidth,W.minheight=640,360
+    W.borderless=false
+    W.resizable=true
+    W.fullscreen=false
+    W.vsync=0--Unlimited FPS
+    W.msaa=0--Multi-sampled antialiasing
+    W.depth=0--Bits/samp of depth buffer
+    W.stencil=1--Bits/samp of stencil buffer
+    W.display=1--Monitor ID
+    W.highdpi=true--High-dpi mode for the window on a Retina display
+    W.x,W.y=nil
 
-	local M=t.modules
-	M.window,M.system,M.event,M.thread=true,true,true,true
-	M.timer,M.math,M.data=true,true,true
-	M.video,M.audio,M.sound=true,true,true
-	M.graphics,M.font,M.image=true,true,true
-	M.mouse,M.touch,M.keyboard,M.joystick=true,true,true,true
-	M.physics=false
-end
+    local M=t.modules
+    M.window,M.system,M.event,M.thread=true,true,true,true
+    M.timer,M.math,M.data=true,true,true
+    M.video,M.audio,M.sound=true,true,true
+    M.graphics,M.font,M.image=true,true,true
+    M.mouse,M.touch,M.keyboard,M.joystick=true,true,true,true
+    M.physics=false
+end

document/mode.txt

@@ -1,156 +0,0 @@
-模式文件应当是一个合(语)法的lua程序文件，其必须返回一个table，里面的内容包括：
-	color:
-		必选
-		模式的颜色，用于点击地图图标后显示的提示文本
-	env:
-		必选
-		模式环境变量，决定了关卡的各项属性
-			*属性名*		*默认值*		*说明*
-			drop			60			下落延迟(帧，支持自然数和2的整数次幂)
-			lock			60			锁定延迟(帧)
-			wait			0			出块延迟(帧)
-			fall			0			消行延迟(帧)
-			bone			false		是否开启骨块模式
-			fieldH			20			场地高度
-			heightLimit		1e99		允许的最大场地高度
-			nextCount		6			显示next个数
-			nextStartPos	1			next从第几个开始显示
-			holdCount		1			hold个数
-			infHold			false		是否能无限hold
-			phyHold			false		是否开启物理hold
-			ospin			true		是否能O-spin
-			deepDrop		false		是否开启深降
-			RS				'TRS'		旋转系统名
-
-			das				10			DAS
-			arr				2			ARR
-			sddas			2			软降DAS
-			sdarr			2			软降ARR
-			mindas			0			允许的最小DAS
-			minarr			0			允许的最小ARR
-			minsdarr		0			允许的最小软降ARR
-			ihs				true		提前Hold
-			irs				true		提前旋转
-			ims				true		提前移动
-
-			skin			[设置值]		方块颜色，包含25个整数(1~16)的table
-			face			[设置值]		方块朝向，包含25个整数(0~3)的table
-
-			block			true		是否显示方块
-			ghost			0.3			影子透明度(0~1)
-			center			1			旋转中心透明度(0~1)
-			smooth			false		是否平滑下落
-			grid			0.16		网格透明度(0~1)
-			bagLine			true		是否显示包分界线(如果存在)
-			lockFX			2			锁定特效等级(0~5整数)
-			dropFX			2			瞬间下落特效等级(0~5整数)
-			moveFX			2			移动特效等级(0~5整数)
-			clearFX			2			消除特效等级(0~5整数)
-			splashFX		2			溅射特效等级(0~5整数)
-			shakeFX			2			晃动特效等级(0~5整数)
-			atkFX			2			攻击特效等级(0~5整数)
-
-			text			true		是否显示消行文本
-			score			true		是否显示落块分数
-			highCam			false		是否开启超屏视野
-			nextPos			false		是否开启生成预览
-			showSpike		false		是否开启spike计数器
-
-			hideBoard		false		场地隐藏模式("down"|"up"|"all")
-			flipBoard		false		场地翻转模式("U-D"|"L-R"|"180")
-
-			sequence		'bag'		序列模式，是放一块后对next序列的刷新函数，可以使用默认的几个函数用字符串表示。也可以自己写一个，注意：使用协程技术
-			seqData			{1,2,3,4,5,6,7}序列模式使用的"包"数据(本质是生成序列用的数据，会作为参数传进上面那个叫sequence的序列生成函数，不一定是包)
-			mission			false		包含任务的table，说明暂时略
-
-			life			0			生命数(复活次数)
-			garbageSpeed	1			垃圾行释放速度
-			pushSpeed		3			垃圾行上涨速度
-			noTele			false		是否禁止10个高级按键
-			visible			'show'		方块可见性，填写固定的几个字符串
-			freshLimit		1e99		锁延刷新次数限制
-			easyFresh		true		是否使用简单锁延刷新规则
-			bufferLimit		1e99		攻击缓冲行数上限
-
-			fkey1			false		按下功能键1后执行的函数
-			fkey2			false		按下功能键2后执行的函数
-			keyCancel		{}			包含禁止使用的按键的id，例如{1,2}就是禁止左移和右移
-			fine			[设置值]		是否开启非极简提示音
-			fineKill		false		是否开启非极简即死
-			b2bKill			false		是否开启断b2b即死
-			missionKill		false		是否开启强制任务
-			dropPiece		NULL		放一块后要执行的函数，输入玩家对象
-			task			NULL		每帧会*继续执行*的函数，输入玩家对象，注意：使用协程技术
-
-			bg				'none'		背景，只能填写内置背景的名字
-			bgm				'race'		背景音乐名(或者列表随机，例如{'race','push'})，只能用内置音乐库的音乐名
-			allowMod		true		是否允许mod
-	load:
-		必选
-		模式初始化函数，一般创建一个玩家即可
-		无输入
-		无输出
-	mesDisp:
-		必选
-		模式显示信息，是一个绘图函数，坐标系原点是玩家对象最左上角
-		输入玩家对象
-		无输出
-
-	score:
-		可选(不填就没有分数保存和计算)
-		一局打完后要存储的数据
-		输入玩家对象
-		输出游戏结束瞬间返回一个包含直接决定该模式成绩的数据table(会被强制加上date标签)
-
-	scoreDisp:
-		可选(模式不出现在地图上的时候不用写)
-		是把score()存起来的table转换为字符串显示出来的函数
-		输入一个成绩table
-		输出一个字符串
-
-	comp:
-		可选(没有score函数的时候不用写)
-		是成绩table之间对比并排序的规则
-		输入两个成绩table
-		输出[第一个是不是排在第二个前面]的布尔值(可以类比"小于"运算)
-
-	getRank:
-		可选，模式评级函数
-		是用于评价玩家表现的函数
-		输入玩家对象
-		输出0~5，0表示除了记录到排行榜外什么都不做；1/2/3/4/5表示D/C/B/A/S级，能解锁连接的模式，还会让模式图标在地图上显示不同的颜色
-
-以下是40行的模式文件内容:
-//sprint_40l.lua
-return{--返回一个table，你也可以在之前定义一些常量或者函数什么的
-	color=COLOR.green,--颜色
-	env={--模式环境变量
-		drop=60,lock=60,
-		dropPiece=function(P)if P.stat.row>=40 then P			win('finish')end end,
-		bg='bg2',bgm='race',
-	},
-	load=function()--生成玩家
-		PLY.newPlayer(1)--1是玩家编号，默认用户控制1号玩家
-	end,
-	mesDisp=function(P)--40行模式需要显示的信息
-		setFont(55)
-		local r=40-P.stat.row
-		if r<0 then r=0 end
-		mStr(r,69,265)--把计算出来的剩余行数r显示出来
-		PLY.draw.drawTargetLine(P,r)--使用自带的境界高度线绘制函数
-	end,
-	score=function(P)return{P.stat.time,P.stat.piece}end,--游戏结束时需要保存的本局关键信息
-	scoreDisp=function(D)return STRING.time(D[1]).."   "..D[2].." Pieces"end,--把score返回的数据显示出来的方法
-	comp=function(a,b)return a[1]<b[1]or a[1]==b[1]and a[2]<b[2]end,--按照时间排序，时间一样就看块数
-	getRank=function(P)--计算评级
-		if P.stat.row<40 then return end--你总得打完40行对吧，否则直接return空掉，成绩都不记录
-		local T=P.stat.time
-		return
-		T<=26 and 5 or--时间小于等于26秒就是S级要求
-		T<=32.6 and 4 or--A级要求
-		T<=52.6 and 3 or--B级要求
-		T<=92.9 and 2 or--C级要求
-		T<=183 and 1 or--D级要求，解锁别的模式的最低标准
-		0--记录成绩的最低标准
-	end,
-}

document/voice.txt

@@ -1,49 +0,0 @@
-以下是Techmino使用/将要使用/未来也许会使用的语音文件, 每一个都可以录任意多条
-有多个文件的语音在播放时会随机挑选一个播放, 所以组合性的语音大概率不能随意发挥, 不然和其他组合起来可能就会出现奇怪的现象
-
-例如多个mini语音文件名: mini_1.ogg, mini_2.ogg, ......
-如果只有一个, "_1"可以省略, 但是多个文件的数字不能跳跃
-
-要投稿语音包的话如果没有经过后期处理, 建议使用wav格式;
-如果打算自己导入游戏的话需要降噪+裁剪+调整音量后再转为ogg格式 (不支持别的, 因为ogg音质好体积小)
-
-目前游戏内正在使用, 必须录制的音频文件名们:
-	single, double, triple, techrash
-	以上直接念就可以,用于普通直接消行
-
-	mini, b2b, b2b2b
-	以上直接念就可以,用于组合进spin消除
-	注: b2b读作back to back
-
-	[各种spin消除]
-	以上的每一个都要衍生出数条语音,例如zpin的是这五条:
-		z-spin (用于不消行)
-		z-spin single
-		z-spin double
-		z-spin triple
-		z-spin techrash
-		(z-spin pentacrash)
-		(z-spin hexacrash)
-	对于 S L J T O I 每一个都是这样, 五种语音, 加括号的是消5和消6, 一般不用所以可以不录
-	另：对于P, Q, F, E, U, V, W, X, R, Y, N, H
-	这些方块也可以有上面那些语音,但由于仅在五连块使用还会显著增加语音包体积, 所以不录也可以
-
-	perfect_clear, half_clear
-	这俩可以直接念也可以略做修改
-
-	win, lose, bye
-	这几个可以自由发挥, 能用在三个场合就行
-
-	test, happy, doubt, sad, egg
-	这几个是特殊音效，具体使用情况不定
-	第一个是测试音量用的音效，尽量短一点，长度在半秒内
-	其他是彩蛋音效(不录也行, 反正一般不会触发)
-
-	welcome_voc
-	进入游戏播放的欢迎语音(类似osu)
-
-目前没有用到但是将要加入的:
-	split
-
-未来可能加入的:
-	暂无

legals.md

@@ -0,0 +1,51 @@
+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.
+
+
+"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-2021 LÖVE Development Team.
+
+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. © 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.
+
+
+Source Han Sans is copyrighted by Adobe Inc. Source Han Sans and Adobe are registered trademarks of Adobe Inc. in United States and other countries or regions. Source Han Sans is licensed under the SIL Open Font License, Version 1.1.
+
+
+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. © 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.
+
+
+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. © 2021 Electronic Arts Inc.
+
+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. © 2021 Nintendo Co., Ltd.
+
+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-2021.
+
+All other trademarks, logos, and copyrights are the properties of their respective owners.

license.txt

@@ -0,0 +1,165 @@
+GNU LESSER GENERAL PUBLIC LICENSE
+Version 3, 29 June 2007
+
+Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+Everyone is permitted to copy and distribute verbatim copies
+of this license document, but changing it is not allowed.
+
+
+    This version of the GNU Lesser General Public License incorporates
+the terms and conditions of version 3 of the GNU General Public
+License, supplemented by the additional permissions listed below.
+
+    0. Additional Definitions.
+
+    As used herein, "this License" refers to version 3 of the GNU Lesser
+General Public License, and the "GNU GPL" refers to version 3 of the GNU
+General Public License.
+
+    "The Library" refers to a covered work governed by this License,
+other than an Application or a Combined Work as defined below.
+
+    An "Application" is any work that makes use of an interface provided
+by the Library, but which is not otherwise based on the Library.
+Defining a subclass of a class defined by the Library is deemed a mode
+of using an interface provided by the Library.
+
+    A "Combined Work" is a work produced by combining or linking an
+Application with the Library.  The particular version of the Library
+with which the Combined Work was made is also called the "Linked
+Version".
+
+    The "Minimal Corresponding Source" for a Combined Work means the
+Corresponding Source for the Combined Work, excluding any source code
+for portions of the Combined Work that, considered in isolation, are
+based on the Application, and not on the Linked Version.
+
+    The "Corresponding Application Code" for a Combined Work means the
+object code and/or source code for the Application, including any data
+and utility programs needed for reproducing the Combined Work from the
+Application, but excluding the System Libraries of the Combined Work.
+
+    1. Exception to Section 3 of the GNU GPL.
+
+    You may convey a covered work under sections 3 and 4 of this License
+without being bound by section 3 of the GNU GPL.
+
+    2. Conveying Modified Versions.
+
+    If you modify a copy of the Library, and, in your modifications, a
+facility refers to a function or data to be supplied by an Application
+that uses the facility (other than as an argument passed when the
+facility is invoked), then you may convey a copy of the modified
+version:
+
+        a) under this License, provided that you make a good faith effort to
+        ensure that, in the event an Application does not supply the
+        function or data, the facility still operates, and performs
+        whatever part of its purpose remains meaningful, or
+
+        b) under the GNU GPL, with none of the additional permissions of
+        this License applicable to that copy.
+
+    3. Object Code Incorporating Material from Library Header Files.
+
+    The object code form of an Application may incorporate material from
+a header file that is part of the Library.  You may convey such object
+code under terms of your choice, provided that, if the incorporated
+material is not limited to numerical parameters, data structure
+layouts and accessors, or small macros, inline functions and templates
+(ten or fewer lines in length), you do both of the following:
+
+        a) Give prominent notice with each copy of the object code that the
+        Library is used in it and that the Library and its use are
+        covered by this License.
+
+        b) Accompany the object code with a copy of the GNU GPL and this license
+        document.
+
+    4. Combined Works.
+
+    You may convey a Combined Work under terms of your choice that,
+taken together, effectively do not restrict modification of the
+portions of the Library contained in the Combined Work and reverse
+engineering for debugging such modifications, if you also do each of
+the following:
+
+        a) Give prominent notice with each copy of the Combined Work that
+        the Library is used in it and that the Library and its use are
+        covered by this License.
+
+        b) Accompany the Combined Work with a copy of the GNU GPL and this license
+        document.
+
+        c) For a Combined Work that displays copyright notices during
+        execution, include the copyright notice for the Library among
+        these notices, as well as a reference directing the user to the
+        copies of the GNU GPL and this license document.
+
+        d) Do one of the following:
+
+            0) Convey the Minimal Corresponding Source under the terms of this
+            License, and the Corresponding Application Code in a form
+            suitable for, and under terms that permit, the user to
+            recombine or relink the Application with a modified version of
+            the Linked Version to produce a modified Combined Work, in the
+            manner specified by section 6 of the GNU GPL for conveying
+            Corresponding Source.
+
+            1) Use a suitable shared library mechanism for linking with the
+            Library.  A suitable mechanism is one that (a) uses at run time
+            a copy of the Library already present on the user's computer
+            system, and (b) will operate properly with a modified version
+            of the Library that is interface-compatible with the Linked
+            Version.
+
+        e) Provide Installation Information, but only if you would otherwise
+        be required to provide such information under section 6 of the
+        GNU GPL, and only to the extent that such information is
+        necessary to install and execute a modified version of the
+        Combined Work produced by recombining or relinking the
+        Application with a modified version of the Linked Version. (If
+        you use option 4d0, the Installation Information must accompany
+        the Minimal Corresponding Source and Corresponding Application
+        Code. If you use option 4d1, you must provide the Installation
+        Information in the manner specified by section 6 of the GNU GPL
+        for conveying Corresponding Source.)
+
+    5. Combined Libraries.
+
+    You may place library facilities that are a work based on the
+Library side by side in a single library together with other library
+facilities that are not Applications and are not covered by this
+License, and convey such a combined library under terms of your
+choice, if you do both of the following:
+
+        a) Accompany the combined library with a copy of the same work based
+        on the Library, uncombined with any other library facilities,
+        conveyed under the terms of this License.
+
+        b) Give prominent notice with the combined library that part of it
+        is a work based on the Library, and explaining where to find the
+        accompanying uncombined form of the same work.
+
+    6. Revised Versions of the GNU Lesser General Public License.
+
+    The Free Software Foundation may publish revised and/or new versions
+of the GNU Lesser General Public License from time to time. Such new
+versions will be similar in spirit to the present version, but may
+differ in detail to address new problems or concerns.
+
+    Each version is given a distinguishing version number. If the
+Library as you received it specifies that a certain numbered version
+of the GNU Lesser General Public License "or any later version"
+applies to it, you have the option of following the terms and
+conditions either of that published version or of any later version
+published by the Free Software Foundation. If the Library as you
+received it does not specify a version number of the GNU Lesser
+General Public License, you may choose any version of the GNU Lesser
+General Public License ever published by the Free Software Foundation.
+
+    If the Library as you received it specifies that a proxy can decide
+whether future versions of the GNU Lesser General Public License shall
+apply, that proxy's public statement of acceptance of any version is
+permanent authorization for you to choose that version for the
+Library.

main.lua

@@ -1,33 +1,37 @@
 --[[
-	  ______             __                _
-	 /_  __/___   _____ / /_   ____ ___   (_)____   ____
-	  / /  / _ \ / ___// __ \ / __ `__ \ / // __ \ / __ \
-	 / /  /  __// /__ / / / // / / / / // // / / // /_/ /
-	/_/   \___/ \___//_/ /_//_/ /_/ /_//_//_/ /_/ \____/
-	Techmino is my first "huge project"
-	optimization is welcomed if you also love tetromino stacking game
+    #   ______             __                _              #
+    #  /_  __/___   _____ / /_   ____ ___   (_)____   ____  #
+    #   / /  / _ \ / ___// __ \ / __ `__ \ / // __ \ / __ \ #
+    #  / /  /  __// /__ / / / // / / / / // // / / // /_/ / #
+    # /_/   \___/ \___//_/ /_//_/ /_/ /_//_//_/ /_/ \____/  #
+    Techmino is my first "huge project"
+    optimization is welcomed if you also love tetromino stacking game
 
-	Instructions:
-	1. I made a framework called Zframework, most code in Zframework are not directly relevant to game;
-	2. "xxx" are texts for reading, 'xxx' are string values just in program;
-	3. Some goto statement are used for better performance. All goto-labes have detailed names so don't afraid;
-	4. Except "gcinfo" function of lua itself, other "gc" are short for "graphics";
+    Instructions:
+    1. I made a framework called Zframework, *most* code in Zframework are not directly relevant to game;
+    2. "xxx" are texts for reading by player, 'xxx' are string values just used in program;
+    3. Some goto statement are used for better performance. All goto-labes have detailed names so don't be afraid;
+    4. Except "gcinfo" function of lua itself, other "gc" are short for "graphics";
 ]]--
 
 
 --Var leak check
 -- setmetatable(_G,{__newindex=function(self,k,v)print('>>'..k)print(debug.traceback():match("\n.-\n\t(.-): "))rawset(self,k,v)end})
 
---Declaration
-goto REM love=require"love"::REM::--Just tell IDE to load love-api, no actual usage
+--System Global Vars Declaration
 local fs=love.filesystem
+VERSION=require"version"
 TIME=love.timer.getTime
 YIELD=coroutine.yield
-SYSTEM=love.system.getOS()
+SYSTEM=love.system.getOS()if SYSTEM=='OS X'then SYSTEM='macOS'end
+FNNS=SYSTEM:find'\79\83'--What does FNSF stand for? IDK so don't ask me lol
 MOBILE=SYSTEM=='Android'or SYSTEM=='iOS'
 SAVEDIR=fs.getSaveDirectory()
 
 --Global Vars & Settings
+SFXPACKS={'chiptune'}
+VOCPACKS={'miya',--[['mono',]]'xiaoya','miku'}
+FIRSTLAUNCH=false
 DAILYLAUNCH=false
 
 --System setting
@@ -35,326 +39,606 @@ math.randomseed(os.time()*626)
 love.setDeprecationOutput(false)
 love.keyboard.setKeyRepeat(true)
 love.keyboard.setTextInput(false)
-love.mouse.setVisible(false)
+if MOBILE then
+    local w,h,f=love.window.getMode()
+    f.resizable=false
+    love.window.setMode(w,h,f)
+end
+
+local _LOADTIMELIST_={}
+local _LOADTIME_=TIME()
 
 --Load modules
-require'Zframework'
+Z=require'Zframework'
+FONT.load{
+    norm='parts/fonts/proportional.ttf',
+    mono='parts/fonts/monospaced.ttf',
+}
+FONT.setDefault('norm')
+FONT.setFallback('norm')
+
 SCR.setSize(1280,720)--Initialize Screen size
+BGM.setMaxSources(5)
+BGM.setChange(function(name)MES.new('music',text.nowPlaying..name,5)end)
+VOC.setDiversion(.62)
+
+WIDGET.setOnChange(function()
+    if SCN.cur~='custom_field'then
+        local colorList=THEME.getThemeColor()
+        if not colorList then return end
+        local rnd=math.random
+        for _,W in next,SCN.scenes[SCN.cur].widgetList do
+            if W.color then
+                W.color=colorList[rnd(#colorList)]
+            end
+        end
+    end
+end)
+
+table.insert(_LOADTIMELIST_,("Load Zframework: %.3fs"):format(TIME()-_LOADTIME_))
+
+--Create shortcuts
+setFont=FONT.set
+getFont=FONT.get
+mStr=GC.mStr
+mText=GC.simpX
+mDraw=GC.draw
+Snd=SFX.playSample
+string.repD=STRING.repD
+string.sArg=STRING.sArg
+string.split=STRING.split
 
 --Delete all naked files (from too old version)
 FILE.clear('')
 
 --Create directories
 for _,v in next,{'conf','record','replay','cache','lib'}do
-	local info=fs.getInfo(v)
-	if not info then
-		fs.createDirectory(v)
-	elseif info.type~='directory'then
-		fs.remove(v)
-		fs.createDirectory(v)
-	end
+    local info=fs.getInfo(v)
+    if not info then
+        fs.createDirectory(v)
+    elseif info.type~='directory'then
+        fs.remove(v)
+        fs.createDirectory(v)
+    end
 end
 
+CHAR=require'parts.char'
+require'parts.gameTables'
+require'parts.gameFuncs'
+
 --Load shader files from SOURCE ONLY
 SHADER={}
 for _,v in next,fs.getDirectoryItems('parts/shaders')do
-	if fs.getRealDirectory('parts/shaders/'..v)~=SAVEDIR then
-		local name=v:sub(1,-6)
-		SHADER[name]=love.graphics.newShader('parts/shaders/'..name..'.glsl')
-	end
+    if isSafeFile('parts/shaders/'..v)then
+        local name=v:sub(1,-6)
+        SHADER[name]=love.graphics.newShader('parts/shaders/'..name..'.glsl')
+    end
 end
 
-require'parts.list'
-require'parts.globalTables'
-require'parts.gametoolfunc'
+THEME=      require'parts.theme'
+LINE=       require'parts.line'
+DATA=       require'parts.data'
 
-FREEROW=	require'parts.freeRow'
-DATA=		require'parts.data'
+TEXTURE=    require'parts.texture'
+SKIN=       require'parts.skin'
+USERS=      require'parts.users'
+NET=        require'parts.net'
+VK=         require'parts.virtualKey'
+BOT=        require'parts.bot'
+RSlist=     require'parts.RSlist'DSCP=RSlist.TRS.centerPos
+PLY=        require'parts.player'
+NETPLY=     require'parts.netPlayer'
+MODETREE=   require'parts.modeTree'
 
-TEXTURE=	require'parts.texture'
-SKIN=		require'parts.skin'
-USERS=		require'parts.users'
-NET=		require'parts.net'
-VK=			require'parts.virtualKey'
-AIFUNC=		require'parts.ai'
-AIBUILDER=	require'parts.AITemplate'
-PLY=		require'parts.player'
-netPLY=		require'parts.netPlayer'
-MODES=		require'parts.modes'
+setmetatable(TEXTURE,{__index=function(self,k)
+    MES.new('warn',"No texture called: "..k)
+    self[k]=PAPER
+    return self[k]
+end})
 
---Initialize field[1]
-FIELD[1]=DATA.newBoard()
+table.insert(_LOADTIMELIST_,("Load Parts: %.3fs"):format(TIME()-_LOADTIME_))
 
---First start for phones
-if not fs.getInfo('conf/settings')and MOBILE then
-	SETTING.VKSwitch=true
-	SETTING.swap=false
-	SETTING.powerInfo=true
-	SETTING.cleanCanvas=true
+--Init Zframework
+do--Z.setCursor
+    local normImg=GC.DO{16,16,
+        {'fCirc',8,8,4},
+        {'setCL',1,1,1,.7},
+        {'fCirc',8,8,6},
+    }
+    local holdImg=GC.DO{16,16,
+        {'setLW',2},
+        {'dCirc',8,8,7},
+        {'fCirc',8,8,3},
+    }
+    local min,int,abs=math.min,math.floor,math.abs
+    local gc_setColor,gc_draw=love.graphics.setColor,love.graphics.draw
+    local ms=love.mouse
+    Z.setCursor(function(time,x,y)
+        if not SETTING.sysCursor then
+            local R=int((time+1)/2)%7+1
+            _=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,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
+    end)
 end
-if SETTING.fullscreen then love.window.setFullscreen(true)end
+Z.setOnFnKeys({
+    function()MES.new('check',PROFILE.switch()and"profile start!"or"profile report copied!")end,
+    function()MES.new('info',("System:%s[%s]\nluaVer:%s\njitVer:%s\njitVerNum:%s"):format(SYSTEM,jit.arch,_VERSION,jit.version,jit.version_num))end,
+    function()MES.new('error',"挂了")end,
+    function()
+        if GAME.playing and not GAME.net then
+            for _=1,8 do
+                if #PLY_ALIVE>1 then
+                    local P=PLY_ALIVE[math.random(2,#PLY_ALIVE)]
+                    P.lastRecv=PLAYERS[1]
+                    P:lose()
+                end
+            end
+        end
+    end,
+    function()print(WIDGET.getSelected()or"no widget selected")end,
+    function()for k,v in next,_G do print(k,v)end end,
+    function()if love['_openConsole']then love['_openConsole']()end end,
+})
+Z.setOnResize(function(w,_)
+    SHADER.warning:send('w',w*SCR.dpi)
+end)
+do--Z.setOnFocus
+    local function task_autoSoundOff()
+        while true do
+            coroutine.yield()
+            local v=love.audio.getVolume()
+            love.audio.setVolume(math.max(v-.05,0))
+            if v==0 then return end
+        end
+    end
+    local function task_autoSoundOn()
+        while true do
+            coroutine.yield()
+            local v=love.audio.getVolume()
+            if v<SETTING.mainVol then
+                love.audio.setVolume(math.min(v+.05,SETTING.mainVol,1))
+            else
+                return
+            end
+        end
+    end
+    Z.setOnFocus(function(f)
+        if f then
+            love.timer.step()
+            if SETTING.autoMute then
+                TASK.removeTask_code(task_autoSoundOff)
+                TASK.new(task_autoSoundOn)
+            end
+        else
+            if SCN.cur=='game'and SETTING.autoPause then
+                pauseGame()
+            end
+            if SETTING.autoMute then
+                TASK.removeTask_code(task_autoSoundOn)
+                TASK.new(task_autoSoundOff)
+            end
+        end
+    end)
+end
+Z.setOnQuit(destroyPlayers)
+
+--Load settings and statistics
+TABLE.cover (loadFile('conf/user','-canSkip')or{},USER)
+TABLE.cover (loadFile('conf/unlock','-canSkip')or{},RANKS)
+TABLE.update(loadFile('conf/settings','-canSkip')or{},SETTING)
+TABLE.coverR(loadFile('conf/data','-canSkip')or{},STAT)
+TABLE.cover (loadFile('conf/key','-canSkip')or{},KEY_MAP)
+TABLE.cover (loadFile('conf/virtualkey','-json -canSkip')or{},VK_ORG)
+
+--Initialize fields, sequence, missions, gameEnv for cutsom game
+local fieldData=loadFile('conf/customBoards','-string -canSkip')
+if fieldData then
+    fieldData=STRING.split(fieldData,"!")
+    for i=1,#fieldData do
+        DATA.pasteBoard(fieldData[i],i)
+    end
+else
+    FIELD[1]=DATA.newBoard()
+end
+local sequenceData=loadFile('conf/customSequence','-string -canSkip')
+if sequenceData then
+    DATA.pasteSequence(sequenceData)
+end
+local missionData=loadFile('conf/customMissions','-string -canSkip')
+if missionData then
+    DATA.pasteMission(missionData)
+end
+local customData=loadFile('conf/customEnv','-canSkip')
+if customData and customData['version']==VERSION.code then
+    TABLE.complete(customData,CUSTOMENV)
+end
+TABLE.complete(require"parts.customEnv0",CUSTOMENV)
+
 
 --Initialize image libs
 IMG.init{
-	lock='mess/lock.png',
-	dialCircle='mess/dialCircle.png',
-	dialNeedle='mess/dialNeedle.png',
-	lifeIcon='mess/life.png',
-	badgeIcon='mess/badge.png',
-	ctrlSpeedLimit='mess/ctrlSpeedLimit.png',
-	speedLimit='mess/speedLimit.png',--Not used, for future C2-mode
-	pay1='mess/pay1.png',
-	pay2='mess/pay2.png',
+    lock='media/image/mess/lock.png',
+    dialCircle='media/image/mess/dialCircle.png',
+    dialNeedle='media/image/mess/dialNeedle.png',
+    lifeIcon='media/image/mess/life.png',
+    badgeIcon='media/image/mess/badge.png',
+    ctrlSpeedLimit='media/image/mess/ctrlSpeedLimit.png',
+    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',
 
-	nakiCH='characters/nakiharu.png',
-	miyaCH='characters/miya.png',
-	miyaF1='characters/miya_f1.png',
-	miyaF2='characters/miya_f2.png',
-	miyaF3='characters/miya_f3.png',
-	miyaF4='characters/miya_f4.png',
-	electric='characters/electric.png',
-	hbm='characters/hbm.png',
+    miyaCH1='media/image/characters/miya1.png',
+    miyaCH2='media/image/characters/miya2.png',
+    miyaCH3='media/image/characters/miya3.png',
+    miyaCH4='media/image/characters/miya4.png',
+    miyaHeart='media/image/characters/miya_heart.png',
+    miyaGlow='media/image/characters/miya_glow.png',
+    monoCH='media/image/characters/mono.png',
+    xiaoyaCH='media/image/characters/xiaoya.png',
+    xiaoyaOmino='media/image/characters/xiaoya_Omino.png',
+    mikuCH='media/image/characters/miku.png',
+    electric='media/image/characters/electric.png',
+    hbm='media/image/characters/hbm.png',
 
-	lanterns={
-		'lanterns/1.png',
-		'lanterns/2.png',
-		'lanterns/3.png',
-		'lanterns/4.png',
-		'lanterns/5.png',
-		'lanterns/6.png',
-	},
+    lanterns={
+        'media/image/lanterns/1.png',
+        'media/image/lanterns/2.png',
+        'media/image/lanterns/3.png',
+        'media/image/lanterns/4.png',
+        'media/image/lanterns/5.png',
+        'media/image/lanterns/6.png',
+    },
 }
-SKIN.init{
-	'crystal_scf',
-	'matte_mrz',
-	'contrast_mrz',
-	'polkadots_scf',
-	'toy_scf',
-	'smooth_mrz',
-	'simple_scf',
-	'glass_scf',
-	'penta_scf',
-	'bubble_scf',
-	'minoes_scf',
-	'pure_mrz',
-	'bright_scf',
-	'glow_mrz',
-	'plastic_mrz',
-	'paper_mrz',
-	'yinyang_scf',
-	'cartooncup_earety',
-	'jelly_miya',
-	'brick_notypey',
-	'gem_notypey',
-	'classic',
-	'ball_shaw',
-	'retro_notypey',
-	'textbone_mrz',
-	'coloredbone_mrz',
-	'wtf',
+SKIN.load{
+    {name="crystal_scf",path='media/image/skin/crystal_scf.png'},
+    {name="matte_mrz",path='media/image/skin/matte_mrz.png'},
+    {name="shiny_chno",path='media/image/skin/shiny_chno.png'},
+    {name="contrast_mrz",path='media/image/skin/contrast_mrz.png'},
+    {name="polkadots_scf",path='media/image/skin/polkadots_scf.png'},
+    {name="toy_scf",path='media/image/skin/toy_scf.png'},
+    {name="smooth_mrz",path='media/image/skin/smooth_mrz.png'},
+    {name="simple_scf",path='media/image/skin/simple_scf.png'},
+    {name="glass_scf",path='media/image/skin/glass_scf.png'},
+    {name="penta_scf",path='media/image/skin/penta_scf.png'},
+    {name="bubble_scf",path='media/image/skin/bubble_scf.png'},
+    {name="minoes_scf",path='media/image/skin/minoes_scf.png'},
+    {name="pure_mrz",path='media/image/skin/pure_mrz.png'},
+    {name="bright_scf",path='media/image/skin/bright_scf.png'},
+    {name="glow_mrz",path='media/image/skin/glow_mrz.png'},
+    {name="plastic_mrz",path='media/image/skin/plastic_mrz.png'},
+    {name="paper_mrz",path='media/image/skin/paper_mrz.png'},
+    {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="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'},
+    {name="ball_shaw",path='media/image/skin/ball_shaw.png'},
+    {name="retro_notypey",path='media/image/skin/retro_notypey.png'},
+    {name="pixel_chno",path='media/image/skin/pixel_chno.png'},
+    {name="textbone_mrz",path='media/image/skin/textbone_mrz.png'},
+    {name="coloredbone_mrz",path='media/image/skin/coloredbone_mrz.png'},
+    {name="wtf",path='media/image/skin/wtf_mrz.png'},
 }
 
 --Initialize sound libs
-SFX.init((function()
-	local L={}
-	for _,v in next,fs.getDirectoryItems('media/SFX')do
-		if fs.getRealDirectory('media/SFX/'..v)~=SAVEDIR then
-			table.insert(L,v:sub(1,-5))
-		else
-			MES.new('warn',"Dangerous file : %SAVE%/media/SFX/"..v)
-		end
-	end
-	return L
+SFX.init((function()--[Warning] Not loading files here, just get the list of sound needed
+    local L={}
+    for _,v in next,fs.getDirectoryItems('media/effect/chiptune/')do
+        if isSafeFile('media/effect/chiptune/'..v,"Dangerous file : %SAVE%/media/effect/chiptune/"..v)then
+            table.insert(L,v:sub(1,-5))
+        end
+    end
+    return L
 end)())
-BGM.init((function()
-	local L={}
-	for _,v in next,fs.getDirectoryItems('media/BGM')do
-		if fs.getRealDirectory('media/BGM/'..v)~=SAVEDIR then
-			table.insert(L,v:sub(1,-5))
-		else
-			MES.new('warn',"Dangerous file : %SAVE%/media/BGM/"..v)
-		end
-	end
-	return L
+BGM.load((function()
+    local L={}
+    for _,v in next,fs.getDirectoryItems('media/music')do
+        if isSafeFile('media/music/'..v,"Dangerous file : %SAVE%/media/music/"..v)then
+            L[v:sub(1,-5)]='media/music/'..v
+        end
+    end
+    return L
 end)())
 VOC.init{
-	'zspin','sspin','lspin','jspin','tspin','ospin','ispin',
-	'single','double','triple','techrash',
-	'mini','b2b','b3b',
-	'perfect_clear','half_clear',
-	'win','lose','bye',
-	'test','happy','doubt','sad','egg',
-	'welcome_voc',
+    'zspin','sspin','jspin','lspin','tspin','ospin','ispin','pspin','qspin','fspin','espin','uspin','vspin','wspin','xspin','rspin','yspin','nspin','hspin','cspin',
+    'single','double','triple','techrash','pentacrash','hexacrash',
+    'mini','b2b','b3b',
+    'perfect_clear','half_clear',
+    'win','lose','bye',
+    'test','happy','doubt',
+    'welcome',
 }
 
 --Initialize language lib
-LANG.init(
-	{
-		require'parts.language.lang_zh',
-		require'parts.language.lang_zh2',
-		require'parts.language.lang_yygq',
-		require'parts.language.lang_en',
-		require'parts.language.lang_fr',
-		require'parts.language.lang_es',
-		require'parts.language.lang_pt',
-		require'parts.language.lang_symbol',
-		--1. Add language file to LANG folder;
-		--2. Require it;
-		--3. Add a button in parts/scenes/setting_lang.lua;
-	},
-	{
-		block={
-			"Z","S","J","L","T","O","I",
-			"Z5","S5","Q","P","F","E",
-			"T5","U","V","W","X",
-			"J5","L5","R","Y","N","H","I5",
-			"I3","C","I2","O1"
-		},
-	}
+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',
+        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;
+        --3. Add a button in parts/scenes/lang.lua;
+    },
+    {
+        block=BLOCK_NAMES
+    },
+    (function()
+        local tipMeta={__call=function(L)return L[math.random(#L)]end}
+        return function(L)
+            if type(rawget(L,'getTip'))=='table'then setmetatable(L.getTip,tipMeta)end
+            setmetatable(L,{__index=function(self,k)
+                local mes="No Text ("..SETTING.locale.."): "..k
+                LOG(mes)
+                MES.new('warn',mes)
+                self[k]=CHAR.zChan.thinking
+                return self[k]
+            end})
+        end
+    end)()
 )
+
+table.insert(_LOADTIMELIST_,("Initialize Parts: %.3fs"):format(TIME()-_LOADTIME_))
+
 --Load background files from SOURCE ONLY
 for _,v in next,fs.getDirectoryItems('parts/backgrounds')do
-	if fs.getRealDirectory('parts/backgrounds/'..v)~=SAVEDIR then
-		if v:sub(-3)=='lua'then
-			local name=v:sub(1,-5)
-			BG.add(name,require('parts.backgrounds.'..name))
-		end
-	end
+    if isSafeFile('parts/backgrounds/'..v)and v:sub(-3)=='lua'then
+        local name=v:sub(1,-5)
+        BG.add(name,require('parts.backgrounds.'..name))
+    end
 end
+BG.remList('none')BG.remList('gray')BG.remList('custom')
 --Load scene files from SOURCE ONLY
 for _,v in next,fs.getDirectoryItems('parts/scenes')do
-	if fs.getRealDirectory('parts/scenes/'..v)~=SAVEDIR then
-		local sceneName=v:sub(1,-5)
-		SCN.add(sceneName,require('parts.scenes.'..sceneName))
-		LANG.addScene(sceneName)
-	end
-end
---Load mode files
-for i=1,#MODES do
-	local m=MODES[i]--Mode template
-	local M=require('parts.modes.'..m.name)--Mode file
-	for k,v in next,m do M[k]=v end
-	MODES[m.name],MODES[i]=M
+    if isSafeFile('parts/scenes/'..v)then
+        local sceneName=v:sub(1,-5)
+        SCN.add(sceneName,require('parts.scenes.'..sceneName))
+        LANG.addScene(sceneName)
+    end
 end
 
+table.insert(_LOADTIMELIST_,("Load Files: %.3fs"):format(TIME()-_LOADTIME_))
+
 --Update data
 do
-	local needSave
+    local needSave
 
-	if type(STAT.version)~='number'then
-		STAT.version=0
-		needSave=true
-	end
-	if STAT.version<1302 then
-		FILE.clear_s('')
-	end
-	if STAT.version<1405 then
-		fs.remove('conf/user')
-		fs.remove('conf/key')
-	end
-	if STAT.version<1505 then
-		fs.remove('record/bigbang.rec')
-		fs.remove('conf/replay')
-	end
-	if STAT.version~=VERSION.code then
-		STAT.version=VERSION.code
-		needSave=true
-		love.event.quit('restart')
-	end
-	if SETTING.ghostType=='greyCell'then
-		SETTING.ghostType='grayCell'
-		needSave=true
-	end
-	if not SETTING.VKSkin then SETTING.VKSkin=1 end
-	if not TABLE.find({8,10,13,17,22,29,37,47,62,80,100},SETTING.frameMul)then
-		SETTING.frameMul=100
-	end
-	SETTING.appLock=nil
-	SETTING.dataSaving=nil
-	for _,v in next,VK_org do v.color=nil end
-	if RANKS.infinite then RANKS.infinite=0 end
-	if RANKS.infinite_dig then RANKS.infinite_dig=0 end
-	for k in next,RANKS do
-		if type(k)=='number'then
-			RANKS[k]=nil
-			needSave=true
-		end
-	end
-	for k,v in next,oldModeNameTable do
-		if RANKS[k]then
-			RANKS[v]=RANKS[k]
-			RANKS[k]=nil
-		end
-		k='record/'..k
-		if fs.getInfo(k..'.dat')then
-			fs.write('record/'..v..'.rec',fs.read(k..'.dat'))
-			fs.remove(k..'.dat')
-		end
-		if fs.getInfo(k..'.rec')then
-			fs.write('record/'..v..'.rec',fs.read(k..'.rec'))
-			fs.remove(k..'.rec')
-		end
-	end
-	if not RANKS.sprint_10l then
-		RANKS.sprint_10l=0
-		needSave=true
-	end
+    if not fs.getInfo('conf/data')then
+        needSave=true
+    end
+    if type(STAT.version)~='number'then
+        STAT.version=0
+        needSave=true
+    end
+    if STAT.version<1500 then
+        FILE.clear_s('')
+    end
+    if STAT.version<1505 then
+        fs.remove('record/bigbang.rec')
+        fs.remove('conf/replay')
+    end
+    if STAT.version==1506 then
+        local temp1,temp2
+        if fs.getInfo('record/master_l.rec')then
+            temp1=fs.read('record/master_l.rec')
+        end
+        if fs.getInfo('record/master_u.rec')then
+            temp2=fs.read('record/master_u.rec')
+        end
+        if temp1 then
+            fs.write('record/master_u.rec',temp1)
+        end
+        if temp2 then
+            fs.write('record/master_l.rec',temp2)
+        end
+        RANKS.master_l,RANKS.master_u=RANKS.master_u,RANKS.master_l
+        if RANKS.tsd_u then
+            RANKS.tsd_u=0
+        end
+    end
+    if STAT.version==1601 then
+        RANKS.round_e=nil
+        RANKS.round_n=nil
+        RANKS.round_h=nil
+        RANKS.round_l=nil
+        RANKS.round_u=nil
+        fs.remove('record/round_e.rec')
+        fs.remove('record/round_n.rec')
+        fs.remove('record/round_h.rec')
+        fs.remove('record/round_l.rec')
+        fs.remove('record/round_u.rec')
+    end
+    if STAT.version<1700 and SETTING.dascut<5 then
+        SETTING.dascut=SETTING.dascut+1
+        needSave=true
+    end
+    if SETTING.vocPack=='mono'then
+        SETTING.vocPack='miya'
+    end
+    if RANKS.stack_e then
+        RANKS.stack_e=nil
+        RANKS.stack_h=nil
+        RANKS.stack_u=nil
+        fs.remove('record/stack_e.rec')
+        fs.remove('record/stack_h.rec')
+        fs.remove('record/stack_u.rec')
+    end
+    if RANKS.stack_20l then
+        RANKS.stack_20l=nil
+        RANKS.stack_40l=nil
+        RANKS.stack_100l=nil
+        fs.remove('record/stack_20l.rec')
+        fs.remove('record/stack_40l.rec')
+        fs.remove('record/stack_100l.rec')
+    end
+    if RANKS.rhythm_e then
+        RANKS.rhythm_e=nil
+        RANKS.rhythm_h=nil
+        RANKS.rhythm_u=nil
+        fs.remove('record/rhythm_e.rec')
+        fs.remove('record/rhythm_h.rec')
+        fs.remove('record/rhythm_u.rec')
+    end
+    if RANKS.bigbang then
+        RANKS.clearRush,RANKS.bigbang=RANKS.bigbang
+        fs.remove('record/bigbang.rec')
+    end
+    if STAT.version~=VERSION.code then
+        for k,v in next,MODE_UPDATE_MAP do
+            if RANKS[k]then
+                RANKS[v]=RANKS[k]
+                RANKS[k]=nil
+            end
+            k='record/'..k
+            if fs.getInfo(k..'.dat')then
+                fs.write('record/'..v..'.rec',fs.read(k..'.dat'))
+                fs.remove(k..'.dat')
+            end
+            if fs.getInfo(k..'.rec')then
+                fs.write('record/'..v..'.rec',fs.read(k..'.rec'))
+                fs.remove(k..'.rec')
+            end
+        end
+        STAT.version=VERSION.code
+        needSave=true
+    end
+    SETTING.appLock,SETTING.dataSaving,SETTING.swap=nil
+    if not SETTING.VKSkin then SETTING.VKSkin=1 end
+    for _,v in next,SETTING.skin do if v<1 or v>17 then v=17 end end
+    if not RSlist[SETTING.RS]then SETTING.RS='TRS'end
+    if SETTING.ghostType=='greyCell'then SETTING.ghostType='grayCell'end
+    if type(SETTING.skinSet)=='number'then SETTING.skinSet='crystal_scf'end
+    if not TABLE.find({8,10,13,17,22,29,37,47,62,80,100},SETTING.frameMul)then SETTING.frameMul=100 end
+    if SETTING.cv then SETTING.vocPack,SETTING.cv=SETTING.cv end
+    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 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
+    if RANKS.master_l then RANKS.master_n,RANKS.master_l=RANKS.master_l needSave=true end
+    if RANKS.master_u then RANKS.master_h,RANKS.master_u=RANKS.master_u needSave=true end
+    for _,v in next,VK_ORG do v.color=nil end
+    for name,rank in next,RANKS do
+        if type(name)=='number'or type(rank)~='number'then
+            RANKS[name]=nil
+            needSave=true
+        end
+    end
 
-	if needSave then
-		FILE.save(SETTING,'conf/settings')
-		FILE.save(RANKS,'conf/unlock')
-		FILE.save(STAT,'conf/data')
-	end
+    if needSave then
+        saveStats()
+        saveProgress()
+        saveSettings()
+        love.event.quit('restart')
+    end
+end
+
+--First start
+FIRSTLAUNCH=STAT.run==0
+if FIRSTLAUNCH and MOBILE then
+    SETTING.VKSwitch=true
+    SETTING.powerInfo=true
+    SETTING.cleanCanvas=true
 end
 
 --Apply system setting
-LANG.set(SETTING.lang)
-VK.setShape(SETTING.VKSkin)
-applyBlockSatur(SETTING.blockSatur)
-applyFieldSatur(SETTING.fieldSatur)
+applySettings()
 
 --Load replays
 for _,fileName in next,fs.getDirectoryItems('replay')do
-	if fileName:sub(12,12):match("[a-zA-Z]")then
-		local date,mode,version,player,seed,setting,mod
-		local fileData=fs.read('replay/'..fileName)
-		date,	fileData=STRING.readLine(fileData)date=date:gsub("[a-zA-Z]","")
-		mode,	fileData=STRING.readLine(fileData)mode=oldModeNameTable[mode]or mode
-		version,fileData=STRING.readLine(fileData)
-		player,	fileData=STRING.readLine(fileData)if player=="Local Player"then player="Stacker"end
-		local success
-		success,fileData=pcall(love.data.decompress,'string','zlib',fileData)
-		if not success then goto BREAK_cannotParse end
-		seed,	fileData=STRING.readLine(fileData)
-		setting,fileData=STRING.readLine(fileData)setting=JSON.decode(setting)
-		mod,	fileData=STRING.readLine(fileData)mod=JSON.decode(mod)
-		if
-			not setting or
-			not mod or
-			not mode or
-			#mode==0
-		then goto BREAK_cannotParse end
+    if fileName:sub(12,12):match("[a-zA-Z]")then
+        local date,mode,version,player,seed,setting,mod
+        local fileData=fs.read('replay/'..fileName)
+        date,   fileData=STRING.readLine(fileData)date=date:gsub("[a-zA-Z]","")
+        mode,   fileData=STRING.readLine(fileData)mode=MODE_UPDATE_MAP[mode]or mode
+        version,fileData=STRING.readLine(fileData)
+        player, fileData=STRING.readLine(fileData)if player=="Local Player"then player="Stacker"end
+        local success
+        success,fileData=pcall(love.data.decompress,'string','zlib',fileData)
+        if not success then goto BREAK_cannotParse end
+        seed,   fileData=STRING.readLine(fileData)
+        setting,fileData=STRING.readLine(fileData)setting=JSON.decode(setting)
+        mod,    fileData=STRING.readLine(fileData)mod=JSON.decode(mod)
+        if
+            not setting or
+            not mod or
+            not mode or
+            #mode==0
+        then goto BREAK_cannotParse end
 
-		fs.remove('replay/'..fileName)
-		local newName=fileName:sub(1,10)..fileName:sub(15)
-		fs.write('replay/'..newName,
-			love.data.compress('string','zlib',
-				JSON.encode{
-					date=date,
-					mode=mode,
-					version=version,
-					player=player,
-					seed=seed,
-					setting=setting,
-					mod=mod,
-				}.."\n"..
-				fileData
-			)
-		)
-		fileName=newName
-	end
-	::BREAK_cannotParse::
-	local rep=DATA.parseReplay('replay/'..fileName)
-	table.insert(REPLAY,rep)
+        fs.remove('replay/'..fileName)
+        local newName=fileName:sub(1,10)..fileName:sub(15)
+        fs.write('replay/'..newName,
+            love.data.compress('string','zlib',
+                JSON.encode{
+                    date=date,
+                    mode=mode,
+                    version=version,
+                    player=player,
+                    seed=seed,
+                    setting=setting,
+                    mod=mod,
+                }.."\n"..
+                fileData
+            )
+        )
+        fileName=newName
+    end
+    ::BREAK_cannotParse::
+    local rep=DATA.parseReplay('replay/'..fileName)
+    table.insert(REPLAY,rep)
+end
+table.sort(REPLAY,function(a,b)return a.fileName>b.fileName end)
+
+table.insert(_LOADTIMELIST_,("Initialize Data: %.3fs"):format(TIME()-_LOADTIME_))
+
+for i=1,#_LOADTIMELIST_ do LOG(_LOADTIMELIST_[i])end
+
+--Launch testing task if launch param received
+if TABLE.find(arg,'--test')then
+    TASK.new(function()
+        while not LOADED do YIELD()end
+
+        LOG("\27[92m\27[1mAutomatic Test Started\27[0m")
+        BGM.setVol(0)SFX.setVol(0)
+        love.keypressed('space')
+        TEST.yieldUntilNextScene()
+
+        for k,mode in next,MODES do
+            if k~='netBattle'then
+                LOG("Scanning mode: "..mode.name)
+                loadGame(mode.name,true)
+                TEST.yieldUntilNextScene()
+                SCN.back()
+                TEST.yieldUntilNextScene()
+            end
+        end
+        LOG("\27[92m\27[1mAutomatic Test Passed :)\27[0m")
+        TEST.yieldN(60)
+        love.event.quit(0)
+    end)
+    TASK.new(function()
+        while true do
+            YIELD()
+            if Z.getErr(1)then break end
+        end
+        LOG("\27[91m\27[1mAutomatic Test Failed :(\27[0m\nThe error message is:\n"..table.concat(Z.getErr(1).mes,"\n").."\27[91m\nAborting\27[0m")
+        TEST.yieldN(60)
+        love.event.quit(1)
+    end)
 end
-table.sort(REPLAY,function(a,b)return a.fileName>b.fileName end)