Code: Select all
program bs;
const
containerID = $4018D2CE; // Контейнер с рудой
forgeID = $4041B999; // Форжа.
moveCount = 100;
ingotType = $1BEF;
ingotColor = $0000;
oreType = $19B9;
oreColor = $0000;
daggerType = $0F51;
var
i: integer;
c: integer;
cTime: tdatetime;
begin
automenu('Blacksmithing', 'Weapons');
automenu('Weapons', 'Swords & Blades');
automenu('Swords & Blades', 'dagger');
while NOT dead do begin
useobject(backpack);
checklag(100000);
wait(300);
if findtypeex(oreType, oreColor, backpack, false) > 0 then begin
useobject(finditem);
checklag(100000);
wait(500);
end;
while (findtypeex(ingotType, ingotColor, backpack, false) > 0) AND (findquantity > 3) do begin
cTime := now;
useobject(finditem);
repeat
wait(500);
until (injournalbetweentimes('You put', cTime, now) >= 0) OR (cTime+1.0/(24*60*4) < now);
end;
while findtype(daggerType, backpack) > 0 do begin
waittargetobject(finditem);
useobject(forgeID);
checklag(100000);
wait(300);
end;
useobject(containerID);
checklag(100000);
wait(300);
if (findtypeex(oreType, oreColor, containerID, false) > 0) AND (findquantity > moveCount) then begin
moveitem(finditem, moveCount, backpack, 0, 0, 0);
checklag(100000);
wait(500);
end else begin
addtosystemjournal('Чет не нашел нужного кол-ва руды в сундуке. Непопуса косяк? Я кончаюсь, бб.');
exit;
end;
end;
end.