Хроники Камаель СТ1.5
begin
if FromServer and (pck[1]=#$39) then //от сервера получен пакет $39 AskJoinParty
if ReadS(2) = 'ApxaHrel' then begin //проверяем от кого
buf:=hstr('2A 01 00 00 00'); //Создаем пакет "принять пати"
SendToServer; //Отправляем его на сервер
end;
end.
Результат тот же
Последний раз редактировалось Arhangel, 17.03.2009 в 14:49.
|