Подскажи что тут не правильно ?
Код:
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 выдает ошибку (крастная строчка) при компиляции