Adblock breaks this site

Auto Clicker

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

  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.
     
  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.
     
  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.
    
     
  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.
    
     
  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
     
< i need an easy auto cliker that works | I need a script that makes the screen move >


 
 
Adblock breaks this site