исправлена передача команд в игры
This commit is contained in:
@@ -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
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user