В общем, в пак кладем smith's hammer и даггер (обычный нюбайный подойдет) и включаем скрипт. Стоять возле наковальни не обязательно. За 1 час прокачивается до ГМ.
Code: Select all
Program DrwArmsLore;
const
hammerType1 = $13E3;
daggerType1 = $0F51;
var hammerId, daggerId: Cardinal;
begin
Disarm();
CheckLag(500);
if (FindType(hammerType1, -1) > 0) then hammerId := FindItem;
if (FindType(daggerType1, -1) > 0) then daggerId := FindItem;
repeat
WaitTargetObject(daggerId);
UseObject(hammerId);
//CheckLag(15000); //Можно раскомментировать. Но у меня и без этого отлично работало.
until GetSkillValue('Arms Lore') = 100;
end.