BuffBot

[Amorality]

PanAm,
Спасибо .. Только лучше наверно сделать так , чтобы БД никак не отвечал на запросы от других ников , а то слишком заметно , что бот .. Просто нужно убрать Else и строчку под ним? А хотя нет , клиент же выгружен , а можно поставить в Else так , чтобы через несколько секунд отвечал НЕТ , как клиент?

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

----
Это ведь будет задержка 5 секунд? Кто кстати знает сколько точно ждет клиент перед тем как ответить нет?