SRL Archive - Test corner

I don't know were else to post this so that Jr's - can't see but, I was wondering does my powerminer have enough anti-leech?

{$I AntiLeech.Simba}
several identifier errors
Loop commented out
Declared form as integer
Declare ores,picks, and gems never included
This:

HumanMMouse(RandomRange(X - 50, X + 50), RandomRange(y - 50, y + 50), 0, 0);

Ore colors commented out
until False; removed completely


I think the people are actually learning a lot but there's also a lot of people not trying.. Also, what suggestions do you guys have for more anti-ban? I tried doing random waits inside of random waits, mostly clicking the middle of a object, what else should I do?

The anti-leech seems alright.

As for antiban, maybe have some extra long waits occaisionally to simulate AFK'ing. I think your biggest problem is the randoms, I'd suggest adding a check for those and logging out when they are found if you don't think you could solve them.

From: BMWxi
The anti-leech seems alright.

As for antiban, maybe have some extra long waits occaisionally to simulate AFK'ing. I think your biggest problem is the randoms, I'd suggest adding a check for those and logging out when they are found if you don't think you could solve them.

It is supposed to logout after not finding ore for 12 seconds but I don't know if it works

From: rjj95
It is supposed to logout after not finding ore for 12 seconds but I don't know if it works

Could you post the code? Also not all randoms stop you from seeing the ore, some just follow you around shouting your name, which will cause you to get reported by the ~10 legit players in your area.

From: BMWxi
Could you post the code? Also not all randoms stop you from seeing the ore, some just follow you around shouting your name, which will cause you to get reported by the ~10 legit players in your area.

Here:

Ok so the relevant part is

If (TimeFromMark(Counter) > 12000) Then   //This is marked at the beginning of the procedure, so that should be fine
      Begin
        if FindColorTolerance(X,Y,3229304, 626, 467, 660, 501, 15) then
        Begin
          HumanMMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
          clickmouse2(mouse_Left);
          Wait(RandomRange(400, 1000));
          if FindColorTolerance(X,Y,1974666, 570, 361, 711, 390, 15) then
          Begin
            HumanMMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
            clickmouse2(mouse_Left);
            Wait(RandomRange(400, 1000));
            Break;    //Problem is here. The Break is called right before the termination, so it will always exit the procedure before it gets to the termination stage.
            Writeln('Could not find any rocks for 12 seconds, logged out');
            TerminateScript;
          End;
        End;
        Break;
      End;

Note that without knowing what the colors were or where the coordinates were, it's hard to tell what each FindColorTolerance does.

From: BMWxi
Ok so the relevant part is

If (TimeFromMark(Counter) > 12000) Then   //This is marked at the beginning of the procedure, so that should be fine
      Begin
        if FindColorTolerance(X,Y,3229304, 626, 467, 660, 501, 15) then
        Begin
          HumanMMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
          clickmouse2(mouse_Left);
          Wait(RandomRange(400, 1000));
          if FindColorTolerance(X,Y,1974666, 570, 361, 711, 390, 15) then
          Begin
            HumanMMouse(RandomRange(X - 5, X + 5), RandomRange(y - 5, y + 5), 0, 0);
            clickmouse2(mouse_Left);
            Wait(RandomRange(400, 1000));
            Break;    //Problem is here. The Break is called right before the termination, so it will always exit the procedure before it gets to the termination stage.
            Writeln('Could not find any rocks for 12 seconds, logged out');
            TerminateScript;
          End;
        End;
        Break;
      End;

Note that without knowing what the colors were or where the coordinates were, it's hard to tell what each FindColorTolerance does.

No wonder the script never stopped :d

I'm going to post all the things wrong with the script on the thread, but not tell them how to fix.

From: rjj95

I'm going to post all the things wrong with the script on the thread, but not tell them how to fix.

I wouldn't do that, then they'll make a thread asking how to fix a specific error, and someone will fix it for them without knowing it's anti leech.

Although in the end it's up to you, it's your script.

I'll remove anti leech when powerbot releases a powerminer.