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

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Результаты опроса: Нужна ли такая тема форуму?
Да, мне бы была полезна. 34 66.67%
Пускай будет, но мне и так норм. 10 19.61%
Нет, не нужна. 7 13.73%
Голосовавшие: 51. Вы ещё не голосовали в этом опросе

Ответ
 
Опции темы Опции просмотра
Старый 18.03.2011, 09:47   #51
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
По умолчанию

Цитата:
Сообщение от Nickers Посмотреть сообщение
buf:=#$00; //Пакет, который посылаем
Это в какую систему счислений нужно преобразовать вот этот
Цитата:
39 63 00 00 00 00 00 00 00 00
пакет?
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D
L2.exe вне форума   Ответить с цитированием
За это сообщение L2.exe нажился спасибкой от:
Старый 18.03.2011, 10:04   #52
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

пакет вот так:
delphi Код:
buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;
(Если пакет не меняется)

По хорошему нада так делать:
(Удобно, если пакет изменяется)
delphi Код:
buf:=#$39; //ID пакета (1я пара) ReadD(99); //63 00 00 00 ReadD(0)//00 00 00 00 ReadC(0)//00 SendToServerEx(Name);
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 18.03.2011 в 13:45. Причина: Добавлено сообщение
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился 2 спасибками от:
Старый 18.03.2011, 12:34   #53
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
Хорошо

Цитата:
Сообщение от Nickers Посмотреть сообщение
пакет вот так:
delphi Код:
buf:=#$39#$63#$00#$00#$00#$00#$00#$00#$00#$00;

По хорошему нада так делать:
delphi Код:
buf:=#$39; ReadD([Сюды число - десятичный эквивалент 63 00 00 00]); ReadD(0); ReadC(0); SendToServerEx(Name);
Спасибо ещё раз,я бы не догадался
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D
L2.exe вне форума   Ответить с цитированием
За это сообщение L2.exe нажился спасибкой от:
Старый 18.03.2011, 13:52   #54
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

L2.exe, Обращайся))
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 19.03.2011, 17:39   #55
Новичок
 
Регистрация: 07.03.2011
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Elees пока неопределено
По умолчанию

Nickers, помоги плис написать скрипт, что б в игре при нажатии кнопки "5" отправлялись пакеты 4-5шт с паузой между пакетами в 0.2сек, или такой скрипт невозможен?
Elees вне форума   Ответить с цитированием
Старый 19.03.2011, 19:26   #56
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

ыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыыы)
p.s: при нажатии 5, или допустим в чат писалось 5?)
__________________
dyh9l вне форума   Ответить с цитированием
Старый 20.03.2011, 09:55   #57
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Elees, Могу тока на F5 сделать... (Но там буит пару мелких неудобств) Почти уверен, что можно настроить на любую клавишу, но я не умею и это наверняка потребует другие языки, кроме паскаля))
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 21.03.2011, 11:08   #58
Новичок
 
Регистрация: 07.03.2011
Сообщений: 4
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
Elees пока неопределено
По умолчанию

Цитата:
Сообщение от Nickers Посмотреть сообщение
Elees, Могу тока на F5 сделать... (Но там буит пару мелких неудобств) Почти уверен, что можно настроить на любую клавишу, но я не умею и это наверняка потребует другие языки, кроме паскаля))
ну на Ф5 тоже пойдёт
Elees вне форума   Ответить с цитированием
Старый 21.03.2011, 11:35   #59
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Примерно так... (У мну нету ПХ так-что не исключены ошибки (Не у верен вот в этом месте:
Цитата:
ReadS(2)='.lol'
)

Чтобы заработало:
1) Вписать свой ник в самом верху скрипта.
2) Сверху вписать кол-во пакетов (Сколько раз пошлет).
4) В игре создать макрос с таким содержанием:
Цитата:
#.lol
# Определяет только чат (В группе за флуд не банит и без палева) можно написать просто .lol это не важно...

5) Поставить макрос на F5.

Если возникнут ошибки пиши где и что пишет... Если не корректно работает - отпиши что и как.


Сам скриптег:
delphi Код:
const   Name='Nickers'; //Ник   N=5; //Сколько раз послать пакет Var   timer : TTimer;   packet:string; j:integer; procedure OnTimer(Sender: TObject); begin   inc(j);   buf:=packet;   SendToServerEx(Name);   if j=N then     begin       j:=0;       timer.enabled:=false;     end; end; procedure Init; begin   packet:=Hstr('D0 0F 00 D3 04 00 00 91 01 00 00'); // Пакет   timer:=TTimer.Create(nil);   timer.OnTimer:=@OnTimer;   timer.enabled:=false;   timer.interval:=200; //0.2 сек   j:=0; end; procedure Free; begin   timer.free; end; begin   if fromclient and (pck[1]=#$38) and (ReadS(2)='.lol') then timer.enabled:=true; end.
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]

Последний раз редактировалось Nickers, 21.03.2011 в 11:47.
Nickers вне форума   Ответить с цитированием
Старый 22.03.2011, 07:45   #60
Местный
 
Аватар для L2.exe
 
Регистрация: 09.12.2010
Сообщений: 106
Сказал Спасибо: 18
Имеет 46 спасибок в 45 сообщенях
L2.exe пока неопределено
По умолчанию

Полезный скриптик

Добавлено через 16 часов 48 минут
delphi Код:
var act:integer; me1:char; me2:char; me3:char; me4:char; nm:integer; t1:char; t2:char; t3:char; t4:char; nt:integer; shade:integer; mz:integer; pz:integer; tz:integer; hz:integer; procedure SendMsg(msg:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msg); SendToClient; end; begin //анализ ИД себя if nm<>1 then begin if FromServer and (pck[1]=#$04) then begin me1:=pck[18]; me2:=pck[19]; me3:=pck[20]; me4:=pck[21]; nm:= 1; end; end; //защитная часть if FromClient and (pck[1]=#$1B) and (pck[2]=#$06) then begin act:=1; SendMsg('AT system on'); end; if FromClient and (pck[1]=#$1B) and (pck[2]=#$05) then begin act:=0; SendMsg('AT system off'); end; if FromClient and (pck=#$38#$3C#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then begin mz:=1; SendMsg('Advanced m.def on') end; if FromClient and (pck=#$38#$3C#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then begin mz:=0; SendMsg('Advanced m.def off') end; if FromClient and (pck=#$38#$3F#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then begin pz:=1; SendMsg('Advanced p.def on') end; if FromClient and (pck=#$38#$3F#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then begin pz:=0; SendMsg('Advanced p.def off') end; if FromClient and (pck=#$38#$42#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then begin tz:=1; SendMsg('Anti-target on') end; if FromClient and (pck=#$38#$42#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then begin tz:=0; SendMsg('Anti-target off') end; if FromClient and (pck=#$38#$45#$04#$2B#$00#$00#$00#$03#$00#$00#$00) then begin hz:=1; SendMsg('Hit"n"Hide on') end; if FromClient and (pck=#$38#$45#$04#$2D#$00#$00#$00#$03#$00#$00#$00) then begin hz:=0; SendMsg('Hit"n"Hide off') end; if FromClient and (pck[1]=#$1B) and (pck[2]=#$03) then begin buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; end; if act=1 then begin if tz=1 then begin if FromServer and (pck[1]=#$29) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then begin buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; end; end; if mz=1 then begin if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then begin buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; end; end; if pz=1 then begin if FromServer and (pck[1]=#$05) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) and (pck[2] <> me1) and (pck[3] <> me2) and (pck[4] <> me3) and (pck[5] <> me4) then begin buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; end; end; if hz=1 then begin if FromServer and (pck[1]=#$48) and (pck[6] = me1) and (pck[7] = me2) and (pck[8] = me3) and (pck[9] = me4) then begin buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; end; end; end; //часть таргета if FromClient and (pck[1]=#$04) then begin nt:=1; t1:=pck[2]; t2:=pck[3]; t3:=pck[4]; t4:=pck[5]; end; if FromClient and (pck[1]=#$37) then begin nt:=0; end; if nt=1 then begin if FromClient and (pck[1]=#$30) then begin buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00; SendToServer; buf:=#$A6+t1+t2+t3+t4+#$00#$00; SendToClient; end; end; if FromClient and (pck[1]=#$1B) and (pck[2]=#$04) then begin buf:=#$04+t1+t2+t3+t4+#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00; SendToServer; buf:=#$A6+t1+t2+t3+t4+#$00#$00; SendToClient; end; //shadowmelt if FromClient and (pck[1]=#$1B) and (pck[2]=#$07) then begin shade:=1; buf:=#$48#$00#$00#$FE#$FF#$7F#$AB#$03#$00#$E9#$F1#$FF#$FF#$88#$D4#$00#$00#$00#$00#$00#$00; SendToServer; SendMsg('Skipped to Shadows'); end; if FromClient and (pck[1]=#$1B) and (pck[2]=#$08) then begin shade:=0; buf:=#$30#$00#$00; SendToServer; SendMsg('Reveal from Darkness'); end; if shade = 1 then begin if FromClient and (pck[1]=#$30) then pck:=''; end; end.
Что тут не так?
__________________
Объявление: Искуственный интелект запущен!
Объявление: Идите к девчонкам!;-D

Последний раз редактировалось L2.exe, 22.03.2011 в 10:57. Причина: Добавлено сообщение
L2.exe вне форума   Ответить с цитированием
За это сообщение L2.exe нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



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

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


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

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

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