hedgewars/uIO.pas
branch0.9.23
changeset 12898 9cb98c97fbcb
parent 12794 28782e03b8f0
child 12899 ff54aca22bb5
equal deleted inserted replaced
12893:41d147eb26ea 12898:9cb98c97fbcb
    70                 end;
    70                 end;
    71 
    71 
    72 function AddCmd(Time: Word; str: shortstring): PCmd;
    72 function AddCmd(Time: Word; str: shortstring): PCmd;
    73 var command: PCmd;
    73 var command: PCmd;
    74 begin
    74 begin
    75     if (lastcmd <> nil) and (lastcmd^.cmd = '+') then
    75     if (lastcmd <> nil) and (lastcmd^.cmd = '+') and (str[1] <> 'F') and (str[1] <> 'G') then
    76     begin
    76     begin
    77         command:= lastcmd;
    77         command:= lastcmd;
    78     end else
    78     end else
    79     begin
    79     begin
    80         new(command);
    80         new(command);