version 6.0

components/draw-input-errorlevel.cmd

@@ -0,0 +1,18 @@
+setlocal enabledelayedexpansion & : [text, errorlevel]
+  : 0 - normal
+  : 1 - success
+  : 2 - warn
+  : 3 - error
+
+  set "color=f"
+
+  if %~2 == 1 set "color=!window-color-success!"
+  if %~2 == 2 set "color=!window-color-warn!"
+  if %~2 == 3 set "color=!window-color-error!"
+
+  cecho  {!window-color-background!!color!}%~1:{!window-color!} 
+
+(
+  endlocal
+  exit /b 0
+)

components/draw-title.cmd

@@ -0,0 +1,7 @@
+setlocal enabledelayedexpansion & : [text]
+	call !window-libs-path!\draw-center-text "{&1&3}-{&1&4}-{&1&5}-{&1&2} %~1 {&1&3}-{&1&4}-{&1&5}-", 4
+
+(
+	endlocal
+	exit /b 0
+)

components/type-password.cmd

@@ -0,0 +1,15 @@
+setlocal enabledelayedexpansion & : [&result]
+  set "result="
+
+  if "!window-system-architecture!" == "x64" (
+    editv64 -m -p "" result
+  ) else if "!window-system-architecture!" == "x86" (
+    editv32 -m -p "" result
+  )
+
+(
+	endlocal
+  set "%~1=%result%"
+	exit /b 0
+)
+

config/get-configfile-prop.cmd

@@ -0,0 +1,15 @@
+setlocal enabledelayedexpansion & : [prop name, &result]
+	set "result=no file"
+
+  if not exist "configfile.ini" goto :done
+
+  for /f "usebackq tokens=1,2 delims=^=" %%a in ("configfile.ini") do (
+    if "%%a" == "%~1" set "result=%%b"
+  )
+
+  :done
+(
+	endlocal
+	set "%~2=%result%"
+	exit /b 0
+)

configfile.ini

@@ -0,0 +1,3 @@
+window-size-width=60
+libs-path=lib\
+components-path=components\

console-games-menu-Pan.backup.ini

@@ -0,0 +1,7 @@
+user-name=Pan
+emulator-location=C:\Users\elito\Games\Snes9x\snes9x-x64.exe
+pass=12
+recovery-questions=Ok:kO;Lm:mL;Op:pO
+roms-location=C:\Users\elito\Games\Snes9x\Roms
+share-emulator-location=n
+share-roms-location=y

database/add/game-not-accepted.cmd

@@ -0,0 +1,13 @@
+setlocal enabledelayedexpansion & : [name, game name]
+  set "result="
+
+  : valid name
+  if exist "database\users\%~1\*" (
+    echo %~2>> "database\users\%~1\games-not-accepted.txt"
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/add/user.cmd

@@ -0,0 +1,8 @@
+setlocal enabledelayedexpansion & : [name, password]
+  md "database\users\%~1"
+  echo %~2> "database\users\%~1\pass.txt"
+
+(
+  endlocal
+  exit /b 0
+)

database/backup/create.cmd

@@ -0,0 +1,26 @@
+setlocal enabledelayedexpansion & : [local, &result in error level]
+  set "file-path=%~1\console-games-menu-!user-name!.backup.ini"
+  set result-error-level=0
+
+  echo user-name^=!user-name!> "!file-path!"
+
+  for /f "tokens=*" %%x in ('dir /b "database\users\!user-name!\"') do (
+    set prop-name=%%x
+    set prop-name=!prop-name:~0,-4!
+    set "prop-value="
+
+    for /f "usebackq tokens=*" %%y in ("database\users\!user-name!\%%x") do (
+      set "prop-value=!prop-value!;%%y"
+    )
+
+    set prop-value=!prop-value:~1!
+
+    echo !prop-name!=!prop-value!>> "!file-path!"
+  )
+
+  :end
+(
+  endlocal
+  set "%~2=%result-error-level%"
+  exit /b 0
+)

database/backup/read-new-user.cmd

@@ -0,0 +1,20 @@
+setlocal enabledelayedexpansion & : [local]
+  set "result="
+  set "backup-user-name="
+
+  for /f "usebackq tokens=1,2 delims=^=" %%a in ("%~1") do (
+    echo ok - %%a
+
+    if "%%a" == "user-name" (
+      set backup-user-name=%%b
+      md "database\users\!backup-user-name!"
+    ) else if "!backup-user-name!" neq "" (
+      call database\update\%%a !backup-user-name!, "%%b", result
+    )
+
+  )
+
+(
+  endlocal
+  exit /b 0
+)

database/delete/game-not-accepted.cmd

@@ -0,0 +1,20 @@
+setlocal enabledelayedexpansion & : [user, game]
+  set "games-list="
+  set "item="
+
+  call database\get\games-not-accepted "%~1", games-list
+  call lib\remove-array-vector games-list, "%~2", games-list
+
+  echo.> "database\users\%~1\games-not-accepted.txt"
+
+  for %%x in (!games-list!) do (
+    set item=%%x
+    set item=!item:~1,-1!
+
+    echo !item!>> "database\users\%~1\games-not-accepted.txt"
+  )
+
+(
+  endlocal
+  exit /b 0
+)

database/delete/user.cmd

@@ -0,0 +1,19 @@
+setlocal enabledelayedexpansion & : [user, &result]
+  set "result=y"
+  set "answer="
+
+  start /wait /shared messages\confirm-pass %~1
+
+  set /p answer=< "temp\confirm-pass.txt"
+
+  if "!answer!" == "y" (
+    rd /s /q "database\users\%~1"
+
+    start index
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/get/all-users.cmd

@@ -0,0 +1,12 @@
+setlocal enabledelayedexpansion & : [&result]
+  set "result="
+
+  for /f "tokens=*" %%x in ('dir /b "database\users"') do (
+    set result=!result! "%%x"
+  )
+
+(
+  endlocal
+  set "%~1=%result%"
+  exit /b 0
+)

database/get/emulator-location.cmd

@@ -0,0 +1,13 @@
+setlocal enabledelayedexpansion & : [name, &result]
+  set "result="
+
+  : valid name
+  if exist "database\users\%~1\*" if exist "database\users\%~1\emulator-location.txt" (
+    set /p result=< "database\users\%~1\emulator-location.txt"
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/get/games-not-accepted.cmd

@@ -0,0 +1,15 @@
+setlocal enabledelayedexpansion & : [user, &result]
+  set "result="
+
+  : valid name
+  if exist "database\users\%~1\*" if exist "database\users\%~1\games-not-accepted.txt" (
+    for /f "usebackq tokens=*" %%x in ("database\users\%~1\games-not-accepted.txt") do (
+      set result=!result! "%%x"
+    )
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/get/recovery-questions.cmd

@@ -0,0 +1,12 @@
+setlocal enabledelayedexpansion & : [name, &result]
+  set "result="
+
+  if exist "database\users\%~1\*" (
+    set /p result=< "database\users\%~1\recovery-questions.txt"
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/get/roms-location.cmd

@@ -0,0 +1,13 @@
+setlocal enabledelayedexpansion & : [name, &result]
+  set "result="
+
+  : valid name
+  if exist "database\users\%~1\*" if exist "database\users\%~1\roms-location.txt" (
+    set /p result=< "database\users\%~1\roms-location.txt"
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  exit /b 0
+)

database/get/shared-locations.cmd

@@ -0,0 +1,25 @@
+setlocal enabledelayedexpansion & : [location type, &result, &result to show]
+  set "result="
+  set "result-show="
+  set "answer="
+
+  for /f "tokens=*" %%x in ('dir /b "database\users"') do (
+
+    if "%%x" neq "!user-name!" if exist "database\users\%%x\share-%~1-location.txt" (
+      set /p answer=< "database\users\%%x\share-%~1-location.txt"
+
+      if "!answer!" == "y" (
+        set /p answer=< "database\users\%%x\%~1-location.txt"
+
+        set result=!result! "!answer!"
+        set result-show=!result-show! " %%x - !answer!"
+      )
+    )
+  )
+
+(
+  endlocal
+  set "%~2=%result%"
+  set "%~3=%result-show%"
+  exit /b 0
+)