hedgewars/uTeams.pas
changeset 3100 5fe9c4ac4c99
parent 3076 7e246257adaa
child 3112 f1bbe35ddb83
equal deleted inserted replaced
3099:cc13b42ab593 3100:5fe9c4ac4c99
    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;
    58 			Poisoned: boolean;
    58             Poisoned: boolean;
    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 					Hedgehogs[0].Poisoned := false;
   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);