Вернуться   CoderX :: Forums > Lineage II > L2PacketHack
Войти через OpenID

L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Обсуждение багов Lineage ЗАПРЕЩЕНО!

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.10.2007, 22:00   #1
Новичок
 
Регистрация: 05.10.2007
Адрес: Украина
Сообщений: 19
Сказал Спасибо: 0
Имеет 23 спасибок в 13 сообщенях
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.
где я ошибся?

Последний раз редактировалось QaK, 30.08.2010 в 18:56.
DeVolf вне форума   Ответить с цитированием
За это сообщение DeVolf нажился 6 спасибками от:
Старый 14.06.2008, 15:48   #121
Новичок
 
Регистрация: 12.06.2008
Сообщений: 24
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
-=Ma}{imuS=- пока неопределено
По умолчанию

у меня тож проблема с Delay, но это пофиг сильно не мешает.
а вопрос собственно в следующем:
вот у меня в L2pch несколько скриптов (таймеров) один на танцы, другой на бафф ПП, другой на бафф СЕ. но если их включить одновременно они никак нехотят работать, работает только один из них
что прописать в скрипте чтоб он определял в каком из окон клиента он должен работать и чтоб они работали все одновременно?
-=Ma}{imuS=- вне форума   Ответить с цитированием
Старый 14.06.2008, 22:44   #122
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
что прописать в скрипте чтоб он определял в каком из окон клиента он должен работать и чтоб они работали все одновременно?
delphi Код:
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

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

Последний раз редактировалось NLObP, 14.06.2008 в 22:47.
NLObP вне форума   Ответить с цитированием
Старый 15.06.2008, 01:18   #123
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

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

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


отослать пакет
---задержка 200мс---
отослать пакет 2
---задержка 200мс---
отослать пакет 3
....
отослать пакет 9
---задержка 200мс---
Остановить цикл...
Я так понимаю это с помощю таёмеров можно сделать...но как?
Byrger вне форума   Ответить с цитированием
Старый 15.06.2008, 01:59   #124
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

вот хз как работать тока будет понятия не имею
delphi Код:
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, а можешь просто конкретно написать что ты этим своим мифическим скриптом хочешь сделать, можешь говорить по русски, типа бафера запрограмить или квест намутить что б представить можно было с чем вообще работать скрипту надо, а то шифровки твои как то анализу не поддаются и мягко сказать влом думать.

Последний раз редактировалось Grinch, 15.06.2008 в 01:59. Причина: Добавлено сообщение
Grinch вне форума   Ответить с цитированием
Старый 15.06.2008, 02:09   #125
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

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

Последний раз редактировалось Byrger, 15.06.2008 в 02:20.
Byrger вне форума   Ответить с цитированием
Старый 15.06.2008, 02:16   #126
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

хм) думаешь сервер будет медленней скрипта) максимум чего добьешься это сервер твои действия поставит в очередь на обработку, хотя ява может и пропустить, но на данном форуме читы не рассматривается по крайней мере администрацией портала.
Grinch вне форума   Ответить с цитированием
Старый 15.06.2008, 02:19   #127
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Кто-то говорил о читах? Где? Оо
Мне просто нужно отправить пару пакетов с интервалом...
И закрыть цикл затем...
Byrger вне форума   Ответить с цитированием
Старый 15.06.2008, 12:04   #128
Новичок
 
Регистрация: 12.06.2008
Сообщений: 24
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
-=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.
-=Ma}{imuS=- вне форума   Ответить с цитированием
Старый 15.06.2008, 15:22   #129
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

У тебя самого как , работает, не тормозит? Писали же что delay() не надо применять!
Найди скрипт//by mks
//Бот баффер Elven Saint, баффает за 5кк
Ещё заметил что лишние begin end; все время используешь.
NLObP вне форума   Ответить с цитированием
Старый 15.06.2008, 23:18   #130
Новичок
 
Регистрация: 12.06.2008
Сообщений: 24
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
-=Ma}{imuS=- пока неопределено
По умолчанию

с делаями просто все замирает, но это вроде проблем не доставляет. а так вобще посмотрю, нет предела совершенству
-=Ma}{imuS=- вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:05.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!