SRL Archive - Outdated / Broken

[Project 06] Auto flax picker + banker!


rj

2013-01-24 16:38:19

/ 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:

program WalkToBank;
{$I srl/srl.simba}
var
DTM_1,DTM_2,DTM_3,DTM_4,DTM_5,DTM_6,DTM_7,DTM_8,DTM_9,DTM_10,DTM_11,DTM_12:integer;
begin
MouseSPeed := 15;
DTM_1 := DTMFromString('mbQAAAHicY2VgYOhkYmDoBeJGIJ4AxVFA8TAgjgPiGCD2AeKGhZoMxfM1GSpmqIPp3GkqDDxAcXTMiAWDAQDzwwrc');
// c
DTM_2 := DTMFromString('mbQAAAHicY2VgYNjBxMAwEYj7gHgzEC8C4iigeCQQxwGxLxB7AnFYkwJDw0JNMAaxk1LWMvADxdExIxYMBgARtQsq');
// c

DTM_3 := DTMFromString('mbQAAAHicY2VgYJjBxMCwAognAfFMIE4H4gSgeDoQZwOxDxD7A3FYkwKDmi8fmAbhpJS1DPxAcXTMiAWDAQC7Zgnb');
// c
DTM_4 := DTMFromString('mbQAAAHicY2VgYKhnYmDoAeIaIE4E4jogLgGKZwNxLpRuAeKwJgUwjmxTYkhKWQtmYwOMWDAYAADGHAoS');
// c
DTM_5 := DTMFromString('mWAAAAHicY2FgYOhkYmCYDMStQNwOxPVAsW4gbgHifiAubVJgWLtoIUMNkE6rm8aADhjRMAgAACxUCfU=');
// c
DTM_6 := DTMFromString('mbQAAAHicY2VgYFjJxMCwFIr3A/ECII4EiqcDsT0QxwFxNBDnNSmAcTwQJ+VIM6xdtJCBHyiOjhmxYDAAACF/C2Q=');
// c
DTM_7 := DTMFromString('mWAAAAHicY2FgYFjKxMBQDMR7gXgyEOcBxYqBOAWIvYE4IUWFIa1uGkNpmDZDVLUsAz9QDBkzomEQAADrKAiP');
// c
DTM_8 := DTMFromString('mWAAAAHicY2FgYJjAxMAwE4iXAHEYEFcBxTqAuAiIC4E4u0CaIdZKgaE0TJshrW4aAz9QDBkzomEQAADfYQhy');
// c

DTM_9 := DTMFromString('mbQAAAHicY2VgYGhnYmCYBcThQNwCxFOBOBsongrECUBcDcR1QJzepMAQa6XAkFY3jSEPyuYHiqNjRiwYDADKGQob');

DTM_10 := DTMFromString('mQwAAAHicY2ZgYGhlYmBoAeKZQFwI5HcBcTEQ5zUpMFQWFjDEWikw8AP5MMyIhIEAABYtBms=');

DTM_11 := DTMFromString('mWAAAAHicY2FgYChnYmBIBuLZQFwNxEVAsQAgjgPi6UBcWVjAsHbRQoZYKwWG0twcBn6gGDJmRMMgAAD9VwlD');

DTM_12 := DTMFromString('mQwAAAHicY2ZgYGhhYmCoA+JWIC4A8uuheEZ/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

2013-01-24 16:50:04

added banking and flax method make sure they work guys

statuss

2013-01-24 16:51:12

dont work acc goes out of feild

stace23

2013-01-24 16:59:55

It doesn't make it to the bank. It stops at the bottom corner of the building to the north.

[ATTACH=CONFIG]18814[/ATTACH]

rj

2013-01-24 17:01:40

From: statuss
dont work acc goes out of feild


It is supposed to..

rj

2013-01-24 17:03:18

From: stace23
It doesn't make it to the bank. It stops at the bottom corner of the building to the north.

[ATTACH=CONFIG]18814[/ATTACH]


Is your compass like this?


rj

2013-01-24 17:08:46

Project abandoned, DTM's messed up I don't feel like remaking 12 DTM's on each relog

Pew

2013-01-24 17:50:28

From: rjj95
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

2013-01-24 17:54:19

From: Pew
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

2013-01-24 17:56:22

Huh?

rj

2013-01-24 18:07:06

it works sometimes.

Champion

2013-01-25 04:15:59

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

2013-01-25 11:20:07

Can you do a attachment for the script.

rj

2013-01-25 15:37:25

From: Rs06tester
Can you do a attachment for the script.


Do you not know how to copy and paste?

surreal

2013-02-03 02:45:00

It works for the server I play on, I just want it to repeat itself :/

verac2k11

2013-02-03 05:59:07

Already did one with klinnks ..Works flowless . Thanks to you and Danny :) p06 includes rock