Зарядка скролов на: Recall, Mind Blast, Flame Strike

Предыдущая тема Следующая тема Перейти вниз

Зарядка скролов на: Recall, Mind Blast, Flame Strike

Сообщение  Mazunchik в Сб Май 15, 2010 1:25 am

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

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.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения