SRL Archive - First Scripts

This is my first script. It cuts teak on ape atoll, where there are no randoms. the wait time(in between cuts) could be smoother.

IMPORTANT: Put rune axe in 28th inv. spot.

Change the AccountLogin and other information as noted with the //dashes. Or log in manually after pausing smart.


Comments? Any suggestions for a better antiban/wait period?
Any links for paint guides?

program TeakTak;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL-OSR/SRL/Misc/Debug.Simba}

var x, y: integer;

const
  AccountLogin = ''; //Declare your username and password
  AccountPass = ''; 
  CharacterName = '';  
  version = '1.0';               //drops logs. second version.

procedure DeclarePlayer;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
      Players[0].Name := AccountLogin;
      Players[0].Pass := AccountPass;
      Players[0].Nick := CharacterName; //Important for antirandoms
      Players[0].Active := True;
  end;



Procedure antiBan;
begin
  //writeln('antiban debug!');
  Case Random(130) Of
    1: HoverSkill(skill_hitpoints, false);
    3: Boredhuman;
    4: Wait(2500 + random(4500));
    5: PickUpMouse;
    6: RandomMovement;
    7: RandomRClick;
    8: MakeCompass('random');
  end;
end;


procedure ChopTree;
var x, y: integer;
begin
    repeat
    if FindObj(x, y, 'hop', 6789814, 35) then
    begin
       Mouse(x, y, 0, 0, false);
       ChooseOption('hop');
       wait(1000);
    end;
      repeat
         Antiban;
    Until not IsUpText('eak') or (InvFull);
  Until(InvFull);
end;




Procedure DropLogs;
var
  i: Integer;
begin
  Writeln('Inventory full! Dropping logs!');
  if(InvFull) then
  for i := 1 to 27 do
  begin
    if ExistsItem(i) then
      DropItem(i);
      wait(50+random(50));
  end;
end;


begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayer;
  LoginPlayer;
  repeat
    ChopTree;
    if InvFull Then
      DropLogs;
      Antiban;
    until(false);
end.                                                   

The mouse clicks on the exactly same dot which makes it ultra botlike. It should be more like

Mouse(x, y, 10, 10, false);

And you stated until InvFull twice :P

procedure ChopTree;
var x, y: integer;
begin
repeat
if FindObj(x, y, 'hop', 6789814, 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
wait(8500); ———————–[BANANA]updated to 8500.[/BANANA]
end;
repeat
Antiban;
Until not IsUpText('eak') or (InvFull);
Until(InvFull);
end;

u should change it :P but awesome script!!