Program Magery;
{Можно качать межери как на ревиле так и на гейтах. Ниже знаками // выберается
что нужно юзать Гейт или Ревил.
Далее, для юза Гейт нужно прописать АйДи руны.} //***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
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('########################');
AddToSystemJournal('Начинаем работу');
end;
Procedure Gate;
begin
cast('Gate Travel');
WaitForTarget(200);
TargetToObject(
$77C68664); //айди руны
wait(3100);
end;
Procedure Reveal;
begin
cast('Reveal');
wait(3100);
end;
BEGIN
SetArStatus(true);
WaitConnection;
Coppy;
Resend;
while true do begin
WaitConnection;
if (Mana < 40) then
begin
while (Mana < Int) do
begin
useskill('Meditation');
wait(3200);
end;
end;
// Reveal;
//Переключаем знаком // не кастит ревил
Gate; //Кастит гейт
end;
wait(50);
END.