hedgewars/uScript.pas
changeset 2799 558b29bf00c5
parent 2798 d48bbe4518e6
child 2814 71e80c6e74bb
--- a/hedgewars/uScript.pas	Wed Feb 10 21:23:03 2010 +0000
+++ b/hedgewars/uScript.pas	Wed Feb 10 22:00:49 2010 +0000
@@ -549,7 +549,22 @@
 
 function ScriptCall(fname : string; par1, par2, par3, par4 : LongInt) : LongInt;
 begin
-ScriptCall:= nil
+ScriptCall:= 0
+end;
+
+function ScriptCall(fname : string; par1: LongInt) : LongInt;
+begin
+ScriptCall:= 0
+end;
+
+function ScriptCall(fname : string; par1, par2: LongInt) : LongInt;
+begin
+ScriptCall:= 0
+end;
+
+function ScriptCall(fname : string; par1, par2, par3: LongInt) : LongInt;
+begin
+ScriptCall:= 0
 end;
 
 procedure init_uScript;