--- a/hedgewars/uAIMisc.pas Wed Nov 07 05:18:06 2012 +0100
+++ b/hedgewars/uAIMisc.pas Wed Nov 07 13:23:18 2012 +0400
@@ -110,7 +110,7 @@
begin
for i:= 0 to cMaxHHIndex do
if (Hedgehogs[i].Gear <> nil)
- and (Hedgehogs[i].Gear <> ThinkingHH)
+ and (Hedgehogs[i].Gear <> ThinkingHH)
and (Hedgehogs[i].Gear^.Health > Hedgehogs[i].Gear^.Damage)
then
begin
@@ -119,15 +119,17 @@
skip:= false;
Point.X:= hwRound(Gear^.X);
Point.Y:= hwRound(Gear^.Y);
- if Clan <> CurrentTeam^.Clan then
- begin
- Score:= Gear^.Health - Gear^.Damage;
- inc(e)
- end else
- begin
- Score:= Gear^.Damage - Gear^.Health;
- inc(f)
- end
+ if (Hedgehogs[i].Gear^.AIHints and aihDoesntMatter) <> 0 then
+ Score:= 0
+ else if Clan <> CurrentTeam^.Clan then
+ begin
+ Score:= Gear^.Health - Gear^.Damage;
+ inc(e)
+ end else
+ begin
+ Score:= Gear^.Damage - Gear^.Health;
+ inc(f)
+ end
end;
inc(Targets.Count)
end;