Все шо нада зделать ето положыть в пак катану или взять в руки и положыть хавки в пак, затем заменить кординаты дерева в макросе припомощи инжект команды ,info тыцнув на дерево вы узнаете его кординаты затем внесете в макрос в етой строчке: if targetpresent then TargetToTile(3395,5604,3557,0);
Program gathering;
var
katana:cardinal;
i:integer; {$Include 'all.inc'}
function timer(var acttimer:integer;actafter:integer):boolean;
begin
result:=false;
acttimer:=acttimer+1;
if acttimer>=actafter then
begin
acttimer:=0;
result:=true;
end;
end;
procedure fulldisconnect;
begin
SetARStatus(false);
Disconnect;
end;
procedure CheckDead;
begin
WaitConnection(3000);
CheckSave;
if Dead then
begin
SetWarMode(true);
WaitGump('1');
wait(5000);
while (Dead) do Wait (1000);
wait (2000);
Hungry(1, ground);
end;
end;
BEGIN
katana:=$13FF;
SetARStatus(true);
i:=0;
while true do begin
CheckDead;
WaitConnection(2000);
checksave;
if timer(i,100) then begin
Hungry(1,ground);
Stack($0DE1,$0000);
end;
if targetpresent then canceltarget;
UseObject(katana);
WaitForTarget(2000);
if targetpresent then TargetToTile(3395,5604,3557,0);
wait(2000);
CheckTargetError(2,2);
end;
END.
