ну вообщем вот короче наклепал вот такую фигню смотреть ниже но при приходе пакета 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'); -- для теста скрипта)
Последний раз редактировалось wimax, 23.05.2011 в 04:40.
Причина: Добавлено сообщение
Что оно делать то вообще должно, по замыслу автора?
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
если я правильно понял, и надо из формата 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:=1to size dobegin
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; //Вызывается при включении скриптаbeginend;
procedure Free; //Вызывается при выключении скриптаbeginend;
//основная часть скрипта//вызывается при приходе каждого пакета если скрипт включенbeginif fromserver and(pck[1]=#$09)then fixCS;
end.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
c http://www.l2jserver.com/ исходники брал. Да впрочем любой декомпил работающей сборки сгодится для этого.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 27.05.2011 в 19:52.
Breadfan, вопрос а имея хекс пакета можна както преобразовать ?
либо с клиента както достать как клиент понемает пакеты от сервера
пакеты от клиента я нашол в вот от сервера нет
Добавлено через 54 секунды
проста у меня пакеты не 100% с l2jserver и запуетса перебирать как они выглядят и править ) и то на 100% не уверен что правильно поправлено
Последний раз редактировалось wimax, 27.05.2011 в 19:53.
Причина: Добавлено сообщение
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?