[Пакеты] На Стража [Архив]

par-vova

02.10.2011, 19:37

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

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

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.

Активируется Провокация 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.

Активация скилом Блок щитом 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 := 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

02.10.2011, 20:38

Спасибо:rolleyeyes:

wools

07.10.2011, 13:47

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

jayton

08.10.2011, 14:12

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

Life1sGood

17.10.2011, 11:00

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

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

par-vova

17.10.2011, 14:54

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

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

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

Life1sGood

17.10.2011, 15:59

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

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

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

rolioo

01.12.2011, 12:56

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

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

27.01.2012, 00:24

Переделал для 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

07.06.2012, 08:44

Решил выложить свои скрипты для танка.
Активация: Яростный удар 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(2065, 4);
end;
end.
Активация:Ослабляющий удар 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 := 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
скил преднозначен для щита, но со криптом можно использовать и с двуручным мечом. Минус в том что как и с щитом нельзя использовать скилы, бить только авто атакой.
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

08.06.2012, 05:00

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

kaktak111

08.06.2012, 08:08

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

nykich

10.06.2012, 22:15

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

Ataman73

18.08.2012, 16:55

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

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

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

ВЫходят 2 скила Подсечка IV ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) и Запредельный удар I ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

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

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

Все мои Скрипты на танка
Кидаем в Папку Scripts.
Активируется Провокация 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

18.08.2012, 16:57

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