hedgewars/uAIMisc.pas
changeset 7996 66e8ac9c2274
parent 7850 fcbb024090a4
child 8013 5cbf6e4361f4
--- 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;