hedgewars/uAIMisc.pas
changeset 7285 a9016b157535
parent 7279 18a620394623
child 7360 d833d1010710
--- a/hedgewars/uAIMisc.pas	Sun Jun 24 20:30:51 2012 -0400
+++ b/hedgewars/uAIMisc.pas	Mon Jun 25 10:16:19 2012 +0400
@@ -543,7 +543,7 @@
                 if Score > 0 then 
                     inc(rate, Score div 3)
                 else
-                    dec(rate, Score div 3 * friendlyfactor div 100)
+                    inc(rate, Score div 3 * friendlyfactor div 100)
             end;
 RateHammer:= rate * 1024;
 end;