rj
01-24-2013, 09:38 PM
/ project abandoned walking method to unreliable.
Anyone is welcome to pick this project back up but give me credits if you use code below.
Hello, now presenting AutoFlax picker+ banker. Currently the script is in beta mode, but I NEED YOU to test it.
Instructions:
1) Start with North facing down.
2) Start in flax feilds.
3) Hit start
4) Report any bugs here.
Right now I have each of the seperate parts of the script for you to test!
WALK TO BANK.
Compass most look like this:
http://i49.tinypic.com/28luq0y.png
program WalkToBank;
{$I srl/srl.simba}
var
DTM_1,DTM_2,DTM_3,DTM_4,DTM_5,DTM_6,DTM_7,DTM_8,DT M_9,DTM_10,DTM_11,DTM_12:integer;
begin
MouseSPeed := 15;
DTM_1 := DTMFromString('mbQAAAHicY2VgYOhkYmDoBeJGIJ4AxVFA8T AgjgPiGCD2AeKGhZoMxfM1GSpmqIPp3GkqDDxAcXTMiAWDAQDz wwrc');
// c
DTM_2 := DTMFromString('mbQAAAHicY2VgYNjBxMAwEYj7gHgzEC8C4i igeCQQxwGxLxB7AnFYkwJDw0JNMAaxk1LWMvADxdExIxYMBgAR tQsq');
// c
DTM_3 := DTMFromString('mbQAAAHicY2VgYJjBxMCwAognAfFMIE4H4g SgeDoQZwOxDxD7A3FYkwKDmi8fmAbhpJS1DPxAcXTMiAWDAQC7 Zgnb');
// c
DTM_4 := DTMFromString('mbQAAAHicY2VgYKhnYmDoAeIaIE4E4jogLg GKZwNxLpRuAeKwJgUwjmxTYkhKWQtmYwOMWDAYAADGHAoS');
// c
DTM_5 := DTMFromString('mWAAAAHicY2FgYOhkYmCYDMStQNwOxPVAsW 4gbgHifiAubVJgWLtoIUMNkE6rm8aADhjRMAgAACxUCfU=');
// c
DTM_6 := DTMFromString('mbQAAAHicY2VgYFjJxMCwFIr3A/ECII4EiqcDsT0QxwFxNBDnNSmAcTwQJ+VIM6xdtJCBHyiOjhmx YDAAACF/C2Q=');
// c
DTM_7 := DTMFromString('mWAAAAHicY2FgYFjKxMBQDMR7gXgyEOcBxY qBOAWIvYE4IUWFIa1uGkNpmDZDVLUsAz9QDBkzomEQAADrKAiP ');
// c
DTM_8 := DTMFromString('mWAAAAHicY2FgYJjAxMAwE4iXAHEYEFcBxT qAuAiIC4E4u0CaIdZKgaE0TJshrW4aAz9QDBkzomEQAADfYQhy ');
// c
DTM_9 := DTMFromString('mbQAAAHicY2VgYGhnYmCYBcThQNwCxFOBOB songrECUBcDcR1QJzepMAQa6XAkFY3jSEPyuYHiqNjRiwYDADK GQob');
DTM_10 := DTMFromString('mQwAAAHicY2ZgYGhlYmBoAeKZQFwI5HcBcT EQ5zUpMFQWFjDEWikw8AP5MMyIhIEAABYtBms=');
DTM_11 := DTMFromString('mWAAAAHicY2FgYChnYmBIBuLZQFwNxEVAsQ AgjgPi6UBcWVjAsHbRQoZYKwWG0twcBn6gGDJmRMMgAAD9VwlD ');
DTM_12 := DTMFromString('mQwAAAHicY2ZgYGhhYmCoA+JWIC4A8uuheE Z/L0Npbg4Y8wP5MMyIhIEAADgHB38=');
// c
ClickDTMRotatedIn(DTM_1, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_2, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_3, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_4, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_5, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_6, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_7, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_8, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_9, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_10, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_11, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1400);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_12, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1400);
while (IsMoving) do
wait(100);
FreeDTM(DTM_1);
FreeDTM(DTM_2);
FreeDTM(DTM_3);
FreeDTM(DTM_4);
FreeDTM(DTM_5);
FreeDTM(DTM_6);
FreeDTM(DTM_7);
FreeDTM(DTM_8);
FreeDTM(DTM_9);
FreeDTM(DTM_10);
FreeDTM(DTM_11);
FreeDTM(DTM_12);
end.
{
Genie info
Best color - 6032650
Tolerance - 5
Hue mod: 0.13
Sat mod: 0.64
CTS:2
}
CLICK BANK:
program ClickSpot;
{$i srl/srl.simba}
Procedure FindBankTPA;
var
tmpCTS, l, r:Integer;
BankTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.19, 0.91);
if FindColorsTolerance(BankTPA, 3954018, 8, 25, 518, 359, 3) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := High(BankTPA)
wait(randomrange(60, 100));
mmouse((BankTPA[r].x), (BankTPA[r].y), 2, 2);
wait(randomrange(100, 150));
clickmouse2(mouse_left);
wait(randomrange(2000, 2500));
end;
end;
begin
FindBankPA;
end.
PICK FLAX
Program FlaxPicker;
{$i srl/srl.simba}
Procedure FindFlaxTPA;
var
tmpCTS, l, r:Integer;
FlaxTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.02, 0.89);
if FindColorsTolerance(FlaxTPA, 13946995, 8, 7, 509, 335, 11) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := Low(FlaxTPA)
wait(randomrange(60, 100));
mmouse((FlaxTPA[r].x), (FlaxTPA[r].y), 2, 2);
clickmouse2(mouse_left);
wait(randomrange(600, 800));
while (IsMoving) do
wait(randomrange(100, 250));
end;
end;
begin
FindFlaxTPA;
end.
Begin
end.
Anyone is welcome to pick this project back up but give me credits if you use code below.
Hello, now presenting AutoFlax picker+ banker. Currently the script is in beta mode, but I NEED YOU to test it.
Instructions:
1) Start with North facing down.
2) Start in flax feilds.
3) Hit start
4) Report any bugs here.
Right now I have each of the seperate parts of the script for you to test!
WALK TO BANK.
Compass most look like this:
http://i49.tinypic.com/28luq0y.png
program WalkToBank;
{$I srl/srl.simba}
var
DTM_1,DTM_2,DTM_3,DTM_4,DTM_5,DTM_6,DTM_7,DTM_8,DT M_9,DTM_10,DTM_11,DTM_12:integer;
begin
MouseSPeed := 15;
DTM_1 := DTMFromString('mbQAAAHicY2VgYOhkYmDoBeJGIJ4AxVFA8T AgjgPiGCD2AeKGhZoMxfM1GSpmqIPp3GkqDDxAcXTMiAWDAQDz wwrc');
// c
DTM_2 := DTMFromString('mbQAAAHicY2VgYNjBxMAwEYj7gHgzEC8C4i igeCQQxwGxLxB7AnFYkwJDw0JNMAaxk1LWMvADxdExIxYMBgAR tQsq');
// c
DTM_3 := DTMFromString('mbQAAAHicY2VgYJjBxMCwAognAfFMIE4H4g SgeDoQZwOxDxD7A3FYkwKDmi8fmAbhpJS1DPxAcXTMiAWDAQC7 Zgnb');
// c
DTM_4 := DTMFromString('mbQAAAHicY2VgYKhnYmDoAeIaIE4E4jogLg GKZwNxLpRuAeKwJgUwjmxTYkhKWQtmYwOMWDAYAADGHAoS');
// c
DTM_5 := DTMFromString('mWAAAAHicY2FgYOhkYmCYDMStQNwOxPVAsW 4gbgHifiAubVJgWLtoIUMNkE6rm8aADhjRMAgAACxUCfU=');
// c
DTM_6 := DTMFromString('mbQAAAHicY2VgYFjJxMCwFIr3A/ECII4EiqcDsT0QxwFxNBDnNSmAcTwQJ+VIM6xdtJCBHyiOjhmx YDAAACF/C2Q=');
// c
DTM_7 := DTMFromString('mWAAAAHicY2FgYFjKxMBQDMR7gXgyEOcBxY qBOAWIvYE4IUWFIa1uGkNpmDZDVLUsAz9QDBkzomEQAADrKAiP ');
// c
DTM_8 := DTMFromString('mWAAAAHicY2FgYJjAxMAwE4iXAHEYEFcBxT qAuAiIC4E4u0CaIdZKgaE0TJshrW4aAz9QDBkzomEQAADfYQhy ');
// c
DTM_9 := DTMFromString('mbQAAAHicY2VgYGhnYmCYBcThQNwCxFOBOB songrECUBcDcR1QJzepMAQa6XAkFY3jSEPyuYHiqNjRiwYDADK GQob');
DTM_10 := DTMFromString('mQwAAAHicY2ZgYGhlYmBoAeKZQFwI5HcBcT EQ5zUpMFQWFjDEWikw8AP5MMyIhIEAABYtBms=');
DTM_11 := DTMFromString('mWAAAAHicY2FgYChnYmBIBuLZQFwNxEVAsQ AgjgPi6UBcWVjAsHbRQoZYKwWG0twcBn6gGDJmRMMgAAD9VwlD ');
DTM_12 := DTMFromString('mQwAAAHicY2ZgYGhhYmCoA+JWIC4A8uuheE Z/L0Npbg4Y8wP5MMyIhIEAADgHB38=');
// c
ClickDTMRotatedIn(DTM_1, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_2, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_3, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_4, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_5, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_6, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_7, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_8, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_9, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_10, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_11, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1400);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_12, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1400);
while (IsMoving) do
wait(100);
FreeDTM(DTM_1);
FreeDTM(DTM_2);
FreeDTM(DTM_3);
FreeDTM(DTM_4);
FreeDTM(DTM_5);
FreeDTM(DTM_6);
FreeDTM(DTM_7);
FreeDTM(DTM_8);
FreeDTM(DTM_9);
FreeDTM(DTM_10);
FreeDTM(DTM_11);
FreeDTM(DTM_12);
end.
{
Genie info
Best color - 6032650
Tolerance - 5
Hue mod: 0.13
Sat mod: 0.64
CTS:2
}
CLICK BANK:
program ClickSpot;
{$i srl/srl.simba}
Procedure FindBankTPA;
var
tmpCTS, l, r:Integer;
BankTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.19, 0.91);
if FindColorsTolerance(BankTPA, 3954018, 8, 25, 518, 359, 3) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := High(BankTPA)
wait(randomrange(60, 100));
mmouse((BankTPA[r].x), (BankTPA[r].y), 2, 2);
wait(randomrange(100, 150));
clickmouse2(mouse_left);
wait(randomrange(2000, 2500));
end;
end;
begin
FindBankPA;
end.
PICK FLAX
Program FlaxPicker;
{$i srl/srl.simba}
Procedure FindFlaxTPA;
var
tmpCTS, l, r:Integer;
FlaxTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.02, 0.89);
if FindColorsTolerance(FlaxTPA, 13946995, 8, 7, 509, 335, 11) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := Low(FlaxTPA)
wait(randomrange(60, 100));
mmouse((FlaxTPA[r].x), (FlaxTPA[r].y), 2, 2);
clickmouse2(mouse_left);
wait(randomrange(600, 800));
while (IsMoving) do
wait(randomrange(100, 250));
end;
end;
begin
FindFlaxTPA;
end.
Begin
end.