Вернуться   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 спасибками от:
Старый 12.06.2008, 15:50   #101
Гость
 
Сообщений: n/a
По умолчанию

вот кое как слепил такой скрипт):

Код:
const //Dance
    d1='2F 0F 01 00 00 00 00 00 00 00';    // Dance of Attack
    d2='2F 13 01 00 00 00 00 00 00 00';    // Dance of Haste
    d3='2F 12 01 00 00 00 00 00 00 00';    // Focus


var
  Timer1 : TTimer; 

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
  begin
  buf:=hstr(d1);    //attack
  SendToServer;
  end;

  begin
  buf:=hstr(d2);     //haste
  SendToServer;
  end;

  begin
  buf:=hstr(d3);   //focus
  SendToServer;
  end;
end;
begin
  if FromClient and (pck=HStr('2F 12 01 00 00 00 00 00 00 00')) then
    begin
      Timer1.Enabled := True;

    end;
end.
2 вопроса: 1) танцует когда угодно, но только не через 2 минуты
2) танцует только первый и последний денс. на скорость атаки, который в скрипте между ними почему то пропускает. даже если денсы поменять местами и сделать их штук 6 всегда танцует тока первый и последний.
  Ответить с цитированием
Старый 12.06.2008, 17:17   #102
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию

вопрос: как работает оператор XOR?
metalFan вне форума   Ответить с цитированием
Старый 12.06.2008, 18:02   #103
Пользователь
 
Регистрация: 13.10.2007
Сообщений: 40
Сказал Спасибо: 14
Имеет 6 спасибок в 5 сообщенях
Silmaril
По умолчанию

, задержку хоть поставь между танцами, бд ТАК быстро танцевать не умеет

Добавлено через 9 минут
где то здесь поднимался вопрос, как увидеть реальную профу чара, если он на сабе, никто не помнит, чёта не нашел

Добавлено через 4 минуты
metalFan,
0 xor 0 =0
0 xor 1 =1
1 xor 0 =1
1 xor 1 =0

Последний раз редактировалось Silmaril, 12.06.2008 в 18:02. Причина: Добавлено сообщение
Silmaril вне форума   Ответить с цитированием
За это сообщение Silmaril нажился спасибкой от:
Старый 12.06.2008, 19:12   #104
Новичок
 
Регистрация: 12.06.2008
Сообщений: 24
Сказал Спасибо: 7
Имеет 1 спасибку в 1 сообщении
-=Ma}{imuS=- пока неопределено
По умолчанию

в таком случае вот такой скрипт:
Код:
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;
procedure OnTimerBD(Sender: TObject);
    begin
    Case x of
    1:  begin
        buf:=hstr(d1);
        SendToServer;
        x:=x+1;
        end;
    2:  begin
        buf:=hstr(d2);
        SendToServer;
        x:=x+1;
        end;
    3: begin
       bRun;
       x:=0;
       timerBD.enabled:=false;
       end;
    end;
    end;
procedure OnTimerBD1(Sender: TObject);
    begin
         timerBD.enabled:=true;
         x:=1;
    end;
end.
я немагу понять чем его закончить?! ошибка у последнего слова "end" хотя вроде бы все правильно.
-=Ma}{imuS=- вне форума   Ответить с цитированием
Старый 12.06.2008, 23:05   #105
Пользователь
 
Аватар для APXAHGEJI
 
Регистрация: 08.03.2008
Сообщений: 77
Сказал Спасибо: 31
Имеет 19 спасибок в 15 сообщенях
APXAHGEJI
По умолчанию

Ну как минимум не хватаем begin перед end. , а вообще у тебя только три процедуры, а собственно того что их бы запускало нет, как раз между этими begin end.

Добавлено через 17 минут
А вообще канешн жуть понадела что, ты бы не мудорствовал и велосипед не изобретал,а посматрел бы сначало похожее готовое.
У тя дохрена ошибок, я бы даже сказал у тебя мало что правильно.
Не определена переменная x; процедура OnTimerBD1 должна быть без параметра и она нигде не запускается; если даже переделаешь что бы запускалось, то будешь ждать 2 минуты прежде чем первый раз бафнет; бафнет он скорее всего только первый баф, ну может и второй в очередь встанет, но не факт, а третий баф точно не будет кастоваться, т.к. у тебя нету перерыва между отправками пакетов и тд и тп))

Последний раз редактировалось APXAHGEJI, 12.06.2008 в 23:05. Причина: Добавлено сообщение
APXAHGEJI вне форума   Ответить с цитированием
Старый 13.06.2008, 13:08   #106
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию

Silmaril, это вычитание чтоли? А xor 1 = 9?

Добавлено через 2 минуты
дайте ктонить калькулятор который ксоры считает a ксор б = ц чтобы простенький такой что то я не понимаю 8)

Последний раз редактировалось metalFan, 13.06.2008 в 13:08. Причина: Добавлено сообщение
metalFan вне форума   Ответить с цитированием
Старый 13.06.2008, 13:57   #107
Пользователь
 
Регистрация: 13.10.2007
Сообщений: 40
Сказал Спасибо: 14
Имеет 6 спасибок в 5 сообщенях
Silmaril
По умолчанию

лин, ксор это ЛОГИЧЕСКАЯ операция, и не вычитания, а исключения
а калькулятор есть в ввинде, он вполне такие операции понимает
Silmaril вне форума   Ответить с цитированием
Старый 13.06.2008, 14:59   #108
Пользователь
 
Аватар для metalFan
 
Регистрация: 26.10.2007
Сообщений: 43
Сказал Спасибо: 8
Имеет 21 спасибок в 8 сообщенях
metalFan
По умолчанию

объяснити поконкретней 8)
metalFan вне форума   Ответить с цитированием
Старый 13.06.2008, 15:34   #109
Пользователь
 
Регистрация: 13.10.2007
Сообщений: 40
Сказал Спасибо: 14
Имеет 6 спасибок в 5 сообщенях
Silmaril
По умолчанию

Определение: XOR

Exclusive OR – исключающее ИЛИ, неэквивалентность, сложение по модулю 2. Бинарная логическая операция, результат которой истинен только тогда, когда значения операндов не совпадают. Например, (1101 OR 0101) = 1000. Символически иногда обозначается “?”.XOR
Вход 1 Вход 2 Выход
0 0 0
0 1 1
1 0 1
1 1 0
Silmaril вне форума   Ответить с цитированием
Старый 13.06.2008, 21:04   #110
Пользователь
 
Регистрация: 24.05.2008
Сообщений: 37
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Byrger пока неопределено
По умолчанию

Помогите плиз, что не так

Код:
const
hp='21 08 E8 5E 39 6B 5B 2B 00';
hp2='21 08 E8 5E 39 6B 5B 2B 00';

begin


buf:=hstr(hp);
SendToServer;
delay(5000);
begin
buf:=hstr(hp2);
SendToServer;
end;


end.

l2phx просто виснет намертво...
Byrger вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack


Опции темы
Опции просмотра

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

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


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

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

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