how to use uses?

clyr · 10.12.2007, 23:45

lib.pas:

Код:

procedure Say(msg,from:string);
begin 
...
end;

сам скрипт:

Код:

uses 'Scripts/lib.pas'

...

Say(...);

Ругается на то, что процедура Say, мол, не определена.

Проверялось, что скрипт НАХОДИТ lib.pas (если изменить имя, будет жаловаться).

В FastScript не работает uses или я его неверно использую?

NLObP · 11.12.2007, 00:52

Попробуй так сделать в lib.txt:

Код:

procedure Say(msg:string);
begin
...
end;

//добавь вот эти команды
begin

end.

Тогда основной скрипт проходит проверку

Код:

uses 'scripts/lib.pas';

procedure Init; //Вызывается при включении скрипта
begin
end;

procedure Free; //Вызывается при выключении скрипта
begin
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
   Say('123');
end.

clyr · 11.12.2007, 01:14

спасибо. помогло.

Более того, в оболочку begin..end МОДУЛЯ я могу вставлять код, который будет добавлен к коду главной процедуры.

Что позволяет создавать поистине независимые модули.