Оффтоп
если я правильно понял, и надо из формата HF в Final перевести, то:
delphi Код:
procedure fixCS;
var
i, size, j:integer;
begin
size:=ReadD(2);buf:=#$09;WriteD(size);WriteD(7);WriteC(0);
j:=11;
for i:=1 to size do begin
WriteS(ReadS(j));WriteD(ReadD(j));WriteS(ReadS(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteF(ReadF(j));WriteF(ReadF(j));WriteD(ReadD(j));WriteQ(ReadQ(j));ReadF(j);
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteF(ReadF(j));WriteF(ReadF(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteC(ReadC(j));WriteH(ReadH(j));WriteH(ReadH(j));WriteD(ReadD(j));WriteD(ReadD(j));
WriteD(ReadD(j));WriteD(ReadD(j));WriteD(ReadD(j));WriteF(ReadF(j));WriteF(ReadF(j));
ReadD(j);
end;
pck:=buf;
end;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if fromserver and (pck[1]=#$09) then fixCS;
end.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|