SRL Archive - First Scripts

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

var
i,x,y:Integer;
Loads = Integer;
Dropped = Integer;
Prog = Integer;


const
  TreeColor =put your colr here;///The first color of the tree
  TreeColor2 =put your second color here;///The second color of the tree
  LoadMax = 10;///Put the number of loads you want to do here
  
procedure ChopTree;
begin
  i:= 0;
  repeat
  i:=i + 1;
  if (FindColor(x,y,TreeColor,0,0,700,700)) or
  (FindColor(x,y,TreeColor2,0,0,700,700)) and
  IsTextUp('Cut') then
  begin
  Wait(100 +random(500))
  Mouse(x, y, 3, 3, True);
  Wait(5000 +random(500));
  end;
  if not(FindColor(x,y,TreeColor,0,0,700,700))or
  (FindColor2)(x,y,TreeColor,0,0,700,700))then
  Wait(700);
  until(InvFull);
  end;
  
procedure DoAntiRandoms;
begin
 FindTalk;
 FindNormalRandoms;
if (FindFight + true) then
begin
RunAwayDirection('S');
Wait(10000 + random(2000));
RunBack;
end;
end;

Procedure Drop;
begin
 DropTo(2,28);
 Loads:=Loads+1;
 Dropped:=Dropped+28;
end;

Procedure Proggy;
Writeln('Proggy' +IntToStr(prog));
Writeln('/--------------------');
Writeln('|Did' +IntToStr(Loads) + 'Loads');
Writeln('|Dropped' +IntToStr(Dropped) + 'Logs');
Writeln('/-------------');

begin
  SetupSRL;
  repeat
  ChopTree
  Drop(2,28);
  DoAntiRandoms;
  prog: =prog+1;
  Proggy;
  until (Loads:=LoadsMax);
  end.

please give me feedback on it and suggestions thank you.

alright I will try this out and post a proggy later..