Не компилируеться :-()

[m0nya]

Люди помогите вот скрипт

Code: Select all

Lockpicks;

QUOTE
Program Lockpicks;
var stime : TDateTime;

{$Include 'all.inc'}

Begin
FindDistance := 1;
while true do
begin
stime := Now;
waittargetobject(findtype($1BF2,ground));
useobject(findtype($1EB9,ground));
waitgump('5371');
repeat
InJournalBetweenTimes('You create the item|You make an exceptional item|destroy', stime,

Now);
wait(1000);
until (LineCount >= 1) or (Now > stime + (0.5/1440));
hungry(1, ground);
end;
END.

Не понимаю почему не хочет компилироваться ?

[Edred]

Если он не хочет компилиться - значит, он тебе что-то говорит. Обычно он говорит именно почему он не хочет компилиться. То есть указывает на тип ошибки и на место этой ошибки в скрипте (строка, позиция). Где эта информация?

Телепаты в отпуске.

ЗЫ: И запости скрипт в нормальном виде. Через [сode]. Иначе непонятно, вот это:

Code: Select all

InJournalBetweenTimes('You create the item|You make an exceptional item|destroy', stime, 

Now);

у тебя так и есть в скрипте (тогда понятно почему он не компилится) или все-таки в одну строку?

[m0nya]

11:52:43 [Крафт]: Compiling
11:52:43 [Крафт]: Compiler: [Error] (lookpick.sc at 1:1): 'BEGIN' expected
11:52:43 [Крафт]: Compiling failed
11:52:43 [Крафт]: Script lookpick.sc stoped successfuly
Вот всё что пишет стелс ...
[Error] (lookpick.sc at 1:1): 'BEGIN' expected - не понимаю ...

[Edred]

Скрипт в точном виде в студию! Есть у меня подозрение, что приведенный выше текст именно и есть точный текст скрипта. Включая

Code: Select all

Lockpicks; 

QUOTE

Тогда могу посоветовать одно из двух:
1. Изучить по любому учебнику хотя бы синтаксис паскаля - дело на полчаса.
2. Научиться корректно копировать скрипты с форума.

[m0nya]

Я извеняюсь за дурную тему ... прастите нубаса