[NLObP]

Вот мой пример:

program library;
var
    str1:string;

procedure test;
begin
    sendMSG('library');
    str1:='string';
end;


begin
end.

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