--- a/hedgewars/uAIMisc.pas	Sun Mar 21 18:42:34 2010 +0000
+++ b/hedgewars/uAIMisc.pas	Sun Mar 21 19:02:03 2010 +0000
@@ -37,8 +37,8 @@
                JumpType: TJumpType;
                end;
 
-procedure init_uAIMisc;
-procedure free_uAIMisc;
+procedure initModule;
+procedure freeModule;
 
 procedure FillTargets;
 procedure FillBonuses(isAfterAttack: boolean);
@@ -467,7 +467,7 @@
                  else AIrndSign:= - num
 end;
 
-procedure init_uAIMisc;
+procedure initModule;
 begin
     friendlyfactor:= 300;
     KnownExplosion.X:= 0;
@@ -475,7 +475,7 @@
     KnownExplosion.Radius:= 0;
 end;
 
-procedure free_uAIMisc;
+procedure freeModule;
 begin
 
 end;