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 procedure ScriptPrintStack;

    34 procedure ScriptPrintStack;

    34 procedure ScriptClearStack;

    35 procedure ScriptClearStack;

    35 

    36 

    36 procedure ScriptLoad(name : shortstring);

    37 procedure ScriptLoad(name : shortstring);

    37 procedure ScriptOnGameInit;

    38 procedure ScriptOnGameInit;

    43 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;

    44 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;

    44 function ScriptExists(fname : shortstring) : boolean;

    45 function ScriptExists(fname : shortstring) : boolean;

    45 

    46 

    46 

    47 

    47 function ParseCommandOverride(key, value : shortstring) : shortstring;

    48 function ParseCommandOverride(key, value : shortstring) : shortstring;

    48 procedure initModule;

    50 procedure initModule;

    49 procedure freeModule;

    51 procedure freeModule;

    50 

    52 

    51 implementation

    53 implementation

    52 {$IFNDEF LUA_DISABLED}

    54 {$IFNDEF LUA_DISABLED}