Вернуться   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 спасибками от:
Старый 18.05.2009, 08:38   #401
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Lynx, нет, не в юзеринфо, пакет называется AbnormalStatusUpdate.
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился спасибкой от:
Старый 19.05.2009, 15:44   #402
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

Цитата:
Сообщение от TAMBIK Посмотреть сообщение
Добрый....... Помогите искал ненашел иль плохо искал или непонял какой кусок скрипта отвечает чтоб бафер сам себя бафал когда закончился баф
надо маленький такой скрипт .как сделать неумею а похожего в скриптах
неувидил. подскажите немного. или ОТПРАВТЕ по адресу где такое
возможно
Немного не так вопрос
Я вот нашел куски ток незнаю как все должно работать . связать все чтоб работало.Хочу вставить в скрипт для баферов.
Я вкл скрипт посылаю команду баферу или сам бафером вешаю баф надо чтоб бафер через определенное время пусть 15 мин сам себя бафнул то есть я подхожу и посылаю команду баферу на баф воина чтоб не терять время и бафер после того как бафнет себя наберет ману.
может кто поможет правильно оформить скрипт
из скрипта:
Код:
//Bot by Skymanrus
//modified by NLObP специально для Владера, моего сына!

offs1, xm, ym : integer;

  heal, kill : string;
  MaxHP, MyZpos, cvaZ, CurHP, ID, xpos, ypos, skill, MyID, PercentHP, MEsit: integer;
  MEup, but, sud, bst, Radius, cvaX, attackIDMinID, attackk, attackID, cvaY, zpos: integer;
  Hpotion, Apotion, MyXpos, MyYpos, rezu, MaxX, MaxID, MinID, MinX: integer;
  sit, povtor, tame, gdo, npc : Boolean;

  bfi, atck, hpi, i, ii: integer;
  timer3: TTimer;


procedure Init; //УПРАВЛЯЮЩИЕ ПЕРЕМЕННЫЕ
var
  i: integer;
  bfi:=60; //60 сек, чтобы бафы не пропустить
  ii:=1;
 
//баффы
  timer3:=TTimer.Create(nil);
  timer3.OnTimer:=@OnTimer3; //
  timer3.enabled:=true; // таймер по умолчанию выключен
  timer3.interval:=60000; // первый баф через 60 сек
//***************************************************************

procedure OnTimer2(Sender: TObject); //
begin
  //контролируем бафы, если время бафов, то пытаемся бафаться каждую секунду
  dec(bfi);
  if bfi<0 then begin
    timer3.interval:=1000; //каждые 1 сек
    bfi:=1200;  //20 мин
  end;
=========================
//***************************************************************
procedure OnTimer3(Sender: TObject); //баффы
begin
  //если никого не бъем, то надо бафаться
  if (Summ(Aggro)=0) and (sit=false) then begin
    case ii of
      1: begin
        timer1.enabled:=false; //откл. атаку
        msg.Lines.Add('Баффаюсь Attack aura!');
        MagicSkillUse(buff2);
        inc(ii);
      end;
      2: begin
        msg.Lines.Add('Баффаюсь Deflect arrow!');
        MagicSkillUse(buff3);
        inc(ii);
      end;
      3: begin
        ii:=1;
        timer3.interval:=1150000; //каждые 20 мин
        bfi:=1150;
        timer1.enabled:=true; //вкл. атаку
      end;
    end;
  end;
end;
нашел
http://coderx.ru/showpost.php?p=7204&postcount=362

Последний раз редактировалось TAMBIK, 19.05.2009 в 18:55. Причина: нашел
TAMBIK вне форума   Ответить с цитированием
Старый 19.05.2009, 23:57   #403
Местный
 
Аватар для pmen
 
Регистрация: 16.05.2009
Сообщений: 129
Сказал Спасибо: 66
Имеет 62 спасибок в 34 сообщенях
pmen пока неопределено
По умолчанию Опять вопрос)

Я только учусь и поэтому не могли бы вы мне обьяснить функцию таймера?
А то я смотрю на примеры.....и не очень то втыкаю потому что они без комментариев! Немогли бы вы меня этому научить функции использования таймера на легких примерах =) Спасиб!

Добавлено через 1 минуту
Только не отправляте в крухок для нубовв))

Последний раз редактировалось pmen, 19.05.2009 в 23:57. Причина: Добавлено сообщение
pmen вне форума   Ответить с цитированием
Старый 20.05.2009, 00:34   #404
Местный
 
Аватар для J-Fobos
 
Регистрация: 09.06.2008
Сообщений: 867
Сказал Спасибо: 175
Имеет 468 спасибок в 259 сообщенях
J-Fobos пока неопределено
По умолчанию

Сначало надо обьявить переменную типа TTimer глобально, на весь скрипт:

Код:
var
   Timer01: TTimer;
Далее в процедуре Init, что вызывается при запуске скрипта, надо (грубо говоря) выделить таймеру память и задать начальные параметры:

Код:
procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=500; //интервал(в милисекундах) как часто таймер срабатывает
end;
После этого надо написать процедуру
Код:
procedure OnTimer01(Sender: TObject);
begin
//тут набор команд, которые будут
//выполняться каждый раз, когда таймер сработает
end;
Более подробно можно прочесть в книжках по ObjectPascal.

Последний раз редактировалось QaK, 21.05.2009 в 09:27.
J-Fobos вне форума   Ответить с цитированием
За это сообщение J-Fobos нажился 7 спасибками от:
Старый 21.05.2009, 19:42   #405
Пользователь
 
Регистрация: 11.04.2009
Адрес: lameriy
Сообщений: 34
Сказал Спасибо: 9
Имеет 1 спасибку в 1 сообщении
lamer пока неопределено
По умолчанию

Код:
//******************************************************************************
const
Name='хххххххх'; //ник перса
procedure ReqGetItem;
begin
  if itm=0 then begin
    timer1.enabled:=true; //включаем отсчет времени
    needbackup:=false;
    exit;
  end;
  timer1.enabled:=false; //выключаем отсчет времени
  //перебираем базу
  for i:=1 to max do begin
    //если нашли, то обнуляем
    if (ItemBase[1,i]<>0) then begin  //ObjectID
      say('ReqGetItem');
      //даем команду подобрать вещь
      buf:=#$1F;
      WriteD(ItemBase[1,i]);
      WriteD(ItemBase[2,i]);
      WriteD(ItemBase[3,i]);
      WriteD(ItemBase[4,i]);
      WriteH(00);
      SendToServerEx(Name);
    end;
  end;
end;
begin
  //****************************************************************************
  //DropItem - выпала вещь
  if FromServer and (ConnectName=Name) and (pck[1]=#$0D) then begin
    //чужие вещи не берем
    if (Attacker=ReadD(2)) then begin
      timer1.enabled:=false; //выключаем бота
      AddMob:=true;
      //перебираем базу
      for i:=1 to max do begin
        //если нашли, то корректируем его координаты на новые
        if (ItemBase[1,i]=ReadD(6)) then begin  //ObjectID
          ItemBase[2,i]:=ReadD(14); //x
          ItemBase[3,i]:=ReadD(18); //y
          ItemBase[4,i]:=ReadD(22); //z
          AddMob:=false;
          inc(itm);
          NeedBackup:=true;
          say('Корректируем данные по предмету');
        end;
      end;
      //иначе, перебираем базу, ищем свободную ячейку в ней и добавляем
      for i:=1 to max do begin
        if (ItemBase[1,i]=0) then begin
          //запоминаем в свободную ячейку
          ItemBase[1,i]:=ReadD(6); //ObjectID
          ItemBase[2,i]:=ReadD(14); //x
          ItemBase[3,i]:=ReadD(18); //y
          ItemBase[4,i]:=ReadD(22); //z
          inc(itm);
          NeedBackup:=true;
          say('Добавили данные по предмету');
          break;
        end;
      end;
    end;
    say('ColvoItm='+inttostr(itm));
  end;
  //****************************************************************************
  //SpawnItem - валяется вещь
  if FromServer and (ConnectName=Name) and (pck[1]=#$0C) then begin
    timer1.enabled:=false; //выключаем бота
    AddMob:=true;
    //перебираем базу
    for i:=1 to max do begin
        //если нашли, то корректируем его координаты на новые
      if (ItemBase[1,i]=ReadD(2)) then begin  //ObjectID
        ItemBase[2,i]:=ReadD(10); //x
        ItemBase[3,i]:=ReadD(14); //y
        ItemBase[4,i]:=ReadD(18); //z
        AddMob:=false;
        inc(itm);
        NeedBackup:=true;
        say('Корректируем данные по предмету');
      end;
      //иначе, перебираем базу, ищем свободную ячейку в ней и добавляем
      for i:=1 to max do begin
        if (ItemBase[1,i]=0) and AddMob then begin
          //запоминаем в свободную ячейку
          ItemBase[1,i]:=ReadD(2); //ObjectID
          ItemBase[2,i]:=ReadD(10); //x
          ItemBase[3,i]:=ReadD(14); //y
          ItemBase[4,i]:=ReadD(18); //z
          inc(itm);
          NeedBackup:=true;
          say('Добавили данные по предмету');
          break;
        end;
      end;
    end;
    say('ColvoItm='+inttostr(itm));
  end;

  //****************************************************************************
  if Wait(time1,2000) and NeedBackup and (underAttack=false) then ReqGetItem;

  //****************************************************************************
  //определяем реальность поднятия вещи
  //GetItem
  if FromServer and (ConnectName=Name) and (pck[1]=#$12) then begin
    //перебираем базу
    for i:=1 to max do begin
      //если нашли, то обнуляем
      if (ItemBase[1,i]=ReadD(6)) then begin  //ObjectID
        ItemBase[1,i]:=0; //ObjectID
        ItemBase[2,i]:=0; //x
        ItemBase[3,i]:=0; //y
        ItemBase[4,i]:=0; //z
        dec(itm);
        //say('Удаляем данные по предмету');
      end;
    end;
    if itm=0 then begin
      needbackup:=false;
      timer1.enabled:=true;
    end;
    say('ColvoItm='+inttostr(itm));
  end;
end.
Обьясните где ошибка, вроде переделал под ХБ, ну и вставил привязку к персу по нику. Не работает и всё тут.)
Выдаёт ошибку при включении.

Последний раз редактировалось lamer, 21.05.2009 в 19:44. Причина: уточнение
lamer вне форума   Ответить с цитированием
Старый 21.05.2009, 20:50   #406
Новичок
 
Регистрация: 21.05.2009
Сообщений: 1
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
Niklan пока неопределено
По умолчанию

Помогите не видет ник!
Не стирайте пост. ЕМАЕ В ПОИСКЕ НЕ ВЫДАЕТ РЕЗУЛЬТАТОВ, Сами там попробуйте найти. То менее 3 символов нельзя, а если писать без слов короче 3ех символов "по вашему запросу нечего не найдено"
Niklan вне форума   Ответить с цитированием
Старый 21.05.2009, 20:56   #407
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Niklan, почитай FAQ (ссылка в моей подписи)
//alexteam: а я думал уже 3/3 -(
QaK вне форума   Ответить с цитированием
Старый 21.05.2009, 21:09   #408
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

жесть если не нашёл в подписи квака то посмотри ещё в моей
//alexteam: и у обоих одни и теже синтаксические ошибки...
//QaK: ну и что, подумаешь чуток очепятка, слово фак, по крайней мере, грамотно написано =)

Последний раз редактировалось QaK, 21.05.2009 в 21:47.
Grinch вне форума   Ответить с цитированием
Старый 23.05.2009, 21:24   #409
Новичок
 
Регистрация: 23.05.2009
Сообщений: 1
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Jeneok пока неопределено
По умолчанию

Как мне купить привязку то?
Jeneok вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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