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,38 +0,0 @@
-name: Techmino CI
-
-on:
-  push:
-    branches: [ ci ]
-  pull_request:
-    branches: [ ci ]
-
-jobs:
-  build-windows:
-    runs-on: windows-latest
-    steps:
-    - uses: actions/checkout@v2
-      with:
-        lfs: true
-    - name: Download love
-      run: |
-        curl -LO 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 -LO https://github.com/26F-Studio/Techmino/releases/download/coldclear/coldclear.zip
-        7z x coldclear.zip -ocoldclear
-        move coldclear\win64\cold_clear.dll love-11.3-win64
-        move coldclear\win64\CCloader.dll love-11.3-win64
-    - name: Pack Techmino
-      shell: cmd
-      run: |
-        7z a game.zip BGM document image modes parts SFX VOICE Zframework conf.lua font.ttf main.lua
-        move game.zip game.love
-        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: Techmino_win64
-        path: love-11.3-win64

.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

.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.

Zframework/aDraw.lua

@@ -1,10 +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
-return aDraw

Zframework/background.lua

@@ -1,53 +1,56 @@
+local gc_clear=love.graphics.clear
 local BGs={
-	none={
-		draw=function()
-			love.graphics.clear(.15,.15,.15)
-		end
-	}
+    none={draw=function()gc_clear(.08,.08,.084)end}
 }
-local BGlist={"none"}
+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
-				LOG.print("No BGM file: "..list[i],5,COLOR.O)
-			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,51 +0,0 @@
-local gc=love.graphics
-local cmds={
-	reset="origin",
-	trans="translate",
-	scale="scale",
-	rotat="rotate",
-	clear="clear",
-
-	setCL="setColor",
-	setCM="setColorMask",
-	setLW="setLineWidth",
-	setLS="setLineStyle",
-	setLJ="setLineJoin",
-
-	draw="draw",
-	dLine="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,
-	fPoly=function(...)gc.polygon("fill",...)end,
-	dPoly=function(...)gc.polygon("line",...)end,
-
-	drArc=function(...)gc.arc("line",...)end,
-	flArc=function(...)gc.arc("fill",...)end,
-	dpArc=function(...)gc.arc("line","pie",...)end,
-	doArc=function(...)gc.arc("line","open",...)end,
-	dcArc=function(...)gc.arc("line","closed",...)end,
-	fpArc=function(...)gc.arc("fill","pie",...)end,
-	foArc=function(...)gc.arc("fill","open",...)end,
-	fcArc=function(...)gc.arc("fill","closed",...)end,
-}
-return function(L)
-	gc.push()
-		local canvas=gc.newCanvas(L[1],L[2])
-		gc.setCanvas(canvas)
-			gc.origin()
-			gc.setColor(1,1,1)
-			gc.setLineWidth(1)
-			for i=3,#L do
-				local cmd=cmds[L[i][1]]
-				if type(cmd)=="string"then
-					gc[cmd](unpack(L[i],2))
-				else
-					cmd(unpack(L[i],2))
-				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,60 +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
-		LOG.print(name.." "..text.loadError,COLOR.R)
-	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
-				LOG.print(name.." "..text.saveError.."dump error","error")
-				return
-			end
-		else
-			data=JSON.encode(data)
-			if not data then
-				LOG.print(name.." "..text.saveError.."json error","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 success then
-		if not mode:find("q")then
-			LOG.print(text.saveDone,COLOR.G)
-		end
-	else
-		LOG.print(text.saveError..(mes or"unknown error"),"error")
-		LOG.print(debug.traceback(),"error")
-	end
+    if type(data)=='table'then
+        if STRING.sArg(args,'-luaon')then
+            data=TABLE.dump(data)
+            if not data then
+                error('encode error')
+            end
+        else
+            data=JSON.encode(data)
+            if not data then
+                error('encode error')
+            end
+        end
+    else
+        data=tostring(data)
+    end
+
+    local F=fs.newFile(name)
+    assert(F:open('w'),'open error')
+    F:write(data)F:flush()F:close()
 end
-return FILE
+function FILE.clear(path)
+    if fs.getRealDirectory(path)==SAVEDIR and fs.getInfo(path).type=='directory'then
+        for _,name in next,fs.getDirectoryItems(path)do
+            name=path..'/'..name
+            if fs.getRealDirectory(name)==SAVEDIR then
+                local t=fs.getInfo(name).type
+                if t=='file'then
+                    fs.remove(name)
+                end
+            end
+        end
+    end
+end
+function FILE.clear_s(path)
+    if path==''or(fs.getRealDirectory(path)==SAVEDIR and fs.getInfo(path).type=='directory')then
+        for _,name in next,fs.getDirectoryItems(path)do
+            name=path..'/'..name
+            if fs.getRealDirectory(name)==SAVEDIR then
+                local t=fs.getInfo(name).type
+                if t=='file'then
+                    fs.remove(name)
+                elseif t=='directory'then
+                    FILE.clear_s(name)
+                    fs.remove(name)
+                end
+            end
+        end
+        fs.remove(path)
+    end
+end
+return FILE

Zframework/font.lua

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

Zframework/gcExtend.lua

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

Zframework/image.lua

@@ -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 LOG then
-		LOG.print(text.jsonError..": "..(b or"uknErr"),"warn")
-	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 LOG then
-		LOG.print(text.jsonError..": "..(b or"uknErr"),"warn")
-	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,59 +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
+    function LANG.get(l)
+        if not langList[l]then
+            LOG("Wrong language: "..tostring(l))
+            l=defaultLang
+        end
+        return langList[l]
+    end
 
-		--set global name for all back button
-		for _,v in next,L.WidgetText do
-			v.back=L.back
-		end
-	end
+    function LANG.addScene(name)
+        for _,L in next,langList do
+            if L.WidgetText and not L.WidgetText[name]then
+                L.WidgetText[name]={}
+            end
+        end
+    end
 
-	LANG.init,LANG.setLangList,LANG.setPublicText=nil
-
-	function LANG.set(l)
-		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
-
-	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

@@ -1,89 +1,86 @@
---LIGHT MODULE (Optimized by MrZ, Original on github/love2d community/simple-love-lights)
+--LIGHT MODULE (Optimized by MrZ, Original on github/LÖVE community/simple-love-lights)
 --Heavily based on mattdesl's libGDX implementation:
 --https://github.com/mattdesl/lwjgl-basics/wiki/2D-Pixel-Perfect-Shadows
 local gc=love.graphics
-local clear,translate=gc.clear,gc.translate
-local setCanvas,setShader=gc.setCanvas,gc.setShader
-local render=gc.draw
+local clear,gc_translate=gc.clear,gc.translate
+local gc_setCanvas,gc_setShader=gc.setCanvas,gc.setShader
+local gc_setColor,gc_draw=gc.setColor,gc.draw
 
-local shadowMapShader=gc.newShader("Zframework/light/shadowMap.glsl")--Shader for caculating the 1D shadow map.
-local lightRenderShader=gc.newShader("Zframework/light/lightRender.glsl")--Shader for rendering blurred lights and shadows.
+local shadowMapShader=gc.newShader('Zframework/light/shadowMap.glsl')--Shader for caculating the 1D shadow map.
+local lightRenderShader=gc.newShader('Zframework/light/lightRender.glsl')--Shader for rendering blurred lights and shadows.
 local Lights={}--Lightsource objects
 local function move(L,x,y)
-	L.x,L.y=x,y
+    L.x,L.y=x,y
 end
 local function setPow(L,pow)
-	L.size=pow
+    L.size=pow
 end
-local function destroy(L)
-	L.blackCanvas:release()
-	L.shadowCanvas:release()
-	L.renderCanvas:release()
-end
-local function draw(L)
-	--Initialization
-	local r,g,b,a=gc.getColor()
-	setCanvas(L.blackCanvas)clear()
-	setCanvas(L.shadowCanvas)clear()
-	setCanvas(L.renderCanvas)clear()
-	lightRenderShader:send("xresolution",L.size)
-	shadowMapShader:send("yresolution",L.size)
+local function drawLight(L)
+    local s=L.size
 
-	--Get up-left of light
-	local X=L.x-L.size*.5
-	local Y=L.y-L.size*.5
+    --Initialization
+    gc_setCanvas(L.blackCanvas)clear()
+    gc_setCanvas(L.shadowCanvas)clear()
+    gc_setCanvas(L.renderCanvas)clear()
+    lightRenderShader:send('xresolution',s)
+    shadowMapShader:send('yresolution',s)
 
-	--Render solid
-	translate(-X,-Y)
-	L.blackCanvas:renderTo(L.blackFn)
-	translate(X,Y)
+    --Get up-left of light
+    local X=L.x-s*.5
+    local Y=L.y-s*.5
 
-	--Render shade canvas by solid
-	setShader(shadowMapShader)
-	setCanvas(L.shadowCanvas)
-	render(L.blackCanvas)
+    --Render solid
+    gc_translate(-X,-Y)
+    L.blackCanvas:renderTo(L.blackFn)
+    gc_translate(X,Y)
 
-	--Render light canvas by shade
-	setShader(lightRenderShader)
-	setCanvas(L.renderCanvas)
-	render(L.shadowCanvas,0,0,0,1,L.size)
+    --Render shade canvas by solid
+    gc_setShader(shadowMapShader)
+    gc_setCanvas(L.shadowCanvas)
+    gc_draw(L.blackCanvas)
 
-	--Ready to final render
-	setShader()setCanvas()gc.setBlendMode("add")
+    --Render light canvas by shade
+    gc_setShader(lightRenderShader)
+    gc_setCanvas(L.renderCanvas)
+    gc_draw(L.shadowCanvas,0,0,0,1,s)
 
-	--Render to screes
-	gc.setColor(r,g,b,a)
-	render(L.renderCanvas,X,Y+L.size,0,1,-1)
+    --Ready to final render
+    gc_setShader()gc_setCanvas()gc.setBlendMode('add')
 
-	--Reset
-	gc.setBlendMode("alpha")
+    --Render to screen
+    gc_draw(L.renderCanvas,X,Y+s,0,1,-1)
+
+    --Reset
+    gc.setBlendMode('alpha')
 end
 
 local LIGHT={}
 function LIGHT.draw()
-	for i=1,#Lights do
-		draw(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]:destroy()
-		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 funcion
+    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,
-		destroy=destroy,
-	}
+        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,47 +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
-			LOG.print("Cannot load "..name..": "..(r2 or r3),"warn",COLOR.R)
-		end
-	elseif SYSTEM=="Android"then
-		local fs=love.filesystem
-		local platform={"arm64-v8a","armeabi-v7a"}
-
-		local libFunc=package.loadlib(SAVEDIR.."/lib/"..libName.Android,libName.libFunc)
-		if libFunc then
-			LOG.print(name.." lib loaded","warn",COLOR.G)
-		else
-			for i=1,#platform do
-				local soFile=fs.read("data","libAndroid/"..platform[i].."/"..libName.Android)
-				if soFile then
-					local success,message=fs.write("lib/"..libName.Android,soFile)
-					if success then
-						libFunc,message=package.loadlib(SAVEDIR.."/lib/"..libName.Android,libName.libFunc)
-						if libFunc then
-							LOG.print(name.." lib loaded","warn",COLOR.G)
-							break
-						else
-							LOG.print("Cannot load "..name..": "..message,"warn",COLOR.R)
-						end
-					else
-						LOG.print("Write "..name.."-"..platform[i].." to saving failed: "..message,"warn",COLOR.R)
-					end
-				else
-					LOG.print("Read "..name.."-"..platform[i].." failed","warn",COLOR.R)
-				end
-			end
-			if not libFunc then
-				LOG.print("Cannot load "..name,"warn",COLOR.R)
-				return
-			end
-		end
-		return libFunc()
-	else
-		LOG.print("No "..name.." for "..SYSTEM,"warn",COLOR.R)
-		return
-	end
-	return true
-end

Zframework/log.lua

@@ -1,70 +1,20 @@
-local gc=love.graphics
-local int,max,min=math.floor,math.max,math.min
-local ins,rem=table.insert,table.remove
+local ins=table.insert
 
-local debugMesList={}
-local debugMesHistory={
-	"Version: "..VERSION.string,
-	os.date("Launched at %Y/%m/%d %H:%M"),
-}
-local LOG={}
-function LOG.update()
-	if debugMesList[1]then
-		for i=#debugMesList,1,-1 do
-			local M=debugMesList[i]
-			if M.blink>0 then
-				M.blink=M.blink-1
-			else
-				M.time=M.time-1
-				if M.time==0 then
-					rem(debugMesList,i)
-				end
-			end
-		end
-	end
+local logs={os.date("Techmino logs  %Y/%m/%d %A")}
+
+local function log(message)
+    ins(logs,os.date("[%H:%M:%S] ")..message)
 end
-function LOG.draw()
-	if debugMesList[1]then
-		local k=SCR.w/SCR.w0
-		setFont(max(int(4*k)*5,5))
-		for i=1,#debugMesList do
-			local M=debugMesList[i]
-			local t=M.time
-			gc.setColor(M.r,M.g,M.b,M.blink>0 and int(M.blink/3)%2 or min(t/26,1))
-			gc.print(M.text,10+(20-min(t,20))^1.5/4,25*i*k)
-		end
-	end
+
+local LOG=setmetatable({logs=logs},{
+    __call=function(_,message)
+        print(message)
+        log(message)
+    end
+})
+
+function LOG.read()
+    return table.concat(logs,"\n")
 end
-function LOG.print(text,T,C)--text,type/time,color
-	local time
-	local his
-	if T=="warn"then
-		C=C or COLOR.Y
-		his=true
-		time=180
-	elseif T=="error"then
-		C=C or COLOR.R
-		his=true
-		time=210
-	elseif T=="message"then
-		C=C or COLOR.N
-		his=true
-	elseif type(T)=="number"then
-		C=C or COLOR.Z
-		time=T
-	elseif type(T)=="table"then
-		C=T
-	elseif not C then
-		C=COLOR.Z
-	end
-	if his then
-		ins(debugMesHistory,SCN.cur..": "..tostring(text))
-	end
-	ins(debugMesList,{text=text,r=C[1],g=C[2],b=C[3],blink=30,time=time or 120})
-end
-function LOG.copy()
-	local str=table.concat(debugMesHistory,"\n")
-	love.system.setClipboardText(str)
-	LOG.print("Log copied",COLOR.B)
-end
-return LOG
+
+return LOG

Zframework/mathExtend.lua

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

Zframework/message.lua

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

Zframework/profile.lua

@@ -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("collect")
+    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("collect")
+    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()
-	if switch then
-		profile.stop()
-		love.system.setClipboardText(PROFILE.report())
-		PROFILE.reset()
-		LOG.print("profile report copied!")
-	else
-		PROFILE.start()
-		LOG.print("profile start!")
-	end
-	switch=not switch
+    switch=not switch
+    if not switch then
+        profile.stop()
+        love.system.setClipboardText(profile.report())
+        profile.reset()
+        return false
+    else
+        profile.start()
+        return true
+    end
 end
 
 -- store all internal profiler functions
 for _,v in next,profile do
-	_internal[v]=type(v)=="function"
+    _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,168 +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,
-	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)
-	local S=scenes[s]
-	SCN.cur=s
+function SCN.init(s)
+    love.keyboard.setTextInput(false)
 
-	WIDGET.set(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.socketRead=S.socketRead
-	if S.sceneInit then S.sceneInit(org)end
+    local S=scenes[s]
+    SCN.cur=s
+
+    WIDGET.setScrollHeight(S.widgetScrollHeight)
+    WIDGET.setWidgetList(S.widgetList)
+    SCN.sceneInit=S.sceneInit
+    SCN.sceneBack=S.sceneBack
+    SCN.mouseDown=S.mouseDown
+    SCN.mouseMove=S.mouseMove
+    SCN.mouseUp=S.mouseUp
+    SCN.mouseClick=S.mouseClick
+    SCN.wheelMoved=S.wheelMoved
+    SCN.touchDown=S.touchDown
+    SCN.touchUp=S.touchUp
+    SCN.touchMove=S.touchMove
+    SCN.touchClick=S.touchClick
+    SCN.keyDown=S.keyDown
+    SCN.keyUp=S.keyUp
+    SCN.gamepadDown=S.gamepadDown
+    SCN.gamepadUp=S.gamepadUp
+    SCN.fileDropped=S.fileDropped
+    SCN.directoryDropped=S.directoryDropped
+    SCN.resize=S.resize
+    SCN.socketRead=S.socketRead
+    SCN.update=S.update
+    SCN.draw=S.draw
+    if S.sceneInit then
+        S.sceneInit()
+    end
 end
 function SCN.push(tar,style)
-	if not SCN.swapping then
-		local m=#SCN.stack
-		SCN.stack[m+1]=tar or SCN.cur
-		SCN.stack[m+2]=style or"fade"
-	end
+    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,NULL},--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
-		LOG.print("No Scene: "..tar,"warn")
-	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
-		LOG.print("No Scene: "..tar,"warn")
-	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,47 +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()
-	xOy=love.math.newTransform(),--Screen transformation object
+    w0=1280,h0=720, --Default Screen Size
+    x=0,y=0,        --Up-left Coord on screen
+    cx=0,cy=0,      --Center Coord on screen (Center X/Y)
+    ex=0,ey=0,      --Down-right Coord on screen (End X/Y)
+    w=0,h=0,        --Fullscreen w/h for graphic functions
+    W=0,H=0,        --Fullscreen w/h for shader
+    safeX=0,safeY=0,--Safe area
+    safeW=0,safeH=0,--Safe area
+    rad=0,          --Radius
+    k=1,            --Scale size
+    dpi=1,          --DPI from gc.getDPIScale()
+
+    --Screen transformation objects
+    origin=love.math.newTransform(),
+    xOy=love.math.newTransform(),
+    xOy_m=love.math.newTransform(),
+    xOy_ul=love.math.newTransform(),
+    xOy_u=love.math.newTransform(),
+    xOy_ur=love.math.newTransform(),
+    xOy_l=love.math.newTransform(),
+    xOy_r=love.math.newTransform(),
+    xOy_dl=love.math.newTransform(),
+    xOy_d=love.math.newTransform(),
+    xOy_dr=love.math.newTransform(),
 }
 function SCR.setSize(w,h)
-	SCR.w0,SCR.h0=w,h
+    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
 
-	if SCR.r>=SCR.h0/SCR.w0 then
-		SCR.k=w/SCR.w0
-		SCR.x,SCR.y=0,(h-w*SCR.h0/SCR.w0)/2
-	else
-		SCR.k=h/SCR.h0
-		SCR.x,SCR.y=(w-h*SCR.w0/SCR.h0)/2,0
-	end
-	SCR.safeX,SCR.safeY,SCR.safeW,SCR.safeH=love.window.getSafeArea()
-	SCR.xOy:setTransformation(w/2,h/2,nil,SCR.k,nil,SCR.w0/2,SCR.h0/2)
+    SCR.x,SCR.y=0,0
+    if SCR.r>=SCR.h0/SCR.w0 then
+        SCR.k=w/SCR.w0
+        SCR.y=(h-SCR.h0*SCR.k)/2
+    else
+        SCR.k=h/SCR.h0
+        SCR.x=(w-SCR.w0*SCR.k)/2
+    end
+    SCR.cx,SCR.cy=SCR.w/2,SCR.h/2
+    SCR.ex,SCR.ey=SCR.w-SCR.x,SCR.h-SCR.y
+    SCR.safeX,SCR.safeY,SCR.safeW,SCR.safeH=love.window.getSafeArea()
+
+    SCR.origin:setTransformation(0,0)
+    SCR.xOy:setTransformation(SCR.x,SCR.y,0,SCR.k)
+    SCR.xOy_m:setTransformation(w/2,h/2,0,SCR.k)
+    SCR.xOy_ul:setTransformation(0,0,0,SCR.k)
+    SCR.xOy_u:setTransformation(w/2,0,0,SCR.k)
+    SCR.xOy_ur:setTransformation(w,0,0,SCR.k)
+    SCR.xOy_l:setTransformation(0,h/2,0,SCR.k)
+    SCR.xOy_r:setTransformation(w,h/2,0,SCR.k)
+    SCR.xOy_dl:setTransformation(0,h,0,SCR.k)
+    SCR.xOy_d:setTransformation(w/2,h,0,SCR.k)
+    SCR.xOy_dr:setTransformation(w,h,0,SCR.k)
 end
 function SCR.info()
-	return{
-		("w0,h0 : %d, %d"):format(SCR.w0,SCR.h0),
-		("x,y : %d, %d"):format(SCR.x,SCR.y),
-		("cx,cy : %d, %d"):format(SCR.cx,SCR.cy),
-		("ex,ey : %d, %d"):format(SCR.ex,SCR.ey),
-		("w,h : %d, %d"):format(SCR.w,SCR.h),
-		("W,H : %d, %d"):format(SCR.W,SCR.H),
-		("safeX,safeY : %d, %d"):format(SCR.safeX,SCR.safeY),
-		("safeW,safeH : %d, %d"):format(SCR.safeW,SCR.safeH),
-		("k,dpi,rad : %d, %d, %.4f"):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
-				LOG.print("No SFX file: "..N,5,COLOR.O)
-			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,77 +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()
 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
 
-do--function STRING.urlEncode(str)
-	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(str)
-		local out=""
-		for i=1,#str do
-			if str:sub(i,i):match("[a-zA-Z0-9]")then
-				out=out..str:sub(i,i)
-			else
-				local b=str:byte(i)
-				out=out.."%"..b16[rshift(b,4)]..b16[b%16]
-			end
-		end
-		return out
-	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
 
-return STRING
+function STRING.UTF8(n)--Simple utf8 coding
+    assert(type(n)=='number',"Wrong type ("..type(n)..")")
+    assert(n>=0 and n<2^31,"Out of range ("..n..")")
+    if n<2^7 then return char(n)
+    elseif n<2^11 then return char(192+int(n/2^06),128+n%2^6)
+    elseif n<2^16 then return char(224+int(n/2^12),128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^21 then return char(240+int(n/2^18),128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^26 then return char(248+int(n/2^24),128+int(n/2^18)%2^6,128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    elseif n<2^31 then return char(252+int(n/2^30),128+int(n/2^24)%2^6,128+int(n/2^18)%2^6,128+int(n/2^12)%2^6,128+int(n/2^06)%2^6,128+n%2^6)
+    end
+end
+
+do--function STRING.bigInt(t)
+    local lg=math.log10
+    local units={"","K","M","B","T","Qa","Qt","Sx","Sp","Oc","No"}
+    local preUnits={"","U","D","T","Qa","Qt","Sx","Sp","O","N"}
+    local secUnits={"Dc","Vg","Tg","Qd","Qi","Se","St","Og","Nn","Ce"}--Ce is next-level unit, but DcCe is not used so used here
+    for _,preU in next,preUnits do for _,secU in next,secUnits do table.insert(units,preU..secU)end end
+    function STRING.bigInt(t)
+        if t<1000 then
+            return tostring(t)
+        elseif t~=1e999 then
+            local e=int(lg(t)/3)
+            return(t/10^(e*3))..units[e+1]
+        else
+            return"INF"
+        end
+    end
+end
+
+function STRING.hexColor(str)--[LOW PERFORMENCE]
+    assert(type(str)=='string')
+    if str:sub(1,1)=="#"then str=str:sub(2)end
+    assert(#str<=8)
+    local r=(tonumber(str:sub(1,2),16)or 0)/255
+    local g=(tonumber(str:sub(3,4),16)or 0)/255
+    local b=(tonumber(str:sub(5,6),16)or 0)/255
+    local a=(tonumber(str:sub(7,8),16)or 255)/255
+    return r,g,b,a
+end
+
+do--function STRING.urlEncode(s)
+    local rshift=bit.rshift
+    local b16={[0]='0','1','2','3','4','5','6','7','8','9','a','b','c','d','e','f'}
+    function STRING.urlEncode(s)
+        local out=""
+        for i=1,#s do
+            if s:sub(i,i):match("[a-zA-Z0-9]")then
+                out=out..s:sub(i,i)
+            else
+                local b=s:byte(i)
+                out=out.."%"..b16[rshift(b,4)]..b16[b%16]
+            end
+        end
+        return out
+    end
+end
+
+function STRING.vcsEncrypt(text,key)
+    local keyLen=#key
+    local result=""
+    local buffer=""
+    for i=0,#text-1 do
+        buffer=buffer..char((byte(text,i+1)-32+byte(key,i%keyLen+1))%95+32)
+        if #buffer==26 then
+            result=result..buffer
+            buffer=""
+        end
+    end
+    return result..buffer
+end
+function STRING.vcsDecrypt(text,key)
+    local keyLen=#key
+    local result=""
+    local buffer=""
+    for i=0,#text-1 do
+        buffer=buffer..char((byte(text,i+1)-32-byte(key,i%keyLen+1))%95+32)
+        if #buffer==26 then
+            result=result..buffer
+            buffer=""
+        end
+    end
+    return result..buffer
+end
+function STRING.digezt(text)--Not powerful hash, just protect the original text
+    local out={0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
+    local seed=26
+    for i=1,#text do
+        local c=byte(text,i)
+        seed=(seed+c)%26
+        c=c+seed
+        local pos=c*i%16
+        local step=(c+i)%4+1
+        local times=2+(c%6)
+        for _=1,times do
+            out[pos+1]=(out[pos+1]+c)%256
+            pos=(pos+step)%16
+        end
+    end
+    local result=""
+    for i=1,16 do result=result..char(out[i])end
+    return result
+end
+
+function STRING.readLine(str)
+    local p=str:find("\n")
+    if p then
+        return str:sub(1,p-1),str:sub(p+1)
+    else
+        return str,""
+    end
+end
+function STRING.readChars(str,n)
+    return sub(str,1,n),sub(str,n+1)
+end
+
+function STRING.packBin(s)
+    return data.encode('string','base64',data.compress('string','zlib',s))
+end
+function STRING.unpackBin(str)
+    local res
+    res,str=pcall(data.decode,'string','base64',str)
+    if not res then return end
+    res,str=pcall(data.decompress,'string','zlib',str)
+    if res then return str end
+end
+function STRING.packText(s)
+    return data.encode('string','base64',data.compress('string','gzip',s))
+end
+function STRING.unpackText(str)
+    local res
+    res,str=pcall(data.decode,'string','base64',str)
+    if not res then return end
+    res,str=pcall(data.decompress,'string','gzip',str)
+    if res then return str end
+end
+function STRING.packTable(t)
+    return STRING.packText(JSON.encode(t))
+end
+function STRING.unpackTable(t)
+    return JSON.decode(STRING.unpackText(t))
+end
+
+return STRING

Zframework/sysFX.lua

@@ -1,219 +1,205 @@
 local gc=love.graphics
-local setColor,setWidth=gc.setColor,gc.setLineWidth
-local sin,cos=math.sin,math.cos
+local gc_setColor,gc_setLineWidth=gc.setColor,gc.setLineWidth
+local gc_draw,gc_line=gc.draw,gc.line
+local gc_rectangle,gc_circle=gc.rectangle,gc.circle
+
 local max,min=math.max,math.min
 local rnd=math.random
-local rem=table.remove
+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)
-	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)
-	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))
 
-	setWidth(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
+    )
 
-	setWidth(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
-	setWidth(2)
-	setColor(1,1,1,1-t)
-	gc.circle("line",S.x,S.y,t*(2-t)*30)
-	setColor(1,1,1,(1-t)*.5)
-	gc.circle("fill",S.x,S.y,t*30)
-
-	setColor(1,1,1,1-t)
-	for i=1,10 do
-		local p=S.ptc[i]
-		local T=t^.5
-		gc.rectangle("fill",p[1]*(1-T)+p[3]*T-5,p[2]*(1-T)+p[4]*T-5,11,11)
-	end
+    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
-	setWidth(2)
-	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)
-	setWidth(6)
-	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)
-	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)
-	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)
-	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)
-	fx[#fx+1]={
-		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)
-	fx[#fx+1]={
-		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,
-		ptc={},
-	}
-	for i=1,10 do
-		local d=40+50*rnd()
-		local ang=rnd()*6.2832
-		T.ptc[i]={x,y,x+d*cos(ang),y+d*sin(ang)}
-	end
-	fx[#fx+1]=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)
-	fx[#fx+1]={
-		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)
-	fx[#fx+1]={
-		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)
-	fx[#fx+1]={
-		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)
-	fx[#fx+1]={
-		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)
-	fx[#fx+1]={
-		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,132 +1,255 @@
+local find=string.find
+local rem=table.remove
 local next,type=next,type
 local TABLE={}
 
---Copy [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
+--Get a new filled table
+function TABLE.new(val,count)
+    local L={}
+    for i=1,count do
+        L[i]=val
+    end
+    return L
 end
 
---Copy all elements
-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 copy of [1~#] elements
+function TABLE.shift(org,depth)
+    if not depth then depth=1e99 end
+    local L={}
+    for i=1,#org do
+        if type(org[i])=='table'and depth>0 then
+            L[i]=TABLE.shift(org[i],depth-1)
+        else
+            L[i]=org[i]
+        end
+    end
+    return L
 end
 
---For all things in G if same type in base, push to base
-function TABLE.update(G,base)
-	for k,v in next,G do
-		if type(v)==type(base[k])then
-			if type(v)=="table"then
-				TABLE.update(v,base[k])
-			else
-				base[k]=v
-			end
-		end
-	end
+--Get a full copy of a table, depth = how many layers will be recreate, default to inf
+function TABLE.copy(org,depth)
+    if not depth then depth=1e99 end
+    local L={}
+    for k,v in next,org do
+        if type(v)=='table'and depth>0 then
+            L[k]=TABLE.copy(v,depth-1)
+        else
+            L[k]=v
+        end
+    end
+    return L
 end
 
---For all things in G if no val in base, push to base
-function TABLE.complete(G,base)
-	for k,v in next,G do
-		if base[k]==nil then
-			base[k]=v
-		elseif type(v)=="table"and type(base[k])=="table"then
-			TABLE.complete(v,base[k])
-		end
-	end
+--For all things in new, push to old
+function TABLE.cover(new,old)
+    for k,v in next,new do
+        old[k]=v
+    end
 end
 
---Remove positive integer index of table
+--For all things in new, push to old
+function TABLE.coverR(new,old)
+    for k,v in next,new do
+        if type(v)=='table'and type(old[k])=='table'then
+            TABLE.coverR(v,old[k])
+        else
+            old[k]=v
+        end
+    end
+end
+
+
+--For all things in new if same type in old, push to old
+function TABLE.update(new,old)
+    for k,v in next,new do
+        if type(v)==type(old[k])then
+            if type(v)=='table'then
+                TABLE.update(v,old[k])
+            else
+                old[k]=v
+            end
+        end
+    end
+end
+
+--For all things in new if no val in old, push to old
+function TABLE.complete(new,old)
+    for k,v in next,new do
+        if type(v)=='table'then
+            if old[k]==nil then old[k]={}end
+            TABLE.complete(v,old[k])
+        elseif old[k]==nil then
+            old[k]=v
+        end
+    end
+end
+
+--Remove [1~#] of table
 function TABLE.cut(G)
-	for i=#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
+end
+
+--Return next value of [1~#] (by value)
+function TABLE.next(t,val)
+    for i=1,#t do if t[i]==val then return t[i%#t+1]end end
+end
+
+--------------------------
+
+--Find value in whole table
+function TABLE.search(t,val)
+    for k,v in next,t do if v==val then return k end end
 end
 
 --Re-index string value of a table
 function TABLE.reIndex(org)
-	for k,v in next,org do
-		if type(v)=="string"then
-			org[k]=org[v]
-		end
-	end
+    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",
-	}
-	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
 
-return TABLE
+--Dump a simple lua table (no whitespaces)
+do--function TABLE.dumpDeflate(L,t)
+    local function dump(L)
+        local s="return{"
+        if type(L)~='table'then return end
+        local count=1
+        for k,v in next,L do
+            local T=type(k)
+            if T=='number'then
+                if k==count then
+                    k=""
+                    count=count+1
+                else
+                    k="["..k.."]="
+                end
+            elseif T=='string'then
+                if find(k,"[^0-9a-zA-Z_]")then
+                    k="[\""..k.."\"]="
+                else
+                    k=k.."="
+                end
+            elseif T=='boolean'then k="["..k.."]="
+            else error("Error key type!")
+            end
+            T=type(v)
+            if T=='number'then v=tostring(v)
+            elseif T=='string'then v="\""..v.."\""
+            elseif T=='table'then v=dump(v)
+            elseif T=='boolean'then v=tostring(v)
+            else error("Error data type!")
+            end
+        end
+        return s.."}"
+    end
+    TABLE.dumpDeflate=dump
+end
+
+return TABLE

Zframework/task.lua

@@ -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,128 +1,153 @@
 local gc=love.graphics
-local gc_getColor,gc_setColor,gc_push,gc_pop,gc_translate,gc_scale,gc_rotate,gc_shear
-=gc.getColor,gc.setColor,gc.push,gc.pop,gc.translate,gc.scale,gc.rotate,gc.shear
+local getColor,setColor=gc.getColor,gc.setColor
 
-local int,rnd,rem=math.floor,math.random,table.remove
-local setFont,mStr=setFont,mStr
+local int,rnd=math.floor,math.random
+local ins,rem=table.insert,table.remove
+local draw=gc.draw
 
 local texts={}
 
 local textFX={}
 function textFX.appear(t)
-	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)
-	texts[#texts+1]={
-		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,90 +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
-
-		--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 (Feb./Mar./Apr./May./June. 26)
-		D=="26"and(
-			M=="1"or M=="2"and"zday1"or
-			M=="3"or M=="4"and"zday2"or
-			M=="5"or M=="6"and"zday3"
-		)or
-
-		"classic"
-end
-
-function THEME.set(theme)
-	if theme=="classic"then
-		BG.setDefault("space")
-		BGM.setDefault("blank")
-	elseif theme=="xmas"then
-		BG.setDefault("snow")
-		BGM.setDefault("xmas")
-		LOG.print("==============",COLOR.R)
-		LOG.print("Merry Christmas!",COLOR.Z)
-		LOG.print("==============",COLOR.R)
-	elseif theme=="sprfes"then
-		BG.setDefault("firework")
-		BGM.setDefault("spring festival")
-		LOG.print(" ★☆☆★",COLOR.R)
-		LOG.print("新年快乐!",COLOR.Z)
-		LOG.print(" ★☆☆★",COLOR.R)
-	elseif theme=="zday1"then
-		BG.setDefault("lanterns")
-		BGM.setDefault("empty")
-	elseif theme=="zday2"then
-		BG.setDefault("lanterns")
-		BGM.setDefault("overzero")
-	elseif theme=="zday3"then
-		BG.setDefault("lanterns")
-		BGM.setDefault("vacuum")
-	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,.015,.02,.03,.04,.05,.06,.07}
+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
-					LOG.print("No VOICE file: "..list[i],5,COLOR.O)
-				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,362 +1,191 @@
--- local host="127.0.0.1"
--- local host="192.168.114.102"
--- local host="krakens.tpddns.cn"
--- local host="hdustea.3322.org"
-local host="game.techmino.org"
-local port="10026"
-local path="/tech/socket/v1"
+local host=
+    -- '127.0.0.1'
+    -- '192.168.114.102'
+    'game.techmino.org'
+local port='10026'
+local path='/tech/socket/v1'
 
-local debug=""--S:send, R:receive, M=mark
-
-local wsThread=[[
--- lua + love2d threading websocket client
+-- 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 SOCK=require"socket".tcp()
-local JSON=require"Zframework.json"
-
-do--Connect
-	local host=sendCHN:demand()
-	local port=sendCHN:demand()
-	local path=sendCHN:demand()
-	local body=sendCHN:demand()
-
-	SOCK:settimeout(2.6)
-	local res,err=SOCK:connect(host,port)
-	if err then readCHN:push(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 readCHN:push(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 readCHN:push(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
-			readCHN:push("success")
-		else
-			res,err=SOCK:receive(ctLen)
-			if not res then readCHN:push(err)return end
-			res=JSON.decode(res)
-			readCHN:push((code or"XXX")..":"..(res and res.reason or"Server Error"))
-		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)
-		]]..(debug: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
-	--Send
-	triggerCHN:demand()
-	while sendCHN:getCount()>=2 do
-		local op=sendCHN:pop()
-		local message=sendCHN:pop()
-		_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
-					]]..(debug: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
-				]]..(debug: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
-				]]..(debug: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
-		]]..(debug: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
-			readCHN:push(op)
-			SOCK:close()
-			if type(res)=="string"then
-				res=JSON.decode(res)
-				readCHN:push(res and res.reason or"WS Error")
-			else
-				readCHN:push("WS Error")
-			end
-		elseif op==0 then--0=continue
-			lBuffer=lBuffer..res
-			if fin then
-				]]..(debug:find"M"and""or"--")..[[print("FIN=1 (c")
-				readCHN:push(lBuffer)
-				lBuffer=""
-			else
-				]]..(debug:find"M"and""or"--")..[[print("FIN=0 (c")
-			end
-		else
-			readCHN:push(op)
-			if fin then
-				]]..(debug:find"M"and""or"--")..[[print("OP: "..op.."\tFIN=1")
-				readCHN:push(res)
-			else
-				]]..(debug:find"M"and""or"--")..[[print("OP: "..op.."\tFIN=0")
-				sBuffer=res
-				]]..(debug: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.connect(name,subPath,body)
-	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=26,
-		status="connecting",--connecting, running, dead
-		sendTimer=0,
-		alertTimer=0,
-		pongTimer=0,
-	}
-	wsList[name]=ws
-	ws.thread:start(ws.triggerCHN,ws.sendCHN,ws.readCHN,name)
-	ws.sendCHN:push(host)
-	ws.sendCHN:push(port)
-	ws.sendCHN:push(path..subPath)
-	ws.sendCHN:push(body or"")
+function WS.switchHost(_1,_2,_3)
+    for k in next,wsList do
+        WS.close(k)
+    end
+    host=_1
+    port=_2 or port
+    path=_3 or path
+end
+
+function WS.connect(name,subPath,body,timeout)
+    if wsList[name]and wsList[name].thread then
+        wsList[name].thread:release()
+    end
+    local ws={
+        real=true,
+        thread=love.thread.newThread('Zframework/websocket_thread.lua'),
+        triggerCHN=love.thread.newChannel(),
+        sendCHN=love.thread.newChannel(),
+        readCHN=love.thread.newChannel(),
+        lastPingTime=0,
+        lastPongTime=timer(),
+        pingInterval=6,
+        status='connecting',--'connecting', 'running', 'dead'
+        sendTimer=0,
+        alertTimer=0,
+        pongTimer=0,
+    }
+    wsList[name]=ws
+    ws.thread:start(ws.triggerCHN,ws.sendCHN,ws.readCHN)
+    CHN_push(ws.sendCHN,host)
+    CHN_push(ws.sendCHN,port)
+    CHN_push(ws.sendCHN,path..subPath)
+    CHN_push(ws.sendCHN,body or"")
+    CHN_push(ws.sendCHN,timeout or 2.6)
 end
 
 function WS.status(name)
-	local ws=wsList[name]
-	return ws.status or"dead"
+    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 1,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)
-	local ws=wsList[name]
-	if ws.real then
-		ws.sendCHN:push(op and OPcode[op]or 2)--2=binary
-		ws.sendCHN:push(message)
-		ws.lastPingTime=timer()
-		ws.sendTimer=1
-	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.readCHN:getCount()>=2 then
-		local op=ws.readCHN:pop()
-		local message=ws.readCHN:pop()
-		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
-		ws.sendCHN:push(8)--close
-		ws.sendCHN:push("")
-		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
-			ws.triggerCHN:push(0)
-			if ws.status=="connecting"then
-				local mes=ws.readCHN:pop()
-				if mes then
-					if mes=="success"then
-						ws.status="running"
-						ws.lastPingTime=time
-						ws.lastPongTime=time
-						ws.pongTimer=1
-					else
-						ws.status="dead"
-						LOG.print(text.wsFailed..": "..(mes=="timeout"and text.netTimeout or mes),"warn")
-					end
-				end
-			elseif ws.status=="running"then
-				if time-ws.lastPingTime>ws.pingInterval then
-					ws.sendCHN:push(9)
-					ws.sendCHN:push("")--ping
-					ws.lastPingTime=time
-				end
-				if time-ws.lastPongTime>10+3*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
-return function(y)
-	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("up")
-		floatWheel=floatWheel-1
-	end
-	while floatWheel<=-1 do
-		love.keypressed("down")
-		floatWheel=floatWheel+1
-	end
-end
+local love=love
+local max,min=math.max,math.min
+local trigDist=0
+return function(y,key1,key2)
+    if y>0 then
+        trigDist=max(trigDist,0)+y^1.2
+    elseif y<0 then
+        if trigDist>0 then trigDist=0 end
+        trigDist=min(trigDist,0)-(-y)^1.2
+    end
+    while trigDist>=1 do
+        love.keypressed(key1 or'up')
+        trigDist=trigDist-1
+    end
+    while trigDist<=-1 do
+        love.keypressed(key2 or'down')
+        trigDist=trigDist+1
+    end
+end

conf.lua

@@ -1,41 +1,34 @@
-VERSION={
-	code=1405,
-	string="Alpha V0.14.5",
-	name="晨 Morn",
-}
 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.fullscreentype="desktop"--"exclusive"
-	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,145 +0,0 @@
-模式文件应当是一个合(语)法的lua程序文件，其必须返回一个table，里面的内容包括：
-	color:
-		必选
-		模式的颜色，用于点击地图图标后显示的提示文本
-	env:
-		必选
-		模式环境变量，决定了关卡的各项属性
-		table值:
-			drop:下落延迟(帧，支持自然数和2的整数次幂)
-			lock:锁定延迟(帧)
-			wait:出块延迟(帧)
-			fall:下落延迟(帧)
-			bone:是否开启骨块模式
-			nextCount:显示next个数
-			nextStartPos:next从第几个开始显示
-			holdCount:hold个数
-			infHold:是否能无限hold
-			ospin=是否能O-spin
-			RS:旋转系统名
-
-			das:DAS
-			arr:ARR
-			sddas:软降DAS
-			sdarr:软降ARR
-			mindas:允许的最小DAS
-			minarr:允许的最小ARR
-			minsdarr:允许的最小软降ARR
-			ihs:提前Hold
-			irs:提前旋转
-			ims:提前移动
-
-			skin:方块颜色，包含25个整数(1~16)的table
-			face:方块朝向，包含25个整数(0~3)的table
-
-			block:是否显示方块
-			ghost:影子透明度(0~1)
-			center:旋转中心透明度(0~1)
-			smooth:是否平滑下落
-			grid:是否显示网格
-			bagLine:是否显示包分界线
-			lockFX:特效等级(0,5)
-			dropFX:特效等级(0,5)
-			moveFX:特效等级(0,5)
-			clearFX:特效等级(0,5)
-			splashFX:特效等级(0,5)
-			shakeFX:特效等级(0,5)
-			atkFX:特效等级(0,5)
-
-			text:是否显示消行文本
-			score:是否显示落块分数
-			warn:是否开启死亡预警
-			highCam:是否开启超屏视野
-			nextPos:是否开启生成预览
-
-			sequence=序列模式，是放一块后对next序列的刷新函数，可以使用默认的几个函数用字符串表示。也可以自己写一个，注意：使用协程技术
-			seqData:序列模式使用的"包"数据(本质是生成序列用的数据，会作为参数传进序列生成函数，不一定是包)
-			mission:包含任务的table，说明暂时略
-
-			life:生命数
-			pushSpeed:上涨速度
-			noTele:是否禁止10个高级按键
-			visible:方块可见性，填写固定的几个字符串
-			freshLimit:锁延刷新次数限制
-			easyFresh:是否使用简单锁延刷新规则
-
-			fkey1:按下功能键1后执行的函数
-			fkey2:按下功能键2后执行的函数
-			keyCancel:包含禁止使用的按键的id们的table，例如{1,2}就是禁止左右移
-			fineKill:是否开启非极简即死
-			b2bKill:是否开启断b2b即死
-			missionKill:是否开启强制任务
-			dropPiece:放一块后要执行的函数，输入玩家对象
-
-			bg:背景，只能填写内置背景的名字
-			bgm:背景音乐名(或者列表随机，例如{"race","push"})，只能用内置音乐库的音乐名
-			noMod:是否禁用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,47 +0,0 @@
-以下是Techmino使用/将要使用/未来也许会使用的语音文件, 每一个都可以录任意多条
-有多个文件的语音在播放时会随机挑选一个播放, 所以组合性的语音大概率不能随意发挥, 不然和其他组合起来可能就会出现奇怪的现象
-
-例如多个mini语音文件名: mini_1.ogg, mini_2.ogg, ......
-如果只有一个, "_1"可以省略, 但是多个文件的数字不能跳跃
-
-要投稿语音包的话如果没有经过后期处理, 建议使用wav格式;
-如果打算自己导入游戏的话需要降噪+裁剪+调整音量后再转为ogg格式 (不支持别的, 因为ogg音质好体积小)
-
-目前游戏内正在使用, 必须录制的音频文件名们:
-	single, double, triple, techrash
-	以上直接念就可以,用于普通直接消行
-
-	mini, b2b, b3b
-	以上直接念就可以,用于组合进spin消除
-
-	zspin, sspin, lspin, jspin, tspin, ospin, ispin
-	以上的每一个都要衍生出数条语音,例如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,333 +1,644 @@
 --[[
-	  ______             __                _
-	 /_  __/___   _____ / /_   ____ ___   (_)____   ____
-	  / /  / _ \ / ___// __ \ / __ `__ \ / // __ \ / __ \
-	 / /  /  __// /__ / / / // / / / / // // / / // /_/ /
-	/_/   \___/ \___//_/ /_//_/ /_/ /_//_//_/ /_/ \____/
-	Techmino is my first "huge project"
-	optimization is welcomed if you also love tetromino 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 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";
 ]]--
 
 
---Declaration
-goto REM love=require"love"::REM::--Just tell IDE to load love-api, no actual usage
+--Var leak check
+-- setmetatable(_G,{__newindex=function(self,k,v)print('>>'..k)print(debug.traceback():match("\n.-\n\t(.-): "))rawset(self,k,v)end})
+
+--System Global Vars Declaration
 local fs=love.filesystem
-NONE={}function NULL()end
-DBP=print--Use this in temporary code, easy to find and remove
+VERSION=require"version"
 TIME=love.timer.getTime
 YIELD=coroutine.yield
-SYSTEM=love.system.getOS()
-MOBILE=SYSTEM=="Android"or SYSTEM=="iOS"
+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
-LOADED=false
+SFXPACKS={'chiptune'}
+VOCPACKS={'miya',--[['mono',]]'xiaoya','miku'}
+FIRSTLAUNCH=false
 DAILYLAUNCH=false
-EDITING=""
-ERRDATA={}
 
 --System setting
 math.randomseed(os.time()*626)
 love.setDeprecationOutput(false)
 love.keyboard.setKeyRepeat(true)
 love.keyboard.setTextInput(false)
-love.mouse.setVisible(false)
-
---Delete all files from too old version
-function CLEAR(root)
-	for _,name in next,fs.getDirectoryItems(root or"")do
-		if fs.getRealDirectory(name)==SAVEDIR and fs.getInfo(name).type~="directory"then
-			fs.remove(name)
-		end
-	end
-end 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
+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)
 
-require"parts.list"
-require"parts.globalTables"
-require"parts.gametoolfunc"
+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)
 
-FREEROW=	require"parts.freeRow"
-DATA=		require"parts.data"
+table.insert(_LOADTIMELIST_,("Load Zframework: %.3fs"):format(TIME()-_LOADTIME_))
 
-USERS=		require"parts.users"
-TEXTURE=	require"parts.texture"
-SKIN=		require"parts.skin"
-NET=		require"parts.net"
-VK=			require"parts.virtualKey"
-PLY=		require"parts.player"
-AIFUNC=		require"parts.ai"
-AIBUILDER=	require"parts.AITemplate"
-MODES=		require"parts.modes"
+--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
 
---Initialize field[1]
-FIELD[1]=DATA.newBoard()
+--Delete all naked files (from too old version)
+FILE.clear('')
 
---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
+--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
 end
-if SETTING.fullscreen then love.window.setFullscreen(true)end
 
---Initialize image libs
-IMG.init{
-	batteryImage="mess/power.png",
-	lock="mess/lock.png",
-	dialCircle="mess/dialCircle.png",
-	dialNeedle="mess/dialNeedle.png",
-	lifeIcon="mess/life.png",
-	badgeIcon="mess/badge.png",
-	spinCenter="mess/spinCenter.png",
-	ctrlSpeedLimit="mess/ctrlSpeedLimit.png",
-	speedLimit="mess/speedLimit.png",
-	pay1="mess/pay1.png",
-	pay2="mess/pay2.png",
-
-	nakiCH="characters/naki.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",
-
-	lanterns={
-		"lanterns/1.png",
-		"lanterns/2.png",
-		"lanterns/3.png",
-		"lanterns/4.png",
-		"lanterns/5.png",
-		"lanterns/6.png",
-	},
-}
-SKIN.init{
-	"crystal_scf",
-	"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",
-}
-
---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
-			L[#L+1]=v:sub(1,-5)
-		else
-			LOG.print("Dangerous file : %SAVE%/media/SFX/"..v)
-		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
-			L[#L+1]=v:sub(1,-5)
-		else
-			LOG.print("Dangerous file : %SAVE%/media/BGM/"..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",
-}
-
---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_sp",
-		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"
-		},
-	}
-)
+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
+for _,v in next,fs.getDirectoryItems('parts/shaders')do
+    if isSafeFile('parts/shaders/'..v)then
+        local name=v:sub(1,-6)
+        SHADER[name]=love.graphics.newShader('parts/shaders/'..name..'.glsl')
+    end
 end
 
+THEME=      require'parts.theme'
+LINE=       require'parts.line'
+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'
+
+setmetatable(TEXTURE,{__index=function(self,k)
+    MES.new('warn',"No texture called: "..k)
+    self[k]=PAPER
+    return self[k]
+end})
+
+table.insert(_LOADTIMELIST_,("Load Parts: %.3fs"):format(TIME()-_LOADTIME_))
+
+--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
+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='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',
+
+    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={
+        '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.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()--[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.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','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('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
+for _,v in next,fs.getDirectoryItems('parts/backgrounds')do
+    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 isSafeFile('parts/scenes/'..v)then
+        local sceneName=v:sub(1,-5)
+        SCN.add(sceneName,require('parts.scenes.'..sceneName))
+        LANG.addScene(sceneName)
+    end
 end
 
---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
-LANG.set(SETTING.lang)
+table.insert(_LOADTIMELIST_,("Load Files: %.3fs"):format(TIME()-_LOADTIME_))
 
 --Update data
 do
-	local needSave
-	local autoRestart
+    local needSave
 
-	if type(STAT.version)~="number"then
-		STAT.version=0
-		needSave=true
-	end
-	if STAT.version<1300 then
-		STAT.frame=math.floor(STAT.time*60)
-		STAT.lastPlay="sprint_10l"
-		RANKS.sprintFix=nil
-		RANKS.sprintLock=nil
-		needSave=true
-		for _,name in next,fs.getDirectoryItems("replay")do
-			fs.remove("replay/"..name)
-		end
-	end
-	if STAT.version<1302 then
-		if RANKS.pctrain_n then RANKS.pctrain_n=0 end
-		if RANKS.pctrain_l then RANKS.pctrain_l=0 end
-		fs.remove("conf/settings")
-		needSave=true
-		autoRestart=true
-	end
-	if STAT.version<1400 then
-		fs.remove("conf/user")
-		fs.remove("conf/key")
-		SETTING.appLock=false
-		needSave=true
-		autoRestart=true
-	end
-	if STAT.version<1405 then
-		fs.remove("conf/user")
-		autoRestart=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
 
-	for _,v in next,VK_org do
-		if not v.color then
-			fs.remove("conf/virtualkey")
-			autoRestart=true
-			break
-		end
-	end
-
-	if STAT.version~=VERSION.code then
-		newVersionLaunch=true
-		STAT.version=VERSION.code
-		CLEAR("lib")
-		needSave=true
-		autoRestart=true
-	end
-
-	if RANKS.GM then RANKS.GM=0 end
-	if RANKS.infinite then RANKS.infinite=6 end
-	if RANKS.infinite_dig then RANKS.infinite_dig=6 end
-	for k in next,RANKS do
-		if type(k)=="number"then
-			RANKS[k]=nil
-			needSave=true
-		end
-	end
-	local modeTable={attacker_h="attacker_hard",attacker_u="attacker_ultimate",blind_e="blind_easy",blind_h="blind_hard",blind_l="blind_lunatic",blind_n="blind_normal",blind_u="blind_ultimate",c4wtrain_l="c4wtrain_lunatic",c4wtrain_n="c4wtrain_normal",defender_l="defender_lunatic",defender_n="defender_normal",dig_100l="dig_10",dig_10l="dig_100",dig_400l="dig_40",dig_40l="dig_400",dig_h="dig_hard",dig_u="dig_ultimate",drought_l="drought_lunatic",drought_n="drought_normal",marathon_h="marathon_hard",marathon_n="marathon_normal",pc_h="pcchallenge_hard",pc_l="pcchallenge_lunatic",pc_n="pcchallenge_normal",pctrain_l="pctrain_lunatic",pctrain_n="pctrain_normal",round_e="round_1",round_h="round_2",round_l="round_3",round_n="round_4",round_u="round_5",solo_e="solo_1",solo_h="solo_2",solo_l="solo_3",solo_n="solo_4",solo_u="solo_5",sprint_10l="sprint_10",sprint_20l="sprint_20",sprint_40l="sprint_40",sprint_400l="sprint_400",sprint_100l="sprint_100",sprint_1000l="sprint_1000",survivor_e="survivor_easy",survivor_h="survivor_hard",survivor_l="survivor_lunatic",survivor_n="survivor_normal",survivor_u="survivor_ultimate",tech_finesse_f="tech_finesse2",tech_h_plus="tech_hard2",tech_h="tech_hard",tech_l_plus="tech_lunatic2",tech_l="tech_lunatic",tech_n_plus="tech_normal2",tech_n="tech_normal",techmino49_e="techmino49_easy",techmino49_h="techmino49_hard",techmino49_u="techmino49_ultimate",techmino99_e="techmino99_easy",techmino99_h="techmino99_hard",techmino99_u="techmino99_ultimate",tsd_e="tsd_easy",tsd_h="tsd_hard",tsd_u="tsd_ultimate",master_extra="GM"}
-	for k,v in next,modeTable do
-		if RANKS[v]then
-			RANKS[k]=RANKS[v]
-			RANKS[v]=nil
-		end
-		v="record/"..v
-		if fs.getInfo(v..".dat")then
-			fs.write("record/"..k.."rec",fs.read(v..".dat"))
-			fs.remove(v..".dat")
-		end
-		if fs.getInfo(v..".rec")then
-			fs.write("record/"..k..".rec",fs.read(v..".rec"))
-			fs.remove(v..".rec")
-		end
-	end
-	if not RANKS.sprint_10l then
-		RANKS.sprint_10l=0
-		needSave=true
-	end
-
-	if needSave then
-		FILE.save(SETTING,"conf/settings","q")
-		FILE.save(RANKS,"conf/unlock","q")
-		FILE.save(STAT,"conf/data","q")
-	end
-	if autoRestart then
-		love.event.quit("restart")
-	end
+    if needSave then
+        saveStats()
+        saveProgress()
+        saveSettings()
+        love.event.quit('restart')
+    end
 end
 
---Var leak check
--- setmetatable(_G,{__newindex=function(self,k,v)print('>>'..k,tostring(v))rawset(self,k,v)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
+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=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)
+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