hedgewars/uGame.pas
changeset 79 29b477319854
parent 74 42257fee61ae
child 89 f9db56409a86
equal deleted inserted replaced
78:66bb79dd248d 79:29b477319854
    52    if (GameType = gmtDemo) then
    52    if (GameType = gmtDemo) then
    53       ProcessKbdDemo;
    53       ProcessKbdDemo;
    54    end
    54    end
    55    else begin
    55    else begin
    56    ProcessKbd;
    56    ProcessKbd;
    57    NetGetNextCmd; // на случай, если что-то сказано
    57    NetGetNextCmd; // its for the case when receiving /say message
    58    if SendEmptyPacketTicks >= cSendEmptyPacketTime then
    58    if SendEmptyPacketTicks >= cSendEmptyPacketTime then
    59       begin
    59       begin
    60       SendIPC('+');
    60       SendIPC('+');
    61       SendEmptyPacketTicks:= 0
    61       SendEmptyPacketTicks:= 0
    62       end;
    62       end;
    90                end
    90                end
    91           else ProcessGears
    91           else ProcessGears
    92        end;
    92        end;
    93 if not CurrentTeam.ExtDriven then isInLag:= false;
    93 if not CurrentTeam.ExtDriven then isInLag:= false;
    94 
    94 
    95 MoveWorld
    95 MoveCamera
    96 end;
    96 end;
    97 
    97 
    98 end.
    98 end.