Code: Select all
program FWShafts;
Const
Trash = $40045196;
LogType = $1BDD;
LogColor = $037F;
Shafts = $1BD4;
{$Include 'all.inc'}
procedure CheckLog;
begin
if (Count(LogType) < 2) then
begin
repeat
FindTypeEx(LogType,LogColor,Ground,False);
MoveItem(FindTypeEx(LogType,LogColor,Ground,False),2,BackPack,0,0,0);
wait (500);
until (Count(LogType) > 2);
end;
end;
procedure CheckShafts;
begin
if (Count(Shafts) > 0) then
begin
repeat
MoveItem(FindType(Shafts,Backpack),100,Trash,0,0,0);
wait (500);
until (Count(Shafts) = 0);
end;
end;
procedure Bower;
begin
ClearJournal;
CheckLag;
UseObject(ObjAtLayer(RhandLayer));
WaitTargetObject(FindType(LogType,Backpack));
AutoMenu('What do you want', 'Dark Shaft'); //Меняем с каждым светом дерева.
wait (500);
WaitJournalLine(Now, 'Вы переместили|You have failed to make anuthing', 6000);
wait(500);
end;
BEGIN
while not Dead do
begin
If TargetPresent Then CancelTarget;
FindDistance:=5;
CheckShafts;
CheckLog;
Bower;
end;
END.