Вернуться   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 спасибками от:
Старый 08.06.2008, 20:53   #91
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от ;9304
procedure Init; //Вызывается при включении скрипта
begin
NameBD:='НИК БД;
NameKomandos:='НИК КОМАНДИРА';
timerBD:=TTimer.Create(nil);
timerBD.OnTimer:=@OnTimerBD;
timerBD.enabled:=false;
timerBD.interval:=2000;
x:=0;
timerBD1:=TTimer.Create(nil);
timerBD1.OnTimer:=@OnTimerBD1;
timerBD1.enabled:=false;
timerBD1.interval:=120000;
end;
вот она
Grinch вне форума   Ответить с цитированием
Старый 10.06.2008, 14:37   #92
Гость
 
Сообщений: n/a
По умолчанию

можно поподробней узнать как работает процедура таймера, и привести для примера рабочий скрипт, который бы отправлял определенный пакет каждые 2 минуты?
  Ответить с цитированием
Старый 10.06.2008, 14:48   #93
Новичок
 
Аватар для AHAPXNCT
 
Регистрация: 02.06.2008
Сообщений: 24
Сказал Спасибо: 4
Имеет 3 спасибок в 1 сообщении
AHAPXNCT пока неопределено
По умолчанию

Вообщем собсно такой вопросец.
Имееться сервер С4, не ява. Куча багов пофиксено, но и много осталось.
Где то я читал за подмену ID предмета. Ну тоесть покупаеш один предмет, а получаешь совершенно другой.
Поскольку я не понимаю в Л2ПХ ничерта, обьясните мне возможно ли это. И если можна подкиньте скриптик для такой подмены.
__________________
Я не злопамятный, я добрый, просто память хорошая.
Не#^^й ржать с некоторых моих сообщений - ибо все мы когда то были нубами в этом нелёгком деле БОТОВОДСТВО.
AHAPXNCT вне форума   Ответить с цитированием
Старый 10.06.2008, 14:52   #94
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Вот смотри: сначала описываем таймер и бафы:
delphi Код:
const //Dance     d1='2F 11 01 00 00 00 00 00 00 00';    // Dance of Mystic     d2='2F 15 01 00 00 00 00 00 00 00';    // Dance of Light     d4='2F 10 01 00 00 00 00 00 00 00';    // Inspirations     d3='2F 12 01 00 00 00 00 00 00 00';    // Dance of Fire     d5='';    // Dance of Concentration var TimerBD:TTimer; procedure INIT; begin timerBD:=TTimer.Create(nil); timerBD.OnTimer:=@OnTimerBD; timerBD.enabled:=false; timerBD.interval:=120000; end;
потом пишешь что будет делаться каждые 120000 милисекунд или 2 минуты.
delphi Код:
procedure OnTimerBD(Sender: TObject);     begin     Case x of     1begin         buf:=hstr(d1);//сюда баф         SendToServerEx(NameBD);         x:=x+1;         end;     2begin         buf:=hstr(d2);//сюда баф         SendToServerEx(NameBD);         x:=x+1;         end;     3: begin        buf:=hstr(d3);//сюда баф        x:=0;        timerBD.enabled:=false;        end;     end;     end;
и наконец - при каком-либо условии включаем таймер баффов:
delphi Код:
TimerBD.Enabled:=true;
Вот и все - дальше - сам разбирайся =) а лучше книжку купи или скачай по основам дельфи/паскаля.
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился 2 спасибками от:
Старый 12.06.2008, 12:29   #95
Гость
 
Сообщений: n/a
По умолчанию

вылазит ошибка в самом конце, у последнего слова end "Begin expected"
и вобще скрипт не запускается когда ставлю на нем галочку
  Ответить с цитированием
Старый 12.06.2008, 12:59   #96
Рыцарь
 
Аватар для Grinch
 
Регистрация: 29.02.2008
Сообщений: 928
Сказал Спасибо: 127
Имеет 130 спасибок в 93 сообщенях
Grinch пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
вылазит ошибка в самом конце, у последнего слова end "Begin expected"
и вобще скрипт не запускается когда ставлю на нем галочку
нам всё понятно, фотографию свою дай мы по фотографии скрипт посмотрим, без неё не видим ни хрена экстрасенсы из нас хреновые.
Grinch вне форума   Ответить с цитированием
Старый 12.06.2008, 13:03   #97
Гость
 
Сообщений: n/a
По умолчанию

подскажите что в этом скрипте не так, ставлю галочку но он не танцует, и через 2 минуты тоже не танцует:

Код:
var
  Timer1 : TTimer; 
  q : Integer;  // счетчик 
procedure Init;
begin
  Timer1 := TTimer.Create(nil);
  Timer1.Interval := 120000;  // задержка таймера 12к мс
  Timer1.Enabled := False;
  Timer1.OnTimer := @OnTimer;   // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
  Timer1.Free;
end;
procedure OnTimer;
begin
buf:=HStr('2F 0F 01 00 00 00 00 00 00 00');     //attack
SendToServer;

buf:=HStr('2F 13 01 00 00 00 00 00 00 00');     //haste
SendToServer;

buf:=HStr('2F 12 01 00 00 00 00 00 00 00');     //focus
SendToServer;
  Inc(q);
  if q = 4 then  // если выполнилось уже 4 раза, то останавливаем таймер
    Timer1.Enabled := False;
end;
begin
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.
  Ответить с цитированием
Старый 12.06.2008, 13:05   #98
Гость
 
Сообщений: n/a
По умолчанию

вобщем я чето немогу понять как работает условие выполнения скрипта
Timer1.Enabled := True;
  Ответить с цитированием
Старый 12.06.2008, 13:23   #99
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от -=Ma}{imuS=- Посмотреть сообщение
вобщем я чето немогу понять как работает условие выполнения скрипта
Timer1.Enabled := True;
надо было полностью скрипт копировать, вот что было:
Код:
begin
  if {умова запуска таймера} then
    begin
      Timer1.Enabled := True;
      q := 0;  //счетчик ставим у 0
    end;
end.
Вот эта строчка и есть условие
Код:
if {умова запуска таймера} then
Можно написать к примеру if myHP<1000 then

PS: пойди книги почитай, сколько можно основы разжевывать =(
NLObP вне форума   Ответить с цитированием
Старый 12.06.2008, 14:32   #100
Гость
 
Сообщений: n/a
По умолчанию

спс сорь, тупанул я думал это комент))
  Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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