delphi Код:
var levels:integer;
....
levels:=0;
.....
if (ConnectName=name) and (FromClient) then
begin
if (pck[1]='#$1B') and (pck[2]='#$06') then //социальное действие Yes
begin
levels:=levels+1;
buf:=#$6C; //6C
WriteD(258); //02 01 00 00
WriteD(levels); //
WriteD(0); //00 00 00 00
SendToServerEx(Name);
end;
end;
как-то так, не проверял на работоспособность)