26.09.2011, 02:07
|
#7
|
Местный
Регистрация: 31.05.2011
Сообщений: 130
Сказал Спасибо: 287
Имеет 23 спасибок в 22 сообщенях
|
Цитата:
Сообщение от 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 выдает ошибку (крастная строчка) при компиляции
|
(крастная строчка)
|
|
|