--- a/hedgewars/uAIMisc.pas	Fri Sep 16 17:36:05 2011 +0200
+++ b/hedgewars/uAIMisc.pas	Fri Sep 16 18:17:16 2011 +0200
@@ -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);