BuffBot

[PanAm]

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

А вот еще вопрос , можно ли сделать так , чтобы от ника Amorality этот выгруженный клиент сразу принимал пати

Примерно так

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

Добавлено через 13 минут
ой, нет
В вашем случае, когда клиент уже выгружен, надо так

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

и кстати, тоже надо сделать с приемом трейда, и другими действиями, на которые клиент сам отвечает через определенный промежуток времени. Ибо консперация.