Script Help

[omgbeans]

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


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/v323/Keitoussai/World%20of%20Tanks/shot_001.jpg

[**BANNED The Man]

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

-Boom

[omgbeans]

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

[**BANNED The Man]

You have Simba right?
Go to view > Extensions.
Enable SRL.sex.
Now here is what your script should look like:
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 :)

[omgbeans]

what is simba? I am using scar.

[**BANNED The Man]

what is simba? I am using scar.
Download Simba, it is the new program here :)

-Boom

[omgbeans]

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

[**BANNED The Man]

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

-Boom

[omgbeans]

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

[**BANNED The Man]

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

[omgbeans]

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

[**BANNED The Man]

Ok... So what does the debug say?

-Boom

[3Garrett3]

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

[omgbeans]

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


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

[**BANNED The Man]

run this:

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.

[omgbeans]

run this:

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.


[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.

[Frement]

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.

[**BANNED The Man]

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.

[TomTuff]

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.

[omgbeans]

then i get this error
Exception in Script: Unable to find file 'SRL/SRL.scar' used from ''

and im not even sure this line is right
FindColor(x, y, 59751, 0, 0, 1276, 776)

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


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

[**BANNED The Man]

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.

[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.

EDIT: Test this:
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.

[omgbeans]

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


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

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

[**BANNED The Man]

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.

[3Garrett3]

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.

[Frement]

He is using Scar Frement.

But I'm saying no to that, he must download Simba, I dislike SCAR, and I refuse to teach someone how to use SCAR, instead, I instruct to use Simba ;)

[omgbeans]

I have simba but Where do I put it? In the scar folder? and how woul this look typed out if i used that as a color ignore my previous line with those coordinates.

ok i got it to move the mouse there but it wont click. Also How would i make this loop unless i hit "F8"

[Frement]

I have simba but Where do I put it? In the scar folder? and how woul this look typed out if i used that as a color ignore my previous line with those coordinates.

I already gave you exact example:
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.

[**BANNED The Man]

But I'm saying no to that, he must download Simba, I dislike SCAR, and I refuse to teach someone how to use SCAR, instead, I instruct to use Simba ;)

Thats what I said.

omgbeans, look at the how to install simba then come back :)

[omgbeans]

ok well thanks for the help so far then

[Zyt3x]

Why can't you just use some coords to click the button?

[Frement]

Why can't you just use some coords to click the button?

Now thats not good practice is it? ;)

[Hugolord]

You simply have to download simba, install it, and enable/update the extensions Frement instructed you to. After that, run his script. If this does not work tell us clearly why it doesn't or where it got stuck.

[omgbeans]

I have simba but theres no instructions where to install it. I looked at view and opened extensions and its blank.

This works in scar and keeps running until i hit F8 but it wont keep clicking the color.


program Colour;

var
x, y : integer;
begin
If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
begin
writeln('Found colour');
movemouse(x, y);
wait (1000);
clickmouse(x, y, true);
repeat;
until isFKeyDown (8);
end;
end.

[**BANNED The Man]

program Colour;


var

x, y : integer;

begin

If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
Repeat
begin

writeln('Found colour');

movemouse(x, y);

wait (1000);

clickmouse(x, y, true);

until isFKeyDown (8);

end;

end.

[omgbeans]

program Colour;


var

x, y : integer;

begin

If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
Repeat
begin

writeln('Found colour');

movemouse(x, y);

wait (1000);

clickmouse(x, y, true);

until isFKeyDown (8);

end;

end.

that doesnt work in SCAR.

I downloaded and installed Simba and I get this error now


[Error] (11:22): Invalid number of parameters at line 10

when using this code



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

var x, y: Integer;

begin
SetupSRL;
if FindColor(x, y, 1781462, 604, 63, 1276, 776) then begin
Writeln('Found color!');
Mouse(x, y, 1, 1);
end else begin
Writeln('Warning, color not found!');
end;
FreeSRL;
end.

[**BANNED The Man]

Do begin repeat if findcolor begin
IN SIMBA!

[omgbeans]

program Colour;


var

x, y : integer;

begin

If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
Repeat
begin

writeln('Found colour');

movemouse(x, y);

wait (1000);

clickmouse(x, y, true);

until isFKeyDown (8);

end;

end.

this doesnt work in simba either


[Error] (21:23): Type mismatch at line 20

it says this line is wrong


clickmouse(x, y, true);

[MylesMadness]

For simba
program Colour;
var
x, y : integer;

begin
If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
Repeat
begin
writeln('Found colour');
movemouse(x, y);
wait (1000);
clickmouse(x, y, 0);
end;
until IsKeyDown(119);//isFkeyDown(8) in simba
end.

[omgbeans]

For simba
program Colour;
var
x, y : integer;

begin
If FindColor(x, y, 1781462, 604, 63, 1276, 776) Then
Repeat
begin
writeln('Found colour');
movemouse(x, y);
wait (1000);
clickmouse(x, y, 0);
end;
until IsKeyDown(119);//isFkeyDown(8) in simba
end.

thanks that works. The only problem I have now is it wont click the button hard enough to get it to do the action that happens after the button is clicked.

[Zyt3x]

IsKeyDown(119);
while not IsKeyDown(199) do
begin
if FindColor(x, y, 1781462, 604, 63, 1276, 776) then
begin
WriteLn('Found color!');
MoveMouse(X, Y);
Wait(100);
HoldMouse(X, Y, True);
Wait(100);
ReleaseMouse(X, Y, True);
end;
end;

[omgbeans]

IsKeyDown(119);
while not IsKeyDown(199) do
begin
if FindColor(x, y, 1781462, 604, 63, 1276, 776) then
begin
WriteLn('Found color!');
MoveMouse(X, Y);
Wait(100);
HoldMouse(X, Y, True);
Wait(100);
ReleaseMouse(X, Y, True);
end;
end;

thanks

it gives me an error on this line


[Error] (14:26): Type mismatch at line 13

and is this how its suppose to look?



program Colour;
var
x, y : integer;
begin
IsKeyDown(119);
while not IsKeyDown(199) do
begin
if FindColor(x, y, 1781462, 604, 63, 1276, 776) then
begin
WriteLn('Found color!');
MoveMouse(X, Y);
Wait(100);
HoldMouse(X, Y, True);
Wait(100);
ReleaseMouse(X, Y, True);
end;
end;
end.

[Zyt3x]

You're using simba now? Then replace "True" in HoldMouse() and ReleaseMouse() with "mouse_Left"

[Dgby714]

program Colour;

var
x, y: integer;

begin
repeat
if (FindColor(x, y, 1781462, 604, 63, 1276, 776)) Then
begin
WriteLn('Found Colour!');
MoveMouse(x, y);
Wait(1000);
HoldMouse(x, y, mouse_Left);
Wait(100);
ReleaseMouse(x, y, mouse_Left);
end;
until (IsKeyDown(VK_F8));
end.

[omgbeans]

now it wont find the color anymore after running the script over and over

[Frement]

You could try FindColorTolerance?

[Dgby714]

program Colour;

var
I, x, y: integer;

begin
repeat
for I := 0 to 10 do
if (FindColorTolerance(x, y, 1781462, 604, 63, 1276, 776, I)) Then
begin
WriteLn('Found Colour!');
MoveMouse(x, y);
Wait(1000);
ClickMouse(x, y, mouse_Left);
end;
until (IsKeyDown(VK_F8));
end.

[Frement]

Not everything needs spoon feeding Dgby :(

[omgbeans]

Ok that seems to fix the issue of pressing the button as well as finding the color. What does the 1 through 10 mean just the tolerance level? Like 10 is more intensive?

[TomTuff]

Thanks for all the help. It still wont press down on the button though.

Then the game has an anti-cheat engine. Have fun.

[omgbeans]

I dont think it has anti cheat.

[TomTuff]

Then try this

program Colour;
{$i SRL\SRL.scar}

var
I, x, y: integer;

begin
repeat
for I := 0 to 10 do
if (FindColorTolerance(x, y, 1781462, 604, 63, 1276, 776, I)) Then
begin
Mouse(x, y, 0, 0, True);
Break;
end;
until (IsKeyDown(VK_F8));
end.

[Daniel]

Why are you telling him to download and use SRL when there is absolutely no need, as it will just make it take longer to compile?

[Zyt3x]

And why are you guys looping through tolerance? Just do tolerance 10

[tom99]

Is the button on the same position all the time ? do you want to hit it once it apear ?