Guild Allianse

Все что нада зделать, ето положыть пустые скролы и реги которые нада на зарядку определеного вами каста и запускайте макрос заряжать токо магом есле не магом, то нада будет минять ману на мидитацию:

Recall:

Код: Выделить всё

program ZariadkaScrolRecal;
// v.1.03 © proZak

// Зарядка скролов на рекол

CONST
Scroll = $0E34;


procedure Medit;
begin
if Mana > 189 then exit;
while Mana < 11 do
begin
UseSkill('Meditation');
Wait(3200);
end;
end;

BEGIN

AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');

while true do
begin
AutoMenu ('Choose a Circle', '(4)');
AutoMenu ('Choose the Spell', 'Recall');
If FindType(Scroll, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3800);
end;
Medit;
end;
END.

Mind Blast:

Код: Выделить всё

program ZariadkaScrolMB;
// v.1.03 © proZak

// Зарядка скролов на Мб

CONST
Scroll = $0E34;


procedure Medit;
begin
if Mana > 189 then exit;
while Mana < 14 do
begin
UseSkill('Meditation');
Wait(3200);
end;
end;

BEGIN

AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');

while true do
begin
AutoMenu ('Choose a Circle', '(5)');
AutoMenu ('Choose the Spell', 'Mind Blast');
If FindType(Scroll, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3800);
end;
Medit;
end;
END.

Flame Strike:

Код: Выделить всё

program ZariadkaScrolFS;
// v.1.03 © proZak

// Зарядка скролов на Фс

CONST
Scroll = $0E34;


procedure Medit;
begin
if Mana > 189 then exit;
while Mana < 40 do
begin
UseSkill('Meditation');
Wait(3200);
end;
end;

BEGIN

AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');

while true do
begin
AutoMenu ('Choose a Circle', '(7)');
AutoMenu ('Choose the Spell', 'Flame Strike');
If FindType(Scroll, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3800);
end;
Medit;
end;
END.