fix for issue #139
authornemo
Mon, 12 Sep 2011 16:38:54 -0400
changeset 5881 099464aab4b6
parent 5880 a6573cc5903e
child 5882 59716ac2fe4d
fix for issue #139
hedgewars/uAIMisc.pas
--- a/hedgewars/uAIMisc.pas	Mon Sep 12 23:08:24 2011 +0400
+++ b/hedgewars/uAIMisc.pas	Mon Sep 12 16:38:54 2011 -0400
@@ -112,7 +112,7 @@
             end;
 
 if e > f then friendlyfactor:= 300 + (e - f) * 30
-else friendlyfactor:= max(30, 300 - f * 80 div e)
+else friendlyfactor:= max(30, 300 - f * 80 div max(1,e))
 end;
 
 procedure FillBonuses(isAfterAttack: boolean; filter: TGearsType);