[Помогите!] Вопрос по скрипту

[iterlert]

Здравствуйте ещё раз..
Такой вопрос к тем кто владеет скриптописанием, Как сделать чтоб допустим из B5 57 72 6E 8A 72 00 00 скрипт брал вот это 6E 8A 72 00 и вставлял в 23 57 C0 4C ED 88 00 75 45 01 FA 11 5F 00 9A 99 99 3F вот сюда 23 57 C0 4C ED 88 00 75 45 01 FA 11 5F 00 9A 99 99 3F с заменой предидущего?
Прошу помочь..

Зарание спасибо!

[Furydose]

Как я понял, берешь ид из таргета, вставляешь в указанный пакет и посылаешь на сервер? Если так, то вот:

var
id:integer;

begin
 if FromClient and (pck[1]=#$B5)  then 
       begin
            id:=ReadD(4);
            buf:=hstr('23 57 C0 4C ED 88 00 75 45 01');
            writed(id);
            buf:=buf+hstr('9A 99 99 3F');                       
            SendToServer;   
       end;      
    
end.

Или 23 пакет у тебя тоже отсылается и тебе надо его заменить?

[iterlert]

Цитата: Сообщение от Furydose Как я понял, берешь ид из таргета, вставляешь в указанный пакет и посылаешь на сервер? Если так, то вот: var id:integer; begin if FromClient and (pck[1]=#$B5) then begin id:=ReadD(4); buf:=hstr('23 57 C0 4C ED 88 00 75 45 01'); writed(id); buf:=buf+hstr('9A 99 99 3F'); SendToServer; end; end. Или 23 пакет у тебя тоже отсылается и тебе надо его заменить?

Нет, 23 у меня это атака элементаля у закла.. И этот пакет имеет одну структуру за исключением ID цели которая берёться и вставляться как я описл выше.. До тех пор пока не убьют тебя или элементаля, тогда ещё вот эти байты нужно будет менять таргетом на элементаля - 23 57 C0 4C ED 88 00 75 45 01..

И ещё расскажи пожалуйста по строчкам как работает этот скрипт.. хочу понять, чтоб уже самому им манипулировать.. Начиная с слова if

[Furydose]

Т.е. скрипт как тебе надо?

var
id:integer;

begin
 if FromClient and (pck[1]=#$B5)  then  // условие - если пакет от клиента и первый байт пакета B5, то ...
       begin  
            id:=ReadD(4);  //читает из переменной pck (это перехваченый пакет B5) число (4 байта, формат Dword)  и записывает в переменную id
            buf:=hstr('23 57 C0 4C ED 88 00 75 45 01');  // записываю в переменную buf начало твоего пакета
            writed(id); // вставляю тот ид который прочитал из пакета B5 в формате dword
            buf:=buf+hstr('9A 99 99 3F');  // добаляю конец твоего пакета                     
            SendToServer;   // посылаю на сервер переменную buf
       end;      
    
end.

[iterlert]

Да, спасибо огромное! Подросту обязательно поставлю спасибку..)

Добавлено через 5 минут
Ещё одим маленький вопрос, чтоб задать действие которое будет активировать скрипт, допустим слово в чат, нужно сделать вот так?

var
id:integer;

begin
buf:=hstr('Тут пакет с моим словом в чат');
 if FromClient and (pck[1]=#$B5)  then  // условие - если пакет от клиента и первый байт пакета B5, то ...
       begin  
            id:=ReadD(4);  //читает из переменной pck (это перехваченый пакет B5) число (4 байта, формат Dword)  и записывает в переменную id
            buf:=hstr('23 57 C0 4C ED 88 00 75 45 01');  // записываю в переменную buf начало твоего пакета
            writed(id); // вставляю тот ид который прочитал из пакета B5 в формате dword
            buf:=buf+hstr('9A 99 99 3F');  // добаляю конец твоего пакета                     
            SendToServer;   // посылаю на сервер переменную buf
       end;      
    
end.

Добавлено через 17 минут
Или вот так?

var
id:integer;
begin
if(fromclient) then
begin
sendMsg(ReadS(5));
if(Pos('/cc',ReadS(5))=1) then
begin
//buf:=hstr('Тут пакет с моим словом в чат');
 if FromClient and (pck[1]=#$B5)  then  // условие - если пакет от клиента и первый байт пакета B5, то ...
       begin  
            id:=ReadD(4);  //читает из переменной pck (это перехваченый пакет B5) число (4 байта, формат Dword)  и записывает в переменную id
            buf:=hstr('23 57 C0 09 98 8C 00 75 45 01');  // записываю в переменную buf начало твоего пакета
            writed(id); // вставляю тот ид который прочитал из пакета B5 в формате dword
            buf:=buf+hstr('9A 99 99 3F');  // добаляю конец твоего пакета                     
            SendToServer;   // посылаю на сервер переменную buf
       end;      
 end;
 end;   
end.

Добавлено через 48 минут
хм.. вроде понял почему..
Начну с начала..
Идея такая:
Автоматизировать процес таргета и отправки пакета атаки элементаля..

Как я делаю:
Вызвав предварительно элементаля земли делаю таргет на цель и даю команду элементалю "Команда: Волнение I", далее ловлю пакет
23 57 C0 E6 E5 8C 00 75 45 01 E6 E5 8C 00 9A 99 99 3F
где:
ID самого элементаля
ID цели для атаки
Ставлю этот пакет в отправку и жму на часики 0.10 +- 0.01
в игре элементаль земли бьёт противника и лечиться от урона..
Когда противник повержен, делаю таргет на нового противника ловлю пакет B5 57 72 A6 E8 8C 00 00 и копирую из него ID следующей цели для атаки а именно A6 E8 8C 00 и вставляю в нах пакет в посылке на место прошлого ID цели для атаки, получаю 23 57 C0 E6 E5 8C 00 75 45 01 A6 E8 8C 00 9A 99 99 3F.. и снова жму на часики, в игре дух продолжает стоять рядом со мной, я делаю двумя способами, либо оставляю духа на месте и иду к монстру потом бегу к духу подманивая монстра к духу и дух начинает его бить, либо жму на атаку духа и он бежит бьёт 1 раз своей обычной атакой, и начинает бить безперерывно пакетом пока не убьёт.. Когда элементаля убивают, и я вызываю нового то делаю таргет на самого элементаля сначала и меняю в имеющемся пакете 23 с 4-7 байты из пакета B5.. и меняю ID цели для атаки как описано выше..

Просьба:
Помогите это всё автоматизировать путём скрипта..

Добавлено через 2 часа 23 минуты
Скрипт работает на ура, только вот на что наткнулся.. он работает если в посылку на часики поставить пакет B5 57 72 00 00 00 00 00, тоесть сброс таргета.. Вот как я делаю.. Ставлю на часики пакет B5 57 72 00 00 00 00 00 с параметрами отправки 0.10 +-0.01 и запускаю скрипт.. Иду в игру, тыкаю на монстра, пакет B5 57 72 00 00 00 00 00 сбрасывает таргет, снова тыкаю (нужно в интервале между пакетом B5 57 72 00 00 00 00 00 и таргетом на монстра успеть нажать обычную атаку духа, он побежит атаковать и вот тогда то прижёться постоянно тыкать на монстра пока он не помрёт..) и так с каждым новым монстром.. Не нашёл варианта, как можно сделать чтоб B5 57 72 00 00 00 00 00 посылался скриптом или просходил новый таргет на того же монстра.. Или нужно задать условие отправки пакета из переменной buf зациклев его.. допустим по нажатии макроса.. Напомню скрипт:

var
id:integer;

begin
//buf:=hstr('Тут пакет с моим словом в чат');
 if FromClient and (pck[1]=#$B5)  then  // условие - если пакет от клиента и первый байт пакета B5, то ...
       begin  
            id:=ReadD(4);  //читает из переменной pck (это перехваченый пакет B5) число (4 байта, формат Dword)  и записывает в переменную id
            buf:=hstr('23 57 C0 3F C8 8F 00 75 45 01');  // записываю в переменную buf начало твоего пакета
            writed(id); // вставляю тот ид который прочитал из пакета B5 в формате dword
            buf:=buf+hstr('9A 99 99 3F ');  // добаляю конец твоего пакета                     
            SendToServer;   // посылаю на сервер переменную buf  
            buf:=hstr('B5 57 72 00 00 00 00 00');
       end;      


end.

[manyunya]

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

есть и готовые скрипт, но мало кто ими делился
а я щас не могу свой найти хз де он.

[iterlert]

Цитата: Сообщение от manyunya подскажу, делай все через таймеры подробнее читай на форуме разработчиков пакетхака есть и готовые скрипт, но мало кто ими делился а я щас не могу свой найти хз де он.

Жаль, что не знаешь где скрипт.. Мне бы он очень пригодился.. Если есть возможность, поищи пожалуйста.. А через таймер мне уже предложили, вот..

const
interval = 1;
name = 'Ваш ник'; 
var
Timer:TTimer;
MyPck:string;

procedure Init; //Вызывается при включении скрипта
begin
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=interval;
end;

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

procedure OnTimer(Sender: TObject);
begin
buf:=MyPck; 
SendToServer;
buf:=MyPck; 
SendToServer;
buf:=MyPck; 
SendToServer;
end;


begin
if FromClient and (pck[1]=#$23) and (ConnectName=name)  then
MyPck:=pck; 
Timer.enabled:=true;
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then Timer.enabled:=false;
end.

но там свои проблемы..(( Можно тот скрипт который тут описан, соединить с тем который в этой теме мне предложили..

[iterlert]

Можно ли в скрипте с таймером обойти задание имени соединения?