1. Новый раздел и сервер Discord!
    Смотри новость ТЫК

Скрипты для АВТО ударов, все классы 2.7-3.0

Тема в разделе "AION", создана пользователем Barkelay, 25 мар 2013.

Статус темы:
Закрыта.
  1. Оффлайн

    Barkelay

    1.039
    1.775
    293
    Скрипты для АВТО ударов, все классы 2.7-3.0

    Скажу сразу эти скрипты рубают в мясо :)

    Для тех кто не знает как пользоваться скриптами:
    Вам нужно нажать Вкладка Автоматизация / Скрипты (Ctrl + E) / Новый скрипт / Пишим название / Стираем всё что есть, и добавляем скрипты / Ставим галочку справа , возле названия скрипта.
    Как проверить!? Вы должны нажать на тот скил который указан выше скрипта на ваш класс

    Для глада:

    Все скилы Активация "Яростный удар V":
    // by freshinin-aion
    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 := 177;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(168, 9);
    DoTheSkill(304, 9);
    DoTheSkill(303, 9);
    DoTheSkill(2017, 9);
    DoTheSkill(297, 9);
    DoTheSkill(354, 9);
    DoTheSkill(297, 9);
    DoTheSkill(396, 1);
    DoTheSkill(247, 1);
    DoTheSkill(397, 1);
    DoTheSkill(378, 9);
    DoTheSkill(376, 1);
    DoTheSkill(180, 9);
    DoTheSkill(298, 9);
    DoTheSkill(2032, 9);
    DoTheSkill(2023, 9);
    DoTheSkill(2024, 9);
    DoTheSkill(312, 9);
    DoTheSkill(157, 9);
    DoTheSkill(2028, 9);
    DoTheSkill(183, 1);
    DoTheSkill(2040, 1);
    DoTheSkill(239, 9);
    DoTheSkill(310, 9);
    DoTheSkill(365, 9);
    DoTheSkill(380, 9);
    DoTheSkill(310, 9);
    DoTheSkill(2035, 9);
    DoTheSkill(2037, 9);
    DoTheSkill(230, 1);
    DoTheSkill(235, 1);
    DoTheSkill(233, 1);
    DoTheSkill(2039, 1);
    DoTheSkill(234, 1);
    DoTheSkill(228, 1);
    DoTheSkill(2038, 1);
    DoTheSkill(2031, 1);
    DoTheSkill(226, 9);
    DoTheSkill(400, 1);
    DoTheSkill(399, 1);
    DoTheSkill(389, 1);
    DoTheSkill(2013, 1);
    DoTheSkill(398, 1);
    DoTheSkill(2266,1);
    DoTheSkill(2251,1);
    DoTheSkill(320,1);
    DoTheSkill(298,1);
    DoTheSkill(384,1);
    DoTheSkill(2033,1);
    DoTheSkill(2251,1);
    DoTheSkill(298,1);
    DoTheSkill(2266,1);
    DoTheSkill(226,1);
    DoTheSkill(2039,1);
    end;
    end.

    Бафы Активация "Улыбка I":
    // by freshinin-aion
    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);

    SendToServer;
    end;

    begin

    if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
    begin

    DoTheSkill(232, 1);
    DoTheSkill(2029, 1);
    DoTheSkill(179, 9);
    DoTheSkill(391, 1);
    DoTheSkill(225, 1);
    DoTheSkill(243, 1);
    DoTheSkill(383, 1);
    DoTheSkill(245, 1);
    DoTheSkill(164, 9);
    DoTheSkill(242, 1);
    DoTheSkill(250, 1);
    DoTheSkill(287, 1);
    DoTheSkill(272, 1);
    DoTheSkill(258, 1);
    DoTheSkill(269, 1);
    DoTheSkill(182, 1);
    DoTheSkill(251, 1);
    DoTheSkill(173, 1);
    end;
    end.

    Для стража:

    Все скилы Активация "Яростный удар V":
    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 := 177;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(180, 5);
    DoTheSkill(2059, 4);
    DoTheSkill(2065, 4);
    DoTheSkill(550, 1);
    DoTheSkill(179, 5);
    DoTheSkill(2060, 2);
    DoTheSkill(2045, 4);
    DoTheSkill(2044, 4);
    DoTheSkill(2055, 4);
    DoTheSkill(1977, 1);
    DoTheSkill(542, 2);
    DoTheSkill(2053, 5);
    DoTheSkill(157, 4);
    DoTheSkill(405, 3);
    DoTheSkill(2059, 4);
    DoTheSkill(2066, 3);
    DoTheSkill(2046, 3);
    DoTheSkill(539, 3);
    DoTheSkill(1973, 1);
    DoTheSkill(2272, 2);
    end;
    end.

    Все бафы Активация "Блок щитом I":
    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 := 173;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(287, 1);
    DoTheSkill(513, 1);
    DoTheSkill(416, 1);
    DoTheSkill(466, 4);
    DoTheSkill(1978, 1);
    DoTheSkill(401, 1);
    DoTheSkill(466, 4);
    DoTheSkill(1978, 1);
    DoTheSkill(426, 1);
    DoTheSkill(2058, 4);
    DoTheSkill(537, 1);
    DoTheSkill(506, 1);
    DoTheSkill(413, 1);
    end;
    end.

    Для сина:

    Все скилы Активация "Стремительный удар V":
    // by freshinin-aion
    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 := 578;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(862, 9);
    DoTheSkill(913, 1);
    DoTheSkill(949, 1);
    DoTheSkill(831, 9);
    DoTheSkill(862, 5);
    DoTheSkill(919, 1);
    DoTheSkill(2123, 1);
    DoTheSkill(813, 1);
    DoTheSkill(913, 1);
    DoTheSkill(836, 1);
    DoTheSkill(1984, 1);
    DoTheSkill(1988, 1);
    DoTheSkill(927, 1);
    DoTheSkill(850, 1);
    DoTheSkill(839, 1);
    DoTheSkill(577, 1);
    DoTheSkill(572, 1);
    DoTheSkill(920, 1);
    DoTheSkill(2113, 1);
    DoTheSkill(2126, 1);
    DoTheSkill(1987, 1);
    DoTheSkill(1990, 1);
    DoTheSkill(2125, 1);
    DoTheSkill(579, 9);
    DoTheSkill(875, 5);
    DoTheSkill(860, 5);
    DoTheSkill(2110, 4);
    DoTheSkill(2121, 1);
    DoTheSkill(1989, 1);
    DoTheSkill(2280, 9);
    DoTheSkill(2279, 9);
    DoTheSkill(2114, 1);
    DoTheSkill(2115, 1);
    DoTheSkill(853, 8);
    DoTheSkill(939, 1);
    DoTheSkill(578, 9);
    DoTheSkill(580, 6);
    DoTheSkill(932, 9);
    DoTheSkill(581, 3);
    DoTheSkill(932, 9);
    DoTheSkill(868, 9);
    DoTheSkill(856, 4);
    DoTheSkill(1983, 1);
    DoTheSkill(915, 1);
    DoTheSkill(804, 1);
    DoTheSkill(815, 4);
    DoTheSkill(801, 1);
    DoTheSkill(553, 9);
    DoTheSkill(820, 9);
    DoTheSkill(557, 7);
    DoTheSkill(567, 1);
    DoTheSkill(570, 7);
    DoTheSkill(865, 1);
    DoTheSkill(808, 9);
    DoTheSkill(812, 1);
    DoTheSkill(845, 7);
    DoTheSkill(847, 7);
    DoTheSkill(848, 7);
    DoTheSkill(849, 9);
    DoTheSkill(911, 1);
    DoTheSkill(834, 9);
    DoTheSkill(822, 1);
    DoTheSkill(826, 9);
    end;
    end.

    Для лука:

    Все скилы Активация "Концентрация на уклонение I":
    // by freshinin-aion
    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 := 572;
    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);
    end;
    end.

    Для хила:

    Все скилы для няхи Активация "Карающая молния II":
    // by freshinin-aion
    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 := 2148;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(2148, 2);
    DoTheSkill(1115, 3);
    DoTheSkill(982, 4);
    DoTheSkill(1117, 4);
    DoTheSkill(1181, 2);
    DoTheSkill(1131, 4);
    DoTheSkill(2144, 2);
    DoTheSkill(1029, 1);
    end;
    end.

    Все скилы для асмо Активация "Молния воздаяния II":
    // by freshinin-aion
    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 := 2147;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(2147, 2);
    DoTheSkill(1115, 3);
    DoTheSkill(982, 4);
    DoTheSkill(1117, 4);
    DoTheSkill(1181, 2);
    DoTheSkill(1132, 4);
    DoTheSkill(2145, 2);
    DoTheSkill(1029, 1);
    end;
    end.

    Для чара:

    Не все скилы Активация "Удар метеора IV":
    // by freshinin-aion
    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 := 2142;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(2142, 5);
    DoTheSkill(1268, 4);
    DoTheSkill(1238, 3);
    DoTheSkill(1255, 3);
    DoTheSkill(1260, 4);
    DoTheSkill(1276, 4);
    DoTheSkill(2161, 3);
    end;
    end.

    Бафы Активация "Благословение стойкости I":
    // by freshinin-aion
    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 := 2142;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(1267,5);
    DoTheSkill(952,1);
    DoTheSkill(1234,1);
    DoTheSkill(1269,1);
    DoTheSkill(2176,1);
    DoTheSkill(2180,1);
    DoTheSkill(2288,1);
    DoTheSkill(1225,1);
    DoTheSkill(2160,1);
    DoTheSkill(1347,1);
    DoTheSkill(1339,1);
    DoTheSkill(1332,1);
    DoTheSkill(1259,1);
    end;
    end.

    Для волша:

    Все моментальные скилы Активация "Ожог IV":
    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 := 1527;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(2202, 2);
    DoTheSkill(2203, 2);
    DoTheSkill(2207, 4);
    DoTheSkill(2196, 3);
    DoTheSkill(1527, 5);
    DoTheSkill(1520, 4);
    DoTheSkill(1598, 3);
    DoTheSkill(2203, 2);
    end;
    end.

    Для закла:

    Все моментальные скилы Активация "Невыносимые муки I":
    // by freshinin-aion
    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 := 1230;
    if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
    begin
    TargetID := ReadD(10);

    DoTheSkill(1687, 3);
    DoTheSkill(2230, 3);
    DoTheSkill(1793, 5);
    DoTheSkill(2238, 4);
    DoTheSkill(1795, 3);
    end;
    end.

    P.S. Cкрипты работают на всех серверах, ну там где вы обойдёте защиту
    Проверяйте работоспособность, если есть проблемы обращайтесь
     
    login12, Nega, Nexus02 и ещё 1-му нравится это.
  2.  
Статус темы:
Закрыта.

Поделиться этой страницей

Уважаемый пользователь!

Мы обнаружили, что вы блокируете показ рекламы на нашем сайте.

Просим внести его в список исключения или отключить AdBlock.

Наши материалы предоставляются БЕСПЛАТНО и единственным доходом является реклама.

Спасибо за понимание!