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.