--- a/hedgewars/uConsts.pas	Thu May 24 20:33:07 2007 +0000
+++ b/hedgewars/uConsts.pas	Sat May 26 16:49:37 2007 +0000
@@ -47,7 +47,7 @@
                    gtTeamHealthSorter, gtClusterBomb, gtCluster, gtShover, gtFlame,
                    gtFirePunch, gtATStartGame, gtATSmoothWindCh, gtATFinishGame,
                    gtParachute, gtAirAttack, gtAirBomb, gtBlowTorch, gtGirder,
-                   gtTeleport);
+                   gtTeleport, gtSmallDamage);
 
      TGearsType = set of TGearType;
 
@@ -60,7 +60,7 @@
                    amBaseballBat, amParachute, amAirAttack, amMineStrike, amBlowTorch,
                    amGirder, amTeleport);
 
-     THWFont    = (fnt16, fntBig);
+     THWFont    = (fnt16, fntBig, fntSmall);
 
      TCapGroup  = (capgrpGameState, capgrpAmmoinfo, capgrpNetSay, capgrpVolume);
 
@@ -198,6 +198,10 @@
                                          (Handle: nil;
                                           Height: 24;
                                           style: TTF_STYLE_NORMAL;
+                                          Name: 'DejaVuSans.ttf'),
+                                         (Handle: nil;
+                                          Height: 10;
+                                          style: TTF_STYLE_NORMAL;
                                           Name: 'DejaVuSans.ttf')
                                          );