PTyTb
/
ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

исправлена передача команд в игры

This commit is contained in:
PC1\PTyTb 2025-08-19 13:23:58 +03:00
parent 318365f63b
commit f58f3ed735
4 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TTW_Bot_app.dproj
View File

@ -4,7 +4,7 @@
<ProjectVersion>20.3</ProjectVersion> <ProjectVersion>20.3</ProjectVersion>
<FrameworkType>FMX</FrameworkType> <FrameworkType>FMX</FrameworkType>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform> <Platform Condition="'$(Platform)'==''">Win32</Platform>
<ProjectName Condition="'$(ProjectName)'==''">TTW_Bot_app</ProjectName> <ProjectName Condition="'$(ProjectName)'==''">TTW_Bot_app</ProjectName>
<TargetedPlatforms>693395</TargetedPlatforms> <TargetedPlatforms>693395</TargetedPlatforms>

1
forms/uGeneral.fmx
View File

@ -642,7 +642,6 @@ object TTW_Bot: TTTW_Bot
inherited btnCreateOBSGame: TButton inherited btnCreateOBSGame: TButton
Images = ImageList1 Images = ImageList1
ImageIndex = 20 ImageIndex = 20
TabOrder = 5
end end
object btnCreateChat: TButton object btnCreateChat: TButton
Images = ImageList1 Images = ImageList1

7
forms/uGeneral.pas
View File

@ -436,18 +436,19 @@ end;
procedure TTTW_Bot.checkAndSendToGames(aNick: string; aCommand: string); procedure TTTW_Bot.checkAndSendToGames(aNick: string; aCommand: string);
var var
I: Integer; I: Integer;
j: Integer; j: Integer; s:string;
begin begin
for I := 0 to frOBS1.GameWebServers.Count - 1 do for I := 0 to frOBS1.GameWebServers.Count - 1 do
begin begin
for j := 0 to frOBS1.GameWebServers[I].commands.Count - 1 do for j := 0 to frOBS1.GameWebServers[I].commands.Count - 1 do
begin begin
if frOBS1.GameWebServers[I].commands[j] = aCommand then s:= frOBS1.GameWebServers[I].commands[j];
if s= aCommand.Trim then
begin begin
var var
obj := TJSONObject.Create; obj := TJSONObject.Create;
obj.AddPair('user', aNick); obj.AddPair('user', aNick);
obj.AddPair('cmd', aCommand); obj.AddPair('cmd', aCommand.Trim);
frOBS1.GameWebServers[I].WebServerGame.Input(obj); frOBS1.GameWebServers[I].WebServerGame.Input(obj);
end; end;
end; end;

13
frames/fOBS.pas
View File

@ -596,13 +596,16 @@ begin
GameWebServer.port := aPort; GameWebServer.port := aPort;
GameWebServer.WebServerGame := TGameWebServer.Create GameWebServer.WebServerGame := TGameWebServer.Create
(myConst.GeneralPath, aPort); (myConst.GeneralPath, aPort);
GameWebServer.WebServerGame.SetGame(aGame);
commands := GameWebServer.WebServerGame.GetControlCommands;
GameWebServer.commands:= TStringList.Create;
for Cmd in commands do
GameWebServer.commands.Add(Cmd);
GameWebServers.Add(GameWebServer); GameWebServers.Add(GameWebServer);
GameWebServers[GameWebServers.Count - 1].WebServerGame.Start; GameWebServers[GameWebServers.Count - 1].WebServerGame.Start;
GameWebServers[GameWebServers.Count - 1].WebServerGame.SetGame(aGame);
commands := GameWebServers[GameWebServers.Count - 1]
.WebServerGame.GetControlCommands;
for Cmd in commands do
GameWebServers[GameWebServers.Count - 1].commands.Add(Cmd);
end; end;
procedure TfrOBS.CreateWebKandinsky(aRecord: TOBSKandinsky); procedure TfrOBS.CreateWebKandinsky(aRecord: TOBSKandinsky);