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

[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.

где я ошибся?

[-=Ma}{imuS=-]

у меня тож проблема с Delay, но это пофиг сильно не мешает.
а вопрос собственно в следующем:
вот у меня в L2pch несколько скриптов (таймеров) один на танцы, другой на бафф ПП, другой на бафф СЕ. но если их включить одновременно они никак нехотят работать, работает только один из них
что прописать в скрипте чтоб он определял в каком из окон клиента он должен работать и чтоб они работали все одновременно?

[NLObP]

Сообщение от -=Ma}{imuS=-

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

Const
  Name='NLObP';     //имя чара которым управляет скрипт
//***************************************************************
//                 сообщения в приват, на сервер не отправляются
//***************************************************************
procedure Say(msg:string);
begin
  buf:=hstr('4A 00 00 00 00');
  WriteD(2);
  WriteS(Name);
  WriteS(msg);
  SendToClientEx(Name);
end;

begin
  //обрабатываем свои пакеты от сервера
  if (ConnectName=Name) and FromServer then begin
...
end.

То есть использовать процедуры:
SendToClientEx(Name);
SendToServerEx(Name);
и проверять:
ConnectName=Name

ЗЫЖ поищи в скриптах, именно так в основном и используются они

[Byrger]

У меня возник ещё 1 вопрос....

Нужен скрипт примерно такой...


отослать пакет
---задержка 200мс---
отослать пакет 2
---задержка 200мс---
отослать пакет 3
....
отослать пакет 9
---задержка 200мс---
Остановить цикл...
Я так понимаю это с помощю таёмеров можно сделать...но как?

[Grinch]

вот хз как работать тока будет понятия не имею

Var timer: integer;
procedure T(timer);
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := timer;  // задержка таймера 12к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
T(времени)//хз как будет это работать 
 

видимо надо додумать )

Добавлено через 38 секунд
скорей всего не будет

Добавлено через 1 минуту
хотя таймер на баф работает, как это не странно поищи в теме да будет бот ) динамически берётся интервал между бафами

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

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

[Byrger]

Надо кроче примерно за 2 секунды кинуть в торг 3 раза одно и тоже кол-во аден...и остановить скрипт (а также пакет на принятие и кидание торга вначале)

[Grinch]

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

[Byrger]

Кто-то говорил о читах? Где? Оо
Мне просто нужно отправить пару пакетов с интервалом...
И закрыть цикл затем...

[-=Ma}{imuS=-]

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

//вписать имя бота
//взять командира в таргет
//для запуска скрипта бафнуть (можно только один первый бафф)
const //buffs, dance
    Name='bot';
    d1='2F B4 04 00 00 00 00 00 00 00';    // WW
    d2='2F 2C 04 00 00 00 00 00 00 00';    // might
    d3='2F 10 04 00 00 00 00 00 00 00';    //shield
    d4='2F 0C 04 00 00 00 00 00 00 00';    //magicbarier
    d5='2F 14 04 00 00 00 00 00 00 00';    //regen
    d6='2F 15 04 00 00 00 00 00 00 00';    //blessbody
    d7='2F 18 04 00 00 00 00 00 00 00';    //blessoul
    d8='2F 3E 04 00 00 00 00 00 00 00';    //haste
    d9='2F 35 04 00 00 00 00 00 00 00';    //focus
    d10='2F DA 04 00 00 00 00 00 00 00';    //crit
    d11='2F D8 04 00 00 00 00 00 00 00';    //guidance
    d12='2F A7 04 00 00 00 00 00 00 00';    //resist

var
  Timer1 : TTimer; 

procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 1200000;  // задержка таймера (для танцев бд 125000)
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;  
end;

procedure Free;
begin
  Timer1.Free;
end;

procedure OnTimer;
begin
  begin
  buf:=hstr(d1);
  SendToServerEx(Name);
  delay (3100);                    //для танцев delay можно сделать меньше
  end;

  begin
  buf:=hstr(d2);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d3);    
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d4);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d5);     
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d6);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d7);    
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d8);     
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d9);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d10);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d11);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr(d12);   
  SendToServerEx(Name);
  delay (3100);
  end;

  begin
  buf:=hstr('04');   
  SendToServerEx(Name);
  end;
end;

begin
  if FromClient and (pck=HStr('2F B4 04 00 00 00 00 00 00 00')) then
    begin
      Timer1.Enabled := True;
    end;
end.

[NLObP]

У тебя самого как , работает, не тормозит? Писали же что delay() не надо применять!
Найди скрипт//by mks
//Бот баффер Elven Saint, баффает за 5кк
Ещё заметил что лишние begin end; все время используешь.

[-=Ma}{imuS=-]

с делаями просто все замирает, но это вроде проблем не доставляет. а так вобще посмотрю, нет предела совершенству