hedgewars/hwengine.dpr
changeset 167 805fa9a27e9e
parent 166 2920ab2bf329
child 174 0b2c5b22f644
equal deleted inserted replaced
166:2920ab2bf329 167:805fa9a27e9e
    93                  isSoundEnabled:= false
    93                  isSoundEnabled:= false
    94                  end;
    94                  end;
    95               GameState:= gsGame
    95               GameState:= gsGame
    96               end;
    96               end;
    97      gsGame : begin
    97      gsGame : begin
       
    98               ProcessKbd;
    98               DoGameTick(Lag);
    99               DoGameTick(Lag);
    99               DrawWorld(Lag, SDLPrimSurface);
   100               DrawWorld(Lag, SDLPrimSurface);
   100               end;
   101               end;
   101    gsConsole: begin
   102    gsConsole: begin
   102               DoGameTick(Lag);
   103               DoGameTick(Lag);