Сетевой Морской Бой на BAT

@Echo Off
SetLocal ENABLEDELAYEDEXPANSION
Color 0f
    Title Њ®абЄ®© Ў®©
 
    Set GetKeyFileName=GetKey
    Set ConfigFileName=Config.ini
    Set CurDir=%CD%
    Set TempDir=%TEMP%
 
    Cls
 
    Rem Проверка существования библиотек
    Set const_LibNotFound=ЌҐ **©¤Ґ** ЎЁЎ«Ё®вҐЄ*:
    Set var_Lib=%CD%\Lib\ExtFunc.bat
    Set var_sbLib=%CD%\Lib\ScreenBufferFunc.bat
    Set var_nwLib=%CD%\Lib\NetWorkFunc.bat
    If Not Exist "%var_Lib%" (
        Cls
        Echo Error: %const_LibNotFound% "%var_Lib%"
        Pause>nul
        Exit & Rem На выход
    )
    Call "%var_Lib%" InitFunc
    If Not Exist "%var_sbLib%" (
        Cls
        Echo Error: %const_LibNotFound% "%var_sbLib%"
        Pause>nul
        Exit & Rem На выход
    )
    Call "%var_sbLib%" InitFunc
    If Not Exist "%var_nwLib%" (
        Cls
        Echo Error: %const_LibNotFound% "%var_nwLib%"
        Pause>nul
        Exit & Rem На выход
    )
    Call "%var_nwLib%" InitFunc
 
    Call :Create
    
    PUSHD %TempDir%
    Rem Создаем файл для считывания кода клавиш во временном каталоге
    If Exist %GetKeyFileName%.com Del %GetKeyFileName%.com
    Call :MakeProgramGetKey %GetKeyFileName%
 
    Rem Обнуляем лог
    Echo. > Log.txt
 
    Call :Application
:ExitApp
    Call :Destroy
 
    Del %GetKeyFileName%.com
    Del Log.txt
    POPD
EndLocal
Exit
 
Rem --- cut ---
 
Rem Основное тело программы
:Application
    :ReStart
 
        Rem --- cut ---
 
        If %UserMove% EQU 1 (
            Call :GetKeyCode %GetKeyFileName%
            Call :KeyPress !Result1! "!Result2!"
        )
    Goto ReStart
Exit /b
 
Rem --- cut ---
 
Rem Создание программы по определению скан кода клавиши
Rem Типа асм вставки (они же не запрещены в других языках, так почему же тут не воспользоваться...) :)))
:MakeProgramGetKey
    If Not Exist %WinDir%\System32\Debug.exe (
        Echo ЌҐ **©¤Ґ* д*©«: "%WinDir%\System32\Debug.exe"
        Pause>nul
        Exit
    )
 
    Echo n %1.com>%1.dat
    Echo r cx>>%1.dat
    Echo 3E>>%1.dat
    Echo a 100>>%1.dat
    Echo xor dx,dx>>%1.dat
    Echo mov dl,24>>%1.dat
    Echo push dx>>%1.dat
    Echo mov ah,^0>>%1.dat
    Echo int 16>>%1.dat
    Echo push cs>>%1.dat
    Echo pop ds>>%1.dat
    Echo mov dl,al>>%1.dat
    Echo push dx>>%1.dat
    Echo mov dl,20>>%1.dat
    Echo push dx>>%1.dat
    Echo mov cl,08>>%1.dat
    Echo shr ax,cl>>%1.dat
    Echo mov bl,0A>>%1.dat
    Echo mov cx,03>>%1.dat
    Echo div bl>>%1.dat
    Echo add ah,30>>%1.dat
    Echo mov dl,ah>>%1.dat
    Echo push dx>>%1.dat
    Echo xor ah,ah>>%1.dat
    Echo add cx,01>>%1.dat
    Echo test al,al>>%1.dat
    Echo jnz 11A>>%1.dat
    Echo mov di,150>>%1.dat
    Echo mov dx,di>>%1.dat
    Echo pop ax>>%1.dat
    Echo mov [di],al>>%1.dat
    Echo add di,^1>>%1.dat
    Echo loop 130>>%1.dat
    Echo mov ah,^9>>%1.dat
    Echo int 21>>%1.dat
    Echo int 20>>%1.dat
    Echo.>>%1.dat
    Echo w>>%1.dat
    Echo q>>%1.dat
    Echo.>>%1.dat
    debug < %1.dat > nul
    Del %1.dat
Exit /b