81 lines
3.1 KiB
Plaintext
81 lines
3.1 KiB
Plaintext
program TTW_Bot_app;
|
|
|
|
uses
|
|
System.StartUpCopy,
|
|
System.SysUtils,
|
|
FMX.Forms,
|
|
Web.WebReq,
|
|
IdHTTPWebBrokerBridge,
|
|
fAI in 'frames\fAI.pas' {frAI: TFrame},
|
|
fAutoActions in 'frames\fAutoActions.pas' {frAutoActions: TFrame},
|
|
fColorSettings in 'frames\fColorSettings.pas' {frColorSettings: TFrame},
|
|
fCommands in 'frames\fCommands.pas' {frCommands: TFrame},
|
|
fContruct in 'frames\fContruct.pas' {frContruct: TFrame},
|
|
fFontSettings in 'frames\fFontSettings.pas' {frFontSettings: TFrame},
|
|
fGroupsRequest in 'frames\fGroupsRequest.pas' {frGroupsRequest: TFrame},
|
|
fLog in 'frames\fLog.pas' {frLog: TFrame},
|
|
fNotify in 'frames\fNotify.pas' {frNotify: TFrame},
|
|
fOBS in 'frames\fOBS.pas' {frOBS: TFrame},
|
|
fSettings in 'frames\fSettings.pas' {frSettings: TFrame},
|
|
fSimpleGrid in 'frames\fSimpleGrid.pas' {frSimpleGrid: TFrame},
|
|
fTTS in 'frames\fTTS.pas' {frTTS: TFrame},
|
|
uCreateChat in 'forms\uCreateChat.pas' {fCreateChat},
|
|
uCreateNotify in 'forms\uCreateNotify.pas' {fCreateNotify},
|
|
uGeneral in 'forms\uGeneral.pas' {TTW_Bot},
|
|
uQ in 'forms\uQ.pas' {frmQ},
|
|
uShowText in 'forms\uShowText.pas' {fShowText},
|
|
uAPIDA in 'Services\uAPIDA.pas',
|
|
uChatAPI in 'Services\uChatAPI.pas',
|
|
uCustomEmoties in 'Services\uCustomEmoties.pas',
|
|
uGigaChat in 'Services\uGigaChat.pas',
|
|
uKandinskyAPI in 'Services\uKandinskyAPI.pas',
|
|
uTTWAPI in 'Services\uTTWAPI.pas',
|
|
uTTWEventSub in 'Services\uTTWEventSub.pas',
|
|
uTTWIRC in 'Services\uTTWIRC.pas',
|
|
uTWAuth in 'Services\uTWAuth.pas',
|
|
uWSDA in 'Services\uWSDA.pas',
|
|
uDataBase in 'utils\uDataBase.pas',
|
|
uMyTimer in 'utils\uMyTimer.pas',
|
|
uOBS_Doc_Player in 'utils\uOBS_Doc_Player.pas' {OBS_Doc_Player: TWebModule},
|
|
uRecords in 'utils\uRecords.pas',
|
|
uRegExpr in 'utils\uRegExpr.pas',
|
|
uSoundManager in 'utils\uSoundManager.pas',
|
|
uTTS in 'utils\uTTS.pas',
|
|
fPlayerWeb in 'frames\fPlayerWeb.pas' {frPlayerWeb: TFrame},
|
|
uPlayerThread in 'utils\uPlayerThread.pas',
|
|
uWebServerChat in 'utils\uWebServerChat.pas',
|
|
uWebServerKandinsky in 'utils\uWebServerKandinsky.pas',
|
|
uWebServerEvents in 'utils\uWebServerEvents.pas',
|
|
fEvents in 'frames\fEvents.pas' {frEvents: TFrame},
|
|
uKeyEvent in 'utils\uKeyEvent.pas',
|
|
fRevards in 'frames\fRevards.pas' {frRevards: TFrame},
|
|
uWebServerGames in 'utils\uWebServerGames.pas',
|
|
uCreateGame in 'forms\uCreateGame.pas' {fCreateGame};
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
|
|
{$IFDEF DEBUG}
|
|
ReportMemoryLeaksOnShutdown := True;
|
|
{$ENDIF}
|
|
if WebRequestHandler <> nil then
|
|
WebRequestHandler.WebModuleClass := OBS_Doc_Player;
|
|
|
|
Application.Initialize;
|
|
Application.CreateForm(TTTW_Bot, TTW_Bot);
|
|
Application.CreateForm(TfCreateGame, fCreateGame);
|
|
Application.OnException := TTW_Bot.GlobalExceptionHandler;
|
|
Application.CreateForm(TfCreateChat, fCreateChat);
|
|
Application.CreateForm(TfCreateNotify, fCreateNotify);
|
|
Application.CreateForm(TfrmQ, frmQ);
|
|
Application.CreateForm(TfShowText, fShowText);
|
|
Application.CreateForm(TOBS_Doc_Player, OBS_Doc_Player);
|
|
Application.CreateForm(TfCreateChat, fCreateChat);
|
|
Application.CreateForm(TfCreateNotify, fCreateNotify);
|
|
Application.CreateForm(TfShowText, fShowText);
|
|
Application.CreateForm(TfrmQ, frmQ);
|
|
Application.Run;
|
|
|
|
end.
|