hedgewars/uTeams.pas
changeset 7010 10a0a31804f3
parent 7001 89488f5b99ca
child 7028 0f60591f3a16
equal deleted inserted replaced
7007:0ccdff4ae8e9 7010:10a0a31804f3
   382         // Some initial King buffs
   382         // Some initial King buffs
   383         if (GameFlags and gfKing) <> 0 then
   383         if (GameFlags and gfKing) <> 0 then
   384             begin
   384             begin
   385             Hedgehogs[0].King:= true;
   385             Hedgehogs[0].King:= true;
   386             Hedgehogs[0].Hat:= 'crown';
   386             Hedgehogs[0].Hat:= 'crown';
   387             Hedgehogs[0].Effects[hePoisoned] := false;
   387             Hedgehogs[0].Effects[hePoisoned] := 0;
   388             h:= Hedgehogs[0].Gear^.Health;
   388             h:= Hedgehogs[0].Gear^.Health;
   389             Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
   389             Hedgehogs[0].Gear^.Health:= hwRound(int2hwFloat(th)*_0_375);
   390             if Hedgehogs[0].Gear^.Health > h then
   390             if Hedgehogs[0].Gear^.Health > h then
   391                 begin
   391                 begin
   392                 dec(th, h);
   392                 dec(th, h);