Просмотр полной версии : how to use uses?
lib.pas:
procedure Say(msg,from:string);
begin
...
end;
сам скрипт:
uses 'Scripts/lib.pas'
...
Say(...);
Ругается на то, что процедура Say, мол, не определена.
Проверялось, что скрипт НАХОДИТ lib.pas (если изменить имя, будет жаловаться).
В FastScript не работает uses или я его неверно использую?
Попробуй так сделать в 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.
спасибо. помогло.
Более того, в оболочку begin..end МОДУЛЯ я могу вставлять код, который будет добавлен к коду главной процедуры.
Что позволяет создавать поистине независимые модули.
чую народ начиная делать моей прогой что то жутко массивное)
чую народ начиная делать моей прогой что то жутко массивное)
Скоро из твоей проги универсального бота напишут, под все сервера,и нигде не пялящегося :D
чую народ начиная делать моей прогой что то жутко массивное)Имхо этим стоит гордиться. Вообще форум потрясающий, много интересных идей. Спасибо.
Скоро из твоей проги универсального бота напишут, под все сервера,и нигде не пялящегося :DЖаль на моем сервере не работает l2phx (хотя хлапекс без проблем заходит :o )
vBulletin® v3.6.11, Copyright ©2000-2024, Jelsoft Enterprises Ltd. Перевод: zCarot