// Макрос на алхимию + пойсон позаимствовал из официал версии Димы, теперь травит ступку в паке
// - очистите пак от лишних вещей, чтоб когда крафтились бутылки они не исчезали
// - положите в бак пару пустых бутылок, ступку, нш
// - макрос ищет бутылку с ядом, если находит то травит ступку, если нет то крафтит бутылку пойсона
// - дальше в макросе я помечу где надо изменить, чтоб крафтило бутылки другого лвла, например дедличи
// - по умолчанию стоит бутылка обычного на яда 35% алхимии
// ПО ОБЩЕЙ ТЕХНИКЕ КАЧА:
//; до 25 - купите книгу
//; 25 - 35 - Lesser poison potion - НШ + мой макрос
//; 35 - 65 - Poison potion - НШ + мой макрос
//; 65 - 70 - Explosion potion - СА + крафткреат 0
//; 70 - 85 - Creater poison potion - НШ + мой макрос
//; 85 - 95 - Greater explosion potion - СА + крафткреат 0
//; 95 - 100 - Deadly poison potion - НШ + мой макрос program AlchemyPoison;
// v.1.01 © SaNeK
CONST
Version = 1.0;
MacrosName = 'AlchemyPoison';
Procedure ChekPoison;
begin
AutoMenu ('Alchemy', 'Poison');
wait(150);
AutoMenu ('Poison Potions', '(2)');
wait(150);
// вот здесь прописывать, что крафтим
// AutoMenu ('Poison Potions', '(1)'); - Лесер пойсон
// AutoMenu ('Poison Potions', '(2)'); - Пойсон
// AutoMenu ('Poison Potions', '(3)'); - Гретер пойсон
// AutoMenu ('Poison Potions', '(4)'); - Дедли пойсон
end;
//***************************************************************
//КРАФТПОЙЗОНА
//***************************************************************
procedure Craft;
var
StupaID, BottleID: Cardinal;
begin
if FindType($0E9B, backpack) <> 0 then
begin
StupaID := finditem;
if FindType($0F0E, backpack) <> 0 then
begin
if TargetPresent then begin AddToSystemJournal('Отменяем курсор...'); CancelTarget; end;
BottleID := finditem;
UseObject(StupaID);
Wait(1000);
If TargetPresent then begin TargetToObject(BottleID);
ChekPoison;
end;
Wait(8100);
end;
end;
end;
//***************************************************************
//ТРАВИТ СТУПКУ
//***************************************************************
procedure Poison;
var
BladeID, PoisonID: Cardinal;
begin
if FindType($0E9B, backpack) <> 0 then
begin
BladeID := finditem;
if FindType($0F0A, backpack) <> 0 then
begin
if TargetPresent then begin AddToSystemJournal('Отменяем курсор...'); CancelTarget; end;
PoisonID := finditem;
UseSkill('Poisoning');
Wait(200);
If TargetPresent then begin TargetToObject(PoisonID); end;
Wait(200);
If TargetPresent then begin TargetToObject(BladeID); end;
Wait(2000);
end;
end;
end;
//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
procedure WaitConnection(WaitTime : Integer);
begin
if Connected then Exit;
while not Connected do Wait(1000);
wait(WaitTime);
end;
BEGIN
WaitConnection(1000);
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
while true do
begin
WaitConnection(1000);
if FindType($0F0A, backpack) = 0 then Craft else Poison;
end;
END.
