diff --git a/TTW_Bot_app.dproj b/TTW_Bot_app.dproj
index 01e205f..82fd576 100644
--- a/TTW_Bot_app.dproj
+++ b/TTW_Bot_app.dproj
@@ -4,7 +4,7 @@
20.3
FMX
True
- Release
+ Debug
Win32
TTW_Bot_app
693395
diff --git a/forms/uGeneral.fmx b/forms/uGeneral.fmx
index 7a43955..309bed3 100644
--- a/forms/uGeneral.fmx
+++ b/forms/uGeneral.fmx
@@ -642,7 +642,6 @@ object TTW_Bot: TTTW_Bot
inherited btnCreateOBSGame: TButton
Images = ImageList1
ImageIndex = 20
- TabOrder = 5
end
object btnCreateChat: TButton
Images = ImageList1
diff --git a/forms/uGeneral.pas b/forms/uGeneral.pas
index 97a24d0..3a678e9 100644
--- a/forms/uGeneral.pas
+++ b/forms/uGeneral.pas
@@ -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;
diff --git a/frames/fOBS.pas b/frames/fOBS.pas
index 9cacbe2..655e99a 100644
--- a/frames/fOBS.pas
+++ b/frames/fOBS.pas
@@ -596,13 +596,16 @@ begin
GameWebServer.port := aPort;
GameWebServer.WebServerGame := TGameWebServer.Create
(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[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;
procedure TfrOBS.CreateWebKandinsky(aRecord: TOBSKandinsky);