Help little Aimbot

[LabIndustries]

Hi all.

I am new to this forum, and just read the Ultimate beginners guide and watched some basic scrips.

I came up with a own script:

program Aimbot;

Var
i,x,y: Integer;

const
HitColor=;

Procedure FindColorShoot;
begin
i:= 0;
repeat
i:= i + 1;
if(FindColor(x,y,HitColor,0,0,0,0)) then
begin
ClickMouse(x,y,true);
wait(10);
end;
until(not(FindColor(x,y,Hitcolor,0,0,0,0));
end;


begin
if (IsFKeyDown(8)); then
FindColorShoot;
until (IsFKeyDown(9))

end.

Explanation:

This was my thought:

If I hit F8, it will begin the procedure 'FindColorShoot'.
This procedure will constantly search for a specific color {Note: I need to enter the color and the coordianates}, and if it founds it, It iwll shoot. If it doesnt found it, it will keep searching.

If I hit F9 then, it will stop the FindColorShoot procedure.

I want to know if this is a right code, or is there something wrong?

Although, I dont know if this works? I cant test it in practic atm.


Thanks for the help

 

[-------owned-------]

For the "until" to work, you need to add the repeat statement.

 

[LabIndustries]

This is my code now:

program Aimbot;

Var
i,x,y: Integer;

const
HitColor=1776880;

Procedure FindColorShoot;
begin
i:= 0;
repeat
i:= i + 1;
if(FindColor(x,y,HitColor,0,0,1024,768)) then
begin
MoveMouse(x,y);
wait(10);
end;
until(not(FindColor(x,y,Hitcolor,0,0,1024,768)));
end;


begin
Repeat
if (IsFKeyDown(8)) then
FindColorShoot;
until (IsFKeyDown(9))

end.

Everything works, EXCEPT the until (IsFKeyDown(9)).

The Procedure doesnt stop.

So how can I stop a procedure with a key?
And how to use the keydown command? (So exept a 1, or a Z)

 

[Town]

Add a wait into your main loop and it should work correctly.