hedgewars/uTeams.pas
changeset 14398 87562a68c41f
parent 14366 2ab312c47dc3
child 14477 4b678aad50e9
equal deleted inserted replaced
14397:f9a3cfdec1df 14398:87562a68c41f
   558         if th > MaxTeamHealth then
   558         if th > MaxTeamHealth then
   559             MaxTeamHealth:= th;
   559             MaxTeamHealth:= th;
   560         // Some initial King buffs
   560         // Some initial King buffs
   561         if (GameFlags and gfKing) <> 0 then
   561         if (GameFlags and gfKing) <> 0 then
   562             begin
   562             begin
       
   563             hasKing:= true;
   563             Hedgehogs[0].King:= true;
   564             Hedgehogs[0].King:= true;
   564             Hedgehogs[0].Hat:= 'crown';
   565             Hedgehogs[0].Hat:= 'crown';
   565             Hedgehogs[0].Effects[hePoisoned] := 0;
   566             Hedgehogs[0].Effects[hePoisoned] := 0;
   566             h:= Hedgehogs[0].Gear^.Health;
   567             h:= Hedgehogs[0].Gear^.Health;
   567             Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
   568             Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);