• Log in or sign up for an account here: https://www.sythe.org/login

Auto Clicker

  • Thread starter Thread starter Christian_s4
  • Start date Start date
C

Christian_s4

Guest
I need someone to make an auto clicker for me. Please, something where I can just pick a color or something a cords where I can place and it will keep clicking that one spot.
 
This is a script i have, but after the first click, it stops clicking..
maybe someone viewing this can tell me how to keep it clicking?

program Color_Clicker;

var
color,color2, x, y : integer;
x1, x2, y1, y2 : integer;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;

procedure buttonclick(sender: TObject);
begin
pickcolor(color,x,y)
end;

procedure buttonclick2(sender: TObject);
begin
pickcolor(color2,x1,y1)
end;

procedure buttonclick3(sender: TObject);
begin
pickcolor(color2,x2,y2)
end;

procedure buttonclick4(sender: TObject);
begin
if(findcolor(x,y,color,x1,y1,x2,y2))then
Begin
Movemousesmooth(x,y)
wait(100+random(100))
clickmouse(x,y,true)
End;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 289;
frmDesign.Top := 126;
frmDesign.Width := 390;
frmDesign.Height := 225;
frmDesign.Caption := ':.:.: COLOR CLICKER {[RS2]} -=[BY AB]=- :.:.:';
frmDesign.Color := clNavy;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 114;
Label1.Top := 14;
Label1.Width := 116;
Label1.Height := 13;
Label1.Caption := 'You have set the color : ';
Label1.Font.Color := clWhite;
Label1.Font.Height := -11;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 237;
Label2.Top := 14;
Label2.Width := 32;
Label2.Height := 13;
Label2.Caption := inttostr(color);
Label2.Font.Color := clWhite;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 112;
Label3.Top := 52;
Label3.Width := 223;
Label3.Height := 13;
Label3.Caption := 'You have set the top right corner of the search ';
Label3.Font.Color := clWhite;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 112;
Label4.Top := 66;
Label4.Width := 39;
Label4.Height := 13;
Label4.Caption := 'area to :';
Label4.Font.Color := clWhite;
Label4.Font.Height := -11;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 160;
Label5.Top := 66;
Label5.Width := 32;
Label5.Height := 13;
Label5.Caption := Inttostr(x1)+', '+inttostr(y1);
Label5.Font.Color := clWhite;
Label5.Font.Height := -11;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 112;
Label6.Top := 96;
Label6.Width := 234;
Label6.Height := 13;
Label6.Caption := 'You have set the bottom left corner of the search ';
Label6.Font.Color := clWhite;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 112;
Label7.Top := 111;
Label7.Width := 39;
Label7.Height := 13;
Label7.Caption := 'area to :';
Label7.Font.Color := clWhite;
Label7.Font.Height := -11;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 160;
Label8.Top := 111;
Label8.Width := 32;
Label8.Height := 13;
Label8.Caption := Inttostr(x2)+', '+inttostr(y2);
Label8.Font.Color := clWhite;
Label8.Font.Height := -11;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [];
Label8.ParentFont := False;
Shape1 := TShape.Create(frmDesign);
Shape1.Parent := frmDesign;
Shape1.Left := 290;
Shape1.Top := 4;
Shape1.Width := 49;
Shape1.Height := 41;
Shape1.Shape := stCircle;
Shape2 := TShape.Create(frmDesign);
Shape2.Parent := frmDesign;
Shape2.Left := 298;
Shape2.Top := 13;
Shape2.Width := 16;
Shape2.Height := 15;
Shape2.Shape := stCircle;
Shape3 := TShape.Create(frmDesign);
Shape3.Parent := frmDesign;
Shape3.Left := 316;
Shape3.Top := 13;
Shape3.Width := 16;
Shape3.Height := 15;
Shape3.Shape := stCircle;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 17;
Button1.Top := 9;
Button1.Width := 91;
Button1.Height := 25;
Button1.Caption := 'Set Color';
Button1.Default := True;
Button1.TabOrder := 8;
Button2 := TButton.Create(frmDesign);
Button2.OnClick:= @buttonclick2;
Button2.Parent := frmDesign;
Button2.Left := 17;
Button2.Top := 53;
Button2.Width := 91;
Button2.Height := 25;
Button2.Caption := 'Set Top Left ';
Button2.Default := True;
Button2.TabOrder := 9;
Button3 := TButton.Create(frmDesign);
Button3.OnClick:= @buttonclick3;
Button3.Parent := frmDesign;
Button3.Left := 17;
Button3.Top := 98;
Button3.Width := 91;
Button3.Height := 25;
Button3.Caption := 'Set Bottom Right';
Button3.Default := True;
Button3.TabOrder := 10;
Button4 := TButton.Create(frmDesign);
Button4.OnClick:= @buttonclick4;
Button4.Parent := frmDesign;
Button4.Left := 100;
Button4.Top := 136;
Button4.Width := 143;
Button4.Height := 25;
Button4.Caption := 'START COLOR CLICKING';
Button4.Default := True;
Button4.TabOrder := 11;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

begin
SafeInitForm;
SafeShowFormModal;
end.
 
i added a repeat at the bottom so there yah go


Code: 
program Color_Clicker;

var
color,color2, x, y : integer;
x1, x2, y1, y2 : integer;
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Shape1 : TShape;
Shape2 : TShape;
Shape3 : TShape;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;

procedure buttonclick(sender: TObject);
begin
pickcolor(color,x,y)
end;

procedure buttonclick2(sender: TObject);
begin
pickcolor(color2,x1,y1)
end;

procedure buttonclick3(sender: TObject);
begin
pickcolor(color2,x2,y2)
end;

procedure buttonclick4(sender: TObject);
begin
if(findcolor(x,y,color,x1,y1,x2,y2))then
Begin
Movemousesmooth(x,y)
wait(100+random(100))
clickmouse(x,y,true)
End;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 289;
frmDesign.Top := 126;
frmDesign.Width := 390;
frmDesign.Height := 225;
frmDesign.Caption := ':.:.: COLOR CLICKER {[RS2]} -=[BY AB]=- :.:.:';
frmDesign.Color := clNavy;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 114;
Label1.Top := 14;
Label1.Width := 116;
Label1.Height := 13;
Label1.Caption := 'You have set the color : ';
Label1.Font.Color := clWhite;
Label1.Font.Height := -11;
Label1.Font.Name := 'MS Sans Serif';
Label1.Font.Style := [];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 237;
Label2.Top := 14;
Label2.Width := 32;
Label2.Height := 13;
Label2.Caption := inttostr(color);
Label2.Font.Color := clWhite;
Label2.Font.Height := -11;
Label2.Font.Name := 'MS Sans Serif';
Label2.Font.Style := [];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 112;
Label3.Top := 52;
Label3.Width := 223;
Label3.Height := 13;
Label3.Caption := 'You have set the top right corner of the search ';
Label3.Font.Color := clWhite;
Label3.Font.Height := -11;
Label3.Font.Name := 'MS Sans Serif';
Label3.Font.Style := [];
Label3.ParentFont := False;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 112;
Label4.Top := 66;
Label4.Width := 39;
Label4.Height := 13;
Label4.Caption := 'area to :';
Label4.Font.Color := clWhite;
Label4.Font.Height := -11;
Label4.Font.Name := 'MS Sans Serif';
Label4.Font.Style := [];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 160;
Label5.Top := 66;
Label5.Width := 32;
Label5.Height := 13;
Label5.Caption := Inttostr(x1)+', '+inttostr(y1);
Label5.Font.Color := clWhite;
Label5.Font.Height := -11;
Label5.Font.Name := 'MS Sans Serif';
Label5.Font.Style := [];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 112;
Label6.Top := 96;
Label6.Width := 234;
Label6.Height := 13;
Label6.Caption := 'You have set the bottom left corner of the search ';
Label6.Font.Color := clWhite;
Label6.Font.Height := -11;
Label6.Font.Name := 'MS Sans Serif';
Label6.Font.Style := [];
Label6.ParentFont := False;
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 112;
Label7.Top := 111;
Label7.Width := 39;
Label7.Height := 13;
Label7.Caption := 'area to :';
Label7.Font.Color := clWhite;
Label7.Font.Height := -11;
Label7.Font.Name := 'MS Sans Serif';
Label7.Font.Style := [];
Label7.ParentFont := False;
Label8 := TLabel.Create(frmDesign);
Label8.Parent := frmDesign;
Label8.Left := 160;
Label8.Top := 111;
Label8.Width := 32;
Label8.Height := 13;
Label8.Caption := Inttostr(x2)+', '+inttostr(y2);
Label8.Font.Color := clWhite;
Label8.Font.Height := -11;
Label8.Font.Name := 'MS Sans Serif';
Label8.Font.Style := [];
Label8.ParentFont := False;
Shape1 := TShape.Create(frmDesign);
Shape1.Parent := frmDesign;
Shape1.Left := 290;
Shape1.Top := 4;
Shape1.Width := 49;
Shape1.Height := 41;
Shape1.Shape := stCircle;
Shape2 := TShape.Create(frmDesign);
Shape2.Parent := frmDesign;
Shape2.Left := 298;
Shape2.Top := 13;
Shape2.Width := 16;
Shape2.Height := 15;
Shape2.Shape := stCircle;
Shape3 := TShape.Create(frmDesign);
Shape3.Parent := frmDesign;
Shape3.Left := 316;
Shape3.Top := 13;
Shape3.Width := 16;
Shape3.Height := 15;
Shape3.Shape := stCircle;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 17;
Button1.Top := 9;
Button1.Width := 91;
Button1.Height := 25;
Button1.Caption := 'Set Color';
Button1.Default := True;
Button1.TabOrder := 8;
Button2 := TButton.Create(frmDesign);
Button2.OnClick:= @buttonclick2;
Button2.Parent := frmDesign;
Button2.Left := 17;
Button2.Top := 53;
Button2.Width := 91;
Button2.Height := 25;
Button2.Caption := 'Set Top Left ';
Button2.Default := True;
Button2.TabOrder := 9;
Button3 := TButton.Create(frmDesign);
Button3.OnClick:= @buttonclick3;
Button3.Parent := frmDesign;
Button3.Left := 17;
Button3.Top := 98;
Button3.Width := 91;
Button3.Height := 25;
Button3.Caption := 'Set Bottom Right';
Button3.Default := True;
Button3.TabOrder := 10;
Button4 := TButton.Create(frmDesign);
Button4.OnClick:= @buttonclick4;
Button4.Parent := frmDesign;
Button4.Left := 100;
Button4.Top := 136;
Button4.Width := 143;
Button4.Height := 25;
Button4.Caption := 'START COLOR CLICKING';
Button4.Default := True;
Button4.TabOrder := 11;
end;

procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;

begin
repeat
SafeInitForm;
SafeShowFormModal;
until(false)
end.
 
or if u want to click in 1 place, u really don't need a color clicker...
here is a very simple code i made...also im kinda bad at scar so tell me if it doesnt work
Code: 
program AutoClicker;

var
i: Integer;

begin
 i:= 0;
repeat
 i:= i + 1;
 clickmouse(x,y,true);//coordinates
 until(i >= 25);//how many times you click
end.
 
i think u can search auto clicker on google and it should work on games
 
You must log in or register to reply here.

Similar threads

O
 
Need Script For Auto Clicker Or Auto Fighter!!
Replies
1
Views
7K
camdo2
C
M
 
i need an easy auto cliker that works
Replies
0
Views
534
minerpro90
M
Death_ranger
Exclamation
Need a auto-clicker that clicks colors!!!!
Replies
0
Views
417
Death_ranger
Death_ranger
U
Exclamation
need auto eater
Replies
0
Views
586
UndeadMyth
U
T
 
Need exe auto clicker code
Replies
0
Views
655
Trainer311
T
Runescape Gamblingrunescape gambling
Back
Top