// Инвизибле. -5075
//
//
//C->S
//1F00 01 51320000 FFC50200 FCF1FFFF FD310000 EEC50200 15F2FFFF 01000000
//
if _gAbsNumPkt = 1 then begin
SocialID := 0;
Status := 0;
end;

if length(_gbuff) < 3 then exit;

if (not _gFromServ) and (_gBUff[3] = #$1B) then begin
SocialID := gInt(_gBuff,4,4);
case SocialID of
6: Status := 1;
5: Status := 0;
end;
writelog('статус невидимости: ',status);
end;

if (Status = 1) then begin

if not _gFromServ then // если этот пакет с клиента (бота)
if copy(_gBuff,1,3) = #$1F+#$00+#$01 then begin // если 3 первых байта пакета равны 1F 00 01
_gOutBuff := _gBuff; // копируем буфер на выход (он должен быть именно с таким названием)
_gOutBuff[12] := $2D; // меняем в пакете значение
_gOutBuff[13] := $EC; // меняем в пакете значение
_gOutBuff[14] := $FF; // меняем в пакете значение
_gOutBuff[15] := $FF; // меняем в пакете значение
_gOutBuff[24] := $2D; // меняем в пакете значение
_gOutBuff[25] := $EC; // меняем в пакете значение
_gOutBuff[26] := $FF; // меняем в пакете значение
_gOutBuff[27] := $FF; // меняем в пакете значение
end;
//
//C->S
//1700 48 55320000 FDC50200 15F2FFFF 7E8C0000 00000000
//
if not _gFromServ then // если этот пакет с клиента (бота)
if copy(_gBuff,1,3) = #$17+#$00+#$48 then begin // если 3 первых байта пакета равны 17 00 48
_gOutBuff := _gBuff; // копируем буфер на выход (он должен быть именно с таким названием)
_gOutBuff[12] := $2D; // меняем в пакете значение
_gOutBuff[13] := $EC; // меняем в пакете значение
_gOutBuff[14] := $FF; // меняем в пакете значение
_gOutBuff[15] := $FF; // меняем в пакете значение
end;
end;

А ты сделал свой выбор?