Tracking + Camping

[Alex]

юзает кампинг тока еси есть опилки
нет опилок, работает тока тракинг
в авто меню проставьте свои названия для тракинга, у меня стоит там тотем..

Code: Select all

Program track_and_camp;
var
i,t: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
SetARStatus(true);
i:=0;
AutoMenu('creature','a');
AutoMenu('category','a');
Hungry(1,ground);

while true do begin
checksave;
checkdead;
if timer(i,100) then Hungry(1,ground);
UseSkill('Tracking');
Wait(1000);
FindType($0DE1,$0000);
if FindCount > 0 then begin for t:= 0 to 1 do begin useobject(finditem); wait(5000); end; end
else Wait(10000);
Wait(1000);
end;
END.

[Frenkis]

Можно ли запустить отдельно скрипт на срубание щепок и этот одним и тем же чаром, будет ли оно работать??

[Alex]

не нада, потому что скрипт на срезание щепок, частенько дисконектит чара, по этому лучше отдельным нубом резать