Все шо нада зделать ето положыть пустые скролы и реги которые нада на зарядку определеного вами каста и запускайте макрос заряжать токо магом есле не магом, то нада будет минять ману на мидитацыю 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.
