ну вообщем вот короче наклепал вот такую фигню смотреть ниже но при приходе пакета 09 реакции от наклепанного 0 что там не так не могу понять помогите разабратса
Код:
procedure fixloginlist;
begin
size:=ReadD(2);
unk1:=ReadD(6);
unk2:=readC(10);
for m:=0 to size do
begin
d:=m*11;
nickname:=readS(d);
ReadMask('dsddddddddddffdq',d,temp4);
ReadMask('ddddddddddddddddddddddddddddddddddddddddffdddchhd',d,temp5);
end;
begin
buf := #$09;
writed(size);
writed(unk1);
writec(unk2);
for m:=0 to size do
begin
writeS('dsgdsg');
writeMask('dsddddddddddffdq',temp4);
writef(0);
writeMask('ddddddddddddddddddddddddddddddddddddddddffdddchhd',temp5);
writed(0);
writed(0);
writed(0);
writed(0);
writef(0);
writef(0);
writed(0);
end;
pck := buf;
end;
end;
begin
if fromserver then
case pck[1] of
#$09: fixloginlist;
end;
Добавлено через 51 секунду
writeS('dsgdsg'); -- для теста скрипта)