SRL Archive - OSR Help

It clicks every eight seconds, when I only want it to click after not receiving a log after eight seconds.

procedure ChopWood ;
 var
  i , x , y : Integer ;
  begin
   if not LoggedIn or InvFull then
    Exit ;
     if  FindObjCustom ( x , y , [ 'Map' , 'le' ] , [ 1649232 , 3036025 , 2639739 , 2242667 ] , 7 ) then
      begin
       Mouse ( x , y , 6 , 6 , True ) ;
       MarkTime ( i ) ;
        while TimeFromMark ( i ) < 8000 + random ( 500 )  do
          begin
           FindNormalRandoms ;
           AntiBan ;
            if
             InvCount = InvCount + 1 then
              begin
               Chopwood
              end ;
          end ;
       end ;
  end ;   

Try this

procedure ChopWood ;
 var
  a, i , x , y : Integer ;
  begin
   if not LoggedIn or InvFull then
    Exit ;
     if  FindObjCustom ( x , y , [ 'Map' , 'le' ] , [ 1649232 , 3036025 , 2639739 , 2242667 ] , 7 ) then
      begin
       Mouse ( x , y , 6 , 6 , True ) ;
       MarkTime ( i ) ;
       a:=invCount;
       repeat
        while InvFull = false  do
          begin
           FindNormalRandoms ;
           AntiBan ;
            if (TimeFromMark(i)>2*60000)and (InvCount=a) then
            begin
               Chopwood
              end ;
          end ;
        until(InvFull = true)
       end ;
  end ;

compare it to yours i set the timer for 2 minutes

im beat… blown a gasket

i reduced you time down 2 10 seconds and it still stands there forever after chopping down a tree

Program SeersMapleFletcher;
{$i srl\srl.scar}

function DidnotGetALog : Boolean ;
  begin
   if InvCount = InvCount then
    Result := True ;
  end ;



procedure AntiBan ;
begin
  case Random ( 1000 ) of
    0 : RandomRClick ;
    1 : BoredHuman ;
    2 : HoverSkill ( 'WoodCutting' , False ) ;
    3 : ExamineInv ;
    4 : RandomMovement ;
  end ;
end ;




 procedure ChopWood ;
 var
  t , i , x , y : Integer ;
  begin
   if not LoggedIn or InvFull then
    Exit ;
     if  FindObjCustom ( x , y , [ 'Map' , 'le' ] , [ 1649232 , 3036025 , 2639739 , 2242667 ] , 7 ) then
      begin
       Mouse ( x , y , 6 , 6 , True ) ;
       MarkTime ( i ) ;
       t := getsystemtime;
            repeat
             for t := 0 to 8000 do
             WaitFunc ( @ DidnotGetALog , i , 8000 + Random ( 15 ) ) ;
              until ( True ) ;
                begin
                 Chopwood
                end ;

       end ;
  end ;





Procedure Fletch;
begin
 if
  InvFull then
    begin
     wait(500+random(500));
     MouseItem(1,true);
     wait(500+random(500));
     Mouse(295,435,10,10,true);
     wait(500+random(500));
     Mouse(260,430,10,10,true);
    end;
end;






begin
 Disguise ( 'Not A Bot' ) ;
 ClearDebug ;
 SetupSRL ;
 ActivateClient ;
 sleep ( 2000 ) ;
// MM_WalkToTree ;
// Wait ( 7000 + random ( 500 ) ) ;
  repeat
   ChopWood ;
  until ( invfull ) ;
Fletch ;
// WalkBank ;
end.