Цитата:
Сообщение от Amorality
А вот еще вопрос , можно ли сделать так , чтобы от ника Amorality этот выгруженный клиент сразу принимал пати
|
Примерно так
delphi Код:
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 минут
ой, нет
В вашем случае, когда клиент уже выгружен, надо так
delphi Код:
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.
и кстати, тоже надо сделать с приемом трейда, и другими действиями, на которые клиент сам отвечает через определенный промежуток времени. Ибо консперация.