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

Суббота, 25.01.2025, 02:22	Приветствую Вас Гость

Ultima-Online (AoP)
Главная \| Регистрация \| Вход \| RSS

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

imbaq

Дата: Воскресенье, 19.10.2008, 17:24 | Сообщение # 1

Admin

Группа: Администраторы

Сообщений: 52

Репутация: 1

Статус: Offline

Зарядка ванд:
// - макрос берет из одной сумки пустые ванды записует и складывает в другую сумку уже записаные
Все шо вам нада зделать ето:
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

Gate Travel:

program ZariadkaVandGate;
// v.1.00 © MAXHO

// Зарядка ванд-гейта
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $56F90FB8;
BagTo = $7013F158;
Wand = $0DF2;

VAR
Count: Integer;

procedure GrabWand;
begin
If FindType(Wand, BagFrom) <> 0 then
begin
AddToSystemJournal('Берем пустой ванд с сундука.');
MoveItem(finditem, 0, backpack, 0, 0, 0);
Wait(2000);
end else
begin
while FindType(Wand, BagFrom) = 0 do
begin
AddToSystemJournal('Закончились ванды');
UseObject(BagFrom);
Wait(5000);
end;
end;
end;

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

procedure Scan;
begin
if InJournal('содержит') <> -1 then
begin
If FindType(Wand, backpack) <> 0 then
begin
ClearJournal; Count := Count + 1;
AddToSystemJournal('Кидаем заполненый ванд в другой сундк.');
AddToSystemJournal('Вандов записано: ' + IntToStr(Count));
MoveItem(finditem, 0, BagTo, 0, 0, 0);
Wait(2000);
end;
end;
end;

BEGIN

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

while true do
begin
AutoMenu ('Choose a Circle', '(7)');
AutoMenu ('Choose the Spell', 'Gate Travel');
If FindType(Wand, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3200);
end
else
begin
GrabWand;
end;
Scan;
Medit;
end;
END.

Magic Reflection

program ZariadkaVandZerkala;
// v.1.00 © MAXHO

// Зарядка ванд-зеркала
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $777E1EDD;
BagTo = $777F4062;
Wand = $0DF2;

VAR
Count: Integer;

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

BEGIN

while true do
begin
AutoMenu ('Choose a Circle', '(5)');
AutoMenu ('Choose the Spell', 'Magic Reflection');
If FindType(Wand, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3200);
end
else
begin
GrabWand;
end;
Scan;
Medit;
end;
END.

Mark

program ZariadkaVandMark;
// v.1.00 © MAXHO

// Зарядка ванд-марка
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $7013FAB9;
BagTo = $577780ED;
Wand = $0DF2;

VAR
Count: Integer;

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

BEGIN

while true do
begin
AutoMenu ('Choose a Circle', '(6)');
AutoMenu ('Choose the Spell', 'Mark');
If FindType(Wand, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3200);
end
else
begin
GrabWand;
end;
Scan;
Medit;
end;
END.

Paralyze

program ZariadkaVandParalize;
// v.1.00 © MAXHO

// Зарядка ванд-паралаиза
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $777E2CAF;
BagTo = $777E2CAD;
Wand = $0DF2;

VAR
Count: Integer;

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

BEGIN

while true do
begin
AutoMenu ('Choose a Circle', '(5)');
AutoMenu ('Choose the Spell', 'Paralyze');
If FindType(Wand, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3200);
end
else
begin
GrabWand;
end;
Scan;
Medit;
end;
END.

Recall

// Зарядка ванд-рекола
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $7013FBDF;
BagTo = $7013F7F8;
Wand = $0DF2;

VAR
Count: Integer;

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

BEGIN

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

Teleport

// Зарядка ванд-телепорта
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды

CONST
BagFrom = $777E35B4;
BagTo = $777E2CAF;
Wand = $0DF2;

VAR
Count: Integer;

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

BEGIN

while true do
begin
AutoMenu ('Choose a Circle', '(3)');
AutoMenu ('Choose the Spell', 'Teleport');
If FindType(Wand, backpack) <> 0 then
begin
WaitTargetObject(finditem);
UseSkill('Inscription');
Wait(3200);
end
else
begin
GrabWand;
end;
Scan;
Medit;
end;
END.

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

Страница 1 из 1
1

Ultima-Online (AoP)