[Скрипт] мини скрипты для 2.7

[vitalyafox1]

ТАК. для начала прошу не судите строго.....
вобщем ето скрипты для лучника и гладиатора ( для асмо ) если чтото не понятно то обращайтесь=))http://zhyk.ru/forum/images/smilies/x/z.gif
ТЕСТИЛОСЬ НА AION R***Z


ГЛАДИАТОР

ИЗОЛЯЦИЯ 5 

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

DoTheSkill(2039, 1);
DoTheSkill(228, 1);
DoTheSkill(233, 1);
end;
end. 


КОЛЮЩИЙ УДАР 4


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

DoTheSkill(2031, 1);
DoTheSkill(226, 9);
DoTheSkill(230,1 );

end;
end. 





ЯРОСТНЫЙ УДАР 5


// by FOX
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(168, 9);
DoTheSkill(304, 9);
DoTheSkill(230, 1);
end;
end. 




ПРОНЗАЮЩИЙ КЛИНОК 4


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

DoTheSkill(2023, 9);
DoTheSkill(2024, 9);
DoTheSkill(312, 9);
end;
end. 




МАСОВКА-ВАМПИРИЧИСКАЯ ВОЛНА 2



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

DoTheSkill(387, 1);
DoTheSkill(321, 1);
DoTheSkill(389, 1);
end;
end. 






                                                                      :ban:    ЛУЧНИК



ВНЕЗАПНЫЙ ВЫСТРЕЛ 4


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

DoTheSkill(719, 1);
DoTheSkill(722, 1);
end;
end. 



ВЫСТРЕЛ 4



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


DoTheSkill(737, 1);
DoTheSkill(691, 1);
DoTheSkill(730, 1);
end;
end. 






СТРЕЛА КОНСИОДА 1 




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

DoTheSkill(2091, 1);
DoTheSkill(666, 1);
DoTheSkill(632, 1);
end;
end. 






СТРЕЛА ЯРОСТНОГО ВЕТРА 2 



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

DoTheSkill(631, 1);
DoTheSkill(2093, 1);
DoTheSkill(2090, 1);
end;
end.

ЕСЛИ ПОНРАВЕЛОСЬ ДОБАВЛЮ И ДРУГИЕ КЛАССЫ!!!!

[Phantоm]

Я так понял с лучника копипаст? Хоть бы автора указал...

[vitalyafox1]

ети скрипты делал я сам! за основу брал темы из сайта zhyk.ru

[ARTi4]

а что эти скипты делают то ?

[vitalyafox1]

убивают)

[ARTi4]

А по русски можешь объяснить ?
Они что больше дамага чем обычные скилы наносят или что ?

[talala]

Цитата: Сообщение от vitalyafox1 вобщем ето скрипты для лучника и гладиатора ( для асмо ) если чтото не понятно то обращайтесь=))

Мне не понятно!
Задан вопрос:

Цитата: Сообщение от ARTi4 А по русски можешь объяснить ? Они что больше дамага чем обычные скилы наносят или что ?

Просьба ответить

[vitalyafox1]

ТАК.... ети скрепты я зделал для того чтоб меньше палитса! ето раз! на некоторых серваерах стоит ограничение пакетов! ето два! ЕТИ СКРЕПТЫ ПОДОЙДУТ ТОЛЬКО НА АЙОН 2.7 !!!! ЕТОТ СКРИПТ ЗАМЕНЯЕТ НАМ ТАК ЖЕ СКИЛПАК!!!! ТОИСТЬ ВЫ СО СКИЛПАКОМ НАЖЫМЕИТЕ 4 СКИЛА ЗА 2-3 СИКУНДЫ ( НАПРИМЕР ) А ТУТ ЗА 1 СЕКУНДУ ВЫ УДАРИТЕ СРАЗУ 4 СКИЛАМЫ !!!!!! особенно в толпе ети скрепты не кто не заметит!!!!

[Рыба-йазь]

А можно их на нях переделат

[vitalyafox1]

да.конечно

[Phantоm]

Цитата: Сообщение от vitalyafox1 ТОИСТЬ ВЫ СО СКИЛПАКОМ НАЖЫМЕИТЕ 4 СКИЛА ЗА 2-3 СИКУНДЫ ( НАПРИМЕР ) А ТУТ ЗА 1 СЕКУНДУ ВЫ УДАРИТЕ СРАЗУ 4 СКИЛАМЫ !!!!!!

Хоть в толпе, хоть не в толпе я сразу пойму что у меня все хп за 1 секунду ушло. Фрапс на форуме и ты в бане. Задержку между пакетами поставь.

[ARTi4]

Цитата: Сообщение от vitalyafox1 да.конечно

А как ???
Просто я со скриптами особо не знаком.

Добавлено через 33 минуты
И еще одно это скрипт на 3.0 ??

[talala]

Цитата: Сообщение от ARTi4 И еще одно это скрипт на 3.0 ??

Перечитайте внимательно 8 пост этой темы.

[ARTi4]

А как сделать эти скрипты на няху ?

[vitalyafox1]

DoTheSkill(737, 1);
DoTheSkill(691, 1);
DoTheSkill(730, 1);
end;
end.


заменить на няховкие!