//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
procedure WaitConnection;
begin
if Connected then exit;
while not Connected do wait(100);
wait(3000);
end;

//***************************************************************
// РЕСЕНД
//***************************************************************
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;

procedure Coppy;
begin
AddToSystemJournal('########################');
AddToSystemJournal('#Макрос разработал СаНеК (С)');
AddToSystemJournal('#Макрос доработал Italiano');
AddToSystemJournal('########################');
AddToSystemJournal('Начинаем работу');
end;

Procedure Gate;
begin
cast('Gate Travel');
WaitForTarget(200);
TargetToObject($77C68664); // айди руны
wait(3100);
end;

Procedure Poison;
begin
cast('Poison');
WaitForTarget(200);
WaitTargetSelf;
wait(3100);
end;

Procedure Reveal;
begin
cast('Reveal');
wait(3100);
end;

BEGIN
SetArStatus(true);
WaitConnection;
Coppy;
Resend;
while true do begin
If (Life < 80) then // Со скольки Хиляться
begin
UOSay(Chr(39)+'pc heal self');
Wait(8400);
end;
wait(500);
WaitConnection;
if (Mana < 10) then // Со скольки Медитировать
begin
while (Mana < Int) do
begin
useskill('Meditation');
wait(3200);
end;
end;
//Reveal;
//Gate;
//Poison;
//Ниже вставьте что прокачивать
Poison; //Кастит гейт
end;
wait(50);
END.