begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2199)then
begin
buf:=hstr('CF 57 6C 9B 08 09 00');
writeD(readD();
buf:=buf+hstr('CF 02 05 56 00 00');
sendtoserver;
begin
begin
if(fromclient)and(pck[1]=#$CF) and (ReadH(4)=2199)then
buf:=hstr('CF 57 6C 9F 08 01 00');
writeD(readD();
buf:=buf+hstr('BA 05 05 64 00 00');
sendtoserver;
end;
end;
end;
end.