[Arhangel]

Хроники Камаель СТ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.

Результат тот же