[Пакеты] Скрипт для L2phx

[darkmaks]

Суть скрипта в том что бы юзать пакеты черерз клиаент айона... пакет активируеться эмоцией "улыбка".... все необходимые пакеты для отправки закидываем в обычный текстовый файл...

var
temp: tstringlist;
i:integer;
procedure Init; //Вызывается при включении скрипта
begin
temp := tstringlist.create;
temp.LoadFromFile('D:\1.txt');
end;

procedure Free; //Вызывается при выключении скрипта
begin
temp.free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if pck='' then exit;
if FromClient and (pck=#$CA#$55#$69#$15#$1C#$00#$00#$00#$00#$00) then begin
for i:=0 to temp.count-1 do begin
buf:=hstr(temp[i]);
SendToServer;
end;
pck:='';
end;
end.

Обратите внимание на путь где должен лежать файл (путь и имя файла можно менять)...

и ещё пачка скилов для лука если кому надо:
B4 55 73 41 02 01 00 CB 1D 00 00 00 00 10 28 00 00
B4 55 73 DA 02 07 00 0D C4 11 00 2E 05 10 C8 00 00
B4 55 73 42 02 09 00 E8 20 00 00 D5 01 10 28 00 00
B4 55 73 37 02 09 00 E8 20 00 00 D5 01 10 28 00 00
B4 55 73 36 02 09 00 E8 20 00 00 D5 01 10 28 00 00
B4 55 73 35 02 09 00 E8 20 00 00 D5 01 10 28 00 00
B4 55 73 34 02 09 00 E8 20 00 00 D5 01 10 28 00 00
B4 55 73 44 02 06 00 CB 1D 00 00 72 02 10 28 00 00
B4 55 73 3B 02 09 00 CB 1D 00 00 72 02 10 28 00 00
B4 55 73 3A 02 09 00 CB 1D 00 00 72 02 10 28 00 00
B4 55 73 39 02 09 00 E8 20 00 00 72 02 10 28 00 00
B4 55 73 38 02 09 00 E8 20 00 00 72 02 10 28 00 00
B4 55 73 45 02 06 00 C7 1D 00 00 B8 00 10 28 00 00
B4 55 73 2E 02 09 00 C7 1D 00 00 B8 00 10 28 00 00
B4 55 73 2D 02 09 00 C8 1D 00 00 B8 00 10 28 00 00
B4 55 73 2C 02 09 00 C8 1D 00 00 B8 00 10 28 00 00
B4 55 73 2B 02 05 00 C8 1D 00 00 B8 00 10 28 00 00
B4 55 73 D1 02 09 00 C6 1D 00 00 19 05 10 C8 00 00
B4 55 73 C2 02 09 00 A1 13 00 00 23 05 10 C8 00 00
B4 55 73 C1 02 09 00 7B 13 00 00 E7 03 10 C8 00 00
B4 55 73 C0 02 09 00 7B 13 00 00 79 03 10 C8 00 00
B4 55 73 E1 02 05 00 C6 1D 00 00 37 02 10 28 00 00
B4 55 73 8E 02 09 00 A1 13 00 00 20 02 10 28 00 00
B4 55 73 8D 02 09 00 7B 13 00 00 D7 00 10 28 00 00
B4 55 73 8C 02 09 00 7B 13 00 00 DE 00 10 28 00 00
B4 55 73 1A 08 05 00 A1 1D 00 00 32 04 10 C8 00 00
B4 55 73 1A 08 05 00 5B 23 00 00 C9 03 10 C8 00 00
B4 55 73 1A 08 05 00 4E 23 00 00 5B 04 10 C8 00 00
B4 55 73 2F 08 01 00 22 47 00 00 B1 02 10 C8 00 00
B4 55 73 CE 02 09 00 22 47 00 00 4C 02 10 C8 00 00
B4 55 73 A5 02 09 00 08 47 00 00 EB 02 10 C8 00 00
B4 55 73 D2 02 09 00 21 EE 11 00 D4 04 10 28 00 00
B4 55 73 A4 02 09 00 13 EF 11 00 90 04 10 28 00 00
B4 55 73 A3 02 09 00 13 EF 11 00 90 04 10 28 00 00
B4 55 73 A2 02 09 00 13 EF 11 00 90 04 10 28 00 00

Пакет на быстрый бег
A9 55 46 C9 2C 01 00 C9 5E 00 00 07 00 00 00
ставите 2 секунды повтарение в посылке и побежали со скоростью 12 )))

Пакет на самовскрешение
68 55 07 03

[SKIvik]

За пакеты пасибо а вот полнее можешь объяснить что за скрип и куда его, я не понял как его в программу то засунуть(

[darkmaks]

Цитата: Сообщение от SKIvik За пакеты пасибо а вот полнее можешь объяснить что за скрип и куда его, я не понял как его в программу то засунуть(

Ну в программе есть пункт Автоматизация, там есть скрипты.. создаёш новый скрипт, заменяеш его тект на этот... и всё вот тебе щастье... юзаеш пакеты из игра как скил... НЕ ЗАБЫВАЕМ ставить галочку возле имени скрипта каждый раз когда запускаем прогу)))

[ku6ep]

как только нажимаешь на улыбку скилы юзаются и сразу соединение с сервером прервано вылазит.

[Zits]

спасибо! пашет! Скажи пожалуста как поменять на другое действие(эмоцию)?
Можно ли сделать на другое действие пакет с воскрешением или антитаргетом? =)

[darkmaks]

Цитата: Сообщение от ku6ep как только нажимаешь на улыбку скилы юзаются и сразу соединение с сервером прервано вылазит.

Незнаю.. юзаеться беспроблем... может какие то левые пакеты там у тебя... или сервак на котором играеш не катит... пофиксенно.... или же у тебя клиент 2.1 ....

На 2.0.0.3 робит прекрасно... 2.1 там совсем другие пакеты...

Добавлено через 5 минут

Цитата: Сообщение от Zits спасибо! пашет! Скажи пожалуста как поменять на другое действие(эмоцию)? Можно ли сделать на другое действие пакет с воскрешением или антитаргетом? =)

if FromClient and (pck=#$CA#$55#$69#$15#$1C#$00#$00#$00#$00#$00) then begin

в этой строчке пакет эмоции ... при появлении этого пакета срабатывает скрипт .. лови любой другой пакет и ставь вместо этого...

[Zits]

на 2.1.0.3 работает тоже
Очень полезный скрипт!

[D1ss1DenT]

чтот я не вьеду подскажи указал путь к пакетам C:\1.txt нажал ран выполнить скрипт в игре жму улыбку но не происходит ничего ..

[ku6ep]

версия 2.1, пакеты на скилы отлавливал те, пакет на эмоцию тоже отлавливал = сходится ... наверно фикс

[Doobroo]

все сделал у мя ошибку выдет =(

[darkmaks]

Цитата: Сообщение от D1ss1DenT чтот я не вьеду подскажи указал путь к пакетам C:\1.txt нажал ран выполнить скрипт в игре жму улыбку но не происходит ничего ..

Ну смотри, раз ты такой путь прописал у тебя соответсвенно на диске С должен лежать этот файл с пакетами, и в окне скриптов справа надо поставить галочку - тогда скрипт запуститься

Добавлено через 2 минуты

Цитата: Сообщение от ku6ep версия 2.1, пакеты на скилы отлавливал те, пакет на эмоцию тоже отлавливал = сходится ... наверно фикс

ну незнаю... всё может быть... просто человек на 2.1 пробовал сказал что пакеты совсем другие и с этими пакетами вываливается игра... у него вообще пакеты со скилами были не В4 а В5 ... может у него кривой клиент

[BioDread]

Простенький скрипт можно было бы его и поменьче написать и чтобы без всяких текстовых документов=) Но всё равно спасибо.
Так вот Если ты шаришь писать скрипты напиши плиз скрипт который будет в заданном пакете менять 4й байт на +1 и отправлять через определённый интервал..
К примеру 07>08>09>0a>0b и так до определённого числа которое тоже будет устанавливаться. Сможешь?
П.С. А почему бы этот скрипт не упростить типо
IF fromserver pck xxxxxx
SendToServer;
Buf := HStr('xxxx')
Buf := HStr('xxxx')
и тд. НУ или както так вобщем чтобы без всяких текстовых документов и прочего лишнего добра

[macter]

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

[JusticFly]

У меня вместо самовоскрешения, он бегает и мигает о_О

[BOEBODA]

Спасибо , все действует , но есть минус.
Никак не могу поймать пакет с эмоциями( может кодированы , я хз , не спец) , но улыбка из первой темы подходит , не мог бы ктонить выкинуть несколько пакетов с эмоциями которые можно использовать под скрипты