hedgewars/uWorld.pas
changeset 7016 8b34f46e10c1
parent 7013 54db061b5710
child 7022 107651b3c5a0
equal deleted inserted replaced
7015:08642c7da4a3 7016:8b34f46e10c1
  1105  
  1105  
  1106 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
  1106 procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode);
  1107 var i, t, h: LongInt;
  1107 var i, t, h: LongInt;
  1108     r: TSDL_Rect;
  1108     r: TSDL_Rect;
  1109     tdx, tdy: Double;
  1109     tdx, tdy: Double;
  1110     s: string[15];
  1110     s: shortstring;
  1111     highlight: Boolean;
  1111     highlight: Boolean;
  1112     smallScreenOffset, offsetX, offsetY, screenBottom: LongInt;
  1112     smallScreenOffset, offsetX, offsetY, screenBottom: LongInt;
  1113     VertexBuffer: array [0..3] of TVertex2f;
  1113     VertexBuffer: array [0..3] of TVertex2f;
  1114 begin
  1114 begin
  1115 if (cReducedQuality and rqNoBackground) = 0 then
  1115 if (cReducedQuality and rqNoBackground) = 0 then
  1462 
  1462 
  1463     if cShowFPS or (GameType = gmtDemo) then
  1463     if cShowFPS or (GameType = gmtDemo) then
  1464         inc(CountTicks, Lag);
  1464         inc(CountTicks, Lag);
  1465     if (GameType = gmtDemo) and (CountTicks >= 1000) then
  1465     if (GameType = gmtDemo) and (CountTicks >= 1000) then
  1466         begin
  1466         begin
  1467         i:=GameTicks div 1000;
  1467         i:= GameTicks div 1000;
  1468         t:= i mod 60;
  1468         t:= i mod 60;
  1469         s:= inttostr(t);
  1469         s:= inttostr(t);
  1470         if t < 10 then
  1470         if t < 10 then
  1471             s:= '0' + s;
  1471             s:= '0' + s;
  1472         i:= i div 60;
  1472         i:= i div 60;