hedgewars/uScript.pas
branchhedgeroid
changeset 5410 8e7787065e2d
parent 5366 bfdd925e89a5
child 5495 272ed78e59a7
--- 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;