@echo off
title CMD.Chat By Ris* - Offline
color 9F
net start "Telnet"
telnet -l CMD.Chat.User Chat localhost 999
title CMD.Chat By Ris* - Unnamed User
set name=  
:m_name
cls
echo ********************************************************************************
echo                       ‚*б ЇаЁўҐвбвўгҐв CMD.Chat By Ris*!                         
echo ********************************************************************************
echo Help: ‚ўҐ¤ЁвҐ "ExitChat" ЎҐ§ Є*ўл祪, ¤«п в®Ј® зв®Ў ўл©вЁ Ё§ з*в*.
echo Help: ‚ўҐ¤ЁвҐ "ChatColor", зв®Ўл Ї®б¬®ваҐвм бЇа*ўЄг Ї® 梥в*¬, Ё "ChatColor ##" (Ј¤Ґ "#" - иҐбв**¤жҐаЁз**п жЁда*), зв®Ўл ўлЎа*вм а*б梥вЄг з*в*.
echo --------------------------------------------------------------------------------
set /p name="‚ўҐ¤ЁвҐ бў®с Ё¬п (ЌЁЄ): "
echo.
   
::Защита от кавычек для выполнения посторонних командов (name"dir).
set name="%name:"=''%"
echo %name% > "CMD.Sys.Name.cht"
::Защита против выполнения посторонних командов (name & dir) - запишите выбранные символы в файл "CMD.Block.cht".
if exist "CMD.Block.cht" for /f "tokens=1" %%i in (CMD.Block.cht) do (for /f "tokens=*" %%a in ('findstr /L /M /OFF "%%i" "CMD.Sys.Name.cht"') do (if "%%a"=="CMD.Sys.Name.cht" goto m_name))
set name=%name:~1,-1%
   
if "%name%"==" " goto m_name
if exist "CMD.Name.cht" for /f "tokens=*" %%i in (CMD.Name.cht) do (if "%name%"=="%%i" goto m_name)
   
::Можно запретить использовать выбранные ники - запишите выбранные ники в файл "CMD.NameReserve.cht".
if exist "CMD.NameReserve.cht" for /f "tokens=*" %%i in (CMD.NameReserve.cht) do (for /f "tokens=*" %%a in ('findstr /L /M /I /OFF "%%i" "CMD.Sys.Name.cht"') do (if "%%a"=="CMD.Sys.Name.cht" goto m_name))
del /a /f /q "CMD.Sys.Name.cht"
   
echo %name% >> "CMD.Name.cht"
title CMD.Chat By Ris* - User: %name%
:m_say
set say=  
set /p say="‚ўҐ¤ЁвҐ б®®ЎйҐ*ЁҐ: "
if "%time:~0,1%"==" " (set ttime=^0%time:~1,7%) else (set ttime=%time:~0,-3%)
   
::Защита от кавычек для выполнения посторонних командов (say"dir).
set say="%say:"=''%"
echo %say% > "CMD.Sys.Say.cht"
::Защита против выполнения посторонних командов (say & dir) - запишите выбранные символы в файл "CMD.Block.cht".
if exist "CMD.Block.cht" for /f "tokens=1" %%i in (CMD.Block.cht) do (for /f "tokens=*" %%a in ('findstr /L /M /OFF "%%i" "CMD.Sys.Say.cht"') do (if "%%a"=="CMD.Sys.Say.cht" goto m_nosay))
   
::Можно запретить использовать выбранные слова в сообщениях - запишите выбранные слова в файл "CMD.SayBlock.cht".
if exist "CMD.SayBlock.cht" for /f "tokens=*" %%i in (CMD.SayBlock.cht) do (for /f "tokens=*" %%a in ('findstr /L /M /I /OFF "%%i" "CMD.Sys.Say.cht"') do (if "%%a"=="CMD.Sys.Say.cht" set say="[MAT BLOCK]"))
del /a /f /q "CMD.Sys.Say.cht"
set say=%say:~1,-1%
   
if "%say%"==" " goto m_nosay
echo %name% (%ttime% %date%): >> "CMD.Chat.cht"
echo %say% >> "CMD.Chat.cht"
echo. >> "CMD.Chat.cht"
:m_nosay
cls
echo ********************************************************************************
echo *                          Chat In CMD By Ris*                    *
echo ********************************************************************************
type "CMD.Chat.cht"
if exist "CMD.Sys.Say.cht" goto m_say
if "%say:~0,9%"=="ColorChat" (if not "%say:~10,2%"=="" (color %say:~10,2%) else (for /f "tokens=1*" %%i in ('color /? ^| more +5') do (if not "%%i"=="…б«Ё" (echo %%i %%j) else (echo. & goto m_poclr))))
:m_poclr
if not "%say%"=="ExitChat" goto m_say
findstr /L /V "%name%" "CMD.Name.cht" >> "CMD.NameTMP.cht"
del /a /f /q "CMD.Name.cht"
rename "CMD.NameTMP.cht" "CMD.Name.cht"
set /p chat_user=" " < "CMD.Name.cht"
::Если не осталось пользователей в чате, то стирается файл "CMD.Name.cht", копируется лог чата в паку History c временем и датой и удаляется из тек. папки.
If "%chat_user%"=="" (del /a /f /q "CMD.Name.cht"&if not exist "History" md "History"© /y "CMD.Chat.cht" "History\CMD.Chat_%time:~0,2%.%time:~3,2%.%time:~6,2%_%date%.cht" > nul&del /a /f /q "CMD.Chat.cht")
Echo Exit...
ping -n 2 localhost > nul
exit