Подскажите как написать скрипт

[semiromid]

Если пришел пакет от сервера 39
отправляем пакет на сервер пакет 42

begin

if FromServer and
buf:=#$39;
then begin
buf:=#$42;
SendToServer


end;
end.

[J-Fobos]

buf - буфер
pck - пакет

[Nickers]

begin
  if FromServer and (pck[1]=#$39) then //От серва
    begin                    //Если первая "пара циферок" - 39, то:
      buf:=#$42;
      SendToServer;  //Посылаем "42" Серверу
    end;
end.

[semiromid]

Буду пытаться прикрутить тамер

[goodvin1709]

VAR
Timer:TTimer;
Procedure Init;
begin
               Timer := TTimer.Create(nil) ;
               Timer.Interval := 1000;//Интервал.
               Timer.Enabled := False ;//Его включеность при старте.
               Timer.Ontimer := @OnTimer ; //Вызов Процедуры.
End;
Procedure Free;
begin
timer.free;
end;


Procedure OnTimer(Sender : TObject) ;
begin
Timer.enabled:=false;
buf:=#$42;
      SendToServer;//Отправили Пакет.
end;


begin
  if FromServer and (pck[1]=#$39) then Timer.enabled:=true;
   end.
//Включили таймер.

[semiromid]

Подскажи что тут не правильно ?

 begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00');            //Создаем пакет "принять пати"
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

на против else выдает ошибку (крастная строчка) при компиляции

[Pinko]

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

Подскажи что тут не правильно ?

 begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00');            //Создаем пакет "принять пати"
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

на против else выдает ошибку (крастная строчка) при компиляции

(крастная строчка)

[semiromid]

const
name = 'Санар;  
begin
  if FromServer and (pck[1]=#$39) then begin   //от сервера получен пакет $39 
    if ReadS(2) = 'Пиротехник' then            //проверяем от кого
       buf:=hstr('43 01 00 00 00');            //Создаем пакет "принять пати"
    else
      buf:=hstr('43 00 00 00 00');             //Создаем пакет "Отказать в пати"
    pck :='';                                  //убиваем этот пакет
    SendToServer;                              //Отправляем его на сервер
  end;  

end.

вот полный скрипт .
И не компилируеться(

[SeregaZ]

бегин во второй иф то добавь - тебе же подсказали сидишь ворон считаешь.

[NLObP]

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

на против else выдает ошибку (крастная строчка) при компиляции

В строке перед else не ставят ;