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