--- a/hedgewars/uVariables.pas Wed May 16 10:11:00 2018 +0200
+++ b/hedgewars/uVariables.pas Wed May 16 18:09:13 2018 +0200
@@ -128,6 +128,7 @@
zoom : GLfloat;
ZoomValue : GLfloat;
ChatScaleValue : real;
+ cDefaultChatScale: real;
UIScaleValue : real;
cWaterLine : LongInt;
@@ -2641,6 +2642,8 @@
cAudioCodec := '';
{$ENDIF}
+ cDefaultChatScale:= 1.0;
+
cTagsMask:= htTeamName or htName or htHealth;
cPrevTagsMask:= cTagsMask;
end;
@@ -2835,8 +2838,14 @@
GameState := Low(TGameState);
zoom := cDefaultZoomLevel;
ZoomValue := cDefaultZoomLevel;
- ChatScaleValue := cDefaultChatScaleLevel;
+
+ if cDefaultChatScale < cMinChatScaleValue then
+ cDefaultChatScale := cMinChatScaleValue
+ else if cDefaultChatScale > cMaxChatScaleValue then
+ cDefaultChatScale := cMaxChatScaleValue;
+ ChatScaleValue := cDefaultChatScale;
UIScaleValue := cDefaultUIScaleLevel;
+
WeaponTooltipTex:= nil;
cLaserSighting := false;
cLaserSightingSniper := false;