PDA

View Full Version : [Project 06] Auto flax picker + banker!



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.

rj
01-24-2013, 09:50 PM
added banking and flax method make sure they work guys

statuss
01-24-2013, 09:51 PM
dont work acc goes out of feild

stace23
01-24-2013, 09:59 PM
It doesn't make it to the bank. It stops at the bottom corner of the building to the north.

18814

rj
01-24-2013, 10:01 PM
dont work acc goes out of feild

It is supposed to..

rj
01-24-2013, 10:03 PM
It doesn't make it to the bank. It stops at the bottom corner of the building to the north.

18814

Is your compass like this?

http://i49.tinypic.com/28luq0y.png

rj
01-24-2013, 10:08 PM
Project abandoned, DTM's messed up I don't feel like remaking 12 DTM's on each relog

Pew
01-24-2013, 10:50 PM
Project abandoned, DTM's messed up I don't feel like remaking 12 DTM's on each relog

Are you sure they messed up? If you saw them working then they aren't broken. Like I was trying to explain before the minimap has 2 or two three different colour schemes, a tiny bit lighter/darker.

In the script I'm working on it won't find the first point sometimes. I relaunch the client and try again, repeating until it does then all my points work fine.

How reliable is your banking script? Can I steal it for my script, giving credit obviously?

rj
01-24-2013, 10:54 PM
Are you sure they messed up? If you saw them working then they aren't broken. Like I was trying to explain before the minimap has 2 or two three different colour schemes, a tiny bit lighter/darker.

In the script I'm working on it won't find the first point sometimes. I relaunch the client and try again, repeating until it does then all my points work fine.

How reliable is your banking script? Can I steal it for my script, giving credit obviously?

yea, worked a couple times on logout

Pew
01-24-2013, 10:56 PM
Huh?

rj
01-24-2013, 11:07 PM
it works sometimes.

Champion
01-25-2013, 09:15 AM
Im having problems with these bots when i try to start it it says at the bottom of the box "Exception in Script: Unable to find file 'srl/srl.simba' used from '' "

Rs06tester
01-25-2013, 04:20 PM
Can you do a attachment for the script.

rj
01-25-2013, 08:37 PM
Can you do a attachment for the script.

Do you not know how to copy and paste?

surreal
02-03-2013, 07:45 AM
It works for the server I play on, I just want it to repeat itself :/

verac2k11
02-03-2013, 10:59 AM
Already did one with klinnks ..Works flowless . Thanks to you and Danny :) p06 includes rock