# HG changeset patch
# User nemo
# Date 1315859934 14400
# Node ID 099464aab4b61fce71f7e68af33eaea39b9b7186
# Parent  a6573cc5903eeecbefafc7a8c2b252c8639c5d05
fix for issue #139

diff -r a6573cc5903e -r 099464aab4b6 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);