[Скрипт] Для Лучника

[nightspouke]

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

PHP код:

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]

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

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]

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

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.

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

[Denis86russ@]

мм скрипт для 2.5??

[Broman]

Цитата: Сообщение от Denis86russ@ мм скрипт для 2.5??

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

[Astrixxx]

Broman, какую строчку ?

[Broman]

Цитата: Сообщение от Broman ('CF 57 6C CC CC DD 00 FF FF FF FF 00 00 00 00 00 00')

эту

[khrkov.s]

Цитата: Сообщение от Broman эту

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

[dawah]

Цитата: Сообщение от khrkov.s а что там прописать Сори я нуб в скриптах)

юзаешь скил, ловишь пакет на юзание этого скила и вставляешь вместо того пакета

[ioann]

этот скрипт будет работать только на 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]

решил выложить улучшенный скрипт на лука с ДД веткой. использует все скилы кроме стрелы, у которой каст 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]

На Newaion не будет работать (там сервером контролируются кол-во отправленных пакетов за секунду)

[antinx]

Цитата: Сообщение от tyrto Эм... и как юзать?

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

[c-lavr]

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

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

[neitro]

с таким скриптом ток бананы получать . . .