hedgewars/uScript.pas
changeset 2798 d48bbe4518e6
parent 2795 c9c830897547
child 2799 558b29bf00c5
--- a/hedgewars/uScript.pas	Wed Feb 10 17:53:21 2010 +0000
+++ b/hedgewars/uScript.pas	Wed Feb 10 21:23:03 2010 +0000
@@ -37,6 +37,7 @@
 procedure free_uScript;
 
 implementation
+{$IFNDEF IPHONEOS}
 uses LuaPas in 'LuaPas.pas',
 	uConsole,
 	uMisc,
@@ -49,7 +50,7 @@
 	uTeams,
 	uKeys,
 	typinfo;
-
+	
 var luaState : Plua_State;
 	ScriptAmmoStore : string;
 	ScriptLoaded : boolean;
@@ -525,4 +526,39 @@
 lua_close(luaState);
 end;
 
+{$ELSE}
+procedure ScriptPrintStack;
+begin
+end;
+
+procedure ScriptClearStack;
+begin
+end;
+
+procedure ScriptLoad(name : string);
+begin
+end;
+
+procedure ScriptOnGameInit;
+begin
+end;
+
+procedure ScriptCall(fname : string);
+begin
+end;
+
+function ScriptCall(fname : string; par1, par2, par3, par4 : LongInt) : LongInt;
+begin
+ScriptCall:= nil
+end;
+
+procedure init_uScript;
+begin
+end;
+
+procedure free_uScript;
+begin
+end;
+
+{$ENDIF}
 end.