You are viewing our Forum Archives. To view or take place in current topics click here.
Code for running auto buyer scripts
Posted:
Code for running auto buyer scriptsPosted:
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Hello i got given some code that i though may help you lot out....
it a autobuyer script program that you can change to make sure you can get any player you want
you will need to learn how to use it but its very simple to understand once you got the hang of it
you will also need a program to run it (i use SCAR Divi but some versions and other programs have virus' watch out!!!!)
Please give me some credit for this if you are sharing (Also credit to Skank who 'apparently' made it)
CODE!!!!
program AutoClicker;
// Need To Fix Yellow Tab Not Clicking
var
x, y, a : Integer;
begin
a := 0;
// Time Loops Here
while (a < 1000000000) do
begin
a := a + 1;
// Search Market For Players
if FindColor(x, y, 1679715, 722, 588, 826, 618) then
begin
wait(40)
ClickMouse(742, 602, true);
end else
begin
// Press Ok After Search
if FindColor(x, y, 1679971, 798, 474, 876, 503) then
begin
wait(40)
ClickMouse(809, 491, true);
end else
begin
// Clicks On Player Rare
if FindColor(x, y, 159897, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Buys Player Both Rare And Non Rare
if FindColor(x, y, 1679971, 844, 386, 1002, 421) then
begin
wait(40)
ClickMouse(873, 401, true);
end else
begin
// Buys Player Non Rare
if FindColor(x, y, 5157075, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Sends Player To Trade Pile
if FindColor(x, y, 1161443, 678, 377, 739, 405) then
begin
wait(40)
ClickMouse(590, 357, true);
end else
begin
// Goes Back To Search. Try To Make This Work Not On Red Line
if FindColor(x, y, 855549, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Fix To The Expired Items Problem. Clicks Back To Search
if FindColor(x, y, 1381883, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Yellow Tab Fix Ok
if FindColor(x, y, 3395067, 924, 474, 1007, 506) then
begin
wait(40)
ClickMouse(935, 491, true);
end else
begin
// Yellow Tab Fix Search
if FindColor(x, y, 3395067, 849, 588, 955, 617) then
begin
wait(40)
ClickMouse(907, 605, true);
// both yellow tabs not fixed
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.m New;
begin
end.
Last edited by xX_iTz_T0M_Xx ; edited 1 time in total
it a autobuyer script program that you can change to make sure you can get any player you want
you will need to learn how to use it but its very simple to understand once you got the hang of it
you will also need a program to run it (i use SCAR Divi but some versions and other programs have virus' watch out!!!!)
Please give me some credit for this if you are sharing (Also credit to Skank who 'apparently' made it)
CODE!!!!
program AutoClicker;
// Need To Fix Yellow Tab Not Clicking
var
x, y, a : Integer;
begin
a := 0;
// Time Loops Here
while (a < 1000000000) do
begin
a := a + 1;
// Search Market For Players
if FindColor(x, y, 1679715, 722, 588, 826, 618) then
begin
wait(40)
ClickMouse(742, 602, true);
end else
begin
// Press Ok After Search
if FindColor(x, y, 1679971, 798, 474, 876, 503) then
begin
wait(40)
ClickMouse(809, 491, true);
end else
begin
// Clicks On Player Rare
if FindColor(x, y, 159897, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Buys Player Both Rare And Non Rare
if FindColor(x, y, 1679971, 844, 386, 1002, 421) then
begin
wait(40)
ClickMouse(873, 401, true);
end else
begin
// Buys Player Non Rare
if FindColor(x, y, 5157075, 347, 466, 435, 654) then
begin
wait(40)
ClickMouse(364, 609, true);
end else
begin
// Sends Player To Trade Pile
if FindColor(x, y, 1161443, 678, 377, 739, 405) then
begin
wait(40)
ClickMouse(590, 357, true);
end else
begin
// Goes Back To Search. Try To Make This Work Not On Red Line
if FindColor(x, y, 855549, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Fix To The Expired Items Problem. Clicks Back To Search
if FindColor(x, y, 1381883, 680, 246, 826, 274) then
begin
wait(40)
ClickMouse(613, 453, true);
end else
begin
// Yellow Tab Fix Ok
if FindColor(x, y, 3395067, 924, 474, 1007, 506) then
begin
wait(40)
ClickMouse(935, 491, true);
end else
begin
// Yellow Tab Fix Search
if FindColor(x, y, 3395067, 849, 588, 955, 617) then
begin
wait(40)
ClickMouse(907, 605, true);
// both yellow tabs not fixed
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end.m New;
begin
end.
Last edited by xX_iTz_T0M_Xx ; edited 1 time in total
#2. Posted:
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Will make a tutorial soon, Skank gave me the code by the way
- 0useful
- 0not useful
#3. Posted:
Status: Offline
Joined: Oct 19, 201212Year Member
Posts: 632
Reputation Power: 25
xX_iTz_T0M_Xx wrote Will make a tutorial soon, Skank gave me the code by the way
you manage you set it up alright man?
- 0useful
- 0not useful
#4. Posted:
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Status: Offline
Joined: Jan 29, 201113Year Member
Posts: 676
Reputation Power: 43
Skank wrotexX_iTz_T0M_Xx wrote Will make a tutorial soon, Skank gave me the code by the way
you manage you set it up alright man?
yerp, just after i removed the virus you sent me
- 1useful
- 0not useful
#5. Posted:
Status: Offline
Joined: Nov 03, 201212Year Member
Posts: 263
Reputation Power: 10
Status: Offline
Joined: Nov 03, 201212Year Member
Posts: 263
Reputation Power: 10
tom please reply to the pm i sent you
- 0useful
- 0not useful
You are viewing our Forum Archives. To view or take place in current topics click here.