hedgewars/uScript.pas
changeset 11678 b76b7372a2a6
parent 11677 6a1170def888
child 11736 e9481c5a130b
--- a/hedgewars/uScript.pas	Sat Apr 23 13:41:10 2016 -0400
+++ b/hedgewars/uScript.pas	Sat Apr 23 13:48:30 2016 -0400
@@ -56,7 +56,6 @@
 procedure freeModule;
 
 implementation
-{$IFDEF USE_LUA_SCRIPT}
 
 uses LuaPas,
     uConsole,
@@ -104,6 +103,7 @@
     PointsBuffer: shortstring;
     prevCursorPoint: TPoint;  // why is tpoint still in sdlh...
 
+{$IFDEF USE_LUA_SCRIPT}
 procedure ScriptPrepareAmmoStore; forward;
 procedure ScriptApplyAmmoStore; forward;
 procedure ScriptSetAmmo(ammo : TAmmoType; count, probability, delay, reinforcement: Byte); forward;
@@ -3452,6 +3452,22 @@
 begin
 end;
 
+procedure ScriptOnPreviewInit;
+begin
+end;
+
+procedure ScriptSetInteger(name : shortstring; value : LongInt);
+begin
+end;
+
+procedure ScriptSetString(name : shortstring; value : shortstring);
+begin
+end;
+
+procedure LuaParseString(s : ShortString);
+begin
+end;
+
 procedure initModule;
 begin
 mapDims:= false;