SRL Archive - First Scripts

[——————-<<<<fifa499's Cut'N'Drop>>>>————————-]

//////////////////////////////////////////////////////////////////////
// _________About The Script_________ //
// This script is capable of cutting any tree //
// anywhere. Also added SMART to script and thnx to dark //
// arcana for fixing my standards. //
//////////////////////////////////////////////////////////////////////


////////////////////////////////////////////////////////////////////////
// _________How To Use_________ //
// Basically start with axe equipped near the tree's //
// you want cut. Making a proggy for it now will at it //
// as soon as i can will add it soon. //
// thanks for looking at my script hope you like it. //
////////////////////////////////////////////////////////////////////////

[——–<<<<Take a look test it out post tips bug's glitch's etc.>>>>——-]

Ents have been removed so the whole entfinder is not needed ;)

In the var add EntsAvoided as an integer, well you don't really need an end finder because it has been removed from the game, and you didn't make a progress report.

I fixed your standards.

  if  FindObj(x, y, 'hop', Tree, 30) then
begin
    MMouse(x, y, 1, 1); //not needed
    Mouse(x, y, 1, 1, true);

You don't need to do that as Mouse moves the mouse then clicks

 if InvFull = true then 
//Can be changed to
If (InvFull) then

And yes someone also mentioned that FindEnt is not needed. But thats a very good start

i will try it tell u how it went :P

1) don't use FindObj() it sucks, i recommend FindObjTPA:

 FindObjTPA(x, y, Tree, 5, 3, 30, 30, 10, 'hop');

2) you must make a failsafe that checks if we haven't found a tree in like 2 minutes then something is wrong and we should log out.

3) i think that FindNormalRandoms; crashes the script if you haven't used declareplayers? you should read some tutorials about DeclarePlayers;

4) i fixed some things in your main loop and added a failsafe:

  const
   Tree = 3116158;

  var
   Fails: integer;
   
{------<<<<Main Line>>>>------}
begin
  SetupScript;
  repeat
   if InvFull = true then
   begin
    AntiBan;
    DoAntiRandoms;
    writeln('Its full!');
    dropAll;
    wait(6000);
   end else
    writeln('not full yet keep chopping!');
   if  FindObjTPA(x, y, Tree, 15, 2, 30, 30, 10, 'hop') then
   begin
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, true); 
    writeln('Yeah Chop Chop Chop!');
    wait(6000);
    ProgressReport;
   end else
   begin
    writeln('couldnt find tree :(!');
    Fails := Fails + 1;
    wait(6000);
    ProgressReport;
    if Fails > 9 then
    begin
     writeln('WE ARE LOST!');
     logout;
     terminatescript;
    end;
   end;
 until(false);
end.

5) you never use the TimeRunningEx function in your script? ^^ why'd u put it there!

thnx for your help mArpis

Also,

if  FindObj(x, y, 'hop', Tree, 30) then
begin
    MMouse(x, y, 1, 1); //not needed
    Mouse(x, y, 1, 1, true);

Mouse and MMouse, as you have them there, are detectable.
First of all, you don't need the MMouse. And second, that will first move to the coords with 1 randomness then will click somewhere with 1 randomness and will sometimes not click the same because of randomness.

MMouse(x, y, 1, 1);
GetMousePos(x, y);
Mouse(x, y, 0, 0, true);

Not detectable. But don't use that just use Mouse(x, y, 3, 3, true); ;).