equal
deleted
inserted
replaced
28 * Note: If you add a new function, make sure to test if _all_ parameters |
28 * Note: If you add a new function, make sure to test if _all_ parameters |
29 * work as intended! (Especially conversions errors can sneak in |
29 * work as intended! (Especially conversions errors can sneak in |
30 * unnoticed and render the parameter useless!) |
30 * unnoticed and render the parameter useless!) |
31 *) |
31 *) |
32 interface |
32 interface |
33 |
|
34 procedure ScriptPrintStack; |
33 procedure ScriptPrintStack; |
35 procedure ScriptClearStack; |
34 procedure ScriptClearStack; |
36 |
35 |
37 procedure ScriptLoad(name : shortstring); |
36 procedure ScriptLoad(name : shortstring); |
38 procedure ScriptOnGameInit; |
37 procedure ScriptOnGameInit; |
41 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
40 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
42 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
41 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
42 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt; |
45 function ScriptExists(fname : shortstring) : boolean; |
44 function ScriptExists(fname : shortstring) : boolean; |
|
45 |
|
46 |
46 function ParseCommandOverride(key, value : shortstring) : shortstring; |
47 function ParseCommandOverride(key, value : shortstring) : shortstring; |
47 |
|
48 procedure initModule; |
48 procedure initModule; |
49 procedure freeModule; |
49 procedure freeModule; |
50 |
50 |
51 implementation |
51 implementation |
52 {$IFNDEF LUA_DISABLED} |
52 {$IFNDEF LUA_DISABLED} |
1933 function ScriptExists(fname : shortstring) : boolean; |
1933 function ScriptExists(fname : shortstring) : boolean; |
1934 begin |
1934 begin |
1935 ScriptExists:= false |
1935 ScriptExists:= false |
1936 end; |
1936 end; |
1937 |
1937 |
|
1938 function ParseCommandOverride(key, value : shortstring) : shortstring; |
|
1939 begin |
|
1940 ParseCommandOverride:= value |
|
1941 end; |
|
1942 |
1938 procedure initModule; |
1943 procedure initModule; |
1939 begin |
1944 begin |
1940 end; |
1945 end; |
1941 |
1946 |
1942 procedure freeModule; |
1947 procedure freeModule; |