ищу проблему

[bigmag]

//Скрипт на регенерацию Маны,Хп,Цп на сервере
//Для активации введите в парти чат '.window'
//Для регенерации хп нужно просто посылать '.heal' в парти чат
//Работает на сервер где есть у бафера регенерация хп мп цп
//Версия 5.0 Final
//Автор Crazy$

var act:integer; me1:char; shade:integer;
// переменная
ValidatePosition:string;

procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
//защитная часть

begin
//запоминание пакета ValidatePosition
if FromClient and (pck[1]=#$48) then ValidatePosition:=pck;
if pck='' then exit;

if fromclient and (pck=#$38#$2E#$00#$77#$00#$69#$00#$6E#$00#$64#$00# $6F#$00#$77#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr('04 D2 A6 00 10 80 41 02 00 F0 22 FF FF 23 F5 FF FF 00');
SendToServer;
buf:=hstr('48 80 41 02 00 F0 22 FF FF 23 F5 FF FF 87 CC 00 00 00 00 00 00');
SendToServer;
buf:=#$21;
WriteS ('npc_268478162_chat 1');
SendToServer;
buf:=#$21;
Writes('npc_268478162_restore hp 1');
SendToServer;
buf:=#$21;
WriteS('npc_268478162_restore mp 1');
SendToServer;
buf:=#$21;
WriteS('npc_268478162_restore cp 1');
SendToServer;
buf:=hstr('37 01 00');
SendToServer;
//отсылка пакета ValidatePosition, запомненого ранее
buf:=ValidatePosition; SendToServer;
end;
begin
if FromClient and (pck[1]=#$48) then ValidatePosition:=pck;
if pck='' then exit;
if FromClient and (pck=#$38#$2E#$00#$68#$00#$65#$00#$61#$00#$6C#$00# $00#$00#$03#$00#$00#$00) then
begin
buf:=hstr('48 80 41 02 00 F0 22 FF FF 23 F5 FF FF 87 CC 00 00 00 00 00 00');
SendToServer;
buf:=#$21;
Writes('npc_268478162_restore hp 1');
SendToServer;
buf:=#$21;
WriteS('npc_268478162_restore mp 1');
SendToServer;
buf:=#$21;
WriteS('npc_268478162_restore cp 1');
SendToServer;
buf:=hstr('37 01 00');
SendToServer;
//отсылка пакета ValidatePosition, запомненого ранее
buf:=ValidatePosition; SendToServer;
end;
end;
end.


немагу понять де ошибка
вот сдесь if FromClient and (pck=#$38#$2E#$00#$68#$00#$65#$00#$61#$00#$6C#$00# $00#$00#$03#$00#$00#$00) then
begin

[alexteam]

$00# $6F

#$00# $00

Пробел убери...