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

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
-1
View File
@@ -642,7 +642,6 @@ object TTW_Bot: TTTW_Bot
inherited btnCreateOBSGame: TButton
Images = ImageList1
ImageIndex = 20
TabOrder = 5
end
object btnCreateChat: TButton
Images = ImageList1
+4 -3
View File
@@ -436,18 +436,19 @@ end;
procedure TTTW_Bot.checkAndSendToGames(aNick: string; aCommand: string);
var
I: Integer;
j: Integer;
j: Integer; s:string;
begin
for I := 0 to frOBS1.GameWebServers.Count - 1 do
begin
for j := 0 to frOBS1.GameWebServers[I].commands.Count - 1 do
begin
if frOBS1.GameWebServers[I].commands[j] = aCommand then
s:= frOBS1.GameWebServers[I].commands[j];
if s= aCommand.Trim then
begin
var
obj := TJSONObject.Create;
obj.AddPair('user', aNick);
obj.AddPair('cmd', aCommand);
obj.AddPair('cmd', aCommand.Trim);
frOBS1.GameWebServers[I].WebServerGame.Input(obj);
end;
end;