Cтатистика

[dyh9l]

Ловишь пакет который "а есть какойто способ полегче зделать токо з 7 на 8" потом процедурку если от сервера пришел этот пакет то увеличиваем переменную a на 1 Inc(a) а потом выводим "а", т.к. ты выводишь в лог то sendmsg(vartostr(a));

[goodvin1709]

ВСЕ ЗДЕЛАЛ
const
nick = 'NameAlreadyExis';
var
A : Integer ;
Procedure init ;
begin
a:=0;
end;

begin
if (fromServer) and (connectname=nick) and (pck[1]=#$F3) then
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$F3) and (pck = HStr('F3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00')) then
begin
inc(a,1);
SendMSG('Пришло пакетов..') ;
delay(500) ;
SendMSG(vartostr(A));
end ; ;
end ;
end.
вот подсчет) токо других пакетов ну вам нада если что тут основа

Добавлено через 12 минут
уже чуть понимаю в ЕТОМ))))))))