hedgewars/uWorld.pas
changeset 281 5b483aa9f2ab
parent 244 b37ca2295b73
child 282 b1e3387389b6
equal deleted inserted replaced
280:4d6e365befc1 281:5b483aa9f2ab
   168       inc(i, w)
   168       inc(i, w)
   169     until i > cScreenWidth
   169     until i > cScreenWidth
   170     end;
   170     end;
   171 
   171 
   172 begin
   172 begin
   173 MoveCamera;
   173 if not isPaused then MoveCamera;
   174 
   174 
   175 // Sky
   175 // Sky
   176 inc(RealTicks, Lag);
   176 inc(RealTicks, Lag);
   177 if WorldDy > 0 then
   177 if WorldDy > 0 then
   178    begin
   178    begin
   369 
   369 
   370 {$IFDEF COUNTTICKS}
   370 {$IFDEF COUNTTICKS}
   371 DXOutText(10, 10, fnt16, inttostr(cntTicks), Surface);
   371 DXOutText(10, 10, fnt16, inttostr(cntTicks), Surface);
   372 {$ENDIF}
   372 {$ENDIF}
   373 
   373 
       
   374 if isPaused then DrawCentered(cScreenWidth div 2, cScreenHeight div 2, PauseSurface, Surface);
       
   375 
   374 inc(Frames);
   376 inc(Frames);
   375 inc(CountTicks, Lag);
   377 inc(CountTicks, Lag);
   376 if CountTicks >= 1000 then
   378 if CountTicks >= 1000 then
   377    begin
   379    begin
   378    FPS:= Frames;
   380    FPS:= Frames;