--- a/hedgewars/uAIMisc.pas	Mon Mar 12 16:08:40 2012 +0400
+++ b/hedgewars/uAIMisc.pas	Mon Mar 12 23:46:28 2012 +0400
@@ -195,8 +195,10 @@
     with bonuses.ar[i] do
         begin
         r:= hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y)));
-        if r < Radius then
-            inc(rate, Score * (Radius - r))
+        if r < 15 then
+                inc(rate, Score * Radius)
+        else if r < Radius then
+                inc(rate, Score * (Radius - r))
         end;
     RatePlace:= rate;
 end;