Ошибка скрипта.

[Denever]

const Char_Name = 'Name';
Var mojno: Boolean;

procedure Init;
begin
mojno := True;
tt;
end;

procedure Free;
begin
mojno := False;
end;

procedure tt;
begin
If mojno then begin
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
delay(400);
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
pck:=''
//tt;
end;
end;
end.

Ругается на end. в чём проблема?
Как повторить цикл //tt; а то при вызове в самой процедуре tt ошибка..

[Maule]

PHP код:

pck:='' 


; - где?

[Denever]

Сообщение от Maule

PHP код:

pck:='' 


; - где?

Поставил всеравно на end.

[Maule]

Сообщение от Denever

Поставил всеравно на end.

Ну у тебя к этому энду бегина как бы нет, или убери end. вообще, или добавь к нему begin, если будешь внутри что то писать.

[dyh9l]

главных бегин/енд нету

[wimax]

const Char_Name = 'Name';
Var mojno: Boolean;

procedure Init;
begin
mojno := True;
tt;
end;

procedure Free;
begin
mojno := False;
end;

procedure tt;
begin
If mojno then begin
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 6D 00 75 00 6C 00 74 00 69 00 73 00 65 00 6C 00 6C 00 20 00 39 00 31 00 36 00 31 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 C9 23 00 00 80 EE 36 00 C5 09 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
delay(400);
buf:=HStr('21 6E 00 70 00 63 00 5F 00 32 00 36 00 38 00 34 00 37 00 34 00 37 00 35 00 38 00 5F 00 53 00 65 00 6C 00 6C 00 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('1E 00 00 00 00 01 00 00 00 B4 CE 00 10 94 17 00 00 C4 09 00 00'); SendToServerEx(Char_Name);
delay(200);
buf:=HStr('A7 CD 23 00 00 A0 86 01 00 0F 00 00 00 00 00 00 00 00 00 00 00'); SendToServerEx(Char_Name);
pck:=''
//tt;
end;
end;

begin
end.

попробуй так не?