// - макрос берет из одной сумки пустые ванды записует и складывает в другую сумку уже записаные
Все шо вам нада зделать ето:
// - 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 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 > 14 then exit;
while Mana < 100 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', '(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 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 > 20 then exit;
while Mana < 120 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', '(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 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', '(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:
- Код: Выделить всё
program ZariadkaVandRecal;
// v.1.00 © MAXHO
// Зарядка ванд-рекола
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды
CONST
BagFrom = $7013FBDF;
BagTo = $7013F7F8;
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', '(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:
- Код: Выделить всё
program ZariadkaVandTeleport;
// v.1.00 © MAXHO
// Зарядка ванд-телепорта
// - макрос берет из одной сумки пустые ванды пишет 20 реколов и складывает в другую сумку уже записаные
// - BagFrom - впишите айди суикм где лежат пустые ванды
// - BagTo - впишите айди сумки куда класть записаные ванды
CONST
BagFrom = $777E35B4;
BagTo = $777E2CAF;
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 > 9 then exit;
while Mana < 88 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', '(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.
