PDA

Просмотр полной версии : [Скрипт] Для Лучника


Getar
24.08.2011, 17:00
Решил поделиться своим скриптом для лучника.

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(632, 1);
DoTheSkill(666, 1);
DoTheSkill(2090, 1);
DoTheSkill(631, 1);
DoTheSkill(648, 1);
DoTheSkill(2085, 1);
DoTheSkill(2091, 1);
DoTheSkill(629, 1);
DoTheSkill(722, 1);
DoTheSkill(721, 1);
DoTheSkill(737, 1);
DoTheSkill(691, 1);
DoTheSkill(730, 1);
DoTheSkill(736, 1);
DoTheSkill(719, 1);
DoTheSkill(2093, 1);
DoTheSkill(630, 1);
DoTheSkill(787, 1);
DoTheSkill(2098, 1);
DoTheSkill(2083, 1);
end;
end.

Скрипт активируется "Концентрация на уклонение l",после чего ваш персонаж атакует цель всеми скиллами и всеми сериями что есть у лучника. /problem

Если помог спасибки ставим,не стесняемся.

Куда этот скрипт вставлять ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

megatronx665
24.08.2011, 18:00
Невероятно "биспалевна". И как я понял работает только на 55 лвле с фулл стигмами.
П.С. Добавь лучше еще баф в скрипт.

Getar
24.08.2011, 18:03
Невероятно "биспалевна". И как я понял работает только на 55 лвле.
П.С. Добавь лучше еще баф в скрипт.

Не считаю нужным вставлять сюда бафы.
Если вам нужно вставьте сами.

Ap4uk
24.08.2011, 18:07
Ты всегда такие безплевные скрипты выкладываешь? это каким надо быть безстрашным , что бы их юзать

Getar
24.08.2011, 18:09
Ты всегда такие безплевные скрипты выкладываешь? это каким надо быть безстрашным , что бы их юзать

Меня например на AionRulez не палят,потому что там всем тупо пофиг.
На фри пару раз его юзнул даже в пм не орали :sceptic:

megatronx665
24.08.2011, 18:09
Укажи темку откуда была взята основа для скрипта (пора научится уважать чужой труд).

Getar
24.08.2011, 18:16
:flood:

nolimite21
25.08.2011, 14:11
Невероятно "биспалевна". И как я понял работает только на 55 лвле с фулл стигмами.
П.С. Добавь лучше еще баф в скрипт.
Я пробовал добавить бафы но бесполезно тк. у лука все нужные бафы имеют общий откат

TaylasWift
26.08.2011, 11:44
Сделал плохо, добавил не все скиллы, приходится всё делать самому...

Getar
26.08.2011, 11:58
Сделал плохо, добавил не все скиллы, приходится всё делать самому...

/facepalm

Смотри внимательнее.... У меня к примеру,всеми бьет!

lk2009
27.08.2011, 15:22
уточните, это ток для 55 лука?

rulic
27.08.2011, 20:00
уточните, это ток для 55 лука?
Да

TaylasWift
28.08.2011, 12:07
/facepalm

Смотри внимательнее.... У меня к примеру,всеми бьет!

На рулезе проверял, половина скиллов вообще не вылетает, про серии я даже не говорю...

Inner_Void
02.09.2011, 16:42
Это WPS или FS синтаксис? ( и для WP ли это вообще? )

stels1111
11.09.2011, 11:58
На фри оч палевно можно просто сделать скрин и скрин логов и чел получить 8к

zander894
05.10.2011, 05:36
На фри проверил половины скиллов даже не применяются, корректировать необходимо./bonk

rulic
05.10.2011, 12:22
На фри проверил половины скиллов даже не применяются, корректировать необходимо./bonk

Примеются там где все скилы автоматически учатся.А если у тебя не все скилы то скрипт дойдёт до того скила которого у тебя нету и прекратит использование остальных скилов!

par-vova
13.10.2011, 11:07
Активация скилом Выстрел IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) - юзает всю серию сразу.
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 721;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(721, 4);
DoTheSkill(737, 4);
DoTheSkill(2074, 3);
end;
end.

Аткивация скилом Внезапный выстрел IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) юзает всю серию сразу.

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 736;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(736, 4);
DoTheSkill(719, 3);
end;
end.

Активация скилом Концентрация на уклонении I - бафается
([Ссылки могут видеть только зарегистрированные и активированные пользователи])
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(572, 1);
DoTheSkill(2277, 1);
DoTheSkill(641, 1);
DoTheSkill(697, 1);
DoTheSkill(1978, 1);
DoTheSkill(639, 1);
DoTheSkill(560, 1);
DoTheSkill(577, 1);
DoTheSkill(689, 4);
DoTheSkill(690, 4);
DoTheSkill(643, 1);
DoTheSkill(701, 1);
end;
end.

Ставим спасибку если помог .

mansyr
13.10.2011, 20:54
палевно лучше на бафф прописать )

kakAwp
17.10.2011, 05:33
Решил поделиться своим скриптом для лучника.

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(632, 1);
DoTheSkill(666, 1);
DoTheSkill(2090, 1);
DoTheSkill(631, 1);
DoTheSkill(648, 1);
DoTheSkill(2085, 1);
DoTheSkill(2091, 1);
DoTheSkill(629, 1);
DoTheSkill(722, 1);
DoTheSkill(721, 1);
DoTheSkill(737, 1);
DoTheSkill(691, 1);
DoTheSkill(730, 1);
DoTheSkill(736, 1);
DoTheSkill(719, 1);
DoTheSkill(2093, 1);
DoTheSkill(630, 1);
DoTheSkill(787, 1);
DoTheSkill(2098, 1);
DoTheSkill(2083, 1);
end;
end.

Скрипт активируется "Концентрация на уклонение l",после чего ваш персонаж атакует цель всеми скиллами и всеми сериями что есть у лучника. /problem

Если помог спасибки ставим,не стесняемся.

Такто ватный и палевный скрипт,я свой переделывал,и норм.У тебя не фул баф-и скил не фул тут идет.

Life1sGood
17.10.2011, 10:58
Так вот как мне лук, по стражу в кэпе, с фул бафом а это дето -85% дамага по мне, с тычки пол НР снёс:(

Данный скрипт очень палевный:)

Donzezz
19.10.2011, 15:04
Ребят , у меня на фрее юзаются, с l2ph, только до 3 скилов(больше никак), и скрипты не работают. Скажите ,как это исправить :wtf:

Komifo
22.10.2011, 12:16
Там и этого хватает)

FrolPopov
24.10.2011, 14:26
А можно сделать например с паузами? На легенде не работает выпулить сразу все скилы, там если оставляешь такой скрипт юзается как обычно первый второй третий сам нажимаешь.

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

Я пробовал делать паузу ( delay(1000) ) между скилами, но тогда при нажатии на активирующий скил секунду, две ждет и выпуливает все сразу. Вот как это поправить?

jayton
24.10.2011, 16:12
пауза между скилами будет зависеть от пинга, а он не стабилен.

freshinin-aion
28.10.2011, 13:08
а куда этот скрипт вставлять?

shadowst
28.10.2011, 16:17
а куда этот скрипт вставлять?

Автоматизация -> Скрипты -> Новый скрипт -> копипаст с удаление предыдущего содержимого -> Сохранить текущий скрипт -> Ставишь галочку справа -> Юзаешь на здоровье.

†Sweet†
28.10.2011, 18:04
А можно сделать например с паузами? На легенде не работает выпулить сразу все скилы, там если оставляешь такой скрипт юзается как обычно первый второй третий сам нажимаешь.

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

Я пробовал делать паузу ( delay(1000) ) между скилами, но тогда при нажатии на активирующий скил секунду, две ждет и выпуливает все сразу. Вот как это поправить?

Тоже очень интересует вопрос с "delay"
Но при отправки полного пакета с "delay 500" между двумя скилами
l2phx виснет, и через 15сек отвисает, но вся серия уже была выпушена, и как я понял, без "delay" :eek:

p.s на серве котором играю, пинг "1-7"

proxam
06.11.2011, 19:34
Меня например на AionRulez не палят,потому что там всем тупо пофиг.
На фри пару раз его юзнул даже в пм не орали

незнаю на счет фри, но на AionRulez меня уже банили

Klive
07.11.2011, 07:50
Меня чуть за такой скрипт не забанили ))

nightspouke
08.11.2011, 03:17
Не проще скрипт сделать "чутка" безпалевней?
Кто не умеет редактировать скипты;
Вот скрипт

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(632, 1);
DoTheSkill(666, 1);
DoTheSkill(2090, 1);
DoTheSkill(631, 1);
DoTheSkill(648, 1);
DoTheSkill(2085, 1);
DoTheSkill(2091, 1);
DoTheSkill(629, 1);

end;
end.

А теперь поясню что нужно сделать, если мы хотим сделать скрипт под себя. Нам нужно редактировать всего лишь цифры, в это случае строчки
DoTheSkill(632, 1); где "632" это айди скилла в датабазе, а "1" это уровень скилла. Так же можно писать скрипт под разные профессии, просто нужно писать айди своих скиллов.
Я например сделал скрипт на серии "выстрел", "внезапный выстрел", и это никак не заметно. Аналогично с сином "приминение смертельных ядов+отравленный клинок" и т.п.
Лучше сделать пару тройку скриптов, и не палиться, чем с дуры запихать всё в 1 и бегать как идиот сливать всех с 1 удара.

rolioo
01.12.2011, 12:50
вот нескока скилпаков на лучника,дабы не спалиться и получить преимущество в пвп поетому они нее большие.

1) эм,активируется разрывная стрела,вслед вылетает сковывающая стрела.


var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2093;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2090, 2);


end;
end.

2) скилпак активируется скилом ....вроде называется стрела яростного ветра,ну тот что стреляет прям на ходу,и сининький такой) вопщ если на вашем серве не фикс,то разберётесь)


var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2085;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(736, 4);
DoTheSkill(719, 3);


end;
end.

Broman
05.03.2012, 14:40
Не видел тут еще скрипта который был бы не паливным и который можно было бы использовать без всякой опаски, решил выложить свой:

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 736;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(722, 9);
DoTheSkill(736, 1);

end;
end.

Данный скрипт активируется умением Внезапный выстрел IV. Хорошо использовать против других лукарей и синов, т.к начальным умением Аркан IV мы моментально сбиваем уклон Концентрация на уклонение и вслед идет внезапный выстрел.


И еще 1 скрипт..
Активируется умением Разрывная стрела IV


var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00');
WriteH(SkillID, 4);
WriteC(Level, 6);
WriteD(TargetID, 8);
SendToServer;
end;

begin
StartSkill := 2093;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(577, 1);
DoTheSkill(2093, 1);
DoTheSkill(2090, 1);

end;
end.

Кому чем-то помог не откажусь от спс)/md

Denis86russ@
05.03.2012, 15:27
мм скрипт для 2.5??

Broman
05.03.2012, 16:04
мм скрипт для 2.5??

да, для 2.7 нужно заменить всеголишь 1 строчку)

Astrixxx
05.03.2012, 16:42
Broman, какую строчку ?

Broman
05.03.2012, 17:33
('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00')
эту

khrkov.s
05.03.2012, 17:40
эту

а что там прописать
Сори я нуб в скриптах)

dawah
05.03.2012, 19:47
а что там прописать
Сори я нуб в скриптах)
юзаешь скил, ловишь пакет на юзание этого скила и вставляешь вместо того пакета

ioann
05.03.2012, 21:12
этот скрипт будет работать только на 2.5 ! и там не одно строчку менять нужно ...
вот такой формы будет на 2.7


var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF 64 05 03 00 00 00 00 00 00 00 F9 2F 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 16);
SendToServer;
end;

begin
StartSkill := 2238;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(16);

DoTheSkill(2238, 4);
DoTheSkill(2233, 5);
end;
end.

то что красным меня на свой ид !

antinx
29.03.2012, 10:16
решил выложить улучшенный скрипт на лука с ДД веткой. использует все скилы кроме стрелы, у которой каст 2 секуднды.

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 2276;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(632, 1);
DoTheSkill(666, 1);
DoTheSkill(2090, 1);
DoTheSkill(631, 1);
DoTheSkill(648, 1);
DoTheSkill(2085, 1);
DoTheSkill(2091, 1);
DoTheSkill(629, 1);
DoTheSkill(722, 1);
DoTheSkill(721, 1);
DoTheSkill(737, 1);
DoTheSkill(691, 1);
DoTheSkill(730, 1);
DoTheSkill(736, 1);
DoTheSkill(719, 1);
DoTheSkill(2093, 1);
DoTheSkill(630, 1);
DoTheSkill(787, 1);
DoTheSkill(2098, 1);
DoTheSkill(2083, 1);
DoTheSkill(2089, 1);
DoTheSkill(2078, 1);
DoTheSkill(731, 1);
end;
end.

Помог? Жми "Спасибо"

aion programmer
29.03.2012, 15:16
На Newaion не будет работать (там сервером контролируются кол-во отправленных пакетов за секунду)

antinx
29.03.2012, 15:27
Эм... и как юзать?

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

c-lavr
29.03.2012, 16:17
На Newaion не будет работать (там сервером контролируются кол-во отправленных пакетов за секунду)

Дык вставить таймер.
А так тем готовых вообще полно. Менять ID скилов все могут. Не стоит это выкладывать в темы. Лучше отпишешь у автора данного скрипта в теме :flood:

neitro
29.03.2012, 23:15
с таким скриптом ток бананы получать . . .

tyrto
31.03.2012, 11:47
par-vova. юзаю спел выстрел и нечегон е просиходит серия весит и все...
Getar- юзаю Концентрация на уклонение l и нече не происходит)
З.ы сборка JS эмуль. 2.7

Добавлено через 7 минут
ioann - этот скрипт будет работать только на 2.5 ! и там не одно строчку менять нужно ...
вот такой формы будет на 2.7
Где взять эти пакеты? т.к у меня все касты идут на D0

Добавлено через 9 минут
Напишите скрипт на 2.7 на верхнюю ветку пожалуйсто)
/okay

lightbearer
31.03.2012, 12:06
Script By Getar
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('сюда пакет от скилла типа D0 сообщение удалить и вставить пакет');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 572;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(632, 1);
DoTheSkill(666, 1);
DoTheSkill(2090, 2);
DoTheSkill(631, 1);
DoTheSkill(648, 1);
DoTheSkill(2085, 1);
DoTheSkill(2091, 1);
DoTheSkill(722, 9);
DoTheSkill(721, 9);
DoTheSkill(737, 5);
DoTheSkill(691, 9);
DoTheSkill(730, 7);
DoTheSkill(736, 3);
DoTheSkill(719, 8);
DoTheSkill(2093, 1);
DoTheSkill(630, 1);
DoTheSkill(2098, 1);
DoTheSkill(2083, 4);
end;
end.

tyrto
02.04.2012, 18:20
спс. ударяет не всеми ( но всенавно спс

lightbearer
02.04.2012, 18:22
всегда рад помочь!

Добавлено через 8 минут
обновил скрипт теперь все должны ударять жду спасибок!)

rtghf
23.01.2013, 17:46
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 776;
if (FromClient) and (ReadC(1) = $EF) and (ReadH(6) = StartSkill) then
begin
buf:=pck;
TargetID := ReadD(10);
DoTheSkill(2479, 5);
DoTheSkill(2490, 2);
DoTheSkill(736, 4);
DoTheSkill(2089, 1);
DoTheSkill(2497, 4);
DoTheSkill(2478, 5);
DoTheSkill(730, 2);
DoTheSkill(2359, 1);
DoTheSkill(2098, 7);
DoTheSkill(2510, 2);
DoTheSkill(2508, 6);
DoTheSkill(2083, 2);
DoTheSkill(2504, 5);
DoTheSkill(2509, 5);
DoTheSkill(2090, 2);
DoTheSkill(647, 1);
DoTheSkill(2491, 2);
DoTheSkill(2495, 4);
DoTheSkill(630, 1);
end;
end.


Вобщем вот скрипт запилил сам. Скрипт для лука вылетают все скилы сразу. Активация скрипта скилом Орлиный глаз I.
От спасибок не откажусь)

.::SHOT::.
23.01.2013, 18:25
2 ветки или 1 если 1 то какая?

rtghf
24.01.2013, 12:57
2 ветки или 1 если 1 то какая?[/QU
две

Добавлено через 2 минуты
[QUOTE=.::SHOT::.;4102444]2 ветки или 1 если 1 то какая?

две

krot1986
28.01.2013, 18:10
Спасиб опробовал на Фри почти все работает нормально

rtghf
29.01.2013, 19:07
Спасиб опробовал на Фри почти все работает нормально

ну так тыкни спасибку)

reguel
30.01.2013, 04:01
такой вопрос может кто нить написать скрипт по этим скилам? и чтобы первый выстрел был замедляющий (чтоб скидывать уклон с луков и синов)
вот калькулятор прилагаю, но там на 55 и соответсвенно нужно заменить скиллы на 60 лвл все стигмы стоят последние ТОП АП и обычные топ лвл.
[Ссылки могут видеть только зарегистрированные и активированные пользователи]:2:655:684:2082:2099:646:208 7:2085:631:2091:623:641
и еще как потом и куда его вставлять, прога L2PacketHack имеется но хз че там и куда и как в игре все запустить, играю на NA (сев америка)