Вот мой пример:
delphi Код:
program library;
var
str1:string;
procedure test;
begin
sendMSG('library');
str1:='string';
end;
begin
end.
delphi Код:
program program1;
uses 'scripts/library.script';
var
distanciya : boolean;
mov : integer;
procedure init;
begin
test;
sendMSG(str1);
end;
begin
end.
Результат работы:
Код:
15.11.2010 20:10:01 LSP модуль зарегистрирован в системе
15.11.2010 20:10:02 Стартует L2ph v3.5.33.164
15.11.2010 20:10:02 На 7788 зарегистрирован локальный сервер
15.11.2010 22:21:25 Script: library
15.11.2010 22:36:01 Script: string