BuffBot

[Amorality]

Arhangel,
Первый у тебя это сразу 2 скрипта и на бд и на свс в 1.. я думаю в этом и проблема.. Чтобы использовать вместе, создай 2 отд. скрипта и поставь галочки на обоих.

Не знаю как в пнх с многопоточностью, поэтому еще у бд и свса поставить реакции на разные действия.

[QaK]

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

Я имею ввиду что ответит пакетхак с отключенным клиентом на GGAuth?

пакетхак сам ничего никогда не делает, это вам не терминатор - восстание машин, чего напрограмируешь, так и будет отвечать.

[DashKAaa]

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

Весь день сегогодня ковыряюсь с этими скриптами...=)
Есть два рабочих скрипта:
1-ый на БД

const MainChar = 'ApxaHrel';
BD = 'Dancerr';

var Timer2:TTimer;
actions2:array[1..6] of string;
nmm:integer;

procedure Init;
begin
nmm:=1;

Timer2:=TTimer.Create(nil);
Timer2.OnTimer:=@proba;
Timer2.enabled:=false;
Timer2.interval:=2300; //задержка 1 сек;

actions2[1]:='56 00 00 00 00 00 00 00 00 00 ';
actions2[2]:='39 13 01 00 00 00 00 00 00 00 ';
actions2[3]:='39 12 01 00 00 00 00 00 00 00 ';
actions2[4]:='39 0F 01 00 00 00 00 00 00 00 ';
actions2[5]:='44';
actions2[6]:='56 00 00 00 00 00 00 00 00 00 ';
end;

procedure proba(Sender:Tobject);
begin if nmm>6 then Timer2.Enabled:=false;
if nmm>6 then nmm:=1
else begin buf:=Hstr(actions2[nmm]);
SendToServerEx(BD);
nmm:=nmm+1;
end;
end;

procedure Free;
begin 
Timer2.Free;
end;

begin

if FromServer and (pck[1]=#$39) and (ConnectName=BD)  then begin//посылаю с 1-го окна пакет "SocialActionYes"
buf:=hstr('43 01 00 00 00');        //Создаем пакет "принять пати"
SendToServerEx(BD);
pck:='';
Timer2.Enabled:=true;
end;
end.

2-ой на СВСа:

const MainChar = 'ApxaHrel';
SWS = 'KaHapeuka';

var Timer1:TTimer;
actions:array[1..6] of string;
nm:integer;

procedure Init;
begin
nm:=1;

Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@proba;
Timer1.enabled:=false;
Timer1.interval:=2000; //задержка 1 сек;

actions[1]:='56 00 00 00 00 00 00 00 00 00  ';
actions[2]:='39 0C 01 00 00 00 00 00 00 00  ';
actions[3]:='39 0D 01 00 00 00 00 00 00 00  ';
actions[4]:='39 0B 01 00 00 00 00 00 00 00  ';
actions[5]:='44';
actions[6]:='56 00 00 00 00 00 00 00 00 00  ';
end;

procedure proba(Sender:Tobject);
begin if nm>6 then Timer1.enabled:=false;
if nm>6 then nm:=1
else begin buf:=Hstr(actions[nm]);
SendToServerEx(SWS);
nm:=nm+1;
end;
end;

procedure Free;
begin 
Timer1.Free;
end;

begin

if FromServer and (pck[1]=#$39) and (ConnectName=SWS)  then begin//посылаю с 1-го окна пакет "SocialActionYes"
buf:=hstr('43 01 00 00 00');        //Создаем пакет "принять пати"
SendToServerEx(SWS);
pck:='';
Timer1.Enabled:=true;
end;
pck:='';
end.

По отдельность работают без проблем...но вот если активировать их 2 одновременно,то один скрипт работает нормально,а второй выдает ошибку Access violation at address 00550C21 in module 'l2pbx.exe'. Read of address 00000000.

хммм...
пользуюсь немножко другими скриптами, из раздела да будет БОТ! (переделал скрипт по поводу буффа ота варка)
т.е у меня и кидает пати ему, дансит и выходит, ну и так круглые суточки...

Не идеально но всеже...
А твой скрипт я как понимаю берем в пати он танцует и усе?

[fragus]

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

пакетхак сам ничего никогда не делает, это вам не терминатор - восстание машин, чего напрограмируешь, так и будет отвечать.

Конечно. Ктото знает как сделать этот пакет?

[QaK]

fragus, возьми ПНХ и клиент и посмотри, что отвечает клиент на тот пакетик.
З.Ы. Вкладка просмотр, надавить батон "Запоминать пакеты".

[fragus]

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

fragus, возьми ПНХ и клиент и посмотри, что отвечает клиент на тот пакетик.
З.Ы. Вкладка просмотр, надавить батон "Запоминать пакеты".

Это я и сам понимаю, всетаки свой снифер для грации на С++ написал )

Дело в том, что сервер шлет запрос авторизации ГГ с некоторым рандомным номером. Нужен алгоритм по которому посчитать ответ. Это бы полностью сняло необходимость использования ГеймГвард в клиенте и с сервера невозможно было бы отследить взлом.

[PanAm]

очень многие хотят знать этот алгоритм ))
а чтоб незапалится, при приходе пакета авторизации ГГ имитируй отваливание клиента