hedgewars/uGearsList.pas
changeset 7010 10a0a31804f3
parent 7001 89488f5b99ca
child 7028 0f60591f3a16
equal deleted inserted replaced
7007:0ccdff4ae8e9 7010:10a0a31804f3
   146                 gear^.Angle:= cMaxAngle div 2;
   146                 gear^.Angle:= cMaxAngle div 2;
   147                 gear^.Density:= _3;
   147                 gear^.Density:= _3;
   148                 gear^.Z:= cHHZ;
   148                 gear^.Z:= cHHZ;
   149                 if (GameFlags and gfAISurvival) <> 0 then
   149                 if (GameFlags and gfAISurvival) <> 0 then
   150                     if gear^.Hedgehog^.BotLevel > 0 then
   150                     if gear^.Hedgehog^.BotLevel > 0 then
   151                         gear^.Hedgehog^.Effects[heResurrectable] := true;
   151                         gear^.Hedgehog^.Effects[heResurrectable] := 0;
   152                 end;
   152                 end;
   153        gtShell: begin
   153        gtShell: begin
   154                 gear^.Radius:= 4;
   154                 gear^.Radius:= 4;
   155                 gear^.Density:= _1;
   155                 gear^.Density:= _1;
   156                 end;
   156                 end;
   539         else
   539         else
   540             uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);
   540             uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true);
   541 
   541 
   542         inc(KilledHHs);
   542         inc(KilledHHs);
   543         RecountTeamHealth(team);
   543         RecountTeamHealth(team);
   544         if (CurrentHedgehog <> nil) and CurrentHedgehog^.Effects[heResurrectable] and
   544         if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Effects[heResurrectable] <> 0)  and
   545         (not Gear^.Hedgehog^.Effects[heResurrectable]) then
   545         (Gear^.Hedgehog^.Effects[heResurrectable] = 0) then
   546             with CurrentHedgehog^ do 
   546             with CurrentHedgehog^ do 
   547                 begin
   547                 begin
   548                 inc(Team^.stats.AIKills);
   548                 inc(Team^.stats.AIKills);
   549                 FreeTexture(Team^.AIKillsTex);
   549                 FreeTexture(Team^.AIKillsTex);
   550                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);
   550                 Team^.AIKillsTex := RenderStringTex(inttostr(Team^.stats.AIKills), Team^.Clan^.Color, fnt16);