Кружок нубов(Вопрос-Ответ)

[Nickers]

Сообщение от srgemeos

i looking for protection for my custom dats/ukx/utx.
You know who can help me?

Thanks in advanced!

http://coderx.ru/member.php?u=13250

Я знаю язык, знаю слова, но предложение перевести не могу...
Может потому, что я не понимаю о чем он "dats/ukx/utx".

Добавлено через 1 минуту
Может создадите раздел на англ. языке для иностранных гостей?

[J-Fobos]

Сообщение от Nickers

http://coderx.ru/member.php?u=13250

Я знаю язык, знаю слова, но предложение перевести не могу...
Может потому, что я не понимаю о чем он "dats/ukx/utx".

Вроде как имеется ввиду изменение моделей и анимации в игре.

[Deffol]

можно как нибудь в скрипте типа

if fromclient (pck=hstr('xx xx xx') then
begin
buf:=hstr('yy yy yy');
sendtoserver;
end;

преобразовать стандартный пакет в посылке на сервер, например на DWord? чтоб огромный пакет не занимал много места, а был преобразован?
если можно, подскажите как реализовать именно команду посылки DWord на сервер, а не hstr

[wimax]

Сообщение от Deffol

можно как нибудь в скрипте типа

if fromclient (pck=hstr('xx xx xx') then
begin
buf:=hstr('yy yy yy');
sendtoserver;
end;

преобразовать стандартный пакет в посылке на сервер, например на DWord? чтоб огромный пакет не занимал много места, а был преобразован?
если можно, подскажите как реализовать именно команду посылки DWord на сервер, а не hstr

a:=2;
ReadD(a); -считать 2 байт который 4-рех байтный
WriteD(); -посылка пакета типа Dword //Breadfan: запись в переменную buf значения dword.Но не посылка.
WriteS();-string
WriteH(); -2 байта
WriteC();-1 байт
WriteQ();- 8 байт
WriteF();- 8 байт

[jiroo]

с вашего сайта скачал последнюю версию пакетхака l2phx 3.5.33.166....но в папке с прогой нет файла newxor.dll откуда можно скачать....или скажите как без него подключиться?сервер Freya.....

//Breadfan: это гипотетический файл. Вам, скорее всего - сюда:http://coderx.ru/showthread.php?t=3791

[dyh9l]

jiroo, насколько я помню newxor.dll пакеты расшифровывает, а подключает inject.dll или lspчототам)

[nasty]

Запускаю пакетхак
запускаю ла2
проходит 3 секунды и л2 просто исчезает
как будто бы снят процесс
версия 3.4.1.83
хелпаните знающие люди
сервер интерлюд

//J-Fobos: пожалуйста воспользуйтесь поиском, вопрос уже много раз задавался.

[dyh9l]

nasty, хайд-тулз, виртуальная машина, поиск nophx.dll в патче, изменения перехватов (lsp/inject) и прочее, а вобще в другую тему..

[Хламчег]

const
name='НИК';
TimerInterval=5000;
text='ТЕКСТ';
var
nick:string;
timer1:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
               Timer1:= TTimer.Create(nil) ;
               Timer1.Interval := TimerInterval ;
               Timer1.Enabled := False ;
               Timer1.Ontimer := @OnTimer ;
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
Procedure Target;
begin
nick:=ReadS(22);
Timer1.Enabled:=true;
end;
Procedure OnTimer;
begin
buf:=#$38;
WriteS(text);
WriteD(2);
WriteS(nick);
SendToServerEx(Name);
end;
begin
if (FromServer) and (Connectname=name) and (pck[1]=#$03) then Target;
end.

Помогите со скриптом. Он должен вытаскивать ники из пакета Charinfo, составлять пакет , чтобы писал в приват. В данном случае он просто пишет одному и тому же челу много раз. как я понял тут надо сделать чтото вроде массива из ников... и чтобы вторая часть скрипта с таймером, брала по одному нику, отправляла а после удаляла из массива ник, или же можно просто чтобы перескакивала на следующий.

[Breadfan]

останавливай таймер после отправки

Procedure OnTimer;
begin
  buf:=#$38;
  WriteS(text);
  WriteD(2);
  WriteS(nick);
  SendToServerEx(Name);
  Timer1.Enabled:=false;
end;

это первое. Второе: invterval:=5000 - значит в ситуациях когда будут приходить несколько чаринфо с интервалом менее 5 секунд - не всем им будет послано сообщение, надо делать чтото вроде буфера, для сбора ников...Хотя может это и к лучшему.