hedgewars/uWorld.pas
changeset 3811 967363197f01
parent 3799 5341dc5a8919
child 3836 833c0f32e326
equal deleted inserted replaced
3810:f6d68086cf63 3811:967363197f01
   535     s: string[15];
   535     s: string[15];
   536     highlight: Boolean;
   536     highlight: Boolean;
   537     offset, offsetX, offsetY, ScreenBottom: LongInt;
   537     offset, offsetX, offsetY, ScreenBottom: LongInt;
   538     VertexBuffer: array [0..3] of TVertex2f;
   538     VertexBuffer: array [0..3] of TVertex2f;
   539 begin
   539 begin
   540     if not isPaused and (ReadyTimeLeft = 0) then
   540     if not isPaused then
   541     begin
   541     begin
   542         if ZoomValue < zoom then
   542         if ZoomValue < zoom then
   543         begin
   543         begin
   544             zoom:= zoom - 0.002 * Lag;
   544             zoom:= zoom - 0.002 * Lag;
   545             if ZoomValue > zoom then
   545             if ZoomValue > zoom then