提交: 237d812d32dfc4bca2405b9bc05bd73d4b754fea - ikemen_go (git)

Go で書き直した Ikemen

Commit MetaInfo

• 修订版: 237d812d32dfc4bca2405b9bc05bd73d4b754fea (tree)
• 时间: 2019-09-01 12:36:56
• 作者: neatunsou <sisiy4excite@gmai...>
• Commiter: neatunsou

Log Message

scriptファイルを含めるようにした

更改概述

• add: script/debug.lua
• add: script/dkjson.lua
• add: script/localcoord.lua
• add: script/main.lua
• add: script/motif.lua
• add: script/options.lua
• add: script/randomtest.lua
• add: script/screenpack.lua
• add: script/select.lua
• add: script/storyboard.lua

差异

--- /dev/null
+++ b/script/debug.lua
@@ -0,0 +1,122 @@
+--One-time load of the json routines
+json = (loadfile 'script/dkjson.lua')()
+
+-- Data loading from config.json
+local file = io.open("save/config.json","r")
+config = json.decode(file:read("*all"))
+file:close()
+-- This is done to get the AI level config
+
+if getAllowDebugKeys() then
+	addHotkey('c', true, false, false, 'toggleClsnDraw()')
+	addHotkey('d', true, false, false, 'toggleDebugDraw()')
+	addHotkey('s', true, false, false, 'changeSpeed()')
+	addHotkey('l', true, false, false, 'toggleStatusDraw()')
+	addHotkey('1', true, false, false, 'toggleAI(1)')
+	addHotkey('2', true, false, false, 'toggleAI(2)')
+	addHotkey('3', true, false, false, 'toggleAI(3)')
+	addHotkey('4', true, false, false, 'toggleAI(4)')
+	addHotkey('5', true, false, false, 'toggleAI(5)')
+	addHotkey('6', true, false, false, 'toggleAI(6)')
+	addHotkey('7', true, false, false, 'toggleAI(7)')
+	addHotkey('8', true, false, false, 'toggleAI(8)')
+	addHotkey('F1', false, false, false, 'kill(2);kill(4);kill(6);kill(8)')
+	addHotkey('F1', true, false, false, 'kill(1);kill(3);kill(5);kill(7)')
+	addHotkey('F2', false, false, false, 'kill(1,1);kill(2,1);kill(3,1);kill(4,1);kill(5,1);kill(6,1);kill(7,1);kill(8,1)')
+	addHotkey('F2', true, false, false, 'kill(1,1);kill(3,1);kill(5,1);kill(7,1)')
+	addHotkey('F2', false, false, true, 'kill(2,1);kill(4,1);kill(6,1);kill(8,1)')
+	addHotkey('F3', false, false, false, 'powMax(1);powMax(2)')
+	addHotkey('F4', false, false, false, 'roundReset()')
+	addHotkey('F4', false, false, true, 'reload()')
+	addHotkey('F5', false, false, false, 'setTime(0)')
+	addHotkey(
+	'SPACE', false, false, false,
+	'full(1);full(2);full(3);full(4);full(5);full(6);full(7);full(8);setTime(getRoundTime())')
+	addHotkey('i', true, false, false, 'stand(1);stand(2);stand(3);stand(4);stand(5);stand(6);stand(7);stand(8)')
+end
+addHotkey('PAUSE', false, false, false, 'togglePause()')
+addHotkey('SCROLLLOCK', false, false, false, 'step()')
+
+
+speed = 1.0
+
+function changeSpeed()
+  if speed >= 4 then
+    speed = 0.25
+  else
+    speed = speed*2.0
+  end
+  setAccel(speed)
+end
+
+function toggleAI(p)
+  local oldid = id()
+  if player(p) then
+    if ailevel() > 0 then
+      setAILevel(0)
+    else
+      setAILevel(config.Difficulty)
+    end
+    playerid(oldid)
+  end
+end
+
+function kill(p, ...)
+  local oldid = id()
+  if player(p) then
+    local n = ...
+    if not n then n = 0 end
+    setLife(n)
+    playerid(oldid)
+  end
+end
+
+function powMax(p)
+  local oldid = id()
+  if player(p) then
+    setPower(powermax())
+    playerid(oldid)
+  end
+end
+
+function full(p)
+  local oldid = id()
+  if player(p) then
+    setLife(lifemax())
+    setPower(powermax())
+    playerid(oldid)
+  end
+end
+
+function stand(p)
+  local oldid = id()
+  if player(p) then
+    selfState(0)
+    playerid(oldid)
+  end
+end
+
+function info()
+  puts(
+    string.format(
+      'name:%s state:%d>%d %s move:%s physics:%s',
+      name(), prevstateno(), stateno(), statetype(), movetype(), physics()))
+  puts(
+    string.format(
+      'anim:%d %d elem:%d %d pos:%.3f,%.3f vel:%.3f,%.3f',
+      anim(), animtime(), animelemno(0), animelemtime(animelemno(0)),
+      posX(), posY(), velX(), velY()))
+end
+
+function status(p)
+  local oldid = id()
+  if not player(p) then return false end
+  ret =
+    string.format(
+      'STA:%s%s%s%6d(%d) ANI:%6d(%d)%2d LIF:%5d POW:%5d TIM:%d',
+      statetype(), movetype(), physics(), stateno(), stateOwner(),
+      anim(), animOwner(), animelemno(0), life(), power(), time())
+  playerid(oldid)
+  return ret;
+end
+

--- /dev/null
+++ b/script/dkjson.lua
@@ -0,0 +1,714 @@
+-- Module options:
+local always_try_using_lpeg = true
+local register_global_module_table = false
+local global_module_name = 'json'
+
+--[==[
+
+David Kolf's JSON module for Lua 5.1/5.2
+
+Version 2.5
+
+
+For the documentation see the corresponding readme.txt or visit
+<http://dkolf.de/src/dkjson-lua.fsl/>.
+
+You can contact the author by sending an e-mail to 'david' at the
+domain 'dkolf.de'.
+
+
+Copyright (C) 2010-2013 David Heiko Kolf
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
+BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.
+
+--]==]
+
+-- global dependencies:
+local pairs, type, tostring, tonumber, getmetatable, setmetatable, rawset =
+      pairs, type, tostring, tonumber, getmetatable, setmetatable, rawset
+local error, require, pcall, select = error, require, pcall, select
+local floor, huge = math.floor, math.huge
+local strrep, gsub, strsub, strbyte, strchar, strfind, strlen, strformat =
+      string.rep, string.gsub, string.sub, string.byte, string.char,
+      string.find, string.len, string.format
+local strmatch = string.match
+local concat = table.concat
+
+local json = { version = "dkjson 2.5" }
+
+if register_global_module_table then
+  _G[global_module_name] = json
+end
+
+local _ENV = nil -- blocking globals in Lua 5.2
+
+pcall (function()
+  -- Enable access to blocked metatables.
+  -- Don't worry, this module doesn't change anything in them.
+  local debmeta = require "debug".getmetatable
+  if debmeta then getmetatable = debmeta end
+end)
+
+json.null = setmetatable ({}, {
+  __tojson = function () return "null" end
+})
+
+local function isarray (tbl)
+  local max, n, arraylen = 0, 0, 0
+  for k,v in pairs (tbl) do
+    if k == 'n' and type(v) == 'number' then
+      arraylen = v
+      if v > max then
+        max = v
+      end
+    else
+      if type(k) ~= 'number' or k < 1 or floor(k) ~= k then
+        return false
+      end
+      if k > max then
+        max = k
+      end
+      n = n + 1
+    end
+  end
+  if max > 10 and max > arraylen and max > n * 2 then
+    return false -- don't create an array with too many holes
+  end
+  return true, max
+end
+
+local escapecodes = {
+  ["\""] = "\\\"", ["\\"] = "\\\\", ["\b"] = "\\b", ["\f"] = "\\f",
+  ["\n"] = "\\n",  ["\r"] = "\\r",  ["\t"] = "\\t"
+}
+
+local function escapeutf8 (uchar)
+  local value = escapecodes[uchar]
+  if value then
+    return value
+  end
+  local a, b, c, d = strbyte (uchar, 1, 4)
+  a, b, c, d = a or 0, b or 0, c or 0, d or 0
+  if a <= 0x7f then
+    value = a
+  elseif 0xc0 <= a and a <= 0xdf and b >= 0x80 then
+    value = (a - 0xc0) * 0x40 + b - 0x80
+  elseif 0xe0 <= a and a <= 0xef and b >= 0x80 and c >= 0x80 then
+    value = ((a - 0xe0) * 0x40 + b - 0x80) * 0x40 + c - 0x80
+  elseif 0xf0 <= a and a <= 0xf7 and b >= 0x80 and c >= 0x80 and d >= 0x80 then
+    value = (((a - 0xf0) * 0x40 + b - 0x80) * 0x40 + c - 0x80) * 0x40 + d - 0x80
+  else
+    return ""
+  end
+  if value <= 0xffff then
+    return strformat ("\\u%.4x", value)
+  elseif value <= 0x10ffff then
+    -- encode as UTF-16 surrogate pair
+    value = value - 0x10000
+    local highsur, lowsur = 0xD800 + floor (value/0x400), 0xDC00 + (value % 0x400)
+    return strformat ("\\u%.4x\\u%.4x", highsur, lowsur)
+  else
+    return ""
+  end
+end
+
+local function fsub (str, pattern, repl)
+  -- gsub always builds a new string in a buffer, even when no match
+  -- exists. First using find should be more efficient when most strings
+  -- don't contain the pattern.
+  if strfind (str, pattern) then
+    return gsub (str, pattern, repl)
+  else
+    return str
+  end
+end
+
+local function quotestring (value)
+  -- based on the regexp "escapable" in https://github.com/douglascrockford/JSON-js
+  value = fsub (value, "[%z\1-\31\"\\\127]", escapeutf8)
+  if strfind (value, "[\194\216\220\225\226\239]") then
+    value = fsub (value, "\194[\128-\159\173]", escapeutf8)
+    value = fsub (value, "\216[\128-\132]", escapeutf8)
+    value = fsub (value, "\220\143", escapeutf8)
+    value = fsub (value, "\225\158[\180\181]", escapeutf8)
+    value = fsub (value, "\226\128[\140-\143\168-\175]", escapeutf8)
+    value = fsub (value, "\226\129[\160-\175]", escapeutf8)
+    value = fsub (value, "\239\187\191", escapeutf8)
+    value = fsub (value, "\239\191[\176-\191]", escapeutf8)
+  end
+  return "\"" .. value .. "\""
+end
+json.quotestring = quotestring
+
+local function replace(str, o, n)
+  local i, j = strfind (str, o, 1, true)
+  if i then
+    return strsub(str, 1, i-1) .. n .. strsub(str, j+1, -1)
+  else
+    return str
+  end
+end
+
+-- locale independent num2str and str2num functions
+local decpoint, numfilter
+
+local function updatedecpoint ()
+  decpoint = strmatch(tostring(0.5), "([^05+])")
+  -- build a filter that can be used to remove group separators
+  numfilter = "[^0-9%-%+eE" .. gsub(decpoint, "[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%0") .. "]+"
+end
+
+updatedecpoint()
+
+local function num2str (num)
+  return replace(fsub(tostring(num), numfilter, ""), decpoint, ".")
+end
+
+local function str2num (str)
+  local num = tonumber(replace(str, ".", decpoint))
+  if not num then
+    updatedecpoint()
+    num = tonumber(replace(str, ".", decpoint))
+  end
+  return num
+end
+
+local function addnewline2 (level, buffer, buflen)
+  buffer[buflen+1] = "\n"
+  buffer[buflen+2] = strrep ("  ", level)
+  buflen = buflen + 2
+  return buflen
+end
+
+function json.addnewline (state)
+  if state.indent then
+    state.bufferlen = addnewline2 (state.level or 0,
+                           state.buffer, state.bufferlen or #(state.buffer))
+  end
+end
+
+local encode2 -- forward declaration
+
+local function addpair (key, value, prev, indent, level, buffer, buflen, tables, globalorder, state)
+  local kt = type (key)
+  if kt ~= 'string' and kt ~= 'number' then
+    return nil, "type '" .. kt .. "' is not supported as a key by JSON."
+  end
+  if prev then
+    buflen = buflen + 1
+    buffer[buflen] = ","
+  end
+  if indent then
+    buflen = addnewline2 (level, buffer, buflen)
+  end
+  buffer[buflen+1] = quotestring (key)
+  buffer[buflen+2] = ":"
+  return encode2 (value, indent, level, buffer, buflen + 2, tables, globalorder, state)
+end
+
+local function appendcustom(res, buffer, state)
+  local buflen = state.bufferlen
+  if type (res) == 'string' then
+    buflen = buflen + 1
+    buffer[buflen] = res
+  end
+  return buflen
+end
+
+local function exception(reason, value, state, buffer, buflen, defaultmessage)
+  defaultmessage = defaultmessage or reason
+  local handler = state.exception
+  if not handler then
+    return nil, defaultmessage
+  else
+    state.bufferlen = buflen
+    local ret, msg = handler (reason, value, state, defaultmessage)
+    if not ret then return nil, msg or defaultmessage end
+    return appendcustom(ret, buffer, state)
+  end
+end
+
+function json.encodeexception(reason, value, state, defaultmessage)
+  return quotestring("<" .. defaultmessage .. ">")
+end
+
+encode2 = function (value, indent, level, buffer, buflen, tables, globalorder, state)
+  local valtype = type (value)
+  local valmeta = getmetatable (value)
+  valmeta = type (valmeta) == 'table' and valmeta -- only tables
+  local valtojson = valmeta and valmeta.__tojson
+  if valtojson then
+    if tables[value] then
+      return exception('reference cycle', value, state, buffer, buflen)
+    end
+    tables[value] = true
+    state.bufferlen = buflen
+    local ret, msg = valtojson (value, state)
+    if not ret then return exception('custom encoder failed', value, state, buffer, buflen, msg) end
+    tables[value] = nil
+    buflen = appendcustom(ret, buffer, state)
+  elseif value == nil then
+    buflen = buflen + 1
+    buffer[buflen] = "null"
+  elseif valtype == 'number' then
+    local s
+    if value ~= value or value >= huge or -value >= huge then
+      -- This is the behaviour of the original JSON implementation.
+      s = "null"
+    else
+      s = num2str (value)
+    end
+    buflen = buflen + 1
+    buffer[buflen] = s
+  elseif valtype == 'boolean' then
+    buflen = buflen + 1
+    buffer[buflen] = value and "true" or "false"
+  elseif valtype == 'string' then
+    buflen = buflen + 1
+    buffer[buflen] = quotestring (value)
+  elseif valtype == 'table' then
+    if tables[value] then
+      return exception('reference cycle', value, state, buffer, buflen)
+    end
+    tables[value] = true
+    level = level + 1
+    local isa, n = isarray (value)
+    if n == 0 and valmeta and valmeta.__jsontype == 'object' then
+      isa = false
+    end
+    local msg
+    if isa then -- JSON array
+      buflen = buflen + 1
+      buffer[buflen] = "["
+      for i = 1, n do
+        buflen, msg = encode2 (value[i], indent, level, buffer, buflen, tables, globalorder, state)
+        if not buflen then return nil, msg end
+        if i < n then
+          buflen = buflen + 1
+          buffer[buflen] = ","
+        end
+      end
+      buflen = buflen + 1
+      buffer[buflen] = "]"
+    else -- JSON object
+      local prev = false
+      buflen = buflen + 1
+      buffer[buflen] = "{"
+      local order = valmeta and valmeta.__jsonorder or globalorder
+      if order then
+        local used = {}
+        n = #order
+        for i = 1, n do
+          local k = order[i]
+          local v = value[k]
+          if v then
+            used[k] = true
+            buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
+            prev = true -- add a seperator before the next element
+          end
+        end
+        for k,v in pairs (value) do
+          if not used[k] then
+            buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
+            if not buflen then return nil, msg end
+            prev = true -- add a seperator before the next element
+          end
+        end
+      else -- unordered
+        for k,v in pairs (value) do
+          buflen, msg = addpair (k, v, prev, indent, level, buffer, buflen, tables, globalorder, state)
+          if not buflen then return nil, msg end
+          prev = true -- add a seperator before the next element
+        end
+      end
+      if indent then
+        buflen = addnewline2 (level - 1, buffer, buflen)
+      end
+      buflen = buflen + 1
+      buffer[buflen] = "}"
+    end
+    tables[value] = nil
+  else
+    return exception ('unsupported type', value, state, buffer, buflen,
+      "type '" .. valtype .. "' is not supported by JSON.")
+  end
+  return buflen
+end
+
+function json.encode (value, state)
+  state = state or {}
+  local oldbuffer = state.buffer
+  local buffer = oldbuffer or {}
+  state.buffer = buffer
+  updatedecpoint()
+  local ret, msg = encode2 (value, state.indent, state.level or 0,
+                   buffer, state.bufferlen or 0, state.tables or {}, state.keyorder, state)
+  if not ret then
+    error (msg, 2)
+  elseif oldbuffer == buffer then
+    state.bufferlen = ret
+    return true
+  else
+    state.bufferlen = nil
+    state.buffer = nil
+    return concat (buffer)
+  end
+end
+
+local function loc (str, where)
+  local line, pos, linepos = 1, 1, 0
+  while true do
+    pos = strfind (str, "\n", pos, true)
+    if pos and pos < where then
+      line = line + 1
+      linepos = pos
+      pos = pos + 1
+    else
+      break
+    end
+  end
+  return "line " .. line .. ", column " .. (where - linepos)
+end
+
+local function unterminated (str, what, where)
+  return nil, strlen (str) + 1, "unterminated " .. what .. " at " .. loc (str, where)
+end
+
+local function scanwhite (str, pos)
+  while true do
+    pos = strfind (str, "%S", pos)
+    if not pos then return nil end
+    local sub2 = strsub (str, pos, pos + 1)
+    if sub2 == "\239\187" and strsub (str, pos + 2, pos + 2) == "\191" then
+      -- UTF-8 Byte Order Mark
+      pos = pos + 3
+    elseif sub2 == "//" then
+      pos = strfind (str, "[\n\r]", pos + 2)
+      if not pos then return nil end
+    elseif sub2 == "/*" then
+      pos = strfind (str, "*/", pos + 2)
+      if not pos then return nil end
+      pos = pos + 2
+    else
+      return pos
+    end
+  end
+end
+
+local escapechars = {
+  ["\""] = "\"", ["\\"] = "\\", ["/"] = "/", ["b"] = "\b", ["f"] = "\f",
+  ["n"] = "\n", ["r"] = "\r", ["t"] = "\t"
+}
+
+local function unichar (value)
+  if value < 0 then
+    return nil
+  elseif value <= 0x007f then
+    return strchar (value)
+  elseif value <= 0x07ff then
+    return strchar (0xc0 + floor(value/0x40),
+                    0x80 + (floor(value) % 0x40))
+  elseif value <= 0xffff then
+    return strchar (0xe0 + floor(value/0x1000),
+                    0x80 + (floor(value/0x40) % 0x40),
+                    0x80 + (floor(value) % 0x40))
+  elseif value <= 0x10ffff then
+    return strchar (0xf0 + floor(value/0x40000),
+                    0x80 + (floor(value/0x1000) % 0x40),
+                    0x80 + (floor(value/0x40) % 0x40),
+                    0x80 + (floor(value) % 0x40))
+  else
+    return nil
+  end
+end
+
+local function scanstring (str, pos)
+  local lastpos = pos + 1
+  local buffer, n = {}, 0
+  while true do
+    local nextpos = strfind (str, "[\"\\]", lastpos)
+    if not nextpos then
+      return unterminated (str, "string", pos)
+    end
+    if nextpos > lastpos then
+      n = n + 1
+      buffer[n] = strsub (str, lastpos, nextpos - 1)
+    end
+    if strsub (str, nextpos, nextpos) == "\"" then
+      lastpos = nextpos + 1
+      break
+    else
+      local escchar = strsub (str, nextpos + 1, nextpos + 1)
+      local value
+      if escchar == "u" then
+        value = tonumber (strsub (str, nextpos + 2, nextpos + 5), 16)
+        if value then
+          local value2
+          if 0xD800 <= value and value <= 0xDBff then
+            -- we have the high surrogate of UTF-16. Check if there is a
+            -- low surrogate escaped nearby to combine them.
+            if strsub (str, nextpos + 6, nextpos + 7) == "\\u" then
+              value2 = tonumber (strsub (str, nextpos + 8, nextpos + 11), 16)
+              if value2 and 0xDC00 <= value2 and value2 <= 0xDFFF then
+                value = (value - 0xD800)  * 0x400 + (value2 - 0xDC00) + 0x10000
+              else
+                value2 = nil -- in case it was out of range for a low surrogate
+              end
+            end
+          end
+          value = value and unichar (value)
+          if value then
+            if value2 then
+              lastpos = nextpos + 12
+            else
+              lastpos = nextpos + 6
+            end
+          end
+        end
+      end
+      if not value then
+        value = escapechars[escchar] or escchar
+        lastpos = nextpos + 2
+      end
+      n = n + 1
+      buffer[n] = value
+    end
+  end
+  if n == 1 then
+    return buffer[1], lastpos
+  elseif n > 1 then
+    return concat (buffer), lastpos
+  else
+    return "", lastpos
+  end
+end
+
+local scanvalue -- forward declaration
+
+local function scantable (what, closechar, str, startpos, nullval, objectmeta, arraymeta)
+  local len = strlen (str)
+  local tbl, n = {}, 0
+  local pos = startpos + 1
+  if what == 'object' then
+    setmetatable (tbl, objectmeta)
+  else
+    setmetatable (tbl, arraymeta)
+  end
+  while true do
+    pos = scanwhite (str, pos)
+    if not pos then return unterminated (str, what, startpos) end
+    local char = strsub (str, pos, pos)
+    if char == closechar then
+      return tbl, pos + 1
+    end
+    local val1, err
+    val1, pos, err = scanvalue (str, pos, nullval, objectmeta, arraymeta)
+    if err then return nil, pos, err end
+    pos = scanwhite (str, pos)
+    if not pos then return unterminated (str, what, startpos) end
+    char = strsub (str, pos, pos)
+    if char == ":" then
+      if val1 == nil then
+        return nil, pos, "cannot use nil as table index (at " .. loc (str, pos) .. ")"
+      end
+      pos = scanwhite (str, pos + 1)
+      if not pos then return unterminated (str, what, startpos) end
+      local val2
+      val2, pos, err = scanvalue (str, pos, nullval, objectmeta, arraymeta)
+      if err then return nil, pos, err end
+      tbl[val1] = val2
+      pos = scanwhite (str, pos)
+      if not pos then return unterminated (str, what, startpos) end
+      char = strsub (str, pos, pos)
+    else
+      n = n + 1
+      tbl[n] = val1
+    end
+    if char == "," then
+      pos = pos + 1
+    end
+  end
+end
+
+scanvalue = function (str, pos, nullval, objectmeta, arraymeta)
+  pos = pos or 1
+  pos = scanwhite (str, pos)
+  if not pos then
+    return nil, strlen (str) + 1, "no valid JSON value (reached the end)"
+  end
+  local char = strsub (str, pos, pos)
+  if char == "{" then
+    return scantable ('object', "}", str, pos, nullval, objectmeta, arraymeta)
+  elseif char == "[" then
+    return scantable ('array', "]", str, pos, nullval, objectmeta, arraymeta)
+  elseif char == "\"" then
+    return scanstring (str, pos)
+  else
+    local pstart, pend = strfind (str, "^%-?[%d%.]+[eE]?[%+%-]?%d*", pos)
+    if pstart then
+      local number = str2num (strsub (str, pstart, pend))
+      if number then
+        return number, pend + 1
+      end
+    end
+    pstart, pend = strfind (str, "^%a%w*", pos)
+    if pstart then
+      local name = strsub (str, pstart, pend)
+      if name == "true" then
+        return true, pend + 1
+      elseif name == "false" then
+        return false, pend + 1
+      elseif name == "null" then
+        return nullval, pend + 1
+      end
+    end
+    return nil, pos, "no valid JSON value at " .. loc (str, pos)
+  end
+end
+
+local function optionalmetatables(...)
+  if select("#", ...) > 0 then
+    return ...
+  else
+    return {__jsontype = 'object'}, {__jsontype = 'array'}
+  end
+end
+
+function json.decode (str, pos, nullval, ...)
+  local objectmeta, arraymeta = optionalmetatables(...)
+  return scanvalue (str, pos, nullval, objectmeta, arraymeta)
+end
+
+function json.use_lpeg ()
+  local g = require ("lpeg")
+
+  if g.version() == "0.11" then
+    error "due to a bug in LPeg 0.11, it cannot be used for JSON matching"
+  end
+
+  local pegmatch = g.match
+  local P, S, R = g.P, g.S, g.R
+
+  local function ErrorCall (str, pos, msg, state)
+    if not state.msg then
+      state.msg = msg .. " at " .. loc (str, pos)
+      state.pos = pos
+    end
+    return false
+  end
+
+  local function Err (msg)
+    return g.Cmt (g.Cc (msg) * g.Carg (2), ErrorCall)
+  end
+
+  local SingleLineComment = P"//" * (1 - S"\n\r")^0
+  local MultiLineComment = P"/*" * (1 - P"*/")^0 * P"*/"
+  local Space = (S" \n\r\t" + P"\239\187\191" + SingleLineComment + MultiLineComment)^0
+
+  local PlainChar = 1 - S"\"\\\n\r"
+  local EscapeSequence = (P"\\" * g.C (S"\"\\/bfnrt" + Err "unsupported escape sequence")) / escapechars
+  local HexDigit = R("09", "af", "AF")
+  local function UTF16Surrogate (match, pos, high, low)
+    high, low = tonumber (high, 16), tonumber (low, 16)
+    if 0xD800 <= high and high <= 0xDBff and 0xDC00 <= low and low <= 0xDFFF then
+      return true, unichar ((high - 0xD800)  * 0x400 + (low - 0xDC00) + 0x10000)
+    else
+      return false
+    end
+  end
+  local function UTF16BMP (hex)
+    return unichar (tonumber (hex, 16))
+  end
+  local U16Sequence = (P"\\u" * g.C (HexDigit * HexDigit * HexDigit * HexDigit))
+  local UnicodeEscape = g.Cmt (U16Sequence * U16Sequence, UTF16Surrogate) + U16Sequence/UTF16BMP
+  local Char = UnicodeEscape + EscapeSequence + PlainChar
+  local String = P"\"" * g.Cs (Char ^ 0) * (P"\"" + Err "unterminated string")
+  local Integer = P"-"^(-1) * (P"0" + (R"19" * R"09"^0))
+  local Fractal = P"." * R"09"^0
+  local Exponent = (S"eE") * (S"+-")^(-1) * R"09"^1
+  local Number = (Integer * Fractal^(-1) * Exponent^(-1))/str2num
+  local Constant = P"true" * g.Cc (true) + P"false" * g.Cc (false) + P"null" * g.Carg (1)
+  local SimpleValue = Number + String + Constant
+  local ArrayContent, ObjectContent
+
+  -- The functions parsearray and parseobject parse only a single value/pair
+  -- at a time and store them directly to avoid hitting the LPeg limits.
+  local function parsearray (str, pos, nullval, state)
+    local obj, cont
+    local npos
+    local t, nt = {}, 0
+    repeat
+      obj, cont, npos = pegmatch (ArrayContent, str, pos, nullval, state)
+      if not npos then break end
+      pos = npos
+      nt = nt + 1
+      t[nt] = obj
+    until cont == 'last'
+    return pos, setmetatable (t, state.arraymeta)
+  end
+
+  local function parseobject (str, pos, nullval, state)
+    local obj, key, cont
+    local npos
+    local t = {}
+    repeat
+      key, obj, cont, npos = pegmatch (ObjectContent, str, pos, nullval, state)
+      if not npos then break end
+      pos = npos
+      t[key] = obj
+    until cont == 'last'
+    return pos, setmetatable (t, state.objectmeta)
+  end
+
+  local Array = P"[" * g.Cmt (g.Carg(1) * g.Carg(2), parsearray) * Space * (P"]" + Err "']' expected")
+  local Object = P"{" * g.Cmt (g.Carg(1) * g.Carg(2), parseobject) * Space * (P"}" + Err "'}' expected")
+  local Value = Space * (Array + Object + SimpleValue)
+  local ExpectedValue = Value + Space * Err "value expected"
+  ArrayContent = Value * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
+  local Pair = g.Cg (Space * String * Space * (P":" + Err "colon expected") * ExpectedValue)
+  ObjectContent = Pair * Space * (P"," * g.Cc'cont' + g.Cc'last') * g.Cp()
+  local DecodeValue = ExpectedValue * g.Cp ()
+
+  function json.decode (str, pos, nullval, ...)
+    local state = {}
+    state.objectmeta, state.arraymeta = optionalmetatables(...)
+    local obj, retpos = pegmatch (DecodeValue, str, pos, nullval, state)
+    if state.msg then
+      return nil, state.pos, state.msg
+    else
+      return obj, retpos
+    end
+  end
+
+  -- use this function only once:
+  json.use_lpeg = function () return json end
+
+  json.using_lpeg = true
+
+  return json -- so you can get the module using json = require "dkjson".use_lpeg()
+end
+
+if always_try_using_lpeg then
+  pcall (json.use_lpeg)
+end
+
+return json
+

--- /dev/null
+++ b/script/localcoord.lua
@@ -0,0 +1,8 @@
+-- Screenpack Localcoord
+main.SP_Localcoord[0] = 320
+main.SP_Localcoord[1] = 240
+main.SP_Center = 0
+
+-- Lifebar Localcoord
+main.LB_Localcoord[0] = 320
+main.LB_Localcoord[1] = 240
\ No newline at end of file

--- /dev/null
+++ b/script/main.lua
@@ -0,0 +1,2202 @@
+-- Disable GC during the initial load so it does not crash.
+SetGCPercent(-1)
+-------------------------------------------------------------
+main = {}
+
+refresh()
+math.randomseed(os.time())
+
+--;===========================================================
+--; COMMON SECTION
+--;===========================================================
+
+--One-time load of the json routines
+json = (loadfile 'script/dkjson.lua')()
+
+-- Data loading from config.json
+local file = io.open("save/config.json","r")
+config = json.decode(file:read("*all"))
+file:close()
+
+-- Int localcoord
+require "script/screenpack"
+main.IntLocalcoordValues()
+require "script/localcoord"
+main.CalculateLocalcoordValues()
+main.IntLifebarScale()
+main.SetScaleValues()
+
+main.p1In = 1
+main.p2In = 2
+--main.inputDialog = inputDialogNew()
+
+function main.f_setCommand(c)
+	commandAdd(c, 'u', '$U')
+	commandAdd(c, 'd', '$D')
+	commandAdd(c, 'l', '$B')
+	commandAdd(c, 'r', '$F')
+	commandAdd(c, 'a', 'a')
+	commandAdd(c, 'b', 'b')
+	commandAdd(c, 'c', 'c')
+	commandAdd(c, 'x', 'x')
+	commandAdd(c, 'y', 'y')
+	commandAdd(c, 'z', 'z')
+	commandAdd(c, 's', 's')
+	commandAdd(c, 'v', 'v')
+	commandAdd(c, 'w', 'w')
+	commandAdd(c, 'holds', '/s')
+	commandAdd(c, 'su', '/s, U')
+	commandAdd(c, 'sd', '/s, D')
+end
+
+main.p1Cmd = commandNew()
+main.f_setCommand(main.p1Cmd)
+
+main.p2Cmd = commandNew()
+main.f_setCommand(main.p2Cmd)
+
+function main.f_cmdInput()
+	commandInput(main.p1Cmd, main.p1In)
+	commandInput(main.p2Cmd, main.p2In)
+end
+
+--returns value depending on button pressed (a = 1; a + start = 7 etc.)
+function main.f_btnPalNo(cmd)
+	local s = 0
+	if commandGetState(cmd, 'holds') then s = 6 end
+	if commandGetState(cmd, 'a') then return 1 + s end
+	if commandGetState(cmd, 'b') then return 2 + s end
+	if commandGetState(cmd, 'c') then return 3 + s end
+	if commandGetState(cmd, 'x') then return 4 + s end
+	if commandGetState(cmd, 'y') then return 5 + s end
+	if commandGetState(cmd, 'z') then return 6 + s end
+	if commandGetState(cmd, 'v') then return 1 + s end
+	if commandGetState(cmd, 'w') then return 2 + s end
+	return 0
+end
+
+--animDraw at specified coordinates
+function main.f_animPosDraw(a, x, y)
+	animSetPos(a, x, y)
+	animUpdate(a)
+	animDraw(a)
+end
+
+--textImgDraw at specified coordinates
+function main.f_textImgPosDraw(ti, x, y, align)
+	align = align or 0
+	textImgSetAlign(ti, align)
+	if align == -1 then x = x + 1 end --fix for wrong offset after flipping text
+	textImgSetPos(ti, x, y)
+	textImgDraw(ti)
+end
+
+--shortcut for creating new text with several parameters
+function main.f_createTextImg(font, bank, align, text, x, y, scaleX, scaleY, colorR, colorG, colorB)
+	local ti = textImgNew()
+	if font ~= nil then
+		textImgSetFont(ti, font)
+		textImgSetBank(ti, bank)
+		textImgSetAlign(ti, align)
+		textImgSetText(ti, text)
+		if colorR ~= nil and colorG ~= nil and colorB ~= nil then
+			textImgSetColor(ti, colorR, colorG, colorB)
+		end
+		if align == -1 then x = x + 1 end --fix for wrong offset after flipping text
+		textImgSetPos(ti, x, y)
+		textImgSetScale(ti, scaleX, scaleY)
+	end
+	return ti
+end
+
+--shortcut for updating text with several parameters
+function main.f_updateTextImg(animName, font, bank, align, text, x, y, scaleX, scaleY, colorR, colorG, colorB)
+	if font ~= nil then
+		textImgSetFont(animName, font)
+		textImgSetBank(animName, bank)
+		textImgSetAlign(animName, align)
+		textImgSetText(animName, text)
+		if colorR ~= nil and colorG ~= nil and colorB ~= nil then
+			textImgSetColor(animName, colorR, colorG, colorB)
+		end
+		if align == -1 then x = x + 1 end --fix for wrong offset after flipping text
+		textImgSetPos(animName, x, y)
+		textImgSetScale(animName, scaleX, scaleY)
+	end
+	return animName
+end
+
+--dynamically adjusts alpha blending each time called based on specified values
+local alpha1cur = 0
+local alpha2cur = 0
+local alpha1add = true
+local alpha2add = true
+function main.f_dynamicAlpha(animName, r1min, r1max, r1step, r2min, r2max, r2step)
+	if r1step == 0 then alpha1cur = r1max end
+	if alpha1cur < r1max and alpha1add then
+		alpha1cur = alpha1cur + r1step
+		if alpha1cur >= r1max then
+			alpha1add = false
+		end
+	elseif alpha1cur > r1min and not alpha1add then
+		alpha1cur = alpha1cur - r1step
+		if alpha1cur <= r1min then
+			alpha1add = true
+		end
+	end
+	if r2step == 0 then alpha2cur = r2max end
+	if alpha2cur < r2max and alpha2add then
+		alpha2cur = alpha2cur + r2step
+		if alpha2cur >= r2max then
+			alpha2add = false
+		end
+	elseif alpha2cur > r2min and not alpha2add then
+		alpha2cur = alpha2cur - r2step
+		if alpha2cur <= r2min then
+			alpha2add = true
+		end
+	end
+	animSetAlpha(animName, alpha1cur, alpha2cur)
+end
+
+--generate fading animation
+--currently only black when average of RGB <= 128 and white if >128 colors supported
+function main.f_fadeAnim(fadeType, ticks, r, g, b)
+	local anim = ''
+	if (r + g + b)/3 > 128 then --white
+		if fadeType == 0 then --fadeout
+			for i = 1, ticks do
+				anim = anim .. '0,1, 0,0, 1, 0, AS' .. math.floor(256 / ticks * i) .. 'D256\n'
+			end
+			anim = anim .. '0,1, 0,0, -1, 0, AS256D256'
+		elseif fadeType == 1 then --fadein
+			for i = ticks, 1, -1 do
+				anim = anim .. '0,1, 0,0, 1, 0, AS' .. math.floor(256 / ticks * i) .. 'D256\n'
+			end
+			anim = anim .. '0,1, 0,0, -1, 0, AS0D256'
+		end
+	else --black
+		if fadeType == 0 then --fadeout
+			for i = ticks, 1, -1 do
+				anim = anim .. '0,0, 0,0, 1, 0, AS256D' .. math.floor(256 / ticks * i) .. '\n'
+			end
+			anim = anim .. '0,0, 0,0, -1, 0, AS256D0'
+		elseif fadeType == 1 then --fadein
+			for i = 1, ticks do
+				anim = anim .. '0,0, 0,0, 1, 0, AS256D' .. math.floor(256 / ticks * i) .. '\n'
+			end
+			anim = anim .. '0,0, 0,0, -1, 0, AS256D256'
+		end
+	end
+	anim = animNew(main.fadeSff, anim)
+	animUpdate(anim)
+	return anim, ticks
+end
+
+--generate clearcolor animation
+--currently only black when average of RGB <= 128 and white if >128 colors supported
+function main.f_clearColor(r, g, b)
+	local anim = ''
+	if (r + g + b)/3 > 128 then
+		anim = '0,1, 0,0, -1' --white
+	else
+		anim = '0,0, 0,0, -1' --black
+	end
+	anim = animNew(main.fadeSff, anim)
+	animUpdate(anim)
+	return anim
+end
+
+--generate anim from table
+function main.f_animFromTable(t, sff, x, y, scaleX, scaleY, facing, infFrame)
+	x = x or 0
+	y = y or 0
+	scaleX = scaleX or 1.0
+	scaleY = scaleY or 1.0
+	facing = facing or '0'
+	infFrame = infFrame or 1
+	local facing_sav = ''
+	local anim = ''
+	local length = 0
+	for i = 1, #t do
+		local t_anim = {}
+		for j, c in ipairs(main.f_strsplit(',', t[i])) do --split using "," delimiter
+			t_anim[#t_anim + 1] = c
+		end
+		if #t_anim > 1 then
+			--required parameters
+			t_anim[3] = tonumber(t_anim[3]) + x
+			t_anim[4] = tonumber(t_anim[4]) + y
+			if tonumber(t_anim[5]) == -1 then
+				length = length + infFrame
+			else
+				length = length + tonumber(t_anim[5])
+			end
+			--optional parameters
+			if t_anim[6] ~= nil and not t_anim[6]:match(facing) then --flip parameter not negated by repeated flipping
+				if t_anim[6]:match('[Hh]') then t_anim[3] = t_anim[3] + 1 end --fix for wrong offset after flipping sprites
+				if t_anim[6]:match('[Vv]') then t_anim[4] = t_anim[4] + 1 end --fix for wrong offset after flipping sprites
+				t_anim[6] = facing .. t_anim[6]
+			end
+		end
+		for j = 1, #t_anim do
+			if j == 1 then
+				anim = anim .. t_anim[j]
+			else
+				anim = anim .. ', ' .. t_anim[j]
+			end
+		end
+		anim = anim .. '\n'
+	end
+	local data = animNew(sff, anim)
+	animSetScale(data, scaleX, scaleY)
+	animUpdate(data)
+	return data, length
+end
+
+--Convert number to name and get rid of the ""
+function main.f_getName(cell)
+	local tmp = getCharName(cell)
+	tmp = tmp:gsub('^["%s]*(.-)["%s]*$', '%1') --needed for s-size ikemen
+	if main.t_selChars[cell + 1].hidden == 3 then
+		tmp = 'Random'
+	elseif main.t_selChars[cell + 1].hidden == 2 then
+		tmp = ''
+	end
+	return tmp
+end
+
+--randomizes table content
+function main.f_shuffleTable(t)
+	local rand = math.random
+	assert(t, "main.f_shuffleTable() expected a table, got nil")
+	local iterations = #t
+	local j
+	for i = iterations, 2, -1 do
+		j = rand(i)
+		t[i], t[j] = t[j], t[i]
+	end
+end
+
+--iterate over the table in order
+-- basic usage, just sort by the keys:
+--for k, v in main.f_sortKeys(t) do
+--    print(k,v)
+--end
+-- this uses an custom sorting function ordering by score descending
+--for k, v in  main.f_sortKeys(t, function(t,a,b) return t[b] < t[a] end) do
+--    print(k,v)
+--end
+function main.f_sortKeys(t, order)
+	-- collect the keys
+	local keys = {}
+	for k in pairs(t) do keys[#keys + 1] = k end
+	-- if order function given, sort it by passing the table and keys a, b,
+	-- otherwise just sort the keys 
+	if order then
+		table.sort(keys, function(a,b) return order(t, a, b) end)
+	else
+		table.sort(keys)
+	end
+	-- return the iterator function
+	local i = 0
+	return function()
+		i = i + 1
+		if keys[i] then
+			return keys[i], t[keys[i]]
+		end
+	end
+end
+
+--prints "t" table content into "toFile" file
+function main.f_printTable(t, toFile)
+	local toFile = toFile or 'debug/table_print.txt'
+	local txt = ''
+	local print_t_cache = {}
+	local function sub_print_t(t, indent)
+		if print_t_cache[tostring(t)] then
+			txt = txt .. indent .. '*' .. tostring(t) .. '\n'
+		else
+			print_t_cache[tostring(t)] = true
+			if type(t) == 'table' then
+				for pos, val in pairs(t) do
+					if type(val) == 'table' then
+						txt = txt .. indent .. '[' .. pos .. '] => ' .. tostring(t) .. ' {' .. '\n'
+						sub_print_t(val, indent .. string.rep(' ', string.len(tostring(pos)) + 8))
+						txt = txt .. indent .. string.rep(' ', string.len(tostring(pos)) + 6) .. '}' .. '\n'
+					elseif type(val) == 'string' then
+						txt = txt .. indent .. '[' .. pos .. '] => "' .. val .. '"' .. '\n'
+					else
+						txt = txt .. indent .. '[' .. pos .. '] => ' .. tostring(val) ..'\n'
+					end
+				end
+			else
+				txt = txt .. indent .. tostring(t) .. '\n'
+			end
+		end
+	end
+	if type(t) == 'table' then
+		txt = txt .. tostring(t) .. ' {' .. '\n'
+		sub_print_t(t, '  ')
+		txt = txt .. '}' .. '\n'
+	else
+		sub_print_t(t, '  ')
+	end
+	local file = io.open(toFile,"w+")
+	if file == nil then return end
+	file:write(txt)
+	file:close()
+end
+
+--prints "v" variable into "toFile" file
+function main.f_printVar(v, toFile)
+	local toFile = toFile or 'debug/var_print.txt'
+	local file = io.open(toFile,"w+")
+	file:write(v)
+	file:close()
+end
+
+--remove duplicated string pattern
+function main.f_uniq(str, pattern, subpattern)
+	local out = {}
+	for s in str:gmatch(pattern) do
+		local s2 = s:match(subpattern)
+		if not main.f_contains(out, s2) then out[#out + 1] = s end
+	end
+	return table.concat(out)
+end
+
+function main.f_contains(t, val)
+	for k, v in pairs(t) do
+		--if v == val then
+		if v:match(val) then
+			return true
+		end
+	end
+	return false
+end
+
+--- Draw string letter by letter + wrap lines.
+-- @data: text data
+-- @str: string (text you want to draw)
+-- @counter: external counter (values should be increased each frame by 1 starting from 1)
+-- @x: first line X position
+-- @y: first line Y position
+-- @spacing: spacing between lines (rendering Y position increase for each line)
+-- @delay (optional): ticks (frames) delay between each letter is rendered, defaults to 0 (all text rendered immediately)
+-- @limit (optional): maximum line length (string wraps when reached), if omitted line wraps only if string contains '\n'
+function main.f_textRender(data, str, counter, x, y, spacing, delay, limit)
+	local delay = delay or 0
+	local limit = limit or -1
+	str = tostring(str)
+	if limit == -1 then
+		str = str:gsub('\\n', '\n')
+	else
+		str = str:gsub('%s*\\n%s*', ' ')
+		if math.floor(#str / limit) + 1 > 1 then
+			str = main.f_wrap(str, limit, indent, indent1)
+		end
+	end
+	local subEnd = math.floor(#str - (#str - counter / delay))
+	local t = {}
+	for line in str:gmatch('([^\r\n]*)[\r\n]?') do
+		t[#t + 1] = line
+	end
+	local lengthCnt = 0
+	for i = 1, #t do
+		if subEnd < #str then
+			local length = #t[i]
+			if i > 1 and i <= #t then
+				length = length + 1
+			end
+			lengthCnt = lengthCnt + length
+			if subEnd < lengthCnt then
+				t[i] = t[i]:sub(0, subEnd - lengthCnt)
+			end
+		end
+		textImgSetText(data, t[i])
+		textImgSetPos(data, x, y + spacing * (i - 1))
+		textImgDraw(data)
+	end
+end
+
+--- Wrap a long string.
+-- source: http://lua-users.org/wiki/StringRecipes
+-- @str: string to wrap
+-- @limit: maximum line length
+-- @indent: regular indentation
+-- @indent1: indentation of first line
+function main.f_wrap(str, limit, indent, indent1)
+	indent = indent or ''
+	indent1 = indent1 or indent
+	limit = limit or 72
+	local here = 1 - #indent1
+	return indent1 .. str:gsub("(%s+)()(%S+)()",
+		function(sp, st, word, fi)
+			if fi - here > limit then
+				here = st - #indent
+				return '\n' .. indent .. word
+			end
+		end
+	)
+end
+
+--Convert DEF string to table (each line = next item; %i, %s swapped with variable values)
+function main.f_extractText(txt, v1, v2, v3, v4)
+	local t = {v1 or '', v2 or '', v3 or '', v4 or ''}
+	local tmp = ''
+	txt = txt:gsub('%%[is]', '%%')
+	for i, c in ipairs(main.f_strsplit('%%', txt)) do --split string using "%" delimiter
+		if t[i] == '' then
+			c = c:gsub('%s$', '')
+		end
+		tmp = tmp .. c .. t[i]
+	end
+	t = {}
+	for i, c in ipairs(main.f_strsplit('\n', tmp)) do --split string using "\n" delimiter
+		t[i] = c
+	end
+	if #t == 0 then
+		t[1] = tmp
+	end
+	return t
+end
+
+--ensure that correct data type is set
+function main.f_dataType(arg)
+	arg = arg:gsub('^%s*(.-)%s*$', '%1')
+	if tonumber(arg) then
+		arg = tonumber(arg)
+	elseif arg == 'true' then
+		arg = true
+	elseif arg == 'false' then
+		arg = false
+	else
+		arg = tostring(arg)
+	end
+	return arg
+end
+
+--merge 2 tables into 1 overwriting values
+function main.f_tableMerge(t1, t2)
+	for k, v in pairs(t2) do
+		if type(v) == "table" then
+			if type(t1[k] or false) == "table" then
+				main.f_tableMerge(t1[k] or {}, t2[k] or {})
+			else
+				t1[k] = v
+			end
+		elseif type(t1[k] or false) == "table" then
+			t1[k][1] = v
+		else
+			t1[k] = v
+		end
+	end
+	return t1
+end
+
+--check if file exists
+function main.f_fileExists(name)
+	local f = io.open(name,'r')
+	if f ~= nil then
+		io.close(f)
+		return true
+	else
+		return false
+	end
+end
+
+--split strings
+function main.f_strsplit(delimiter, text)
+	local list = {}
+	local pos = 1
+	if string.find('', delimiter, 1) then
+		if string.len(text) == 0 then
+			table.insert(list, text)
+		else
+			for i = 1, string.len(text) do
+				table.insert(list, string.sub(text, i, i))
+			end
+		end
+	else
+		while true do
+			local first, last = string.find(text, delimiter, pos)
+			if first then
+				table.insert(list, string.sub(text, pos, first - 1))
+				pos = last + 1
+			else
+				table.insert(list, string.sub(text, pos))
+				break
+			end
+		end
+	end
+	return list
+end
+
+--expand background table with background controllers data
+function main.f_ctrlBG(t_bg, t_ctrl)
+	local t = {}
+	for k, v in pairs(t_ctrl) do
+		local t1 = t_ctrl[k].ctrl
+		for i = 1, #t1 do
+			for k2, v2 in pairs(t1[i].ctrlid) do
+				local t2 = t1[i].type
+				if t1[i].ctrlid[k2] == t_bg.id and t2 ~= 'null' then
+					if t[t2] == nil then
+						t[t2] = {}
+					end
+					t[t2][#t[t2] + 1] = {}
+					local t3 = t[t2][#t[t2]]
+					t3.time = {t1[i].time[1], t1[i].time[2], t1[i].time[3]}
+					t3.timer = {t1[i].time[1], t1[i].time[2], t1[i].time[3]}
+					if t2 == 'visible' or t2 == 'enable' or t2 == 'anim' or t2 == 'gamemode' then
+						t3.value = t1[i].value
+					elseif t2 == 'sinx' or t2 == 'siny' then
+						t3.value = {t1[i].value[1], t1[i].value[2], t1[i].value[3]}
+					elseif t2 == 'velset' or t2 == 'veladd' or t2 == 'posset' or t2 == 'posadd' then
+						if t1[i].x ~= nil then
+							t3.x = t1[i].x
+						end
+						if t1[i].y ~= nil then
+							t3.y = t1[i].y
+						end
+					end
+				end
+			end
+		end
+	end
+	return t
+end
+
+--draw background layers
+function main.f_drawBG(data, info, layerno, timer)
+	timer = timer or 0
+	--loop through all backgrounds
+	for i = 1, #data do
+		--skip if layerno is not matched
+		if info[i].layerno == layerno then
+			local x = 0
+			local y = 0
+			--loop through controllers
+			for k, v in pairs(info[i].ctrl) do
+				for j = 1, #info[i].ctrl[k] do
+					local t = info[i].ctrl[k][j]
+					--reset internal timer
+					if t.time[3] ~= -1 and timer >= t.timer[3] then
+						t.timer[1] = timer + t.time[1]
+						t.timer[2] = timer + t.time[2]
+						t.timer[3] = timer + t.time[3]
+					end
+					--check if time condition allows controller to run
+					if timer >= t.timer[1] and timer <= t.timer[2] then
+						x = 0
+						y = 0
+						if k == 'gamemode' then --Ikemen feature
+							for m = 1, #t.enabled do
+								info[i].ctrl_flags.enabled = 0
+								if t.enabled[m] == main.gameMode then
+									info[i].ctrl_flags.enabled = 1
+									m = #t.enabled
+								end
+							end
+						elseif k == 'visible' then
+							info[i].ctrl_flags.visible = t.value
+						elseif k == 'enable' then
+							info[i].ctrl_flags.enabled = t.value
+						elseif k == 'velset' or k == 'posset' then
+							if t.x ~= nil then
+								info[i].ctrl_flags.velx = 0 - info[i].velocity[1] + t.x
+							end
+							if t.y ~= nil then
+								info[i].ctrl_flags.vely = 0 - info[i].velocity[2] + t.y
+							end
+						elseif k == 'veladd' or k == 'posadd' then
+							if t.x ~= nil then
+								info[i].ctrl_flags.velx = info[i].ctrl_flags.velx + t.x
+							end
+							if t.y ~= nil then
+								info[i].ctrl_flags.vely = info[i].ctrl_flags.vely + t.y
+							end
+						--[[elseif k == 'posset' then
+							if t.x ~= nil then
+								x = t.x
+							else
+								x = info[i].start[1]
+							end
+							if t.y == nil then
+								y = t.y
+							else
+								y = info[i].start[2]
+							end
+							animSetPos(data[i], x, y)
+							animAddPos(data[i], 160, 0) --for some reason needed in ikemen
+						elseif k == 'posadd' then
+							if t.x ~= nil then x = t.x end
+							if t.y ~= nil then y = t.y end
+							animAddPos(data[i], x, y)]]
+						--elseif k == 'anim' then --not supported yet
+						--elseif k == 'sinx' then --not supported yet
+						--elseif k == 'siny' then --not supported yet
+						end
+					end
+				end
+			end
+			--animation
+			if info[i].ctrl_flags.enabled == 1 then
+				x = (info[i].ctrl_flags.velx + info[i].velocity[1]) * info[i].delta[1]
+				y = (info[i].ctrl_flags.vely + info[i].velocity[2]) * info[i].delta[2]
+				info[i].ctrl_flags.x = info[i].ctrl_flags.x + x
+				info[i].ctrl_flags.y = info[i].ctrl_flags.y + y
+				animAddPos(data[i], x, y)
+				animUpdate(data[i])
+				if info[i].ctrl_flags.visible == 1 then
+					animDraw(data[i])
+				end
+			end
+		end
+	end
+end
+
+--reset screenpack data
+function main.f_resetBG(info, bgdef, bgm)
+	bgm = bgm or nil
+	animReset(info.fadein_data)
+	animUpdate(info.fadein_data)
+	animReset(info.fadeout_data)
+	animUpdate(info.fadeout_data)
+	bgdef.timer = 0
+	for i = 1, #bgdef.bg do
+		bgdef.bg[i].ctrl_flags.visible = 1
+		bgdef.bg[i].ctrl_flags.enabled = 1
+		bgdef.bg[i].ctrl_flags.velx = 0
+		bgdef.bg[i].ctrl_flags.vely = 0
+		animReset(bgdef.bg_data[i])
+		animAddPos(bgdef.bg_data[i], 0 - bgdef.bg[i].ctrl_flags.x, 0 - bgdef.bg[i].ctrl_flags.y)
+		animUpdate(bgdef.bg_data[i])
+		bgdef.bg[i].ctrl_flags.x = 0
+		bgdef.bg[i].ctrl_flags.y = 0
+		for k, v in pairs(bgdef.bg[i].ctrl) do
+			for j = 1, #bgdef.bg[i].ctrl[k] do
+				bgdef.bg[i].ctrl[k][j].timer[1] = bgdef.bg[i].ctrl[k][j].time[1]
+				bgdef.bg[i].ctrl[k][j].timer[2] = bgdef.bg[i].ctrl[k][j].time[2]
+				bgdef.bg[i].ctrl[k][j].timer[3] = bgdef.bg[i].ctrl[k][j].time[3]
+			end
+		end
+	end
+	if bgm ~= nil then
+		playBGM(bgm)
+	end
+end
+
+--return table with reversed keys
+function main.f_reversedTable(t)
+	local reversedTable = {}
+	local itemCount = #t
+	for k, v in ipairs(t) do
+		reversedTable[itemCount + 1 - k] = v
+	end
+	return reversedTable
+end
+
+--return table without rows disabled in screenpack
+function main.f_cleanTable(t)
+	local t_clean = {}
+	for i = 1, #t do
+		if t[i].displayname ~= '' then
+			t_clean[#t_clean + 1] = t[i]
+		end
+	end
+	return t_clean
+end
+
+--warning display
+local txt_warning = textImgNew()
+function main.f_warning(t, info, background, font_info, title, box)
+	font_info = font_info or motif.warning_info
+	title = title or main.txt_warningTitle
+	box = box or main.warningBox
+	main.f_cmdInput()
+	box = box or false
+	while true do
+		if main.f_btnPalNo(main.p1Cmd) > 0 or esc() then
+			sndPlay(motif.files.snd_data, info.cursor_move_snd[1], info.cursor_move_snd[2])
+			break
+		end
+		--draw clearcolor
+		animDraw(background.bgclearcolor_data)
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(background.bg_data, background.bg, 0, background.timer)
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(background.bg_data, background.bg, 1, background.timer)
+		--draw menu box
+		animDraw(box)
+		--draw title
+		textImgDraw(title)
+		--draw text
+		for i = 1, #t do
+			main.f_updateTextImg(
+				txt_warning,
+				motif.font_data[font_info.text_font[1]],
+				font_info.text_font[2],
+				font_info.text_font[3],
+				t[i],
+				font_info.text_pos[1],
+				font_info.text_pos[2] - font_info.text_spacing[2] + i * font_info.text_spacing[2],
+				font_info.text_font_scale[1],
+				font_info.text_font_scale[2],
+				font_info.text_font[4],
+				font_info.text_font[5],
+				font_info.text_font[6]
+			)
+			textImgDraw(txt_warning)
+		end
+		--update timer
+		background.timer = background.timer + 1
+		--end loop
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+--input display
+local txt_input = textImgNew()
+function main.f_input(t, info, background, type)
+	main.f_cmdInput()
+	type = type or 'string'
+	if type == 'string' then
+		t[#t + 1] = ''
+	end
+	local input = ''
+	resetKey()
+	while true do
+		if esc() then
+			input = ''
+			break
+		end
+		if type == 'key' then
+			input = getKey()
+			if input ~= '' then
+				main.f_cmdInput()
+				break
+			end
+		else --string
+			if getKey() == 'RETURN' then
+				main.f_cmdInput()
+				break
+			elseif getKey() == 'BACKSPACE' then
+				input = input:match('^(.-).?$')
+			else
+				input = input .. getKeyText()
+			end
+			t[#t] = input
+			resetKey()
+		end
+		--draw clearcolor
+		animDraw(background.bgclearcolor_data)
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(background.bg_data, background.bg, 0, background.timer)
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(background.bg_data, background.bg, 1, background.timer)
+		--draw menu box
+		animDraw(main.warningBox)
+		--draw text
+		for i = 1, #t do
+			main.f_updateTextImg(
+				txt_input,
+				motif.font_data[motif.warning_info.text_font[1]],
+				motif.warning_info.text_font[2],
+				motif.warning_info.text_font[3],
+				t[i],
+				motif.warning_info.text_pos[1],
+				motif.warning_info.text_pos[2] - motif.warning_info.text_spacing[2] + i * motif.warning_info.text_spacing[2],
+				motif.warning_info.text_font_scale[1],
+				motif.warning_info.text_font_scale[2],
+				motif.warning_info.text_font[4],
+				motif.warning_info.text_font[5],
+				motif.warning_info.text_font[6]
+			)
+			textImgDraw(txt_input)
+		end
+		--update timer
+		background.timer = background.timer + 1
+		--end loop
+		main.f_cmdInput()
+		refresh()
+	end
+	return input
+end
+
+main.nextRefresh = os.clock() + 0.02
+function main.loadingRefresh(txt)
+	if os.clock() >= main.nextRefresh then
+		if txt ~= nil then
+			textImgDraw(txt)
+		end
+		refresh()
+		main.nextRefresh = os.clock() + 0.02
+	end
+end
+
+--;===========================================================
+--; COMMAND LINE QUICK VS
+--;===========================================================
+main.flags = getCommandLineFlags()
+if main.flags['-p1'] ~= nil and main.flags['-p2'] ~= nil then
+	--load lifebar
+	local sp = config.Motif
+	if main.flags['-r'] ~= nil then
+		if main.f_fileExists(main.flags['-r']) then
+			sp = main.flags['-r']
+		elseif main.f_fileExists('data/' .. main.flags['-r'] .. '/system.def') then
+			sp = 'data/' .. main.flags['-r'] .. '/system.def'
+		end
+	end
+	local fileDir = sp:match('^(.-)[^/\\]+$')
+	local file = io.open(sp,"r")
+	local s = file:read("*all")
+	file:close()
+	local lifebar = s:match('fight%s*=%s*(.-%.def)%s*')
+	if main.f_fileExists(lifebar) then
+		loadLifebar(lifebar)
+	elseif main.f_fileExists(fileDir .. lifebar) then
+		loadLifebar(fileDir .. lifebar)
+	elseif main.f_fileExists('data/' .. lifebar) then
+		loadLifebar('data/' .. lifebar)
+	else
+		loadLifebar('data/fight.def')
+	end
+	refresh()
+	--add chars
+	local p1NumChars = 0
+	local p2NumChars = 0
+	local t = {}
+	for k, v in pairs(main.flags) do
+		if k:match('^-p[1-8]$') then
+			addChar(v)
+			local num = tonumber(k:match('^-p([1-8])'))
+			local player = 1
+			if num % 2 == 0 then --even value
+				player = 2
+				p2NumChars = p2NumChars + 1
+			else
+				p1NumChars = p1NumChars + 1
+			end
+			local pal = 1
+			if main.flags['-p' .. num .. '.pal'] ~= nil then
+				pal = main.flags['-p' .. num .. '.pal']
+			end
+			local ai = 0
+			if main.flags['-p' .. num .. '.ai'] ~= nil then
+				ai = main.flags['-p' .. num .. '.ai']
+			end
+			t[#t + 1] = {player = player, num = num - 1, pal = tonumber(pal), ai = tonumber(ai)}
+			refresh()
+		end
+	end
+	local p1TeamMode = 0
+	if p1NumChars > 1 then
+		p1TeamMode = 1
+	end
+	local p2TeamMode = 0
+	if p2NumChars > 1 then
+		p2TeamMode = 1
+	end
+	--add stage
+	local stage = 'stages/stage0.def'
+	if main.flags['-s'] ~= nil then
+		if main.f_fileExists(main.flags['-s']) then
+			stage = main.flags['-s']
+		elseif main.f_fileExists('stages/' .. main.flags['-s'] .. '.def') then
+			stage = 'stages/' .. main.flags['-s'] .. '.def'
+		end
+	end
+	addStage(stage)
+	--load data
+	loadDebugFont('font/f-6x9.fnt')
+	setDebugScript('script/debug.lua')
+	setMatchNo(1)
+	selectStart()
+	setStage(0)
+	selectStage(0)
+	setTeamMode(1, p1TeamMode, p1NumChars)
+	setTeamMode(2, p2TeamMode, p2NumChars)
+	for i = 1, #t do
+		selectChar(t[i].player, t[i].num, t[i].pal)
+		setCom(t[i].player, t[i].ai)
+	end
+	local winner, t_gameStats = game()
+	if main.flags['-log'] ~= nil then
+		main.f_printTable(t_gameStats, main.flags['-log'])
+	end
+	--exit ikemen
+	return
+end
+
+--;===========================================================
+--; LOAD DATA
+--;===========================================================
+main.fadeSff = sffNew('data/fade.sff')
+
+motif = require('script.motif')
+
+setPortrait(motif.select_info.p1_face_spr[1], motif.select_info.p1_face_spr[2], 1) --Big portrait
+setPortrait(motif.select_info.portrait_spr[1], motif.select_info.portrait_spr[2], 2) --Small portrait
+setPortrait(motif.vs_screen.p1_spr[1], motif.vs_screen.p1_spr[2], 3) --Versus portrait
+setPortrait(motif.victory_screen.p1_spr[1], motif.victory_screen.p1_spr[2], 4) --Victory portrait
+
+main.cursorBox = animNew(main.fadeSff, '0,1, 0,0, -1')
+animSetTile(main.cursorBox, 1, 1)
+animUpdate(main.cursorBox)
+
+main.warningBox = animNew(main.fadeSff, '0,0, 0,0, -1')
+animSetTile(main.warningBox, 1, 1)
+animSetAlpha(main.warningBox, motif.warning_info.background_alpha[1], motif.warning_info.background_alpha[2])
+animSetWindow(main.warningBox, 0, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+animUpdate(main.warningBox)
+
+main.infoBox = animNew(main.fadeSff, '0,0, 0,0, -1')
+animSetTile(main.infoBox, 1, 1)
+animSetAlpha(main.infoBox, motif.infobox.background_alpha[1], motif.infobox.background_alpha[2])
+animSetWindow(main.infoBox, 0, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+animUpdate(main.infoBox)
+
+
+main.txt_warningTitle = main.f_createTextImg(
+	motif.font_data[motif.warning_info.title_font[1]],
+	motif.warning_info.title_font[2],
+	motif.warning_info.title_font[3],
+	motif.warning_info.title,
+	motif.warning_info.title_pos[1],
+	motif.warning_info.title_pos[2],
+	motif.warning_info.title_font_scale[1],
+	motif.warning_info.title_font_scale[2],
+	motif.warning_info.title_font[4],
+	motif.warning_info.title_font[5],
+	motif.warning_info.title_font[6]
+)
+
+main.SetDefaultScale()
+
+local footerBox = animNew(main.fadeSff, '0,2, 0,0, -1')
+animSetTile(footerBox, 1, 1)
+animSetWindow(
+	footerBox,
+	motif.title_info.footer_boxbackground_coords[1],
+	motif.title_info.footer_boxbackground_coords[2],
+	motif.title_info.footer_boxbackground_coords[3] - motif.title_info.footer_boxbackground_coords[1] + 1,
+	motif.title_info.footer_boxbackground_coords[4] - motif.title_info.footer_boxbackground_coords[2] + 1
+)
+animSetAlpha(footerBox, motif.title_info.footer_boxbackground_alpha[1], motif.title_info.footer_boxbackground_alpha[2])
+animUpdate(footerBox)
+
+main.SetScaleValues()
+
+--add characters and stages using select.def instead of select.lua
+local txt_loading = main.f_createTextImg(
+	motif.font_data[motif.title_info.loading_font[1]],
+	motif.title_info.loading_font[2],
+	motif.title_info.loading_font[3],
+	motif.title_info.loading_text,
+	motif.title_info.loading_offset[1],
+	motif.title_info.loading_offset[2],
+	motif.title_info.loading_font_scale[1],
+	motif.title_info.loading_font_scale[2],
+	motif.title_info.loading_font[4],
+	motif.title_info.loading_font[5],
+	motif.title_info.loading_font[6]
+)
+textImgDraw(txt_loading)
+refresh()
+
+function main.f_addChar(line, row)
+	local tmp = ''
+	local order = false
+	local hidden = 0
+	for i, c in ipairs(main.f_strsplit(',', line)) do
+		c = c:match('^%s*(.-)%s*$')
+		if i == 1 then
+			c = c:gsub('\\', '/')
+			c = tostring(c)
+			main.t_selChars[row] = {}
+			addChar(c)
+			tmp = getCharName(row - 1):match('^["%s]*(.-)["%s]*$') --needed for s-size ikemen
+			if tmp == '' then
+				break
+			end
+			main.t_charDef[c] = row - 1
+			main.t_selChars[row].char = c
+			if tmp ~= 'Random' then
+				main.t_selChars[row].displayname = tmp
+				main.t_selChars[row].def = getCharFileName(row - 1)
+				main.t_selChars[row].dir = main.t_selChars[row].def:gsub('[^/]+%.def$', '')
+				main.t_selChars[row].pal = getCharPalettes(row - 1)
+				if tmp ~= 'Training' then
+					tmp = getCharIntro(row - 1)
+					if tmp ~= '' then
+						main.t_selChars[row].intro = main.t_selChars[row].dir .. tmp:gsub('\\', '/')
+					end
+					tmp = getCharEnding(row - 1)
+					if tmp ~= '' then
+						main.t_selChars[row].ending = main.t_selChars[row].dir .. tmp:gsub('\\', '/')
+					end
+					main.t_selChars[row].order = 1
+					order = true
+				end
+			else
+				break
+			end
+		elseif c:match('music%s*=%s*') then
+			c = c:gsub('\\', '/')
+			local bgmvolume = c:match('%s([0-9]+)$')
+			if bgmvolume == nil then
+				bgmvolume = 100
+			else
+				bgmvolume = tonumber(bgmvolume)
+				c = c:gsub('%s*[0-9]+$','')
+			end
+			local bgmusic = c:match('^music%s*=%s*(.-)%s*$')
+			if main.t_selChars[row].music == nil then
+				main.t_selChars[row].music = {}
+			end
+			main.t_selChars[row].music[#main.t_selChars[row].music + 1] = {}
+			main.t_selChars[row].music[#main.t_selChars[row].music].bgmusic = bgmusic
+			main.t_selChars[row].music[#main.t_selChars[row].music].bgmvolume = bgmvolume
+		elseif c:match('[0-9]+%s*=%s*[^%s]') then
+			local var1, var2 = c:match('([0-9]+)%s*=%s*(.+)%s*$')
+			main.t_selChars[row][tonumber(var1)] = var2:lower()
+		elseif c:match('%.def') or c:match('^random$') then
+			c = c:gsub('\\', '/')
+			if main.t_selChars[row].stage == nil then
+				main.t_selChars[row].stage = {}
+			end
+			main.t_selChars[row].stage[#main.t_selChars[row].stage + 1] = c
+		else
+			local param, value = c:match('^(.-)%s*=%s*(.-)$')
+			if param ~= '' and value ~= '' and param ~= nil and value ~= nil then
+				main.t_selChars[row][param] = tonumber(value)
+			end
+		end
+	end
+	if main.t_selChars[row].exclude == nil then
+		main.t_selChars[row].hidden = hidden
+	end
+	if order then
+		if main.t_orderChars[main.t_selChars[row].order] == nil then
+			main.t_orderChars[main.t_selChars[row].order] = {}
+		end
+		main.t_orderChars[main.t_selChars[row].order][#main.t_orderChars[main.t_selChars[row].order] + 1] = row - 1
+	end
+	main.loadingRefresh(txt_loading)
+end
+
+--start_time = os.time()
+main.t_includeStage = {}
+main.t_orderChars = {}
+main.t_stageDef = {['random'] = 0}
+main.t_charDef = {}
+local t_exlude = {}
+local chars = 0
+local stages = 0
+local tmp = ''
+local section = 0
+local row = 0
+local file = io.open(motif.files.select,"r")
+local content = file:read("*all")
+file:close()
+content = content:gsub('([^\r\n;]*)%s*;[^\r\n]*', '%1')
+content = content:gsub('\n%s*\n', '\n')
+for line in content:gmatch('[^\r\n]+') do
+--for line in io.lines("data/select.def") do
+	line = line:lower()
+	if line:match('^%s*%[%s*characters%s*%]') then
+		main.t_selChars = {}
+		row = 0
+		section = 1
+	elseif line:match('^%s*%[%s*extrastages%s*%]') then
+		main.t_selStages = {}
+		row = 0
+		section = 2
+	elseif line:match('^%s*%[%s*options%s*%]') then
+		main.t_selOptions = {
+			arcadestart = {wins = 0, offset = 0},
+			arcadeend = {wins = 0, offset = 0},
+			teamstart = {wins = 0, offset = 0},
+			teamend = {wins = 0, offset = 0},
+			survivalstart = {wins = 0, offset = 0},
+			survivalend = {wins = 0, offset = 0},
+		}
+		row = 0
+		section = 3
+	elseif section == 1 then --[Characters]
+		if line:match(',%s*exclude%s*=%s*1') then --character should be added after all slots are filled
+			t_exlude[#t_exlude + 1] = line
+		else
+			chars = chars + 1
+			main.f_addChar(line, chars)
+		end
+	elseif section == 2 then --[ExtraStages]
+		row = #main.t_selStages + 1
+		for i, c in ipairs(main.f_strsplit(',', line)) do
+			c = c:gsub('^%s*(.-)%s*$', '%1')
+			if i == 1 then
+				c = c:gsub('\\', '/')
+				if not main.f_fileExists(c) or c:match('^stages/$') then
+					break
+				end
+				addStage(c)
+				tmp = getStageName(row):match('^["%s]*(.-)["%s]*$') --needed for s-size ikemen
+				if tmp == '' then
+					break
+				end
+				main.t_selStages[row] = {name = tmp, stage = c}
+				local zoomout, zoomin, bgmusic, bgmvolume = getStageInfo(row)
+				if zoomout ~= '' then
+					main.t_selStages[row].zoommin = tonumber(zoomout)
+				end
+				if zoomin ~= '' then
+					main.t_selStages[row].zoommax = tonumber(zoomin)
+				end
+				if bgmusic ~= '' then
+					bgmusic = bgmusic:gsub('\\', '/')
+					main.t_selStages[row].music = {[1] = {bgmusic = bgmusic, bgmvolume = tonumber(bgmvolume)}}
+				end
+				main.t_includeStage[#main.t_includeStage + 1] = row
+				main.t_stageDef[c] = row
+			elseif c:match('music%s*=%s*') then
+				c = c:gsub('\\', '/')
+				local bgmvolume = c:match('%s([0-9]+)$')
+				if bgmvolume == nil then
+					bgmvolume = 100
+				else
+					bgmvolume = tonumber(bgmvolume)
+					c = c:gsub('%s*[0-9]+$','')
+				end
+				local bgmusic = c:match('^music%s*=%s*(.-)%s*$')
+				if main.t_selStages[row].music == nil then
+					main.t_selStages[row].music = {}
+				end
+				main.t_selStages[row].music[#main.t_selStages[row].music+1] = {bgmusic = bgmusic, bgmvolume = bgmvolume}
+			else
+				local param, value = c:match('^(.-)%s*=%s*(.-)$')
+				main.t_selStages[row][param] = tonumber(value)
+			end
+		end
+	elseif section == 3 then --[Options]
+		if line:match('^%s*.-%.maxmatches%s*=%s*') then
+			local rowName, line = line:match('^%s*(.-)%.maxmatches%s*=%s*(.+)')
+			main.t_selOptions[rowName .. 'maxmatches'] = {}
+			for i, c in ipairs(main.f_strsplit(',', line:gsub('%s*(.-)%s*', '%1'))) do
+				main.t_selOptions[rowName .. 'maxmatches'][i] = tonumber(c)
+			end
+		elseif line:match('^%s*.-%.airamp%..-%s*=%s*') then
+			local rowName, rowName2, wins, offset = line:match('^%s*(.-)%.airamp%.(.-)%s*=%s*([0-9]+)%s*,%s*([0-9-]+)')
+			main.t_selOptions[rowName .. rowName2] = {wins = tonumber(wins), offset = tonumber(offset)}
+		end
+	end
+end
+--main.f_printVar(os.difftime(os.time(), start_time))
+
+--add excluded characters once all slots are filled
+for i = chars, (motif.select_info.rows + motif.select_info.rows_scrolling) * motif.select_info.columns - 1 do
+	chars = chars + 1
+	main.t_selChars[chars] = {}
+	addChar('dummyChar')
+end
+for i = 1, #t_exlude do
+	chars = chars + 1
+	main.f_addChar(t_exlude[i], chars)
+end
+--add Training by stupa if not included in select.def
+if main.t_charDef.training == nil and main.f_fileExists('chars/training/training.def') then
+	chars = chars + 1
+	main.f_addChar('training, exclude = 1', chars)
+end
+
+--add remaining character parameters
+main.t_bossChars = {}
+main.t_bonusChars = {}
+main.t_randomChars = {}
+--for each character loaded
+for i = 1, #main.t_selChars do
+	if main.t_selChars[i].stage ~= nil then
+		for j = 1, #main.t_selChars[i].stage do
+			if main.t_stageDef[main.t_selChars[i].stage[j]] == nil then
+				row = #main.t_selStages + 1
+				addStage(main.t_selChars[i].stage[j])
+				tmp = getStageName(row):match('^["%s]*(.-)["%s]*$') --needed for s-size ikemen
+				if tmp == '' then
+					break
+				end
+				main.t_selStages[row] = {name = tmp, stage = main.t_selChars[i].stage[j]}
+				local zoomout, zoomin, bgmusic, bgmvolume = getStageInfo(row)
+				if zoomout ~= '' then
+					main.t_selStages[row].zoommin = tonumber(zoomout)
+				end
+				if zoomin ~= '' then
+					main.t_selStages[row].zoommax = tonumber(zoomin)
+				end
+				if bgmusic ~= '' then
+					bgmusic = bgmusic:gsub('\\', '/')
+					main.t_selStages[row].music = {}
+					main.t_selStages[row].music[1] = {bgmusic = bgmusic, bgmvolume = tonumber(bgmvolume)}
+				end
+				if main.t_selChars[i].includestage == nil or main.t_selChars[i].includestage == 1 then
+					main.t_includeStage[#main.t_includeStage + 1] = row
+				end
+				main.t_selChars[i].stage[j] = row
+				--main.t_stageDef[main.t_selChars[i].stage[j]] = row
+			else
+				main.t_selChars[i].stage[j] = main.t_stageDef[main.t_selChars[i].stage[j]]
+			end
+		end
+	end
+	--if character's name has been stored
+	if main.t_selChars[i].displayname ~= nil then
+		--generate table for boss rush mode
+		if main.t_selChars[i].boss ~= nil and main.t_selChars[i].boss == 1 then
+			main.t_bossChars[#main.t_bossChars + 1] = i - 1
+		end
+		--generate table for bonus games mode
+		if main.t_selChars[i].bonus ~= nil and main.t_selChars[i].bonus == 1 then
+			main.t_bonusChars[#main.t_bonusChars + 1] = i - 1
+		end
+		--generate table with characters allowed to be random selected
+		if main.t_selChars[i].hidden ~= nil and main.t_selChars[i].hidden <= 1 then
+			main.t_randomChars[#main.t_randomChars + 1] = i - 1
+		end
+	end
+end
+
+--Save debug tables
+main.f_printTable(main.t_selChars, "debug/t_selChars.txt")
+main.f_printTable(main.t_selStages, "debug/t_selStages.txt")
+main.f_printTable(main.t_selOptions, "debug/t_selOptions.txt")
+main.f_printTable(main.t_orderChars, "debug/t_orderChars.txt")
+main.f_printTable(main.t_randomChars, "debug/t_randomChars.txt")
+main.f_printTable(main.t_bossChars, "debug/t_bossChars.txt")
+main.f_printTable(main.t_bonusChars, "debug/t_bonusChars.txt")
+main.f_printTable(main.t_stageDef, "debug/t_stageDef.txt")
+main.f_printTable(main.t_charDef, "debug/t_charDef.txt")
+main.f_printTable(main.t_includeStage, "debug/t_includeStage.txt")
+
+--Debug stuff
+loadDebugFont(motif.files.debug_font)
+setDebugScript(motif.files.debug_script)
+
+--Assign Lifebar
+textImgDraw(txt_loading)
+refresh()
+loadLifebar(motif.files.fight)
+main.loadingRefresh(txt_loading)
+
+--warnings
+if main.t_charDef.training == nil then
+	main.f_warning(main.f_extractText(motif.warning_info.text_training), motif.title_info, motif.titlebgdef)
+	os.exit()
+end
+
+if #main.t_includeStage == 0 then
+	main.f_warning(main.f_extractText(motif.warning_info.text_stages), motif.title_info, motif.titlebgdef)
+	os.exit()
+end
+
+local t = {'arcademaxmatches', 'teammaxmatches'}
+for i = 1, #t do
+	local orderOK = false
+	for j = 1, #main.t_selOptions[t[i]] do
+		if main.t_selOptions[t[i]][j] > 0 and main.t_orderChars[j] ~= nil and #main.t_orderChars[j] > 0 then
+			orderOK = true
+			break
+		end
+	end
+	if not orderOK then
+		main.f_warning(main.f_extractText(motif.warning_info.text_order), motif.title_info, motif.titlebgdef)
+		os.exit()
+	end
+end
+
+--Load additional scripts
+randomtest = require('script.randomtest')
+options = require('script.options')
+select = require('script.select')
+storyboard = require('script.storyboard')
+
+--;===========================================================
+--; MAIN MENU
+--;===========================================================
+
+--Disable screenpack scale on the text for showing them corectly.
+main.SetDefaultScale()
+
+local txt_titleFooter1 = main.f_createTextImg(
+	motif.font_data[motif.title_info.footer1_font[1]],
+	motif.title_info.footer1_font[2],
+	motif.title_info.footer1_font[3],
+	motif.title_info.footer1_text,
+	motif.title_info.footer1_offset[1],
+	motif.title_info.footer1_offset[2],
+	motif.title_info.footer1_font_scale[1],
+	motif.title_info.footer1_font_scale[2],
+	motif.title_info.footer1_font[4],
+	motif.title_info.footer1_font[5],
+	motif.title_info.footer1_font[6]
+)
+local txt_titleFooter2 = main.f_createTextImg(
+	motif.font_data[motif.title_info.footer2_font[1]],
+	motif.title_info.footer2_font[2],
+	motif.title_info.footer2_font[3],
+	motif.title_info.footer2_text,
+	motif.title_info.footer2_offset[1],
+	motif.title_info.footer2_offset[2],
+	motif.title_info.footer2_font_scale[1],
+	motif.title_info.footer2_font_scale[2],
+	motif.title_info.footer2_font[4],
+	motif.title_info.footer2_font[5],
+	motif.title_info.footer2_font[6]
+)
+local txt_titleFooter3 = main.f_createTextImg(
+	motif.font_data[motif.title_info.footer3_font[1]],
+	motif.title_info.footer3_font[2],
+	motif.title_info.footer3_font[3],
+	motif.title_info.footer3_text,
+	motif.title_info.footer3_offset[1],
+	motif.title_info.footer3_offset[2],
+	motif.title_info.footer3_font_scale[1],
+	motif.title_info.footer3_font_scale[2],
+	motif.title_info.footer3_font[4],
+	motif.title_info.footer3_font[5],
+	motif.title_info.footer3_font[6]
+)
+local txt_infoboxTitle = main.f_createTextImg(
+	motif.font_data[motif.infobox.title_font[1]],
+	motif.infobox.title_font[2],
+	motif.infobox.title_font[3],
+	motif.infobox.title,
+	motif.infobox.title_pos[1],
+	motif.infobox.title_pos[2],
+	motif.infobox.title_font_scale[1],
+	motif.infobox.title_font_scale[2],
+	motif.infobox.title_font[4],
+	motif.infobox.title_font[5],
+	motif.infobox.title_font[6]
+)
+
+--Enable screenpack scale again.
+main.SetScaleValues()
+
+main.txt_mainSelect = main.f_createTextImg(
+	motif.font_data[motif.select_info.title_font[1]],
+	motif.select_info.title_font[2],
+	motif.select_info.title_font[3],
+	'',
+	motif.select_info.title_offset[1],
+	motif.select_info.title_offset[2],
+	motif.select_info.title_font_scale[1],
+	motif.select_info.title_font_scale[2],
+	motif.select_info.title_font[4],
+	motif.select_info.title_font[5],
+	motif.select_info.title_font[6]
+)
+
+--itemname: names used to distinguish modes in lua code (keep it as it is)
+--displayname: names for each of the items in the menu
+--selectname: names that will show up in select screen
+local t_mainMenu = {
+	{data = textImgNew(), itemname = 'arcade', displayname = motif.title_info.menu_itemname_arcade, selectname = motif.select_info.title_text_arcade},
+	{data = textImgNew(), itemname = 'versus', displayname = motif.title_info.menu_itemname_versus, selectname = motif.select_info.title_text_versus},
+	{data = textImgNew(), itemname = 'online', displayname = motif.title_info.menu_itemname_online},
+	{data = textImgNew(), itemname = 'teamcoop', displayname = motif.title_info.menu_itemname_teamcoop, selectname = motif.select_info.title_text_teamcoop},
+	{data = textImgNew(), itemname = 'survival', displayname = motif.title_info.menu_itemname_survival, selectname = motif.select_info.title_text_survival},
+	{data = textImgNew(), itemname = 'survivalcoop', displayname = motif.title_info.menu_itemname_survivalcoop, selectname = motif.select_info.title_text_survivalcoop},
+	--{data = textImgNew(), itemname = 'storymode', displayname = motif.title_info.menu_itemname_storymode, selectname = motif.select_info.title_text_storymode},
+	--{data = textImgNew(), itemname = 'timeattack', displayname = motif.title_info.menu_itemname_timeattack, selectname = motif.select_info.title_text_timeattack},
+	--{data = textImgNew(), itemname = 'tournament', displayname = motif.title_info.menu_itemname_tournament},
+	{data = textImgNew(), itemname = 'training', displayname = motif.title_info.menu_itemname_training, selectname = motif.select_info.title_text_training},
+	{data = textImgNew(), itemname = 'watch', displayname = motif.title_info.menu_itemname_watch, selectname = motif.select_info.title_text_watch},
+	{data = textImgNew(), itemname = 'extras', displayname = motif.title_info.menu_itemname_extras},
+	{data = textImgNew(), itemname = 'options', displayname = motif.title_info.menu_itemname_options},
+	{data = textImgNew(), itemname = 'exit', displayname = motif.title_info.menu_itemname_exit},
+}
+t_mainMenu = main.f_cleanTable(t_mainMenu)
+
+function main.f_default()
+	setAutoLevel(false) --generate autolevel.txt in game dir
+	setHomeTeam(2) --P2 side considered the home team: http://mugenguild.com/forum/topics/ishometeam-triggers-169132.0.html
+	resetRemapInput()
+	--settings adjustable via options
+	setAutoguard(1, config.AutoGuard)
+	setAutoguard(2, config.AutoGuard)
+	setPowerShare(1, config.TeamPowerShare)
+	setPowerShare(2, config.TeamPowerShare)
+	setLifeShare(config.TeamLifeShare)
+	setRoundTime(config.RoundTime * options.framespercount)
+	setLifeMul(config.LifeMul / 100)
+	setTeam1VS2Life(config.Team1VS2Life / 100)
+	setTurnsRecoveryRate(1.0 / config.TurnsRecoveryRate)
+	--default values for all modes
+	main.p1Char = nil --no predefined P1 character (assigned via table: {X, Y, (...)})
+	main.p2Char = nil --no predefined P2 character (assigned via table: {X, Y, (...)})
+	main.p1TeamMenu = nil --no predefined P1 team mode (assigned via table: {mode = X, chars = Y})
+	main.p2TeamMenu = nil --no predefined P2 team mode (assigned via table: {mode = X, chars = Y})
+	main.aiFight = false --AI = config.Difficulty for all characters disabled
+	main.stageMenu = false --stage selection disabled
+	main.p2Faces = false --additional window with P2 select screen small portraits (faces) disabled
+	main.coop = false --P2 fighting on P1 side disabled
+	main.p2SelectMenu = true --P2 character selection enabled
+	main.versusScreen = true --versus screen enabled
+	main.p1In = 1 --P1 controls P1 side of the select screen
+	main.p2In = 2 --P2 controls P2 side of the select screen
+	main.gameMode = '' --additional variable used to distinguish modes in select screen
+end
+
+function main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+	if commandGetState(main.p1Cmd, 'u') or commandGetState(main.p2Cmd, 'u') then
+		sndPlay(motif.files.snd_data, motif.title_info.cursor_move_snd[1], motif.title_info.cursor_move_snd[2])
+		item = item - 1
+	elseif commandGetState(main.p1Cmd, 'd') or commandGetState(main.p2Cmd, 'd') then
+		sndPlay(motif.files.snd_data, motif.title_info.cursor_move_snd[1], motif.title_info.cursor_move_snd[2])
+		item = item + 1
+	end
+	--cursor position calculation
+	if item < 1 then
+		item = #t
+		if #t > motif.title_info.menu_window_visibleitems then
+			cursorPosY = motif.title_info.menu_window_visibleitems
+		else
+			cursorPosY = #t
+		end
+	elseif item > #t then
+		item = 1
+		cursorPosY = 1
+	elseif (commandGetState(main.p1Cmd, 'u') or commandGetState(main.p2Cmd, 'u') ) and cursorPosY > 1 then
+		cursorPosY = cursorPosY - 1
+	elseif (commandGetState(main.p1Cmd, 'd') or commandGetState(main.p2Cmd, 'd') ) and cursorPosY < motif.title_info.menu_window_visibleitems then
+		cursorPosY = cursorPosY + 1
+	end
+	if cursorPosY == motif.title_info.menu_window_visibleitems then
+		moveTxt = (item - motif.title_info.menu_window_visibleitems) * motif.title_info.menu_item_spacing[2]
+	elseif cursorPosY == 1 then
+		moveTxt = (item - 1) * motif.title_info.menu_item_spacing[2]
+	end
+	return cursorPosY, moveTxt, item
+end
+
+function main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	--draw clearcolor
+	animDraw(motif.titlebgdef.bgclearcolor_data)
+	--draw layerno = 0 backgrounds
+	main.f_drawBG(motif.titlebgdef.bg_data, motif.titlebgdef.bg, 0, motif.titlebgdef.timer)
+	--draw menu items
+	local items_shown = item + motif.title_info.menu_window_visibleitems - cursorPosY
+	if motif.title_info.menu_window_margins_y[2] ~= 0 and items_shown < #t then
+		items_shown = items_shown + 1
+	end
+	if items_shown > #t then
+		items_shown = #t
+	end
+	for i = 1, items_shown do
+		if i > item - cursorPosY then
+			if i == item then
+				textImgDraw(main.f_updateTextImg(
+					t[i].data,
+					motif.font_data[motif.title_info.menu_item_active_font[1]],
+					motif.title_info.menu_item_active_font[2],
+					motif.title_info.menu_item_active_font[3],
+					t[i].displayname,
+					motif.title_info.menu_pos[1],
+					motif.title_info.menu_pos[2] + (i - 1) * motif.title_info.menu_item_spacing[2] - moveTxt,
+					motif.title_info.menu_item_active_font_scale[1],
+					motif.title_info.menu_item_active_font_scale[2],
+					motif.title_info.menu_item_active_font[4],
+					motif.title_info.menu_item_active_font[5],
+					motif.title_info.menu_item_active_font[6]
+				))
+			else
+				textImgDraw(main.f_updateTextImg(
+					t[i].data,
+					motif.font_data[motif.title_info.menu_item_font[1]],
+					motif.title_info.menu_item_font[2],
+					motif.title_info.menu_item_font[3],
+					t[i].displayname,
+					motif.title_info.menu_pos[1],
+					motif.title_info.menu_pos[2] + (i - 1) * motif.title_info.menu_item_spacing[2] - moveTxt,
+					motif.title_info.menu_item_font_scale[1],
+					motif.title_info.menu_item_font_scale[2],
+					motif.title_info.menu_item_font[4],
+					motif.title_info.menu_item_font[5],
+					motif.title_info.menu_item_font[6]
+				))
+			end
+		end
+	end
+	--draw menu cursor
+	if motif.title_info.menu_boxcursor_visible == 1 then
+		animSetWindow(
+			main.cursorBox,
+			motif.title_info.menu_pos[1] + motif.title_info.menu_boxcursor_coords[1],
+			motif.title_info.menu_pos[2] + motif.title_info.menu_boxcursor_coords[2] + (cursorPosY - 1) * motif.title_info.menu_item_spacing[2],
+			motif.title_info.menu_boxcursor_coords[3] - motif.title_info.menu_boxcursor_coords[1] + 1,
+			motif.title_info.menu_boxcursor_coords[4] - motif.title_info.menu_boxcursor_coords[2] + 1
+		)
+		main.f_dynamicAlpha(main.cursorBox, 10,40,2, 255,255,0)
+		animDraw(main.cursorBox)
+	end
+	--draw layerno = 1 backgrounds
+	main.f_drawBG(motif.titlebgdef.bg_data, motif.titlebgdef.bg, 1, motif.titlebgdef.timer)
+	--footer draw
+	if motif.title_info.footer_boxbackground_visible == 1 then
+		animDraw(footerBox)
+	end
+	textImgDraw(txt_titleFooter1)
+	textImgDraw(txt_titleFooter2)
+	textImgDraw(txt_titleFooter3)
+	--draw fadein
+	animDraw(motif.title_info.fadein_data)
+	animUpdate(motif.title_info.fadein_data)
+	--update timer
+	motif.titlebgdef.timer = motif.titlebgdef.timer + 1
+	--end loop
+	main.f_cmdInput()
+	refresh()
+end
+
+function main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+	--[[for i = 1, motif.title_info.fadeout_time do
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+		animDraw(motif.title_info.fadeout_data)
+		animUpdate(motif.title_info.fadeout_data)
+	end]]
+end
+
+function main.f_mainMenu()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_mainMenu
+	if motif.files.logo_storyboard ~= '' then
+		storyboard.f_storyboard(motif.files.logo_storyboard)
+	end
+	if motif.files.intro_storyboard ~= '' then
+		storyboard.f_storyboard(motif.files.intro_storyboard)
+	end
+	main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			break
+		elseif getKey() == 'F1' then
+			main.SetDefaultScale()
+			main.f_warning(main.f_extractText(motif.infobox.text), motif.title_info, motif.titlebgdef, motif.infobox, txt_infoboxTitle, main.infoBox)
+			main.SetScaleValues()
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--ARCADE
+			if t[item].itemname == 'arcade' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1 --P1 controls P2 side of the select screen
+				main.p2SelectMenu = false --P2 character selection disabled
+				main.credits = config.Credits - 1 --amount of continues
+				main.gameMode = t[item].itemname --mode recognized in select screen as 'arcade'
+				textImgSetText(main.txt_mainSelect, t[item].selectname) --message displayed on top of select screen
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance() --start f_selectAdvance() function from script/select.lua
+			end
+			--VS MODE
+			if t[item].itemname == 'versus' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				setHomeTeam(1) --P1 side considered the home team
+				main.p2In = 2 --P2 controls P2 side of the select screen
+				main.stageMenu = true --stage selection enabled
+				main.p2Faces = true --additional window with P2 select screen small portraits (faces) enabled
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectSimple() --start f_selectSimple() function from script/select.lua
+			end
+			--ONLINE
+			if t[item].itemname == 'online' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_mainNetplay()
+			end
+			--TEAM CO-OP
+			if t[item].itemname == 'teamcoop' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 2
+				main.p2Faces = true
+				main.coop = true --P2 fighting on P1 side enabled
+				main.credits = config.Credits - 1
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance()
+			end
+			--SURVIVAL
+			if t[item].itemname == 'survival' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1
+				main.p2SelectMenu = false
+				main.credits = 0
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance()
+			end
+			--SURVIVAL CO-OP
+			if t[item].itemname == 'survivalcoop' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 2
+				main.p2Faces = true
+				main.coop = true
+				main.credits = 0
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance()
+			end
+			--TOURNAMENT
+			if t[item].itemname == 'tournament' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_mainTournament()
+			end
+			--TRAINING
+			if t[item].itemname == 'training' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				setRoundTime(-1) --round time disabled
+				main.p2In = 2
+				main.stageMenu = true
+				main.versusScreen = false --versus screen disabled
+				main.p2TeamMenu = {mode = 0, chars = 1} --predefined P2 team mode as Single, 1 Character
+				main.p2Char = {main.t_charDef.training} --predefined P2 character as Training by stupa
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectSimple()
+			end
+			--WATCH
+			if t[item].itemname == 'watch' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1
+				main.aiFight = true --AI = config.Difficulty for all characters enabled
+				main.stageMenu = true
+				main.p2Faces = true
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectSimple()
+			end
+			--EXTRAS
+			if t[item].itemname == 'extras' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_mainExtras()
+			end
+			--OPTIONS
+			if t[item].itemname == 'options' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)				
+				--Disable screenpack scale on the menu text for showing the menu corectly.
+				main.SetDefaultScale()
+				options.f_mainCfg() --start f_mainCfg() function from script/options.lua
+				--Enable screenpack scale again.
+				main.SetScaleValues()
+			end
+			--EXIT
+			if t[item].itemname == 'exit' then
+				break
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; NETPLAY MENU
+--;===========================================================
+local txt_connection = main.f_createTextImg(
+	motif.font_data[motif.title_info.connecting_font[1]],
+	motif.title_info.connecting_font[2],
+	motif.title_info.connecting_font[3],
+	"",
+	motif.title_info.connecting_offset[1],
+	motif.title_info.connecting_offset[2],
+	motif.title_info.connecting_font_scale[1],
+	motif.title_info.connecting_font_scale[2],
+	motif.title_info.connecting_font[4],
+	motif.title_info.connecting_font[5],
+	motif.title_info.connecting_font[6]
+)
+function main.f_connect(server, t)
+	local cancel = false
+	enterNetPlay(server)
+	while not connected() do
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			cancel = true
+			break
+		end
+		--draw clearcolor
+		animDraw(motif.titlebgdef.bgclearcolor_data)
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(motif.titlebgdef.bg_data, motif.titlebgdef.bg, 0, motif.titlebgdef.timer)
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(motif.titlebgdef.bg_data, motif.titlebgdef.bg, 1, motif.titlebgdef.timer)
+		--draw menu box
+		animDraw(main.warningBox)
+		--draw text
+		for i = 1, #t do
+			textImgSetText(txt_connection, t[i])
+			textImgDraw(txt_connection)
+		end
+		--update timer
+		motif.titlebgdef.timer = motif.titlebgdef.timer + 1
+		--end loop
+		refresh()
+	end
+	main.f_cmdInput()
+	if not cancel then
+		synchronize()
+		math.randomseed(sszRandom())
+		main.f_netplayMode()
+	end
+end
+
+local t_mainNetplay = {
+	{data = textImgNew(), itemname = 'serverhost', displayname = motif.title_info.menu_itemname_serverhost},
+	{data = textImgNew(), itemname = 'serverjoin', displayname = motif.title_info.menu_itemname_serverjoin},
+	{data = textImgNew(), itemname = 'serverback', displayname = motif.title_info.menu_itemname_serverback},
+}
+t_mainNetplay = main.f_cleanTable(t_mainNetplay)
+
+function main.f_mainNetplay()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_mainNetplay
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--HOST
+			if t[item].itemname == 'serverhost' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_connect("", main.f_extractText(motif.title_info.connecting_host, getListenPort()))
+				exitNetPlay()
+				exitReplay()
+
+				-- Save replay with a new name
+				tpmFileRpl1 = io.open("save/replays/netplay.replay","r")
+				tpmFileRpl1C = tpmFileRpl1:read("*all")
+				io.close(tpmFileRpl1)
+
+				tpmFileRpl2name = os.date("%Y-%m(%b)-%d %I-%M%p-%Ss")
+				tpmFileRpl2 = io.open("save/replays/" .. tpmFileRpl2name .. ".replay","w+")
+				tpmFileRpl2:write(tpmFileRpl1C)
+				io.close(tpmFileRpl2)
+			end
+			--JOIN
+			if t[item].itemname == 'serverjoin' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_netplayJoin()
+			end
+			--BACK
+			if t[item].itemname == 'serverback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; NETPLAY JOIN
+--;===========================================================
+local t_netplayJoin = {}
+t_netplayJoin[#t_netplayJoin + 1] = {data = textImgNew(), itemname = 'joinadd', displayname = motif.title_info.menu_itemname_joinadd}
+for k, v in pairs(config.IP) do
+	t_netplayJoin[#t_netplayJoin + 1] = {
+		data = textImgNew(),
+		itemname = k,
+		displayname = k,
+		address = v
+	}
+end
+t_netplayJoin[#t_netplayJoin + 1] = {data = textImgNew(), itemname = 'joinback', displayname = motif.title_info.menu_itemname_joinback}
+
+function main.f_netplayJoin()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_netplayJoin
+	local t_tmp = {}
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		--DELETE ENTRY
+		elseif getKey() == 'DELETE' and item ~= 1 and item ~= #t then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			resetKey()
+			config.IP[t[item].itemname] = nil
+			t_tmp = {}
+			for i = 1, #t do
+				if i ~= item then
+					t_tmp[#t_tmp + 1] = t[i]
+				end
+			end
+			t_netplayJoin = t_tmp
+			t = t_netplayJoin
+			local file = io.open("save/config.json","w+")
+			file:write(json.encode(config, {indent = true}))
+			file:close()
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--NEW ADDRESS
+			if t[item].itemname == 'joinadd' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_move_snd[1], motif.title_info.cursor_move_snd[2])
+				local name = main.f_input(main.f_extractText(motif.title_info.input_ip_name), motif.title_info, motif.titlebgdef, 'string')
+				if name ~= '' then
+					sndPlay(motif.files.snd_data, motif.title_info.cursor_move_snd[1], motif.title_info.cursor_move_snd[2])
+					local address = main.f_input(main.f_extractText(motif.title_info.input_ip_address), motif.title_info, motif.titlebgdef, 'string')
+					if address:match('^[0-9%.]+$') then
+						sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+						config.IP[name] = address
+						t_tmp = {}
+						for i = 1, #t do
+							if i < #t then
+								t_tmp[i] = t[i]
+							else
+								t_tmp[i] = {data = textImgNew(), itemname = name, displayname = name, address = address}
+								t_tmp[i + 1] = t[i]
+							end
+						end
+						t_netplayJoin = t_tmp
+						t = t_netplayJoin
+						local file = io.open("save/config.json","w+")
+						file:write(json.encode(config, {indent = true}))
+						file:close()
+					else
+						sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+					end
+				else
+					sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				end
+			--BACK
+			elseif t[item].itemname == 'joinback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			--CONNECTION
+			else
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_connect(t[item].address, main.f_extractText(motif.title_info.connecting_join, t[item].name, t[item].address))
+				exitNetPlay()
+				exitReplay()
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; NETPLAY MODE
+--;===========================================================
+local t_netplayMode = {
+	{data = textImgNew(), itemname = 'netplayversus', displayname = motif.title_info.menu_itemname_netplayversus, selectname = motif.select_info.title_text_netplayversus},
+	{data = textImgNew(), itemname = 'netplayteamcoop', displayname = motif.title_info.menu_itemname_netplayteamcoop, selectname = motif.select_info.title_text_netplayteamcoop},
+	{data = textImgNew(), itemname = 'netplaysurvivalcoop', displayname = motif.title_info.menu_itemname_netplaysurvivalcoop, selectname = motif.select_info.title_text_netplaysurvivalcoop},
+	{data = textImgNew(), itemname = 'netplayback', displayname = motif.title_info.menu_itemname_netplayback},
+}
+t_netplayMode = main.f_cleanTable(t_netplayMode)
+
+function main.f_netplayMode()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_netplayMode
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--VS MODE
+			if t[item].itemname == 'netplayversus' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				setHomeTeam(1)
+				main.p2In = 2
+				main.stageMenu = true
+				main.p2Faces = true
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				select.f_selectSimple()
+			end
+			--TEAM CO-OP
+			if t[item].itemname == 'netplayteamcoop' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 2
+				main.p2Faces = true
+				main.coop = true
+				main.credits = config.Credits - 1
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				select.f_selectAdvance()
+			end
+			--SURVIVAL CO-OP
+			if t[item].itemname == 'netplaysurvivalcoop' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 2
+				main.p2Faces = true
+				main.coop = true
+				main.credits = 0
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				select.f_selectAdvance()
+			end
+			--BACK
+			if t[item].itemname == 'netplayback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; EXTRAS MENU
+--;===========================================================
+local t_mainExtras = {
+	{data = textImgNew(), itemname = 'freebattle', displayname = motif.title_info.menu_itemname_freebattle, selectname = motif.select_info.title_text_freebattle},
+	--{data = textImgNew(), itemname = 'timechallenge', displayname = motif.title_info.menu_itemname_timechallenge, selectname = motif.select_info.title_text_timechallenge},
+	--{data = textImgNew(), itemname = 'scorechallenge', displayname = motif.title_info.menu_itemname_scorechallenge, selectname = motif.select_info.title_text_scorechallenge},
+	{data = textImgNew(), itemname = '100kumite', displayname = motif.title_info.menu_itemname_100kumite, selectname = motif.select_info.title_text_100kumite},
+	{data = textImgNew(), itemname = 'bossrush', displayname = motif.title_info.menu_itemname_bossrush, selectname = motif.select_info.title_text_bossrush},
+	{data = textImgNew(), itemname = 'bonusgames', displayname = motif.title_info.menu_itemname_bonusgames},
+	--{data = textImgNew(), itemname = 'scoreranking', displayname = motif.title_info.menu_itemname_scoreranking},
+	{data = textImgNew(), itemname = 'replay', displayname = motif.title_info.menu_itemname_replay, selectname = motif.select_info.title_text_replay},
+	{data = textImgNew(), itemname = 'demo', displayname = motif.title_info.menu_itemname_demo},
+	{data = textImgNew(), itemname = 'extrasback', displayname = motif.title_info.menu_itemname_extrasback},
+}
+for i = 1, #t_mainExtras do
+	if t_mainExtras[i].itemname == 'bossrush' and #main.t_bossChars == 0 then
+		t_mainExtras[i].displayname = ''
+	elseif t_mainExtras[i].itemname == 'bonusgames' and #main.t_bonusChars == 0 then
+		t_mainExtras[i].displayname = ''
+	elseif t_mainExtras[i].itemname == 'demo' and #main.t_randomChars < 2 then
+		t_mainExtras[i].displayname = ''
+	end
+end
+t_mainExtras = main.f_cleanTable(t_mainExtras)
+
+function main.f_mainExtras()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_mainExtras
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--FREE BATTLE
+			if t[item].itemname == 'freebattle' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1
+				main.stageMenu = true
+				main.p2Faces = true
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectSimple()
+			end
+			--VS 100 KUMITE
+			if t[item].itemname == '100kumite' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1
+				main.p2SelectMenu = false
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance()
+			end
+			--BOSS RUSH
+			if t[item].itemname == 'bossrush' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.p2In = 1
+				main.p2SelectMenu = false
+				main.credits = 0
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectAdvance()
+			end
+			--BONUS GAMES
+			if t[item].itemname == 'bonusgames' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_bonusExtras()
+			end
+			--REPLAY
+			if t[item].itemname == 'replay' then
+				if main.f_fileExists('save/replays/netplay.replay') then
+					sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+					enterReplay('save/replays/netplay.replay')
+					synchronize()
+					math.randomseed(sszRandom())
+					main.f_netplayMode()
+					exitNetPlay()
+					exitReplay()
+				end
+			end
+			--DEMO
+			if t[item].itemname == 'demo' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				randomtest.run()
+			end
+			--BACK
+			if t[item].itemname == 'extrasback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; BONUS GAMES
+--;===========================================================
+local t_bonusExtras = {}
+for i = 1, #main.t_bonusChars do
+	local name = getCharName(main.t_bonusChars[i])
+	t_bonusExtras[i] = {
+		data = textImgNew(),
+		itemname = name,
+		displayname = name:upper(),
+		selectname = name
+	}
+end
+if motif.title_info.menu_itemname_bonusback ~= '' then
+	t_bonusExtras[#t_bonusExtras + 1] = {data = textImgNew(), itemname = 'bonusback', displayname = motif.title_info.menu_itemname_bonusback}
+end
+
+function main.f_bonusExtras()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_bonusExtras
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--BACK
+			if t[item].itemname == 'bonusback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			--BONUS CHAR NAME
+			else
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.versusScreen = false
+				main.p1TeamMenu = {mode = 0, chars = 1}
+				main.p2TeamMenu = {mode = 0, chars = 1}
+				main.p2Char = {main.t_bonusChars[item]}
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectSimple()
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; TOURNAMENT MENU
+--;===========================================================
+local t_mainTournament = {
+	{data = textImgNew(), itemname = 'tourney32', displayname = motif.title_info.menu_itemname_tourney32, selectname = motif.select_info.title_text_tourney32},
+	{data = textImgNew(), itemname = 'tourney16', displayname = motif.title_info.menu_itemname_tourney16, selectname = motif.select_info.title_text_tourney16},
+	{data = textImgNew(), itemname = 'tourney8', displayname = motif.title_info.menu_itemname_tourney8, selectname = motif.select_info.title_text_tourney8},
+	{data = textImgNew(), itemname = 'tourney4', displayname = motif.title_info.menu_itemname_tourney4, selectname = motif.select_info.title_text_tourney4},
+	{data = textImgNew(), itemname = 'tourneyback', displayname = motif.title_info.menu_itemname_tourneyback},
+}
+t_mainTournament = main.f_cleanTable(t_mainTournament)
+
+function main.f_mainTournament()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_mainTournament
+	while true do
+		cursorPosY, moveTxt, item = main.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_default()
+			--ROUND OF 32
+			if t[item].itemname == 'tourney32' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectTournament()
+			end
+			--ROUND OF 16
+			if t[item].itemname == 'tourney16' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectTournament()
+			end
+			--QUARTERFINALS
+			if t[item].itemname == 'tourney8' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectTournament()
+			end
+			--SEMIFINALS
+			if t[item].itemname == 'tourney4' then
+				sndPlay(motif.files.snd_data, motif.title_info.cursor_done_snd[1], motif.title_info.cursor_done_snd[2])
+				main.gameMode = t[item].itemname
+				textImgSetText(main.txt_mainSelect, t[item].selectname)
+				main.f_menuFadeOut(cursorPosY, moveTxt, item, t)
+				select.f_selectTournament()
+			end
+			--BACK
+			if t[item].itemname == 'tourneyback' then
+				sndPlay(motif.files.snd_data, motif.title_info.cancel_snd[1], motif.title_info.cancel_snd[2])
+				break
+			end
+		end
+		main.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; INITIALIZE LOOPS
+--;===========================================================
+
+-- Now that everithig is loaded we can enable GC back.
+SetGCPercent(100)
+-------------------------------------------------------------
+
+main.f_mainMenu()
+
+
+-- Debug Info
+main.f_printTable(main, "debug/t_main.txt")

--- /dev/null
+++ b/script/motif.lua
@@ -0,0 +1,1774 @@
+--;===========================================================
+--; DEFAULT VALUES
+--;===========================================================
+--This pre-made table (3/4 of the whole file) contains all default values used in screenpack. New table from parsed DEF file is merged on top of this one.
+--This is important because there are more params available in Ikemen. Whole screenpack code refers to these values.
+local motif =
+{
+	info =
+	{
+		name = 'Default',
+		author = 'Elecbyte',
+		versiondate = '09,01,2009',
+		mugenversion = '1.0',
+		localcoord = {320, 240},
+	},
+	files =
+	{
+		spr = 'data/system.sff',
+		snd = 'data/system.snd',
+		continue_snd = 'data/continue.snd', --Ikemen feature (optional separate entry for better compatibility with existing screenpacks)
+		logo_storyboard = '',
+		intro_storyboard = '',
+		select = 'data/select.def',
+		fight = 'data/fight.def',
+		debug_font = 'font/f-6x9.fnt', --Ikemen feature
+		debug_script = 'script/debug.lua', --Ikemen feature
+		font = --FNT v2 fonts not supported yet
+		{
+			[1] = 'font/f-4x6.fnt',
+			[2] = 'font/f-6x9.fnt',
+			[3] = 'font/jg.fnt',
+		},
+		font_height = --Truetype fonts not supported yet
+		{
+			[1] = nil,
+			[2] = nil,
+			[3] = nil,
+		},
+	},
+	ja_files = {}, --not used in Ikemen
+	music =
+	{
+		title_bgm = '',
+		title_bgm_volume = 100,
+		title_bgm_loop = 1, --not supported yet
+		title_bgm_loopstart = nil, --not supported yet
+		title_bgm_loopend = nil, --not supported yet
+		select_bgm = '',
+		select_bgm_volume = 100,
+		select_bgm_loop = 1, --not supported yet
+		select_bgm_loopstart = nil, --not supported yet
+		select_bgm_loopend = nil, --not supported yet
+		vs_bgm = '',
+		vs_bgm_volume = 100,
+		vs_bgm_loop = 1, --not supported yet
+		vs_bgm_loopstart = nil, --not supported yet
+		vs_bgm_loopend = nil, --not supported yet
+		victory_bgm = '',
+		victory_bgm_volume = 100,
+		victory_bgm_loop = 1, --not supported yet
+		victory_bgm_loopstart = nil, --not supported yet
+		victory_bgm_loopend = nil, --not supported yet
+		continue_bgm = 'sound/CONTINUE.ogg', --Ikemen feature
+		continue_bgm_volume = 100, --Ikemen feature (not supported yet)
+		continue_bgm_loop = 1, --Ikemen feature (not supported yet)
+		continue_bgm_loopstart = nil, --Ikemen feature (not supported yet)
+		continue_bgm_loopend = nil, --Ikemen feature (not supported yet)
+		continue_end_bgm = 'sound/GAME_OVER.ogg', --Ikemen feature
+		continue_end_volume = 100, --Ikemen feature (not supported yet)
+		continue_end_loop = 0, --Ikemen feature (not supported yet)
+		continue_end_loopstart = nil, --Ikemen feature (not supported yet)
+		continue_end_loopend = nil, --Ikemen feature (not supported yet)
+		results_bgm = '', --Ikemen feature
+		results_bgm_loop = 1, --Ikemen feature (not supported yet)
+		results_bgm_loopstart = nil, --Ikemen feature (not supported yet)
+		results_bgm_loopend = nil, --Ikemen feature (not supported yet)
+		tournament_bgm = '', --Ikemen feature
+		tournament_bgm_loop = 1, --Ikemen feature (not supported yet)
+		tournament_bgm_loopstart = nil, --Ikemen feature (not supported yet)
+		tournament_bgm_loopend = nil, --Ikemen feature (not supported yet)
+	},
+	title_info =
+	{
+		fadein_time = 10,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 10,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		loading_offset = {310, 230}, --Ikemen feature
+		loading_font = {'font/f-4x6.fnt', 7, -1, nil, nil, nil}, --Ikemen feature
+		loading_font_scale = {1.0, 1.0}, --Ikemen feature
+		loading_text = 'LOADING...', --Ikemen feature
+		footer1_offset = {2, 240}, --Ikemen feature
+		footer1_font = {'font/f-4x6.fnt', 7, 1, nil, nil, nil}, --Ikemen feature
+		footer1_font_scale = {1.0, 1.0}, --Ikemen feature
+		footer1_text = 'I.K.E.M.E.N. by SUEHIRO', --Ikemen feature
+		footer2_offset = {160, 240}, --Ikemen feature
+		footer2_font = {'font/f-4x6.fnt', 7, 0, nil, nil, nil}, --Ikemen feature
+		footer2_font_scale = {1.0, 1.0}, --Ikemen feature
+		footer2_text = '', --Ikemen feature
+		footer3_offset = {319, 240}, --Ikemen feature
+		footer3_font = {'font/f-4x6.fnt', 7, -1, nil, nil, nil}, --Ikemen feature
+		footer3_font_scale = {1.0, 1.0}, --Ikemen feature
+		footer3_text = 'https://osdn.net/users/supersuehiro/', --Ikemen feature
+		footer_boxbackground_visible = 1, --Ikemen feature
+		footer_boxbackground_coords = {0, 233, 319, 239}, --Ikemen feature
+		footer_boxbackground_alpha = {255, 100}, --Ikemen feature
+		connecting_offset = {10, 40}, --Ikemen feature
+		connecting_font = {'font/f-6x9.fnt', 0, 1, nil, nil, nil}, --Ikemen feature
+		connecting_font_scale = {1.0, 1.0}, --Ikemen feature
+		connecting_host = 'Waiting for player 2... (%s)', --Ikemen feature
+		connecting_join = 'Now connecting... (%s)', --Ikemen feature
+		input_ip_name = 'Enter Host display name, e.g. John.\nExisting entries can be removed with DELETE button.', --Ikemen feature
+		input_ip_address = 'Enter Host IP address, e.g. 127.0.0.1\nCopied text can be pasted with INSERT button.', --Ikemen feature
+		menu_pos = {159, 158},
+		menu_item_font = {'font/f-6x9.fnt', 7, 0, nil, nil, nil},
+		menu_item_font_scale = {1.0, 1.0},
+		menu_item_active_font = {'font/f-6x9.fnt', 0, 0, nil, nil, nil},
+		menu_item_active_font_scale = {1.0, 1.0},
+		menu_item_spacing = {0, 13},
+		menu_itemname_arcade = 'ARCADE',
+		menu_itemname_versus = 'VS MODE',
+		menu_itemname_online = 'NETWORK', --Ikemen feature
+		menu_itemname_teamarcade = 'TEAM ARCADE', --not used in Ikemen (same as ARCADE)
+		menu_itemname_teamversus = 'TEAM VS', --not used in Ikemen (same as VS MODE)
+		menu_itemname_teamcoop = 'TEAM CO-OP',
+		menu_itemname_survival = 'SURVIVAL',
+		menu_itemname_survivalcoop = 'SURVIVAL CO-OP',
+		menu_itemname_storymode = 'STORY MODE', --Ikemen feature (not implemented yet)
+		menu_itemname_timeattack = 'TIME ATTACK', --Ikemen feature (not implemented yet)
+		menu_itemname_tournament = 'TOURNAMENT', --Ikemen feature
+		menu_itemname_training = 'TRAINING',
+		menu_itemname_watch = 'WATCH',
+		menu_itemname_extras = 'EXTRAS', --Ikemen feature
+		menu_itemname_options = 'OPTIONS',
+		menu_itemname_exit = 'EXIT',
+		menu_itemname_netplayversus = 'VS MODE', --Ikemen feature
+		menu_itemname_netplayteamcoop = 'TEAM CO-OP', --Ikemen feature
+		menu_itemname_netplaysurvivalcoop = 'SURVIVAL CO-OP', --Ikemen feature
+		menu_itemname_netplayback = 'BACK', --Ikemen feature
+		menu_itemname_freebattle = 'FREE BATTLE', --Ikemen feature
+		menu_itemname_timechallenge = 'TIME CHALLENGE', --Ikemen feature (not implemented yet)
+		menu_itemname_scorechallenge = 'SCORE CHALLENGE', --Ikemen feature (not implemented yet)
+		menu_itemname_100kumite = 'VS 100 KUMITE', --Ikemen feature
+		menu_itemname_bossrush = 'BOSS RUSH', --Ikemen feature
+		menu_itemname_bonusgames = 'BONUS GAMES', --Ikemen feature
+		menu_itemname_scoreranking = 'SCORE RANKING', --Ikemen feature (not implemented yet)
+		menu_itemname_replay = 'REPLAY', --Ikemen feature
+		menu_itemname_demo = 'DEMO', --Ikemen feature
+		menu_itemname_extrasback = 'BACK', --Ikemen feature
+		menu_itemname_bonusback = 'BACK', --Ikemen feature
+		menu_itemname_tourney32 = 'ROUND OF 32', --Ikemen feature
+		menu_itemname_tourney16 = 'ROUND OF 16', --Ikemen feature
+		menu_itemname_tourney8 = 'QUARTERFINALS', --Ikemen feature
+		menu_itemname_tourney4 = 'SEMIFINALS', --Ikemen feature
+		menu_itemname_tourneyback = 'BACK', --Ikemen feature
+		menu_itemname_serverhost = 'HOST GAME', --Ikemen feature
+		menu_itemname_serverjoin = 'JOIN GAME', --Ikemen feature
+		menu_itemname_serverback = 'BACK', --Ikemen feature
+		menu_itemname_joinadd = 'NEW ADDRESS', --Ikemen feature
+		menu_itemname_joinback = 'BACK', --Ikemen feature
+		menu_window_margins_y = {12, 8}, --only partial support for now (menu_window_visibleitems + 1 displayed if y value > 0)
+		menu_window_visibleitems = 5,
+		menu_boxcursor_visible = 1,
+		menu_boxcursor_coords = {-40, -10, 39, 2},
+		cursor_move_snd = {100, 0},
+		cursor_done_snd = {100, 1},
+		cancel_snd = {100, 2},
+	},
+	titlebgdef =
+	{
+		spr = '',
+		bgclearcolor = {0, 0, 0},
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	infobox =
+	{
+		title = 'I.K.E.M.E.N', --Ikemen feature
+		title_pos = {159, 13}, --Ikemen feature
+		title_font = {'font/f-6x9.fnt', 0, 0, nil, nil, nil}, --Ikemen feature
+		title_font_scale = {1.0, 1.0}, --Ikemen feature
+		text = "Welcome to I.K.E.M.E.N beta!\n* This is a public development release, for testing purposes.\n* This build isn't stable and may contain bugs and incomplete features.\n* Your help and cooperation are appreciated!\n* Source code: https://osdn.net/users/supersuehiro/\n* Ikemen Plus feedback:\n  http://mugenguild.com/forum/topics/ikemen-plus-181972.200.html", --Ikemen feature (requires new 'text = ' entry under [Infobox] section)
+		text_pos = {25, 30}, --Ikemen feature
+		text_font = {'font/f-4x6.fnt', 7, 1, nil, nil, nil}, --Ikemen feature
+		text_font_scale = {1.0, 1.0}, --Ikemen feature
+		text_spacing = {0, 10}, --Ikemen feature
+		background_alpha = {20, 100}, --Ikemen feature
+	},
+	infobox_text = '', --not used in Ikemen
+	ja_infobox_text = '', --not used in Ikemen
+	select_info =
+	{
+		fadein_time = 10,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 10,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		rows = 2,
+		columns = 5,
+		rows_scrolling = 0, --Ikemen feature
+		wrapping = 0,
+		wrapping_x = 1, --Ikemen feature
+		wrapping_y = 1, --Ikemen feature
+		pos = {90, 170},
+		double_select = 0, --Ikemen feature
+		pos_p1_double_select = {10, 170}, --Ikemen feature
+		pos_p2_double_select = {169, 170}, --Ikemen feature
+		showemptyboxes = 0,
+		moveoveremptyboxes = 0,
+		searchemptyboxesup = 0, --Ikemen feature
+		searchemptyboxesdown = 0, --Ikemen feature
+		cell_size = {27, 27},
+		cell_spacing = 2,
+		--cell_bg_anim = nil,
+		cell_bg_spr = {},
+		cell_bg_offset = {0, 0},
+		cell_bg_facing = 1,
+		cell_bg_scale = {1.0, 1.0},
+		--cell_bg_alpha = {}, --Ikemen feature (not implemented yet)
+		--cell_random_anim = nil,
+		cell_random_spr = {},
+		cell_random_offset = {0, 0},
+		cell_random_facing = 1,
+		cell_random_scale = {1.0, 1.0},
+		--cell_random_alpha = {}, --Ikemen feature (not implemented yet)
+		cell_random_switchtime = 4,
+		p1_cursor_startcell = {0, 0},
+		--p1_cursor_active_anim = nil,
+		p1_cursor_active_spr = {},
+		p1_cursor_active_offset = {0, 0},
+		p1_cursor_active_facing = 1,
+		p1_cursor_active_scale = {1.0, 1.0},
+		--p1_cursor_done_anim = nil,
+		p1_cursor_done_spr = {},
+		p1_cursor_done_offset = {0, 0},
+		p1_cursor_done_facing = 1,
+		p1_cursor_done_scale = {1.0, 1.0},
+		p1_cursor_move_snd = {100, 0},
+		p1_cursor_done_snd = {100, 1},
+		p1_random_move_snd = {100, 0},
+		p2_cursor_startcell = {0, 4},
+		--p2_cursor_active_anim = nil,
+		p2_cursor_active_spr = {},
+		p2_cursor_active_offset = {0, 0},
+		p2_cursor_active_facing = 1,
+		p2_cursor_active_scale = {1.0, 1.0},
+		--p2_cursor_done_anim = nil,
+		p2_cursor_done_spr = {},
+		p2_cursor_done_offset = {0, 0},
+		p2_cursor_done_facing = 1,
+		p2_cursor_done_scale = {1.0, 1.0},
+		p2_cursor_blink = 1,
+		p2_cursor_move_snd = {100, 0},
+		p2_cursor_done_snd = {100, 1},
+		p2_random_move_snd = {100, 0},
+		random_move_snd_cancel = 0, --not supported yet (needs a function that checks sound length)
+		stage_move_snd = {100, 0},
+		stage_done_snd = {100, 1},
+		cancel_snd = {100, 2},
+		portrait_spr = {9000, 0},
+		portrait_offset = {0, 0}, --not supported yet
+		portrait_scale = {1.0, 1.0},
+		title_offset = {0, 0},
+		title_font = {'font/jg.fnt', 0, 0, nil, nil, nil},
+		title_font_scale = {1.0, 1.0},
+		title_text_arcade = 'Arcade', --Ikemen feature
+		title_text_versus = 'Versus Mode', --Ikemen feature
+		title_text_teamcoop = 'Team Cooperative', --Ikemen feature
+		title_text_survival = 'Survival', --Ikemen feature
+		title_text_survivalcoop = 'Survival Cooperative', --Ikemen feature
+		title_text_storymode = 'Story Mode', --Ikemen feature (not implemented yet)
+		title_text_timeattack = 'Time Attack', --Ikemen feature (not implemented yet)
+		title_text_training = 'Training Mode', --Ikemen feature
+		title_text_watch = 'Watch Mode', --Ikemen feature
+		title_text_netplayversus = 'Online Versus', --Ikemen feature
+		title_text_netplayteamcoop = 'Online Cooperative', --Ikemen feature
+		title_text_netplaysurvivalcoop = 'Online Survival', --Ikemen feature
+		title_text_freebattle = 'Free Battle', --Ikemen feature
+		title_text_timechallenge = 'Time Challenge', --Ikemen feature (not implemented yet)
+		title_text_scorechallenge = 'Score Challenge', --Ikemen feature (not implemented yet)
+		title_text_100kumite = 'VS 100 Kumite', --Ikemen feature
+		title_text_bossrush = 'Boss Rush', --Ikemen feature
+		title_text_replay = 'Replay', --Ikemen feature
+		title_text_tourney32 = 'Tournament Mode', --Ikemen feature
+		title_text_tourney16 = 'Tournament Mode', --Ikemen feature
+		title_text_tourney8 = 'Tournament Mode', --Ikemen feature
+		title_text_tourney4 = 'Tournament Mode', --Ikemen feature
+		p1_face_spr = {9000, 1},
+		p1_face_offset = {0, 0},
+		p1_face_facing = 1,
+		p1_face_scale = {1.0, 1.0},
+		p1_face_window = {0, 0, 0, 0},
+		p1_face_spacing = {0, 0}, --Ikemen feature
+		p1_face_num = 1, --Ikemen feature
+		p2_face_spr = {9000, 1},
+		p2_face_offset = {0, 0},
+		p2_face_facing = -1,
+		p2_face_scale = {1.0, 1.0},
+		p2_face_window = {0, 0, 0, 0},
+		p2_face_spacing = {0, 0}, --Ikemen feature
+		p2_face_num = 1, --Ikemen feature
+		p1_name_offset = {0, 0},
+		p1_name_font = {'font/jg.fnt', 4, 1, nil, nil, nil},
+		p1_name_font_scale = {1.0, 1.0},
+		p1_name_spacing = {0, 14},
+		p2_name_offset = {0, 0},
+		p2_name_font = {'font/jg.fnt', 1, -1, nil, nil, nil},
+		p2_name_font_scale = {1.0, 1.0},
+		p2_name_spacing = {0, 14},
+		stage_pos = {0, 0},
+		stage_active_font = {'font/f-4x6.fnt', 0, 0, nil, nil, nil},
+		stage_active_font_scale = {1.0, 1.0},
+		stage_active2_font = {'font/f-4x6.fnt', 0, 0, nil, nil, nil},
+		stage_active2_font_scale = {1.0, 1.0},
+		stage_done_font = {'font/f-4x6.fnt', 0, 0, nil, nil, nil},
+		stage_done_font_scale = {1.0, 1.0},
+		stage_text = 'Stage %i: %s', --Ikemen feature
+		stage_text_spacing = {0, 14}, --Ikemen feature
+		teammenu_move_wrapping = 1,
+		teammenu_itemname_single = 'Single', --Ikemen feature
+		teammenu_itemname_simul = 'Simul', --Ikemen feature
+		teammenu_itemname_turns = 'Turns', --Ikemen feature
+		teammenu_itemname_tag = 'Tag', --Ikemen feature
+		p1_teammenu_pos = {0, 0},
+		--p1_teammenu_bg_anim = nil,
+		p1_teammenu_bg_spr = {},
+		p1_teammenu_bg_offset = {0, 0},
+		p1_teammenu_bg_facing = 1,
+		p1_teammenu_bg_scale = {1.0, 1.0},
+		--p1_teammenu_selftitle_anim = nil,
+		p1_teammenu_selftitle_spr = {},
+		p1_teammenu_selftitle_offset = {0, 0},
+		p1_teammenu_selftitle_facing = 1,
+		p1_teammenu_selftitle_scale = {1.0, 1.0},
+		p1_teammenu_selftitle_font = {'font/jg.fnt', 0, 1, nil, nil, nil},
+		p1_teammenu_selftitle_font_scale = {1.0, 1.0},
+		p1_teammenu_selftitle_text = '',
+		--p1_teammenu_enemytitle_anim = nil,
+		p1_teammenu_enemytitle_spr = {},
+		p1_teammenu_enemytitle_offset = {0, 0},
+		p1_teammenu_enemytitle_facing = 1,
+		p1_teammenu_enemytitle_scale = {1.0, 1.0},
+		p1_teammenu_enemytitle_font = {'font/jg.fnt', 0, 1, nil, nil, nil},
+		p1_teammenu_enemytitle_font_scale = {1.0, 1.0},
+		p1_teammenu_enemytitle_text = '',
+		p1_teammenu_move_snd = {100, 0},
+		p1_teammenu_value_snd = {100, 0},
+		p1_teammenu_done_snd = {100, 1},
+		p1_teammenu_item_offset = {0, 0},
+		p1_teammenu_item_spacing = {0, 15},
+		p1_teammenu_item_font_offset = {0, 0}, --Ikemen feature
+		p1_teammenu_item_font = {'font/jg.fnt', 0, 1, nil, nil, nil},
+		p1_teammenu_item_font_scale = {1.0, 1.0},
+		p1_teammenu_item_active_font = {'font/jg.fnt', 3, 1, nil, nil, nil},
+		p1_teammenu_item_active_font_scale = {1.0, 1.0},
+		p1_teammenu_item_active2_font = {'font/jg.fnt', 0, 1, nil, nil, nil},
+		p1_teammenu_item_active2_font_scale = {1.0, 1.0},
+		--p1_teammenu_item_cursor_anim = nil,
+		p1_teammenu_item_cursor_spr = {},
+		p1_teammenu_item_cursor_offset = {0, 0},
+		p1_teammenu_item_cursor_facing = 1,
+		p1_teammenu_item_cursor_scale = {1.0, 1.0},
+		--p1_teammenu_value_icon_anim = nil,
+		p1_teammenu_value_icon_spr = {},
+		p1_teammenu_value_icon_offset = {0, 0},
+		p1_teammenu_value_icon_facing = 1,
+		p1_teammenu_value_icon_scale = {1.0, 1.0},
+		--p1_teammenu_value_empty_icon_anim = nil,
+		p1_teammenu_value_empty_icon_spr = {},
+		p1_teammenu_value_empty_icon_offset = {0, 0},
+		p1_teammenu_value_empty_icon_facing = 1,
+		p1_teammenu_value_empty_icon_scale = {1.0, 1.0},
+		p1_teammenu_value_spacing = {6, 0},
+		p2_teammenu_pos = {0, 0},
+		--p2_teammenu_bg_anim = nil,
+		p2_teammenu_bg_spr = {},
+		p2_teammenu_bg_offset = {0, 0},
+		p2_teammenu_bg_facing = 1,
+		p2_teammenu_bg_scale = {1.0, 1.0},
+		--p2_teammenu_selftitle_anim = nil,
+		p2_teammenu_selftitle_spr = {},
+		p2_teammenu_selftitle_offset = {0, 0},
+		p2_teammenu_selftitle_facing = 1,
+		p2_teammenu_selftitle_scale = {1.0, 1.0},
+		p2_teammenu_selftitle_font = {'font/jg.fnt', 0, -1, nil, nil, nil},
+		p2_teammenu_selftitle_font_scale = {1.0, 1.0},
+		p2_teammenu_selftitle_text = '',
+		--p2_teammenu_enemytitle_anim = nil,
+		p2_teammenu_enemytitle_spr = {},
+		p2_teammenu_enemytitle_offset = {0, 0},
+		p2_teammenu_enemytitle_facing = 1,
+		p2_teammenu_enemytitle_scale = {1.0, 1.0},
+		p2_teammenu_enemytitle_font = {'font/jg.fnt', 0, -1, nil, nil, nil},
+		p2_teammenu_enemytitle_font_scale = {1.0, 1.0},
+		p2_teammenu_enemytitle_text = '',
+		p2_teammenu_move_snd = {100, 0},
+		p2_teammenu_value_snd = {100, 0},
+		p2_teammenu_done_snd = {100, 1},
+		p2_teammenu_item_offset = {0, 0},
+		p2_teammenu_item_spacing = {0, 15},
+		p2_teammenu_item_font_offset = {0, 0}, --Ikemen feature
+		p2_teammenu_item_font = {'font/jg.fnt', 0, -1, nil, nil, nil},
+		p2_teammenu_item_font_scale = {1.0, 1.0},
+		p2_teammenu_item_active_font = {'font/jg.fnt', 1, -1, nil, nil, nil},
+		p2_teammenu_item_active_font_scale = {1.0, 1.0},
+		p2_teammenu_item_active2_font = {'font/jg.fnt', 0, -1, nil, nil, nil},
+		p2_teammenu_item_active2_font_scale = {1.0, 1.0},
+		--p2_teammenu_item_cursor_anim = nil,
+		p2_teammenu_item_cursor_spr = {},
+		p2_teammenu_item_cursor_offset = {0, 0},
+		p2_teammenu_item_cursor_facing = 1,
+		p2_teammenu_item_cursor_scale = {1.0, 1.0},
+		--p2_teammenu_value_icon_anim = nil,
+		p2_teammenu_value_icon_spr = {},
+		p2_teammenu_value_icon_offset = {0, 0},
+		p2_teammenu_value_icon_facing = 1,
+		p2_teammenu_value_icon_scale = {1.0, 1.0},
+		--p2_teammenu_value_empty_icon_anim = nil,
+		p2_teammenu_value_empty_icon_spr = {},
+		p2_teammenu_value_empty_icon_offset = {0, 0},
+		p2_teammenu_value_empty_icon_facing = 1,
+		p2_teammenu_value_empty_icon_scale = {1.0, 1.0},
+		p2_teammenu_value_spacing = {-6, 0},
+	},
+	selectbgdef =
+	{
+		spr = '',
+		bgclearcolor = {0, 0, 0},
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	vs_screen =
+	{
+		fadein_time = 15,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 15,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		time = 150,
+		time_order = 60, --Ikemen feature
+		match_text = 'Match %i',
+		match_offset = {159, 12},
+		match_font = {'font/jg.fnt', 0, 0, nil, nil, nil},
+		match_font_scale = {1.0, 1.0},
+		p1_pos = {0, 0},
+		p1_spr = {9000, 1},
+		p1_offset = {0, 0},
+		p1_facing = 1,
+		p1_scale = {1.0, 1.0},
+		p1_window = {0, 0, 0, 0},
+		p1_spacing = {0, 0}, --Ikemen feature
+		p1_num = 1, --Ikemen feature
+		p2_pos = {0, 0},
+		p2_spr = {9000, 1},
+		p2_offset = {0, 0},
+		p2_facing = -1,
+		p2_scale = {1.0, 1.0},
+		p2_window = {0, 0, 0, 0},
+		p2_spacing = {0, 0}, --Ikemen feature
+		p2_num = 1, --Ikemen feature
+		p1_name_pos = {0, 0},
+		p1_name_offset = {0, 0},
+		p1_name_font = {'font/jg.fnt', 0, 0, nil, nil, nil},
+		p1_name_font_scale = {1.0, 1.0},
+		p1_name_spacing = {0, 14},
+		p2_name_pos = {0, 0},
+		p2_name_offset = {0, 0},
+		p2_name_font = {'font/jg.fnt', 0, 0, nil, nil, nil},
+		p2_name_font_scale = {1.0, 1.0},
+		p2_name_spacing = {0, 14},
+		--p1_name_active_font = {'font/jg.fnt', 0, 0, nil, nil, nil}, --Ikemen feature
+		--p1_name_active_font_scale = {1.0, 1.0}, --Ikemen feature
+		--p2_name_active_font = {'font/jg.fnt', 0, 0, nil, nil, nil}, --Ikemen feature
+		--p2_name_active_font_scale = {1.0, 1.0}, --Ikemen feature
+		p1_cursor_move_snd = {100, 0}, --Ikemen feature
+		p1_cursor_done_snd = {100, 1}, --Ikemen feature
+		p2_cursor_move_snd = {100, 0}, --Ikemen feature
+		p2_cursor_done_snd = {100, 1}, --Ikemen feature
+	},
+	versusbgdef =
+	{
+		spr = '',
+		bgclearcolor = {0, 0, 0},
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	demo_mode =
+	{
+		enabled = 1, --not supported yet
+		select_enabled = 0, --not supported yet
+		vsscreen_enabled = 0, --not supported yet
+		title_waittime = 600, --not supported yet
+		fight_endtime = 1500, --not supported yet
+		fight_playbgm = 0, --not supported yet
+		fight_stopbgm = 1, --not supported yet
+		fight_bars_display = 0, --not supported yet
+		intro_waitcycles = 1, --not supported yet
+		debuginfo = 0, --not supported yet
+	},
+	continue_screen =
+	{
+		external_gameover = 0, --Ikemen feature
+		fadein_time = 30, --Ikemen feature
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 30, --Ikemen feature
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		endtime = 1593, --Ikemen feature
+		continue_starttime = 0, --Ikemen feature
+		continue_anim = 9000, --Ikemen feature
+		continue_offset = {0, 0}, --Ikemen feature
+		continue_scale = {1.0, 1.0}, --Ikemen feature
+		continue_skipstart = 71, --Ikemen feature
+		continue_9_skiptime = 135, --Ikemen feature
+		continue_9_snd = {0, 9}, --Ikemen feature
+		continue_8_skiptime = 262, --Ikemen feature
+		continue_8_snd = {0, 8}, --Ikemen feature
+		continue_7_skiptime = 389, --Ikemen feature
+		continue_7_snd = {0, 7}, --Ikemen feature
+		continue_6_skiptime = 516, --Ikemen feature
+		continue_6_snd = {0, 6}, --Ikemen feature
+		continue_5_skiptime = 643, --Ikemen feature
+		continue_5_snd = {0, 5}, --Ikemen feature
+		continue_4_skiptime = 770, --Ikemen feature
+		continue_4_snd = {0, 4}, --Ikemen feature
+		continue_3_skiptime = 897, --Ikemen feature
+		continue_3_snd = {0, 3}, --Ikemen feature
+		continue_2_skiptime = 1024, --Ikemen feature
+		continue_2_snd = {0, 2}, --Ikemen feature
+		continue_1_skiptime = 1151, --Ikemen feature
+		continue_1_snd = {0, 1}, --Ikemen feature
+		continue_0_skiptime = 1278, --Ikemen feature
+		continue_0_snd = {0, 0}, --Ikemen feature
+		continue_end_skiptime = 1366, --Ikemen feature
+		continue_end_snd = {1, 0}, --Ikemen feature
+		credits_text = 'Credits: %i', --Ikemen feature
+		credits_offset = {20, 30}, --Ikemen feature
+		credits_font = {'font/jg.fnt', 0, 1, nil, nil, nil}, --Ikemen feature
+		credits_font_scale = {1.0, 1.0}, --Ikemen feature
+		--enabled = 1, --not used in Ikemen
+		--pos = {160, 240}, --not used in Ikemen
+		--continue_text = 'CONTINUE?', --not used in Ikemen
+		--continue_font = {'font/f-4x6.fnt', 0, 0, nil, nil, nil}, --not used in Ikemen
+		--continue_font_scale = {1.0, 1.0}, --not used in Ikemen
+		--continue_offset = {0, 0}, --not used in Ikemen
+		--yes_text = 'YES', --not used in Ikemen
+		--yes_font = {'font/f-4x6.fnt', 0, 0, 128, 128, 128}, --not used in Ikemen
+		--yes_font_scale = {1.0, 1.0}, --not used in Ikemen
+		--yes_offset = {-80, 60}, --not used in Ikemen
+		--yes_active_text = 'YES', --not used in Ikemen
+		--yes_active_font = {'font/f-4x6.fnt', 3, 0, nil, nil, nil}, --not used in Ikemen
+		--yes_active_font_scale = {1.0, 1.0}, --not used in Ikemen
+		--yes_active_offset = {-80, 60}, --not used in Ikemen
+		--no_text = 'NO', --not used in Ikemen
+		--no_font = {'font/f-4x6.fnt', 0, 0, 128, 128, 128}, --not used in Ikemen
+		--no_font_scale = {1.0, 1.0}, --not used in Ikemen
+		--no_offset = {80, 60}, --not used in Ikemen
+		--no_active_text = 'NO', --not used in Ikemen
+		--no_active_font = {'font/f-4x6.fnt', 3, 0, nil, nil, nil}, --not used in Ikemen
+		--no_active_font_scale = {1.0, 1.0}, --not used in Ikemen
+		--no_active_offset = {80, 60}, --not used in Ikemen
+	},
+	continuebgdef =
+	{
+		spr = 'data/continue.sff', --Ikemen feature
+		bgclearcolor = {0, 0, 0}, --Ikemen feature
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	game_over_screen =
+	{
+		enabled = 1,
+		storyboard = '',
+	},
+	victory_screen =
+	{
+		enabled = 1,
+		time = 300,
+		fadein_time = 8,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 15,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		p1_spr = {9000, 2},
+		p1_offset = {100, 20},
+		p1_facing = 1,
+		p1_scale = {1.0, 1.0},
+		p1_window = {0, 0, 319, 160},
+		p1_name_offset = {20, 180},
+		p1_name_font = {'font/jg.fnt', 0, 1, nil, nil, nil},
+		p1_name_font_scale = {1.0, 1.0},
+		p2_display = 0, --Ikemen feature
+		p2_spr = {9000, 2}, --Ikemen feature
+		p2_offset = {100, 20}, --Ikemen feature
+		p2_facing = -1, --Ikemen feature
+		p2_scale = {1.0, 1.0}, --Ikemen feature
+		p2_window = {0, 0, 319, 160}, --Ikemen feature
+		p2_name_offset = {20, 180}, --Ikemen feature
+		p2_name_font = {'font/jg.fnt', 0, 1, nil, nil, nil}, --Ikemen feature
+		p2_name_font_scale = {1.0, 1.0},
+		winquote_text = 'Winner!',
+		winquote_offset = {20, 192},
+		winquote_font = {'font/f-6x9.fnt', 0, 1, nil, nil, nil},
+		winquote_font_scale = {1.0, 1.0},
+		winquote_spacing = {0, 15}, --Ikemen feature
+		winquote_delay = 2, --Ikemen feature
+		winquote_length = 50, --Ikemen feature
+		winquote_window = {18, 171, 301, 228},
+		--winquote_textwrap = 'w', --not used in Ikemen
+	},
+	victorybgdef =
+	{
+		spr = '',
+		bgclearcolor = {0, 0, 0},
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	win_screen =
+	{
+		enabled = 1,
+		fadein_time = 32,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 64,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		pose_time = 300,
+		wintext_text = 'Congratulations!',
+		wintext_offset = {159, 70},
+		wintext_font = {'font/f-6x9.fnt', 0, 0, nil, nil, nil},
+		wintext_font_scale = {1.0, 1.0},
+		wintext_displaytime = -1,
+		wintext_layerno = 2,
+	},
+	default_ending =
+	{
+		enabled = 0,
+		storyboard = '',
+	},
+	end_credits =
+	{
+		enabled = 0,
+		storyboard = '',
+	},
+	survival_results_screen =
+	{
+		enabled = 1,
+		fadein_time = 32,
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 64,
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		show_time = 300,
+		winstext_text = 'Rounds survived: %i',
+		winstext_offset = {159, 70},
+		winstext_font = {'font/jg.fnt', 0, 0, nil, nil, nil},
+		winstext_font_scale = {1.0, 1.0},
+		winstext_spacing = {0, 15}, --Ikemen feature
+		winstext_displaytime = -1,
+		winstext_layerno = 2,
+		roundstowin = 5,
+	},
+	vs100kumite_results_screen =
+	{
+		enabled = 1, --Ikemen feature
+		fadein_time = 32, --Ikemen feature
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 64, --Ikemen feature
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		show_time = 300, --Ikemen feature
+		winstext_text = 'Wins: %i\nLoses: %i', --Ikemen feature
+		winstext_offset = {159, 70}, --Ikemen feature
+		winstext_font = {'font/jg.fnt', 0, 0, nil, nil, nil}, --Ikemen feature
+		winstext_font_scale = {1.0, 1.0}, --Ikemen feature
+		winstext_spacing = {0, 15}, --Ikemen feature
+		winstext_displaytime = -1, --Ikemen feature
+		winstext_layerno = 2, --Ikemen feature
+		roundstowin = 51, --Ikemen feature
+	},
+	resultsbgdef =
+	{
+		spr = '', --Ikemen feature
+		bgclearcolor = {0, 0, 0}, --Ikemen feature (disabled to not cover game screen)
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	option_info =
+	{
+		fadein_time = 10, --check winmugen values
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 10, --check winmugen values
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+		title_offset = {159, 19},
+		title_font = {'font/f-6x9.fnt', 0, 0, nil, nil, nil},
+		title_font_scale = {1.0, 1.0},
+		title_text_main = 'OPTIONS', --Ikemen feature
+		title_text_arcade = 'ARCADE SETTINGS', --Ikemen feature
+		title_text_gameplay = 'GAMEPLAY SETTINGS', --Ikemen feature
+		title_text_advgameplay = 'ADVANCED GAMEPLAY SETTINGS', --Ikemen feature
+		title_text_video = 'VIDEO SETTINGS', --Ikemen feature
+		title_text_audio = 'AUDIO SETTINGS', --Ikemen feature
+		title_text_engine = 'ENGINE SETTINGS', --Ikemen feature
+		title_text_res = 'RESOLUTION SETTINGS', --Ikemen feature
+		title_text_input = 'INPUT SETTINGS', --Ikemen feature
+		title_text_key = 'KEY SETTINGS', --Ikemen feature
+		menu_pos = {85, 33}, --Ikemen feature
+		menu_item_font = {'font/f-6x9.fnt', 7, 1, nil, nil, nil}, --Ikemen feature
+		menu_item_font_scale = {1.0, 1.0}, --Ikemen feature
+		menu_item_active_font = {'font/f-6x9.fnt', 0, 1, nil, nil, nil}, --Ikemen feature
+		menu_item_active_font_scale = {1.0, 1.0}, --Ikemen feature
+		menu_item_value_font = {'font/f-6x9.fnt', 7, -1, nil, nil, nil}, --Ikemen feature
+		menu_item_value_font_scale = {1.0, 1.0}, --Ikemen feature
+		menu_item_value_active_font = {'font/f-6x9.fnt', 0, -1, nil, nil, nil}, --Ikemen feature
+		menu_item_value_active_font_scale = {1.0, 1.0}, --Ikemen feature
+		menu_item_value_conflict_font = {'font/f-6x9.fnt', 1, -1, nil, nil, nil}, --Ikemen feature
+		menu_item_value_conflict_font_scale = {1.0, 1.0}, --Ikemen feature
+		menu_item_spacing = {150, 13}, --Ikemen feature
+		menu_window_visibleitems = 16, --Ikemen feature
+		menu_boxcursor_visible = 1, --Ikemen feature
+		menu_boxcursor_coords = {-5, -9, 154, 3}, --Ikemen feature
+		menu_boxbackground_visible = 1, --Ikemen feature
+		menu_boxbackground_alpha = {20, 100}, --Ikemen feature
+		menu_itemname_main_arcade = 'Arcade Settings', --Ikemen feature
+		menu_itemname_main_gameplay = 'Gameplay Settings', --Ikemen feature
+		menu_itemname_main_engine = "Engine Settings", --Ikemen feature
+		menu_itemname_main_video = 'Video Settings', --Ikemen feature
+		menu_itemname_main_audio = 'Audio Settings', --Ikemen feature
+		menu_itemname_main_input = 'Input Settings', --Ikemen feature
+		menu_itemname_main_port = 'Port Change', --Ikemen feature
+		menu_itemname_main_default = 'Default Values', --Ikemen feature
+		menu_itemname_main_back = 'Return Without Saving', --Ikemen feature
+		menu_itemname_arcade_roundstowin = 'Rounds to Win', --Ikemen feature
+		menu_itemname_arcade_roundtime = 'Round Time', --Ikemen feature
+		menu_itemname_arcade_difficulty = 'Difficulty level', --Ikemen feature
+		menu_itemname_arcade_credits = 'Credits', --Ikemen feature
+		menu_itemname_arcade_charchange = 'Char change at Continue', --Ikemen feature
+		menu_itemname_arcade_airamping = 'AI ramping', --Ikemen feature
+		menu_itemname_arcade_back = 'Back', --Ikemen feature
+		menu_itemname_gameplay_lifemul = 'Life', --Ikemen feature
+		menu_itemname_gameplay_autoguard = 'Auto-Guard', --Ikemen feature
+		menu_itemname_gameplay_attackpowermul = 'Attack.LifeToPowerMul', --Ikemen feature
+		menu_itemname_gameplay_gethitpowermul = 'GetHit.LifeToPowerMul', --Ikemen feature
+		menu_itemname_gameplay_superdefencemul = 'Super.TargetDefenceMul', --Ikemen feature
+		menu_itemname_gameplay_team1vs2life = '1P Vs Team Life', --Ikemen feature
+		menu_itemname_gameplay_turnsrecoveryrate = 'Turns HP Recovery', --Ikemen feature
+		menu_itemname_gameplay_teampowershare = 'Team Power Share', --Ikemen feature
+		menu_itemname_gameplay_teamlifeshare = 'Team Life Share', --Ikemen feature
+		menu_itemname_gameplay_singlemode = 'Single Mode', --Ikemen feature
+		menu_itemname_gameplay_numturns = 'Turns Limit', --Ikemen feature
+		menu_itemname_gameplay_numsimul = 'Simul Limit', --Ikemen feature
+		menu_itemname_gameplay_numtag = 'Tag Limit', --Ikemen features
+		menu_itemname_gameplay_simulmode = 'Legacy Tag Mode', --Ikemen feature
+		menu_itemname_gameplay_simulmode_simul = 'Disabled', --Ikemen feature
+		menu_itemname_gameplay_simulmode_tag = 'Enabled', --Ikemen feature
+		menu_itemname_gameplay_advanced = 'Advanced Settings', --Ikemen feature
+		menu_itemname_gameplay_back = 'Back', --Ikemen feature
+		menu_itemname_video_resolution = 'Resolution', --Ikemen feature
+		menu_itemname_video_fullscreen = 'Fullscreen', --Ikemen feature
+		menu_itemname_video_msaa = 'MSAA', --Ikemen feature
+		menu_itemname_video_helpermax = 'HelperMax', --Ikemen feature
+		menu_itemname_video_playerprojectilemax = 'PlayerProjectileMax', --Ikemen feature
+		menu_itemname_video_explodmax = 'ExplodMax', --Ikemen feature
+		menu_itemname_video_afterimagemax = 'AfterImageMax', --Ikemen feature
+		menu_itemname_video_zoomactive = 'Zoom Active', --Ikemen feature
+		menu_itemname_video_maxzoomout = 'Default Max Zoom Out', --Ikemen feature
+		menu_itemname_video_maxzoomin = 'Default Max Zoom In', --Ikemen feature
+		menu_itemname_video_zoomspeed = 'Default Zoom Speed', --Ikemen feature
+		menu_itemname_video_lifebarfontscale = 'Default Lifebar Font Scale', --Ikemen feature
+		menu_itemname_video_aipalette = 'AI Palette', --Ikemen feature
+		menu_itemname_video_aipalette_random = 'Random', --Ikemen feature
+		menu_itemname_video_aipalette_default = 'Default', --Ikemen feature
+		menu_itemname_video_back = 'Back', --Ikemen feature
+		menu_itemname_res_320x240 = '320x240    (4:3 QVGA)', --Ikemen feature
+		menu_itemname_res_640x480 = '640x480    (4:3 VGA)', --Ikemen feature
+		menu_itemname_res_1280x960 = '1280x960   (4:3 Quad-VGA)', --Ikemen feature
+		menu_itemname_res_1600x1200 = '1600x1200  (4:3 UXGA)', --Ikemen feature
+		menu_itemname_res_960x720 = '960x720    (4:3 HD)', --Ikemen feature
+		menu_itemname_res_1200x900 = '1200x900   (4:3 HD+)', --Ikemen feature
+		menu_itemname_res_1440x1080 = '1440x1080  (4:3 FHD)', --Ikemen feature
+		menu_itemname_res_1280x720 = '1280x720   (16:9 HD)', --Ikemen feature
+		menu_itemname_res_1600x900 = '1600x900   (16:9 HD+)', --Ikemen feature
+		menu_itemname_res_1920x1080 = '1920x1080  (16:9 FHD)', --Ikemen feature
+		menu_itemname_res_2560x1440 = '2560x1440  (16:9 2K)', --Ikemen feature
+		menu_itemname_res_3840x2160 = '3840x2160  (16:9 4K)', --Ikemen feature
+		menu_itemname_res_custom = 'Custom', --Ikemen feature
+		menu_itemname_res_back = 'Back', --Ikemen feature
+		menu_itemname_input_p1keyboard = 'P1 Keyboard', --Ikemen feature
+		menu_itemname_input_p1gamepad = 'P1 Gamepad', --Ikemen feature
+		menu_itemname_input_p2keyboard = 'P2 Keyboard', --Ikemen feature
+		menu_itemname_input_p2gamepad = 'P2 Gamepad', --Ikemen feature
+		menu_itemname_input_default = 'Default Values', --Ikemen feature
+		menu_itemname_input_back = 'Back', --Ikemen feature
+		menu_itemname_key_up = 'Up', --Ikemen feature
+		menu_itemname_key_down = 'Down', --Ikemen feature
+		menu_itemname_key_left = 'Left', --Ikemen feature
+		menu_itemname_key_right = 'Right', --Ikemen feature
+		menu_itemname_key_a = 'A', --Ikemen feature
+		menu_itemname_key_b = 'B', --Ikemen feature
+		menu_itemname_key_c = 'C', --Ikemen feature
+		menu_itemname_key_x = 'X', --Ikemen feature
+		menu_itemname_key_y = 'Y', --Ikemen feature
+		menu_itemname_key_z = 'Z', --Ikemen feature
+		menu_itemname_key_start = 'Start', --Ikemen feature
+		menu_itemname_key_v = 'D', --Ikemen feature
+		menu_itemname_key_w = 'W', --Ikemen feature
+		menu_itemname_key_back = 'Back', --Ikemen feature
+		menu_itemname_yes = 'Yes', --Ikemen feature
+		menu_itemname_no = 'No', --Ikemen feature
+		menu_itemname_main_save = 'Save and Return', --Ikemen feature
+		menu_itemname_enabled = 'Enabled', --Ikemen feature
+		menu_itemname_disabled = 'Disabled', --Ikemen feature
+		menu_itemname_audio_mastervolume = 'Master Volume', --Ikemen feature
+		menu_itemname_audio_sfxvolume = 'SFX Volume', --Ikemen feature
+		menu_itemname_audio_bgmvolume = 'BGM Volume', --Ikemen feature
+		menu_itemname_audio_audioducking = 'Audio Ducking', --Ikemen feature
+		menu_itemname_engine_quicklaunch = 'Quick Launch', --Ikemen feature
+		menu_itemname_engine_allowdebugkeys = 'Debug Keys', --Ikemen feature
+		input_text_port = 'Type in Host Port, e.g. 7500.\nPress ENTER to accept.\nPress ESC to cancel.', --Ikemen feature
+		input_text_reswidth = 'Type in screen width.\nPress ENTER to accept.\nPress ESC to cancel.', --Ikemen feature
+		input_text_resheight = 'Type in screen height.\nPress ENTER to accept.\nPress ESC to cancel.', --Ikemen feature
+		input_text_key = 'Press a key to assign to entry.\nPress ESC to cancel.', --Ikemen feature
+		cursor_move_snd = {100, 0},
+		cursor_done_snd = {100, 1},
+		cancel_snd = {100, 2},
+	},
+	optionbgdef =
+	{
+		spr = '',
+		bgclearcolor = {0, 0, 0},
+		bg = {},
+		timer = 0, --Ikemen feature
+	},
+	tournament_info =
+	{
+		fadein_time = 15, --Ikemen feature
+		fadein_col = {0, 0, 0}, --Ikemen feature
+		fadeout_time = 15, --Ikemen feature
+		fadeout_col = {0, 0, 0}, --Ikemen feature
+	},
+	tournamentbgdef =
+	{
+		spr = 'data/tournament.sff', --Ikemen feature
+		bgclearcolor = {0, 0, 0}, --Ikemen feature
+		bg = {}, --Ikemen feature
+		timer = 0, --Ikemen feature
+	},
+	warning_info =
+	{
+		title = 'WARNING', --Ikemen feature
+		title_pos = {159, 19}, --Ikemen feature
+		title_font = {'font/f-6x9.fnt', 0, 0, nil, nil, nil}, --Ikemen feature
+		title_font_scale = {1.0, 1.0}, --Ikemen feature
+		text_stages = 'No stages in select.def available for random selection.\nPress any key to exit the program.', --Ikemen feature
+		text_order = "No characters in select.def correspond to 'maxmatches'\nsettings. Check [Characters] section and 'order' parameters.\nPress any key to exit the program.", --Ikemen feature
+		text_training = "Training character ('chars/Training/Training.def') not found.\nPress any key to exit the program.", --Ikemen feature
+		text_reload = 'Some selected options require Ikemen to be restarted.\nPress any key to exit the program.', --Ikemen feature
+		text_res = 'Non 4:3 resolutions require stages coded for different\naspect ratio. Change it back to 4:3 if stages look off.', --Ikemen feature
+		text_pos = {25, 33}, --Ikemen feature
+		text_font = {'font/f-6x9.fnt', 0, 1, nil, nil, nil}, --Ikemen feature
+		text_font_scale = {1.0, 1.0}, --Ikemen feature
+		text_spacing = {0, 13}, --Ikemen feature
+		background_alpha = {20, 100}, --Ikemen feature
+	},
+	anim =
+	{
+		[9000] = { --Ikemen feature
+			'2,0, -60,8, 1', --1 (count 9 start - initial animation)
+			'2,1, -60,8, 1', --2
+			'2,2, -60,8, 1', --3
+			'2,3, -60,8, 3', --6
+			'2,4, -60,8, 3', --9
+			'2,5, -60,8, 1', --10
+			'2,6, -60,8, 3', --13
+			'2,7, -60,8, 2', --15
+			'2,8, -60,8, 2', --17
+			'2,9, -60,8, 2', --19
+			'2,10, -60,8, 1', --20
+			'2,11, -60,8, 5', --25
+			'2,12, -60,8, 5', --30
+			'2,13, -60,8, 1', --31
+			'2,14, -60,8, 1', --32
+			'2,15, -60,8, 3', --35
+			'2,16, -60,8, 3', --38
+			'2,17, -60,8, 1', --39
+			'2,18, -60,8, 5', --44
+			'2,19, -60,8, 1', --45
+			'2,20, -60,8, 4', --49
+			'2,21, -60,8, 1', --50
+			'2,22, -60,8, 1', --51
+			'2,23, -60,8, 1', --52
+			'2,24, -60,8, 2', --54
+			'2,25, -60,8, 1', --55
+			'2,26, -60,8, 5', --60
+			'2,27, -60,8, 5', --65
+			'2,28, -60,8, 1', --66
+			'2,29, -60,8, 3', --69
+			'2,30, -60,8, 2', --71
+			'3,0, -60,8, 6', --77 (count 9 - actual counter)
+			'3,1, -60,8, 54', --131
+			'3,2, -60,8, 4', --135
+			'3,3, -60,8, 4', --139
+			'3,4, -60,8, 4', --143
+			'3,5, -60,8, 4', --147
+			'3,6, -60,8, 44', --191
+			'3,7, -60,8, 9', --200
+			'3,8, -60,8, 4', --204
+			'3,9, -60,8, 3', --207
+			'3,10, -60,8, 2', --209
+			'3,11, -60,8, 2', --211
+			'3,12, -60,8, 1', --212
+			'3,13, -60,8, 2', --214
+			'3,14, -60,8, 1', --215
+			'3,15, -60,8, 1', --216
+			'3,16, -60,8, 2', --218
+			'3,17, -60,8, 1', --219
+			'3,18, -60,8, 1', --220
+			'3,19, -60,8, 1', --221 (count 9 end)
+			'4,0, -60,8, 1', --222 (count 8 start)
+			'4,1, -60,8, 2', --224
+			'4,2, -60,8, 2', --226
+			'4,3, -60,8, 2', --228
+			'4,4, -60,8, 2', --230
+			'4,5, -60,8, 2', --232
+			'4,6, -60,8, 2', --234
+			'4,7, -60,8, 1', --235
+			'4,8, -60,8, 2', --237
+			'4,9, -60,8, 3', --240
+			'4,10, -60,8, 4', --244
+			'4,11, -60,8, 9', --253
+			'4,12, -60,8, 5', --258
+			'4,13, -60,8, 4', --262
+			'4,14, -60,8, 4', --266
+			'4,15, -60,8, 4', --270
+			'4,16, -60,8, 4', --274
+			'4,17, -60,8, 44', --318
+			'4,18, -60,8, 9', --327
+			'4,19, -60,8, 4', --331
+			'4,20, -60,8, 3', --334
+			'4,21, -60,8, 2', --336
+			'4,22, -60,8, 2', --338
+			'4,23, -60,8, 1', --339
+			'4,24, -60,8, 2', --341
+			'4,25, -60,8, 1', --342
+			'4,26, -60,8, 1', --343
+			'4,27, -60,8, 2', --345
+			'4,28, -60,8, 1', --346
+			'4,29, -60,8, 1', --347
+			'4,30, -60,8, 1', --348 (count 8 end)
+			'5,0, -60,8, 1', --349 (count 7 start)
+			'5,1, -60,8, 2', --351
+			'5,2, -60,8, 2', --353
+			'5,3, -60,8, 2', --355
+			'5,4, -60,8, 2', --357
+			'5,5, -60,8, 2', --359
+			'5,6, -60,8, 2', --361
+			'5,7, -60,8, 1', --362
+			'5,8, -60,8, 2', --364
+			'5,9, -60,8, 3', --367
+			'5,10, -60,8, 4', --371
+			'5,11, -60,8, 9', --380
+			'5,12, -60,8, 5', --385
+			'5,13, -60,8, 4', --389
+			'5,14, -60,8, 4', --393
+			'5,15, -60,8, 4', --397
+			'5,16, -60,8, 4', --401
+			'5,17, -60,8, 44', --445
+			'5,18, -60,8, 9', --454
+			'5,19, -60,8, 4', --458
+			'5,20, -60,8, 3', --461
+			'5,21, -60,8, 2', --463
+			'5,22, -60,8, 2', --465
+			'5,23, -60,8, 1', --466
+			'5,24, -60,8, 2', --468
+			'5,25, -60,8, 1', --469
+			'5,26, -60,8, 1', --470
+			'5,27, -60,8, 2', --472
+			'5,28, -60,8, 1', --473
+			'5,29, -60,8, 1', --474
+			'5,30, -60,8, 1', --475 (count 7 end)
+			'6,0, -60,8, 1', --476 (count 6 start)
+			'6,1, -60,8, 2', --478
+			'6,2, -60,8, 2', --480
+			'6,3, -60,8, 2', --482
+			'6,4, -60,8, 2', --484
+			'6,5, -60,8, 2', --486
+			'6,6, -60,8, 2', --488
+			'6,7, -60,8, 1', --489
+			'6,8, -60,8, 2', --491
+			'6,9, -60,8, 3', --494
+			'6,10, -60,8, 4', --498
+			'6,11, -60,8, 9', --507
+			'6,12, -60,8, 5', --512
+			'6,13, -60,8, 4', --516
+			'6,14, -60,8, 4', --520
+			'6,15, -60,8, 4', --524
+			'6,16, -60,8, 4', --528
+			'6,17, -60,8, 44', --572
+			'6,18, -60,8, 9', --581
+			'6,19, -60,8, 4', --585
+			'6,20, -60,8, 3', --588
+			'6,21, -60,8, 2', --590
+			'6,22, -60,8, 2', --592
+			'6,23, -60,8, 1', --593
+			'6,24, -60,8, 2', --595
+			'6,25, -60,8, 1', --596
+			'6,26, -60,8, 1', --597
+			'6,27, -60,8, 2', --599
+			'6,28, -60,8, 1', --600
+			'6,29, -60,8, 1', --601
+			'6,30, -60,8, 1', --602 (count 6 end)
+			'7,0, -60,8, 1', --603 (count 5 start)
+			'7,1, -60,8, 2', --605
+			'7,2, -60,8, 2', --607
+			'7,3, -60,8, 2', --609
+			'7,4, -60,8, 2', --611
+			'7,5, -60,8, 2', --613
+			'7,6, -60,8, 2', --615
+			'7,7, -60,8, 1', --616
+			'7,8, -60,8, 2', --618
+			'7,9, -60,8, 3', --621
+			'7,10, -60,8, 4', --625
+			'7,11, -60,8, 9', --634
+			'7,12, -60,8, 5', --639
+			'7,13, -60,8, 4', --643
+			'7,14, -60,8, 4', --647
+			'7,15, -60,8, 4', --651
+			'7,16, -60,8, 4', --655
+			'7,17, -60,8, 44', --699
+			'7,18, -60,8, 9', --708
+			'7,19, -60,8, 4', --712
+			'7,20, -60,8, 3', --715
+			'7,21, -60,8, 2', --717
+			'7,22, -60,8, 2', --719
+			'7,23, -60,8, 1', --720
+			'7,24, -60,8, 2', --722
+			'7,25, -60,8, 1', --723
+			'7,26, -60,8, 1', --724
+			'7,27, -60,8, 2', --726
+			'7,28, -60,8, 1', --727
+			'7,29, -60,8, 1', --728
+			'7,30, -60,8, 1', --729 (count 5 end)
+			'8,0, -60,8, 1', --730 (count 4 start)
+			'8,1, -60,8, 2', --732
+			'8,2, -60,8, 2', --734
+			'8,3, -60,8, 2', --736
+			'8,4, -60,8, 2', --738
+			'8,5, -60,8, 2', --740
+			'8,6, -60,8, 2', --742
+			'8,7, -60,8, 1', --743
+			'8,8, -60,8, 2', --745
+			'8,9, -60,8, 3', --748
+			'8,10, -60,8, 4', --752
+			'8,11, -60,8, 9', --761
+			'8,12, -60,8, 5', --766
+			'8,13, -60,8, 4', --770
+			'8,14, -60,8, 4', --774
+			'8,15, -60,8, 4', --778
+			'8,16, -60,8, 4', --782
+			'8,17, -60,8, 44', --826
+			'8,18, -60,8, 9', --835
+			'8,19, -60,8, 4', --839
+			'8,20, -60,8, 3', --842
+			'8,21, -60,8, 2', --844
+			'8,22, -60,8, 2', --846
+			'8,23, -60,8, 1', --847
+			'8,24, -60,8, 2', --849
+			'8,25, -60,8, 1', --850
+			'8,26, -60,8, 1', --851
+			'8,27, -60,8, 2', --853
+			'8,28, -60,8, 1', --854
+			'8,29, -60,8, 1', --855
+			'8,30, -60,8, 1', --856 (count 4 end)
+			'9,0, -60,8, 1', --857 (count 3 start)
+			'9,1, -60,8, 2', --859
+			'9,2, -60,8, 2', --861
+			'9,3, -60,8, 2', --863
+			'9,4, -60,8, 2', --865
+			'9,5, -60,8, 2', --867
+			'9,6, -60,8, 2', --869
+			'9,7, -60,8, 1', --870
+			'9,8, -60,8, 2', --872
+			'9,9, -60,8, 3', --875
+			'9,10, -60,8, 4', --879
+			'9,11, -60,8, 9', --888
+			'9,12, -60,8, 5', --893
+			'9,13, -60,8, 4', --897
+			'9,14, -60,8, 4', --901
+			'9,15, -60,8, 4', --905
+			'9,16, -60,8, 4', --909
+			'9,17, -60,8, 44', --953
+			'9,18, -60,8, 9', --962
+			'9,19, -60,8, 4', --966
+			'9,20, -60,8, 3', --969
+			'9,21, -60,8, 2', --971
+			'9,22, -60,8, 2', --973
+			'9,23, -60,8, 1', --974
+			'9,24, -60,8, 2', --976
+			'9,25, -60,8, 1', --977
+			'9,26, -60,8, 1', --978
+			'9,27, -60,8, 2', --980
+			'9,28, -60,8, 1', --981
+			'9,29, -60,8, 1', --982
+			'9,30, -60,8, 1', --983 (count 3 end)
+			'1-60,8, -60,8, 1', --984 (count 2 start)
+			'10,1, -60,8, 2', --986
+			'10,2, -60,8, 2', --988
+			'10,3, -60,8, 2', --990
+			'10,4, -60,8, 2', --992
+			'10,5, -60,8, 2', --994
+			'10,6, -60,8, 2', --996
+			'10,7, -60,8, 1', --997
+			'10,8, -60,8, 2', --999
+			'10,9, -60,8, 3', --1002
+			'10,10, -60,8, 4', --1006
+			'10,11, -60,8, 9', --1015
+			'10,12, -60,8, 5', --1020
+			'10,13, -60,8, 4', --1024
+			'10,14, -60,8, 4', --1028
+			'10,15, -60,8, 4', --1032
+			'10,16, -60,8, 4', --1036
+			'10,17, -60,8, 44', --1080
+			'10,18, -60,8, 9', --1089
+			'10,19, -60,8, 4', --1093
+			'10,20, -60,8, 3', --1096
+			'10,21, -60,8, 2', --1098
+			'10,22, -60,8, 2', --1100
+			'10,23, -60,8, 1', --1101
+			'10,24, -60,8, 2', --1103
+			'10,25, -60,8, 1', --1104
+			'10,26, -60,8, 1', --1105
+			'10,27, -60,8, 2', --1107
+			'10,28, -60,8, 1', --1108
+			'10,29, -60,8, 1', --1109
+			'10,30, -60,8, 1', --1110 (count 2 end)
+			'11,0, -60,8, 1', --1111 (count 1 start)
+			'11,1, -60,8, 2', --1113
+			'11,2, -60,8, 2', --1115
+			'11,3, -60,8, 2', --1117
+			'11,4, -60,8, 2', --1119
+			'11,5, -60,8, 2', --1121
+			'11,6, -60,8, 2', --1123
+			'11,7, -60,8, 1', --1124
+			'11,8, -60,8, 2', --1126
+			'11,9, -60,8, 3', --1129
+			'11,10, -60,8, 4', --1133
+			'11,11, -60,8, 9', --1142
+			'11,12, -60,8, 5', --1147
+			'11,13, -60,8, 4', --1151
+			'11,14, -60,8, 4', --1155
+			'11,15, -60,8, 4', --1159
+			'11,16, -60,8, 4', --1163
+			'11,17, -60,8, 44', --1207
+			'11,18, -60,8, 9', --1216
+			'11,19, -60,8, 4', --1220
+			'11,20, -60,8, 3', --1223
+			'11,21, -60,8, 2', --1225
+			'11,22, -60,8, 2', --1227
+			'11,23, -60,8, 1', --1228
+			'11,24, -60,8, 2', --1230
+			'11,25, -60,8, 1', --1231
+			'11,26, -60,8, 1', --1232
+			'11,27, -60,8, 2', --1234
+			'11,28, -60,8, 1', --1235
+			'11,29, -60,8, 1', --1236
+			'11,30, -60,8, 1', --1237 (count 1 end)
+			'12,0, -60,8, 1', --1238 (count 0 start)
+			'12,1, -60,8, 2', --1240
+			'12,2, -60,8, 2', --1242
+			'12,3, -60,8, 2', --1244
+			'12,4, -60,8, 2', --1246
+			'12,5, -60,8, 2', --1248
+			'12,6, -60,8, 2', --1250
+			'12,7, -60,8, 1', --1251
+			'12,8, -60,8, 2', --1253
+			'12,9, -60,8, 3', --1256
+			'12,10, -60,8, 4', --1260
+			'12,11, -60,8, 9', --1269
+			'12,12, -60,8, 5', --1274
+			'12,13, -60,8, 4', --1278
+			'12,14, -60,8, 4', --1282
+			'12,15, -60,8, 4', --1286
+			'12,16, -60,8, 4', --1290
+			'12,17, -60,8, 75', --1365
+			'12,18, -60,8, 1', --1366  (count 0 end)
+			'10-32,8, -32,8, 1', --1367 (1) (game over start)
+			'100,1, -32,8, 1', --1368 (2)
+			'100,2, -32,8, 1', --1369 (3)
+			'100,3, -32,8, 1', --1370 (4)
+			'100,4, -32,8, 1', --1371 (5)
+			'100,5, -32,8, 1', --1372 (6)
+			'100,6, -32,8, 1', --1373 (7)
+			'100,7, -32,8, 1', --1374 (8)
+			'100,8, -32,8, 1', --1375 (9)
+			'100,9, -32,8, 1', --1376 (10)
+			'100,10, -32,8, 1', --1377 (11)
+			'100,11, -32,8, 1', --1378 (12)
+			'100,12, -32,8, 1', --1379 (13)
+			'100,13, -32,8, 1', --1380 (14)
+			'100,14, -32,8, 1', --1381 (15)
+			'100,15, -32,8, 1', --1382 (16)
+			'100,16, -32,8, 1', --1383 (17)
+			'100,17, -32,8, 1', --1384 (18)
+			'100,18, -32,8, 1', --1385 (19)
+			'100,19, -32,8, 1', --1386 (20)
+			'100,20, -32,8, 1', --1387 (21)
+			'100,21, -32,8, 1', --1388 (22)
+			'100,22, -32,8, 1', --1389 (23)
+			'100,23, -32,8, 1', --1390 (24)
+			'100,24, -32,8, 1', --1391 (25)
+			'100,25, -32,8, 1', --1392 (26)
+			'100,26, -32,8, 1', --1393 (27)
+			'100,27, -32,8, 1', --1394 (28)
+			'100,28, -32,8, 1', --1395 (29)
+			'100,29, -32,8, 1', --1396 (30)
+			'100,30, -32,8, 1', --1397 (31)
+			'100,31, -32,8, 1', --1398 (32)
+			'101,0, -32,8, 1', --1399 (33)
+			'101,1, -32,8, 1', --1400 (34)
+			'101,2, -32,8, 1', --1401 (35)
+			'101,3, -32,8, 1', --1402 (36)
+			'101,4, -32,8, 1', --1403 (37)
+			'101,5, -32,8, 1', --1404 (38)
+			'101,6, -32,8, 1', --1405 (39)
+			'101,7, -32,8, 1', --1406 (40)
+			'101,8, -32,8, 1', --1407 (41)
+			'101,9, -32,8, 1', --1408 (42)
+			'101,10, -32,8, 1', --1409 (43)
+			'101,11, -32,8, 1', --1410 (44)
+			'101,12, -32,8, 1', --1411 (45)
+			'101,13, -32,8, 1', --1412 (46)
+			'101,14, -32,8, 1', --1413 (47)
+			'101,15, -32,8, 1', --1414 (48)
+			'101,16, -32,8, 1', --1415 (49)
+			'101,17, -32,8, 1', --1416 (50)
+			'101,18, -32,8, 1', --1417 (51)
+			'101,19, -32,8, 1', --1418 (52)
+			'101,20, -32,8, 1', --1419 (53)
+			'101,21, -32,8, 1', --1420 (54)
+			'101,22, -32,8, 1', --1421 (55)
+			'101,23, -32,8, 1', --1422 (56)
+			'101,24, -32,8, 1', --1423 (57)
+			'101,25, -32,8, 1', --1424 (58)
+			'101,26, -32,8, 1', --1425 (59)
+			'101,27, -32,8, 1', --1426 (60)
+			'101,28, -32,8, 1', --1427 (61)
+			'101,29, -32,8, 1', --1428 (62)
+			'101,30, -32,8, 1', --1429 (63)
+			'101,31, -32,8, 1', --1430 (64)
+			'101,32, -32,8, 1', --1431 (65)
+			'101,33, -32,8, 1', --1432 (66)
+			'101,34, -32,8, 1', --1433 (67)
+			'101,35, -32,8, 1', --1434 (68)
+			'101,36, -32,8, 1', --1435 (69)
+			'101,37, -32,8, 1', --1436 (70)
+			'101,38, -32,8, 1', --1437 (71)
+			'101,39, -32,8, 1', --1438 (72)
+			'101,40, -32,8, 1', --1439 (73)
+			'101,41, -32,8, 1', --1440 (74)
+			'101,42, -32,8, 1', --1441 (75)
+			'101,43, -32,8, 1', --1442 (76)
+			'101,44, -32,8, 1', --1443 (77)
+			'101,45, -32,8, 1', --1444 (78)
+			'101,46, -32,8, 1', --1445 (79)
+			'101,47, -32,8, 1', --1446 (80)
+			'101,48, -32,8, 1', --1447 (81)
+			'101,49, -32,8, 1', --1448 (82)
+			'101,50, -32,8, 1', --1449 (83)
+			'101,51, -32,8, 1', --1450 (84)
+			'101,52, -32,8, 1', --1451 (85)
+			'101,53, -32,8, 1', --1452 (86)
+			'101,54, -32,8, 1', --1453 (87)
+			'101,55, -32,8, 1', --1454 (88)
+			'101,56, -32,8, 1', --1455 (89)
+			'101,57, -32,8, 1', --1456 (90)
+			'101,58, -32,8, 1', --1457 (91)
+			'101,59, -32,8, 1', --1458 (92)
+			'101,60, -32,8, 1', --1459 (93)
+			'101,61, -32,8, 1', --1460 (94)
+			'101,62, -32,8, 1', --1461 (95)
+			'101,63, -32,8, 1', --1462 (96)
+			'101,64, -32,8, 1', --1463 (97)
+			'101,65, -32,8, 1', --1464 (98)
+			'101,66, -32,8, 1', --1465 (99)
+			'101,67, -32,8, 1', --1466 (100)
+			'101,68, -32,8, 1', --1467 (101)
+			'101,69, -32,8, 1', --1468 (102)
+			'101,70, -32,8, 1', --1469 (103)
+			'101,71, -32,8, 1', --1470 (104)
+			'101,72, -32,8, 1', --1471 (105)
+			'101,73, -32,8, 1', --1472 (106)
+			'101,74, -32,8, 1', --1473 (107)
+			'101,75, -32,8, 119', --1592 (226)
+			'101,75, -32,8, -1', --1593+
+		},
+	},
+	ctrldef = {
+		titlebgdef = {},
+		selectbgdef = {}, 
+		versusbgdef = {},
+		optionbgdef = {},
+		continuebgdef = {},
+		victorybgdef = {},
+		resultsbgdef = {},
+		tournamentbgdef = {},
+	}
+}
+
+--;===========================================================
+--; PARSE SCREENPACK
+--;===========================================================
+--here starts proper screenpack DEF file parsing
+local sp = config.Motif
+if main.flags['-r'] ~= nil then
+	if main.f_fileExists(main.flags['-r']) then
+		sp = main.flags['-r']
+	elseif main.f_fileExists('data/' .. main.flags['-r'] .. '/system.def') then
+		sp = 'data/' .. main.flags['-r'] .. '/system.def'
+	end
+end
+local file = io.open(sp, 'r')
+local fileDir, fileName = sp:match('^(.-)([^/\\]+)$')
+local t = {}
+local pos = t
+local def_pos = motif
+t.anim = {}
+t.font_data = {['font/f-4x6.fnt'] = fontNew('font/f-4x6.fnt'), ['font/f-6x9.fnt'] = fontNew('font/f-6x9.fnt'), ['font/jg.fnt'] = fontNew('font/jg.fnt')}
+t.ctrldef = {}
+t.fileDir = fileDir
+t.fileName = fileName
+local bgdef = 'dummyUntilSet'
+local bgctrl = ''
+local bgctrl_match = 'dummyUntilSet'
+local tmp = ''
+for line in file:lines() do
+	line = line:gsub('%s*;.*$', '')
+	if line:match('^%s*%[.-%s*%]%s*$') then --matched [] group
+		line = line:match('^%s*%[(.-)%s*%]%s*$') --match text between []
+		line = line:gsub('[%. ]', '_') --change . and space to _
+		line = line:lower() --lowercase line
+		local row = tostring(line:lower()) --just in case it's a number (not really needed)
+		if row:match('.+ctrldef') then --matched ctrldef start
+			bgctrl = row
+			bgctrl_match = bgctrl:match('^(.-ctrl)def')
+			t.ctrldef[bgdef .. 'def'][bgctrl] = {}
+			t.ctrldef[bgdef .. 'def'][bgctrl].ctrl = {}
+			pos = t.ctrldef[bgdef .. 'def'][bgctrl]
+			motif.ctrldef[bgdef .. 'def'][bgctrl] = {
+				looptime = -1,
+				ctrlid = {0},
+				ctrl = {}
+			}
+		elseif row:match('^' .. bgctrl_match) then --matched ctrldef content
+			tmp = t.ctrldef[bgdef .. 'def'][bgctrl].ctrl
+			tmp[#tmp + 1] = {}
+			pos = tmp[#tmp]
+			motif.ctrldef[bgdef .. 'def'][bgctrl].ctrl[#tmp] = {
+				type = 'null',
+				time = {0, -1, -1},
+				ctrlid = {}
+			}
+		elseif row:match('.+bgdef$') then --matched bgdef start
+			t[row] = {}
+			pos = t[row]
+			t[row].bg = {}
+			bgdef = row:match('(.+)def$')
+			t.ctrldef[bgdef .. 'def'] = {}
+		elseif row:match('^' .. bgdef) then --matched bgdef content
+			tmp = t[bgdef .. 'def']
+			tmp.bg[#tmp.bg + 1] = {}
+			pos = tmp.bg[#tmp.bg]
+			motif[bgdef .. 'def'].bg[#tmp.bg] =
+			{
+				type = 'normal',
+				spriteno = {0, 0},
+				id = 0,
+				layerno = 0,
+				start = {0, 0},
+				delta = {1, 1},
+				trans = '',
+				mask = 0,
+				tile = {0, 0},
+				tilespacing = {0, nil},
+				--window = {0, 0, 0, 0},
+				--windowdelta = {0, 0}, --not supported yet
+				--width = {0, 0}, --not supported yet (parallax)
+				--xscale = {1.0, 1.0}, --not supported yet (parallax)
+				--yscalestart = 100, --not supported yet (parallax)
+				--yscaledelta = 1, --not supported yet (parallax)
+				positionlink = 0,
+				velocity = {0, 0},
+				--sin_x = {0, 0, 0}, --not supported yet
+				--sin_y = {0, 0, 0}, --not supported yet
+				ctrl = {},
+				ctrl_flags = {
+					visible = 1,
+					enabled = 1,
+					velx = 0,
+					vely = 0,
+					x = 0,
+					y = 0
+				}
+			}
+		elseif row:match('^begin_action_[0-9]+$') then --matched anim
+			row = tonumber(row:match('^begin_action_([0-9]+)$'))
+			t.anim[row] = {}
+			pos = t.anim[row]
+		else --matched other []
+			t[row] = {}
+			pos = t[row]
+			def_pos = motif[row]
+		end
+	else --matched non [] line
+		local param, value = line:match('^%s*([^=]-)%s*=%s*(.-)%s*$')
+		if param ~= nil then
+			param = param:gsub('[%. ]', '_') --change param . and space to _
+			param = param:lower() --lowercase param
+			if value == '' and (type(def_pos[param]) == 'number' or type(def_pos[param]) == 'table') then --text should remain empty
+				value = '0'
+			end
+		end
+		if param ~= nil and value ~= nil then --param = value pattern matched
+			value = value:gsub('"', '') --remove brackets from value
+			value = value:gsub('^(%.[0-9])', '0%1') --add 0 before dot if missing at the beginning of matched string
+			value = value:gsub('([^0-9])(%.[0-9])', '%10%2') --add 0 before dot if missing anywhere else
+			if param:match('^font[0-9]+$') then --font declaration param matched
+				local num = tonumber(param:match('font([0-9]+)'))
+				if param:match('_height$') then
+					if pos.font_height == nil then
+						pos.font_height = {}
+					end
+					pos.font_height[num] = main.f_dataType(value)
+				else
+					value = value:lower()
+					value = value:gsub('\\', '/')
+					if t.font_data[value] == nil then
+						if not value:match('^data/') then
+							if main.f_fileExists(fileDir .. value) then
+								value = fileDir .. value
+							elseif main.f_fileExists('font/' .. value) then
+								value = 'font/' .. value
+							elseif main.f_fileExists(t.files.fight:match('^(.-)[^/\\]+$') .. value) then
+								value = t.files.fight:match('^(.-)[^/\\]+$') .. value
+							end
+						end
+						t.font_data[value] = fontNew(value)
+						wait = true
+					end
+					if pos.font == nil then
+						pos.font = {}
+					end
+					pos.font[num] = tostring(value)
+				end
+			elseif pos[param] == nil then --mugen takes into account only first occurrence
+				if value:match('.+,.+') then --multiple values
+					for i, c in ipairs(main.f_strsplit(',', value)) do --split value using "," delimiter
+						if param:match('_anim$') then --mugen recognizes animations even if there are more values
+							pos[param] = main.f_dataType(c)
+							break
+						elseif i == 1 then
+							pos[param] = {}
+							if param:match('_font$') then
+								c = t.files.font[tonumber(c)]
+							end
+						end
+						if c == nil or c == '' then
+							pos[param][#pos[param] + 1] = 0
+						else
+							pos[param][#pos[param] + 1] = main.f_dataType(c)
+						end
+					end
+				else --single value
+					pos[param] = main.f_dataType(value)
+				end
+			end
+		else --only valid lines left are animations
+			line = line:lower()
+			local value = line:match('^%s*([0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+.-)[,%s]*$') or line:match('^%s*loopstart')
+			if value ~= nil then
+				value = value:gsub(',%s*,', ',0,') --add missing values
+				value = value:gsub(',%s*$', '')
+				pos[#pos + 1] = value
+			end
+		end
+	end
+	main.loadingRefresh()
+end
+file:close()
+
+--;===========================================================
+--; FIX REFERENCES, LOAD DATA
+--;===========================================================
+local anim = ''
+local facing = ''
+
+--merge tables
+motif = main.f_tableMerge(motif, t)
+
+--general paths
+local t_dir = {
+	{t = {'files',            'spr'},              skip = {'^data/'},        dirs = {motif.fileDir .. motif.files.spr,                   'data/' .. motif.files.spr}},
+	{t = {'files',            'snd'},              skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.files.snd,                   'data/' .. motif.files.snd}},
+	{t = {'files',            'continue_snd'},     skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.files.continue_snd,          'data/' .. motif.files.continue_snd}},
+	{t = {'files',            'logo_storyboard'},  skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.files.logo_storyboard,       'data/' .. motif.files.logo_storyboard}},
+	{t = {'files',            'intro_storyboard'}, skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.files.intro_storyboard,      'data/' .. motif.files.intro_storyboard}},
+	{t = {'files',            'select'},           skip = {'^data/'},        dirs = {motif.fileDir .. motif.files.select,                'data/' .. motif.files.select}},
+	{t = {'files',            'fight'},            skip = {'^data/'},        dirs = {motif.fileDir .. motif.files.fight,                 'data/' .. motif.files.fight}},
+	{t = {'music',            'title_bgm'},        skip = {'^music/', '^$'}, dirs = {motif.fileDir .. motif.music.title_bgm,             'music/' .. motif.music.title_bgm}},
+	{t = {'music',            'select_bgm'},       skip = {'^music/', '^$'}, dirs = {motif.fileDir .. motif.music.select_bgm,            'music/' .. motif.music.select_bgm}},
+	{t = {'music',            'vs_bgm'},           skip = {'^music/', '^$'}, dirs = {motif.fileDir .. motif.music.vs_bgm,                'music/' .. motif.music.vs_bgm}},
+	{t = {'music',            'victory_bgm'},      skip = {'^music/', '^$'}, dirs = {motif.fileDir .. motif.music.victory_bgm,           'music/' .. motif.music.victory_bgm}},
+	{t = {'default_ending',   'storyboard'},       skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.default_ending.storyboard,   'data/' .. motif.default_ending.storyboard}},
+	{t = {'end_credits',      'storyboard'},       skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.end_credits.storyboard,      'data/' .. motif.end_credits.storyboard}},
+	{t = {'game_over_screen', 'storyboard'},       skip = {'^data/',  '^$'}, dirs = {motif.fileDir .. motif.game_over_screen.storyboard, 'data/' .. motif.game_over_screen.storyboard}},
+}
+for i = 1, #t_dir do
+	local skip = false
+	for j = 1, #t_dir[i].skip do
+		if motif[t_dir[i].t[1]][t_dir[i].t[2]]:match(t_dir[i].skip[j]) then
+			skip = true
+			break
+		end
+	end
+	if not skip then
+		for j = 1, #t_dir[i].dirs do
+			if main.f_fileExists(t_dir[i].dirs[j]) then
+				motif[t_dir[i].t[1]][t_dir[i].t[2]] = t_dir[i].dirs[j]
+				break
+			end
+		end
+	end
+end
+
+motif.files.spr_data = sffNew(motif.files.spr)
+main.loadingRefresh()
+motif.files.snd_data = sndNew(motif.files.snd)
+main.loadingRefresh()
+motif.files.continue_snd_data = sndNew(motif.files.continue_snd)
+main.loadingRefresh()
+
+--fadein / fadeout data
+t_dir = {'title_info', 'select_info', 'vs_screen', 'victory_screen', 'win_screen', 'survival_results_screen', 'vs100kumite_results_screen', 'option_info', 'tournament_info', 'continue_screen'}
+for i = 1, #t_dir do
+	motif[t_dir[i]].fadein_data = main.f_fadeAnim(1, motif[t_dir[i]].fadein_time, motif[t_dir[i]].fadein_col[1], motif[t_dir[i]].fadein_col[2], motif[t_dir[i]].fadein_col[3])
+	animSetWindow(motif[t_dir[i]].fadein_data, main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+	motif[t_dir[i]].fadeout_data = main.f_fadeAnim(0, motif[t_dir[i]].fadeout_time, motif[t_dir[i]].fadeout_col[1], motif[t_dir[i]].fadeout_col[2], motif[t_dir[i]].fadeout_col[3])
+	animSetWindow(motif[t_dir[i]].fadeout_data, main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+end
+
+--other entries
+t_dir = {'titlebgdef', 'selectbgdef', 'versusbgdef', 'optionbgdef', 'continuebgdef', 'victorybgdef', 'resultsbgdef', 'tournamentbgdef'}
+for i = 1, #t_dir do
+	--ctrldef table adjustment
+	for k, v in pairs(motif.ctrldef[t_dir[i]]) do
+		tmp = motif.ctrldef[t_dir[i]][k].ctrl
+		for j = 1, #tmp do
+			--if END_TIME is omitted it should default to the same value as START_TIME
+			if tmp[j].time[2] == -1 then
+				tmp[j].time[2] = tmp[j].time[1]
+			end
+			--if LOOPTIME is omitted or set to -1, the background controller will not reset its own timer. In such case use GLOBAL_LOOPTIME
+			if tmp[j].time[3] == -1 then
+				tmp[j].time[3] = motif.ctrldef[t_dir[i]][k].looptime
+			end
+			--lowercase type name
+			tmp[j].type = tmp[j].type:lower()
+			--this list, if specified, overrides the default list specified in the BGCtrlDef
+			if #tmp[j].ctrlid == 0 then
+				for z = 1, #motif.ctrldef[t_dir[i]][k].ctrlid do
+					tmp[j].ctrlid[#tmp[j].ctrlid + 1] = motif.ctrldef[t_dir[i]][k].ctrlid[z]
+				end
+			end
+		end
+	end
+	--optional sff paths and data
+	if motif[t_dir[i]].spr ~= '' then
+		if not motif[t_dir[i]].spr:match('^data/') then
+			if main.f_fileExists(motif.fileDir .. motif[t_dir[i]].spr) then
+				motif[t_dir[i]].spr = motif.fileDir .. motif[t_dir[i]].spr
+			elseif main.f_fileExists('data/' .. motif[t_dir[i]].spr) then
+				motif[t_dir[i]].spr = 'data/' .. motif[t_dir[i]].spr
+			end
+		end
+		motif[t_dir[i]].spr_data = sffNew(motif[t_dir[i]].spr)
+		main.loadingRefresh()
+	elseif motif[t_dir[i]].spr ~= 'continuebgdef' and motif[t_dir[i]].spr ~= 'tournamentbgdef' then
+		motif[t_dir[i]].spr = motif.files.spr
+		motif[t_dir[i]].spr_data = motif.files.spr_data
+	end
+	--clearcolor data
+	motif[t_dir[i]].bgclearcolor_data = main.f_clearColor(motif[t_dir[i]].bgclearcolor[1], motif[t_dir[i]].bgclearcolor[2], motif[t_dir[i]].bgclearcolor[3])
+	animSetWindow(motif[t_dir[i]].bgclearcolor_data, main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+	--background data
+	motif[t_dir[i]].bg_data = {}
+	local t_bgdef = motif[t_dir[i]].bg
+	local prev_k = ''
+	for k, v in pairs(t_bgdef) do --loop through table keys
+		t_bgdef[k].type = t_bgdef[k].type:lower()
+		--mugen ignores delta = 0 (defaults to 1)
+		if t_bgdef[k].delta[1] == 0 then t_bgdef[k].delta[1] = 1 end
+		if t_bgdef[k].delta[2] == 0 then t_bgdef[k].delta[2] = 1 end
+		--add ctrl data
+		motif[t_dir[i]].bg[k].ctrl = main.f_ctrlBG(t_bgdef[k], motif.ctrldef[t_dir[i]])
+		--positionlink adjustment
+		if t_bgdef[k].positionlink == 1 and prev_k ~= '' then
+			t_bgdef[k].start[1] = t_bgdef[prev_k].start[1]
+			t_bgdef[k].start[2] = t_bgdef[prev_k].start[2]
+			t_bgdef[k].delta[1] = t_bgdef[prev_k].delta[1]
+			t_bgdef[k].delta[2] = t_bgdef[prev_k].delta[2]
+		end
+		prev_k = k
+		--generate anim data
+		local sizeX, sizeY, offsetX, offsetY = 0, 0, 0, 0
+		if t_bgdef[k].type == 'anim' then
+			anim = main.f_animFromTable(motif.anim[t_bgdef[k].actionno], motif[t_dir[i]].spr_data, (t_bgdef[k].start[1] + main.normalSpriteCenter), t_bgdef[k].start[2])
+		else --normal, parallax
+			anim = t_bgdef[k].spriteno[1] .. ', ' .. t_bgdef[k].spriteno[2] .. ', ' .. (t_bgdef[k].start[1] + main.normalSpriteCenter) .. ', ' .. t_bgdef[k].start[2] .. ', ' .. -1
+			anim = animNew(motif[t_dir[i]].spr_data, anim)
+			sizeX, sizeY, offsetX, offsetY = getSpriteInfo(motif[t_dir[i]].spr, t_bgdef[k].spriteno[1], t_bgdef[k].spriteno[2])
+		end
+		if t_bgdef[k].trans == 'add1' then
+			animSetAlpha(anim, 255, 128)
+		elseif t_bgdef[k].trans == 'add' then
+			animSetAlpha(anim, 255, 255)
+		elseif t_bgdef[k].trans == 'sub' then
+			animSetAlpha(anim, 1, 255)
+		end
+		animAddPos(anim, 160, 0) --for some reason needed in ikemen
+		if t_bgdef[k].window ~= nil then
+			animSetWindow(
+				anim,
+				t_bgdef[k].window[1],
+				t_bgdef[k].window[2],
+				t_bgdef[k].window[3] - t_bgdef[k].window[1] + 1,
+				t_bgdef[k].window[4] - t_bgdef[k].window[2] + 1
+			)
+		else
+			animSetWindow(anim, main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+		end
+		if t_bgdef[k].tilespacing[2] == nil then t_bgdef[k].tilespacing[2] = t_bgdef[k].tilespacing[1] end
+		if t_bgdef[k].type == 'parallax' then
+			animSetTile(anim, t_bgdef[k].tile[1], 0, t_bgdef[k].tilespacing[1] + sizeX, t_bgdef[k].tilespacing[2] + sizeY)
+		else
+			animSetTile(anim, t_bgdef[k].tile[1], t_bgdef[k].tile[2], t_bgdef[k].tilespacing[1] + sizeX, t_bgdef[k].tilespacing[2] + sizeY)
+		end
+		if t_bgdef[k].mask == 1 or t_bgdef[k].type ~= 'normal' or (t_bgdef[k].trans ~= '' and t_bgdef[k].trans ~= 'none') then
+			animSetColorKey(anim, 0)
+		else
+			animSetColorKey(anim, -1)
+		end
+		
+		-- Scale non animated sprites
+		animUpdate(anim)
+		animSetScale(anim, 1 ,1)
+		
+		motif[t_dir[i]].bg_data[k] = anim
+		main.loadingRefresh()
+	end
+end
+
+local function f_facing(var)
+	if var == -1 then
+		return 'H'
+	else
+		return nil
+	end
+end
+
+local function f_alphaToTable(var) --not used yet
+	var = var:match('^%s*(.-)%s*$')
+	var = var:lower()
+	if var:match('^a$') then
+		return {255, 255} --AS256D256
+	elseif var:match('^a1$') then
+		return {255, 128} --AS256D128
+	elseif var:match('^s$') then
+		return {1, 255} --AS0D256
+	elseif var:match('^s1$') then
+		return {1, 128} --are these values correct for S1?
+	elseif var:match('^as[0-9]+d[0-9]+$') then
+		local tabl = {}
+		tabl[1] = tonumber(var:match('^as([0-9]+)'))
+		tabl[2] = tonumber(var:match('d([0-9]+)$'))
+		return tabl
+	else
+		return nil
+	end
+end
+
+t = motif.select_info
+t_dir = {
+	{s = 'cell_bg_',                      x = 0,                                                   y = 0},
+	{s = 'cell_random_',                  x = 0,                                                   y = 0},
+	{s = 'p1_cursor_active_',             x = 0,                                                   y = 0},
+	{s = 'p1_cursor_done_',               x = 0,                                                   y = 0},
+	{s = 'p2_cursor_active_',             x = 0,                                                   y = 0},
+	{s = 'p2_cursor_done_',               x = 0,                                                   y = 0},
+	{s = 'p1_teammenu_bg_',               x = t.p1_teammenu_pos[1],                                y = t.p1_teammenu_pos[2]},
+	{s = 'p1_teammenu_selftitle_',        x = t.p1_teammenu_pos[1],                                y = t.p1_teammenu_pos[2]},
+	{s = 'p1_teammenu_enemytitle_',       x = t.p1_teammenu_pos[1],                                y = t.p1_teammenu_pos[2]},
+	{s = 'p1_teammenu_item_cursor_',      x = t.p1_teammenu_pos[1] + t.p1_teammenu_item_offset[1], y = t.p1_teammenu_pos[2] + t.p1_teammenu_item_offset[2]},
+	{s = 'p1_teammenu_value_icon_',       x = t.p1_teammenu_pos[1] + t.p1_teammenu_item_offset[1], y = t.p1_teammenu_pos[2] + t.p1_teammenu_item_offset[2]},
+	{s = 'p1_teammenu_value_empty_icon_', x = t.p1_teammenu_pos[1] + t.p1_teammenu_item_offset[1], y = t.p1_teammenu_pos[2] + t.p1_teammenu_item_offset[2]},
+	{s = 'p2_teammenu_bg_',               x = t.p2_teammenu_pos[1],                                y = t.p2_teammenu_pos[2]},
+	{s = 'p2_teammenu_selftitle_',        x = t.p2_teammenu_pos[1],                                y = t.p2_teammenu_pos[2]},
+	{s = 'p2_teammenu_enemytitle_',       x = t.p2_teammenu_pos[1],                                y = t.p2_teammenu_pos[2]},
+	{s = 'p2_teammenu_item_cursor_',      x = t.p2_teammenu_pos[1] + t.p2_teammenu_item_offset[1], y = t.p2_teammenu_pos[2] + t.p2_teammenu_item_offset[2]},
+	{s = 'p2_teammenu_value_icon_',       x = t.p2_teammenu_pos[1] + t.p2_teammenu_item_offset[1], y = t.p2_teammenu_pos[2] + t.p2_teammenu_item_offset[2]},
+	{s = 'p2_teammenu_value_empty_icon_', x = t.p2_teammenu_pos[1] + t.p2_teammenu_item_offset[1], y = t.p2_teammenu_pos[2] + t.p2_teammenu_item_offset[2]},
+}
+for i = 1, #t_dir do
+	--if i <= 2 and #t[t_dir[i].s .. 'spr'] == 0 and t[t_dir[i].s .. 'anim'] ~= nil and motif.anim[t[t_dir[i].s .. 'anim']] ~= nil then --cell_bg_, cell_random_
+	--	for j = 1, #motif.anim[t[t_dir[i].s .. 'anim']] do
+	--		for k, c in ipairs(main.f_strsplit(',', motif.anim[t[t_dir[i].s .. 'anim']][j])) do
+	--			if c:match('loopstart') then
+	--				break
+	--			elseif k <= 2 then
+	--				t[t_dir[i].s .. 'spr'][k] = tonumber(c)
+	--			elseif k == 7 and type(c) == 'string' then
+	--				t[t_dir[i].s .. 'alpha'] = f_alphaToTable(c)
+	--			end
+	--		end
+	--	end
+	--end
+	if #t[t_dir[i].s .. 'spr'] > 0 then --create sprite data
+		if #t[t_dir[i].s .. 'spr'] == 1 then --fix values
+			if type(t[t_dir[i].s .. 'spr'][1]) == 'string' then
+				t[t_dir[i].s .. 'spr'] = {tonumber(t[t_dir[i].s .. 'spr'][1]:match('^([0-9]+)')), 0}
+			else
+				t[t_dir[i].s .. 'spr'] = {t[t_dir[i].s .. 'spr'][1], 0}
+			end
+		end
+		if t[t_dir[i].s .. 'facing'] == -1 then facing = ', H' else facing = '' end
+		anim = t[t_dir[i].s .. 'spr'][1] .. ', ' .. t[t_dir[i].s .. 'spr'][2] .. ', ' .. t[t_dir[i].s .. 'offset'][1] + t_dir[i].x .. ', ' .. t[t_dir[i].s .. 'offset'][2] + t_dir[i].y .. ', -1' .. facing
+		t[t_dir[i].s .. 'data'] = animNew(motif.selectbgdef.spr_data, anim)
+		animSetScale(t[t_dir[i].s .. 'data'], t[t_dir[i].s .. 'scale'][1], t[t_dir[i].s .. 'scale'][2])
+		animUpdate(t[t_dir[i].s .. 'data'])
+	elseif t[t_dir[i].s .. 'anim'] ~= nil and motif.anim[t[t_dir[i].s .. 'anim']] ~= nil then --create animation data
+		t[t_dir[i].s .. 'data'] = main.f_animFromTable(
+			motif.anim[t[t_dir[i].s .. 'anim']],
+			motif.selectbgdef.spr_data,
+			t[t_dir[i].s .. 'offset'][1] + t_dir[i].x,
+			t[t_dir[i].s .. 'offset'][2] + t_dir[i].y,
+			t[t_dir[i].s .. 'scale'][1],
+			t[t_dir[i].s .. 'scale'][2],
+			f_facing(t[t_dir[i].s .. 'facing'])
+		)
+	else --create dummy data
+		t[t_dir[i].s .. 'data'] = animNew(motif.selectbgdef.spr_data, '-1, -1, 0, 0, -1')
+		animUpdate(t[t_dir[i].s .. 'data'])
+	end
+	animSetWindow(t[t_dir[i].s .. 'data'], main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+	--animAddPos(t[t_dir[i].s .. 'data'], 160, 0) --for some reason needed in ikemen (but not in this case)
+	main.loadingRefresh()
+end
+
+t = motif.continue_screen
+if motif.anim[t.continue_anim] ~= nil then
+	t.continue_anim_data = main.f_animFromTable(
+		motif.anim[t.continue_anim],
+		motif.continuebgdef.spr_data,
+		t.continue_offset[1],
+		t.continue_offset[2],
+		t.continue_scale[1],
+		t.continue_scale[2]
+	)
+	animSetWindow(t.continue_anim_data, main.screenOverscan, 0, motif.info.localcoord[1], motif.info.localcoord[2])
+end
+
+if motif.vs_screen.p1_name_active_font == nil then
+	motif.vs_screen.p1_name_active_font = {motif.vs_screen.p1_name_font[1], motif.vs_screen.p1_name_font[2], motif.vs_screen.p1_name_font[3]}
+	motif.vs_screen.p1_name_active_font_scale = {motif.vs_screen.p1_name_font_scale[1], motif.vs_screen.p1_name_font_scale[2]}
+end
+if motif.vs_screen.p2_name_active_font == nil then
+	motif.vs_screen.p2_name_active_font = {motif.vs_screen.p2_name_font[1], motif.vs_screen.p2_name_font[2], motif.vs_screen.p2_name_font[3]}
+	motif.vs_screen.p2_name_active_font_scale = {motif.vs_screen.p2_name_font_scale[1], motif.vs_screen.p2_name_font_scale[2]}
+end
+
+--motif.ctrldef = nil
+main.f_printTable(motif, "debug/t_motif.txt")
+
+return motif

--- /dev/null
+++ b/script/options.lua
@@ -0,0 +1,1474 @@
+
+local options = {}
+
+--;===========================================================
+--; LOAD DATA
+--;===========================================================
+
+-- Data loading from lifebar
+local file = io.open(motif.files.fight,"r")
+local s_lifebar = file:read("*all")
+file:close()
+local roundsNum = tonumber(s_lifebar:match('match.wins%s*=%s*(%d+)'))
+options.framespercount = tonumber(s_lifebar:match('framespercount%s*=%s*(%d+)'))
+
+main.f_printTable(config, "debug/config.txt")
+
+--;===========================================================
+--; COMMON
+--;===========================================================
+local modified = 0
+local modifiedlifebar = 0
+local needReload = 0
+
+local windowBox = animNew(main.fadeSff, '0,0, 0,0, -1')
+animSetTile(windowBox, 1, 1)
+animSetAlpha(windowBox, motif.option_info.menu_boxbackground_alpha[1], motif.option_info.menu_boxbackground_alpha[2])
+animUpdate(windowBox)
+
+--return string depending on bool
+function options.f_boolDisplay(bool, t, f)
+	t = t or motif.option_info.menu_itemname_yes
+	f = f or motif.option_info.menu_itemname_no
+	if bool == true then
+		return t
+	else
+		return f
+	end
+end
+
+--return string depending on int
+function options.f_intDisplay(bool, t, f)
+	t = t or motif.option_info.menu_itemname_yes
+	f = f or motif.option_info.menu_itemname_no
+	if bool == 1 then
+		return t
+	else
+		return f
+	end
+end
+
+--return correct precision
+function options.f_precision(v, decimal)
+	return tonumber(string.format(decimal, v))
+end
+
+function options.f_saveCfg()
+	--Data saving to config.json
+	local file = io.open("save/config.json","w+")
+	file:write(json.encode(config, {indent = true}))
+	file:close()
+	--Data saving to lifebar
+	if modifiedlifebar == 1 then
+		s_lifebar = s_lifebar:gsub('match.wins%s*=%s*%d+', 'match.wins = ' .. roundsNum)
+		file = io.open(motif.files.fight,"w+")
+		file:write(s_lifebar)
+		file:close()
+		--Reload lifebar
+		loadLifebar(motif.files.fight)
+	end
+	--Reload game if needed
+	if needReload == 1 then
+		main.f_warning(main.f_extractText(motif.warning_info.text_reload), motif.option_info, motif.optionbgdef)
+		os.exit()
+	end
+end
+
+function options.f_keyDefault()
+	config.KeyConfig[1].Buttons[1] = 'UP'
+	config.KeyConfig[1].Buttons[2] = 'DOWN'
+	config.KeyConfig[1].Buttons[3] = 'LEFT'
+	config.KeyConfig[1].Buttons[4] = 'RIGHT'
+	config.KeyConfig[1].Buttons[5] = 'z'
+	config.KeyConfig[1].Buttons[6] = 'x'
+	config.KeyConfig[1].Buttons[7] = 'c'
+	config.KeyConfig[1].Buttons[8] = 'a'
+	config.KeyConfig[1].Buttons[9] = 's'
+	config.KeyConfig[1].Buttons[10] = 'd'
+	config.KeyConfig[1].Buttons[11] = 'RETURN'
+	config.KeyConfig[1].Buttons[12] = 'q'
+	config.KeyConfig[1].Buttons[13] = 'w'
+	config.KeyConfig[2].Buttons[1] = 't'
+	config.KeyConfig[2].Buttons[2] = 'g'
+	config.KeyConfig[2].Buttons[3] = 'f'
+	config.KeyConfig[2].Buttons[4] = 'h'
+	config.KeyConfig[2].Buttons[5] = 'j'
+	config.KeyConfig[2].Buttons[6] = 'k'
+	config.KeyConfig[2].Buttons[7] = 'l'
+	config.KeyConfig[2].Buttons[8] = 'u'
+	config.KeyConfig[2].Buttons[9] = 'i'
+	config.KeyConfig[2].Buttons[10] = 'o'
+	config.KeyConfig[2].Buttons[11] = 'RSHIFT'
+	config.KeyConfig[2].Buttons[12] = 'LEFTBRACKET'
+	config.KeyConfig[2].Buttons[13] = 'RIGHTBRACKET'
+	config.JoystickConfig[1].Buttons[1] = '-7'
+	config.JoystickConfig[1].Buttons[2] = '-8'
+	config.JoystickConfig[1].Buttons[3] = '-5'
+	config.JoystickConfig[1].Buttons[4] = '-6'
+	config.JoystickConfig[1].Buttons[5] = '0'
+	config.JoystickConfig[1].Buttons[6] = '1'
+	config.JoystickConfig[1].Buttons[7] = '4'
+	config.JoystickConfig[1].Buttons[8] = '2'
+	config.JoystickConfig[1].Buttons[9] = '3'
+	config.JoystickConfig[1].Buttons[10] = '5'
+	config.JoystickConfig[1].Buttons[11] = '7'
+	config.JoystickConfig[1].Buttons[12] = '6'
+	config.JoystickConfig[1].Buttons[13] = '8'
+	config.JoystickConfig[2].Buttons[1] = '-7'
+	config.JoystickConfig[2].Buttons[2] = '-8'
+	config.JoystickConfig[2].Buttons[3] = '-5'
+	config.JoystickConfig[2].Buttons[4] = '-6'
+	config.JoystickConfig[2].Buttons[5] = '0'
+	config.JoystickConfig[2].Buttons[6] = '1'
+	config.JoystickConfig[2].Buttons[7] = '4'
+	config.JoystickConfig[2].Buttons[8] = '2'
+	config.JoystickConfig[2].Buttons[9] = '3'
+	config.JoystickConfig[2].Buttons[10] = '5'
+	config.JoystickConfig[2].Buttons[11] = '7'
+	config.JoystickConfig[2].Buttons[12] = '6'
+	config.JoystickConfig[2].Buttons[13] = '8'
+end
+
+function options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+	if commandGetState(main.p1Cmd, 'u') then
+		sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+		item = item - 1
+		if t[item] ~= nil and t[item].itemname == 'empty' then
+			item = item - 1
+		end
+	elseif commandGetState(main.p1Cmd, 'd') then
+		sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+		item = item + 1
+		if t[item] ~= nil and t[item].itemname == 'empty' then
+			item = item + 1
+		end
+	end
+	--cursor position calculation
+	if item < 1 then
+		item = #t
+		if #t > motif.option_info.menu_window_visibleitems then
+			cursorPosY = motif.option_info.menu_window_visibleitems
+		else
+			cursorPosY = #t
+		end
+	elseif item > #t then
+		item = 1
+		cursorPosY = 1
+	elseif commandGetState(main.p1Cmd, 'u') and cursorPosY > 1 then
+		cursorPosY = cursorPosY - 1
+		if t[cursorPosY] ~= nil and t[cursorPosY].itemname == 'empty' then
+			cursorPosY = cursorPosY - 1
+		end
+	elseif commandGetState(main.p1Cmd, 'd') and cursorPosY < motif.option_info.menu_window_visibleitems then
+		cursorPosY = cursorPosY + 1
+		if t[cursorPosY] ~= nil and t[cursorPosY].itemname == 'empty' then
+			cursorPosY = cursorPosY + 1
+		end
+	end
+	if cursorPosY == motif.option_info.menu_window_visibleitems then
+		moveTxt = (item - motif.option_info.menu_window_visibleitems) * motif.option_info.menu_item_spacing[2]
+	elseif cursorPosY == 1 then
+		moveTxt = (item - 1) * motif.option_info.menu_item_spacing[2]
+	end
+	return cursorPosY, moveTxt, item
+end
+
+local txt_title = main.f_createTextImg(
+	motif.font_data[motif.option_info.title_font[1]],
+	motif.option_info.title_font[2],
+	motif.option_info.title_font[3],
+	"",
+	motif.option_info.title_offset[1],
+	motif.option_info.title_offset[2],
+	motif.option_info.title_font_scale[1],
+	motif.option_info.title_font_scale[2],
+	motif.option_info.title_font[4],
+	motif.option_info.title_font[5],
+	motif.option_info.title_font[6]
+)
+function options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	--draw clearcolor
+	animDraw(motif.optionbgdef.bgclearcolor_data)
+	--draw layerno = 0 backgrounds
+	main.f_drawBG(motif.optionbgdef.bg_data, motif.optionbgdef.bg, 0, motif.optionbgdef.timer)
+	--draw menu box
+	if motif.option_info.menu_boxbackground_visible == 1 then
+		if #t > motif.option_info.menu_window_visibleitems and moveTxt == (#t - motif.option_info.menu_window_visibleitems) * motif.option_info.menu_item_spacing[2] then
+			animSetWindow(
+				windowBox,
+				motif.option_info.menu_pos[1] + motif.option_info.menu_boxcursor_coords[1],
+				motif.option_info.menu_pos[2] + motif.option_info.menu_boxcursor_coords[2],
+				motif.option_info.menu_boxcursor_coords[3] - motif.option_info.menu_boxcursor_coords[1] + 1,
+				motif.option_info.menu_window_visibleitems * (motif.option_info.menu_boxcursor_coords[4] - motif.option_info.menu_boxcursor_coords[2] + 1)
+			)
+		else
+			animSetWindow(
+				windowBox,
+				motif.option_info.menu_pos[1] + motif.option_info.menu_boxcursor_coords[1],
+				motif.option_info.menu_pos[2] + motif.option_info.menu_boxcursor_coords[2],
+				motif.option_info.menu_boxcursor_coords[3] - motif.option_info.menu_boxcursor_coords[1] + 1,
+				#t * (motif.option_info.menu_boxcursor_coords[4] - motif.option_info.menu_boxcursor_coords[2] + 1)
+			)
+		end
+		animDraw(windowBox)
+	end
+	--draw title
+	textImgDraw(txt_title)
+	--draw menu items
+	for i = 1, #t do
+		if i > item - cursorPosY then
+			if i == item then
+				textImgDraw(main.f_updateTextImg(
+					t[i].data,
+					motif.font_data[motif.option_info.menu_item_active_font[1]],
+					motif.option_info.menu_item_active_font[2],
+					motif.option_info.menu_item_active_font[3],
+					t[i].displayname,
+					motif.option_info.menu_pos[1],
+					motif.option_info.menu_pos[2] + (i - 1) * motif.option_info.menu_item_spacing[2] - moveTxt,
+					motif.option_info.menu_item_active_font_scale[1],
+					motif.option_info.menu_item_active_font_scale[2],
+					motif.option_info.menu_item_active_font[4],
+					motif.option_info.menu_item_active_font[5],
+					motif.option_info.menu_item_active_font[6]
+				))
+				if t[i].vardata ~= nil then
+					textImgDraw(main.f_updateTextImg(
+						t[i].vardata,
+						motif.font_data[motif.option_info.menu_item_value_active_font[1]],
+						motif.option_info.menu_item_value_active_font[2],
+						motif.option_info.menu_item_value_active_font[3],
+						t[i].vardisplay,
+						motif.option_info.menu_pos[1] + motif.option_info.menu_item_spacing[1],
+						motif.option_info.menu_pos[2] + (i - 1) * motif.option_info.menu_item_spacing[2] - moveTxt,
+						motif.option_info.menu_item_value_active_font_scale[1],
+						motif.option_info.menu_item_value_active_font_scale[2],
+						motif.option_info.menu_item_value_active_font[4],
+						motif.option_info.menu_item_value_active_font[5],
+						motif.option_info.menu_item_value_active_font[6]
+					))
+				end
+			else
+				textImgDraw(main.f_updateTextImg(
+					t[i].data,
+					motif.font_data[motif.option_info.menu_item_font[1]],
+					motif.option_info.menu_item_font[2],
+					motif.option_info.menu_item_font[3],
+					t[i].displayname,
+					motif.option_info.menu_pos[1],
+					motif.option_info.menu_pos[2] + (i - 1) * motif.option_info.menu_item_spacing[2] - moveTxt,
+					motif.option_info.menu_item_font_scale[1],
+					motif.option_info.menu_item_font_scale[2],
+					motif.option_info.menu_item_font[4],
+					motif.option_info.menu_item_font[5],
+					motif.option_info.menu_item_font[6]
+				))
+				if t[i].vardata ~= nil then
+					textImgDraw(main.f_updateTextImg(
+						t[i].vardata,
+						motif.font_data[motif.option_info.menu_item_value_font[1]],
+						motif.option_info.menu_item_value_font[2],
+						motif.option_info.menu_item_value_font[3],
+						t[i].vardisplay,
+						motif.option_info.menu_pos[1] + motif.option_info.menu_item_spacing[1],
+						motif.option_info.menu_pos[2] + (i - 1) * motif.option_info.menu_item_spacing[2] - moveTxt,
+						motif.option_info.menu_item_value_font_scale[1],
+						motif.option_info.menu_item_value_font_scale[2],
+						motif.option_info.menu_item_value_font[4],
+						motif.option_info.menu_item_value_font[5],
+						motif.option_info.menu_item_value_font[6]
+					))
+				end
+			end
+		end
+	end
+	--draw menu cursor
+	if motif.option_info.menu_boxcursor_visible == 1 then
+		animSetWindow(
+			main.cursorBox,
+			motif.option_info.menu_pos[1] + motif.option_info.menu_boxcursor_coords[1],
+			motif.option_info.menu_pos[2] + motif.option_info.menu_boxcursor_coords[2] + (cursorPosY - 1) * motif.option_info.menu_item_spacing[2],
+			motif.option_info.menu_boxcursor_coords[3] - motif.option_info.menu_boxcursor_coords[1] + 1,
+			motif.option_info.menu_boxcursor_coords[4] - motif.option_info.menu_boxcursor_coords[2] + 1
+		)
+		main.f_dynamicAlpha(main.cursorBox, 10,40,2, 255,255,0)
+		animDraw(main.cursorBox)
+	end
+	--draw layerno = 1 backgrounds
+	main.f_drawBG(motif.optionbgdef.bg_data, motif.optionbgdef.bg, 1, motif.optionbgdef.timer)
+	--draw fadein
+	animDraw(motif.option_info.fadein_data)
+	animUpdate(motif.option_info.fadein_data)
+	--update timer
+	motif.optionbgdef.timer = motif.optionbgdef.timer + 1
+	--end loop
+	main.f_cmdInput()
+	refresh()
+end
+
+--;===========================================================
+--; MAIN LOOP
+--;===========================================================
+local t_mainCfg = {
+	{data = textImgNew(), itemname = 'arcadesettings', displayname = motif.option_info.menu_itemname_main_arcade},
+	{data = textImgNew(), itemname = 'videosettings', displayname = motif.option_info.menu_itemname_main_video},
+	{data = textImgNew(), itemname = 'audiosettings', displayname = motif.option_info.menu_itemname_main_audio},
+	{data = textImgNew(), itemname = 'inputsettings', displayname = motif.option_info.menu_itemname_main_input},
+	{data = textImgNew(), itemname = 'gameplaysettings', displayname = motif.option_info.menu_itemname_main_gameplay},
+	{data = textImgNew(), itemname = 'enginesettings', displayname = motif.option_info.menu_itemname_main_engine},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'quicklaunch', displayname = motif.option_info.menu_itemname_engine_quicklaunch, vardata = textImgNew(), vardisplay = options.f_intDisplay(config.QuickLaunch, motif.option_info.menu_itemname_yes, motif.option_info.menu_itemname_no)},
+	{data = textImgNew(), itemname = 'portchange', displayname = motif.option_info.menu_itemname_main_port, vardata = textImgNew(), vardisplay = getListenPort()},
+	{data = textImgNew(), itemname = 'defaultvalues', displayname = motif.option_info.menu_itemname_main_default},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'save', displayname = motif.option_info.menu_itemname_main_save},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_main_back},
+}
+t_mainCfg = main.f_cleanTable(t_mainCfg)
+
+function options.f_mainCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_mainCfg
+	textImgSetText(txt_title, motif.option_info.title_text_main)
+	main.f_resetBG(motif.option_info, motif.optionbgdef)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			main.f_resetBG(motif.title_info, motif.titlebgdef)
+			break
+		--Port Change
+		elseif t[item].itemname == 'portchange' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			local port = main.f_input(main.f_extractText(motif.option_info.input_text_port), motif.option_info, motif.optionbgdef, 'string')
+			if tonumber(port) ~= nil then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				setListenPort(port)
+			else
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			end
+			t[item].vardisplay = getListenPort()
+			modified = 1
+		-- Quick Launch
+		elseif t[item].itemname == 'quicklaunch' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.QuickLaunch == 1 then
+				config.QuickLaunch = 0
+			else
+				config.QuickLaunch = 1
+			end
+			t[item].vardisplay = options.f_intDisplay(config.QuickLaunch, motif.option_info.menu_itemname_yes, motif.option_info.menu_itemname_no)
+			modified = 1
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			--Arcade Settings
+			if t[item].itemname == 'arcadesettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_arcadeCfg()
+			--Gameplay Settings
+			elseif t[item].itemname == 'gameplaysettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_gameplayCfg()
+			--Video Settings
+			elseif t[item].itemname == 'videosettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_videoCfg()
+			elseif t[item].itemname == 'audiosettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_audioCfg()
+			--Engine Settings
+				elseif t[item].itemname == 'enginesettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_engineCfg()
+			--Input Settings
+			elseif t[item].itemname == 'inputsettings' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_inputCfg()
+			--Default Values
+			elseif t[item].itemname == 'defaultvalues' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				config.HelperMax = 56
+				config.PlayerProjectileMax = 50
+				config.ExplodMax = 256
+				config.AfterImageMax = 8
+				config['Attack.LifeToPowerMul'] = 0.7
+				config['GetHit.LifeToPowerMul'] = 0.6
+				config.Width = 640
+				config.Height = 480
+				config['Super.TargetDefenceMul'] = 1.5
+				config.LifebarFontScale = 1
+				--config.System = 'script/main.lua'
+				options.f_keyDefault()
+				--config.Motif = 'data/system.def'
+				config.SimulMode = true
+				config.LifeMul = 100
+				config.Team1VS2Life = 120
+				config.TurnsRecoveryRate = 300
+				config.ZoomActive = false
+				config.ZoomMin = 0.75
+				config.ZoomMax = 1.1
+				config.ZoomSpeed = 1.0
+				config.AIRandomColor = true
+				config.RoundTime = 99
+				config.SingleTeamMode = true
+				config.NumTurns = 4
+				config.NumSimul = 4
+				config.NumTag = 4
+				config.Difficulty = 8
+				config.Credits = 10
+				setListenPort(7500)
+				config.ContSelection = true
+				config.AIRamping = true
+				config.AutoGuard = false
+				config.TeamPowerShare = false
+				config.TeamLifeShare = false
+				config.Fullscreen = false
+				--lifebar
+				roundsNum = 2
+				modified = 1
+				needReload = 1
+			-- Save
+			elseif t[item].itemname == 'save' then
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				if modified == 1 then
+					options.f_saveCfg()
+				end
+				main.f_resetBG(motif.title_info, motif.titlebgdef)
+				break
+			-- Back
+			elseif t[item].itemname == 'back' then
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef)
+				break
+			end
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; ARCADE SETTINGS
+--;===========================================================
+local t_arcadeCfg = {
+	{data = textImgNew(), itemname = 'roundstowin', displayname = motif.option_info.menu_itemname_arcade_roundstowin, vardata = textImgNew(), vardisplay = roundsNum},
+	{data = textImgNew(), itemname = 'roundtime', displayname = motif.option_info.menu_itemname_arcade_roundtime, vardata = textImgNew(), vardisplay = config.RoundTime},
+	{data = textImgNew(), itemname = 'difficulty', displayname = motif.option_info.menu_itemname_arcade_difficulty, vardata = textImgNew(), vardisplay = config.Difficulty},
+	{data = textImgNew(), itemname = 'credits', displayname = motif.option_info.menu_itemname_arcade_credits, vardata = textImgNew(), vardisplay = config.Credits},
+	{data = textImgNew(), itemname = 'charchange', displayname = motif.option_info.menu_itemname_arcade_charchange, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.ContSelection)},
+	{data = textImgNew(), itemname = 'airamping', displayname = motif.option_info.menu_itemname_arcade_airamping, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.AIRamping)},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_arcade_back},
+}
+t_arcadeCfg = main.f_cleanTable(t_arcadeCfg)
+
+function options.f_arcadeCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_arcadeCfg
+	textImgSetText(txt_title, motif.option_info.title_text_arcade)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		--Rounds to Win
+		elseif t[item].itemname == 'roundstowin' then
+			if commandGetState(main.p1Cmd, 'r') and roundsNum < 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				roundsNum = roundsNum + 1
+				t[item].vardisplay = roundsNum
+				modifiedlifebar = 1
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and roundsNum > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				roundsNum = roundsNum - 1
+				t[item].vardisplay = roundsNum
+				modifiedlifebar = 1
+				modified = 1
+			end
+		--Round Time
+		elseif t[item].itemname == 'roundtime' then
+			if commandGetState(main.p1Cmd, 'r') and config.RoundTime < 1000 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.RoundTime = config.RoundTime + 1
+				t[item].vardisplay = config.RoundTime
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.RoundTime > -2 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.RoundTime = config.RoundTime - 1
+				t[item].vardisplay = config.RoundTime
+				modified = 1
+			end
+		--Difficulty level
+		elseif t[item].itemname == 'difficulty' then
+			if commandGetState(main.p1Cmd, 'r') and config.Difficulty < 8 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Difficulty = config.Difficulty + 1
+				t[item].vardisplay = config.Difficulty
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.Difficulty > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Difficulty = config.Difficulty - 1
+				t[item].vardisplay = config.Difficulty
+				modified = 1
+			end
+		--Credits
+		elseif t[item].itemname == 'credits' then
+			if commandGetState(main.p1Cmd, 'r') and config.Credits < 99 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Credits = config.Credits + 1
+				t[item].vardisplay = config.Credits
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.Credits > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Credits = config.Credits - 1
+				t[item].vardisplay = config.Credits
+				modified = 1
+			end
+		--Char change at Continue
+		elseif t[item].itemname == 'charchange' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.ContSelection then
+				config.ContSelection = false
+			else
+				config.ContSelection = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.ContSelection)
+			modified = 1
+		--AI ramping
+		elseif t[item].itemname == 'airamping' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AIRamping then
+				config.AIRamping = false
+			else
+				config.AIRamping = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AIRamping)
+			modified = 1
+		--Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; GAMEPLAY SETTINGS
+--;===========================================================
+local t_gameplayCfg = {
+	{data = textImgNew(), itemname = 'lifemul', displayname = motif.option_info.menu_itemname_gameplay_lifemul, vardata = textImgNew(), vardisplay = config.LifeMul .. '%'},
+	{data = textImgNew(), itemname = 'autoguard', displayname = motif.option_info.menu_itemname_gameplay_autoguard, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.AutoGuard)},
+	{data = textImgNew(), itemname = 'team1vs2life', displayname = motif.option_info.menu_itemname_gameplay_team1vs2life, vardata = textImgNew(), vardisplay = config.Team1VS2Life},
+	{data = textImgNew(), itemname = 'turnsrecoveryrate', displayname = motif.option_info.menu_itemname_gameplay_turnsrecoveryrate, vardata = textImgNew(), vardisplay = config.TurnsRecoveryRate},
+	{data = textImgNew(), itemname = 'teampowershare', displayname = motif.option_info.menu_itemname_gameplay_teampowershare, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.TeamPowerShare)},
+	{data = textImgNew(), itemname = 'teamlifeshare', displayname = motif.option_info.menu_itemname_gameplay_teamlifeshare, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.TeamLifeShare)},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'advancedGameplaySettings', displayname = motif.option_info.menu_itemname_gameplay_advanced},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_gameplay_back},
+}
+t_gameplayCfg = main.f_cleanTable(t_gameplayCfg)
+
+function options.f_gameplayCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_gameplayCfg
+	textImgSetText(txt_title, motif.option_info.title_text_gameplay)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		--Life
+		elseif t[item].itemname == 'lifemul' then
+			if commandGetState(main.p1Cmd, 'r') and config.LifeMul < 300 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.LifeMul = config.LifeMul + 10
+				t[item].vardisplay = config.LifeMul .. '%'
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.LifeMul > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.LifeMul = config.LifeMul - 10
+				t[item].vardisplay = config.LifeMul .. '%'
+				modified = 1
+			end
+		--Auto-Guard
+		elseif t[item].itemname == 'autoguard' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AutoGuard then
+				config.AutoGuard = false
+			else
+				config.AutoGuard = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AutoGuard)
+			modified = 1
+		--1P Vs Team Life
+		elseif t[item].itemname == 'team1vs2life' then
+			if commandGetState(main.p1Cmd, 'r') and config.Team1VS2Life < 3000 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Team1VS2Life = config.Team1VS2Life + 10
+				t[item].vardisplay = config.Team1VS2Life
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.Team1VS2Life > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Team1VS2Life = config.Team1VS2Life - 10
+				t[item].vardisplay = config.Team1VS2Life
+				modified = 1
+			end
+		--Turns HP Recovery
+		elseif t[item].itemname == 'turnsrecoveryrate' then
+			if commandGetState(main.p1Cmd, 'r') and config.TurnsRecoveryRate < 3000 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.TurnsRecoveryRate = config.TurnsRecoveryRate + 10
+				t[item].vardisplay = config.TurnsRecoveryRate
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.TurnsRecoveryRate > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.TurnsRecoveryRate = config.TurnsRecoveryRate - 10
+				t[item].vardisplay = config.TurnsRecoveryRate
+				modified = 1
+			end
+		--Team Power Share
+		elseif t[item].itemname == 'teampowershare' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.TeamPowerShare then
+				config.TeamPowerShare = false
+			else
+				config.TeamPowerShare = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.TeamPowerShare)
+			modified = 1
+		--Team Life Share
+		elseif t[item].itemname == 'teamlifeshare' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.TeamLifeShare then
+				config.TeamLifeShare = false
+			else
+				config.TeamLifeShare = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.TeamLifeShare)
+			modified = 1
+		-- Advanced settings
+		elseif t[item].itemname == 'advancedGameplaySettings' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+			options.f_advGameplayCfg()
+		--Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+
+--;===========================================================
+--; ADVANCED GAMEPLAY SETTINGS
+--;===========================================================
+function options.f_checkTeamAmount(arg1, arg2, arg3)
+	ret = arg1
+	if arg1 <= arg2 then
+		ret = arg3
+	end
+
+	return ret
+end
+
+local t_advGameplayCfg = {
+	{data = textImgNew(), itemname = 'attackpowermul', displayname = motif.option_info.menu_itemname_gameplay_attackpowermul, vardata = textImgNew(), vardisplay = config['Attack.LifeToPowerMul']},
+	{data = textImgNew(), itemname = 'gethitpowermul', displayname = motif.option_info.menu_itemname_gameplay_gethitpowermul, vardata = textImgNew(), vardisplay = config['GetHit.LifeToPowerMul']},
+	{data = textImgNew(), itemname = 'superdefencemul', displayname = motif.option_info.menu_itemname_gameplay_superdefencemul, vardata = textImgNew(), vardisplay = config['Super.TargetDefenceMul']},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'singlemode', displayname = motif.option_info.menu_itemname_gameplay_singlemode, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.SingleTeamMode, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'numturns', displayname = motif.option_info.menu_itemname_gameplay_numturns, vardata = textImgNew(), vardisplay = options.f_checkTeamAmount(config.NumTurns, 1, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'numsimul', displayname = motif.option_info.menu_itemname_gameplay_numsimul, vardata = textImgNew(), vardisplay = options.f_checkTeamAmount(config.NumSimul, 1, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'numtag', displayname = motif.option_info.menu_itemname_gameplay_numtag, vardata = textImgNew(), vardisplay = options.f_checkTeamAmount(config.NumTag, 1, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_gameplay_back},
+}
+t_advGameplayCfg = main.f_cleanTable(t_advGameplayCfg)
+
+function options.f_advGameplayCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_advGameplayCfg
+	textImgSetText(txt_title, motif.option_info.title_text_advgameplay)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_gameplay)
+			break
+		--Life
+		elseif t[item].itemname == 'lifemul' then
+			if commandGetState(main.p1Cmd, 'r') and config.LifeMul < 300 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.LifeMul = config.LifeMul + 10
+				t[item].vardisplay = config.LifeMul .. '%'
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.LifeMul > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.LifeMul = config.LifeMul - 10
+				t[item].vardisplay = config.LifeMul .. '%'
+				modified = 1
+			end
+		--Auto-Guard
+		elseif t[item].itemname == 'autoguard' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AutoGuard then
+				config.AutoGuard = false
+			else
+				config.AutoGuard = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AutoGuard)
+			modified = 1
+		--Attack.LifeToPowerMul
+		elseif t[item].itemname == 'attackpowermul' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['Attack.LifeToPowerMul'] = options.f_precision(config['Attack.LifeToPowerMul'] + 0.1, '%.01f')
+				t[item].vardisplay = config['Attack.LifeToPowerMul']
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config['Attack.LifeToPowerMul'] > 0.1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['Attack.LifeToPowerMul'] = options.f_precision(config['Attack.LifeToPowerMul'] - 0.1, '%.01f')
+				t[item].vardisplay = config['Attack.LifeToPowerMul']
+				modified = 1
+				needReload = 1
+			end
+		--GetHit.LifeToPowerMul
+		elseif t[item].itemname == 'gethitpowermul' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['GetHit.LifeToPowerMul'] = options.f_precision(config['GetHit.LifeToPowerMul'] + 0.1, '%.01f')
+				t[item].vardisplay = config['GetHit.LifeToPowerMul']
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config['GetHit.LifeToPowerMul'] > 0.1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['GetHit.LifeToPowerMul'] = options.f_precision(config['GetHit.LifeToPowerMul'] - 0.1, '%.01f')
+				t[item].vardisplay = config['GetHit.LifeToPowerMul']
+				modified = 1
+				needReload = 1
+			end
+		--Super.TargetDefenceMul
+		elseif t[item].itemname == 'superdefencemul' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['Super.TargetDefenceMul'] = options.f_precision(config['Super.TargetDefenceMul'] + 0.1, '%.01f')
+				t[item].vardisplay = config['Super.TargetDefenceMul']
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config['Super.TargetDefenceMul'] > 0.1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config['Super.TargetDefenceMul'] = options.f_precision(config['Super.TargetDefenceMul'] - 0.1, '%.01f')
+				t[item].vardisplay = config['Super.TargetDefenceMul']
+				modified = 1
+				needReload = 1
+			end
+		--1P Vs Team Life
+		elseif t[item].itemname == 'team1vs2life' then
+			if commandGetState(main.p1Cmd, 'r') and config.Team1VS2Life < 3000 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Team1VS2Life = config.Team1VS2Life + 10
+				t[item].vardisplay = config.Team1VS2Life
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.Team1VS2Life > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.Team1VS2Life = config.Team1VS2Life - 10
+				t[item].vardisplay = config.Team1VS2Life
+				modified = 1
+			end
+		--Turns HP Recovery
+		elseif t[item].itemname == 'turnsrecoveryrate' then
+			if commandGetState(main.p1Cmd, 'r') and config.TurnsRecoveryRate < 3000 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.TurnsRecoveryRate = config.TurnsRecoveryRate + 10
+				t[item].vardisplay = config.TurnsRecoveryRate
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.TurnsRecoveryRate > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.TurnsRecoveryRate = config.TurnsRecoveryRate - 10
+				t[item].vardisplay = config.TurnsRecoveryRate
+				modified = 1
+			end
+		--Team Power Share
+		elseif t[item].itemname == 'teampowershare' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.TeamPowerShare then
+				config.TeamPowerShare = false
+			else
+				config.TeamPowerShare = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.TeamPowerShare)
+			modified = 1
+		--Team Life Share
+		elseif t[item].itemname == 'teamlifeshare' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.TeamLifeShare then
+				config.TeamLifeShare = false
+			else
+				config.TeamLifeShare = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.TeamLifeShare)
+			modified = 1
+		-- Singke mode
+		elseif t[item].itemname == 'singlemode' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.SingleTeamMode then
+				config.SingleTeamMode = false
+			else
+				config.SingleTeamMode = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.SingleTeamMode, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)
+			modified = 1
+			needReload = 1
+		--Turns Limit
+		elseif t[item].itemname == 'numturns' then
+			if commandGetState(main.p1Cmd, 'r') and config.NumTurns < 8 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumTurns = config.NumTurns + 1
+				t[item].vardisplay = config.NumTurns
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.NumTurns > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumTurns = config.NumTurns - 1
+				t[item].vardisplay = options.f_checkTeamAmount(config.NumTurns, 1, motif.option_info.menu_itemname_disabled)
+				modified = 1
+			end
+			-- Disable check
+			if config.NumTurns < 2 then
+				needReload = 1
+			end
+		--Simul Limit
+		elseif t[item].itemname == 'numsimul' then
+			if commandGetState(main.p1Cmd, 'r') and config.NumSimul < 8 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumSimul = config.NumSimul + 1
+				t[item].vardisplay = config.NumSimul
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.NumSimul > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumSimul = config.NumSimul - 1
+				t[item].vardisplay = options.f_checkTeamAmount(config.NumSimul, 1, motif.option_info.menu_itemname_disabled)
+				modified = 1
+			end
+			-- Disable check
+			if config.NumSimul < 2 then
+				needReload = 1
+			end
+		--Tag Limit
+		elseif t[item].itemname == 'numtag' then
+			if commandGetState(main.p1Cmd, 'r') and config.NumTag < 8 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumTag = config.NumTag + 1
+				t[item].vardisplay = config.NumTag
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.NumTag > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.NumTag = config.NumTag - 1
+				t[item].vardisplay = options.f_checkTeamAmount(config.NumTag, 1, motif.option_info.menu_itemname_disabled)
+				modified = 1
+			end
+			-- Disable check
+			if config.NumTag < 2 then
+				needReload = 1
+			end
+		--Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_gameplay)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; VIDEO SETTINGS
+--;===========================================================
+local t_shaderNames = {}
+t_shaderNames[0] = "No shader"
+t_shaderNames[1] = "hqx2"
+t_shaderNames[2] = "hqx4"
+t_shaderNames[3] = "scanline"
+
+local t_videoCfg = {
+	{data = textImgNew(), itemname = 'resolution', displayname = motif.option_info.menu_itemname_video_resolution, vardata = textImgNew(), vardisplay = config.Width .. 'x' .. config.Height},
+	{data = textImgNew(), itemname = 'fullscreen', displayname = motif.option_info.menu_itemname_video_fullscreen, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.Fullscreen)},
+	{data = textImgNew(), itemname = 'msaa', displayname = motif.option_info.menu_itemname_video_msaa, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.MSAA, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'airandomcolor', displayname = motif.option_info.menu_itemname_video_aipalette, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.AIRandomColor, motif.option_info.menu_itemname_video_aipalette_random, motif.option_info.menu_itemname_video_aipalette_default)},
+	{data = textImgNew(), itemname = 'postprocessingshader', displayname = "Shader", vardata = textImgNew(), vardisplay = t_shaderNames[config.PostProcessingShader]},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_video_back},
+}
+t_videoCfg = main.f_cleanTable(t_videoCfg)
+
+function options.f_videoCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_videoCfg
+	textImgSetText(txt_title, motif.option_info.title_text_video)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		--Resolution
+		elseif t[item].itemname == 'resolution' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			options.f_resCfg()
+			t[item].vardisplay = config.Width .. 'x' .. config.Height
+		--Fullscreen
+		elseif t[item].itemname == 'fullscreen' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.Fullscreen then
+				config.Fullscreen = false
+			else
+				config.Fullscreen = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.Fullscreen)
+			modified = 1
+			needReload = 1
+		elseif t[item].itemname == 'msaa' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.MSAA then
+				config.MSAA = false
+			else
+				config.MSAA = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.MSAA, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)
+			modified = 1
+			needReload = 1
+		--AI Palette
+		elseif t[item].itemname == 'airandomcolor' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AIRandomColor then
+				config.AIRandomColor = false
+			else
+				config.AIRandomColor = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AIRandomColor, motif.option_info.menu_itemname_video_aipalette_random, motif.option_info.menu_itemname_video_aipalette_default)
+			modified = 1
+		-- Postprocessing
+		elseif t[item].itemname == 'postprocessingshader' then
+			if commandGetState(main.p1Cmd, 'r') and config.PostProcessingShader < #t_shaderNames then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.PostProcessingShader = config.PostProcessingShader + 1
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.PostProcessingShader > 0 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.PostProcessingShader = config.PostProcessingShader - 1
+				modified = 1
+				needReload = 1
+			end
+			t[item].vardisplay = t_shaderNames[config.PostProcessingShader]
+		-- Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; RESOLUTION SETTINGS
+--;===========================================================
+local t_resCfg = {
+	{data = textImgNew(), x = 320,  y = 240, displayname = motif.option_info.menu_itemname_res_320x240},
+	{data = textImgNew(), x = 640,  y = 480, displayname = motif.option_info.menu_itemname_res_640x480},
+	{data = textImgNew(), x = 1280, y = 960, displayname = motif.option_info.menu_itemname_res_1280x960},
+	{data = textImgNew(), x = 1600, y = 1200, displayname = motif.option_info.menu_itemname_res_1600x1200},
+	{data = textImgNew(), x = 960,  y = 720, displayname = motif.option_info.menu_itemname_res_960x720},
+	{data = textImgNew(), x = 1200, y = 900, displayname = motif.option_info.menu_itemname_res_1200x900},
+	{data = textImgNew(), x = 1440, y = 1080, displayname = motif.option_info.menu_itemname_res_1440x1080},
+	{data = textImgNew(), x = 1280, y = 720, displayname = motif.option_info.menu_itemname_res_1280x720},
+	{data = textImgNew(), x = 1600, y = 900, displayname = motif.option_info.menu_itemname_res_1600x900},
+	{data = textImgNew(), x = 1920, y = 1080, displayname = motif.option_info.menu_itemname_res_1920x1080},
+	{data = textImgNew(), x = 2560, y = 1440, displayname = motif.option_info.menu_itemname_res_2560x1440},
+	{data = textImgNew(), x = 3840, y = 2160, displayname = motif.option_info.menu_itemname_res_3840x2160},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'custom', displayname = motif.option_info.menu_itemname_res_custom},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_res_back},
+}
+t_resCfg = main.f_cleanTable(t_resCfg)
+
+function options.f_resCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_resCfg
+	textImgSetText(txt_title, motif.option_info.title_text_res)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_video)
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			--Back
+			if t[item].itemname == 'back' then
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				textImgSetText(txt_title, motif.option_info.title_text_video)
+				break
+			--Custom
+			elseif t[item].itemname == 'custom' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				local width = tonumber(main.f_input(main.f_extractText(motif.option_info.input_text_reswidth), motif.option_info, motif.optionbgdef, 'string'))
+				if width ~= nil then
+					sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+					local height = tonumber(main.f_input(main.f_extractText(motif.option_info.input_text_resheight), motif.option_info, motif.optionbgdef, 'string'))
+					if height ~= nil then
+						config.Width = width
+						config.Height = height
+						sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+						if (height / 3 * 4) ~= width then
+							main.f_warning(main.f_extractText(motif.warning_info.text_res), motif.option_info, motif.optionbgdef)
+						end
+						modified = 1
+						needReload = 1
+					else
+						sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+					end
+				else
+					sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				end
+				break
+			--Resolution
+			else
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				config.Width = t[item].x
+				config.Height = t[item].y
+				if (config.Height / 3 * 4) ~= config.Width then
+					main.f_warning(main.f_extractText(motif.warning_info.text_res), motif.option_info, motif.optionbgdef)
+				end
+				modified = 1
+				needReload = 1
+				break
+			end
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; ENGINE SETTINGS
+--;===========================================================
+local t_engineCfg = {
+	{data = textImgNew(), itemname = 'allowdebugkeys', displayname = motif.option_info.menu_itemname_engine_allowdebugkeys, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.AllowDebugKeys, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'simulmode', displayname = motif.option_info.menu_itemname_gameplay_simulmode, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.SimulMode, motif.option_info.menu_itemname_disabled, motif.option_info.menu_itemname_enabled)},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'helpermax', displayname = motif.option_info.menu_itemname_video_helpermax, vardata = textImgNew(), vardisplay = config.HelperMax},
+	{data = textImgNew(), itemname = 'playerprojectilemax', displayname = motif.option_info.menu_itemname_video_playerprojectilemax, vardata = textImgNew(), vardisplay = config.PlayerProjectileMax},
+	{data = textImgNew(), itemname = 'explodmax', displayname = motif.option_info.menu_itemname_video_explodmax, vardata = textImgNew(), vardisplay = config.ExplodMax},
+	{data = textImgNew(), itemname = 'afterimagemax', displayname = motif.option_info.menu_itemname_video_afterimagemax, vardata = textImgNew(), vardisplay = config.AfterImageMax},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'zoomactive', displayname = motif.option_info.menu_itemname_video_zoomactive, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.ZoomActive)},
+	{data = textImgNew(), itemname = 'maxzoomout', displayname = motif.option_info.menu_itemname_video_maxzoomout, vardata = textImgNew(), vardisplay = config.ZoomMin},
+	{data = textImgNew(), itemname = 'maxzoomin', displayname = motif.option_info.menu_itemname_video_maxzoomin, vardata = textImgNew(), vardisplay = config.ZoomMax},
+	{data = textImgNew(), itemname = 'zoomspeed', displayname = motif.option_info.menu_itemname_video_zoomspeed, vardata = textImgNew(), vardisplay = config.ZoomSpeed},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_video_back},
+}
+t_engineCfg = main.f_cleanTable(t_engineCfg)
+
+function options.f_engineCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_engineCfg
+	textImgSetText(txt_title, motif.option_info.title_text_engine)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		--HelperMax
+		elseif t[item].itemname == 'helpermax' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.HelperMax = config.HelperMax + 10
+				t[item].vardisplay = config.HelperMax
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.HelperMax > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.HelperMax = config.HelperMax - 10
+				t[item].vardisplay = config.HelperMax
+				modified = 1
+				needReload = 1
+			end
+		--PlayerProjectileMax
+		elseif t[item].itemname == 'playerprojectilemax' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.PlayerProjectileMax = config.PlayerProjectileMax + 10
+				t[item].vardisplay = config.PlayerProjectileMax
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.PlayerProjectileMax > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.PlayerProjectileMax = config.PlayerProjectileMax - 10
+				t[item].vardisplay = config.PlayerProjectileMax
+				modified = 1
+				needReload = 1
+			end
+		--ExplodMax
+		elseif t[item].itemname == 'explodmax' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ExplodMax = config.ExplodMax + 10
+				t[item].vardisplay = config.ExplodMax
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.ExplodMax > 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ExplodMax = config.ExplodMax - 10
+				t[item].vardisplay = config.ExplodMax
+				modified = 1
+				needReload = 1
+			end
+		--AfterImageMax
+		elseif t[item].itemname == 'afterimagemax' then
+			if commandGetState(main.p1Cmd, 'r') then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.AfterImageMax = config.AfterImageMax + 1
+				t[item].vardisplay = config.AfterImageMax
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.AfterImageMax > 1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.AfterImageMax = config.AfterImageMax - 1
+				t[item].vardisplay = config.AfterImageMax
+				modified = 1
+				needReload = 1
+			end
+		--Zoom Active
+		elseif t[item].itemname == 'zoomactive' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.ZoomActive then
+				config.ZoomActive = false
+			else
+				config.ZoomActive = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.ZoomActive)
+			modified = 1
+		--Default Max Zoom Out
+		elseif t[item].itemname == 'maxzoomout' then
+			if commandGetState(main.p1Cmd, 'r') and config.ZoomMin < 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomMin = options.f_precision(config.ZoomMin + 0.05, '%.02f')
+				t[item].vardisplay = config.ZoomMin
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.ZoomMin > 0.05 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomMin = options.f_precision(config.ZoomMin - 0.05, '%.02f')
+				t[item].vardisplay = config.ZoomMin
+				modified = 1
+			end
+		--Default Max Zoom In
+		elseif t[item].itemname == 'maxzoomin' then
+			if commandGetState(main.p1Cmd, 'r') and config.ZoomMax < 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomMax = options.f_precision(config.ZoomMax + 0.05, '%.02f')
+				t[item].vardisplay = config.ZoomMax
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.ZoomMax > 0.05 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomMax = options.f_precision(config.ZoomMax - 0.05, '%.02f')
+				t[item].vardisplay = config.ZoomMax
+				modified = 1
+			end
+		--Default Zoom Speed
+		elseif t[item].itemname == 'zoomspeed' then
+			if commandGetState(main.p1Cmd, 'r') and config.ZoomSpeed < 10 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomSpeed = options.f_precision(config.ZoomSpeed + 0.1, '%.01f')
+				t[item].vardisplay = config.ZoomSpeed
+				modified = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.ZoomSpeed > 0.1 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.ZoomSpeed = options.f_precision(config.ZoomSpeed - 0.1, '%.01f')
+				t[item].vardisplay = config.ZoomSpeed
+				modified = 1
+			end
+		-- Leagcy TAG Mode
+		elseif t[item].itemname == 'simulmode' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.SimulMode then
+				config.SimulMode = false
+			else
+				config.SimulMode = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.SimulMode, motif.option_info.menu_itemname_disabled, motif.option_info.menu_itemname_enabled)
+			modified = 1
+			needReload = 1
+		-- Allow Debug Keys
+		elseif t[item].itemname == 'allowdebugkeys' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AllowDebugKeys then
+				config.AllowDebugKeys = false
+			else
+				config.AllowDebugKeys = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AllowDebugKeys, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)
+			modified = 1
+			needReload = 1
+		--Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; INPUT SETTINGS
+--;===========================================================
+local t_inputCfg = {
+	{data = textImgNew(), itemname = 'p1keyboard', displayname = motif.option_info.menu_itemname_input_p1keyboard},
+	{data = textImgNew(), itemname = 'p1gamepad', displayname = motif.option_info.menu_itemname_input_p1gamepad},
+	{data = textImgNew(), itemname = 'p2keyboard', displayname = motif.option_info.menu_itemname_input_p2keyboard},
+	{data = textImgNew(), itemname = 'p2gamepad', displayname = motif.option_info.menu_itemname_input_p2gamepad},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'defaultvalues', displayname = motif.option_info.menu_itemname_input_default},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_input_back},
+}
+t_inputCfg = main.f_cleanTable(t_inputCfg)
+
+function options.f_inputCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_inputCfg
+	textImgSetText(txt_title, motif.option_info.title_text_input)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			--P1 Keyboard
+			if t[item].itemname == 'p1keyboard' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				options.f_keyCfg(1, -1)
+			--P1 Gamepad
+			elseif t[item].itemname == 'p1gamepad' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				options.f_keyCfg(1, 0)
+			--P2 Keyboard
+			elseif t[item].itemname == 'p2keyboard' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				options.f_keyCfg(2, -1)
+			--P2 Gamepad
+			elseif t[item].itemname == 'p2gamepad' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				options.f_keyCfg(2, 1)
+			--Default Values
+			elseif t[item].itemname == 'defaultvalues' then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+				options.f_keyDefault()
+				modified = 1
+				needReload = 1
+			--Back
+			elseif t[item].itemname == 'back' then
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				textImgSetText(txt_title, motif.option_info.title_text_main)
+				break
+			end
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; KEY SETTINGS
+--;===========================================================
+local t_keyCfg = {
+	{data = textImgNew(), itemname = 'up', displayname = motif.option_info.menu_itemname_key_up, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'down', displayname = motif.option_info.menu_itemname_key_down, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'left', displayname = motif.option_info.menu_itemname_key_left, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'right', displayname = motif.option_info.menu_itemname_key_right, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'a', displayname = motif.option_info.menu_itemname_key_a, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'b', displayname = motif.option_info.menu_itemname_key_b, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'c', displayname = motif.option_info.menu_itemname_key_c, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'x', displayname = motif.option_info.menu_itemname_key_x, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'y', displayname = motif.option_info.menu_itemname_key_y, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'z', displayname = motif.option_info.menu_itemname_key_z, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'start', displayname = motif.option_info.menu_itemname_key_start, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'v', displayname = motif.option_info.menu_itemname_key_v, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'w', displayname = motif.option_info.menu_itemname_key_w, vardata = textImgNew(), vardisplay = ''},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_key_back},
+}
+t_keyCfg = main.f_cleanTable(t_keyCfg)
+
+function options.f_keyCfg(playerNo, controller)
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_keyCfg
+	textImgSetText(txt_title, motif.option_info.title_text_key)
+	for i = 1, #t_keyCfg do
+		if controller == -1 then
+			t_keyCfg[i].vardisplay = config.KeyConfig[playerNo].Buttons[i]
+		else
+			t_keyCfg[i].vardisplay = config.JoystickConfig[playerNo].Buttons[i]
+		end
+	end
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_input)
+			break
+		elseif main.f_btnPalNo(main.p1Cmd) > 0 then
+			--Back
+			if t[item].itemname == 'back' then
+				sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				textImgSetText(txt_title, motif.option_info.title_text_input)
+				break
+			--Buttons
+			else
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				local key = main.f_input(main.f_extractText(motif.option_info.input_text_key), motif.option_info, motif.optionbgdef, 'key')
+				if (controller == -1 and key ~= '') or (controller ~= -1 and tonumber(key) ~= nil) then
+					sndPlay(motif.files.snd_data, motif.option_info.cursor_done_snd[1], motif.option_info.cursor_done_snd[2])
+					t[item].vardisplay = key
+					if controller == -1 then
+						config.KeyConfig[playerNo].Buttons[item] = key
+					else
+						config.JoystickConfig[playerNo].Buttons[item] = key
+					end
+				else
+					sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+				end
+			end
+			modified = 1
+			needReload = 1
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+--;===========================================================
+--; AUDIO SETTINGS
+--;===========================================================
+local t_audioCfg = {
+	{data = textImgNew(), itemname = 'mastervolume', displayname = motif.option_info.menu_itemname_audio_mastervolume, vardata = textImgNew(), vardisplay = config.MasterVolume .. '%'},
+	{data = textImgNew(), itemname = 'bgmvolume', displayname = motif.option_info.menu_itemname_audio_bgmvolume, vardata = textImgNew(), vardisplay = config.BgmVolume .. '%'},
+	{data = textImgNew(), itemname = 'sfxvolume', displayname = motif.option_info.menu_itemname_audio_sfxvolume, vardata = textImgNew(), vardisplay = config.WavVolume .. '%'},
+	{data = textImgNew(), itemname = 'audioducking', displayname = motif.option_info.menu_itemname_audio_audioducking, vardata = textImgNew(), vardisplay = options.f_boolDisplay(config.AudioDucking, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)},
+	{data = textImgNew(), itemname = 'empty', displayname = ' '},
+	{data = textImgNew(), itemname = 'back', displayname = motif.option_info.menu_itemname_video_back},
+}
+t_audioCfg = main.f_cleanTable(t_audioCfg)
+
+function options.f_audioCfg()
+	main.f_cmdInput()
+	local cursorPosY = 1
+	local moveTxt = 0
+	local item = 1
+	local t = t_audioCfg
+	textImgSetText(txt_title, motif.option_info.title_text_audio)
+	while true do
+		cursorPosY, moveTxt, item = options.f_menuCommon1(cursorPosY, moveTxt, item, t)
+		if esc() then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		-- Master Volume
+		elseif t[item].itemname == 'mastervolume' then
+			if commandGetState(main.p1Cmd, 'r') and config.MasterVolume < 200 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.MasterVolume = config.MasterVolume + 1
+				t[item].vardisplay = config.MasterVolume .. '%'
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.MasterVolume > 0 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.MasterVolume = config.MasterVolume - 1
+				t[item].vardisplay = config.MasterVolume .. '%'
+				modified = 1
+				needReload = 1
+			end
+		-- BGM Volume
+		elseif t[item].itemname == 'bgmvolume' then
+			if commandGetState(main.p1Cmd, 'r') and config.BgmVolume < 100 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.BgmVolume = config.BgmVolume + 1
+				t[item].vardisplay = config.BgmVolume .. '%'
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.BgmVolume > 0 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.BgmVolume = config.BgmVolume - 1
+				t[item].vardisplay = config.BgmVolume .. '%'
+				modified = 1
+				needReload = 1
+			end
+		-- SFX Volume
+		elseif t[item].itemname == 'sfxvolume' then
+			if commandGetState(main.p1Cmd, 'r') and config.WavVolume < 100 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.WavVolume = config.WavVolume + 1
+				t[item].vardisplay = config.WavVolume .. '%'
+				modified = 1
+				needReload = 1
+			elseif commandGetState(main.p1Cmd, 'l') and config.WavVolume > 0 then
+				sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+				config.WavVolume = config.WavVolume - 1
+				t[item].vardisplay = config.WavVolume .. '%'
+				modified = 1
+				needReload = 1
+			end
+		-- Audio Ducking
+		elseif t[item].itemname == 'audioducking' and (commandGetState(main.p1Cmd, 'r') or commandGetState(main.p1Cmd, 'l') or main.f_btnPalNo(main.p1Cmd) > 0) then
+			sndPlay(motif.files.snd_data, motif.option_info.cursor_move_snd[1], motif.option_info.cursor_move_snd[2])
+			if config.AudioDucking then
+				config.AudioDucking = false
+			else
+				config.AudioDucking = true
+			end
+			t[item].vardisplay = options.f_boolDisplay(config.AudioDucking, motif.option_info.menu_itemname_enabled, motif.option_info.menu_itemname_disabled)
+			modified = 1
+			needReload = 1
+		--Back
+		elseif t[item].itemname == 'back' and main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.option_info.cancel_snd[1], motif.option_info.cancel_snd[2])
+			textImgSetText(txt_title, motif.option_info.title_text_main)
+			break
+		end
+		options.f_menuCommon2(cursorPosY, moveTxt, item, t)
+	end
+end
+
+return options

--- /dev/null
+++ b/script/randomtest.lua
@@ -0,0 +1,273 @@
+-- Used for demo mode and generates AI rank data
+-- Demo mode uses AutoLevel a GO function that ranks characters based on his number of loses vs wins
+-- AutoLevel is pallete dependent so if a char has a 12th pallete OP mode that mode can have more rank than his normal one
+
+local randomtest = {}
+
+function randomtest.strtrim(s)
+  return string.match(s,'^()%s*$') and '' or string.match(s,'^%s*(.*%S)')
+end
+
+function randomtest.map(func, table)
+  local dest = {}
+  for k, v in pairs(table) do
+    dest[k] = func(v)
+  end
+  return dest
+end
+
+-- Ints variables
+local tuyoiBorder = 0
+local juuni = 12
+local moudeta = {}
+local rank = 0
+local saikyou = false
+local roster = {}
+local debugText = ''
+local numChars = 0
+local nextChar = 1
+
+function randomtest.addMoudeta(rank)
+  moudeta[#moudeta + 1] = rank
+  local max =
+    math.floor(
+      numChars / (math.min(numChars / (juuni*10) + 3, juuni)*juuni))
+  while #moudeta > max do
+    table.remove(moudeta, 1)
+  end
+end
+
+
+function randomtest.randRank()
+  local r = 0
+  while true do
+    r = math.random(1, tuyoiBorder + juuni - 2);
+    local notbroken = true
+    for i = 1, #moudeta do
+      if math.abs(moudeta[i] - r) <= math.floor(juuni/3) then
+        notbroken = false
+        break
+      end
+    end
+    if notbroken then
+      break
+    end
+  end
+  return r
+end
+
+function randomtest.eachAllChars(f)
+  for cel = 1, #main.t_randomChars do
+    f(cel-1)
+  end
+end
+
+function randomtest.rakuBenry()
+  local alf = 'save/autolevel.save'
+  local veljnz = {}
+  local winct = {}
+  local buf = '\239\187\191'
+  local fp = io.open(alf, 'r')
+  if fp then
+    for line in fp:lines() do
+      local tmp = main.f_strsplit(',', line)
+      if #tmp >= 2 then
+        for i = 1, 4 do
+          if i == 4 then
+            tmp[1] = string.sub(tmp[1], 4)
+          else
+            if string.byte(tmp[1], i) ~= string.byte(buf, i) then break end
+          end
+        end
+        winct[tmp[1]] = randomtest.map(tonumber, main.f_strsplit(' ', randomtest.strtrim(tmp[2])))
+      end
+    end
+    io.close(fp)
+  end
+  numChars = 0
+  randomtest.eachAllChars(function(cel)
+    numChars = numChars + 1
+  end)
+  local tuyoninzu = math.floor(numChars / (juuni*10))
+  if tuyoninzu < juuni - 1 then
+    tuyoiBorder =  math.floor(numChars / (tuyoninzu + 1))
+    tuyoninzu = juuni - 1
+  else
+    tuyoiBorder = math.floor(numChars / juuni)
+  end
+  local total = 0
+  local zero ={}
+  local tsuyoshi = {}
+  local rand = {}
+  local kai = {}
+  local bimyou = {}
+  local tuyocnt = 0
+  local ran = randomtest.randRank()
+  randomtest.eachAllChars(function(cel)
+    if #veljnz < cel*12 then
+      for i = #veljnz + 1, cel*12 do
+        veljnz[i] = 0
+      end
+    end
+    local wins = winct[getCharFileName(cel)]
+    local tmp = 0
+    for j = 1, 12 do
+      if wins and j <= #wins then
+        total = total + wins[j]
+        veljnz[cel*12 + j] = wins[j]
+        tmp = tmp + wins[j]
+      else
+        veljnz[cel*12 + j] = 0
+      end
+    end
+    if tmp >= tuyoiBorder then tuyocnt = tuyocnt + 1 end
+    if tmp >= tuyoiBorder - juuni then table.insert(tsuyoshi, cel) end
+    if tmp >= 1 and tmp <= juuni then table.insert(bimyou, cel) end
+    if tmp > ran-juuni and tmp <= ran then table.insert(rand, cel) end
+    if tmp == 0 then table.insert(zero, cel) end
+    if tmp < 0 then table.insert(kai, cel) end
+  end)
+  function charAdd(cList, numAdd)
+    if numAdd <= 0 then return end
+    for i = 1, numAdd do
+      if #cList == 0 then break end
+      local cidx = math.random(1, #cList)
+      table.insert(roster, cList[cidx])
+      table.remove(cList, cidx)
+    end
+  end
+  roster = {}
+  nextChar = 1
+  debugText = ''
+  local numZero = #zero
+  if numZero > 0 then
+    charAdd(zero, numZero)
+    charAdd(kai, tuyoninzu - numZero)
+    rank = 0
+  elseif #bimyou >= math.max(tuyoninzu*20, math.floor((numChars*3)/20)) then
+    charAdd(bimyou, #bimyou)
+    rank = juuni
+  else
+    for n = 1, 3 do
+      if #rand >= tuyoninzu then break end
+      rand = {}
+      ran = randomtest.randRank()
+      randomtest.eachAllChars(function(cel)
+        local tmp = 0
+        for j = 1, 12 do
+          tmp = tmp + veljnz[cel*12 + j]
+        end
+        if tmp > ran-juuni and tmp <= ran then table.insert(rand, cel) end
+      end)
+    end
+    debugText = ran .. ' ' .. #rand
+    if #rand >= tuyoninzu then
+      charAdd(rand, #rand)
+      rank = ran
+      randomtest.addMoudeta(rank)
+    elseif tuyocnt >= tuyoninzu then
+      charAdd(tsuyoshi, #tsuyoshi)
+      rank = tuyoiBorder+juuni-1
+    else
+      randomtest.addMoudeta(tuyoiBorder + (juuni-2) - math.floor(juuni/3))
+      charAdd(kai, #kai)
+      rank = -1
+    end
+  end
+  if numZero == 0 then
+    while total ~= 0 do
+      local i = math.random(1, #veljnz)
+      if total > 0 then
+        veljnz[i] = veljnz[i] - 1
+        total = total - 1
+      else
+        veljnz[i] = veljnz[i] + 1
+        total = total + 1
+      end
+    end
+  end
+  randomtest.eachAllChars(function(cel)
+    buf = buf .. getCharFileName(cel) .. ','
+    for j = 1, 12 do
+      buf = buf .. ' ' .. veljnz[cel*12 + j]
+    end
+    buf = buf .. '\r\n'
+  end)
+  local alv = io.open(alf, 'wb')
+  alv:write(buf)
+  io.close(alv)
+end
+
+function randomtest.randSel(pno, winner)
+  if winner > 0 and (pno == winner) == not saikyou then return end
+  local team
+  if rank == 0 or rank == 12 or saikyou then
+    team = 0
+  elseif rank < 0 then
+    team = math.random(0, 2)
+  else
+    team = math.random(0, 1)*2
+  end
+  setTeamMode(pno, team, math.random(1, 4))
+  local tmp = 0
+  while tmp < 2 do
+    tmp = selectChar(pno, roster[nextChar], getCharRandomPalette(roster[nextChar]))
+    nextChar = nextChar + 1
+    if nextChar > #roster then nextChar = 1 end
+  end
+end
+
+-- Writes the ranked AI levels to a save file
+-- This file is not used by AutoLevel
+function randomtest.rosterTxt()
+  local str = "Rank: " .. rank .. ' ' .. debugText
+  for i = 1, #roster do
+    str = str .. '\n' .. getCharFileName(roster[i])
+  end
+  local dscr = io.open('save/AI_Rank.save', 'w')
+  dscr:write(str)
+  io.close(dscr)
+end
+
+-- Sets AIs to level 8 (MAX level) and ints AutoLevel
+function randomtest.init()
+  for i = 1, 8 do
+    setCom(i, 8)
+  end
+  setAutoLevel(true)
+  setMatchNo(1)
+  selectStage(0)
+  randomtest.rakuBenry()
+  winner = 0
+  wins = 0
+  randomtest.rosterTxt()
+  nextChar = 1
+  saikyou = rank == tuyoiBorder+juuni-1
+end
+
+-- This is executed first
+function randomtest.run()
+  randomtest.init()
+  refresh()
+  while not esc() do
+    randomtest.randSel(1, winner)
+    randomtest.randSel(2, winner)
+    loadStart()
+    local oldwinner = winner
+    winner = game()
+    if winner < 0 or esc() then break end
+    oldwins = wins
+    wins = wins + 1
+    if winner ~= oldwinner then
+      wins = 1
+      setHomeTeam(winner == 1 and 2 or 1)
+    end
+    setMatchNo(wins)
+    if winner <= 0 or wins >= 20 or wins == oldwins then
+      randomtest.init()
+    end
+    refresh()
+  end
+end
+
+return randomtest

--- /dev/null
+++ b/script/screenpack.lua
@@ -0,0 +1,75 @@
+-- Screenpack config file
+
+function main.IntLocalcoordValues()
+
+main.SP_Localcoord = {}
+main.LB_Localcoord = {}
+main.SP_Localcoord43 = {}
+main.LB_Localcoord43 = {}
+
+main.SP_Localcoord[0] = 320
+main.SP_Localcoord[1] = 240
+main.LB_Localcoord[0] = 320
+main.LB_Localcoord[1] = 240
+
+main.LB_ScreenWidth = 320
+main.LB_ScreenDiference = 0
+
+main.screenOverscan = 0
+main.normalSpriteCenter = 0
+
+main.SP_Localcoord43[0] = 320
+main.LB_Localcoord43[0] = 240
+
+main.SP_Center = 0
+
+end
+
+function main.CalculateLocalcoordValues()
+	if main.SP_Localcoord[0] >= main.SP_Localcoord[1] then
+		main.SP_Localcoord43[0] = (main.SP_Localcoord[1] / 3) * 4
+	else
+		main.SP_Localcoord43[0] = (main.SP_Localcoord[0] / 4) * 3
+	end
+	
+	if main.LB_Localcoord[0] >= main.LB_Localcoord[1] then
+		main.LB_Localcoord43[0] = (main.LB_Localcoord[1] / 3) * 4
+	else
+		main.LB_Localcoord43[0] = (main.LB_Localcoord[0] / 4) * 3
+	end
+	
+	main.SP_Localcoord_X_Dif = -math.floor( (( main.SP_Localcoord[0] / (main.SP_Localcoord43[0] / 320) ) - 320) / 2 )
+		
+	main.LB_ScreenWidth = config.Width / (config.Height / 240)
+	main.LB_ScreenDiference = (main.LB_ScreenWidth - 320) / (main.LB_ScreenWidth / 320)
+
+end
+
+function main.IntLifebarScale()
+	if config.LocalcoordScalingType == 0 then
+		setLifebarOffsetX( - main.LB_ScreenDiference / 2)
+		setLuaLifebarScale(main.LB_ScreenWidth / main.LB_Localcoord43[0])
+	else
+		setLifebarOffsetX((main.LB_Localcoord43[0] - main.LB_Localcoord[0]) / 2)
+		setLuaLifebarScale(320 / main.LB_Localcoord43[0])
+	end
+end
+
+function main.SetScaleValues()
+	setLuaSpriteScale(main.SP_Localcoord43[0] / 320)
+	setLuaSpriteOffsetX(main.SP_Localcoord_X_Dif)
+	setLuaSmallPortraitScale(main.SP_Localcoord43[0] / main.SP_Localcoord[0])
+	setLuaBigPortraitScale(main.SP_Localcoord43[0] / main.SP_Localcoord[0])
+	main.normalSpriteCenter = main.SP_Center
+	main.screenOverscan = 0
+end
+
+
+function main.SetDefaultScale()
+	setLuaSpriteScale(1)
+	setLuaSpriteOffsetX(0)
+	setLuaSmallPortraitScale(1)
+	setLuaBigPortraitScale(1)
+	main.normalSpriteCenter = 0
+	main.screenOverscan = 0
+end
\ No newline at end of file

--- /dev/null
+++ b/script/select.lua
@@ -0,0 +1,2603 @@
+
+local select = {}
+
+setSelColRow(motif.select_info.columns, motif.select_info.rows)
+
+--not used for now
+--setShowEmptyCells(motif.select_info.showemptyboxes)
+--setRandomSpr(motif.selectbgdef.spr_data, motif.select_info.cell_random_spr[1], motif.select_info.cell_random_spr[2], motif.select_info.cell_random_scale[1], motif.select_info.cell_random_scale[2])
+--setCellSpr(motif.selectbgdef.spr_data, motif.select_info.cell_bg_spr[1], motif.select_info.cell_bg_spr[2], motif.select_info.cell_bg_scale[1], motif.select_info.cell_bg_scale[2])
+
+setSelCellSize(motif.select_info.cell_size[1] + motif.select_info.cell_spacing, motif.select_info.cell_size[2] + motif.select_info.cell_spacing)
+setSelCellScale(motif.select_info.portrait_scale[1], motif.select_info.portrait_scale[2])
+
+--default team count after starting the game
+local p1NumTurns = 2
+local p1NumSimul = 2
+local p1NumTag = 2
+local p2NumTurns = 2
+local p2NumSimul = 2
+local p2NumTag = 2
+--default team mode after starting the game
+local p1TeamMenu = 1
+local p2TeamMenu = 1
+--let cursor wrap around
+local wrappingX = false
+local wrappingY = false
+if motif.select_info.wrapping == 1 then
+	if motif.select_info.wrapping_x == 1 then
+		wrappingX = true
+	end
+	if motif.select_info.wrapping_y == 1 then
+		wrappingY = true
+	end
+end
+--initialize other local variables
+local t_p1Selected = {}
+local t_p2Selected = {}
+local t_roster = {}
+local t_aiRamp = {}
+local continue = false
+local p1Cell = false
+local p2Cell = false
+local p1TeamEnd = false
+local p1SelEnd = false
+local p2TeamEnd = false
+local p2SelEnd = false
+local selScreenEnd = false
+local stageEnd = false
+local coopEnd = false
+local restoreTeam = false
+local resetgrid = false
+local teamMode = 0
+local numChars = 0
+local p1NumChars = 0
+local p2NumChars = 0
+local matchNo = 0
+local p1SelX = 0
+local p1SelY = 0
+local p2SelX = 0
+local p2SelY = 0
+local p1FaceOffset = 0
+local p2FaceOffset = 0
+local p1RowOffset = 0
+local p2RowOffset = 0
+local winner = 0
+local t_gameStats = {}
+local winCnt = 0
+local looseCnt = 0
+local p1FaceX = 0
+local p1FaceY = 0
+local p2FaceX = 0
+local p2FaceY = 0
+local p1TeamMode = 0
+local p2TeamMode = 0
+local lastMatch = 0
+local stageNo = 0
+local stageList = 0
+
+local cnt = motif.select_info.columns + 1
+local row = 1
+local col = 0
+local t_grid = {}
+t_grid[row] = {}
+for i = 1, (motif.select_info.rows + motif.select_info.rows_scrolling) * motif.select_info.columns do
+	if i == cnt then
+		row = row + 1
+		cnt = cnt + motif.select_info.columns
+		t_grid[row] = {}
+	end
+	col = #t_grid[row] + 1
+	t_grid[row][col] = {num = i - 1, x = (col - 1) * (motif.select_info.cell_size[1] + motif.select_info.cell_spacing), y = (row - 1) * (motif.select_info.cell_size[2] + motif.select_info.cell_spacing)}
+	if main.t_selChars[i].char ~= nil then
+		t_grid[row][col].char = main.t_selChars[i].char
+		t_grid[row][col].hidden = main.t_selChars[i].hidden
+		main.t_selChars[i].row = row
+		main.t_selChars[i].col = col
+	end
+end
+
+--;===========================================================
+--; COMMON FUNCTIONS
+--;===========================================================
+function select.f_setZoom()
+	local zoom = config.ZoomActive
+	if main.t_selChars[t_p2Selected[1].cel + 1].zoom ~= nil then
+		if main.t_selChars[t_p2Selected[1].cel + 1].zoom == 1 then
+			zoom = true
+		else
+			zoom = false
+		end
+	elseif main.t_selStages[stageNo] ~= nil and main.t_selStages[stageNo].zoom ~= nil then
+		if main.t_selChars[stageNo].zoom == 1 then
+			zoom = true
+		else
+			zoom = false
+		end
+	end
+	setZoom(zoom)
+	local zoomMin = config.ZoomMin
+	if main.t_selStages[stageNo].zoommin ~= nil then
+		zoomMin = main.t_selStages[stageNo].zoommin
+	end
+	setZoomMin(zoomMin)
+	local zoomMax = config.ZoomMax
+	if main.t_selStages[stageNo].zoommax ~= nil then
+		zoomMax = main.t_selStages[stageNo].zoommax
+	end
+	setZoomMax(zoomMax)
+	local zoomSpeed = config.ZoomSpeed
+	if main.t_selStages[stageNo].zoomspeed ~= nil then
+		zoomSpeed = main.t_selStages[stageNo].zoomspeed
+	end
+	setZoomSpeed(zoomSpeed)
+end
+
+function select.f_makeRoster()
+	t_roster = {}
+	local t = {}
+	local cnt = 0
+	--Arcade
+	if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+		if p2TeamMode == 0 then --Single
+			t = main.t_selOptions.arcademaxmatches
+		else --Team
+			t = main.t_selOptions.teammaxmatches
+		end
+		for i = 1, #t do --for each order number
+			cnt = t[i] * p2NumChars --set amount of matches to get from the table
+			if cnt > 0 and main.t_orderChars[i] ~= nil then --if it's more than 0 and there are characters with such order
+				while cnt > 0 do --do the following until amount of matches for particular order is reached
+					main.f_shuffleTable(main.t_orderChars[i]) --randomize characters table
+					for j = 1, #main.t_orderChars[i] do --loop through chars associated with that particular order
+						t_roster[#t_roster + 1] = main.t_orderChars[i][j] --and add such character into new table
+						cnt = cnt - 1
+						if cnt == 0 then --but only if amount of matches for particular order has not been reached yet
+							break
+						end
+					end
+				end
+			end
+		end
+	--Survival / Boss Rush / VS 100 Kumite
+	else
+		if main.gameMode == 'survival' or main.gameMode == 'survivalcoop' or main.gameMode == 'netplaysurvivalcoop' then
+			t = main.t_randomChars
+			cnt = #t
+			local i = 0
+			while cnt / p2NumChars ~= math.ceil(cnt / p2NumChars) do --not integer
+				i = i + 1
+				cnt = #t + i
+			end
+		elseif main.gameMode == 'bossrush' then
+			t = main.t_bossChars
+			cnt = #t
+			local i = 0
+			while cnt / p2NumChars ~= math.ceil(cnt / p2NumChars) do
+				i = i + 1
+				cnt = #t + i
+			end
+		elseif main.gameMode == '100kumite' then
+			t = main.t_randomChars
+			cnt = 100 * p2NumChars
+		end
+		while cnt > 0 do
+			main.f_shuffleTable(t)
+			for i = 1, #t do
+				t_roster[#t_roster + 1] = t[i]
+				cnt = cnt - 1
+				if cnt == 0 then
+					break
+				end
+			end
+		end
+	end
+	main.f_printTable(t_roster, 'debug/t_roster.txt')
+end
+
+function select.f_aiRamp()
+	local start_match = 0
+	local start_diff = 0
+	local end_match = 0
+	local end_diff = 0
+	t_aiRamp = {}
+	--Arcade
+	if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+		if p2TeamMode == 0 then --Single
+			start_match = main.t_selOptions.arcadestart.wins
+			start_diff = main.t_selOptions.arcadestart.offset
+			end_match =  main.t_selOptions.arcadeend.wins
+			end_diff = main.t_selOptions.arcadeend.offset
+		else --Team
+			start_match = main.t_selOptions.teamstart.wins
+			start_diff = main.t_selOptions.teamstart.offset
+			end_match =  main.t_selOptions.teamend.wins
+			end_diff = main.t_selOptions.teamend.offset
+		end
+	elseif main.gameMode == 'survival' or main.gameMode == 'survivalcoop' or main.gameMode == 'netplaysurvivalcoop' then
+		start_match = main.t_selOptions.survivalstart.wins
+		start_diff = main.t_selOptions.survivalstart.offset
+		end_match =  main.t_selOptions.survivalend.wins
+		end_diff = main.t_selOptions.survivalend.offset
+	end
+	local startAI = config.Difficulty + start_diff
+	if startAI > 8 then
+		startAI = 8
+	elseif startAI < 1 then
+		startAI = 1
+	end
+	local endAI = config.Difficulty + end_diff
+	if endAI > 8 then
+		endAI = 8
+	elseif endAI < 1 then
+		endAI = 1
+	end
+	for i = 1, lastMatch do
+		if i - 1 <= start_match then
+			t_aiRamp[#t_aiRamp + 1] = startAI
+		elseif i - 1 <= end_match then
+			local curMatch = i - (start_match + 1)
+			t_aiRamp[#t_aiRamp + 1] = math.floor(curMatch * (endAI - startAI) / (end_match - start_match) + startAI)
+		else
+			t_aiRamp[#t_aiRamp + 1] = endAI
+		end
+	end
+	main.f_printTable(t_aiRamp, 'debug/t_aiRamp.txt')
+end
+
+function select.f_difficulty(player, offset)
+	local t = {}
+	if player % 2 ~= 0 then --odd value
+		local pos = math.floor(player / 2 + 0.5)
+		t = main.t_selChars[t_p1Selected[pos].cel + 1]
+	else --even value
+		local pos = math.floor(player / 2)
+		t = main.t_selChars[t_p2Selected[pos].cel + 1]
+	end
+	if t.ai ~= nil then
+		return t.ai
+	else
+		return config.Difficulty + offset
+	end
+end
+
+function select.f_aiLevel()
+	--Offset
+	local offset = 0
+	if config.AIRamping and main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' or main.gameMode == 'survival' or main.gameMode == 'survivalcoop' or main.gameMode == 'netplaysurvivalcoop' then
+		offset = t_aiRamp[matchNo] - config.Difficulty
+	end
+	--Player 1
+	if main.coop then
+		setCom(1, 0)
+		setCom(3, 0)
+	elseif p1TeamMode == 0 then --Single
+		if main.p1In == 1 and not main.aiFight then
+			setCom(1, 0)
+		else
+			setCom(1, select.f_difficulty(1, offset))
+		end
+	elseif p1TeamMode == 1 and config.SimulMode then --Simul
+		if main.p1In == 1 and not main.aiFight then
+			setCom(1, 0)
+		else
+			setCom(1, select.f_difficulty(1, offset))
+		end
+		for i = 3, p1NumChars * 2 do
+			if i % 2 ~= 0 then --odd value
+				setCom(i, select.f_difficulty(i, offset))
+			end
+		end
+	-- Legcy TAG
+	elseif p1TeamMode == 1 and config.SimulMode == false then
+		for i = 1, p1NumChars * 2 do
+			if i % 2 ~= 0 then --odd value
+				if main.p1In == 1 and not main.aiFight then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	elseif p1TeamMode == 2 then --Turns
+		for i = 1, p1NumChars * 2 do
+			if i % 2 ~= 0 then
+				if main.p1In == 1 and not main.aiFight then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	else --Tag
+		for i = 1, p1NumChars * 2 do
+			if i % 2 ~= 0 then --odd value
+				if main.p1In == 1 and not main.aiFight then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	end
+	--Player 2
+	if p2TeamMode == 0 then --Single
+		if main.p2In == 2 and not main.aiFight and not main.coop then
+			setCom(2, 0)
+		else
+			setCom(2, select.f_difficulty(2, offset))
+		end
+	elseif p2TeamMode == 1 and config.SimulMode then --Simul
+		if main.p2In == 2 and not main.aiFight and not main.coop then
+			setCom(2, 0)
+		else
+			setCom(2, select.f_difficulty(2, offset))
+		end
+		for i = 4, p2NumChars * 2 do
+			if i % 2 == 0 then --even value
+				setCom(i, select.f_difficulty(i, offset))
+			end
+		end
+	-- Legcy TAG
+	elseif p2TeamMode == 1 and config.SimulMode == false then --Tag
+		for i = 2, p2NumChars * 2 do
+			if i % 2 == 0 then --even value
+				if main.p2In == 2 and not main.aiFight and not main.coop then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	elseif p2TeamMode == 2 then --Turns
+		for i = 2, p2NumChars * 2 do
+			if i % 2 == 0 then
+				if main.p2In == 2 and not main.aiFight and not main.coop then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	else --Tag
+		for i = 2, p2NumChars * 2 do
+			if i % 2 == 0 then --even value
+				if main.p2In == 2 and not main.aiFight and not main.coop then
+					setCom(i, 0)
+				else
+					setCom(i, select.f_difficulty(i, offset))
+				end
+			end
+		end
+	end
+end
+
+function select.f_assignMusic()
+	local track = ''
+	if main.stageMenu then
+		if main.t_selStages[stageNo].music ~= nil then
+			track = math.random(1, #main.t_selStages[stageNo].music)
+			track = main.t_selStages[stageNo].music[track].bgmusic
+		end
+	else
+		if main.t_selChars[t_p2Selected[1].cel + 1].music ~= nil then
+			track = math.random(1, #main.t_selChars[t_p2Selected[1].cel + 1].music)
+			track = main.t_selChars[t_p2Selected[1].cel + 1].music[track].bgmusic
+		elseif main.t_selStages[stageNo].music ~= nil then
+			track = math.random(1, #main.t_selStages[stageNo].music)
+			track = main.t_selStages[stageNo].music[track].bgmusic
+		end
+		stageEnd = true
+	end
+	playBGM(track)
+end
+
+function select.f_selectStage()
+	if main.t_selChars[t_p2Selected[1].cel + 1].stage ~= nil then
+		stageNo = math.random(1, #main.t_selChars[t_p2Selected[1].cel + 1].stage)
+		stageNo = main.t_selChars[t_p2Selected[1].cel + 1].stage[stageNo]
+	else
+		stageNo = main.t_includeStage[math.random(1, #main.t_includeStage)]
+	end
+	setStage(stageNo)
+	selectStage(stageNo)
+end
+
+function select.f_randomPal(cell)
+	--table with pal numbers already assigned
+	local t = {}
+	for i = 1, #t_p1Selected do
+		if t_p1Selected[i].cel == cell then
+			t[#t + 1] = t_p1Selected[i].pal
+		end
+	end
+	for i = 1, #t_p2Selected do
+		if t_p2Selected[i].cel == cell then
+			t[#t + 1] = t_p2Selected[i].pal
+		end
+	end
+	--table with pal numbers not assigned yet (or all if there are not enough pals for unique appearance of all characters)
+	local t2 = {}
+	for i = 1, #main.t_selChars[cell + 1].pal do
+		if t[main.t_selChars[cell + 1].pal[i]] == nil or #t >= #main.t_selChars[cell + 1].pal then
+			t2[#t2 + 1] = main.t_selChars[cell + 1].pal[i]
+		end
+	end
+	return t2[math.random(1, #t2)]
+end
+
+function select.f_drawName(t, data, font, offsetX, offsetY, scaleX, scaleY, spacingX, spacingY, active_font, active_row)
+	for i = 1, #t do
+		local x = offsetX
+		local f = font
+		if active_font ~= nil and active_row ~= nil then
+			if i == active_row then
+				f = active_font
+			else
+				f = font
+			end
+		end
+		if motif.font_data[f[1]] ~= -1 then
+			main.f_updateTextImg(
+				data,
+				motif.font_data[f[1]],
+				f[2],
+				f[3],
+				main.f_getName(t[i].cel),
+				x + (i - 1) * spacingX,
+				offsetY + (i - 1) * spacingY,
+				scaleX,
+				scaleY,
+				f[4],
+				f[5],
+				f[6]
+			)
+			textImgDraw(data)
+		end
+	end
+end
+
+function select.f_drawPortrait(t, offsetX, offsetY, facing, scaleX, scaleY, spacingX, spacingY, limit, func)
+	if facing == -1 then offsetX = offsetX + 1 end --fix for wrong offset after flipping sprites
+	for i = #t, 1, -1 do
+		if i <= limit then
+			if func == 'select' then
+				drawPortrait(t[i].cel, offsetX + (i - 1) * spacingX, offsetY + (i - 1) * spacingY, facing * scaleX, scaleY)
+			elseif func == 'versus' then
+				drawVersusPortrait(t[i].cel, offsetX + (i - 1) * spacingX, offsetY + (i - 1) * spacingY, facing * scaleX, scaleY)
+			elseif func == 'victory' then
+				drawVictoryPortrait(t[i].cel, offsetX + (i - 1) * spacingX, offsetY + (i - 1) * spacingY, facing * scaleX, scaleY)
+			end
+		end
+	end
+end
+
+function select.f_cellMovement(selX, selY, cmd, faceOffset, rowOffset, snd)
+	local tmpX = selX
+	local tmpY = selY
+	local tmpFace = faceOffset
+	local tmpRow = rowOffset
+	local found = false
+	if commandGetState(cmd, 'u') then
+		for i = 1, motif.select_info.rows + motif.select_info.rows_scrolling do
+			selY = selY - 1
+			if selY < 0 then
+				if wrappingY then
+					faceOffset = motif.select_info.rows_scrolling * motif.select_info.columns
+					rowOffset = motif.select_info.rows_scrolling
+					selY = motif.select_info.rows + motif.select_info.rows_scrolling - 1
+				else
+					faceOffset = tmpFace
+					rowOffset = tmpRow
+					selY = tmpY
+				end
+			elseif selY < rowOffset then
+				faceOffset = faceOffset - motif.select_info.columns
+				rowOffset = rowOffset - 1
+			end
+			if (t_grid[selY + 1][selX + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2)
+			or motif.select_info.moveoveremptyboxes == 1 then
+				break
+			elseif motif.select_info.searchemptyboxesup ~= 0 then
+				found, selX = select.f_searchEmptyBoxes(motif.select_info.searchemptyboxesup, selX, selY)
+				if found then
+					break
+				end
+			end
+		end
+	elseif commandGetState(cmd, 'd') then
+		for i = 1, motif.select_info.rows + motif.select_info.rows_scrolling do
+			selY = selY + 1
+			if selY >= motif.select_info.rows + motif.select_info.rows_scrolling then
+				if wrappingY then
+					faceOffset = 0
+					rowOffset = 0
+					selY = 0
+				else
+					faceOffset = tmpFace
+					rowOffset = tmpRow
+					selY = tmpY
+				end
+			elseif selY >= motif.select_info.rows + rowOffset then
+				faceOffset = faceOffset + motif.select_info.columns
+				rowOffset = rowOffset + 1
+			end
+			if (t_grid[selY + 1][selX + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2)
+			or motif.select_info.moveoveremptyboxes == 1 then
+				break
+			elseif motif.select_info.searchemptyboxesdown ~= 0 then
+				found, selX = select.f_searchEmptyBoxes(motif.select_info.searchemptyboxesdown, selX, selY)
+				if found then
+					break
+				end
+			end
+		end
+	elseif commandGetState(cmd, 'l') then
+		for i = 1, motif.select_info.columns do
+			selX = selX - 1
+			if selX < 0 then
+				if wrappingX then
+					selX = motif.select_info.columns - 1
+				else
+					selX = tmpX
+				end
+			end
+			if (t_grid[selY + 1][selX + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2)
+			or motif.select_info.moveoveremptyboxes == 1 then
+				break
+			end
+		end
+	elseif commandGetState(cmd, 'r') then
+		for i = 1, motif.select_info.columns do
+			selX = selX + 1
+			if selX >= motif.select_info.columns then
+				if wrappingX then
+					selX = 0
+				else
+					selX = tmpX
+				end
+			end
+			if (t_grid[selY + 1][selX + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2)
+			or motif.select_info.moveoveremptyboxes == 1 then
+				break
+			end
+		end
+	end
+	if tmpX ~= selX or tmpY ~= selY then
+		resetgrid = true
+		--if tmpRow ~= rowOffset then
+			--select.f_resetGrid()
+		--end
+		sndPlay(motif.files.snd_data, snd[1], snd[2])
+	end
+	return selX, selY, faceOffset, rowOffset
+end
+
+function select.f_searchEmptyBoxes(direction, x, y)
+	local selX = x
+	local selY = y
+	local tmpX = x
+	local found = false
+	if direction > 0 then --right
+		while true do
+			x = x + 1
+			if x >= motif.select_info.columns then
+				x = tmpX
+				break
+			elseif t_grid[y + 1][x + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2 then
+				found = true
+				break
+			end
+		end
+	elseif direction < 0 then --left
+		while true do
+			x = x - 1
+			if x < 0 then
+				x = tmpX
+				break
+			elseif t_grid[y + 1][x + 1].char ~= nil and t_grid[selY + 1][selX + 1].hidden ~= 2 then
+				found = true
+				break
+			end
+		end
+	end
+	return found, x
+end
+
+function select.f_unlockChar(char, flag)
+	--setHiddenFlag(char, flag) --not used for now
+	main.t_selChars[char + 1].hidden = flag
+	t_grid[main.t_selChars[char + 1].row][main.t_selChars[char + 1].col].hidden = flag
+	select.f_resetGrid()
+end
+
+function select.f_resetGrid()
+	select.t_drawFace = {}
+	for row = 1, motif.select_info.rows do
+		for col = 1, motif.select_info.columns do
+			--1Pのランダムセル表示位置 / 1P random cell display position
+			if t_grid[row + p1RowOffset][col].char == 'randomselect' or t_grid[row + p1RowOffset][col].hidden == 3 then
+				select.t_drawFace[#select.t_drawFace + 1] = {d = 1, p1 = t_grid[row + p1RowOffset][col].num, p2 = t_grid[row + p2RowOffset][col].num, x1 = p1FaceX + t_grid[row][col].x, x2 = p2FaceX + t_grid[row][col].x, y1 = p1FaceY + t_grid[row][col].y, y2 = p2FaceY + t_grid[row][col].y}
+			--2Pのランダムセル表示位置 / 2P random cell display position
+			elseif t_grid[row + p2RowOffset][col].char == 'randomselect' or t_grid[row + p2RowOffset][col].hidden == 3 then
+				select.t_drawFace[#select.t_drawFace + 1] = {d = 11, p1 = t_grid[row + p1RowOffset][col].num, p2 = t_grid[row + p2RowOffset][col].num, x1 = p1FaceX + t_grid[row][col].x, x2 = p2FaceX + t_grid[row][col].x, y1 = p1FaceY + t_grid[row][col].y, y2 = p2FaceY + t_grid[row][col].y}
+			--1Pのキャラ表示位置 / 1P character display position
+			elseif t_grid[row + p1RowOffset][col].char ~= nil and t_grid[row + p1RowOffset][col].hidden == 0 then
+				select.t_drawFace[#select.t_drawFace + 1] = {d = 2, p1 = t_grid[row + p1RowOffset][col].num, p2 = t_grid[row + p2RowOffset][col].num, x1 = p1FaceX + t_grid[row][col].x, x2 = p2FaceX + t_grid[row][col].x, y1 = p1FaceY + t_grid[row][col].y, y2 = p2FaceY + t_grid[row][col].y}
+			--2Pのキャラ表示位置 / 2P character display position
+			elseif t_grid[row + p2RowOffset][col].char ~= nil and t_grid[row + p2RowOffset][col].hidden == 0 then
+				select.t_drawFace[#select.t_drawFace + 1] = {d = 12, p1 = t_grid[row + p1RowOffset][col].num, p2 = t_grid[row + p2RowOffset][col].num, x1 = p1FaceX + t_grid[row][col].x, x2 = p2FaceX + t_grid[row][col].x, y1 = p1FaceY + t_grid[row][col].y, y2 = p2FaceY + t_grid[row][col].y}
+			elseif motif.select_info.showemptyboxes == 1 then
+				select.t_drawFace[#select.t_drawFace + 1] = {d = 0, p1 = t_grid[row + p1RowOffset][col].num, p2 = t_grid[row + p2RowOffset][col].num, x1 = p1FaceX + t_grid[row][col].x, x2 = p2FaceX + t_grid[row][col].x, y1 = p1FaceY + t_grid[row][col].y, y2 = p2FaceY + t_grid[row][col].y}
+			end
+		end
+	end
+end
+
+function select.f_selectReset()
+	if main.p2Faces and motif.select_info.double_select == 1 then
+		p1FaceX = motif.select_info.pos_p1_double_select[1]
+		p1FaceY = motif.select_info.pos_p1_double_select[2]
+		p2FaceX = motif.select_info.pos_p2_double_select[1]
+		p2FaceY = motif.select_info.pos_p2_double_select[2]
+	else
+		p1FaceX = motif.select_info.pos[1]
+		p1FaceY = motif.select_info.pos[2]
+		p2FaceX = motif.select_info.pos[1]
+		p2FaceY = motif.select_info.pos[2]
+	end
+	select.f_resetGrid()
+	if main.gameMode == 'netplayversus' or main.gameMode == 'netplayteamcoop' or main.gameMode == 'netplaysurvivalcoop' then
+		p1TeamMode = 0
+		p2TeamMode = 0
+		stageNo = 0
+		stageList = 0
+	end
+	p1Cell = nil
+	p2Cell = nil
+	t_p1Selected = {}
+	t_p2Selected = {}
+	p1TeamEnd = false
+	p1SelEnd = false
+	p2TeamEnd = false
+	p2SelEnd = false
+	if main.p2In == 1 then
+		p2TeamEnd = true
+		p2SelEnd = true
+	elseif main.coop then
+		p1TeamEnd = true
+		p2TeamEnd = true
+	end
+	if not main.p2SelectMenu then
+		p2SelEnd = true
+	end
+	selScreenEnd = false
+	stageEnd = false
+	coopEnd = false
+	restoreTeam = false
+	p1NumChars = 1
+	p2NumChars = 1
+	matchNo = 0
+	setMatchNo(matchNo)
+end
+
+--;===========================================================
+--; SIMPLE LOOP (VS MODE, TRAINING, WATCH, BONUS GAMES)
+--;===========================================================
+function select.f_selectSimple()
+	p1SelX = motif.select_info.p1_cursor_startcell[2]
+	p1SelY = motif.select_info.p1_cursor_startcell[1]
+	p2SelX = motif.select_info.p2_cursor_startcell[2]
+	p2SelY = motif.select_info.p2_cursor_startcell[1]
+	p1FaceOffset = 0
+	p2FaceOffset = 0
+	p1RowOffset = 0
+	p2RowOffset = 0
+	stageList = 0
+	main.f_cmdInput()
+	while true do
+		main.f_resetBG(motif.select_info, motif.selectbgdef, motif.music.select_bgm)
+		select.f_selectReset()
+		selectStart()
+		while not selScreenEnd do
+			if esc() then
+				sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			end
+			select.f_selectScreen()
+		end
+		select.f_aiLevel()
+		if not main.stageMenu then
+			select.f_selectStage()
+		end
+		select.f_selectVersus()
+		if esc() then break end
+		select.f_setZoom()
+		select.f_assignMusic()
+		loadStart()
+		winner, t_gameStats = game()
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+--;===========================================================
+--; ADVANCE LOOP (ARCADE, TEAM CO-OP, SURVIVAL, SURVIVAL CO-OP, VS 100 KUMITE, BOSS RUSH)
+--;===========================================================
+function select.f_selectAdvance()
+getSpriteInfo('chars/kfm/kfm.sff', 0, 1)
+	p1SelX = motif.select_info.p1_cursor_startcell[2]
+	p1SelY = motif.select_info.p1_cursor_startcell[1]
+	p2SelX = motif.select_info.p2_cursor_startcell[2]
+	p2SelY = motif.select_info.p2_cursor_startcell[1]
+	p1FaceOffset = 0
+	p2FaceOffset = 0
+	p1RowOffset = 0
+	p2RowOffset = 0
+	winner = 0
+	winCnt = 0
+	looseCnt = 0
+	main.f_cmdInput()
+	select.f_selectReset()
+	stageEnd = true
+	while true do
+		main.f_resetBG(motif.select_info, motif.selectbgdef, motif.music.select_bgm)
+		selectStart()
+		while not selScreenEnd do
+			if esc() then
+				sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			end
+			select.f_selectScreen()
+		end
+		--first match
+		if matchNo == 0 then
+			--coop swap
+			if main.coop then
+				p1TeamMode = 1
+				p1NumChars = 2
+				setTeamMode(1, p1TeamMode, p1NumChars)
+				t_p1Selected[2] = {cel = t_p2Selected[1].cel, pal = t_p2Selected[1].pal}
+			end
+			--generate roster
+			select.f_makeRoster()
+			lastMatch = #t_roster / p2NumChars
+			matchNo = 1
+			--generate AI ramping table
+			select.f_aiRamp()
+			--intro
+			if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+				local tPos = main.t_selChars[t_p1Selected[1].cel + 1]
+				if tPos.intro ~= nil and main.f_fileExists(tPos.intro) then
+					storyboard.f_storyboard(tPos.intro)
+				end
+			end
+		--player exit the match via ESC in VS 100 Kumite mode
+		elseif winner == -1 and main.gameMode == '100kumite' then
+			--counter
+			looseCnt = looseCnt + 1
+			--result
+			select.f_result('lost')
+			--game over
+			if motif.game_over_screen.enabled == 1 and motif.game_over_screen.storyboard ~= '' then
+				storyboard.f_storyboard(motif.game_over_screen.storyboard)
+			end
+			--intro
+			if motif.files.intro_storyboard ~= '' then
+				storyboard.f_storyboard(motif.files.intro_storyboard)
+			end
+			main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+			return
+		--player won (also if lost in VS 100 Kumite)
+		elseif winner == 1 or main.gameMode == '100kumite' then
+			--counter
+			if winner == 1 then
+				winCnt = winCnt + 1
+			else --only true in VS 100 Kumite mode
+				looseCnt = looseCnt + 1
+			end
+			--victory screen
+			if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+				if main.t_selChars[t_p2Selected[1].cel + 1].winscreen == nil or main.t_selChars[t_p2Selected[1].cel + 1].winscreen == 1 then
+					select.f_selectVictory()
+				end
+			end
+			--no more matches left
+			if matchNo == lastMatch then
+				--ending
+				if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+					local tPos = main.t_selChars[t_p1Selected[1].cel + 1]
+					if tPos.ending ~= nil and main.f_fileExists(tPos.ending) then
+						storyboard.f_storyboard(tPos.ending)
+					elseif motif.default_ending.enabled == 1 and motif.default_ending.storyboard ~= '' then
+						storyboard.f_storyboard(motif.default_ending.storyboard)
+					end
+				end
+				--result
+				select.f_result(true)
+				--credits
+				if motif.end_credits.enabled == 1 and motif.end_credits.storyboard ~= '' then
+					storyboard.f_storyboard(motif.end_credits.storyboard)
+				end
+				--game over
+				if motif.game_over_screen.enabled == 1 and motif.game_over_screen.storyboard ~= '' then
+					storyboard.f_storyboard(motif.game_over_screen.storyboard)
+				end
+				--intro
+				if motif.files.intro_storyboard ~= '' then
+					storyboard.f_storyboard(motif.files.intro_storyboard)
+				end
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			--next match available
+			else
+				matchNo = matchNo + 1
+			end
+		--player lost and doesn't have any credits left
+		elseif main.credits == 0 then
+			--counter
+			looseCnt = looseCnt + 1
+			--victory screen
+			if main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop' then
+				if winner >= 1 and (main.t_selChars[t_p2Selected[1].cel + 1].winscreen == nil or main.t_selChars[t_p2Selected[1].cel + 1].winscreen == 1) then
+					select.f_selectVictory()
+				end
+			end
+			--result
+			select.f_result(false)
+			--game over
+			if motif.game_over_screen.enabled == 1 and motif.game_over_screen.storyboard ~= '' then
+				storyboard.f_storyboard(motif.game_over_screen.storyboard)
+			end
+			--intro
+			if motif.files.intro_storyboard ~= '' then
+				storyboard.f_storyboard(motif.files.intro_storyboard)
+			end
+			main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+			return
+		--player lost but can continue
+		else
+			--counter
+			looseCnt = looseCnt + 1
+			--victory screen
+			if winner >= 1 and (main.t_selChars[t_p2Selected[1].cel + 1].winscreen == nil or main.t_selChars[t_p2Selected[1].cel + 1].winscreen == 1) then
+				select.f_selectVictory()
+			end
+			--continue screen
+			select.f_continue()
+			if not continue then
+				--game over
+				if motif.continue_screen.external_gameover == 1 and motif.game_over_screen.storyboard ~= '' then
+					storyboard.f_storyboard(motif.game_over_screen.storyboard)
+				end
+				--intro
+				if motif.files.intro_storyboard ~= '' then
+					storyboard.f_storyboard(motif.files.intro_storyboard)
+				end
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			end
+			if config.ContSelection then --true if 'Char change at Continue' option is enabled
+				t_p1Selected = {}
+				p1SelEnd = false
+				if main.coop then
+					p1NumChars = 1
+					numChars = p2NumChars
+					p2NumChars = 1
+					t_p2Selected = {}
+					p2SelEnd = false
+				end
+				selScreenEnd = false
+				while not selScreenEnd do
+					if esc() then
+						sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+						main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+						return
+					end
+					select.f_selectScreen()
+				end
+			elseif esc() then
+				sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			end
+		end
+		--coop swap
+		if main.coop then
+			remapInput(3,2) --P2 controls assigned to P3 character
+			if winner == -1 or winner == 2 then
+				p1NumChars = 2
+				p2NumChars = numChars
+				t_p1Selected[2] = {cel = t_p2Selected[1].cel, pal = t_p2Selected[1].pal}
+			end
+		end
+		--assign enemy team
+		t_p2Selected = {}
+		local shuffle = true
+		for i = 1, p2NumChars do
+			if i == 1 and (main.gameMode == 'arcade' or main.gameMode == 'teamcoop' or main.gameMode == 'netplayteamcoop') and main.t_selChars[t_p1Selected[1].cel + 1][matchNo] ~= nil then
+				p2Cell = main.t_charDef[main.t_selChars[t_p1Selected[1].cel + 1][matchNo]]
+				shuffle = false
+			else
+				p2Cell = t_roster[matchNo * p2NumChars - i + 1]
+			end
+			local updateAnim = true
+			for j = 1, #t_p2Selected do
+				if t_p2Selected[j].cel == p2Cell then
+					updateAnim = false
+				end
+			end
+			t_p2Selected[#t_p2Selected + 1] = {cel = p2Cell, pal = select.f_randomPal(p2Cell), up = updateAnim}
+			if shuffle then
+				main.f_shuffleTable(t_p2Selected)
+			end
+		end
+		--Team conversion to Single match if bonus paramvalue on any opponents is detected
+		if p2NumChars > 1 then
+			for i = 1, #t_p2Selected do
+				if main.t_selChars[t_p2Selected[i].cel + 1].bonus ~= nil and main.t_selChars[t_p2Selected[i].cel + 1].bonus == 1 then
+					teamMode = p2TeamMode
+					numChars = p2NumChars
+					p2TeamMode = 0
+					p2NumChars = 1
+					setTeamMode(2, 0, 1)
+					p2Cell = main.t_charDef[main.t_selChars[t_p2Selected[i].cel + 1].char]
+					t_p2Selected = {}
+					t_p2Selected[1] = {cel = p2Cell, pal = select.f_randomPal(p2Cell), up = true}
+					restoreTeam = true
+					break
+				end
+			end
+		end
+		setMatchNo(matchNo)
+		select.f_aiLevel()
+		if not main.stageMenu then
+			select.f_selectStage()
+		end
+		select.f_selectVersus()
+		if esc() then break end
+		select.f_setZoom()
+		select.f_assignMusic()
+		loadStart()
+		winner, t_gameStats = game()
+		--restore P2 Team settings if needed
+		if restoreTeam then
+			p2TeamMode = teamMode
+			p2NumChars = numChars
+			setTeamMode(2, p2TeamMode, p2NumChars)
+			restoreTeam = false
+		end
+		resetRemapInput()
+		main.f_cmdInput()
+		--main.f_printTable(_G)
+		refresh()
+	end
+end
+
+--;===========================================================
+--; TOURNAMENT LOOP
+--;===========================================================
+function select.f_selectTournament()
+	p1SelX = motif.select_info.p1_cursor_startcell[2]
+	p1SelY = motif.select_info.p1_cursor_startcell[1]
+	p2SelX = motif.select_info.p2_cursor_startcell[2]
+	p2SelY = motif.select_info.p2_cursor_startcell[1]
+	p1FaceOffset = 0
+	p2FaceOffset = 0
+	p1RowOffset = 0
+	p2RowOffset = 0
+	stageList = 0
+	main.f_cmdInput()
+	while true do
+		main.f_resetBG(motif.tournament_info, motif.tournamentbgdef, motif.music.tournament_bgm)
+		select.f_selectReset()
+		while not selScreenEnd do
+			if esc() then
+				sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				return
+			end
+			select.f_selectTournamentScreen()
+		end
+		select.f_aiLevel()
+		select.f_selectVersus()
+		select.f_setZoom()
+		select.f_assignMusic()
+		loadStart()
+		winner, t_gameStats = game()
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+--;===========================================================
+--; TOURNAMENT SCREEN
+--;===========================================================
+function select.f_selectTournamentScreen()
+	--draw clearcolor
+	animDraw(motif.tournamentbgdef.bgclearcolor_data)
+	--draw layerno = 0 backgrounds
+	main.f_drawBG(motif.tournamentbgdef.bg_data, motif.tournamentbgdef.bg, 0, motif.tournamentbgdef.timer)
+	
+	--draw layerno = 1 backgrounds
+	main.f_drawBG(motif.tournamentbgdef.bg_data, motif.tournamentbgdef.bg, 1, motif.tournamentbgdef.timer)
+	--draw fadein
+	animDraw(motif.tournament_info.fadein_data)
+	animUpdate(motif.tournament_info.fadein_data)
+	--update timer
+	motif.tournamentbgdef.timer = motif.tournamentbgdef.timer + 1
+	--end loop
+	main.f_cmdInput()
+	refresh()
+end
+
+--;===========================================================
+--; SELECT SCREEN
+--;===========================================================
+local txt_p1Name = main.f_createTextImg(
+	motif.font_data[motif.select_info.p1_name_font[1]],
+	motif.select_info.p1_name_font[2],
+	motif.select_info.p1_name_font[3],
+	'',
+	0,
+	0,
+	motif.select_info.p1_name_font_scale[1],
+	motif.select_info.p1_name_font_scale[2],
+	motif.select_info.p1_name_font[4],
+	motif.select_info.p1_name_font[5],
+	motif.select_info.p1_name_font[6]
+)
+
+local p1RandomCount = 0
+local p1RandomPortrait = 0
+if #main.t_randomChars > 0 then p1RandomPortrait = main.t_randomChars[math.random(1, #main.t_randomChars)] end
+local txt_p2Name = main.f_createTextImg(
+	motif.font_data[motif.select_info.p2_name_font[1]], 
+	motif.select_info.p2_name_font[2], 
+	motif.select_info.p2_name_font[3], 
+	'', 
+	0, 
+	0, 
+	motif.select_info.p2_name_font_scale[1],
+	motif.select_info.p2_name_font_scale[2],
+	motif.select_info.p2_name_font[4],
+	motif.select_info.p2_name_font[5],
+	motif.select_info.p2_name_font[6]
+)
+local p2RandomCount = 0
+local p2RandomPortrait = 0
+if #main.t_randomChars > 0 then p2RandomPortrait = main.t_randomChars[math.random(1, #main.t_randomChars)] end
+
+function select.f_selectScreen()
+	--draw clearcolor
+	animDraw(motif.selectbgdef.bgclearcolor_data)
+	--draw layerno = 0 backgrounds
+	main.f_drawBG(motif.selectbgdef.bg_data, motif.selectbgdef.bg, 0, motif.selectbgdef.timer)
+	--draw title
+	textImgDraw(main.txt_mainSelect)
+	if p1Cell then
+		--draw p1 portrait
+		local t_portrait = {}
+		if #t_p1Selected < p1NumChars then
+			if main.t_selChars[p1Cell + 1].char == 'randomselect' or main.t_selChars[p1Cell + 1].hidden == 3 then
+				if p1RandomCount < motif.select_info.cell_random_switchtime then
+					p1RandomCount = p1RandomCount + 1
+				elseif #main.t_randomChars > 0 then
+					p1RandomPortrait = main.t_randomChars[math.random(1, #main.t_randomChars)]
+					p1RandomCount = 0
+				end
+				sndPlay(motif.files.snd_data, motif.select_info.p1_random_move_snd[1], motif.select_info.p1_random_move_snd[2])
+				t_portrait[1] = {cel = p1RandomPortrait}
+			elseif main.t_selChars[p1Cell + 1].hidden ~= 2 then
+				t_portrait[1] = {cel = p1Cell}
+			end
+		end
+		for i = #t_p1Selected, 1, -1 do
+			if motif.select_info.p1_face_num > #t_portrait then
+				t_portrait[#t_portrait + 1] = {cel = t_p1Selected[i].cel}
+			end
+		end
+		select.f_drawPortrait(
+			main.f_reversedTable(t_portrait),
+			motif.select_info.p1_face_offset[1],
+			motif.select_info.p1_face_offset[2],
+			motif.select_info.p1_face_facing,
+			motif.select_info.p1_face_scale[1],
+			motif.select_info.p1_face_scale[2],
+			motif.select_info.p1_face_spacing[1],
+			motif.select_info.p1_face_spacing[2],
+			#t_portrait,
+			'select'
+		)
+	end
+	if p2Cell then
+		--draw p2 portrait
+		local t_portrait = {}
+		if #t_p2Selected < p2NumChars then
+			if main.t_selChars[p2Cell + 1].char == 'randomselect' or main.t_selChars[p2Cell + 1].hidden == 3 then
+				if p2RandomCount < motif.select_info.cell_random_switchtime then
+					p2RandomCount = p2RandomCount + 1
+				elseif #main.t_randomChars > 0 then
+					p2RandomPortrait = main.t_randomChars[math.random(1, #main.t_randomChars)]
+					p2RandomCount = 0
+				end
+				sndPlay(motif.files.snd_data, motif.select_info.p2_random_move_snd[1], motif.select_info.p2_random_move_snd[2])
+				t_portrait[1] = {cel = p2RandomPortrait}
+			elseif main.t_selChars[p2Cell + 1].hidden ~= 2 then
+				t_portrait[1] = {cel = p2Cell}
+			end
+		end
+		for i = #t_p2Selected, 1, -1 do
+			if motif.select_info.p2_face_num > #t_portrait then
+				t_portrait[#t_portrait + 1] = {cel = t_p2Selected[i].cel}
+			end
+		end
+		select.f_drawPortrait(
+			main.f_reversedTable(t_portrait),
+			motif.select_info.p2_face_offset[1],
+			motif.select_info.p2_face_offset[2],
+			motif.select_info.p2_face_facing,
+			motif.select_info.p2_face_scale[1],
+			motif.select_info.p2_face_scale[2],
+			motif.select_info.p2_face_spacing[1],
+			motif.select_info.p2_face_spacing[2],
+			#t_portrait,
+			'select'
+		)
+	end
+	--draw cell art (slow for large rosters, this will be likely moved to 'drawFace' function in future)
+	for i = 1, #select.t_drawFace do
+		main.f_animPosDraw(motif.select_info.cell_bg_data, select.t_drawFace[i].x1, select.t_drawFace[i].y1) --draw cell background
+		if select.t_drawFace[i].d == 1 then --draw random cell
+			main.f_animPosDraw(motif.select_info.cell_random_data, select.t_drawFace[i].x1, select.t_drawFace[i].y1)
+		elseif select.t_drawFace[i].d == 2 then --draw face cell
+			drawSmallPortrait(select.t_drawFace[i].p1, select.t_drawFace[i].x1, select.t_drawFace[i].y1, motif.select_info.portrait_scale[1], motif.select_info.portrait_scale[2])
+		end
+		if main.p2Faces and motif.select_info.double_select == 1 then --P2 side grid enabled
+			main.f_animPosDraw(motif.select_info.cell_bg_data, select.t_drawFace[i].x2, select.t_drawFace[i].y2) --draw cell background
+			if select.t_drawFace[i].d == 11 then --draw random cell
+				main.f_animPosDraw(motif.select_info.cell_random_data, select.t_drawFace[i].x2, select.t_drawFace[i].y2)
+			elseif select.t_drawFace[i].d == 12 then --draw face cell
+				drawSmallPortrait(select.t_drawFace[i].p2, select.t_drawFace[i].x2, select.t_drawFace[i].y2, motif.select_info.portrait_scale[1], motif.select_info.portrait_scale[2])
+			end
+		end
+	end
+	--drawFace(p1FaceX, p1FaceY, p1FaceOffset)
+	--if main.p2Faces and motif.select_info.double_select == 1 then
+	--	drawFace(p2FaceX, p2FaceY, p2FaceOffset)
+	--end
+	--draw p1 done cursor
+	for i = 1, #t_p1Selected do
+		if t_p1Selected[i].cursor ~= nil then
+			main.f_animPosDraw(motif.select_info.p1_cursor_done_data, t_p1Selected[i].cursor[1], t_p1Selected[i].cursor[2])
+		end
+	end
+	--draw p2 done cursor
+	for i = 1, #t_p2Selected do
+		if t_p2Selected[i].cursor ~= nil then
+			main.f_animPosDraw(motif.select_info.p2_cursor_done_data, t_p2Selected[i].cursor[1], t_p2Selected[i].cursor[2])
+		end
+	end
+	--Player1 team menu
+	if not p1TeamEnd then
+		select.f_p1TeamMenu()
+	--Player1 select
+	elseif main.p1In > 0 or main.p1Char ~= nil then
+		select.f_p1SelectMenu()
+	end
+	--Player2 team menu
+	if not p2TeamEnd then
+		select.f_p2TeamMenu()
+	--Player2 select
+	elseif main.p2In > 0 or main.p2Char ~= nil then
+		select.f_p2SelectMenu()
+	end
+	if p1Cell then
+		--draw p1 name
+		if #t_p1Selected < p1NumChars then
+			textImgSetText(txt_p1Name, main.f_getName(p1Cell))
+			main.f_textImgPosDraw(
+				txt_p1Name,
+				motif.select_info.p1_name_offset[1] + #t_p1Selected * motif.select_info.p1_name_spacing[1],
+				motif.select_info.p1_name_offset[2] + #t_p1Selected * motif.select_info.p1_name_spacing[2],
+				motif.select_info.p1_name_font[3]
+			)
+		end
+		select.f_drawName(
+			t_p1Selected,
+			txt_p1Name,
+			motif.select_info.p1_name_font,
+			motif.select_info.p1_name_offset[1],
+			motif.select_info.p1_name_offset[2],
+			motif.select_info.p1_name_font_scale[1],
+			motif.select_info.p1_name_font_scale[2],
+			motif.select_info.p1_name_spacing[1],
+			motif.select_info.p1_name_spacing[2]
+		)
+	end
+	if p2Cell then
+		--draw p2 name
+		if #t_p2Selected < p2NumChars then
+			textImgSetText(txt_p2Name, main.f_getName(p2Cell))
+			main.f_textImgPosDraw(
+				txt_p2Name,
+				motif.select_info.p2_name_offset[1] + #t_p2Selected * motif.select_info.p2_name_spacing[1],
+				motif.select_info.p2_name_offset[2] + #t_p2Selected * motif.select_info.p2_name_spacing[2],
+				motif.select_info.p2_name_font[3]
+			)
+		end
+		select.f_drawName(
+			t_p2Selected,
+			txt_p2Name,
+			motif.select_info.p2_name_font,
+			motif.select_info.p2_name_offset[1],
+			motif.select_info.p2_name_offset[2],
+			motif.select_info.p2_name_font_scale[1],
+			motif.select_info.p2_name_font_scale[2],
+			motif.select_info.p2_name_spacing[1],
+			motif.select_info.p2_name_spacing[2]
+		)
+	end
+	if p1SelEnd and p2SelEnd and p1TeamEnd and p2TeamEnd then
+		if main.stageMenu and not stageEnd then --Stage select
+			select.f_stageMenu()
+		elseif main.coop and not coopEnd then
+			coopEnd = true
+			p2TeamEnd = false
+		else
+			selScreenEnd = true
+		end
+	end
+	--draw layerno = 1 backgrounds
+	main.f_drawBG(motif.selectbgdef.bg_data, motif.selectbgdef.bg, 1, motif.selectbgdef.timer)
+	--draw fadein
+	animDraw(motif.select_info.fadein_data)
+	animUpdate(motif.select_info.fadein_data)
+	--update timer
+	motif.selectbgdef.timer = motif.selectbgdef.timer + 1
+	--end loop
+	main.f_cmdInput()
+	refresh()
+end
+
+--;===========================================================
+--; PLAYER 1 TEAM MENU
+--;===========================================================
+local txt_p1TeamSelfTitle = main.f_createTextImg(
+	motif.font_data[motif.select_info.p1_teammenu_selftitle_font[1]],
+	motif.select_info.p1_teammenu_selftitle_font[2],
+	motif.select_info.p1_teammenu_selftitle_font[3],
+	motif.select_info.p1_teammenu_selftitle_text,
+	motif.select_info.p1_teammenu_pos[1] + motif.select_info.p1_teammenu_selftitle_offset[1],
+	motif.select_info.p1_teammenu_pos[2] + motif.select_info.p1_teammenu_selftitle_offset[2],
+	motif.select_info.p1_teammenu_selftitle_font_scale[1],
+	motif.select_info.p1_teammenu_selftitle_font_scale[2],
+	motif.select_info.p1_teammenu_selftitle_font[4],
+	motif.select_info.p1_teammenu_selftitle_font[5],
+	motif.select_info.p1_teammenu_selftitle_font[6]
+)
+local txt_p1TeamEnemyTitle = main.f_createTextImg(
+	motif.font_data[motif.select_info.p1_teammenu_enemytitle_font[1]],
+	motif.select_info.p1_teammenu_enemytitle_font[2],
+	motif.select_info.p1_teammenu_enemytitle_font[3],
+	motif.select_info.p1_teammenu_enemytitle_text,
+	motif.select_info.p1_teammenu_pos[1] + motif.select_info.p1_teammenu_enemytitle_offset[1],
+	motif.select_info.p1_teammenu_pos[2] + motif.select_info.p1_teammenu_enemytitle_offset[2],
+	motif.select_info.p1_teammenu_enemytitle_font_scale[1],
+	motif.select_info.p1_teammenu_enemytitle_font_scale[2],
+	motif.select_info.p1_teammenu_enemytitle_font[4],
+	motif.select_info.p1_teammenu_enemytitle_font[5],
+	motif.select_info.p1_teammenu_enemytitle_font[6]
+)
+
+-- Legacy TAG check and mode enabing
+function main.GetTeamMenu()
+	local temptag789TeamMenu = {}
+	local tempPos = 1
+
+	-- Single mode check
+	if config.SingleTeamMode == true then
+		temptag789TeamMenu[1] = {data = textImgNew(), itemname = 'single', displayname = motif.select_info.teammenu_itemname_single}
+		tempPos = tempPos + 1
+	end
+
+	if config.SimulMode then
+		-- Simul mode check
+		if config.NumSimul > 1 then
+			temptag789TeamMenu[tempPos] = {data = textImgNew(), itemname = 'simul', displayname = motif.select_info.teammenu_itemname_simul}
+			tempPos = tempPos + 1
+		end
+		-- Tag mode check
+		if config.NumTag > 1 then
+			temptag789TeamMenu[tempPos] = {data = textImgNew(), itemname = 'tag', displayname = motif.select_info.teammenu_itemname_tag}
+			tempPos = tempPos + 1
+		end
+	else
+		-- Legacy Tag mode enable
+		temptag789TeamMenu[tempPos] = {data = textImgNew(), itemname = 'simul', displayname = motif.select_info.teammenu_itemname_tag}
+		tempPos = tempPos + 1
+	end
+
+	-- Turns mode check
+	if config.NumTurns > 1 then
+		temptag789TeamMenu[tempPos] = {data = textImgNew(), itemname = 'turns', displayname = motif.select_info.teammenu_itemname_turns}
+	end
+
+	return temptag789TeamMenu
+end
+
+-- Set tag mode
+local t_p1TeamMenu = main.GetTeamMenu()
+t_p1TeamMenu = main.f_cleanTable(t_p1TeamMenu)
+
+local p1TeamActiveCount = 0
+local p1TeamActiveFont = 'p1_teammenu_item_active_font'
+
+function select.f_p1TeamMenu()
+	if main.p1TeamMenu ~= nil then --Predefined team
+		p1NumChars = main.p1TeamMenu.chars
+		p1TeamMode = main.p1TeamMenu.mode
+		setTeamMode(1, p1TeamMode, p1NumChars)
+		p1TeamEnd = true
+	else
+		--Calculate team cursor position
+		if commandGetState(main.p1Cmd, 'u') then
+			if p1TeamMenu - 1 >= 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_move_snd[1], motif.select_info.p1_teammenu_move_snd[2])
+				p1TeamMenu = p1TeamMenu - 1
+			elseif motif.select_info.teammenu_move_wrapping == 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_move_snd[1], motif.select_info.p1_teammenu_move_snd[2])
+				p1TeamMenu = #t_p1TeamMenu
+			end
+		elseif commandGetState(main.p1Cmd, 'd') then
+			if p1TeamMenu + 1 <= #t_p1TeamMenu then
+				sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_move_snd[1], motif.select_info.p1_teammenu_move_snd[2])
+				p1TeamMenu = p1TeamMenu + 1
+			elseif motif.select_info.teammenu_move_wrapping == 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_move_snd[1], motif.select_info.p1_teammenu_move_snd[2])
+				p1TeamMenu = 1
+			end
+		elseif t_p1TeamMenu[p1TeamMenu].itemname == 'simul' then
+			if commandGetState(main.p1Cmd, 'l') then
+				if p1NumSimul - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumSimul = p1NumSimul - 1
+				end
+			elseif commandGetState(main.p1Cmd, 'r') then
+				if p1NumSimul + 1 <= config.NumSimul then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumSimul = p1NumSimul + 1
+				end
+			end
+		elseif t_p1TeamMenu[p1TeamMenu].itemname == 'turns' then
+			if commandGetState(main.p1Cmd, 'l') then
+				if p1NumTurns - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumTurns = p1NumTurns - 1
+				end
+			elseif commandGetState(main.p1Cmd, 'r') then
+				if p1NumTurns + 1 <= config.NumTurns then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumTurns = p1NumTurns + 1
+				end
+			end
+		elseif t_p1TeamMenu[p1TeamMenu].itemname == 'tag' then
+			if commandGetState(main.p1Cmd, 'l') then
+				if p1NumTag - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumTag = p1NumTag - 1
+				end
+			elseif commandGetState(main.p1Cmd, 'r') then
+				if p1NumTag + 1 <= config.NumTag then
+					sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_value_snd[1], motif.select_info.p1_teammenu_value_snd[2])
+					p1NumTag = p1NumTag + 1
+				end
+			end
+		end
+		--Draw team background
+		animUpdate(motif.select_info.p1_teammenu_bg_data)
+		animDraw(motif.select_info.p1_teammenu_bg_data)
+		--Draw team cursor
+		main.f_animPosDraw(
+			motif.select_info.p1_teammenu_item_cursor_data,
+			(p1TeamMenu - 1) * motif.select_info.p1_teammenu_item_spacing[1],
+			(p1TeamMenu - 1) * motif.select_info.p1_teammenu_item_spacing[2]
+		)
+		--Draw team title
+		animUpdate(motif.select_info.p1_teammenu_selftitle_data)
+		animDraw(motif.select_info.p1_teammenu_selftitle_data)
+		textImgDraw(txt_p1TeamSelfTitle)
+		for i = 1, #t_p1TeamMenu do
+			if i == p1TeamMenu then
+				if p1TeamActiveCount < 2 then --delay change
+					p1TeamActiveCount = p1TeamActiveCount + 1
+				elseif p1TeamActiveFont == 'p1_teammenu_item_active_font' then
+					p1TeamActiveFont = 'p1_teammenu_item_active2_font'
+					p1TeamActiveCount = 0
+				else
+					p1TeamActiveFont = 'p1_teammenu_item_active_font'
+					p1TeamActiveCount = 0
+				end
+				--Draw team active font
+				textImgDraw(main.f_updateTextImg(
+					t_p1TeamMenu[i].data,
+					motif.font_data[motif.select_info[p1TeamActiveFont][1]],
+					motif.select_info[p1TeamActiveFont][2],
+					motif.select_info.p1_teammenu_item_font[3], --mugen ignores active font facing
+					t_p1TeamMenu[i].displayname,
+					motif.select_info.p1_teammenu_pos[1] + motif.select_info.p1_teammenu_item_offset[1] + motif.select_info.p1_teammenu_item_font_offset[1] + (i - 1) * motif.select_info.p1_teammenu_item_spacing[1],
+					motif.select_info.p1_teammenu_pos[2] + motif.select_info.p1_teammenu_item_offset[2] + motif.select_info.p1_teammenu_item_font_offset[2] + (i - 1) * motif.select_info.p1_teammenu_item_spacing[2],
+					motif.select_info[p1TeamActiveFont .. '_scale'][1],
+					motif.select_info[p1TeamActiveFont .. '_scale'][2],
+					motif.select_info[p1TeamActiveFont][4],
+					motif.select_info[p1TeamActiveFont][5],
+					motif.select_info[p1TeamActiveFont][6]
+				))
+			else
+				--Draw team not active font
+				textImgDraw(main.f_updateTextImg(
+					t_p1TeamMenu[i].data,
+					motif.font_data[motif.select_info.p1_teammenu_item_font[1]],
+					motif.select_info.p1_teammenu_item_font[2],
+					motif.select_info.p1_teammenu_item_font[3],
+					t_p1TeamMenu[i].displayname,
+					motif.select_info.p1_teammenu_pos[1] + motif.select_info.p1_teammenu_item_offset[1] + motif.select_info.p1_teammenu_item_font_offset[1] + (i - 1) * motif.select_info.p1_teammenu_item_spacing[1],
+					motif.select_info.p1_teammenu_pos[2] + motif.select_info.p1_teammenu_item_offset[2] + motif.select_info.p1_teammenu_item_font_offset[2] + (i - 1) * motif.select_info.p1_teammenu_item_spacing[2],
+					motif.select_info.p1_teammenu_item_font_scale[1],
+					motif.select_info.p1_teammenu_item_font_scale[2],
+					motif.select_info.p1_teammenu_item_font[4],
+					motif.select_info.p1_teammenu_item_font[5],
+					motif.select_info.p1_teammenu_item_font[6]
+				))
+			end
+			--Draw team icons
+			if t_p1TeamMenu[i].itemname == 'simul' then
+				for j = 1, config.NumSimul do
+					if j <= p1NumSimul then
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					end
+				end
+			elseif t_p1TeamMenu[i].itemname == 'turns' then
+				for j = 1, config.NumTurns do
+					if j <= p1NumTurns then
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					end
+				end
+			elseif t_p1TeamMenu[i].itemname == 'tag' then
+				for j = 1, config.NumTag do
+					if j <= p1NumTag then
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p1_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p1_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p1_teammenu_value_spacing[2]
+						)
+					end
+				end
+			end
+		end
+		--Confirmed team selection
+		if main.f_btnPalNo(main.p1Cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.select_info.p1_teammenu_done_snd[1], motif.select_info.p1_teammenu_done_snd[2])
+			if t_p1TeamMenu[p1TeamMenu].itemname == 'single' then
+				p1TeamMode = 0
+				p1NumChars = 1
+			elseif t_p1TeamMenu[p1TeamMenu].itemname == 'simul' then
+				p1TeamMode = 1
+				p1NumChars = p1NumSimul
+			elseif t_p1TeamMenu[p1TeamMenu].itemname == 'turns' then
+				p1TeamMode = 2
+				p1NumChars = p1NumTurns
+			elseif t_p1TeamMenu[p1TeamMenu].itemname == 'tag' then
+				p1TeamMode = 3
+				p1NumChars = p1NumTag
+			end
+			setTeamMode(1, p1TeamMode, p1NumChars)
+			p1TeamEnd = true
+			main.f_cmdInput()
+		end
+	end
+end
+
+--;===========================================================
+--; PLAYER 2 TEAM MENU
+--;===========================================================
+local txt_p2TeamSelfTitle = main.f_createTextImg(
+	motif.font_data[motif.select_info.p2_teammenu_selftitle_font[1]],
+	motif.select_info.p2_teammenu_selftitle_font[2],
+	motif.select_info.p2_teammenu_selftitle_font[3],
+	motif.select_info.p2_teammenu_selftitle_text,
+	motif.select_info.p2_teammenu_pos[1] + motif.select_info.p2_teammenu_selftitle_offset[1],
+	motif.select_info.p2_teammenu_pos[2] + motif.select_info.p2_teammenu_selftitle_offset[2],
+	motif.select_info.p2_teammenu_selftitle_font_scale[1],
+	motif.select_info.p2_teammenu_selftitle_font_scale[2],
+	motif.select_info.p2_teammenu_selftitle_font[4],
+	motif.select_info.p2_teammenu_selftitle_font[5],
+	motif.select_info.p2_teammenu_selftitle_font[6]
+)
+local txt_p2TeamEnemyTitle = main.f_createTextImg(
+	motif.font_data[motif.select_info.p2_teammenu_enemytitle_font[1]],
+	motif.select_info.p2_teammenu_enemytitle_font[2],
+	motif.select_info.p2_teammenu_enemytitle_font[3],
+	motif.select_info.p2_teammenu_enemytitle_text,
+	motif.select_info.p2_teammenu_pos[1] + motif.select_info.p2_teammenu_enemytitle_offset[1],
+	motif.select_info.p2_teammenu_pos[2] + motif.select_info.p2_teammenu_enemytitle_offset[2],
+	motif.select_info.p2_teammenu_enemytitle_font_scale[1],
+	motif.select_info.p2_teammenu_enemytitle_font_scale[2],
+	motif.select_info.p2_teammenu_enemytitle_font[4],
+	motif.select_info.p2_teammenu_enemytitle_font[5],
+	motif.select_info.p2_teammenu_enemytitle_font[6]
+)
+
+-- Set tag mode
+local t_p2TeamMenu = main.GetTeamMenu()
+t_p2TeamMenu = main.f_cleanTable(t_p2TeamMenu)
+
+local p2TeamActiveCount = 0
+local p2TeamActiveFont = 'p2_teammenu_item_active_font'
+
+function select.f_p2TeamMenu()
+	if main.p2TeamMenu ~= nil then --Predefined team
+		p2NumChars = main.p2TeamMenu.chars
+		p2TeamMode = main.p2TeamMenu.mode
+		setTeamMode(2, p2TeamMode, p2NumChars)
+		p2TeamEnd = true
+	else
+		--Command swap
+		local cmd = main.p2Cmd
+		if main.coop then
+			cmd = main.p1Cmd
+		end
+		--Calculate team cursor position
+		if commandGetState(cmd, 'u') then
+			if p2TeamMenu - 1 >= 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_move_snd[1], motif.select_info.p2_teammenu_move_snd[2])
+				p2TeamMenu = p2TeamMenu - 1
+			elseif motif.select_info.teammenu_move_wrapping == 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_move_snd[1], motif.select_info.p2_teammenu_move_snd[2])
+				p2TeamMenu = #t_p2TeamMenu
+			end
+		elseif commandGetState(cmd, 'd') then
+			if p2TeamMenu + 1 <= #t_p2TeamMenu then
+				sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_move_snd[1], motif.select_info.p2_teammenu_move_snd[2])
+				p2TeamMenu = p2TeamMenu + 1
+			elseif motif.select_info.teammenu_move_wrapping == 1 then
+				sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_move_snd[1], motif.select_info.p2_teammenu_move_snd[2])
+				p2TeamMenu = 1
+			end
+		elseif t_p2TeamMenu[p2TeamMenu].itemname == 'simul' then
+			if commandGetState(cmd, 'r') then
+				if p2NumSimul - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumSimul = p2NumSimul - 1
+				end
+			elseif commandGetState(cmd, 'l') then
+				if p2NumSimul + 1 <= config.NumSimul then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumSimul = p2NumSimul + 1
+				end
+			end
+		elseif t_p2TeamMenu[p2TeamMenu].itemname == 'turns' then
+			if commandGetState(cmd, 'r') then
+				if p2NumTurns - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumTurns = p2NumTurns - 1
+				end
+			elseif commandGetState(cmd, 'l') then
+				if p2NumTurns + 1 <= config.NumTurns then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumTurns = p2NumTurns + 1
+				end
+			end
+		elseif t_p2TeamMenu[p2TeamMenu].itemname == 'tag' then
+			if commandGetState(cmd, 'r') then
+				if p2NumTag - 1 >= 2 then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumTag = p2NumTag - 1
+				end
+			elseif commandGetState(cmd, 'l') then
+				if p2NumTag + 1 <= config.NumTag then
+					sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_value_snd[1], motif.select_info.p2_teammenu_value_snd[2])
+					p2NumTag = p2NumTag + 1
+				end
+			end
+		end
+		--Draw team background
+		animUpdate(motif.select_info.p2_teammenu_bg_data)
+		animDraw(motif.select_info.p2_teammenu_bg_data)
+		--Draw team cursor
+		main.f_animPosDraw(
+			motif.select_info.p2_teammenu_item_cursor_data,
+			(p2TeamMenu - 1) * motif.select_info.p2_teammenu_item_spacing[1],
+			(p2TeamMenu - 1) * motif.select_info.p2_teammenu_item_spacing[2]
+		)
+		--Draw team title
+		if main.coop or main.p2In == 1 then
+			animUpdate(motif.select_info.p2_teammenu_enemytitle_data)
+			animDraw(motif.select_info.p2_teammenu_enemytitle_data)
+			textImgDraw(txt_p2TeamEnemyTitle)
+		else
+			animUpdate(motif.select_info.p2_teammenu_selftitle_data)
+			animDraw(motif.select_info.p2_teammenu_selftitle_data)
+			textImgDraw(txt_p2TeamSelfTitle)
+		end
+		for i = 1, #t_p2TeamMenu do
+			if i == p2TeamMenu then
+				if p2TeamActiveCount < 2 then --delay change
+					p2TeamActiveCount = p2TeamActiveCount + 1
+				elseif p2TeamActiveFont == 'p2_teammenu_item_active_font' then
+					p2TeamActiveFont = 'p2_teammenu_item_active2_font'
+					p2TeamActiveCount = 0
+				else
+					p2TeamActiveFont = 'p2_teammenu_item_active_font'
+					p2TeamActiveCount = 0
+				end
+				--Draw team active font
+				textImgDraw(main.f_updateTextImg(
+					t_p2TeamMenu[i].data,
+					motif.font_data[motif.select_info[p2TeamActiveFont][1]],
+					motif.select_info[p2TeamActiveFont][2],
+					motif.select_info.p2_teammenu_item_font[3], --mugen ignores active font facing
+					t_p2TeamMenu[i].displayname,
+					motif.select_info.p2_teammenu_pos[1] + motif.select_info.p2_teammenu_item_offset[1] + motif.select_info.p2_teammenu_item_font_offset[1] + (i - 1) * motif.select_info.p2_teammenu_item_spacing[1],
+					motif.select_info.p2_teammenu_pos[2] + motif.select_info.p2_teammenu_item_offset[2] + motif.select_info.p2_teammenu_item_font_offset[2] + (i - 1) * motif.select_info.p2_teammenu_item_spacing[2],
+					motif.select_info[p2TeamActiveFont .. '_scale'][1],
+					motif.select_info[p2TeamActiveFont .. '_scale'][2],
+					motif.select_info[p2TeamActiveFont][4],
+					motif.select_info[p2TeamActiveFont][5],
+					motif.select_info[p2TeamActiveFont][6]
+				))
+			else
+				--Draw team not active font
+				textImgDraw(main.f_updateTextImg(
+					t_p2TeamMenu[i].data,
+					motif.font_data[motif.select_info.p2_teammenu_item_font[1]],
+					motif.select_info.p2_teammenu_item_font[2],
+					motif.select_info.p2_teammenu_item_font[3],
+					t_p2TeamMenu[i].displayname,
+					motif.select_info.p2_teammenu_pos[1] + motif.select_info.p2_teammenu_item_offset[1] + motif.select_info.p2_teammenu_item_font_offset[1] + (i - 1) * motif.select_info.p2_teammenu_item_spacing[1],
+					motif.select_info.p2_teammenu_pos[2] + motif.select_info.p2_teammenu_item_offset[2] + motif.select_info.p2_teammenu_item_font_offset[2] + (i - 1) * motif.select_info.p2_teammenu_item_spacing[2],
+					motif.select_info.p2_teammenu_item_font_scale[1],
+					motif.select_info.p2_teammenu_item_font_scale[2],
+					motif.select_info.p2_teammenu_item_font[4],
+					motif.select_info.p2_teammenu_item_font[5],
+					motif.select_info.p2_teammenu_item_font[6]
+				))
+			end
+			--Draw team icons
+			if t_p2TeamMenu[i].itemname == 'simul' then
+				for j = 1, config.NumSimul do
+					if j <= p2NumSimul then
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					end
+				end
+			elseif t_p2TeamMenu[i].itemname == 'turns' then
+				for j = 1, config.NumTurns do
+					if j <= p2NumTurns then
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					end
+				end
+			elseif t_p2TeamMenu[i].itemname == 'tag' then
+				for j = 1, config.NumTag do
+					if j <= p2NumTag then
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					else
+						main.f_animPosDraw(
+							motif.select_info.p2_teammenu_value_empty_icon_data,
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[1] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[1],
+							(i - 1) * motif.select_info.p2_teammenu_item_spacing[2] + (j - 1) * motif.select_info.p2_teammenu_value_spacing[2]
+						)
+					end
+				end
+			end
+		end
+		--Confirmed team selection
+		if main.f_btnPalNo(cmd) > 0 then
+			sndPlay(motif.files.snd_data, motif.select_info.p2_teammenu_done_snd[1], motif.select_info.p2_teammenu_done_snd[2])
+			if t_p2TeamMenu[p2TeamMenu].itemname == 'single' then
+				p2TeamMode = 0
+				p2NumChars = 1
+			elseif t_p2TeamMenu[p2TeamMenu].itemname == 'simul' then
+				p2TeamMode = 1
+				p2NumChars = p2NumSimul
+			elseif t_p2TeamMenu[p2TeamMenu].itemname == 'turns' then
+				p2TeamMode = 2
+				p2NumChars = p2NumTurns
+			elseif t_p2TeamMenu[p2TeamMenu].itemname == 'tag' then
+				p2TeamMode = 3
+				p2NumChars = p2NumTag
+			end
+			setTeamMode(2, p2TeamMode, p2NumChars)
+			p2TeamEnd = true
+			main.f_cmdInput()
+		end
+	end
+end
+
+--;===========================================================
+--; PLAYER 1 SELECT MENU
+--;===========================================================
+function select.f_p1SelectMenu()
+	--predefined selection
+	if main.p1Char ~= nil then
+		local t = {}
+		for i = 1, #main.p1Char do
+			if t[main.p1Char[i]] == nil then
+				t[main.p1Char[i]] = ''
+			end
+			t_p1Selected[i] = {cel = main.p1Char[i], pal = select.f_randomPal(main.p1Char[i])}
+		end
+		p1SelEnd = true
+		return
+	--manual selection
+	elseif not p1SelEnd then
+		resetgrid = false
+		--cell movement
+		p1SelX, p1SelY, p1FaceOffset, p1RowOffset = select.f_cellMovement(p1SelX, p1SelY, main.p1Cmd, p1FaceOffset, p1RowOffset, motif.select_info.p1_cursor_move_snd)
+		p1Cell = p1SelX + motif.select_info.columns * p1SelY
+		--draw active cursor
+		local cursorX = p1FaceX + p1SelX * (motif.select_info.cell_size[1] + motif.select_info.cell_spacing)
+		local cursorY = p1FaceY + (p1SelY - p1RowOffset) * (motif.select_info.cell_size[2] + motif.select_info.cell_spacing)
+		if resetgrid == true then
+			select.f_resetGrid()
+		end
+		if main.t_selChars[p1Cell + 1].hidden ~= 1 then
+			main.f_animPosDraw(motif.select_info.p1_cursor_active_data, cursorX, cursorY)
+		end
+		--cell selected
+		if main.f_btnPalNo(main.p1Cmd) > 0 and main.t_selChars[p1Cell + 1].char ~= nil and main.t_selChars[p1Cell + 1].hidden ~= 2 and #main.t_randomChars > 0 then
+			sndPlay(motif.files.snd_data, motif.select_info.p1_cursor_done_snd[1], motif.select_info.p1_cursor_done_snd[2])
+			local selected = p1Cell
+			if main.t_selChars[selected + 1].char == 'randomselect' or main.t_selChars[selected + 1].hidden == 3 then
+				selected = main.t_randomChars[math.random(1, #main.t_randomChars)]
+			end
+			t_p1Selected[#t_p1Selected + 1] = {cel = selected, pal = main.f_btnPalNo(main.p1Cmd), cursor = {cursorX, cursorY, p1RowOffset}}
+			if #t_p1Selected == p1NumChars then
+				if main.p2In == 1 and matchNo == 0 then
+					p2TeamEnd = false
+					p2SelEnd = false
+					--commandBufReset(main.p2Cmd)
+				end
+				p1SelEnd = true
+			end
+			main.f_cmdInput()
+		end
+	end
+end
+
+--;===========================================================
+--; PLAYER 2 SELECT MENU
+--;===========================================================
+function select.f_p2SelectMenu()
+	--predefined selection
+	if main.p2Char ~= nil then
+		local t = {}
+		for i = 1, #main.p2Char do
+			if t[main.p2Char[i]] == nil then
+				t[main.p2Char[i]] = ''
+			end
+			t_p2Selected[i] = {cel = main.p2Char[i], pal = select.f_randomPal(main.p2Char[i])}
+		end
+		p2SelEnd = true
+		return
+	--p2 selection disabled
+	elseif not main.p2SelectMenu then
+		p2SelEnd = true
+		return
+	--manual selection
+	elseif not p2SelEnd then
+		resetgrid = false
+		--cell movement
+		p2SelX, p2SelY, p2FaceOffset, p2RowOffset = select.f_cellMovement(p2SelX, p2SelY, main.p2Cmd, p2FaceOffset, p2RowOffset, motif.select_info.p2_cursor_move_snd)
+		p2Cell = p2SelX + motif.select_info.columns * p2SelY
+		--draw active cursor
+		local cursorX = p2FaceX + p2SelX * (motif.select_info.cell_size[1] + motif.select_info.cell_spacing)
+		local cursorY = p2FaceY + (p2SelY - p2RowOffset) * (motif.select_info.cell_size[2] + motif.select_info.cell_spacing)
+		if resetgrid == true then
+			select.f_resetGrid()
+		end
+		main.f_animPosDraw(motif.select_info.p2_cursor_active_data, cursorX, cursorY)
+		--cell selected
+		if main.f_btnPalNo(main.p2Cmd) > 0 and main.t_selChars[p2Cell + 1].char ~= nil and main.t_selChars[p2Cell + 1].hidden ~= 2 and #main.t_randomChars > 0 then
+			sndPlay(motif.files.snd_data, motif.select_info.p2_cursor_done_snd[1], motif.select_info.p2_cursor_done_snd[2])
+			local selected = p2Cell
+			if main.t_selChars[selected + 1].char == 'randomselect' or main.t_selChars[selected + 1].hidden == 3 then
+				selected = main.t_randomChars[math.random(1, #main.t_randomChars)]
+			end
+			t_p2Selected[#t_p2Selected + 1] = {cel = selected, pal = main.f_btnPalNo(main.p2Cmd), cursor = {cursorX, cursorY, p2RowOffset}}
+			if #t_p2Selected == p2NumChars then
+				p2SelEnd = true
+			end
+			main.f_cmdInput()
+		end
+	end
+end
+
+--;===========================================================
+--; STAGE MENU
+--;===========================================================
+local txt_selStage = textImgNew()
+
+local stageActiveCount = 0
+local stageActiveFont = 'stage_active_font'
+
+function select.f_stageMenu()
+	if commandGetState(main.p1Cmd, 'l') then
+		sndPlay(motif.files.snd_data, motif.select_info.stage_move_snd[1], motif.select_info.stage_move_snd[2])
+		stageList = stageList - 1
+		if stageList < 0 then stageList = #main.t_includeStage end
+	elseif commandGetState(main.p1Cmd, 'r') then
+		sndPlay(motif.files.snd_data, motif.select_info.stage_move_snd[1], motif.select_info.stage_move_snd[2])
+		stageList = stageList + 1
+		if stageList > #main.t_includeStage then stageList = 0 end
+	elseif commandGetState(main.p1Cmd, 'u') then
+		sndPlay(motif.files.snd_data, motif.select_info.stage_move_snd[1], motif.select_info.stage_move_snd[2])
+		for i = 1, 10 do
+			stageList = stageList - 1
+			if stageList < 0 then stageList = #main.t_includeStage end
+		end
+	elseif commandGetState(main.p1Cmd, 'd') then
+		sndPlay(motif.files.snd_data, motif.select_info.stage_move_snd[1], motif.select_info.stage_move_snd[2])
+		for i = 1, 10 do
+			stageList = stageList + 1
+			if stageList > #main.t_includeStage then stageList = 0 end
+		end
+	end
+	if main.f_btnPalNo(main.p1Cmd) > 0 then
+		sndPlay(motif.files.snd_data, motif.select_info.stage_done_snd[1], motif.select_info.stage_done_snd[2])
+		if stageList == 0 then
+			stageNo = main.t_includeStage[math.random(1, #main.t_includeStage)]
+			setStage(stageNo)
+			selectStage(stageNo)
+		else
+			stageNo = main.t_includeStage[stageList]
+			setStage(stageNo)
+			selectStage(stageNo)
+		end
+		stageActiveFont = 'stage_done_font'
+		stageEnd = true
+		main.f_cmdInput()
+	else
+		if stageActiveCount < 2 then --delay change
+			stageActiveCount = stageActiveCount + 1
+		elseif stageActiveFont == 'stage_active_font' then
+			stageActiveFont = 'stage_active2_font'
+			stageActiveCount = 0
+		else
+			stageActiveFont = 'stage_active_font'
+			stageActiveCount = 0
+		end
+	end
+	local t_txt = {}
+	if stageList == 0 then
+		t_txt = main.f_extractText(motif.select_info.stage_text, '', 'Random')
+	else
+		t_txt = main.f_extractText(motif.select_info.stage_text, stageList, getStageName(main.t_includeStage[stageList]):match('^["%s]*(.-)["%s]*$'))
+	end
+	for i = 1, #t_txt do
+		textImgDraw(main.f_updateTextImg(
+			txt_selStage,
+			motif.font_data[motif.select_info[stageActiveFont][1]],
+			motif.select_info[stageActiveFont][2],
+			motif.select_info[stageActiveFont][3],
+			t_txt[i],
+			motif.select_info.stage_pos[1] + (i - 1) * motif.select_info.stage_text_spacing[1],
+			motif.select_info.stage_pos[2] + (i - 1) * motif.select_info.stage_text_spacing[2],
+			motif.select_info[stageActiveFont .. '_scale'][1],
+			motif.select_info[stageActiveFont .. '_scale'][2],
+			motif.select_info[stageActiveFont][4],
+			motif.select_info[stageActiveFont][5],
+			motif.select_info[stageActiveFont][6]
+		))
+	end
+end
+
+--;===========================================================
+--; VERSUS SCREEN
+--;===========================================================
+local txt_p1NameVS = main.f_createTextImg(
+	motif.font_data[motif.vs_screen.p1_name_font[1]], 
+	motif.vs_screen.p1_name_font[2], 
+	motif.vs_screen.p1_name_font[3], 
+	'', 
+	0, 
+	0, 
+	motif.vs_screen.p1_name_font_scale[1], 
+	motif.vs_screen.p1_name_font_scale[2],
+	motif.vs_screen.p1_name_font[4], 
+	motif.vs_screen.p1_name_font[5], 
+	motif.vs_screen.p1_name_font[6]
+)
+local txt_p2NameVS = main.f_createTextImg(
+	motif.font_data[motif.vs_screen.p2_name_font[1]], 
+	motif.vs_screen.p2_name_font[2], 
+	motif.vs_screen.p2_name_font[3], 
+	'', 
+	0, 
+	0, 
+	motif.vs_screen.p2_name_font_scale[1], 
+	motif.vs_screen.p2_name_font_scale[2],
+	motif.vs_screen.p2_name_font[4], 
+	motif.vs_screen.p2_name_font[5], 
+	motif.vs_screen.p2_name_font[6]
+)
+local txt_matchNo = main.f_createTextImg(
+	motif.font_data[motif.vs_screen.match_font[1]], 
+	motif.vs_screen.match_font[2], 
+	motif.vs_screen.match_font[3], 
+	'', 
+	motif.vs_screen.match_offset[1], 
+	motif.vs_screen.match_offset[2], 
+	motif.vs_screen.match_font_scale[1], 
+	motif.vs_screen.match_font_scale[2],
+	motif.vs_screen.match_font[4], 
+	motif.vs_screen.match_font[5], 
+	motif.vs_screen.match_font[6]
+)
+
+function select.f_selectVersus()
+	local text = main.f_extractText(motif.vs_screen.match_text, matchNo)
+	textImgSetText(txt_matchNo, text[1])
+	local delay = 0
+	local minTime = 15 --let's reserve few extra ticks in case selectChar function needs time to load data, also prevents sound from being interrupted
+	main.f_resetBG(motif.vs_screen, motif.versusbgdef, motif.music.vs_bgm)
+	if not main.versusScreen then
+		delay = minTime
+		select.f_selectChar(1, t_p1Selected)
+		select.f_selectChar(2, t_p2Selected)
+		while true do
+			if delay > 0 then
+				delay = delay - 1
+			else
+				main.f_cmdInput()
+				break
+			end
+			main.f_cmdInput()
+			refresh()
+		end
+	else
+		local p1Confirmed = false
+		local p2Confirmed = false
+		local p1Row = 1
+		local p2Row = 1
+		local t_tmp = {}
+		local orderTime = motif.vs_screen.time
+		if main.p1In == 1 and main.p2In == 2 and (#t_p1Selected > 1 or #t_p2Selected > 1) and not main.coop then
+			orderTime = orderTime + (math.max(#t_p1Selected, #t_p2Selected) - 1) * motif.vs_screen.time_order
+			if #t_p1Selected == 1 then
+				select.f_selectChar(1, t_p1Selected)
+				p1Confirmed = true
+			end
+			if #t_p2Selected == 1 then
+				select.f_selectChar(2, t_p2Selected)
+				p2Confirmed = true
+			end
+		elseif #t_p1Selected > 1 and not main.coop then
+			orderTime = orderTime + (#t_p1Selected - 1) * motif.vs_screen.time_order
+		else
+			select.f_selectChar(1, t_p1Selected)
+			p1Confirmed = true
+			select.f_selectChar(2, t_p2Selected)
+			p2Confirmed = true
+			delay = motif.vs_screen.time
+			orderTime = -1
+		end
+		main.f_cmdInput()
+		while true do
+			if esc() then
+				sndPlay(motif.files.snd_data, motif.select_info.cancel_snd[1], motif.select_info.cancel_snd[2])
+				main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+				break
+			elseif p1Confirmed and p2Confirmed then
+				if orderTime == -1 and main.f_btnPalNo(main.p1Cmd) > 0 and delay > motif.versusbgdef.timer + minTime then
+					delay = motif.versusbgdef.timer + minTime
+				elseif delay < motif.versusbgdef.timer then
+					break
+				end
+			elseif orderTime <= motif.versusbgdef.timer then
+				if not p1Confirmed then
+					select.f_selectChar(1, t_p1Selected)
+					p1Confirmed = true
+					delay = motif.versusbgdef.timer + minTime
+				end
+				if not p2Confirmed then
+					select.f_selectChar(2, t_p2Selected)
+					p2Confirmed = true
+					delay = motif.versusbgdef.timer + minTime
+				end
+			else
+				local sndRef = ''
+				--if Player1 has not confirmed the order yet
+				if not p1Confirmed then
+					if main.f_btnPalNo(main.p1Cmd) > 0 then
+						if not p1Confirmed then
+							sndRef = 'p1_cursor_done_snd'
+							select.f_selectChar(1, t_p1Selected)
+							p1Confirmed = true
+						end
+						if main.p2In ~= 2 then
+							if not p2Confirmed then
+								select.f_selectChar(2, t_p2Selected)
+								p2Confirmed = true
+							end
+						end
+					elseif commandGetState(main.p1Cmd, 'u') then
+						if #t_p1Selected > 1 then
+							sndRef = 'p1_cursor_move_snd'
+							p1Row = p1Row - 1
+							if p1Row == 0 then p1Row = #t_p1Selected end
+						end
+					elseif commandGetState(main.p1Cmd, 'd') then
+						if #t_p1Selected > 1 then
+							sndRef = 'p1_cursor_move_snd'
+							p1Row = p1Row + 1
+							if p1Row > #t_p1Selected then p1Row = 1 end
+						end
+					elseif commandGetState(main.p1Cmd, 'l') then
+						if p1Row - 1 > 0 then
+							sndRef = 'p1_cursor_move_snd'
+							p1Row = p1Row - 1
+							t_tmp = {}
+							t_tmp[p1Row] = t_p1Selected[p1Row + 1]
+							for i = 1, #t_p1Selected do
+								for j = 1, #t_p1Selected do
+									if t_tmp[j] == nil and i ~= p1Row + 1 then
+										t_tmp[j] = t_p1Selected[i]
+										break
+									end
+								end
+							end
+							t_p1Selected = t_tmp
+						end
+					elseif commandGetState(main.p1Cmd, 'r') then
+						if p1Row + 1 <= #t_p1Selected then
+							sndRef = 'p1_cursor_move_snd'
+							p1Row = p1Row + 1
+							t_tmp = {}
+							t_tmp[p1Row] = t_p1Selected[p1Row - 1]
+							for i = 1, #t_p1Selected do
+								for j = 1, #t_p1Selected do
+									if t_tmp[j] == nil and i ~= p1Row - 1 then
+										t_tmp[j] = t_p1Selected[i]
+										break
+									end
+								end
+							end
+							t_p1Selected = t_tmp
+						end
+					end
+				end
+				--if Player2 has not confirmed the order yet and is not controlled by Player1
+				if not p2Confirmed and main.p2In ~= 1 then
+					if main.f_btnPalNo(main.p2Cmd) > 0 then
+						if not p2Confirmed then
+							sndRef = 'p2_cursor_done_snd'
+							select.f_selectChar(2, t_p2Selected)
+							p2Confirmed = true
+						end
+					elseif commandGetState(main.p2Cmd, 'u') then
+						if #t_p2Selected > 1 then
+							sndRef = 'p2_cursor_move_snd'
+							p2Row = p2Row - 1
+							if p2Row == 0 then p2Row = #t_p2Selected end
+						end
+					elseif commandGetState(main.p2Cmd, 'd') then
+						if #t_p2Selected > 1 then
+							sndRef = 'p2_cursor_move_snd'
+							p2Row = p2Row + 1
+							if p2Row > #t_p2Selected then p2Row = 1 end
+						end
+					elseif commandGetState(main.p2Cmd, 'l') then
+						if p2Row + 1 <= #t_p2Selected then
+							sndRef = 'p2_cursor_move_snd'
+							p2Row = p2Row + 1
+							t_tmp = {}
+							t_tmp[p2Row] = t_p2Selected[p2Row - 1]
+							for i = 1, #t_p2Selected do
+								for j = 1, #t_p2Selected do
+									if t_tmp[j] == nil and i ~= p2Row - 1 then
+										t_tmp[j] = t_p2Selected[i]
+										break
+									end
+								end
+							end
+							t_p2Selected = t_tmp
+						end
+					elseif commandGetState(main.p2Cmd, 'r') then
+						if p2Row - 1 > 0 then
+							sndRef = 'p2_cursor_move_snd'
+							p2Row = p2Row - 1
+							t_tmp = {}
+							t_tmp[p2Row] = t_p2Selected[p2Row + 1]
+							for i = 1, #t_p2Selected do
+								for j = 1, #t_p2Selected do
+									if t_tmp[j] == nil and i ~= p2Row + 1 then
+										t_tmp[j] = t_p2Selected[i]
+										break
+									end
+								end
+							end
+							t_p2Selected = t_tmp
+						end
+					end
+				end
+				--sndPlay separated to not play more than 1 sound at once
+				if sndRef ~= '' then
+					sndPlay(motif.files.snd_data, motif.vs_screen[sndRef][1], motif.vs_screen[sndRef][2])
+					delay = motif.versusbgdef.timer + minTime
+				end
+			end
+			--draw clearcolor
+			animDraw(motif.versusbgdef.bgclearcolor_data)
+			--draw clearcolor
+			animDraw(motif.versusbgdef.bgclearcolor_data)
+			--draw layerno = 0 backgrounds
+			main.f_drawBG(motif.versusbgdef.bg_data, motif.versusbgdef.bg, 0, motif.versusbgdef.timer)
+			--draw portraits
+			select.f_drawPortrait(
+				t_p1Selected,
+				motif.vs_screen.p1_pos[1] + motif.vs_screen.p1_offset[1],
+				motif.vs_screen.p1_pos[2] + motif.vs_screen.p1_offset[2],
+				motif.vs_screen.p1_facing,
+				motif.vs_screen.p1_scale[1],
+				motif.vs_screen.p1_scale[2],
+				motif.vs_screen.p1_spacing[1],
+				motif.vs_screen.p1_spacing[2],
+				motif.vs_screen.p1_num,
+				'versus'
+			)
+			select.f_drawPortrait(
+				t_p2Selected,
+				motif.vs_screen.p2_pos[1] + motif.vs_screen.p2_offset[1],
+				motif.vs_screen.p2_pos[2] + motif.vs_screen.p2_offset[2],
+				motif.vs_screen.p2_facing,
+				motif.vs_screen.p2_scale[1],
+				motif.vs_screen.p2_scale[2],
+				motif.vs_screen.p2_spacing[1],
+				motif.vs_screen.p2_spacing[2],
+				motif.vs_screen.p2_num,
+				'versus'
+			)
+			--draw names
+			select.f_drawName(
+				t_p1Selected,
+				txt_p1NameVS,
+				motif.vs_screen.p1_name_font,
+				motif.vs_screen.p1_name_pos[1] + motif.vs_screen.p1_name_offset[1],
+				motif.vs_screen.p1_name_pos[2] + motif.vs_screen.p1_name_offset[2],
+				motif.vs_screen.p1_name_font_scale[1],
+				motif.vs_screen.p1_name_font_scale[2],
+				motif.vs_screen.p1_name_spacing[1],
+				motif.vs_screen.p1_name_spacing[2],
+				motif.vs_screen.p1_name_active_font,
+				p1Row
+			)
+			select.f_drawName(
+				t_p2Selected,
+				txt_p2NameVS,
+				motif.vs_screen.p2_name_font,
+				motif.vs_screen.p2_name_pos[1] + motif.vs_screen.p2_name_offset[1],
+				motif.vs_screen.p2_name_pos[2] + motif.vs_screen.p2_name_offset[2],
+				motif.vs_screen.p2_name_font_scale[1],
+				motif.vs_screen.p2_name_font_scale[2],
+				motif.vs_screen.p2_name_spacing[1],
+				motif.vs_screen.p2_name_spacing[2],
+				motif.vs_screen.p2_name_active_font,
+				p2Row
+			)
+			--draw match counter
+			if matchNo > 0 then
+				textImgDraw(txt_matchNo)
+			end
+			--draw layerno = 1 backgrounds
+			main.f_drawBG(motif.versusbgdef.bg_data, motif.versusbgdef.bg, 1, motif.versusbgdef.timer)
+			--draw fadein
+			animDraw(motif.vs_screen.fadein_data)
+			animUpdate(motif.vs_screen.fadein_data)
+			--update timer
+			motif.versusbgdef.timer = motif.versusbgdef.timer + 1
+			--end loop
+			main.f_cmdInput()
+			refresh()
+		end
+	end
+end
+
+function select.f_selectChar(player, t)
+	for i = 1, #t do
+		selectChar(player, t[i].cel, t[i].pal)
+	end
+end
+
+--;===========================================================
+--; RESULT SCREEN
+--;===========================================================
+local txt_resultSurvival = main.f_createTextImg(
+	motif.font_data[motif.survival_results_screen.winstext_font[1]],
+	motif.survival_results_screen.winstext_font[2],
+	motif.survival_results_screen.winstext_font[3],
+	'',
+	motif.survival_results_screen.winstext_offset[1],
+	motif.survival_results_screen.winstext_offset[2],
+	motif.survival_results_screen.winstext_font_scale[1],
+	motif.survival_results_screen.winstext_font_scale[2],
+	motif.survival_results_screen.winstext_font[4],
+	motif.survival_results_screen.winstext_font[5],
+	motif.survival_results_screen.winstext_font[6]
+)
+local txt_resultVS100 = main.f_createTextImg(
+	motif.font_data[motif.vs100kumite_results_screen.winstext_font[1]],
+	motif.vs100kumite_results_screen.winstext_font[2],
+	motif.vs100kumite_results_screen.winstext_font[3],
+	'',
+	motif.vs100kumite_results_screen.winstext_offset[1],
+	motif.vs100kumite_results_screen.winstext_offset[2],
+	motif.vs100kumite_results_screen.winstext_font_scale[1],
+	motif.vs100kumite_results_screen.winstext_font_scale[2],
+	motif.survival_results_screen.winstext_font[4],
+	motif.survival_results_screen.winstext_font[5],
+	motif.survival_results_screen.winstext_font[6]
+)
+
+function select.f_result(state)
+	--if state == true then --win
+	--elseif state == false then --loose
+	--end
+	local t = {}
+	local t_resultText = {}
+	local txt = ''
+	if main.gameMode == 'survival' or main.gameMode == 'survivalcoop' or main.gameMode == 'netplaysurvivalcoop' then
+		t = motif.survival_results_screen
+		t_resultText = main.f_extractText(t.winstext_text, winCnt)
+		txt = txt_resultSurvival
+	elseif main.gameMode == '100kumite' then
+		t = motif.vs100kumite_results_screen
+		t_resultText = main.f_extractText(t.winstext_text, winCnt, looseCnt)
+		txt = txt_resultVS100
+	else
+		return
+	end
+	main.f_resetBG(t, motif.resultsbgdef, motif.music.results_bgm)
+	main.f_cmdInput()
+	while true do
+		if esc() or main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+			break
+		elseif motif.resultsbgdef.timer >= t.show_time then
+			--add fadeout code here
+			main.f_resetBG(motif.title_info, motif.titlebgdef, motif.music.title_bgm)
+			break
+		end
+		--draw clearcolor
+		--animDraw(motif.resultsbgdef.bgclearcolor_data) --disabled to not cover game screen
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(motif.resultsbgdef.bg_data, motif.resultsbgdef.bg, 0, motif.resultsbgdef.timer)
+		--draw text
+		for i = 1, #t_resultText do
+			textImgSetText(txt, t_resultText[i])
+			textImgSetPos(
+				txt,
+				t.winstext_offset[1] - t.winstext_spacing[1] + i * t.winstext_spacing[1],
+				t.winstext_offset[2] - t.winstext_spacing[2] + i * t.winstext_spacing[2]
+			)
+			textImgDraw(txt)
+		end
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(motif.resultsbgdef.bg_data, motif.resultsbgdef.bg, 1, motif.resultsbgdef.timer)
+		--draw fadein
+		animDraw(t.fadein_data)
+		animUpdate(t.fadein_data)
+		--update timer
+		motif.resultsbgdef.timer = motif.resultsbgdef.timer + 1
+		--end loop
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+--;===========================================================
+--; VICTORY SCREEN
+--;===========================================================
+local txt_winquote = main.f_createTextImg(
+	motif.font_data[motif.victory_screen.winquote_font[1]], 
+	motif.victory_screen.winquote_font[2], 
+	motif.victory_screen.winquote_font[3], 
+	'', 
+	0, 
+	0, 
+	motif.victory_screen.winquote_font_scale[1], 
+	motif.victory_screen.winquote_font_scale[2],
+	motif.victory_screen.winquote_font[4],
+	motif.victory_screen.winquote_font[5],
+	motif.victory_screen.winquote_font[6]
+)
+local txt_p1_winquoteName = main.f_createTextImg(
+	motif.font_data[motif.victory_screen.p1_name_font[1]],
+	motif.victory_screen.p1_name_font[2],
+	motif.victory_screen.p1_name_font[3],
+	'',
+	motif.victory_screen.p1_name_offset[1],
+	motif.victory_screen.p1_name_offset[2],
+	motif.victory_screen.p1_name_font_scale[1],
+	motif.victory_screen.p1_name_font_scale[2],
+	motif.victory_screen.p1_name_font[4],
+	motif.victory_screen.p1_name_font[5],
+	motif.victory_screen.p1_name_font[6]
+)
+local txt_p2_winquoteName = main.f_createTextImg(
+	motif.font_data[motif.victory_screen.p2_name_font[1]],
+	motif.victory_screen.p2_name_font[2],
+	motif.victory_screen.p2_name_font[3],
+	'',
+	motif.victory_screen.p2_name_offset[1],
+	motif.victory_screen.p2_name_offset[2],
+	motif.victory_screen.p2_name_font_scale[1],
+	motif.victory_screen.p2_name_font_scale[2],
+	motif.victory_screen.p2_name_font[4],
+	motif.victory_screen.p2_name_font[5],
+	motif.victory_screen.p2_name_font[6]
+)
+
+function select.f_selectVictory()
+	if motif.music.victory_bgm == '' then
+		main.f_resetBG(motif.victory_screen, motif.victorybgdef)
+	else
+		main.f_resetBG(motif.victory_screen, motif.victorybgdef, motif.music.victory_bgm)
+	end
+	local winquote = ''
+	local winnerNum = 0
+	local p1Num = t_gameStats.chars[t_gameStats.lastRound][1].selectNo
+	local p2Num = t_gameStats.chars[t_gameStats.lastRound][2].selectNo
+	local txt_winquoteName = ''
+	if winner == 1 then
+		winquote = getCharVictoryQuote(1)
+		txt_winquoteName = txt_p1_winquoteName
+		winnerNum = p1Num
+	else
+		winquote = getCharVictoryQuote(2)
+		txt_winquoteName = txt_p2_winquoteName
+		winnerNum = p2Num
+	end
+	if winquote == nil or winquote == '' then
+		winquote = motif.victory_screen.winquote_text
+	end
+	textImgSetText(txt_p1_winquoteName, main.f_getName(p1Num))
+	textImgSetText(txt_p2_winquoteName, main.f_getName(p2Num))
+	local i = 0
+	main.f_cmdInput()
+	while true do
+		if esc() or main.f_btnPalNo(main.p1Cmd) > 0 then
+			main.f_cmdInput()
+			break
+		elseif motif.victorybgdef.timer >= motif.victory_screen.time then
+			--add fadeout code here
+			main.f_cmdInput()
+			break
+		end
+		--draw clearcolor
+		animDraw(motif.victorybgdef.bgclearcolor_data)
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(motif.victorybgdef.bg_data, motif.victorybgdef.bg, 0, motif.victorybgdef.timer)
+		--draw portraits
+		if motif.victory_screen.p2_display == 0 then
+			drawVictoryPortrait(
+				winnerNum,
+				motif.victory_screen.p1_offset[1],
+				motif.victory_screen.p1_offset[2],
+				motif.victory_screen.p1_facing,
+				motif.victory_screen.p1_scale[1],
+				motif.victory_screen.p1_scale[2]
+			)
+		else
+			drawVictoryPortrait(
+				p1Num,
+				motif.victory_screen.p1_offset[1],
+				motif.victory_screen.p1_offset[2],
+				motif.victory_screen.p1_facing,
+				motif.victory_screen.p1_scale[1],
+				motif.victory_screen.p1_scale[2]
+			)
+			drawVictoryPortrait(
+				p2Num,
+				motif.victory_screen.p2_offset[1],
+				motif.victory_screen.p2_offset[2],
+				motif.victory_screen.p2_facing,
+				motif.victory_screen.p2_scale[1],
+				motif.victory_screen.p2_scale[2]
+			)
+		end
+		--draw winner's name
+		textImgDraw(txt_winquoteName)
+		--draw winquote
+		i = i + 1
+		main.f_textRender(
+			txt_winquote,
+			winquote,
+			i,
+			motif.victory_screen.winquote_offset[1],
+			motif.victory_screen.winquote_offset[2],
+			motif.victory_screen.winquote_spacing[2],
+			motif.victory_screen.winquote_delay,
+			motif.victory_screen.winquote_length
+		)
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(motif.victorybgdef.bg_data, motif.victorybgdef.bg, 1, motif.victorybgdef.timer)
+		--draw fadein
+		animDraw(motif.victory_screen.fadein_data)
+		animUpdate(motif.victory_screen.fadein_data)
+		--update timer
+		motif.victorybgdef.timer = motif.victorybgdef.timer + 1
+		--end loop
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+--;===========================================================
+--; CONTINUE SCREEN
+--;===========================================================
+local txt_credits = main.f_createTextImg(
+	motif.font_data[motif.continue_screen.credits_font[1]],
+	motif.continue_screen.credits_font[2],
+	motif.continue_screen.credits_font[3],
+	'',
+	motif.continue_screen.credits_offset[1],
+	motif.continue_screen.credits_offset[2],
+	motif.continue_screen.credits_font_scale[1],
+	motif.continue_screen.credits_font_scale[2],
+	motif.continue_screen.credits_font[4],
+    motif.continue_screen.credits_font[5],
+    motif.continue_screen.credits_font[6]
+)
+
+function select.f_continue()
+	main.f_resetBG(motif.continue_screen, motif.continuebgdef, motif.music.continue_bgm)
+	animReset(motif.continue_screen.continue_anim_data)
+	animUpdate(motif.continue_screen.continue_anim_data)
+	continue = false
+	local text = main.f_extractText(motif.continue_screen.credits_text, main.credits)
+	textImgSetText(txt_credits, text[1])
+	main.f_cmdInput()
+	while true do
+		--draw clearcolor (disabled to not cover area)
+		--animDraw(motif.continuebgdef.bgclearcolor_data)
+		--draw layerno = 0 backgrounds
+		main.f_drawBG(motif.continuebgdef.bg_data, motif.continuebgdef.bg, 0, motif.continuebgdef.timer)
+		--continue screen state
+		if esc() or motif.continuebgdef.timer > motif.continue_screen.endtime then
+			main.f_cmdInput()
+			break
+		elseif motif.continuebgdef.timer < motif.continue_screen.continue_end_skiptime then
+			if commandGetState(main.p1Cmd, 'holds') then
+				continue = true
+				main.credits = main.credits - 1
+				text = main.f_extractText(motif.continue_screen.credits_text, main.credits)
+				textImgSetText(txt_credits, text[1])
+				main.f_cmdInput()
+				main.f_resetBG(motif.select_info, motif.selectbgdef, motif.music.select_bgm)
+				break
+			elseif main.f_btnPalNo(main.p1Cmd) > 0 and motif.continuebgdef.timer >= motif.continue_screen.continue_starttime + motif.continue_screen.continue_skipstart then
+				local cnt = 0
+				if motif.continuebgdef.timer < motif.continue_screen.continue_9_skiptime then
+					cnt = motif.continue_screen.continue_9_skiptime
+				elseif motif.continuebgdef.timer <= motif.continue_screen.continue_8_skiptime then
+					cnt = motif.continue_screen.continue_8_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_7_skiptime then
+					cnt = motif.continue_screen.continue_7_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_6_skiptime then
+					cnt = motif.continue_screen.continue_6_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_5_skiptime then
+					cnt = motif.continue_screen.continue_5_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_4_skiptime then
+					cnt = motif.continue_screen.continue_4_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_3_skiptime then
+					cnt = motif.continue_screen.continue_3_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_2_skiptime then
+					cnt = motif.continue_screen.continue_2_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_1_skiptime then
+					cnt = motif.continue_screen.continue_1_skiptime
+				elseif motif.continuebgdef.timer < motif.continue_screen.continue_0_skiptime then
+					cnt = motif.continue_screen.continue_0_skiptime
+				end
+				while motif.continuebgdef.timer < cnt do
+					motif.continuebgdef.timer = motif.continuebgdef.timer + 1
+					animUpdate(motif.continue_screen.continue_anim_data)
+				end
+			end
+			if motif.continuebgdef.timer == motif.continue_screen.continue_9_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_9_snd[1], motif.continue_screen.continue_9_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_8_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_8_snd[1], motif.continue_screen.continue_8_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_7_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_7_snd[1], motif.continue_screen.continue_7_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_6_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_6_snd[1], motif.continue_screen.continue_6_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_5_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_5_snd[1], motif.continue_screen.continue_5_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_4_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_4_snd[1], motif.continue_screen.continue_4_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_3_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_3_snd[1], motif.continue_screen.continue_3_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_2_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_2_snd[1], motif.continue_screen.continue_2_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_1_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_1_snd[1], motif.continue_screen.continue_1_snd[2])
+			elseif motif.continuebgdef.timer == motif.continue_screen.continue_0_skiptime then
+				sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_0_snd[1], motif.continue_screen.continue_0_snd[2])
+			end
+		elseif motif.continuebgdef.timer == motif.continue_screen.continue_end_skiptime then
+			playBGM(motif.music.continue_end_bgm)
+			sndPlay(motif.files.continue_snd_data, motif.continue_screen.continue_end_snd[1], motif.continue_screen.continue_end_snd[2])
+		end
+		--draw credits text
+		if motif.continuebgdef.timer >= motif.continue_screen.continue_skipstart then --show when counter starts counting down
+			textImgDraw(txt_credits)
+		end
+		--draw counter
+		animUpdate(motif.continue_screen.continue_anim_data)
+		animDraw(motif.continue_screen.continue_anim_data)
+		--draw layerno = 1 backgrounds
+		main.f_drawBG(motif.continuebgdef.bg_data, motif.continuebgdef.bg, 1, motif.continuebgdef.timer)
+		--draw fadein
+		animDraw(motif.continue_screen.fadein_data)
+		animUpdate(motif.continue_screen.fadein_data)
+		--update timer
+		motif.continuebgdef.timer = motif.continuebgdef.timer + 1
+		--end loop
+		main.f_cmdInput()
+		refresh()
+	end
+end
+
+return select

--- /dev/null
+++ b/script/storyboard.lua
@@ -0,0 +1,561 @@
+
+local storyboard = {}
+
+--http://www.elecbyte.com/mugendocs/storyboard.html
+
+storyboard.t_storyboard = {} --stores all parsed storyboards (we parse each of them only once)
+
+local function f_reset(t)
+	for k, v in pairs(t.scene) do
+		if t.scene[k].fadein_data ~= nil then
+			animReset(t.scene[k].fadein_data)
+			animUpdate(t.scene[k].fadein_data)
+		end
+		if t.scene[k].fadeout_data ~= nil then
+			animReset(t.scene[k].fadeout_data)
+			animUpdate(t.scene[k].fadeout_data)
+		end
+		if t.scene[k].bg_name ~= '' then
+			local t_bgdef = t[t.scene[k].bg_name .. 'def']
+			for i = 1, #t_bgdef do
+				t_bgdef[i].ctrl_flags.visible = 1
+				t_bgdef[i].ctrl_flags.enabled = 1
+				t_bgdef[i].ctrl_flags.velx = 0
+				t_bgdef[i].ctrl_flags.vely = 0
+				animReset(t.scene[k].bg_data[i])
+				animAddPos(t.scene[k].bg_data[i], 0 - t_bgdef[i].ctrl_flags.x, 0 - t_bgdef[i].ctrl_flags.y)
+				animUpdate(t.scene[k].bg_data[i])
+				t_bgdef[i].ctrl_flags.x = 0
+				t_bgdef[i].ctrl_flags.y = 0
+				for k2, v2 in pairs(t_bgdef[i].ctrl) do
+					for j = 1, #t_bgdef[i].ctrl[k2] do
+						t_bgdef[i].ctrl[k2][j].timer[1] = t_bgdef[i].ctrl[k2][j].time[1]
+						t_bgdef[i].ctrl[k2][j].timer[2] = t_bgdef[i].ctrl[k2][j].time[2]
+						t_bgdef[i].ctrl[k2][j].timer[3] = t_bgdef[i].ctrl[k2][j].time[3]
+					end
+				end
+			end
+		end
+		for k2, v2 in pairs(t.scene[k].layer) do
+			if t.scene[k].layer[k2].anim_data ~= nil then
+				animReset(t.scene[k].layer[k2].anim_data)
+				animUpdate(t.scene[k].layer[k2].anim_data)
+			end
+			t.scene[k].layer[k2].text_timer = 0
+		end
+	end
+end
+
+local function f_play(t)
+	main.f_printTable(t, 'debug/t_storyboard.txt')
+	--loop through scenes in order
+	for k, v in main.f_sortKeys(t.scene) do
+		--scene >= startscene
+		if k >= t.scenedef.startscene then
+			for i = 0, t.scene[k].end_time do
+				--end storyboard
+				if esc() or main.f_btnPalNo(main.p1Cmd) > 0 then
+					main.f_cmdInput()
+					refresh()
+					return
+				end
+				--play bgm
+				if i == 0 and t.scene[k].bgm ~= nil then
+					playBGM(t.scene[k].bgm)
+				end
+				--play snd
+				if t.scenedef.snd_data ~= nil then
+					for j = 1, #t.scene[k].sound do
+						if i == t.scene[k].sound[j].starttime then
+							sndPlay(t.scenedef.snd_data, t.scene[k].sound[j].value[1], t.scene[k].sound[j].value[2])
+						end
+					end
+				end
+				--clearcolor
+				animDraw(t.scene[k].clearcolor_data)
+				--draw layerno = 0 backgrounds
+				if t.scene[k].bg_name ~= '' then
+					main.f_drawBG(t.scene[k].bg_data, t[t.scene[k].bg_name .. 'def'], 0, i)
+				end
+				--loop through layers in order
+				for k2, v2 in main.f_sortKeys(t.scene[k].layer) do
+					if i >= t.scene[k].layer[k2].starttime and i <= t.scene[k].layer[k2].endtime then
+						--layer anim
+						if t.scene[k].layer[k2].anim_data ~= nil then
+							animDraw(t.scene[k].layer[k2].anim_data)
+							animUpdate(t.scene[k].layer[k2].anim_data)
+						end
+						--layer text
+						if t.scene[k].layer[k2].text_data ~= nil then
+							t.scene[k].layer[k2].text_timer = t.scene[k].layer[k2].text_timer + 1
+							main.f_textRender(
+								t.scene[k].layer[k2].text_data,
+								t.scene[k].layer[k2].text,
+								t.scene[k].layer[k2].text_timer,
+								t.scene[k].layerall_pos[1] + t_layer[k2].offset[1],
+								t.scene[k].layerall_pos[2] + t_layer[k2].offset[2],
+								t.scene[k].layer[k2].text_spacing,
+								t.scene[k].layer[k2].text_delay,
+								t.scene[k].layer[k2].text_length
+							)
+							end
+					end
+				end
+				--draw layerno = 1 backgrounds
+				if t.scene[k].bg_name ~= '' then
+					main.f_drawBG(t.scene[k].bg_data, t[t.scene[k].bg_name .. 'def'], 1, i)
+				end
+				--fadein
+				if i <= t.scene[k].fadein_time then
+					animDraw(t.scene[k].fadein_data)
+					animUpdate(t.scene[k].fadein_data)
+				end
+				--fadeout
+				if i >= t.scene[k].end_time - t.scene[k].fadeout_time then
+					animDraw(t.scene[k].fadeout_data)
+					animUpdate(t.scene[k].fadeout_data)
+				end
+				main.f_cmdInput()
+				refresh()
+			end
+		end
+	end
+	playBGM('')
+end
+
+local function f_parse(path)
+	-- Intro haves his own localcoord function
+	-- So we disable it
+	main.SetDefaultScale()
+	
+	local file = io.open(path, 'r')
+	local fileDir, fileName = path:match('^(.-)([^/\\]+)$')
+	local t = {}
+	local pos = t
+	local pos_default = {}
+	local pos_val = {}
+	t.anim = {}
+	t.ctrldef = {}
+	t.scene = {}
+	t.fileDir = fileDir
+	t.fileName = fileName
+	local bgdef = 'dummyUntilSet'
+	local bgctrl = ''
+	local bgctrl_match = 'dummyUntilSet'
+	local tmp = ''
+	local t_default =
+	{
+		info = {localcoord = {320, 240}},
+		scenedef = {spr = '', snd = '', font = {[1] = 'font/f-6x9.fnt'}, font_height = {}, startscene = 0, font_data = {}},
+		scene = {},
+		ctrldef = {}
+	}
+	for line in file:lines() do
+		line = line:gsub('%s*;.*$', '')
+		if line:match('^%s*%[.-%s*%]%s*$') then --matched [] group
+			line = line:match('^%s*%[(.-)%s*%]%s*$') --match text between []
+			line = line:gsub('[%. ]', '_') --change . and space to _
+			line = line:lower() --lowercase line
+			local row = tostring(line:lower()) --just in case it's a number (not really needed)
+			if row:match('.+ctrldef') then --matched ctrldef start
+				bgctrl = row
+				bgctrl_match = bgctrl:match('^(.-ctrl)def')
+				t.ctrldef[bgdef .. 'def'][bgctrl] = {}
+				t.ctrldef[bgdef .. 'def'][bgctrl].ctrl = {}
+				pos = t.ctrldef[bgdef .. 'def'][bgctrl]
+				t_default.ctrldef[bgdef .. 'def'][bgctrl] = {
+					looptime = -1,
+					ctrlid = {0},
+					ctrl = {}
+				}
+			elseif row:match('^' .. bgctrl_match) then --matched ctrldef content
+				tmp = t.ctrldef[bgdef .. 'def'][bgctrl].ctrl
+				tmp[#tmp + 1] = {}
+				pos = tmp[#tmp]
+				t_default.ctrldef[bgdef .. 'def'][bgctrl].ctrl[#tmp] = {
+					type = 'null',
+					time = {0, -1, -1},
+					ctrlid = {}
+				}
+			elseif row:match('.+def$') and not row:match('^scenedef$') --[[and not row:match('^' .. bgdef .. '.*$')]] then --matched bgdef start
+				t[row] = {}
+				pos = t[row]
+				bgdef = row:match('(.+)def$')
+				t_default[row] = {}
+				t.ctrldef[bgdef .. 'def'] = {}
+				t_default.ctrldef[bgdef .. 'def'] = {}
+			elseif row:match('^' .. bgdef) then --matched bgdef content
+				tmp = t[bgdef .. 'def']
+				tmp[#tmp + 1] = {}
+				pos = tmp[#tmp]
+				t_default[bgdef .. 'def'][#tmp] =
+				{
+					type = 'normal',
+					spriteno = {0, 0},
+					id = 0,
+					layerno = 0,
+					start = {0, 0},
+					delta = {1, 1},
+					trans = '',
+					mask = 0,
+					tile = {0, 0},
+					tilespacing = {0, nil},
+					--window = {0, 0, 0, 0},
+					--windowdelta = {0, 0}, --not supported yet
+					--width = {0, 0}, --not supported yet (parallax)
+					--xscale = {1.0, 1.0}, --not supported yet (parallax)
+					--yscalestart = 100, --not supported yet (parallax)
+					--yscaledelta = 1, --not supported yet (parallax)
+					positionlink = 0,
+					velocity = {0, 0},
+					--sin_x = {0, 0, 0}, --not supported yet
+					--sin_y = {0, 0, 0}, --not supported yet
+					ctrl = {},
+					ctrl_flags = {
+						visible = 1,
+						enabled = 1,
+						velx = 0,
+						vely = 0,
+						x = 0,
+						y = 0
+					}
+				}
+			elseif row:match('^scene_[0-9]+$') then --matched scene
+				row = tonumber(row:match('^scene_([0-9]+)$'))
+				t.scene[row] = {}
+				pos = t.scene[row]
+				pos.layer = {}
+				t_default.scene[row] =
+				{
+					end_time = 0,
+					fadein_time = 0,
+					fadein_col = {0, 0, 0},
+					fadeout_time = 0,
+					fadeout_col = {0, 0, 0},
+					clearcolor = {},
+					layerall_pos = {},
+					layer = {},
+					sound = {},
+					--bgm = '',
+					bgm_loop = 0,
+					--window = {0, 0, 0, 0},
+					bg_name = ''
+				}
+				pos_default = t_default.scene[row]
+			elseif row:match('^begin_action_[0-9]+$') then --matched anim
+				row = tonumber(row:match('^begin_action_([0-9]+)$'))
+				t.anim[row] = {}
+				pos = t.anim[row]
+			else --matched other []
+				t[row] = {}
+				pos = t[row]
+			end
+		else --matched non [] line
+			local param, value = line:match('^%s*([^=]-)%s*=%s*(.-)%s*$')
+			if param ~= nil and value ~= nil and not value:match('^%s*$') then --param = value pattern matched
+				param = param:gsub('[%. ]', '_') --change param . and space to _
+				param = param:lower() --lowercase param
+				value = value:gsub('"', '') --remove brackets from value
+				value = value:gsub('^(%.[0-9])', '0%1') --add 0 before dot if missing at the beginning of matched string
+				value = value:gsub('([^0-9])(%.[0-9])', '%10%2') --add 0 before dot if missing anywhere else
+				if param:match('^font[0-9]+$') then --font param matched
+					local num = tonumber(param:match('font([0-9]+)'))
+					if param:match('_height$') then
+						if pos.font_height == nil then
+							pos.font_height = {}
+						end
+						pos.font_height[num] = main.f_dataType(value)
+					else
+						if pos.font == nil then
+							pos.font = {}
+						end
+						pos.font[num] = tostring(value)
+					end
+				else
+					if param:match('^layer[0-9]+_') then --scene layer param matched
+						local num = tonumber(param:match('^layer([0-9]+)_'))
+						param = param:gsub('layer[0-9]+_', '')
+						if pos.layer[num] == nil then
+							pos.layer[num] = {}
+							pos_default.layer[num] =
+							{
+								anim = -1,
+								text = '',
+								font = {1, 0, 1, nil, nil, nil},
+								text_spacing = {0, 15}, --Ikemen feature
+								text_delay = 2, --Ikemen feature
+								text_length = 50, --Ikemen feature
+								text_timer = 0, --Ikemen feature
+								offset = {0, 0},
+								starttime = 0,
+								--endtime = 0
+							}
+						end
+						pos_val = pos.layer[num]
+					elseif param:match('^sound[0-9]+_') then --sound param matched
+						local num = tonumber(param:match('^sound([0-9]+)_'))
+						param = param:gsub('sound[0-9]+_', '')
+						if pos.sound[num] == nil then
+							pos.sound[num] = {}
+							pos_default.sound[num] =
+							{
+								value = {-1, -1},
+								starttime = 0,
+								volumescale = 100, --not supported yet
+								pan = 0 --not supported yet
+							}
+						end
+						pos_val = pos.sound[num]
+					else
+						pos_val = pos
+					end
+					if pos_val[param] == nil then --mugen takes into account only first occurrence
+						if value:match('.+,.+') then --multiple values
+							for i, c in ipairs(main.f_strsplit(',', value)) do --split value using "," delimiter
+								if pos_val[param] == nil then
+									pos_val[param] = {}
+								end
+								if c == '' then
+									pos_val[param][#pos_val[param] + 1] = 0
+								else
+									pos_val[param][#pos_val[param] + 1] = main.f_dataType(c)
+								end
+							end
+						else --single value
+							pos_val[param] = main.f_dataType(value)
+						end
+					end
+				end
+			else --only valid lines left are animations
+				line = line:lower()
+				local value = line:match('^%s*([0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+%s*,%s*[0-9%-]+.-)[,%s]*$') or line:match('^%s*loopstart')
+				if value ~= nil then
+					value = value:gsub(',%s*,', ',0,') --add missing values
+					value = value:gsub(',%s*$', '')
+					pos[#pos + 1] = value
+				end
+			end
+		end
+	end
+	file:close()
+	--;===========================================================
+	--; FIX REFERENCES, LOAD DATA
+	--;===========================================================
+	--merge tables
+	t = main.f_tableMerge(t_default, t)
+	--ctrldef table adjustment
+	for k, v in pairs(t.ctrldef) do
+		for k2, v2 in pairs(t.ctrldef[k]) do
+			tmp = t.ctrldef[k][k2].ctrl
+			for i = 1, #tmp do
+				--if END_TIME is omitted it should default to the same value as START_TIME
+				if tmp[i].time[2] == -1 then
+					tmp[i].time[2] = tmp[i].time[1]
+				end
+				--if LOOPTIME is omitted or set to -1, the background controller will not reset its own timer. In such case use GLOBAL_LOOPTIME
+				if tmp[i].time[3] == -1 then
+					tmp[i].time[3] = t.ctrldef[k][k2].looptime
+				end
+				--lowercase type name
+				tmp[i].type = tmp[i].type:lower()
+				--this list, if specified, overrides the default list specified in the BGCtrlDef
+				if #tmp[i].ctrlid == 0 then
+					for j = 1, #t.ctrldef[k][k2].ctrlid do
+						tmp[i].ctrlid[#tmp[i].ctrlid + 1] = t.ctrldef[k][k2].ctrlid[j]
+					end
+				end
+			end
+		end
+	end
+	--scenedef spr
+	if not t.scenedef.spr:match('^data/') then
+		if main.f_fileExists(t.fileDir .. t.scenedef.spr) then
+			t.scenedef.spr = t.fileDir .. t.scenedef.spr
+		elseif main.f_fileExists('data/' .. t.scenedef.spr) then
+			t.scenedef.spr = 'data/' .. t.scenedef.spr
+		end
+	end
+	t.scenedef.spr_data = sffNew(t.scenedef.spr)
+	--scenedef snd
+	if t.scenedef.snd ~= '' then
+		if not t.scenedef.snd:match('^data/') then
+			if main.f_fileExists(t.fileDir .. t.scenedef.snd) then
+				t.scenedef.snd = t.fileDir .. t.scenedef.snd
+			elseif main.f_fileExists('data/' .. t.scenedef.snd) then
+				t.scenedef.snd = 'data/' .. t.scenedef.snd
+			end
+		end
+		t.scenedef.snd_data = sndNew(t.scenedef.snd)
+	end
+	--scenedef fonts
+	for k, v in pairs(t.scenedef.font) do --loop through table keys
+		if t.scenedef.font[k] ~= '' then
+			if not t.scenedef.font[k]:match('^data/') then
+				if main.f_fileExists(t.fileDir .. t.scenedef.font[k]) then
+					t.scenedef.font[k] = t.fileDir .. t.scenedef.font[k]
+				elseif main.f_fileExists('font/' .. t.scenedef.font[k]) then
+					t.scenedef.font[k] = 'font/' .. t.scenedef.font[k]
+				end
+			end
+			t.scenedef.font_data[k] = fontNew(t.scenedef.font[k])
+		end
+	end
+	--loop through scenes
+	local prev_k = ''
+	for k, v in main.f_sortKeys(t.scene) do
+		--bgm
+		if t.scene[k].bgm ~= nil and not t.scene[k].bgm:match('^data/') then
+			if main.f_fileExists(t.fileDir .. t.scene[k].bgm) then
+				t.scene[k].bgm = t.fileDir .. t.scene[k].bgm
+			elseif main.f_fileExists('music/' .. t.scene[k].bgm) then
+				t.scene[k].bgm = 'music/' .. t.scene[k].bgm
+			end
+		end
+		--default values
+		if #t.scene[k].clearcolor == 0 then
+			if prev_k ~= '' and #t.scene[prev_k].clearcolor > 0 then
+				t.scene[k].clearcolor[1], t.scene[k].clearcolor[2], t.scene[k].clearcolor[3] = t.scene[prev_k].clearcolor[1], t.scene[prev_k].clearcolor[2], t.scene[prev_k].clearcolor[3]
+			else
+				t.scene[k].clearcolor[1], t.scene[k].clearcolor[2], t.scene[k].clearcolor[3] = 0, 0, 0
+			end
+		end
+		if #t.scene[k].layerall_pos == 0 then
+			if prev_k ~= '' and #t.scene[prev_k].layerall_pos > 0 then
+				t.scene[k].layerall_pos[1], t.scene[k].layerall_pos[2] = t.scene[prev_k].layerall_pos[1], t.scene[prev_k].layerall_pos[2]
+			else
+				t.scene[k].layerall_pos[1], t.scene[k].layerall_pos[2] = 0, 0
+			end
+		end
+		prev_k = k
+		--backgrounds data
+		local anim = ''
+		if t.scene[k].bg_name ~= '' then
+			t.scene[k].bg_data = {}
+			t.scene[k].bg_name = t.scene[k].bg_name:lower()
+			local t_bgdef = t[t.scene[k].bg_name .. 'def']
+			local prev_k2 = ''
+			for k2, v2 in pairs(t_bgdef) do --loop through table keys
+				if t_bgdef[k2].type ~= nil then
+					t_bgdef[k2].type = t_bgdef[k2].type:lower()
+					--mugen ignores delta = 0 (defaults to 1)
+					if t_bgdef[k2].delta[1] == 0 then t_bgdef[k2].delta[1] = 1 end
+					if t_bgdef[k2].delta[2] == 0 then t_bgdef[k2].delta[2] = 1 end
+					--add ctrl data
+					t[t.scene[k].bg_name .. 'def'][k2].ctrl = main.f_ctrlBG(t_bgdef[k2], t.ctrldef[t.scene[k].bg_name .. 'def'])
+					--positionlink adjustment
+					if t_bgdef[k2].positionlink == 1 and prev_k2 ~= '' then
+						t_bgdef[k2].start[1] = t_bgdef[prev_k2].start[1]
+						t_bgdef[k2].start[2] = t_bgdef[prev_k2].start[2]
+						t_bgdef[k2].delta[1] = t_bgdef[prev_k2].delta[1]
+						t_bgdef[k2].delta[2] = t_bgdef[prev_k2].delta[2]
+					end
+					prev_k2 = k2
+					--generate anim data
+					local sizeX, sizeY, offsetX, offsetY = 0, 0, 0, 0
+					if t_bgdef[k2].type == 'anim' then
+						anim = main.f_animFromTable(t.anim[t_bgdef[k2].actionno], t.scenedef.spr_data, t_bgdef[k2].start[1], t_bgdef[k2].start[2])
+					else --normal, parallax
+						anim = t_bgdef[k2].spriteno[1] .. ', ' .. t_bgdef[k2].spriteno[2] .. ', ' .. t_bgdef[k2].start[1] .. ', ' .. t_bgdef[k2].start[2] .. ', ' .. -1
+						anim = animNew(t.scenedef.spr_data, anim)
+						sizeX, sizeY, offsetX, offsetY = getSpriteInfo(t.scenedef.spr, t_bgdef[k2].spriteno[1], t_bgdef[k2].spriteno[2])
+					end
+					if t_bgdef[k2].trans == 'add1' then
+						animSetAlpha(anim, 255, 128)
+					elseif t_bgdef[k2].trans == 'add' then
+						animSetAlpha(anim, 255, 255)
+					elseif t_bgdef[k2].trans == 'sub' then
+						animSetAlpha(anim, 1, 255)
+					end
+					animAddPos(anim, 160, 0) --for some reason needed in ikemen
+					if t_bgdef[k2].window ~= nil then
+						animSetWindow(
+							anim,
+							t_bgdef[k2].window[1],
+							t_bgdef[k2].window[2],
+							t_bgdef[k2].window[3] - t_bgdef[k2].window[1] + 1,
+							t_bgdef[k2].window[4] - t_bgdef[k2].window[2] + 1
+						)
+					else
+						animSetWindow(anim, 0, 0, t.info.localcoord[1], t.info.localcoord[2])
+					end
+					if t_bgdef[k2].tilespacing[2] == nil then t_bgdef[k2].tilespacing[2] = t_bgdef[k2].tilespacing[1] end
+					if t_bgdef[k2].type == 'parallax' then
+						animSetTile(anim, t_bgdef[k2].tile[1], 0, t_bgdef[k2].tilespacing[1] + sizeX, t_bgdef[k2].tilespacing[2] + sizeY)
+					else
+						animSetTile(anim, t_bgdef[k2].tile[1], t_bgdef[k2].tile[2], t_bgdef[k2].tilespacing[1] + sizeX, t_bgdef[k2].tilespacing[2] + sizeY)
+					end
+					animSetScale(anim, 320/t.info.localcoord[1], 240/t.info.localcoord[2])
+					if t_bgdef[k2].mask == 1 or t_bgdef[k2].type ~= 'normal' or (t_bgdef[k2].trans ~= '' and t_bgdef[k2].trans ~= 'none') then
+						animSetColorKey(anim, 0)
+					else
+						animSetColorKey(anim, -1)
+					end
+					--animUpdate(anim)
+					t.scene[k].bg_data[k2] = anim
+				end
+			end
+		end
+		--clearcolor data
+		t.scene[k].clearcolor_data = main.f_clearColor(t.scene[k].clearcolor[1], t.scene[k].clearcolor[2], t.scene[k].clearcolor[3])
+		animSetWindow(t.scene[k].clearcolor_data, 0, 0, t.info.localcoord[1], t.info.localcoord[2])
+		--fadein data
+		t.scene[k].fadein_data = main.f_fadeAnim(1, t.scene[k].fadein_time, t.scene[k].fadein_col[1], t.scene[k].fadein_col[2], t.scene[k].fadein_col[3])
+		animSetWindow(t.scene[k].fadein_data, 0, 0, t.info.localcoord[1], t.info.localcoord[2])
+		--fadeout data
+		t.scene[k].fadeout_data = main.f_fadeAnim(0, t.scene[k].fadeout_time, t.scene[k].fadeout_col[1], t.scene[k].fadeout_col[2], t.scene[k].fadeout_col[3])
+		animSetWindow(t.scene[k].fadeout_data, 0, 0, t.info.localcoord[1], t.info.localcoord[2])
+		--loop through scene layers
+		local t_layer = t.scene[k].layer
+		for k2, v2 in pairs(t_layer) do
+			--anim
+			if t_layer[k2].anim ~= -1 and t.anim[t_layer[k2].anim] ~= nil then
+				t.scene[k].layer[k2].anim_data = main.f_animFromTable(
+					t.anim[t_layer[k2].anim],
+					t.scenedef.spr_data,
+					t.scene[k].layerall_pos[1] + t_layer[k2].offset[1],
+					t.scene[k].layerall_pos[2] + t_layer[k2].offset[2]
+				)
+				animSetScale(t.scene[k].layer[k2].anim_data, 320/t.info.localcoord[1], 240/t.info.localcoord[2])
+			end
+			--text
+			if t_layer[k2].text ~= '' then
+				t.scene[k].layer[k2].text_data = main.f_createTextImg(
+					t.scenedef.font_data[t.scenedef.font[t_layer[k2].font][1]],
+					t.scenedef.font[t_layer[k2].font][2],
+					t.scenedef.font[t_layer[k2].font][3],
+					t_layer[k2].text,
+					t.scene[k].layerall_pos[1] + t_layer[k2].offset[1],
+					t.scene[k].layerall_pos[2] + t_layer[k2].offset[2],
+					320/t.info.localcoord[1],
+					240/t.info.localcoord[2],
+					t.scenedef.font[t_layer[k2].font][4],
+					t.scenedef.font[t_layer[k2].font][5],
+					t.scenedef.font[t_layer[k2].font][6]
+				)
+			end
+			--endtime
+			if t_layer[k2].endtime == nil then
+				t_layer[k2].endtime = t.scene[k].end_time
+			end
+		end
+	end
+	--t.ctrldef = nil
+	
+	-- Finished loading intro
+	-- Re-enabled custom scaling
+	main.SetScaleValues()
+	
+	return t
+end
+
+function storyboard.f_storyboard(path)
+	path = path:gsub('\\', '/')
+	if storyboard.t_storyboard[path] == nil then
+		storyboard.t_storyboard[path] = f_parse(path)
+	else
+		f_reset(storyboard.t_storyboard[path])
+	end
+	f_play(storyboard.t_storyboard[path])
+end
+
+return storyboard