Еще 1 вопросик

[Sashafaq]

Помогите пожалста )
мне нужно из 1 пакета сосчитать с 2 по 24 бит включительно и добавить к нему еще 4 бита
это нужно для того чтобы иг бот мог ходить у меня на серве
там пакет (MoveBackwardToLocation) от клиента немного отличается от пакета который бот отправляет ( последними 4 битами 01 00 00 00 что означает что я типо мышкой нажал)

я сделал вот так

const
b1= '01 00 00 00';

var
cursq :String; //координаты бота

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

end;

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

end;

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

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin
end;
begin
if FromClient and (pck[1]=#$01) then
begin
cursq:=pck;
pck:=cursq + hstr(b1);
end;
end.

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

простите что такой примитивный вопрос но я долбался часа 4 чтобы написать такую шнягу и перепробывал много чего пользуясь примерами на этом сайте

[mks]

Sashafaq, начнем с того что ты говоришь про байты а не биты, если тебе надо заменить последние 4 байта с 25го на 01 00 00 00 в пакете от клиента с ИД 01, то сделай так:

begin
if FromClient and (pck[1]=#$01) then
begin
buf:=pck;
WriteD(1,25);
pck:=buf;
end;
end.

если я тебя не правильно понял выложи оба пакета, какой идет, и какой надо что б шел, подправим

[Sashafaq]

ты меня прально понял огромное пасибо тебе )

Добавлено через 2 минуты
ну чтото не оч получается выходит пакет уже не с ID 01

[mks]

Sashafaq, поправил во WriteD местами поменял числа, ато он не 1 в 25й писал, а 25 в 1й байт)

[NLObP]

Sashafaq, ты говорил, что надо 4 байта добавлять в конец, это так?

Проверь этот скрипт.

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
  if pck='' then exit; //пропускаем пустые пакеты
  if FromClient and (pck[1]=#$01) then
  begin
    buf:=pck; //сохранили пакет
    pck:='';   //очистили пакет
    buf:=buf + hstr('01 00 00 00');  //создали новый
    SendToServer;          //отправили на сервер
  end;
end.

[Sashafaq]

пасиб конешн но у мя подобие такого скрипт
но я хотел бы выборочно добавлять в конец ,если так оставить то от иг бота пральные пакеты идут а от клиента длиннее ,я хочу чтобы конкретно кажется с 25 бита были вот эти 01 00 00 00

[TAMBIK]

Sashafaq,

от mks,

если я тебя не правильно понял выложи оба пакета, какой идет, и какой надо что б шел, подправим

покажи пакеты
mks, как посоветовал что у те не получается

Добавлено через 9 минут

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
  if pck='' then exit; //пропускаем пустые пакеты
  if FromClient and (pck[1]=#$01) then
  begin
    buf:=pck; //сохранили пакет
    pck:='';   //очистили пакет
    WriteD(1,25); //добавили с 25--01 00 00 00
    SendToServer;          //отправили на сервер
  end;
end.

[mks]

TAMBIK,

    buf:=pck; //сохранили пакет
    pck:='';   //очистили пакет
    WriteD(1,25); //добавили с 25--01 00 00 00
    SendToServer;          //отправили на сервер

конечно работать будет и так, но зачем сначала убивать пакет, а потом отправлять новый, если можно тупо заменить старый(как в моем варианте), еще плюс уже и коннект выбирать не придется, он пойдет туда куда и шел

[NLObP]

mks, изменение длины строки в переменной pck пакетхак нормально отработает?

[mks]

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

mks, изменении длины строки в переменной pck пакетхак нормально отработает?

а длина строки и так и так останется такой какой и была, например WriteD(255,2) тупо заменит в buf buf[2..5] на FF 00 00 00
или ты о чем?

Добавлено через 2 минуты
а, врубился че ты имел в виду, если размер пакета поменяется, хз не проверял вроде