SRL Archive - General Botting Help

Can i Change the bitmaps color tolerance

Ox Pure

2014-10-16 07:54:52

How could i change the tolerance to a bitmap for all the pixels in the bitmap is there a way to do it?

I think it changes the slightest bit and wont read my bitmap properly.

riwu

2014-10-16 08:19:13

FindBitmapToleranceIn()?

Ox Pure

2014-10-16 08:36:48

From: riwu
FindBitmapToleranceIn()?

This is the extreme strength makeall option bitmap i had it working but it stopped working with my dtms and i added tolerance to dtms and i don't know how to do bitmaps
How would i add that into this

Procedure MakePots;
Var //Variables are declared here
makestrength, X, Y:Integer; //Declare bitmaps as Integers


Begin
makestrength := BitmapFromString(103, 53, 'meJztmItP01cUx8n+kMHeGw/B8' +
        'oZSWtpSKFCQUgqiG8hbJdMZzNiMRBzODUE35BkmQ0RAcQwmMFG2YJ' +
        'btz9q+82QnN/f3a0cJ4/xG2nzyy7nnnnvvuV/uK4RauqtOnimvOxV' +
        'n7/hDpy3FawkJ4jn8K+J/NRUo9rrdjS8QTyYKZcEmiwChsrp7bR0X' +
        '05vPpZ3uRFE8pUj4ak9aBKjk/moSFPbdSGtqRzEpKUM8K1NKTzRaB' +
        'BLN9cVoQe9AamMrbVLxrEzx1jRYAZKo5MZY8bXbeZ/0p4RbbBkZWT' +
        'YbnOK5WRMo01gfYgIVFX6fr9TjdjudtEnFM9TwVIfFgTLNp5qYYE1' +
        'NwO/3eT252dkkmniGGu5AvThQprP1DGhvaWn96MPa6kBleZm9oCA1' +
        'OZlEE89Qo6QqJA6UOdfZMTs1MTM+PjM+1v9Zn8NeSKccFAPiGWq4K' +
        'uusAPQ529HR09UFTobrXQ4HKyaemxFnRdAKQKLzXZ0E7gKPy0WiiS' +
        'dmZWiHEg11dbg66RYQT8yUYn+tOBCnu73tbEc7dihECweDuAicjiJ' +
        'abOLpGXGUnxDnn9uztautrSkcbgiF8Ooo83pJN/H0jBSV1YgDZX5/' +
        '+cfuzu7G2sbK8uPFhcX52fuT41MjQyPXr11HrXiGGnZftSzQZGvrV' +
        '2J9fXt1dXN5eW3h4ZO5uaXh4dG+vqu0ScXzVCksDQgCQX56+oJFgw' +
        '3RHj1eX1xchWgjt8euXBkg0WTztBTqMgMbGzurP26trDwl0e7cGb/' +
        'aP3jp0qcIE09VpcBbJQWkWFt79vOzXQaiwfPkh42lpdX7849GR6cH' +
        'Bm5evvw5LTbBVDXyPZUiQAcsJ1UxsLn5C441Fu3u3enBwSEcaz09F' +
        'xEvlaqRPHeFCBABx5cmmnoXQLSJiXtf3hzGsXbhQi8tNqlsNXJL/I' +
        'cPFHjwYAXranv7pQp0o7sAoiFgcmr266Fv6Fg7/2qxiWRrJMdVfvh' +
        'g+jjtNcVINLoLSLTp6Tm8OuhY6+7+mBabSMJWgF4aqlzPn/8GYJBo' +
        'eHVAtJmZeVygfKw1N7ehoXjyINtZJgKmT0JpYM+SaHjffndvARcoj' +
        'jWstHBDE/+zSCpnJqvYJwK/0LAlebG92PlbNLw6SLTv55Zu3foWig' +
        'Wqg6yYVMIqmY5SKWiTYj9CKFaPRSPF6GXLiglmq2Ir8gpCggCWjkS' +
        'be6WYKheQTVXluN0jCwnC6qmwXOJJamQUui0CS6QinlWcgyK9oCRO' +
        'rBzLd8WJlbQ8Z5xYSc0tjhMrKTmOOHEOgeTsIpA4+SdDnqNN9Glyr' +
        'SqI2uSDLDuAJ0H5kVMDMab+/4gDH07tkOYbJQy1mqH28H5mIaBOyI' +
        '7EXmIOkAMfTu0wSudqFRnsYeM9WwHgvclFMlTbGKCFqUXTGNMwrWp' +
        '/w2lto8REiecqKKM1IQ9XvXs8H6jbkz38JSfHkK1VkU2G1lxzqmEM' +
        'V6lDxDQcBUcZS+tQi1czYRFMe4gUqY1rjFET4EkZFVa/pmHacOoU9' +
        'jHcHo1IzkhSGIPfycgDVCSbPfw1xmjx6kJVPerXNEyDgvc93B6NSE' +
        '5jVaTgt9NzQaLy5KAivghgm8PYoFq1iptzgPo1DTNtrgbHNJwWyTF' +
        'ROjTtWetBlYKMt47lEAnKj4pqldFWnVoPaoBpb2pYdH+swxnHoplG' +
        '6dDYM5poo7CT7DfTso8kmCMbmGmszU2bsPON1KyjCm0uGJiseDL/I' +
        '2hzHXi3SSmZcWIlMdkWJ1b+AttF2NI=');

If (FindBitmap(makestrength, X, Y)) Then //This will search the screen for the bitmap
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(17600);
End;

Incurable

2014-10-16 08:52:08

From: Ox Pure
This is the extreme strength makeall option bitmap i had it working but it stopped working with my dtms and i added tolerance to dtms and i don't know how to do bitmaps
How would i add that into this

You should edit your post and replace the tag you're using for your code with

 tags so that it comes out formatted, as seen below.

For your problem, you should use [URL="http://docs.villavu.com/srl-6/wrappers.html?highlight=bitmap#findbitmaptolerancein-overload"]findBitmapToleranceIn [/URL]as riwu suggested.

Example usage:

[simba]
procedure WaitWhileFilling();
var
  waitTimer: TTimeMarker;
  x, y, r: integer;
  doneAntiban: boolean;

begin
  waitTimer.start();
  r := randomRange(2000, 3000);

  while (not progressScreen.isOpen(50) and (waitTimer.getTime() < r)) do
    wait(random(50));

  waitTimer.reset();

  while (findBitmapToleranceIn(bmpCancelButton, x, y, mainScreen.getBounds(), 150)) and
        (not findBitmapToleranceIn(bmpDoneButton, x, y, mainScreen.getBounds(), 150)) do
  begin
    if (not doneAntiban) then
    begin
      doneAntiban := true;
      GaussWait(200, 300);
      Antiban();
    end;
    GaussWait(100, 150);
    mouseSpeed := randomRange(25, 35);
    if (random(10) = 0) then
      sleepAndMoveMouse(randomRange(250, 2000));
    claimTicket();
  end;
  mouseSpeed := 22;
  GaussWait(500, 1000);
end;

Clarity

2014-10-16 08:56:28

From: Ox Pure
This is the extreme strength makeall option bitmap i had it working but it stopped working with my dtms and i added tolerance to dtms and i don't know how to do bitmaps
How would i add that into this

FindBitmapToleranceIn
function FindBitmapToleranceIn(bitmap: integer; var x, y: Integer; xs, ys, xe, ye: Integer; tolerance: Integer): Boolean;
Searches for the Bitmap bmp on the client in the area defined by xs,ys,xe,ye. Tolerance defines the tolerance per pixel when matching bitmaps. See Colour tolerance for more information on tolerance. Returns true if found. If found, x, y specifies the position where the bitmap was found.

So you would do


findBitmapToleranceIn(makeStrength, x, y, (searchArea), desiredTolerance);

Tolerance is an integer, use higher values for a higher tolerance rate.
Also, consider using SRL-6 mouse functions like mouse(point(x, y), MOUSE_LEFT, MOUSE_HUMAN) as clickMouse in the same coordinate over and over is very botlike.

Good luck :)

E: Ninja'd by Incurable

Incurable

2014-10-16 08:59:35

From: Clarity
E: Ninja'd by Incurable

4 minutes is ninja'd now? :p

Ox Pure

2014-10-16 09:06:22

From: Clarity
So you would do
findBitmapToleranceIn(makeStrength, x, y, (searchArea), desiredTolerance);
Tolerance is an integer, use higher values for a higher tolerance rate.
Also, consider using SRL-6 mouse functions like mouse(point(x, y), MOUSE_LEFT, MOUSE_HUMAN) as clickMouse in the same coordinate over and over is very botlike.

Good luck :)

E: Ninja'd by Incurable

Could you make an example of where you put that line of code so i can see how its done im clueless of where to put it as of now

Ox Pure

2014-10-16 09:12:40

Pretty sure this is what i needed but i don't even know how to add it into my script

FindBitmapToleranceIn(makestrength, x, y, (MSX1, MSY1, MSX2, MSY2), 10);

my code:

Procedure MakePots;
Var //Variables are declared here
makestrength, X, Y:Integer; //Declare bitmaps as Integers


Begin
makestrength := BitmapFromString(103, 53, 'meJztmItP01cUx8n+kMHeGw/B8' +
        'oZSWtpSKFCQUgqiG8hbJdMZzNiMRBzODUE35BkmQ0RAcQwmMFG2YJ' +
        'btz9q+82QnN/f3a0cJ4/xG2nzyy7nnnnvvuV/uK4RauqtOnimvOxV' +
        'n7/hDpy3FawkJ4jn8K+J/NRUo9rrdjS8QTyYKZcEmiwChsrp7bR0X' +
        '05vPpZ3uRFE8pUj4ak9aBKjk/moSFPbdSGtqRzEpKUM8K1NKTzRaB' +
        'BLN9cVoQe9AamMrbVLxrEzx1jRYAZKo5MZY8bXbeZ/0p4RbbBkZWT' +
        'YbnOK5WRMo01gfYgIVFX6fr9TjdjudtEnFM9TwVIfFgTLNp5qYYE1' +
        'NwO/3eT252dkkmniGGu5AvThQprP1DGhvaWn96MPa6kBleZm9oCA1' +
        'OZlEE89Qo6QqJA6UOdfZMTs1MTM+PjM+1v9Zn8NeSKccFAPiGWq4K' +
        'uusAPQ529HR09UFTobrXQ4HKyaemxFnRdAKQKLzXZ0E7gKPy0WiiS' +
        'dmZWiHEg11dbg66RYQT8yUYn+tOBCnu73tbEc7dihECweDuAicjiJ' +
        'abOLpGXGUnxDnn9uztautrSkcbgiF8Ooo83pJN/H0jBSV1YgDZX5/' +
        '+cfuzu7G2sbK8uPFhcX52fuT41MjQyPXr11HrXiGGnZftSzQZGvrV' +
        '2J9fXt1dXN5eW3h4ZO5uaXh4dG+vqu0ScXzVCksDQgCQX56+oJFgw' +
        '3RHj1eX1xchWgjt8euXBkg0WTztBTqMgMbGzurP26trDwl0e7cGb/' +
        'aP3jp0qcIE09VpcBbJQWkWFt79vOzXQaiwfPkh42lpdX7849GR6cH' +
        'Bm5evvw5LTbBVDXyPZUiQAcsJ1UxsLn5C441Fu3u3enBwSEcaz09F' +
        'xEvlaqRPHeFCBABx5cmmnoXQLSJiXtf3hzGsXbhQi8tNqlsNXJL/I' +
        'cPFHjwYAXranv7pQp0o7sAoiFgcmr266Fv6Fg7/2qxiWRrJMdVfvh' +
        'g+jjtNcVINLoLSLTp6Tm8OuhY6+7+mBabSMJWgF4aqlzPn/8GYJBo' +
        'eHVAtJmZeVygfKw1N7ehoXjyINtZJgKmT0JpYM+SaHjffndvARcoj' +
        'jWstHBDE/+zSCpnJqvYJwK/0LAlebG92PlbNLw6SLTv55Zu3foWig' +
        'Wqg6yYVMIqmY5SKWiTYj9CKFaPRSPF6GXLiglmq2Ir8gpCggCWjkS' +
        'be6WYKheQTVXluN0jCwnC6qmwXOJJamQUui0CS6QinlWcgyK9oCRO' +
        'rBzLd8WJlbQ8Z5xYSc0tjhMrKTmOOHEOgeTsIpA4+SdDnqNN9Glyr' +
        'SqI2uSDLDuAJ0H5kVMDMab+/4gDH07tkOYbJQy1mqH28H5mIaBOyI' +
        '7EXmIOkAMfTu0wSudqFRnsYeM9WwHgvclFMlTbGKCFqUXTGNMwrWp' +
        '/w2lto8REiecqKKM1IQ9XvXs8H6jbkz38JSfHkK1VkU2G1lxzqmEM' +
        'V6lDxDQcBUcZS+tQi1czYRFMe4gUqY1rjFET4EkZFVa/pmHacOoU9' +
        'jHcHo1IzkhSGIPfycgDVCSbPfw1xmjx6kJVPerXNEyDgvc93B6NSE' +
        '5jVaTgt9NzQaLy5KAivghgm8PYoFq1iptzgPo1DTNtrgbHNJwWyTF' +
        'ROjTtWetBlYKMt47lEAnKj4pqldFWnVoPaoBpb2pYdH+swxnHoplG' +
        '6dDYM5poo7CT7DfTso8kmCMbmGmszU2bsPON1KyjCm0uGJiseDL/I' +
        '2hzHXi3SSmZcWIlMdkWJ1b+AttF2NI=');

If (FindBitmap(makestrength, X, Y)) Then //This will search the screen for the bitmap
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(17600);
End;

Clarity

2014-10-16 09:44:53

From: Incurable
4 minutes is ninja'd now? :p

I was silly and did not refresh the topic before I posted after taking four minutes to type it out on my phone.

From: Ox Pure
Pretty sure this is what i needed but i don't even know how to add it into my script

New code:


Procedure MakePots;
Var //Variables are declared here
makestrength, X, Y:Integer; //Declare bitmaps as Integers


Begin
makestrength := BitmapFromString(103, 53, 'meJztmItP01cUx8n+kMHeGw/B8' +
        'oZSWtpSKFCQUgqiG8hbJdMZzNiMRBzODUE35BkmQ0RAcQwmMFG2YJ' +
        'btz9q+82QnN/f3a0cJ4/xG2nzyy7nnnnvvuV/uK4RauqtOnimvOxV' +
        'n7/hDpy3FawkJ4jn8K+J/NRUo9rrdjS8QTyYKZcEmiwChsrp7bR0X' +
        '05vPpZ3uRFE8pUj4ak9aBKjk/moSFPbdSGtqRzEpKUM8K1NKTzRaB' +
        'BLN9cVoQe9AamMrbVLxrEzx1jRYAZKo5MZY8bXbeZ/0p4RbbBkZWT' +
        'YbnOK5WRMo01gfYgIVFX6fr9TjdjudtEnFM9TwVIfFgTLNp5qYYE1' +
        'NwO/3eT252dkkmniGGu5AvThQprP1DGhvaWn96MPa6kBleZm9oCA1' +
        'OZlEE89Qo6QqJA6UOdfZMTs1MTM+PjM+1v9Zn8NeSKccFAPiGWq4K' +
        'uusAPQ529HR09UFTobrXQ4HKyaemxFnRdAKQKLzXZ0E7gKPy0WiiS' +
        'dmZWiHEg11dbg66RYQT8yUYn+tOBCnu73tbEc7dihECweDuAicjiJ' +
        'abOLpGXGUnxDnn9uztautrSkcbgiF8Ooo83pJN/H0jBSV1YgDZX5/' +
        '+cfuzu7G2sbK8uPFhcX52fuT41MjQyPXr11HrXiGGnZftSzQZGvrV' +
        '2J9fXt1dXN5eW3h4ZO5uaXh4dG+vqu0ScXzVCksDQgCQX56+oJFgw' +
        '3RHj1eX1xchWgjt8euXBkg0WTztBTqMgMbGzurP26trDwl0e7cGb/' +
        'aP3jp0qcIE09VpcBbJQWkWFt79vOzXQaiwfPkh42lpdX7849GR6cH' +
        'Bm5evvw5LTbBVDXyPZUiQAcsJ1UxsLn5C441Fu3u3enBwSEcaz09F' +
        'xEvlaqRPHeFCBABx5cmmnoXQLSJiXtf3hzGsXbhQi8tNqlsNXJL/I' +
        'cPFHjwYAXranv7pQp0o7sAoiFgcmr266Fv6Fg7/2qxiWRrJMdVfvh' +
        'g+jjtNcVINLoLSLTp6Tm8OuhY6+7+mBabSMJWgF4aqlzPn/8GYJBo' +
        'eHVAtJmZeVygfKw1N7ehoXjyINtZJgKmT0JpYM+SaHjffndvARcoj' +
        'jWstHBDE/+zSCpnJqvYJwK/0LAlebG92PlbNLw6SLTv55Zu3foWig' +
        'Wqg6yYVMIqmY5SKWiTYj9CKFaPRSPF6GXLiglmq2Ir8gpCggCWjkS' +
        'be6WYKheQTVXluN0jCwnC6qmwXOJJamQUui0CS6QinlWcgyK9oCRO' +
        'rBzLd8WJlbQ8Z5xYSc0tjhMrKTmOOHEOgeTsIpA4+SdDnqNN9Glyr' +
        'SqI2uSDLDuAJ0H5kVMDMab+/4gDH07tkOYbJQy1mqH28H5mIaBOyI' +
        '7EXmIOkAMfTu0wSudqFRnsYeM9WwHgvclFMlTbGKCFqUXTGNMwrWp' +
        '/w2lto8REiecqKKM1IQ9XvXs8H6jbkz38JSfHkK1VkU2G1lxzqmEM' +
        'V6lDxDQcBUcZS+tQi1czYRFMe4gUqY1rjFET4EkZFVa/pmHacOoU9' +
        'jHcHo1IzkhSGIPfycgDVCSbPfw1xmjx6kJVPerXNEyDgvc93B6NSE' +
        '5jVaTgt9NzQaLy5KAivghgm8PYoFq1iptzgPo1DTNtrgbHNJwWyTF' +
        'ROjTtWetBlYKMt47lEAnKj4pqldFWnVoPaoBpb2pYdH+swxnHoplG' +
        '6dDYM5poo7CT7DfTso8kmCMbmGmszU2bsPON1KyjCm0uGJiseDL/I' +
        '2hzHXi3SSmZcWIlMdkWJ1b+AttF2NI=');

If findBitmapToleranceIn(makestrength, x, y, MSX1, MSY1, MSX2, MSY2, 10) then //This will search the screen for the bitmap
MMouse(x, y, 0, 0);
ClickMouse(X, Y, mouse_Left);
wait(17600);
End;

Ross

2014-10-16 09:47:31

From: Ox Pure
…

Could you post a screenshot of what you're trying to do? There may be an easier way to do it.