[Скрипт] Скрипт для глада

[nolimite21]

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(400, 1);
 DoTheSkill(388, 5);
 DoTheSkill(321, 1);
 DoTheSkill(177, 5);
 DoTheSkill(180, 5);
 DoTheSkill(304, 4);
 DoTheSkill(2040, 5);
 DoTheSkill(303, 4);
 DoTheSkill(2017, 3);
 DoTheSkill(297, 3);
 DoTheSkill(2039, 6);
 DoTheSkill(233, 1); 
 DoTheSkill(380, 3);
 DoTheSkill(226, 1); 
 DoTheSkill(2032, 4); 
 DoTheSkill(2023, 2);
 DoTheSkill(2024, 2);
 DoTheSkill(381, 3);
 DoTheSkill(230, 2);
 end;
 end.

Довольно хороший скрипт для глада бьет всеми скилами (без каста) и сериями
З.Ы. за основу взял тему http://zhyk.ru/forum/showthread.php?t=250019

[khal]

на каком серве пробывал? и с какого лева?

[nolimite21]

Тестил на 55 серв нескажу чтоб неиспоганили)
Активируецо Яростный Удар V

[megatronx665]

Вот если бы ты хоть таймер поставил, тогда действительно был бы полезный скрипт, а этот под тип:
Юзнул - Унес за 1 сек - Спалился - Получил бан
Может для убийства мобов в стороне от лишних глаз (омг для чего?) этот скрипт и будет хоть каплю полезен. Для остальных случаев....

Хватит плодить темы со скриптами, тупо подставив скилы под свои профы. :рукалицо:

[nolimite21]

Цитата: Сообщение от megatronx665 Вот если бы ты хоть таймер поставил, тогда действительно был бы полезный скрипт, а этот под тип: Юзнул - Унес за 1 сек - Спалился - Получил бан Может для убийства мобов в стороне от лишних глаз (омг для чего?) этот скрипт и будет хоть каплю полезен. Для остальных случаев.... Хватит плодить темы со скриптамы, тупо подставив скилы под свои профы.:рукалицо:

Если тебе он ненужен это незначет что никому ненужен

[zelinskiy]

А куда его вставлять?

[Getar]

Цитата: Сообщение от zelinskiy А куда его вставлять?

Автоматизация / Скрипты / Создаеш новый скрипт ( все из нового скрипта удаляеш ) и вставляеш свой скрипт,активируеш галочкой,а дальше написанно в теме.

[NarkoZz1991]

на aion-free на харде не пашет(((

[xxxjohnxxx]

За основу брал вот этот скрипт http://zhyk.ru/forum/showthread.php?t=250019
Чтобы скрипт работал правильно нужно установить скиллс пак из вот
этой темы http://zhyk.ru/forum/showthread.php?t=250157 файл 3

сам скрипт:

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 := 177;
 if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
 begin
 TargetID := ReadD(8);
 
 DoTheSkill(400, 1);
 DoTheSkill(388, 5);
 DoTheSkill(321, 1);
 DoTheSkill(177, 5);
 DoTheSkill(180, 5);
 DoTheSkill(304, 4);
 DoTheSkill(2040, 5);
 DoTheSkill(303, 4);
 DoTheSkill(2017, 3);
 DoTheSkill(297, 3);
 DoTheSkill(2039, 6);
 DoTheSkill(233, 1); 
 DoTheSkill(380, 3);
 DoTheSkill(226, 1); 
 DoTheSkill(2032, 4); 
 DoTheSkill(2023, 2); 
 DoTheSkill(2033, 2);
 DoTheSkill(2024, 2);
 DoTheSkill(381, 3);
 DoTheSkill(230, 2);
 DoTheSkill(235, 2); 
 DoTheSkill(2028, 2); 
 DoTheSkill(2251, 2);    
 DoTheSkill(2266, 2);
 DoTheSkill(2022, 2);  
 DoTheSkill(399, 2); 
 DoTheSkill(384, 2); 
 DoTheSkill(387, 2);
 DoTheSkill(231, 2); 
 DoTheSkill(297, 2);     
 DoTheSkill(389, 2);   
 DoTheSkill(179, 2);
 DoTheSkill(2038, 2);  
 DoTheSkill(181, 2);   
 DoTheSkill(298, 2);
 DoTheSkill(2037, 2);   
 DoTheSkill(310, 2);
 end;
 end. 


[Kyrilo]

Итак начну сейчас собстевнно сам скрипт

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 := 2040;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2038, 9);
DoTheSkill(2031, 6);
DoTheSkill(235, 6);
DoTheSkill(171, 6);
DoTheSkill(167, 7);
DoTheSkill(274, 9);
end;
end.

Теперб как им пользоватся БИНД идет на изоляция 5 !как активировали изоляция 5 вылетет 2 серийных удара ТОИСТЬ ПОДРОБНЕЙ ЯРОСТНЫЙ УДАР И ЕГО СЕРИЯ + КОЛЮШИЙ УДАР И ЕГО СЕРИЯ !ето мение палевно еси скил идет по сериям я не в бане пользуюсь скриптом 15 дней пользуйтесь на здоровья И ЕСЛИ НЕ ЖАЛКО ПОСТАВ СПС

[qwertyuioppo]

спасибо)

[AndrewNV]

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

Что надо:
1) Глад 53лвл+
2) Прямые руки

Данные скрипты разбиты на отдельные серии ударов.
Делал сам.
Играю на одном из топовых серверов месяц, банов нету(гл.п.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 := 177;
 if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
 begin
 TargetID := ReadD(8);
 
 DoTheSkill(180, 1);
 DoTheSkill(298, 4); 
 DoTheSkill(179, 5);  
 DoTheSkill(2251, 3);
 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 := 2040;
 if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
 begin
 TargetID := ReadD(8);
 
 DoTheSkill(303, 4);
 DoTheSkill(2017, 3); 
 DoTheSkill(297, 3);     
 DoTheSkill(226, 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 := 2032;
 if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
 begin
 TargetID := ReadD(8);
 
 DoTheSkill(2023, 2);
 DoTheSkill(2024, 2); 
 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 := 2038;
 if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
 begin
 TargetID := ReadD(8);
 
 DoTheSkill(2031, 2);
 DoTheSkill(235, 1); 
 end;
 end.

Могу так же написать на отдельные классы.

//темы объединил.

[sweetboyss]

Ещё бы делай приделать
И цены не было бы))

[xairus]

я что то не понял ((( а можно попросить написать скрипт со всеми атаками + вампирическая волна и + цепочка стигм без меча вампира или как его там )

Добавлено через 2 минуты
и еще можно ли таким макаром прописать чтоб юзались свитки 4х защиты от стихий физ крит скорость атаки и банки хп?

[Bonni]

Боже, ужасные скрипты типа: Юзанул - получи бан, да? хD
Это палевные скрипты для нубов, и людям, которые жалеют своего персонажа я советовал бы и х не юзать =\
Сорь, просто опыт научил. Я сейчас сам пишу себе скрипты на все класы которыми играю без проблем, и у меня они не более 3х скилов в 1 скрипте (ето в крайнем случае, тоесть 2 удара(обязательно по серии если она есть!!!) а третий скил активатор, я обычно использую в качестве активатора какой-нибудь безобидный скил (баф какой-нибудь например) ). Поэтому советую юзать соответственно не более 3х скилов И ОБЯЗАТЕЛЬНО по серии. Вот.
З.Ы. Настоятельно рекомендую писать скрипты самому!
З.Ы.Ы. Как написать скрипт ищите тут на форуме.
Спс за внимание.