diff -r ab6e949eb5cb -r 4e48c276a468 hedgewars/uAmmos.pas --- 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