help with script

[gerauchert]

ok so im learning how to script and ive got most of the basics down. I am making a very simple powerchopper just to mess around with and get familiar with scripting.
So heres the problem that im having....when it clicks the tree it keeps clicking even if its not on the tree and my guy is running around runescape freaking out lol. What am i doing wrong in the coding for it to do it cuz i have wait time and stuff...help plz

program Powerchopper;
{.include SRL/SRL.scar}

const
  TreeColor=665632;
  
procedure Chop;
  begin
    repeat
  if (findcolor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
    MMouse(x,y,0,0);
    Wait(2000 + random(500));
    Mouse(x,y,0,0,True);
    until
    InvCount=(10);
  end;
begin
  SetupSRL;
repeat
  Chop;
until(true);
end.

[Ramage]

if (findcolor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
begin //Remember your begins and ends;
  MMouse(x,y,0,0);
  if(isuptext('ree')) then //From "tree"
    Mouse(x,y,0,0,True);
end;

[gerauchert]

ahh new problem....ty for help it worked for a while but now it is going back to the rapid click bullshit lol...

ive changed it so it right clicks but it still rapid right clicks now lol

program Powerchopper;
{.include SRL/SRL.scar}

var Loads: Integer;

//SETUP HERE//
const
  TreeColor=1529936;//set tree color here
  


//ANTIRANDOMZ//
procedure AntiRandomz;
  begin
    FindTalk;
    FindNormalRandoms;
      if(FindFight = True)then
        begin
        RunAwayDirection('S');
        Wait(10500 + random (1300));
        RunBack;
    end;
end;
      
//CHOPING PROCEDURE//
procedure Chop;

begin
     if(FindColor(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2))then
begin
  repeat
  MMouse(x,y,2,1);
    if(IsUpText('illow'))then
      Wait(5000 + random(250));
      Mouse(x,y,3,3,False);
      ChooseOption(x,y,'hop');
       until(InvFull);
        end;
      end;
//DROPPING PROCEDURE//
procedure Drop;
  begin
    GameTab(4);
    if(InvFull)then
      begin
        DropTo(2,28)
        Loads:=Loads+1;
    end;
end;
//PROGRESS REPORT//
procedure Proggy;
  begin
  ClearDebug;
    Writeln('*************************************');
    Writeln('=========== PROGRESS REPORT =========');
    Writeln('did' + IntToStr(Loads) + 'Loads' + ' ');
    Writeln('*************************************');
end;
//MAIN LOOP//
begin
  SetupSRL;
repeat
  AntiRandomz;
    Chop;
      Drop;
        Proggy;
until(False);
end.

[me_ntal]

Just add a wait for how long it takes the tree to fall or one before runescape times out and logs u out. Id say about 1000

[gerauchert]

ty =p

lol i fixed it by moving the wait time after the mouse click lol............

ok i have a newer problem now (oh joy)

ive made some antiban stuff for my script and it keeps causing the script to stop after cutting one load of logs....where should i be putting the AntiBan procedure at? like in the main loop and anywhere else in the script? any is help appreciated.

program Powerchopper;
{.include SRL/SRL.scar}
var Loads: Integer;

//SETUP HERE//
const

  TreeColor=2121808;//set tree color here
  


//ANTIRANDOMZ//

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 11 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;

       2:  If FindMod Then
             Result := True;

       3:  If FindMime Then
             Result := True;

       4:  If FindMaze Then
             Result := True;

       5:  If FindQuiz Then
             Result := True;

       6:  If FindDemon Then
             Result := True;

       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;

       8 : If RC Then
             Result := True;

       9 : If FindFight Then
              Begin
                Result := True;
                RunTo('S', True);
              End;

       10: If FindTalk Then
             Result := True;

       11: If FindTrade Then
             Result := True;
    End;
    Wait(1);
  End;
End;

//ANTIBAN//
procedure DontGetBanned;
  begin
     RotateEvery(5 + random(2));
     PickUpMouseEvery(6 + random(2));
     HoverEvery(10 + random(2),'random');
     RandomRClickEvery(2 + random(1));
     LeaveScreenEvery(15 + random(3));
     BoredEvery(10 + random(4));
     Wait(3000 + random(1779));
end;

//CHOPING PROCEDURE//
procedure Chop;

begin
  SetRun(True);
  GameTab(4);
  Wait(500 + random(250));
     if(FindColorTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,3))then
begin
  repeat
  MMouse(x,y,2,1);
    if IsUpText('illow') then
      Mouse(x,y,3,3,False);
      ChooseOption(x,y,'hop');
      Wait(5000 + random(1200));
      FindFastRandoms;
      until(InvFull);
  end;
end;
//DROPPING PROCEDURE//
procedure Drop;
  begin
    GameTab(4);
    if(InvFull)then
      begin
        DropTo(2,28)
        Loads:=Loads+1;
        TimeRunning;
   end;
end;
//PROGRESS REPORT//
procedure Proggy;
  begin
  ClearDebug;
    Writeln('*************************************');
    Writeln('=========== PROGRESS REPORT =========');
    Writeln('did:  ' + IntToStr(Loads) + '   Loads');
    Writeln('running for:  ' + TimeRunning + '  minutes');
    Writeln('*************************************');
end;
//MAIN LOOP//
begin
  SetupSRL;
  FindFastRandoms;
repeat
     Chop;
        Drop;
          Proggy;
            DontGetBanned;
until(False);
end.

[me_ntal]

The antiban should be a case statemement and only choose one of those options

[gerauchert]

thanks......read tut on cases and helped alot.

ok now im trying to use MarkTime in my chopping procedure to use antirandoms and antiban all in one but I am getting "variable expected error". Can anyone explain how to set up marktime in terms of constants/variables and what numbers (if needed) to use?

Ive read a few tuts on this but i need a lil bit more detail to figure this out cuz im a noob lol...

ty