--- a/hedgewars/uAmmos.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uAmmos.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -22,8 +22,8 @@
 interface
 uses uConsts, uTeams, uStats;
 
-procedure init_uAmmos;
-procedure free_uAmmos;
+procedure initModule;
+procedure freeModule;
 
 procedure AddAmmoStore(s: shortstring);
 procedure AssignStores;
@@ -368,13 +368,13 @@
     if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000);
 end;
 
-procedure init_uAmmos;
+procedure initModule;
 begin
     shoppa:= false;
     StoreCnt:= 0
 end;
 
-procedure free_uAmmos;
+procedure freeModule;
 var i: LongWord;
 begin
     if StoreCnt > 0 then