[Freeciv] cost of bribing a town

[Nicolas BRUNEL <brunel@xxxxxxxxxxxxxxxxxxxx>]

Hello again,

I changed the cost of bribing a town sothat now the new cost
is the old cost + cost of bribing each unit in the town.
I done this patch because i really hate to loose
6 ironclads,one caravel and one chariot in a row !

Bye,

 Nicolas BRUNEL
 LIM Case 901, 
 163 Avenue de Luminy             brunel@xxxxxxxxxxxxxxx
 13288 Marseille Cedex 9  France  tel +33 04 9182 (8524) fax 9275

--- freeciv/server/cityturn.c   Thu Dec 31 18:20:47 1998
+++ freeciv-mod/server/cityturn.c       Thu Dec 31 20:17:47 1998
@@ -1163,6 +1163,11 @@
       pcity->incite_revolt_cost/=2;
     if (unit_list_size(&map_get_tile(pcity->x,pcity->y)->units)==0)
       pcity->incite_revolt_cost/=2;
+    else {
+    unit_list_iterate(map_get_tile(pcity->x,pcity->y)->units,punit);
+    pcity->incite_revolt_cost+=unit_bribe_cost(punit);
+    unit_list_iterate_end;
+    }
   }
 }