исправление имен модулей

Services/uAPIDA.pas

@@ -3,7 +3,7 @@ unit uAPIDA;
 interface
 
 uses
-  Classes, SysUtils, System.JSON, IdHTTP, IdSSLOpenSSL, flog;
+  system.Classes, system.SysUtils, System.JSON, IdHTTP, IdSSLOpenSSL, flog;
 
 type
   TAPIClient = class(TObject)

Services/uChatAPI.pas

@@ -3,7 +3,7 @@ unit uChatAPI;
 interface
 
 uses
-  Classes, SysUtils, IdHTTP, System.JSON, IdSSLOpenSSL, IdGlobal;
+  system.Classes, system.SysUtils, IdHTTP, System.JSON, IdSSLOpenSSL, IdGlobal;
 
 type
   TMessage = procedure(s: string) of object;

Services/uCustomEmoties.pas

@@ -3,7 +3,7 @@ unit uCustomEmoties;
 interface
 
 uses
-  Classes, System.Generics.Collections, System.JSON, uRecords, IdHTTP, IdSSLOpenSSL,
+  System.Classes, System.Generics.Collections, System.JSON, uRecords, IdHTTP, IdSSLOpenSSL,
   System.Net.HttpClient, System.SysUtils;
 
   type

Services/uGigaChat.pas

@@ -3,7 +3,7 @@ unit uGigaChat;
 interface
 
 uses
-  uChatAPI, SysUtils, IdHTTP, System.JSON, IdSSLOpenSSL, IdGlobal, classes;
+  uChatAPI, system.SysUtils, IdHTTP, System.JSON, IdSSLOpenSSL, IdGlobal, system.classes;
 
 type
   TGigaChat = class(TChatAPI)

Services/uKandinskyAPI.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Classes, System.JSON, System.Net.HttpClient,
-  System.Net.URLClient, System.NetConsts, StrUtils, System.Net.Mime,
+  System.Net.URLClient, System.NetConsts, system.StrUtils, System.Net.Mime,
   System.NetEncoding, System.Threading;
 
 type

Services/uTTWAPI.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.Classes, System.SysUtils, IdHTTP, IdSSLOpenSSL, System.JSON, FMX.Forms,
-  IdMultipartFormData, DateUtils, uDataBase, System.Generics.Collections,
+  IdMultipartFormData, System.DateUtils, uDataBase, System.Generics.Collections,
   uRecords;
 
 type

Services/uTTWEventSub.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.JSON, System.Types, System.UITypes, System.Classes,
-  WinInet, ComObj, IdException,
+  Winapi.WinInet, System.Win.ComObj, IdException,
   ipwcore, ipwtypes, ipwwsclient, ipwping, idhttp, IdSSLOpenSSL, uRecords,
   fmx.Types, System.Net.HttpClient, System.Net.HttpClientComponent;
 

Services/uTWAuth.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Classes, IdContext, IdCustomHTTPServer, IdHTTPServer,
-  IdComponent, ShellAPI, System.Threading, Windows;
+  IdComponent, winapi.ShellAPI, System.Threading, winapi.Windows;
 
 type
   TmyEvent = procedure(txt: string) of object;

Services/uWSDA.pas

@@ -3,7 +3,7 @@ unit uWSDA;
 interface
 
 uses
-  Classes, SysUtils, System.JSON, ipwwsclient, StrUtils, uAPIDA;
+  system.Classes, system.SysUtils, System.JSON, ipwwsclient, system.StrUtils, uAPIDA;
 
 type
   TOnDonateEvent = procedure(aNick, aMessage, aSum: string) of object;

TTW_Bot_app.dpr

@@ -2,7 +2,7 @@ program TTW_Bot_app;
 
 uses
   System.StartUpCopy,
-  SysUtils,
+  System.SysUtils,
   FMX.Forms,
   Web.WebReq,
   IdHTTPWebBrokerBridge,

compile.bat

@@ -0,0 +1,3 @@
+@echo off
+dcc32 -B -Q -U"C:\Program Files (x86)\Embarcadero\Studio\23.0\lib\win32\release" -U"C:\Users\PTyTb\Documents\lib\IPWorks 2024 Delphi Edition\pas" -U"C:\Users\PTyTb\Documents\lib\BassSimple\BassSimple" -E"C:\Users\PTyTb\Desktop\www\ttw_fmx_v10\Win32\Release" -N"C:\Users\PTyTb\Desktop\www\ttw_fmx_v10\Win32\Release" TTW_Bot_app.dpr
+pause

forms/uCreateChat.pas

@@ -7,7 +7,7 @@ uses
   System.Variants, FMX.ListBox, FMX.Colors, FMX.SpinBox,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   fColorSettings, fFontSettings, FMX.Controls.Presentation, FMX.StdCtrls,
-  FMX.Edit, FMX.EditBox, StrUtils, uRecords;
+  FMX.Edit, FMX.EditBox, System.StrUtils, uRecords;
 
 type
   TfCreateChat = class(TForm)

forms/uCreateGame.pas

@@ -8,7 +8,7 @@ uses
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
   FMX.EditBox, FMX.SpinBox, FMX.ListBox, FMX.StdCtrls,
   FMX.Controls.Presentation,
-  System.Generics.Collections, IOUtils;
+  System.Generics.Collections, System.IOUtils;
 
 type
   TfCreateGame = class(TForm)

forms/uCreateNotify.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, fOBS,  System.RegularExpressions,  Math,
+  System.Variants, fOBS,  System.RegularExpressions,  System.Math,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, fFontSettings,
   fColorSettings, FMX.StdCtrls, FMX.Edit, FMX.Controls.Presentation,
   FMX.ListBox, FMX.EditBox, FMX.SpinBox, FMX.Colors, uRecords;

forms/uGeneral.pas

@@ -17,17 +17,17 @@ unit uGeneral;
 interface
 
 uses
-  System.SysUtils, System.Types, System.UITypes, System.Classes, DateUtils,
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.DateUtils,
   System.Variants, uTTWIRC, uTTWEventSub, uTTWAPI, uSoundManager, uKeyEvent,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TabControl,
   FMX.Controls.Presentation, FMX.StdCtrls, System.ImageList, FMX.ImgList,
-  FMX.Styles, ShellAPI, StrUtils, IdComponent, uRegExpr, uCustomEmoties,
+  FMX.Styles, winapi.ShellAPI, system.StrUtils, IdComponent, uRegExpr, uCustomEmoties,
   fSettings, fAI, fNotify, fAutoActions, FMX.ListBox, fLog, fEvents,
   System.Generics.Collections, utts, uGigaChat, uChatAPI, uMyTimer, uRecords,
   System.IOUtils, fCommands, uDataBase, FMX.Edit, FMX.Colors, FMX.SpinBox,
-  windows, System.Skia, FMX.Skia, uCreateChat, uCreateNotify, fOBS, fTTS,
+  winapi.windows, System.Skia, FMX.Skia, uCreateChat, uCreateNotify, fOBS, fTTS,
   fPlayerWeb, uWebServerKandinsky, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo,
-  fRevards, json;
+  fRevards, system.json;
 
 type
   TTTW_Bot = class(TForm)

frames/fAutoActions.pas

@@ -6,7 +6,7 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants, uRegExpr,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.ScrollBox, FMX.Edit, StrUtils,
+  System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.ScrollBox, FMX.Edit, System.StrUtils,
   FMX.Controls.Presentation, uMyTimer, uRecords, System.Generics.Collections;
 
 type

frames/fCommands.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, StrUtils,
+  System.Variants, System.StrUtils,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   System.Rtti, FMX.Grid.Style, FMX.Memo.Types, FMX.Grid, FMX.Layouts, uRecords,
   FMX.ListBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation, FMX.ScrollBox,

frames/fContruct.pas

@@ -6,7 +6,7 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   FMX.Memo.Types, FMX.ListBox, FMX.ScrollBox, FMX.Memo, FMX.Edit,
-  FMX.Controls.Presentation, StrUtils;
+  FMX.Controls.Presentation, System.StrUtils;
 
 type
   TfrContruct = class(TFrame)

frames/fEvents.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants, System.Generics.Collections, ShellAPI, uSoundManager,
+  System.Variants, System.Generics.Collections, winapi.ShellAPI, uSoundManager,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, System.Rtti, FMX.Grid.Style,
   FMX.ScrollBox, FMX.Grid, uRecords, uDataBase, FMX.Menus, uKeyEvent,

frames/fRevards.pas

@@ -6,7 +6,7 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  StrUtils,
+  System.StrUtils,
   System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.ScrollBox, uRecords,
   System.Generics.Collections,
   FMX.Controls.Presentation, FMX.EditBox, FMX.NumberBox, FMX.Edit,

frames/fSettings.pas

@@ -6,9 +6,9 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants, uQ,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  ShellAPI, System.IOUtils, uDataBase,
+  winapi.ShellAPI, System.IOUtils, uDataBase,
   FMX.Controls.Presentation, FMX.Edit, uTWAuth, uRecords, uAPIDA, uShowText,
-  json, uWSDA, fLog;
+  System.json, uWSDA, fLog;
 
 type
   TfrSettings = class(TFrame)

frames/fTTS.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
-  System.Variants,  shellapi,
+  System.Variants,  winapi.shellapi,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, uTTS, bass_simple;
 

utils/uKeyEvent.pas

@@ -3,7 +3,7 @@ unit uKeyEvent;
 interface
 
 uses
-  System.SysUtils, System.Types, Windows, System.Classes, System.UITypes,
+  System.SysUtils, System.Types, winapi.Windows, System.Classes, System.UITypes,
   FMX.Types, FMX.Edit, FMX.Controls, FMX.Forms, FMX.Platform, FMX.ListBox;
 
 type

utils/uPlayerThread.pas

@@ -3,8 +3,8 @@ unit uPlayerThread;
 interface
 
 uses
-  Classes, SysUtils, SyncObjs, Generics.Collections, bass_simple,
+  System.Classes, System.SysUtils, System.SyncObjs, System.Generics.Collections, bass_simple,
-  System.IOUtils, Types;
+  System.IOUtils, System.Types;
 
 type
   TOnError = procedure(const Msg, FileName: string) of object;

utils/uRegExpr.pas

@@ -104,8 +104,8 @@ interface
 {$IFDEF FPC} {$DEFINE OverMeth} {$ENDIF}
 
 uses
- Classes,  // TStrings in Split method
+ system.Classes,  // TStrings in Split method
- SysUtils; // Exception
+ system.SysUtils; // Exception
 
 type
  {$IFDEF UniCode}
@@ -639,7 +639,7 @@ function RegExprSubExpressions (const ARegExpr : string;
 implementation
 
 uses
- Windows; // CharUpper/Lower
+ winapi.Windows; // CharUpper/Lower
 
 const
  TRegExprVersionMajor : integer = 0;

utils/uSoundManager.pas

@@ -2,7 +2,7 @@ unit uSoundManager;
 
 interface
 
-uses classes, ShellAPI, bass_simple, windows, System.SysUtils;
+uses System.classes, winapi.ShellAPI, bass_simple, winapi.windows, System.SysUtils;
 
 type
   TSongMachine = class(TObject)

utils/uTTS.pas

@@ -3,7 +3,7 @@ unit uTTS;
 interface
 
 uses
-  Windows, SysUtils, Classes, MMSystem;
+  winapi.Windows, System.SysUtils, System.Classes, winapi.MMSystem;
 
 type
   TPlayFinishedEvent = procedure(Sender: TObject) of object;

utils/uWebServerChat.pas

@@ -2,7 +2,7 @@ unit uWebServerChat;
 
 interface
 
-uses classes, StrUtils, DateUtils, System.JSON, System.Generics.Collections,
+uses System.classes, System.StrUtils, System.DateUtils, System.JSON, System.Generics.Collections,
   IdBaseComponent, IdComponent, IdCustomTCPServer, IdContext,
   IdCustomHTTPServer, uRecords, System.IOUtils, IdGlobalProtocols,
   IdHTTPServer, System.SysUtils;

utils/uWebServerEvents.pas

@@ -3,10 +3,10 @@ unit uWebServerEvents;
 interface
 
 uses
-  Classes, StrUtils, DateUtils, System.JSON, System.Generics.Collections,
+  System.Classes, System.StrUtils, System.DateUtils, System.JSON, System.Generics.Collections,
   IdBaseComponent, IdComponent, IdCustomTCPServer, IdContext,
   IdCustomHTTPServer, uRecords, System.IOUtils, IdGlobalProtocols,
-  IdHTTPServer, System.SysUtils, SyncObjs;
+  IdHTTPServer, System.SysUtils, System.SyncObjs;
 
 type
   TTTW_Events = class(TObject)

utils/uWebServerGames.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   System.SysUtils, System.Classes, System.JSON, System.Generics.Collections,
-  IdHTTPServer, IdCustomHTTPServer, IdContext, IdComponent, NetEncoding, IOUtils;
+  IdHTTPServer, IdCustomHTTPServer, IdContext, IdComponent, System.NetEncoding, System.IOUtils;
 
 type
   TGameWebServer = class

utils/uWebServerKandinsky.pas

@@ -6,7 +6,7 @@ uses
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.Variants, System.NetEncoding,IdContext, IdCustomHTTPServer, IdHTTPServer, IdGlobal,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Edit,
-  FMX.Controls.Presentation, FMX.StdCtrls, uKandinskyAPI, FMX.Memo.Types, json,
+  FMX.Controls.Presentation, FMX.StdCtrls, uKandinskyAPI, FMX.Memo.Types, System.json,
   FMX.ScrollBox, FMX.Memo, System.IOUtils, System.SyncObjs,System.DateUtils;
 
   type