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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[VORON]

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

Вот счас поработал над 3мя скриптами, не уверен что всё верно зделал, так как не всегда знаю где пакет от сервера, а где от клиента. Но надеюсь что работать будет. Есчё раз спс за подробное разьяснение для нуба.

Добавлено через 7 часов 0 минут
В посте выше отредоктированный скрипт, но почемуто не работает, видимо здесь нужно есчё поменять формат пакета, но как это определить и поменять незнаю. Если ктонить натолкнёт на правильный путь, буду благодарен.

глядя на код ты всегда можеш точно сказть откуда пакет.. программа пакетхак сидит посредине между сервером и клиентом и прослушивает всё что передют они друг другу.. а также может вмешаться в процесс передачи пакетов..
глянь на пару примеров из скрипта локомотив от Alexus..

//Записываем текущие координаты
if FromClient and (ConnectName=Name) and (pck[1]=#$48) then begin
X:= ReadD(2);
Y:= ReadD(6);
Z:= ReadD(10);
end;

тут всё понятно.. мы слушаем трафик.. и запоминаем какуюто информацию из потока данных.. причем нас интерисует только то что FromClient и ConnectName=Name и pck[1]=#$48
что такое pck[1]=#$48 думаю из коментария всё понятно.. ето пакет в котором клиент передает серверу координаты.. ну может быть пакет и длинный там идет но координаты в нем записаны в начале пакета..
что делать если нет комментария? глянуть файл Packets.ini в папке с пакетхаком.. и в нем найти нужный пакет в нашем случае #$48 из етого файла ты прочтеш то что:
48=ValidatePosition:d(X)d(Y)d(Z)d(Heading)d(Data)
пакет называется валидейт позишн (название пакета имеет обычно простой и интуитивно понятный перевод с английсково в нашем случае - УТВЕРЖДАЮ КООРДИНАТЫ) в нем после идешника(заголовок пакета) (заголовок пакета ето его название типа- игра понимает как воспринимать ету кучу данных исходя из ИДешника) идут данные.. эти данные строго определенной длинны.. ты заранее можеш сказать сколько байт в етом пакете будет.. (для справки байт = число в диапазоне от 0-255 в десятичной и 0-ff в шестнадцатиричной системах) мы смотрим что после заголовка идет : d(X). делаем вывод что после заголовка 4 байта несут в себе координату по икс.. почему 4? потомучто d(X).. D буква говорит об размерности 4 байта.. аналогично делаем вывод что с 6-го по 9-й байты будет координата по игрик потомучто в описании написано: 48=ValidatePosition:d(X)d(Y)
ну с Z все и так понятно.. дальше мы видим что после координат передается d(Heading) .. что такое Heading я незнаю.. но мы точно можем судить об том что оно хранится в етом пакете в 4-х байтах в каких именно? с 1+4+4+4+ХХ ХХ ХХ ХХ+4 в етих иксах оно хранится..
ну и так далее по пакету.. с 14 по 17 байты значит..
да там всё просто ты ток всмотрись повнимательней.. а если не понятно то глянь хорошо-прокомментированные скрипты из первого поста в топе ДА БУДЕТ БОТ.. там они очень примитивны.. восновном без использования самописных функций и процедур..

[PanAm]

ADD Heading - угол, направление куда смотрит чар, обычно контролировыать не надо и игнорируется.

[MaRLiN]

народ, у меня вот такая вот проблема, ставлю пакетхак на кач, точнее на набивание колов, около часика всё работает бот качается, потом провисает и вылезает куча ошибок каскадом, вот тут видно http://www.photoshare.ru/photo3132638.html ктонить помагите, скажите в чём трабла? я все версии пакетхака поперепробывал везде одно и тоже!

[Stasrus]

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

Начальный вариант без моих замутов:
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
begin
buf:=hstr(b1);
SendToServer;
buf:=hstr(b2);
SendToServer;
buf:=hstr(b3);
SendToServer;
end.

[NLObP]

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

[Stasrus]

NLObP,
Все равно с таймером путается порядок отправки и\или отправляется по нескольку раз один и тотже пакет
Вот вариант с таймером

//(c)dmitry501
const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';


var
tick: Integer;

procedure Init;
begin

end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;



begin
if pause(5) then
begin
buf:=hstr(b1);
SendToServer;
end;
if pause(10) then
begin
buf:=hstr(b2);
SendToServer;
end;
if pause(15) then
begin
buf:=hstr(b3);
SendToServer;
end;


end.

хотелось бы получить что то типа такого:

const
b1='11 11 11 ';
b2='22 22 22 ';
b3='33 33 33 ';
var
x: integer;
begin
x:=1;
end;
if x=1 then
begin
buf:=hstr(b1);
SendToServer;
x:=x+1;
end;
if x=2 then
buf:=hstr(b2);
SendToServer;
x:=x+1;
end;
if x=3 then
buf:=hstr(b3);
SendToServer;
x:=1;
end;
end.

[NLObP]

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

хотелось бы получить что то типа такого:

Типа такого уже выкладивали. Примерно так.

const
  b1='11 11 11 '; 
  b2='22 22 22 '; 
  b3='33 33 33 '; 
var
  x: integer;
  PauseTimer: Ttimer;     //таймер паузы

procedure Init; //Вызывается при включении скрипта
begin
  PauseTimer:=TTimer.Create(nil);
  PauseTimer.Enabled:=true;
  PauseTimer.Interval:=1000; //время задержки между посылками пакета
  PauseTimer.OnTimer:=@OnPause;
  x:=1;
end;

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

// Парсер/Исполнитель: главный цикл обработки команд Валкера
//******************************************************************************
procedure  OnPause(Sender: TObject);
var
  s, cmd, param : string;
begin
  case x of
    1: begin
      buf:=hstr(b1);
      SendToServer;
      inc(x);
    end;
    2: begin
      buf:=hstr(b2);
      SendToServer;
      inc(x);
    end;
    3: begin
      buf:=hstr(b3);
      SendToServer;
      inc(x);
    end;
    4: begin
      x:=1;
      PauseTimer.Enabled:=false; //отключаем посылку
    end;
  end;
end;

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

end.

[Stasrus]

NLObP, Неработает так как нужно, как и в моих скриптах или посылает не все или меняет местами...

[NLObP]

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

NLObP, Неработает так как нужно, как и в моих скриптах или посылает не все или меняет местами...

Вроде ничего не путает. Скорость посылки 500 мс. Запускал несколько раз (14 от предыдущей попытки).

[Stasrus]

Разобрался почему у меня шла путаница
Заменил

buf:=hstr(b1);
      SendToServer;
      inc(x);

на

buf:=hstr(b1);
      SendToServerEx('Name');
      inc(x);