# HG changeset patch # User Xeli # Date 1309955886 -7200 # Node ID 8e7787065e2d921720fba528bff8b3eaff1dc1c8 # Parent 1c2f0dfbe759b280e25a140e3611df4ec63cc5a0 small fix to have LUA_DISABLED working again diff -r 1c2f0dfbe759 -r 8e7787065e2d hedgewars/uScript.pas --- 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;