Глад

[Traore]

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

Сделал скрипт для глада на бафы очень выручает в масс замесах но есть и маленький минус бафы у глада понижают деф но повышают скорость атаки и атаку так же в этом скрипте есть и броня баланса и снятие шока что даёт 2000 сопротивления к опракидыванию итд так что тут пан или пропал. Активируется стойкой берсерка


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

DoTheSkill(245,1);
DoTheSkill(1968,1);
DoTheSkill(287,1);
DoTheSkill(225,1);
DoTheSkill(391,1);
DoTheSkill(245,1);
end;
end.

Вот ещё не замысловатый скриптик но его юзать актуально только на рб либо 1-1 так как тут стоят делаи а иза них пока не закончится выполнение скрита на слабых системах всё зависает на более мощьных работает полудше но зато вам не предъявят что вы пускаете все скилы за 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 := 2040;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2040,5);
delay(900);
DoTheSkill(228,2);
delay(700);
DoTheSkill(2039,4);
delay(750);
DoTheSkill(2038,4);
delay(850);
DoTheSkill(2031,2);
delay(800);
DoTheSkill(235,1);
delay(700);
DoTheSkill(233,1);
delay(930);
DoTheSkill(2022,2);
delay(860);
end;
end.

Это вам так сказать на пробу если будет нужно пишите в лс с радостью помогу сделать скрипт под ваш класс.

[xairus]

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

[Bonni]

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

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

DoTheSkill(2028, 5);


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

DoTheSkill(226, 1);


end;
end.

3
нисходящий удар+выпить крови(активируется нисходящим ударом)


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

DoTheSkill(2022, 2);


end;
end.

Вот сопственно и сё) надо будет,выложу ещё)
//темы объединил. talala

[K911]

Для 2.5
1- скрипт для стража

Насыщение здоровьем I (отхил) активируется при помощи скила Блок щитом 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(1969, 1);
end;

end.

2- скрипт для стража

Пленение I (удочка) активируется с помощью скила Надежная защита 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 := 524;
if (FromClient) and (ReadC(1) = $CF) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1975, 1);
end;
end.

[K911]

Первый скрипт.
В игре: ищешь у себя скил (Изоляция V)
в скрипте прописаны делаи (паузы), может подвисать
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 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) = $D0) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(2040,5);
delay(900);
DoTheSkill(228,2);
delay(700);
DoTheSkill(2039,4);
delay(750);
DoTheSkill(2038,4);
delay(850);
DoTheSkill(2031,2);
delay(800);
DoTheSkill(235,1);
delay(700);
DoTheSkill(233,1);
delay(930);
DoTheSkill(2022,2);
delay(860);
end;
end.
Второй скрипт.
активатор, яростный удар 4!
var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 57 6F 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 := 172;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(4) = StartSkill) then
begin
TargetID := ReadD(8);

DoTheSkill(1968, 1);
DoTheSkill(225, 1);
DoTheSkill(2266, 3);
DoTheSkill(2039, 6);
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);
DoTheSkill(2037, 4);
DoTheSkill(2038, 4);
DoTheSkill(2031, 2);
DoTheSkill(235, 1);
DoTheSkill(228, 2);
DoTheSkill(2025, 6);
DoTheSkill(2268, 2);
DoTheSkill(2022, 2);
DoTheSkill(2035, 4);
DoTheSkill(2030, 2);
DoTheSkill(234, 1);



end;

end.

[fakamakas]

Спс,тестил на терайон работает на ура!

[graf0909]

Чем первый скрипт отличается от второго??

[graf0909]

Паузы.
Автор обьедени эту тему с этой ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) .

Что такое паузы?

[KamproMAT]

паузы между скилами! т.е. когда ты юзаешь(используешь) скрип, скилы будут кастоваться с паузой(промежуток времени) между ними(меньше палива по логам)

Помог ставим спасибку)

[Pocuk]

Как можно зделать скрипт чтоб он делал серию ударов потом серию после опрокидования?или напишите буду благодарен
да запросто, только если у тебя скрипты с етой темы не бьют кучей скилов за секунду то толку будет мало)
для такого скрипта надо будет пример пакета с твоего сервера на любой атакующий скил и список скилов (и их порядок вылета) которими хочеш бить - все мне в пм:pandal:

[vladmarmelad]

Вот выложил вам свой скрипт на глада, при активации скилла [Ссылки могут видеть только зарегистрированные и активированные пользователи] вылетает вся его серия с задержой между скиллами 900 м\с, таким образом по логам спалить трудней.
P.S. в стороке имя соединения указывайте свой логин от аккаунта
const
name = 'username'; //имя соединения
var
Timer:TTimer;
TimerStep:integer;
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);
SendToServerEx(name);
end;

procedure Init;
begin
TimerStep:=1;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=900;
end;


procedure Free;
begin
Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(2031, 2);
Inc(TimerStep);
end;

2:
begin
DoTheSkill(235, 1);
Inc(TimerStep);
Timer.enabled:=false;
Inc(TimerStep);
TimerStep:=1;
end;
end;
end;

begin

StartSkill := 2038;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true;
end;
end.

[astro37rus]

а нахрена логин от аккаунта?

[vladmarmelad]

а нахрена логин от аккаунта?

Иначе скрипт не будет работать.

[zombiee]

а нахрена логин от аккаунта?

Наверно для идентификации соединения, если используется несколько окон, не? /kidding

[c-lavr]

Нет ответ не правильный! При использовании процедуры таймера, все пакеты (в процедуре) отправляются только по имени соединения. Например на сервер:
SendToServerEx(name);

[kaktak111]

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(388, 5); //Ослабляющий удар V
DoTheSkill(2039, 6); //Истощающий удар VI
DoTheSkill(399, 1); //Бойня I
end;
end.
Вот один полезный для глада скрипт, Активация-Ослабляющий удар V
Юзаются сразу 3 скила, понижая защиту врага на -1500
(няхи)
У асмов можно отредактировать, вставить вместо бойни Резня I-id 400

Добавлено через 6 минут
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; //Активация Вампирическая волна II
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(2268, 2); //Вампирическая волна II
DoTheSkill(2017, 3); //Шоковая волна III
DoTheSkill(297, 3); //Двойная волна III
end;
end.
Серия из 3 масс скилов.

[Казантип]

плиз помогите скопировал скрипт с форума на гладку запускаю игру всё норм начинаю юзать скил активатор и мне говорят соединение прервано а сам скрипт завершает серию ударов ..кароче чо сделать чтоб не выкидывало )) если можно в скайп ответ плиз )) galiafe - скайп или в вк [Ссылки могут видеть только зарегистрированные и активированные пользователи]

[aslan198425]

а скажите где эти скрипты находятся как их найти ? просто я в этом не сяку.

[Armani1997]

я не очень понимаю что надо для того чтобы использовать эти скрипты. aiHACKon? L2phx? или что-то другое проясните пожалуйста. Буду благодарен)