Вернуться   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 спасибками от:
Старый 20.07.2009, 12:56   #651
Пользователь
 
Регистрация: 11.07.2009
Сообщений: 65
Сказал Спасибо: 64
Имеет 0 спасибок в 0 сообщенях
Imperial2008 пока неопределено
По умолчанию

Цитата:
Сообщение от klemberg Посмотреть сообщение
Если правильно понял, то Империалу нужно нечто подобное.

Дело в том, что на моем гфш в холле рифта нет мирной зоны, как на других серверах. Если у вас то же самое, то вот мой скрипт на слив гномов магом.


Суть скрипта проста - маг DAMAGER_CHAR_NAME бьет скиллом DAMAGER_USE_SKILL чара DELEVEL_CHAR_NAME каждый раз, как тот флагнется.

Чар DELEVEL_CHAR_NAME после смерти жмет кнопку В деревню и после реса начинает атаковать чара DAMAGER_CHAR_NAME кулаками до тех пор, пока лвл больше NEW_LEVEL.

Запускается скрипт просто - включаете и бьете кулаками чара DAMAGER_CHAR_NAME


Почему именно рифт? патамуша при нажатии кнопки В деревню вы ресаетесь там же, в холле рифта.

А, еще момент: DAMAGER_CHAR_NAME при включенном скрипте бьет всех, кто его ударит, не только DELEVEL_CHAR_NAME, но исправлять это мне влом)
да, спс это реально то что мне надо было) но нигде я найти не мог)

Добавлено через 14 минут
Еще один вопрос)
Скажите плиз. Вот у меня скрипт:
Код:
begin
if fromclient and (pck=#$D0#$45#$00) then
begin
     buf:=hstr('14');
SendToServer;

end;
if fromclient and (pck=#$1A#$E5#$CE#$00#$10) then
begin
buf:=hstr('D0 43 00 93 78 03 10');
SendToServer;
end;
end.
Можно ли как-то сделать так, что бы скрипт просто запоминал первоначальный пакет (например при первой аугментации), и просто повторял ее дальше...это просто для примера. Первое действие - словил от клиента пакеты определенного типа - запомнил его - при нажатии определенного соц действия опять юзает но уже пакет, который запомнил.

Последний раз редактировалось Imperial2008, 20.07.2009 в 12:56. Причина: Добавлено сообщение
Imperial2008 вне форума   Ответить с цитированием
Старый 23.07.2009, 01:44   #652
Пользователь
 
Регистрация: 11.07.2009
Сообщений: 65
Сказал Спасибо: 64
Имеет 0 спасибок в 0 сообщенях
Imperial2008 пока неопределено
По умолчанию Оптимизация скрипта + помощь (мне) :)

Тут на форуме мне Клемберг кидал уже готовый скрипт на делевел (да только на Грации финал он не работал, а сам переделать не могу, навыки не те), по этому создал был альтернативный скрипт, который работает просто на посылке конкретных пакетов на сервер по какому-то логическому действию.
Значит вот скрипт:
Код:
        begin   
               
            if FromServer and (ConnectName='Империал') and (pck=#$01#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');    
    end;
    
        if FromServer and (ConnectName='Searcher') and (pck=#$62#$2A#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$18#$04#$3C#$04#$3F#$04#$35#$04#$40#$04#$38#$04#$30#$04#$3B#$04#$00#$00) then begin
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Searcher');
    buf:=hstr('01 73 70 02 10 7B C0 01 00 52 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Searcher');
    end;         
    
        if FromServer and (ConnectName='Империал') and (pck=#$00#$73#$70#$02#$10#$01#$00#$00#$00#$01#$00#$00#$00#$01#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00) then begin
    buf:=hstr('7D 02 00 00 00 ');
    SendToServerEx('Империал');
    buf:=hstr('3A ');
    end;  
    
            if FromServer and (ConnectName='Империал') and (pck=#$25#$73#$70#$02#$10) then begin
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00');
    SendToServerEx('Империал');
    buf:=hstr('01 9B 52 04 10 9E C0 01 00 45 CD 03 00 A8 FF FF FF 00'); 
    SendToServerEx('Империал');
    end;

end.
Но у меня есть два вопроса (просьбы)... Когда я юзаю этот скрипт все работает действительно отлично, но по истечению очень малого кол-во времени скрипт просто "сжирает" оперативную память. За каких-то 10 минут скрипт берет 1-1,5 Гб ОП. С чем это связанно и как это исправить. Если это возможно, то подправьте, пожалуйста, мой скрипт.
Ну и второй вопрос...есть ли какая-то проверка на "флаганутость"? Дело в том, что я то сделал, что бы второй чар (который бьет снимая левел) начинал атаковать только когда придет пакет от первого на атаку, но есть ли что-то более эффективное?

Последний раз редактировалось Imperial2008, 23.07.2009 в 01:49.
Imperial2008 вне форума   Ответить с цитированием
Старый 24.07.2009, 16:50   #653
Местный
 
Регистрация: 25.11.2007
Сообщений: 48
Сказал Спасибо: 34
Имеет 14 спасибок в 12 сообщенях
pascalpwnz
По умолчанию Объявление записей

Как в l2phx3.5.13.122 объявить запись? Type понятное дело не работает, делаю по мануалу (паскаля) через var:

delphi Код:
var  rec:record          abc123:string;       flag:boolean;      end;

но на 3 строке компилятор ругается.
Как же ее правильно объявить?
pascalpwnz вне форума   Ответить с цитированием
Старый 24.07.2009, 16:55   #654
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

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

Код:
//==========================================
//Tип: 0x48 (MagicSkillUse)
begin
 if FromServer and (pck[1]=#$48) then begin

 if (ReadD(2)=myID) and (ReadD(10)=klID) then begin

   skillID:=ReadD(10);

   HitTime:=ReadD(18);

   ReuseDelay:=ReadD(22);

   Message:=''+inttostr( ReuseDelay+HitTime)+'';
   SendMsg2('Время отката скила:'+Message);
Народ как время из милисекунд перевести в такой вид: 00мин00сек
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 25.07.2009, 14:11   #656
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

TAMBIK, вот написал:

delphi Код:
function MsekToString(msek: integer): string; var   min, sek: string; begin   msek:= msek div 1000;   min:= IntToStr(msek div 60);   sek:= IntToStr(msek mod 60);   if Length(min) = 1 then min:= '0' + min;   if Length(sek) = 1 then sek:= '0' + sek;   Result:= min + 'мин ' + sek + 'сек'; end;
Yegor вне форума   Ответить с цитированием
За это сообщение Yegor нажился 2 спасибками от:
Старый 25.07.2009, 15:41   #657
Рыцарь
 
Аватар для TAMBIK
 
Регистрация: 03.03.2009
Сообщений: 773
Сказал Спасибо: 361
Имеет 300 спасибок в 168 сообщенях
TAMBIK на пути к лучшему
По умолчанию

А как вместе соединить ?????????????????
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
TAMBIK вне форума   Ответить с цитированием
Старый 25.07.2009, 16:57   #658
Местный
 
Регистрация: 25.11.2007
Сообщений: 48
Сказал Спасибо: 34
Имеет 14 спасибок в 12 сообщенях
pascalpwnz
По умолчанию

Такой вопрос:
Как реализовать оповещение пользователя? Ну например через проигрывание звука как в валкере.
В мануале нашел "procedure ShowMessage(Msg: Variant);", но оно не очень подходит.

Цитата:
Сообщение от TAMBIK Посмотреть сообщение
А как вместе соединить ?????????????????
Странный вопрос... очевидно, что воспользоваться входным значением.
pascalpwnz вне форума   Ответить с цитированием
Старый 25.07.2009, 17:56   #659
Местный
 
Аватар для Yegor
 
Регистрация: 05.04.2009
Сообщений: 1,436
Сказал Спасибо: 306
Имеет 122 спасибок в 98 сообщенях
Yegor пока неопределено
По умолчанию

pascalpwnz, есть такая Api функция
sndPlaySound('полный путь к аудио файлу', SND_ASYNC);

Будет ли работать в фастскрипте незнаю, попробуй.
Yegor вне форума   Ответить с цитированием
За это сообщение Yegor нажился спасибкой от:
Старый 25.07.2009, 18:39   #660
Местный
 
Регистрация: 25.11.2007
Сообщений: 48
Сказал Спасибо: 34
Имеет 14 спасибок в 12 сообщенях
pascalpwnz
По умолчанию

Увы, не компилится. Вопрос актуален.
pascalpwnz вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack



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

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


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

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

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