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

[ScythLab]

Я может не уловил суть последней беседы, но написать OOG бота не слишком сложная задача, а вот разобраться с шифрование трафика, это уже геморройно.
Вроде были какие-то механизмы по отвязыванию клиента после запуска, но это работало только в конкретных случаях (когда трафик шифровался стандартным алгоритмом, а клиент нужен был только для правильного формирования первых пакетов типа LSRequestAuthLogin).

[SeregaZ]

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

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

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

  //кончились бабки
  if FromServer and (ConnectName=Name) and (pck=HStr('64 BD 02 00 00 00 00 00 00')) 
  then begin
     iditem:='0';
     a:=1;
     b:=0;
     Timer01.enabled:=false;
     
     buf:=#$4A;
     WriteD(0);
     WriteD(10);
     WriteS('');
     WriteS('бабло кончилось');
     SendToClient;     
  end;

  //блокировка перемещения
  if FromClient and (ConnectName=Name) and (pck[1]=HStr('01')) and (start=1) and (Target='0') 
  then begin 
    pck:='';
   
    
  end;

end.

то есть перед каждым условием а "это" ли это соединение? а от сервера ли пришло? или правильней сделать сначала проверку это ли соединение, потом от сервера и внутри уже фигачить прочие условия?

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin  
  
  if (ConnectName=Name) then begin
    if FromServer then begin
      
      //кончились бабки
      if (pck=HStr('64 BD 02 00 00 00 00 00 00')) 
      then begin
        iditem:='0';
        a:=1;
        b:=0;
        Timer01.enabled:=false;
     
        buf:=#$4A;
        WriteD(0);
        WriteD(10);
        WriteS('');
        WriteS('бабло кончилось');
        SendToClient;     
      end;

      //еще стописят других условий
      
    end
    else begin //значит фром клиент
      
      //блокировка перемещения
      if (pck[1]=HStr('01')) and (start=1) and (Target='0') 
      then begin
        pck:='';
      end;

       //еще стописят других условий
      
    end;
    
  end;

end.

[xixi]

if (pck=HStr('64 BD 02 00 00 00 00 00 00'))

Начать хотя бы с этого треша.

[SeregaZ]

чем тебе такой треш не понравился? работает же! это вроде как сообщение что у вас нехватает чото там бла бла бла...

[kpa9pt]

За оптимизацию!)

[SeregaZ]

вот ты изврат... пожалел бы юзверей с дырявым интернетом!

[xixi]

Не знаю какой-то копипаст эдишен без малейшего намека на использование функций и процедур.

[SeregaZ]

пока делал оптимизацию еще забодяжил пару фишек автобот запоминает предыдущую цель и если текущая цель мертва - переключается на старую. удобно если ты рб долбишь, а тут подружки реснулись - ты на подружку навелся, лупишь, автоботы помогают, подружка здохла - автоботы сами на рб переключились другая фишка - если нет ассиста от мейна, то автоботы стоят в режиме автозащиты - лупят по всем, кто в них стреляет или атакует милишно. есть конечно недоработки не отловил момент глюка, когда в качестве предыдущей цели автоботы запоминают мейна и начинают подтупливать малёк так-же не удобная фигня если моб далеко, стоит в куче мобов и начинает кастовать скил какой-то - автобот начинает по нему палить, в результате все кто стоял рядом с кастующим мобом срываются лупашить твой недоботопак но один фиг доволен как слоннннн! еще думаю докучи аналогично маговскому - лукопак забодяжишь из трех луков. сам будучи на бише. правда лечить и таргеты раскидывать - будет не удобно.

[SeregaZ]

переменная как стринг
var
assist:string;

при наведении таргета пишется что-то типа такого:
if (pck[1]=#$29)
then begin
assist:=pck[6]+pck[7]+pck[8]+pck[9];
end;

соответственно при отправке на сервер пакета для таргета мне ненадо парится с переводом обратно:
buf:=HStr('04 ') + assist + mycoord + HStr(' 00');
SendtoserverEx(Name);

все вроде работает... но тут приспичило "поглядеть" что-же он туда пишет. по идее там что-то типа: "A3 B2 FF 52" - коим образом их получить? при писанине как есть:
ShowMessage(assist);
получается херня.

как бы увидеть сообщение прям как оно там и записано в хексе? не хотелось бы WriteD-ReadD использовать изначально при отлове ассиста, переделывать придется мноооооооооооооого был бы рад, если есть какая-то команда для этого хекса.

[kpa9pt]

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

переменная как стринг
var
assist:string;

при наведении таргета пишется что-то типа такого:
if (pck[1]=#$29)
then begin
assist:=pck[6]+pck[7]+pck[8]+pck[9];
end;

соответственно при отправке на сервер пакета для таргета мне ненадо парится с переводом обратно:
buf:=HStr('04 ') + assist + mycoord + HStr(' 00');
SendtoserverEx(Name);

все вроде работает... но тут приспичило "поглядеть" что-же он туда пишет. по идее там что-то типа: "A3 B2 FF 52" - коим образом их получить? при писанине как есть:
ShowMessage(assist);
получается херня.

как бы увидеть сообщение прям как оно там и записано в хексе? не хотелось бы WriteD-ReadD использовать изначально при отлове ассиста, переделывать придется мноооооооооооооого был бы рад, если есть какая-то команда для этого хекса.

+1, в своё время тоже пытался сделать запись всех байтов с определённых пакетов в текстовый фаил, и ничего не получалось, нашёл другой способ и не углублялся дальше.