Код:
Procedure fixuserinfo;
Var
a,cubsize,v,b:integer;
i:word;
size:array[0..110] of variant;
size1:array[0..40] of variant;
cubid:array[0..4,0..1] of integer;
size2:array[0..49] of variant;
size3:array[0..10] of variant;
size4:array[0..10] of integer;
begin
a:=2;
ReadMask('dddddsddddqdddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd',a,size);
b:=readD(a);
v:=ReadD(a);
ReadMask('ddddddddddddddddddddffffddddsdddddcccdd',a,size1);
cubsize:=ReadH(a);
For i:=0 to cubsize do
begin
cubid[i,1]:=ReadH(i*2+a);
end;
ReadMask('cdchhhdhddddccdcccddddcddddd',a,size2);
ReadMask('hhhhhhhh',a,size3);
ReadMask('dddddd',a,size4);
pck:='';
begin
buf:=#$32;
WriteMask('dddddsddddqddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd',size);
WriteMask('ddddddddddddddddddddffffddddsdddddcccdd',size1);
WriteH(cubsize);
For i:=0 to cubsize do
begin
WriteH(cubid[i,1]);
end;
WriteMask('chchhhdhddddccdcccddddcddddd',size2);
WriteMask('dddddddd',size3);
WriteMask('dddd',size4);
end;
SendToClient;
end;
править под свой серв