hedgewars/uTeams.pas
changeset 2770 851313907bcb
parent 2768 b7e0b0751179
child 2784 1a2e3c7c6a46
equal deleted inserted replaced
2769:82bfcc006afb 2770:851313907bcb
   352       // Some initial King buffs
   352       // Some initial King buffs
   353       if (GameFlags and gfKing) <> 0 then
   353       if (GameFlags and gfKing) <> 0 then
   354           begin
   354           begin
   355           Hedgehogs[0].King:= true;
   355           Hedgehogs[0].King:= true;
   356           Hedgehogs[0].Hat:= 'crown';
   356           Hedgehogs[0].Hat:= 'crown';
   357           inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_1_5))
   357           inc(Hedgehogs[0].Gear^.Health, hwRound(int2hwFloat(Hedgehogs[0].Gear^.Health)*_0_5))
   358           end;
   358           end;
   359       for i:= 0 to cMaxHHIndex do
   359       for i:= 0 to cMaxHHIndex do
   360           if Hedgehogs[i].Gear <> nil then
   360           if Hedgehogs[i].Gear <> nil then
   361              inc(th, Hedgehogs[i].Gear^.Health);
   361              inc(th, Hedgehogs[i].Gear^.Health);
   362       if th > MaxTeamHealth then MaxTeamHealth:= th;
   362       if th > MaxTeamHealth then MaxTeamHealth:= th;