Script Help

I'm trying to make a script where it searches for a color and clicks it. Any ideas how to do this? Its for this game called world of tanks.

This is what I have but its not working

Quote:

---

program Colour;

var
x, y : integer;
begin
If FindColor(x, y, 59751, 0, 0, 1276, 776) Then
begin
movemouse(x, y);
clickmouse(x, y, true);
end;
end.

---

any thoughts? I want it to click on this red "battle" button.

http://img.photobucket.com/albums/v3...s/shot_001.jpg

include SRL
do MMouse(blah)
Mouse(blah)
You can find mouse functions in the Mouse.scar file

-Boom

what do you mean include srl? And I cant find a mouse file.

You have Simba right?
Go to view > Extensions.
Enable SRL.sex.
Now here is what your script should look like:

Simba Code:

program Colour;
{$i srl/srl.scar}

var
x, y : integer;
begin
  If FindColor(x, y, 59751, 0, 0, 1276, 776) Then
    begin
      MMouse(x, y, 1, 1);
     GetMousePos(x, y);
     Mouse(x, y, 1, 1, True;
    end;
end.

Something like that :)

what is simba? I am using scar.

Quote:

---

Originally Posted by omgbeans

what is simba? I am using scar.

---

Download Simba, it is the new program here :)

-Boom

Where can i find it? I thought this is the scar forums?

Come on man, just searching Download Simba comes up with it...
This is the SRL forums

-Boom

ok well the script is still not working and all you did was get me to use simba.

Well what isn't working?
Is it not compiling...?
Is it not finding the colour or what?

It's not compiling now in simba. Before in SCAR it would compile but not find the color or move the mouse.

Ok... So what does the debug say?

-Boom

We can read minds. Help us out. Post the script, the error, and then we can help fix it :)

On the original script at the top there is no error. It said it completed but the script does nothing.

On his script that he posted this is the error

Quote:

---

Error] (10:7): Unknown identifier 'MMouse' at line 9

---

run this:

Code:

---

program Colour;

var
x, y : integer;
begin
If FindColor(x, y, 59751, 0, 0, 1276, 776) Then
begin
writeln('Found colour');
movemouse(x, y);
clickmouse(x, y, true);
end;
end.

---

Quote:

---

Originally Posted by Dynamite

run this:

Code:

---

program Colour;

var
x, y : integer;
begin
If FindColor(x, y, 59751, 0, 0, 1276, 776) Then
begin
writeln('Found colour');
movemouse(x, y);
clickmouse(x, y, true);
end;
end.

---

---

that doesnt work it gives this error.

Quote:

---

[Error] (11:23): Type mismatch at line 10

---

All i want it to do is this

1. Search for color
2. move mouse to color
3. left click

Edit: ok that compiles in scar but it doesnt do anything.

Simba Code:

program Color;
{$I SRL/SRL.scar}

var x, y: Integer;

begin
SetupSRL;
  if FindColor(x, y, 59751, 0, 0, 1276, 776) then begin
    Writeln('Found color!');
    Mouse(x, y, 1, 1);
  end;
FreeSRL;
end.

That should work in Simba.

Quote:

---

Originally Posted by omgbeans

that doesnt work it gives this error.



All i want it to do is this

1. Search for color
2. move mouse to color
3. left click

Edit: ok that compiles in scar but it doesnt do anything.

---

Then it isn't finding your colour.

Quote:

---

Originally Posted by Frement

Simba Code:

program Color;
{$I SRL/SRL.scar}

var x, y: Integer;

begin
SetupSRL;
  if FindColor(x, y, 59751, 0, 0, 1276, 776) then begin
    Writeln('Found color!');
    Mouse(x, y, 1, 1);
  end;
FreeSRL;
end.

That should work in Simba.

---

If it isn't finding your color, it won't say "Found color!" in the debug box when you use this.

then i get this error

Quote:

---

Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

---

and im not even sure this line is right

Quote:

---

FindColor(x, y, 59751, 0, 0, 1276, 776)

---

This is the color I want to find "597, 51"

Quote:

---

Originally Posted by TomTuff

If it isn't finding your color, it won't say "Found color!" in the debug box when you use this.

---

in scar it doesnt do anything except say "script run succesfull"

also i want this to keep going until i hit a button like "F8" or something

Quote:

---

Originally Posted by omgbeans

then i get this error

and im not even sure this line is right

This is the color I want to find "597, 51"

---

Note Frement said Simba.
With the one I posted, what you reported means that your colour wasn't found, meaning you need to find a new colour.

You must enable the SRL extension, View -> Extensions, then click SRL.sex and tick the "Enable" box.

After that it should update your SRL to the latest version, and then you compile the script.

Now you need to get the color. For that I suggest using 2041538.

EDIT: Test this:

Simba Code:

program Color;
{$I SRL/SRL.scar}

var x, y: Integer;

begin
SetupSRL;
  if FindColor(x, y, 2041538, 0, 0, 1200, 300) then begin
    Writeln('Found color!');
    Mouse(x, y, 1, 1);
  end else begin
    Writeln('Warning, color not found!');
  end;
FreeSRL;
end.

Quote:

---

Originally Posted by Dynamite

Note Frement said Simba.
With the one I posted, what you reported means that your colour wasn't found, meaning you need to find a new colour.

---

ignore this line

Quote:

---

findColor(x, y, 59751, 0, 0, 1276, 776)

---

this is the color i want to find "597, 51" how would i write that in?

Quote:

---

Originally Posted by Frement

You must enable the SRL extension, View -> Extensions, then click SRL.sex and tick the "Enable" box.

After that it should update your SRL to the latest version, and then you compile the script.

Now you need to get the color. For that I suggest using 2041538.

---

He is using Scar Frement.

Quote:

---

Originally Posted by omgbeans

ignore this line



this is the color i want to find "597, 51" how would i write that in?

---

Those are coordinates, in the brackets. You want the colour before that. It will say colour picked 10230942354 at (134, 342) with real numbers and not that exact quote.