Code: Select all
program carpentry;
const
Trash = $4003FFB7;
ItemType = $0A2A;
RubanokType = $1030;
LogType = $1BDD;
LogColor =$0000;
{$Include 'all.inc'}
procedure checklogs;
begin
if (Count(LogType) < 50) then
begin
repeat
MoveItem(FindTypeEx(LogType,LogColor,Ground,False),100,Backpack,0,0,0);
Wait(1000);
until (Count(LogType) > 50);
FindTypeEx(LogType,LogColor,Ground,False);
Addtosystemjournal('Дерева осталось - '+intToStr(findfullquantity));
end;
end;
procedure MoveMakeItem;
begin
findtype(ItemType,backpack);
if findcount > 0 then
begin
ClickOnObject(finditem);
repeat
Checksave;
moveitem(findtype(ItemType,backpack),1,Trash,0,0,0);
until findcount < 1
end;
end;
procedure carpentry;
begin
If TargetPresent Then CancelTarget;
WaitTargetType(LogType);
UseObject(FindType(RubanokType,Backpack));
AutoMenu('Carpentry','Chairs');
AutoMenu('Chairs','stool');
WaitJournalLine(Now, 'You fail to create the item|Вы переместили', 9000);
wait(500);
end;
procedure CheckKolvo;
begin
If TargetPresent Then CancelTarget;
UseObject (Trash);
FindType(ItemType,Trash);
if (FindCount > 100) then
begin
AddToSystemJournal('Ждем 15 секунд!');
wait (20000);
end;
end;
BEGIN
Addtosystemjournal('Start')
SetARStatus(true);
while not dead do
Begin
FindDistance := 5;
checklogs;
MoveMakeItem;
CheckKolvo;
carpentry;
ClearJournal;
end;
END.