SRL Archive - First Scripts

Here it is in SCAR. Will have more anti-randoms in the next version.

program New;
{.include SRL/SRL.scar}
var
x, y, AvoidRandom, HowCut, LoadsDone: integer;
const
WTime=6000; //Time to wait between cutting each tree
TreeColor=4352884; //Color of tree
HowManyLoads=1; //How many loads to do
procedure ChopIt;
begin
  AvoidRandom:=0; //Don't change this!
  HowCut:=0; //Don't change this either!!!
  Disguise('Mozilla Firefox');
  SetupSRL;
  ActivateClient;
    repeat
      FindTalk;
      FindNormalRandoms;
      if(FindFight=True) then
        begin
          RunAwayDirection('N');
          Wait(10000 + random(2000));
          RunBack;
          AvoidRandom:= AvoidRandom+1;
        end;
      if(FindColor(x,y,TreeColor,0,0,0,0)) then
        begin
          Mouse(x,y,x,y,true);
          HowCut:=HowCut+1;
        end;
      until(InvFull);
 end;
procedure Drop;
begin
 FindTalk;
 DropAll;
 FindNormalRandoms;
end;
procedure Progress;
begin
  Writeln('Progress report starting...')
  Wait(1000);
  Writeln('Avoided '+ IntToStr(AvoidRandom)+ ' randoms.');
  Writeln('Cut '+ IntToStr(HowCut)+ ' trees.');
  Writeln('Thanks for using CutEm2 Cutter v. 1.00.');
end;
begin
  repeat
    ChopIt;
    Drop;
    LoadsDone:=LoadsDone+1;
    until(LoadsDone=HowManyLoads);
  Progress;
end.

Edit: Please post your progress reports!

Edit: Currently working on next version! Stay tuned. Will be more anti-randoms!

Thanks,
Cut em2 it

Has anyone tried this?

From: cut em2 it
Here it is in SCAR. Will have more anti-randoms in the next version.

program New;
{.include SRL/SRL.scar}
var
x, y, AvoidRandom, HowCut, LoadsDone: integer;
const
WTime=6000; //Time to wait between cutting each tree
TreeColor=4484715; //Color of tree
HowManyLoads=1; //How many loads to do
procedure ChopIt;
begin
  AvoidRandom:=0; //Don't change this!
  HowCut:=0; //Don't change this either!!!
  SetupSRL;
repeat
  FindTalk;
  FindNormalRandoms;
if(FindFight=True) then
begin
  RunAwayDirection('N');
  Wait(10000 + random(2000));
  RunBack;
  AvoidRandom:= AvoidRandom+1;
  end;
if(FindColor(x,y,TreeColor,172,142,0,0)) then
begin
  Mouse(x,y,x,y,true);
  HowCut:=HowCut+1;
end;
until(InvFull);
end;
procedure Drop;
begin
DropAll;
end;
procedure Progress;
begin
Writeln('Progress report starting...')
Wait(1000);
Writeln('Avoided '+ IntToStr(AvoidRandom)+ ' randoms.');
Writeln('Cut '+ IntToStr(HowCut)+ ' trees.');
Writeln('Thanks for using CutEm2 Cutter v. 1.00.');
end;
begin
repeat
ChopIt;
Drop;
LoadsDone:=LoadsDone+1;
until(LoadsDone=HowManyLoads);
Progress;
end.

Thanks,
Cut em2 it

lol i looked at ur site and u say dont advertise anyother sotes for 1 of ur rules shudnt u do thst here?

umm this script look a lil familiar jus a few things changed it wud if been nice to ask b4

Standards Please. Good Script just might want to work on more procedures and complexity:
This is a script with standards:

program New;
{.include SRL/SRL.scar}
var
x, y, AvoidRandom, HowCut, LoadsDone: integer;
const
WTime=6000; //Time to wait between cutting each tree
TreeColor=4484715; //Color of tree
HowManyLoads=1; //How many loads to do

procedure ChopIt;
begin
  AvoidRandom:=0; //Don't change this!
  HowCut:=0; //Don't change this either!!!
  SetupSRL;
    repeat
      FindTalk;
      FindNormalRandoms;
      if(FindFight=True) then
        begin
          RunAwayDirection('N');
          Wait(10000 + random(2000));
          RunBack;
          AvoidRandom:= AvoidRandom+1;
      end;
        if(FindColor(x,y,TreeColor,172,142,0,0)) then
          begin
            Mouse(x,y,x,y,true);
            HowCut:=HowCut+1;
         end;
      until(InvFull);
 end;

procedure Drop;
begin
  DropAll;
end;

procedure Progress;
begin
  Writeln('Progress report starting...')
  Wait(1000);
  Writeln('Avoided '+ IntToStr(AvoidRandom)+ ' randoms.');
  Writeln('Cut '+ IntToStr(HowCut)+ ' trees.');
  Writeln('Thanks for using CutEm2 Cutter v. 1.00.');
end;

begin
  repeat
   ChopIt;
   Drop;
   LoadsDone:=LoadsDone+1;
   until(LoadsDone=HowManyLoads);
     Progress;
end.

You see it looks more complex and bigger. Looks nicer aswell :)

#SS

Thanks to all of you for your input. I always see these "FindFastRandoms" functions in their scripts? Should I put that in here?

From: scaper123
lol i looked at ur site and u say dont advertise anyother sotes for 1 of ur rules shudnt u do thst here?

I will change that I wasn't thinking while I typed that.

From: scaper123
umm this script look a lil familiar jus a few things changed it wud if been nice to ask b4

Can you tell me what you are saying? It sounds like you think I didn't make this myself. I did make this myself.

Woah! Try to edit your post instead of triple posting.

Ok, nice script.

tested it out for 1 hr… it was a pity as my internet connection disconnected or it would have continued running…

ran perfectly well..
gd job on it ..

From: soccnut
tested it out for 1 hr… it was a pity as my internet connection disconnected or it would have continued running…

ran perfectly well..
gd job on it ..

Thanks, anything else that I should add anyone?