53             stats: TStatistics;

    53             stats: TStatistics;

    54             Hat: shortstring;

    54             Hat: shortstring;

    55             King: boolean;  // Flag for a bunch of hedgehog attributes

    55             King: boolean;  // Flag for a bunch of hedgehog attributes

    56             Unplaced: boolean;  // Flag for hog placing mode

    56             Unplaced: boolean;  // Flag for hog placing mode

    57             Timer: Longword;

    57             Timer: Longword;

    59             end;

    59             end;

    60 

    60 

    61     TTeam = record

    61     TTeam = record

    62             Clan: PClan;

    62             Clan: PClan;

    63             TeamName: string[MAXNAMELEN];

    63             TeamName: string[MAXNAMELEN];

   363       // Some initial King buffs

   363       // Some initial King buffs

   364       if (GameFlags and gfKing) <> 0 then

   364       if (GameFlags and gfKing) <> 0 then

   365           begin

   365           begin

   366           Hedgehogs[0].King:= true;

   366           Hedgehogs[0].King:= true;

   367           Hedgehogs[0].Hat:= 'crown';

   367           Hedgehogs[0].Hat:= 'crown';

   368           h:= Hedgehogs[0].Gear^.Health;

   369           h:= Hedgehogs[0].Gear^.Health;

   369           Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);

   370           Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);

   370           if Hedgehogs[0].Gear^.Health > h then

   371           if Hedgehogs[0].Gear^.Health > h then

   371               begin

   372               begin

   372               dec(th, h);

   373               dec(th, h);