Adblock breaks this site

Auto Clicker

Discussion in 'Script Requests' started by Christian_s4, Jan 25, 2008.

Thread Tools

Thread Tools

  1. Christian_s4

    Christian_s4 Guest

    Referrals:
    0
    Auto Clicker
    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.
     
    Christian_s4, Jan 25, 2008
    #1
  2. bullfroggy5

    bullfroggy5 Guest

    Referrals:
    0
    Auto Clicker
    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.
     
    bullfroggy5, Jan 26, 2008
    #2
  3. kill3r272

    kill3r272 Guest

    Referrals:
    0
    Auto Clicker
    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.
     
    kill3r272, Jan 26, 2008
    #3
  4. pee on me

    pee on me Active Member

    Joined:
    Aug 15, 2007
    Posts:
    221
    Referrals:
    0
    Sythe Gold:
    0
    Auto Clicker
    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.
     
    pee on me, Feb 15, 2008
    #4
  5. mackzeeknife

    mackzeeknife Member

    Joined:
    Feb 12, 2008
    Posts:
    68
    Referrals:
    0
    Sythe Gold:
    0
    Auto Clicker
    i think u can search auto clicker on google and it should work on games
     
    mackzeeknife, Feb 15, 2008
    #5
< i need an easy auto cliker that works | I need a script that makes the screen move >


 
 
Adblock breaks this site