--- a/hedgewars/uScript.pas Tue Jul 05 23:30:35 2011 +0200
+++ b/hedgewars/uScript.pas Wed Jul 06 14:38:06 2011 +0200
@@ -30,7 +30,6 @@
* unnoticed and render the parameter useless!)
*)
interface
-
procedure ScriptPrintStack;
procedure ScriptClearStack;
@@ -43,8 +42,9 @@
function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;
function ScriptExists(fname : shortstring) : boolean;
+
+
function ParseCommandOverride(key, value : shortstring) : shortstring;
-
procedure initModule;
procedure freeModule;
@@ -1935,6 +1935,11 @@
ScriptExists:= false
end;
+function ParseCommandOverride(key, value : shortstring) : shortstring;
+begin
+ParseCommandOverride:= value
+end;
+
procedure initModule;
begin
end;