Все шо нада ето вписать айди сумки на которой будете юзать отмычки она должна лежать на полу рядом с чаром сумка должна быть Punch ну и естествено реги на каст 'Magic Lock' и сами отмычки program Lockpicking; CONST
Punch = $792F47C4; {ID сумки}
Pick = $14fb; {Тип отмычек. Не изминять!}
{$Include 'all.inc'}
procedure Lock;
begin
ClearJournal;
WaitTargetObject(Punch);
cast('Magic Lock');
wait(3200);
if InJournal('fizzles') <> -1 then
begin
Lock;
end
else
ClearJournal;
end;
procedure Medit;
begin
if Mana > 10 then exit;
while Mana < 79 do
begin
UseSkill('Meditation');
Wait(3200);
end;
end;
BEGIN
SetARStatus(true);
AddToSystemJournal('Макрос написан Metall(Age of Power)');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
while true do
begin
if InJournal('locked|manage') <> -1 then
begin
Lock;
end
else
begin
WaitTargetObject(Punch);
UseObject(findType(Pick,backpack));
wait(3200);
end;
Medit;
end;
END.
