diff -r ab6e949eb5cb -r 4e48c276a468 hedgewars/uConsole.pas --- a/hedgewars/uConsole.pas Sun Mar 21 18:42:34 2010 +0000 +++ b/hedgewars/uConsole.pas Sun Mar 21 19:02:03 2010 +0000 @@ -26,8 +26,8 @@ type TVariableType = (vtCommand, vtLongInt, vthwFloat, vtBoolean); TCommandHandler = procedure (var params: shortstring); -procedure init_uConsole; -procedure free_uConsole; +procedure initModule; +procedure freeModule; procedure WriteToConsole(s: shortstring); procedure WriteLnToConsole(s: shortstring); procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); @@ -211,7 +211,7 @@ end; {$INCLUDE "CCHandlers.inc"} -procedure init_uConsole; +procedure initModule; var i: LongInt; begin CurrLine:= 0; @@ -309,7 +309,7 @@ RegisterVariable('script' , vtCommand, @chScript , false); end; -procedure free_uConsole; +procedure freeModule; begin FreeVariablesList(); end;