14:20 | 22.11.2017
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Аргументация оружия Интерлюд-HF
Аргументация оружия Интерлюд-HF
Sonik · Offline · Дата: Пятница, 04.12.2015, 22:51 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Скрипт на аргументацию оружия. Идея простая. Пока одето оружие, мы вставляем лс, проверяем на скилл, если скилл есть, снимаем оружие -> скрипт отключается. Но для Интерлюда его нужно доработать:
1) Сделать диалоги - открыть вставку\удаление
2) Вставить id аргумов от Интерлюда
Код
function SetCursorPos(x, y : integer): boolean; stdcall; external 'user32.dll';
function mouse_event(dwFlags, dx, dy, dwData: byte; dwExtraInfo: integer): void; stdcall; external 'user32.dll';

var
item: TL2Item;

procedure mouseClick(x, y, _delay : integer);
begin
SetCursorPos(x, y);
mouse_event($2, 0, 0, 0, 0);
delay(_delay);
mouse_event($4, 0, 0, 0, 0);
end;

begin
while inventory.user.byid(4901, item) and (Item.Equipped) do begin
mouseClick(1176, 548, 500);
mouseClick(1176, 548, 300);
mouseClick(1385, 354, 500);
mouseClick(1385, 354, 100);
mouseClick(1185, 382, 100);
mouseClick(1185, 382, 100);
mouseClick(1515, 351, 100);
mouseClick(1515, 351, 100);
mouseClick(1270, 376, 100);
mouseClick(1270, 376, 100);
mouseClick(1504, 386, 100);
mouseClick(1504, 386, 100);
mouseClick(1231, 418, 100);
mouseClick(1231, 418, 100);
mouseClick(1176, 548, 100);
mouseClick(1176, 548, 100);
mouseClick(1176, 548, 100);
delay(2300);
mouseClick(1385, 354, 100);
delay(1000);

if engine.useskill('Предметное Умение: Исцеление') then
begin
delay(700);
Engine.UseItem('4901');
end

else
if engine.useskill('Предметное Умение: Дикая Магия') then
begin
delay(700);
Engine.UseItem('4901');
end

else
if engine.useskill('Предметное Умение: Возобновление Заклинаний') then
begin
delay(700);
Engine.UseItem('4901');
end;
delay(700);

if inventory.user.byid(4901, item) and (Item.Equipped) then begin

mouseClick(1385, 354, 100);
mouseClick(1494, 682, 100);
mouseClick(1494, 682, 100);
mouseClick(1453, 812, 500);
mouseClick(1453, 812, 400);
delay(2300);
mouseClick(1453, 812, 500);
mouseClick(1453, 812, 400);
end;
end;
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Аргументация оружия Интерлюд-HF
Страница 1 из 11
Поиск: