Help with this cutter plz

[dallas574]

This cutter and banker lags alot can someone plz fix and make it not lag as much

Thanks

program powercutter;

{.include SRL/SRL.scar}

var
  X, Y, Mark: integer;

const
tree1=2111544;

procedure WaitWhilecutting;
begin
  MarkTime(mark)
  repeat
until (FindBlackChatMessage('You get some')) or (TimeFromMark(mark)>20000)
end;





procedure cutting;
begin
  repeat
    if (not (LoggedIn)) then
      Exit;
    if (FindColor(x, y, (tree1), 0, 0, 500, 300)) then
      MMouse(x, y, 2, 1);
    if (IsUpText('hop')) then
      Mouse(x, y, 3, 1, true);
     Wait(1000)
    WaitWhilecutting;
  until (InvFull);
end;

procedure WalkToBank;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    MakeCompass('N');
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      FFlag(0);
      Writeln('Got to bank');
    end;
end;


procedure bank;

begin
  Makecompass ('W');
  repeat
    if (not(Loggedin)) then  break;
    OpenBankQuiet('veb')
  until(BankScreen);
  if (bankscreen) then
  fixbank;
  depositall;
  wait(500+random(500));
      begin
      closebank;
  end;
end;


procedure WalkToOak;
begin
Makecompass ('N');
wait(300)
RadialRoadWalk(1257783, 60, 100, 70, 1, 1);
end;


begin
SetupSRL;
  repeat
    WalkToOak;
   cutting;
   WalkToBank;
   bank;
   WalkToOak;
  until(false);
end.

[ammo2006]

Wouldn't the waiting proc click the tree every log you get? Thats bad IMO lol.

You could change fflag(0) to just flag;

[sk8terbitu]

ScarScript: By Drunkenoldma 
program powercutter;
 
{.include SRL/SRL.scar}
 
var
  X, Y, Mark: integer;
 
const
tree1=2111544;
 
procedure WaitWhilecutting;
begin
  MarkTime(mark)
  repeat
until (FindBlackChatMessage('You get some')) or (TimeFromMark(mark)>20000)
end;
 
 
 
 
 
procedure cutting;
begin
  repeat
    if (not (LoggedIn)) then
      Exit;
    if (FindColor(x, y, (tree1), 0, 0, 500, 300)) then
      MMouse(x, y, 2, 1);
    if (IsUpText('hop')) then
      Mouse(x, y, 3, 1, true);
     Wait(1000)
    WaitWhilecutting;
  until (InvFull);
end;
 
procedure WalkToBank;
begin
  if (not(LoggedIn)) then
    Exit;
    SymbolAccuracy:= 0.2;
    MakeCompass('N');
    if (FindSymbol(x, y, 'bank')) then
    begin
      Mouse(x, y, 2, 2, true);
      FFlag(0);
      Writeln('Got to bank');
    end;
end;
 
 
procedure bank;
 
begin
  Makecompass ('W');
  repeat
    if (not(Loggedin)) then  break;
    OpenBankQuiet('veb')
  until(BankScreen);
  if (bankscreen) then
  fixbank;
  depositall;
  wait(500+random(500));
      begin
      closebank;
  end;
end;
 
 
procedure WalkToOak;
begin
Makecompass ('N');
wait(300)
RadialRoadWalk(1257783, 60, 100, 70, 1, 1);
end;

procedurefindrandoms;
begin
FindNormalRandoms;
  if FindFight then
  begin
    Runto('N');
    Wait(20000+random(5000));
    RunTo('S');
  end;

 
begin
SetupSRL;
  repeat
    WalkToOak;
   cutting;
   WalkToBank;
   bank;
   WalkToOak;
   AntiRandoms;
until(false);
end.

thair anti randoms ftw!