OutGame Бот на ПакеХак!

[poizon]

а с валидпозишнм что?есть разбор пакета у кого?

Добавлено через 2 часа 41 минуту
короче вот скрипт который при отключении посылает нетпинги

PHP код:

Const
  Name='kolobok';
var
ok, srvconst, pingid, ping: integer;



procedure Init; //Вызывается при включении скрипта


begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
ok:=0
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения

begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;




Procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
 if (ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then
 begin
 srvconst:=ReadD(10);
 Say('Константа сервера получена, можно выключать клиент=');
 pck:='';
 ok:=1;
 end;


 if (ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then
 begin
 pingid:= ReadD(2);

 ping:= 31 + (int(random()*3));
 buf:= #$A8;
 WriteD(pingid);
 WriteD(ping);
 WriteD(srvconst);
 SendToServerEx(Name);
 say(inttostr(ping));
 end;
end. 


когда получена константа тогда вырубаем

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

[QaK]

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

допустим я сделал магазин посадил бота своего и вышел.у меня чтото купили, когда купили не нужно чтото типа валид количества предметов ?

Там, по-моему от сервака приходит 2 пакета - инветори апдейт, и пакет с инфой кто и сколько чего у тя купил.

[Imperial2008]

Я конечно извиняюсь за столь нубский вопрос.
У меня постоянно компилятор выбивает на "NoFreeOnClientDisconnect" Undeclared Identifier. Как понимаю незадекларированный идентификатор. Скажите как это "исправить"?)

[NLObP]

Imperial2008, переименованы. Воспользуйся поиском.

[Imperial2008]

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

Imperial2008, переименованы. Воспользуйся поиском.

Лажу уже который час, и так и сяк ищу, но не упоминается об этом. Я понимаю что легче послать "в поиск", но можно и просто "ткнуть меня носом". Понимаю что достал) Пожалуйста

[NLObP]

Imperial2008, вот здесь есть упоминание.

[SolaVento]

Кто может, помогите, плиз.
Не могу включить полноценный аутгейм режим работы скриптов. После отключения клиента чар остаётся в игре, скрипты принимают и обрабатывают пакеты, НО ничего не посылают.
Использую функции
NoCloseClientAfterServerDisconnect;
NoCloseServerAfterClientDisconnect;
Версия пакетхака - 3.5.13.122. Вот кусок лога проги:

Тунель ($56272772) создан
Тунель ($56272772) запущен для чтения с сокета № 344
Тунель ($56272772), Серверный сокет № 344 / Клиентский сокет № 336, Соединение с 81.25.32.15:7777 .....
Тунель ($56272772), Серверный сокет № 344 / Клиентский сокет № 336, Соединение установлено с 81.25.32.15:7777
Имя соединения для тунеля ($56272772): xxx
Script: логаут
Тунель ($56272772) Отвалились от сервера

[rootKit]

PHP код:

Const
  Name='kolobok';
var
ok, srvconst, pingid, ping: integer;



procedure Init; //Вызывается при включении скрипта


begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
ok:=0
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения

begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;




Procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
 if (ok=0) and fromclient and (ConnectName=Name) and (pck[1]=#$A8) then
 begin
 srvconst:=ReadD(10);
 Say('Константа сервера получена, можно выключать клиент=');
 pck:='';
 ok:=1;
 end;


 if (ok=1) and FromServer and (ConnectName=Name) and (pck[1]=#$D3) then
 begin
 pingid:= ReadD(2);

 ping:= 31 + (int(random()*3));
 buf:= #$A8;
 WriteD(pingid);
 WriteD(ping);
 WriteD(srvconst);
 SendToServerEx(Name);
 say(inttostr(ping));
 end;
end. 


Супер. спасибо работает. Но есть одно но. Когда я выключаю клиент ПакетХак начинает в окно лога писать WSA error 10038/284 и очень сильно загружать процессор. Можно ли както избежать вывода этого сообщения и соответственно разгрузить проц?

[QaK]

rootKit, нахрена в запихал месту и не к месту

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

begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;*
if*(ok=0)*and*fromclient

выделенный кусок убери

[rootKit]

Блин... Я конечно тоже слепой) Мог бы и заметить...

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

rootKit, нахрена в запихал месту и не к месту
выделенный кусок убери

Я и не пихал) тупо содрал из поста Poison)