[Пакеты] На Стража

[par-vova]

Вкладка Автоматизация --> Скрипты (Ctrl + E) --> Новый скрипт --> Пишим название (НАпримерТанк Бафы) -->Стираем всё что есть, и добавляем скрипты --> Ставим галочку справа , возле названия скрипта.

Активируется с помошью [Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ].

Цитата: 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 := 177; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(180, 5); DoTheSkill(2059, 4); DoTheSkill(2065, 4); DoTheSkill(550, 1); DoTheSkill(179, 5); DoTheSkill(2060, 2); DoTheSkill(2045, 4); DoTheSkill(2044, 4); DoTheSkill(2055, 4); DoTheSkill(1977, 1); DoTheSkill(542, 2); DoTheSkill(2053, 5); DoTheSkill(157, 4); DoTheSkill(405, 3); DoTheSkill(2059, 4); DoTheSkill(2066, 3); DoTheSkill(2046, 3); DoTheSkill(539, 3); DoTheSkill(1973, 1); DoTheSkill(2272, 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 := 176; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2055, 4); DoTheSkill(1977, 1); end; end.

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

Цитата: 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 := 173; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(287, 1); DoTheSkill(513, 1); DoTheSkill(416, 1); DoTheSkill(466, 4); DoTheSkill(1978, 1); DoTheSkill(401, 1); DoTheSkill(466, 4); DoTheSkill(1978, 1); DoTheSkill(426, 1); DoTheSkill(2058, 4); DoTheSkill(537, 1); DoTheSkill(506, 1); DoTheSkill(413, 1); end; end.

Ставим спасибку за старание.

Все мои Скрипты на танка
Кидаем в Папку Scripts.

[Максимк0]

Спасибо

[wools]

Спасибо, нет ли планов в дальнейшем к написанию скрипта под двуручное оружие?

[jayton]

первый скрипт что бы активировать через Яростный удар IV [Ссылки могут видеть только зарегистрированные пользователи. ] надо только заменить:
"....
begin
StartSkill := 177;
..."
на:
begin
StartSkill := 172;
или еще что? а то на моем сервере не робит...

[Life1sGood]

Насколько я понимаю, данный скрипт расщитан на булаву?

и в течении какого времени наносится весь урон? 1, 2, 3, 100 секунд?

[par-vova]

Цитата: Сообщение от Life1sGood Насколько я понимаю, данный скрипт расщитан на булаву? и в течении какого времени наносится весь урон? 1, 2, 3, 100 секунд?

За 1 сек, НЕТ тут и на двурук тоже сделано, безразнецы какое оружее надето .

[Life1sGood]

Цитата: Сообщение от par-vova За 1 сек, НЕТ тут и на двурук тоже сделано, безразнецы какое оружее надето .

надо попробывать, но думаю это палево 100%


ну всёравно спасибо)

[rolioo]

активируется данный скилпак , ослабляющий удар, вылетает бросок о земь,подсечка,и непомню как называтся,ну он тоже как и подсечка бьёт цель ток в состояние лёжа,красненький такой)

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 := 388;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);
DoTheSkill(2066, 3);
DoTheSkill(2055, 4);
DoTheSkill(1977, 1);
end;
end.

[happytorn]

Переделал для 2.7.Активируется скилом Яростный удар V
Тык

Цитата: 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 := 177; if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then begin TargetID := ReadD(10); DoTheSkill(180, 5); DoTheSkill(2059, 4); DoTheSkill(2065, 4); DoTheSkill(550, 1); DoTheSkill(179, 5); DoTheSkill(2060, 2); DoTheSkill(2045, 4); DoTheSkill(2044, 4); DoTheSkill(2055, 4); DoTheSkill(1977, 1); DoTheSkill(542, 2); DoTheSkill(2053, 5); DoTheSkill(157, 4); DoTheSkill(405, 3); DoTheSkill(2059, 4); DoTheSkill(2066, 3); DoTheSkill(2046, 3); DoTheSkill(539, 3); DoTheSkill(1973, 1); DoTheSkill(2272, 2); end; end.

[kaktak111]

Решил выложить свои скрипты для танка.
Активация: Яростный удар V

PHP код:

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 := 177;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(180, 5);
DoTheSkill(2065, 4);
end;
end. 


Активация:Ослабляющий удар V

PHP код:

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 := 388;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(539, 2);
DoTheSkill(542, 3);
end;
end. 


Выложу ещё один скрипт, может кто и оценит, кто то посчитает бесполезным итак. Активация:Издевательский хохот VI
Юзаем издевательский хохот, и у нас активируется Отражающая защита I
скил преднозначен для щита, но со криптом можно использовать и с двуручным мечом. Минус в том что как и с щитом нельзя использовать скилы, бить только авто атакой.

PHP код:

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 := 2067;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(2067, 6);
DoTheSkill(1976, 1);
end;
end. 


Выложил основные скрипты, если кому то нужны дополнительные скилы и бафы отписывайтесь в теме, скоро выложу темы со скриптами для других классов.

[Nervni]

объясните, куда все эти скрипты вписывать?

[kaktak111]

Это всё через l2ph-Автоматизация-скрипты.
Создаёшь новый скрипт, и туда вписываешь, если не знаешь как пользоваться l2ph посмотри форум , тут всё подробно раписано

[nykich]

очень палевно и в использовании этих скриптов смысла не вижу

[Ataman73]

Цитата: Сообщение от par-vova Вкладка Автоматизация --> Скрипты (Ctrl + E) --> Новый скрипт --> Пишим название (НАпримерТанк Бафы) -->Стираем всё что есть, и добавляем скрипты --> Ставим галочку справа , возле названия скрипта. Активируется с помошью [Ссылки могут видеть только зарегистрированные пользователи. ] - [Ссылки могут видеть только зарегистрированные пользователи. ]. Активируется [Ссылки могут видеть только зарегистрированные пользователи. ] ВЫходят 2 скила [Ссылки могут видеть только зарегистрированные пользователи. ] и [Ссылки могут видеть только зарегистрированные пользователи. ] Активация скилом [Ссылки могут видеть только зарегистрированные пользователи. ] Активирует [Ссылки могут видеть только зарегистрированные пользователи. ] . Ставим спасибку за старание. Все мои Скрипты на танка Кидаем в Папку Scripts.

Цитата: Сообщение от par-vova Активируется Провокация IV ВЫходят 2 скила Подсечка IV и Запредельный удар 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 := 176; if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then begin TargetID := ReadD(8); DoTheSkill(2055, 4); DoTheSkill(1977, 1); end; end.

все нормально работает тока вот этот скрипт не пашет

[par-vova]

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