Micro Scripting (Микро-серии Скилов)

[schalaew]

Цитата: Сообщение от x-miskalin-x Да. Только запускать в последней версии l2ph Иначе не заработает... [Ссылки могут видеть только зарегистрированные пользователи. ]

а в игре на какую кнопку или скил ее октивировать или пользоваться))????

[x-miskalin-x]

Цитата: Сообщение от schalaew а в игре на какую кнопку или скил ее октивировать или пользоваться))????

Вроде написано в первом сообщении...

Цитата: В данном примере 6-ть микро-скриптов: 1. Рёв зверя - Удар зверя - Бросок Зверя 2. Стремительный удар - Рассекающая молния 3. Внезапная атака - подлый удар 4. Клык зверя - Небесный плен 5. Контратака - Ураганная мощь 6. Засада - Нанесение клейма Т.е. нажав первый скил, последующие будут вылетать автоматически. Все задержки подобраны чтобы не вызывать подозрения сильного, но вы можете уменьшить паузу между скилами в микро-сериях.

Нажал допустим Рёв зверя, а Удар и Бросок вылетят сами

[passerr]

Можно на лука подобное?

[nikos1982]

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

[x-miskalin-x]

Цитата: Сообщение от nikos1982 а можешь для магов (волшей,заклов )скрипт написать плиз

Цитата: Сообщение от passerr Можно на лука подобное?

Напишите скилы в какой последовательности вы хотите бить.
1. Скил 1 - Скил 2 - Скил 3
2. Скил 6 - Скил 4
3. Скил 12 - Скил 8 - Скил 16
И т.д.

[passerr]

Цитата: Сообщение от x-miskalin-x Напишите скилы в какой последовательности вы хотите бить. 1. Скил 1 - Скил 2 - Скил 3 2. Скил 6 - Скил 4 3. Скил 12 - Скил 8 - Скил 16 И т.д.

1)Выстрел(721) - Град стрел(737) - Спиральный выстрел(2074)
2)Внезапный выстрел(736) - Взрывной выстрел(719)
3)Сковывающая стрела(2090) - Аркан(722)
P.S. Скил(ID)

[x-miskalin-x]

Цитата: Сообщение от passerr 1)Выстрел(721) - Град стрел(737) - Спиральный выстрел(2074) 2)Внезапный выстрел(736) - Взрывной выстрел(719) 3)Сковывающая стрела(2090) - Аркан(722) P.S. Скил(ID)

//############################
//Micro Scripting 
//class: Archer
//Script Created by miskalin
//version #1.3
//All rights reserved 
//############################

var
Timer:TTimer;
TargetID,TimerStep,i,CountSkills:integer; 
StartSkill,NewSkill,SkillID:word;
NextSkill:array[1..3] of word;
Level:byte;
name:string;


procedure DoTheSkill(SkillID:word); 
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:=600; //интервал(в миллисекундах)//задержка скила.
Level:=9;
end;


procedure Free;
begin
   Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin

case TimerStep of    
    1:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;

    2:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;

    3:    
    begin
    DoTheSkill(NextSkill[TimerStep]);
    if TimerStep=CountSkills then 
    begin 
    Timer.enabled:=False;
    TimerStep:=1;
    end
    else inc(TimerStep);
    end;


end;
end;

begin
    
// ##################Тело Скрипта#################################    

if (FromClient) and (ReadC(1) = $CE) and (ReadC(3) = $57) and (ReadC(4) = $6D) then 
    begin
    name:=ConnectName; 
    TargetID := ReadD(6);
    end;

if (FromClient) and (ReadC(1) = $D0) then  
  begin
    StartSkill:=ReadH(6); 
    case StartSkill of
        //Выстрел_721
        721: //id Стартового скила, с которого продолжится серия.
        begin
        NextSkill[1]:=737; //Град стрел(737)
        NextSkill[2]:=2074; //Спиральный выстрел(2074)        
        CountSkills:=2; //Кол-во дополнительный скилов в серии, после стартового.
        
        Timer.interval:=300; // Задержка между скилами в мсек. (0,3сек)
        Timer.enabled:=True; 
        
        end;


        //Внезапный выстрел(736)
        736:
        begin
        NextSkill[1]:=719; //Взрывной выстрел(719)
        CountSkills:=1;
        
        Timer.interval:=400; //Задержка между скилами
        Timer.enabled:=True; 
        end;
        

        //Сковывающая стрела(2090)
        2090: //id Стартового скила, с которого продолжится серия.
        begin
        NextSkill[1]:=722; //Аркан(722)
        CountSkills:=1; //Кол-во дополнительный скилов в серии, после стартового.
        
        Timer.interval:=300;
        Timer.enabled:=True;
        end;


    
    end;    
  end;
end.

[passerr]

Цитата: Сообщение от x-miskalin-x //############################ //Micro Scripting //class: Archer //Script Created by miskalin //version #1.3 //All rights reserved //############################ var Timer:TTimer; TargetID,TimerStep,i,CountSkills:integer; StartSkill,NewSkill,SkillID:word; NextSkill:array[1..3] of word; Level:byte; name:string; procedure DoTheSkill(SkillID:word); 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:=600; //интервал(в миллисекундах)//задержка скила. Level:=9; end; procedure Free; begin Timer.free; end; procedure OnTimer(Sender: TObject); begin case TimerStep of 1: begin DoTheSkill(NextSkill[TimerStep]); if TimerStep=CountSkills then begin Timer.enabled:=False; TimerStep:=1; end else inc(TimerStep); end; 2: begin DoTheSkill(NextSkill[TimerStep]); if TimerStep=CountSkills then begin Timer.enabled:=False; TimerStep:=1; end else inc(TimerStep); end; 3: begin DoTheSkill(NextSkill[TimerStep]); if TimerStep=CountSkills then begin Timer.enabled:=False; TimerStep:=1; end else inc(TimerStep); end; end; end; begin // ##################Тело Скрипта################################# if (FromClient) and (ReadC(1) = $CE) and (ReadC(3) = $57) and (ReadC(4) = $6D) then begin name:=ConnectName; TargetID := ReadD(6); end; if (FromClient) and (ReadC(1) = $D0) then begin StartSkill:=ReadH(6); case StartSkill of //Выстрел_721 721: //id Стартового скила, с которого продолжится серия. begin NextSkill[1]:=737; //Град стрел(737) NextSkill[2]:=2074; //Спиральный выстрел(2074) CountSkills:=2; //Кол-во дополнительный скилов в серии, после стартового. Timer.interval:=300; // Задержка между скилами в мсек. (0,3сек) Timer.enabled:=True; end; //Внезапный выстрел(736) 736: begin NextSkill[1]:=719; //Взрывной выстрел(719) CountSkills:=1; Timer.interval:=400; //Задержка между скилами Timer.enabled:=True; end; //Сковывающая стрела(2090) 2090: //id Стартового скила, с которого продолжится серия. begin NextSkill[1]:=722; //Аркан(722) CountSkills:=1; //Кол-во дополнительный скилов в серии, после стартового. Timer.interval:=300; Timer.enabled:=True; end; end; end; end.

Не работает(Пробовал выставлять задержку больше, но толку ноль

[lexppv]

как насчет aion legend? там все норм будет?

[lightbearer]

Цитата: Сообщение от lexppv как насчет aion legend? там все норм будет?

нет ведь там 2.5 версия клиента

[inkognito-2012]

объясните мне, для чего вы объявляете и используете TargetID? он совершенно не нужен имхо. Я давненько не играл и не знаю как на 2.7 на многих серверах, но на наьюшке сейчас проверил, операция с таргет ид делает скрипт более громозтским. Достаточно ид скила, даже лвл можно по желанию, но если не вписывать лвл и таргет, сервер сам дописывает этот таргет и использует последний уровень умения.

Это сугубо мое личное мнение, не судите строго зеленого новичка.

[lexppv]

Цитата: Сообщение от 666Смерть666 нет ведь там 2.5 версия клиента

а на 2.5 есть подобное?

[lightbearer]

не видел возможно есть

[x-miskalin-x]

Цитата: Сообщение от lexppv а на 2.5 есть подобное?

Без проблем. Просто поменять Пакет на скил под 2.5.
Если кому-то это ещё нужно - то сделаю для 2.5

Цитата: Сообщение от inkognito-2012 объясните мне, для чего вы объявляете и используете TargetID? он совершенно не нужен имхо. Я давненько не играл и не знаю как на 2.7 на многих серверах, но на наьюшке сейчас проверил, операция с таргет ид делает скрипт более громозтским. Достаточно ид скила, даже лвл можно по желанию, но если не вписывать лвл и таргет, сервер сам дописывает этот таргет и использует последний уровень умения. Это сугубо мое личное мнение, не судите строго зеленого новичка.

Так и есть.
Можете убирать определение id.

Но тогда ваш пакет идущий на сервер будет отличатся от пакетов идущих от клиентов без Л2ПХ.
Конечно Админы щас это не проверяют... Но мало ли им в голову всё таки придёт мысль подловить ленивых, кто даже id не хочет вставлять )))

[Est_SAN]

Цитата: Сообщение от passerr 1)Выстрел(721) - Град стрел(737) - Спиральный выстрел(2074) 2)Внезапный выстрел(736) - Взрывной выстрел(719) 3)Сковывающая стрела(2090) - Аркан(722) P.S. Скил(ID)

оффтоп: какой то странный набор скилов

p.s. попробуй вот такой сделать:

молчанка - молниеносная стрела - ритуал
взрывной выстрел - стрела грифона(точный выстрел)