Where in the script i put in the shit i need to dl to?
Where in the script i put in the shit i need to dl to?
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
okidoki let me try :9
When i run the script i get the error:
Include file C:\Users\sondre\Documents\SCAR 3.15.1\includes\SRL\SRL\Misc\Reflection.scar does not exist.
Failed when compiling
When i read a little on the forum here ppl tell me to dl reflection.. I find the reflection link:
http://www.villavu.com/forum/showthr...520#post433520
After that like should i make a new scar save the script in that and save it in srl/srl/misc/ and save it as reflection???
When i read in the reflection debugger section i see that n3ss3s wrote:
No, if you would read the code you would know that all you have to do is to press play.
With SMART 3 1/3 open, and logged in. With the needed reflection scar files, which are the thing you need to ask from widget.
Now call me dumb or what but i cant start the smart with the script i get the error.. so i cant do that..??
When i try to save it in srl/srl/misc/reflection.scar i get an error of like this when it start smart:
It popus up a error message and it says: Out of memory.. ?
Oki now i need help to understand this shit, im from norway so trying to learn me scar and smart in english is very hard :P because we dont got english as mother language :P
So what i do?
add me on msn if u want: slakan_91@hotmail.com
read this tutorial on how to setup reflection
http://www.villavu.com/forum/showthread.php?t=33416
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Sigh... My statement about only hit run works with the old fashion, not the LoadHooks / SetupReflection and shit.
All I have is a reflection.scar that includes hooks.scar, so just follow the tut, might be easier for ya...
oki now iv done that, lets see it it works![]()
hmm still go the same error:
Include file C:\Users\sondre\Documents\SCAR 3.15.1\includes\SRL\SRL\Misc\Reflection.scar does not exist.
Failed when compiling
and i even followed the tutorial![]()
You need to change the {.include SRL/SRL/Misc/Reflection.scar} toMy statement about only hit run works with the old fashion, not the LoadHooks / SetupReflection and shit.
{.include SRL/SRL/Reflection/Reflection.scar}, I think.
and after SetupSRL try LoadHooks; and if doesn't work, then SetupReflection.
replace {.include srl/srl/misc/reflection.scar}
with {.include srl/sr/reflection/reflection.scar}
and after SetupSrl; put LoadHooks;
~shut
EDIT: damn n3ss3s beat me![]()
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Slakan, if the code in the pm doesn't work after the including change, make SetupReflection LoadHooks.
well i got it 2 work, but it wont get flax, it just stands there hehe xd omg
All it does is take on run and thats it..
here is what scar says:
Successfully compiled (1849 ms)
File access error
SRL Compiled in 5897 msec
Welcome to Runescape.
******
Creating the NickTPA.
wow, that is some sweet code!
its amazing about reflection... it makes codes < 600 lines
SCAR Code:Writeln('Dodged a Divide By Zero. YAY! The universe will continue on!');
ok now i get a little longer that just standing ther xD
Player loc: Lost
0 / 33; Flax: 0
Dodged a Divide By Zero.
NextPlayer
Successfully executed
It just lol lost player logg off. and it is in seere bank the whole time xD
are you sure you have the latest hooks and you have put LoadHooks; after SetupSrl;
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Like somone tel me how i setup the hook :P
help show me in forum like last lines
this is what it is ment to look like at the end of the script
hope this helpsSCAR Code:begin
SmartSetup('world137', True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
SetupSRL;
LoadHooks;
LoadDTMs;
LoadPath;
DeclarePlayers;
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
hmm nop doesnt help me xD i dont understand it
Here is the script i got, modified at the end of it so it will start, but not pick flax
Can somone here put in that u said hooks;.. etc in it?
SCAR Code:program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Reflection/Reflection.scar}
Const
LoadsPerLog = 3;
Var
dtmFlax, FC, RoundTime, RoundMarker, Counter: Integer;
Var
FlaxPath: TPointArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;
Procedure LoadDTMs;
Begin
dtmFlax := DTMFromString('78DA637466626078C98002B8E3F9182481342' +
'310FF07024633A09AC70C6880118904D2B64035F708A801D9758B' +
'801A7FA09A3B04D47803D5BC405511BE732FDCCD6035EE40350F5' +
'1D544ECDE8FAAC616534DF4A163A86ACC816A9EA2AA893F7D1E45' +
'0D00693916D2');
End;
Procedure LoadPath;
Begin
SetArrayLength(FlaxPath, 7);
FlaxPath[0].x := 2726;
FlaxPath[0].y := 3492;
FlaxPath[1].x := 2726;
FlaxPath[1].y := 3484;
FlaxPath[2].x := 2727;
FlaxPath[2].y := 3473;
FlaxPath[3].x := 2727;
FlaxPath[3].y := 3463;
FlaxPath[4].x := 2729;
FlaxPath[4].y := 3453;
FlaxPath[5].x := 2734;
FlaxPath[5].y := 3443;
FlaxPath[6].x := 2740;
FlaxPath[6].y := 3443;
End;
Function n_FFlag(Dist: Integer): Boolean;
Var
FlagSafe: Integer;
Begin
FlagSafe := GetSystemTime;
While FlagDistance > Dist Do
If GetSystemTime - FlagSafe >= 20000 Then
Exit
Else
Wait(20);
Result := True;
End;
Function WalkTTile(TileX, TileY: Integer): Boolean;
Var
X, Y: Integer;
Begin
TileToMinimap(TileX, TileY, X, Y);
X := X - 2 + Random(4);
Y := Y - 2 + Random(4);
If InCircle(X, Y, MMCX, MMCY, 74) Then
Begin
MFNF(X, Y, 2, 2);
n_FFlag(8);
Result := True;
Wait(25);
End;
End;
Function WalkTo(Bank: Boolean): Boolean;
Var
I: Integer;
CS: String;
Begin
If GetMMLevels('run', CS) > 40 Then
SetRun(True);
If Bank Then
Begin
For I := High(FlaxPath)-1 DownTo 0 Do
Begin
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
End;
End Else
For I := 1 To High(FlaxPath) Do
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
Result := True;
End;
Function FindFlaxes: TPointArray;
Var
CTS: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Result, 15328935, MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
End;
Function ClickFlax: Boolean;
Var
TPA: TPointArray;
X, Y, Z: Integer;
Begin
TPA := FindFlaxes;
Result := IsUpText('lax');
While (z <= High(TPA)) and (Not(Result)) Do
Begin
MMouse(TPA[z].x, TPA[z].y, 2, 2);
Result := IsUpText('lax');
z := z + 1;
End;
If Result Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
If FlagPresent Then
Begin
Flag;
Wait(500 + Random(250));
End;
End;
End;
Function InBeeKeeper: Boolean;
Var
TPA: TPointArray;
B: TBox;
Begin
FindColorsTolerance(TPA, 0, 570, 35, 688, 129, 1);
B := GetTPABounds(TPA);
Result := GetArrayLength(TPA) = (B.x2 - B.x1) * (B.y2 - B.y1) + 200;
End;
Procedure PickingLoop;
Var
FlaxSafe, FailSafe, RT, RTimes, I: Integer;
Begin
FlaxSafe := GetSystemTime;
FailSafe := GetSystemTime
Repeat
If Not ClickFlax Then
I := I + 1
Else
Begin
I := 0;
FailSafe := GetSystemTime
Wait(200 + Random(400));
RT := GetSystemTime;
If InBeeKeeper Then
Begin
Logout;
Players[CurrentPlayer].Loc := 'Beekeeper';
Exit;
End;
If FindNormalRandoms Then
If Not LoggedIn Then
Begin
Writeln('*** Unsolvable random encountered. Breaking out of picking ***');
Break;
End Else
RTimes := RTimes + (GetSystemTime - RT);
End;
If I > 10 Then
Begin
Writeln('*** Over ten fails to find flax in a row, breaking out of picking ***');
Break;
End;
If InvFull Then
Begin
Writeln('*** Inventory full, heading to bank ***');
Break;
End;
If (GetSystemTime - FlaxSafe - RTimes) >= 90000 Then
Begin
Writeln('*** Time spent to picking and randoms exceeded 90 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
If GetSystemTime - FailSafe >= 15000 Then
Begin
Writeln('*** Time from last flax picked exceeded 15 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
Wait(100 + Random(200));
Until(Not(LoggedIn));
End;
Function FastFindBank: Boolean;
Var
X, Y: Integer;
Begin
X := MSCX;
Y := MSCY;
If FindObjTPA(X, Y, 3823205, 10, 2, 20, 20, 30, ['boot']) Then
Begin
Mouse(X, Y, 2, 2, False);
Result := ChooseOption('uickl');
If Result Then
n_FFlag(0);
End;
End;
Procedure BankWait; Forward;
Function OpenTheBank: Boolean;
Var
X: TIntegerArray;
Y, I: Integer;
Z: TPointArray;
Begin
X := [2724, 2727, 2728, 2729];
Y := 3494;
SetArrayLength(Z, 4);
For I := 0 To 3 Do
TileToMS(X[i], Y, 15, Z[i].x, Z[i].y);
SortTPAFrom(Z, Point(MSCX, MSCY));
For I := 0 To High(Z) Do
Begin
Mouse(Z[i].x, Z[i].y, 5, 5, False);
If ChooseOption('uickl') Then
Begin
Result := True;
BankWait;
Exit;
End;
End;
End;
Procedure BankWait;
Var
Safe: Integer;
Begin
Safe := GetSystemTime;
While GetColor(487, 42) <> 65536 Do
If GetSystemTime - Safe > 5000 Then
Break
Else
Wait(25);
End;
Procedure DepositFlax;
Var
X, Y: Integer;
Begin
If FindDTM(dtmFlax, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Mouse(X, Y, 2, 2, False);
ChooseOption('ll');
End;
Wait(800 + Random(400));
If InvCount > 0 Then
DepositAll;
End;
Procedure LocAndLoad(S: String);
Begin
Players[CurrentPlayer].Loc := S;
Logout;
End;
Procedure ShowStats;
Var
A, B, C: Integer;
S: String;
Begin
A := Players[CurrentPlayer].Integers[0];
B := FC;
C := Players[CurrentPlayer].Integers[1];
S := (IntToStr(B)+' / '+IntToStr(A)+'; Flax: '+IntToStr(C * 28));
Writeln('Player loc: ' + Players[CurrentPlayer].Loc);
Writeln(S);
Disguise(S);
RoundTime := RoundTime + (GetSystemTime - RoundMarker);
Try
Writeln('Average RoundTime: ' + IntToStr(RoundTime Div Counter Div 1000) + ' Seconds.');
Except
Writeln('Dodged a Divide By Zero.');
End;
End;
Procedure ScriptTerminate;
Begin
FreeDTM(DTMFlax);
End;
begin
SmartSetup('world137', True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
SetupSRL;
LoadDTMs;
LoadPath;
DeclarePlayers;
Repeat
LoginPlayer;
SetChat('off', 2);
SetAngle(True);
Players[CurrentPlayer].Integers[0] := LoadsPerLog + Random(6);
FC := 0;
Repeat
RoundMarker := GetSystemTime;
If Not WalkTo(False) Then
Begin
LocAndLoad('Lost');
Break;
End;
Flag;
PickingLoop;
If Not LoggedIn Then Break;
If Not WalkTo(True) Then
Begin
LocAndLoad('Lost');
Break;
End;
Wait(2000 + Random(1000));
If Not OpenTheBank Then
Begin
LocAndLoad('BankFail');
Break;
End;
DepositFlax;
CloseBank;
FindNormalRandoms;
FC := FC + 1;
Inc(Players[CurrentPlayer].Integers[1]);
Counter := Counter + 1;
ShowStats;
Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);
ShowStats;
NextPlayer(LoggedIn);
Until(False);
end.
Begin
SetupSRL;
SetupReflection; // this one is a must :)
// your script;
End.
well here is mine which works fine
hope this one worksSCAR Code:program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/Reflection.scar}
Const
LoadsPerLog = 1000;
Var
dtmFlax, FC, RoundTime, RoundMarker, Counter: Integer;
Var
FlaxPath: TPointArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'sern';
Players[0].Active := True;
End;
Procedure LoadDTMs;
Begin
dtmFlax := DTMFromString('78DA637466626078C98002B8E3F9182481342' +
'310FF07024633A09AC70C6880118904D2B64035F708A801D9758B' +
'801A7FA09A3B04D47803D5BC405511BE732FDCCD6035EE40350F5' +
'1D544ECDE8FAAC616534DF4A163A86ACC816A9EA2AA893F7D1E45' +
'0D00693916D2');
End;
Procedure LoadPath;
Begin
SetArrayLength(FlaxPath, 7);
FlaxPath[0].x := 2726;
FlaxPath[0].y := 3492;
FlaxPath[1].x := 2726;
FlaxPath[1].y := 3484;
FlaxPath[2].x := 2727;
FlaxPath[2].y := 3473;
FlaxPath[3].x := 2727;
FlaxPath[3].y := 3463;
FlaxPath[4].x := 2729;
FlaxPath[4].y := 3453;
FlaxPath[5].x := 2734;
FlaxPath[5].y := 3443;
FlaxPath[6].x := 2740;
FlaxPath[6].y := 3443;
End;
Function n_FFlag(Dist: Integer): Boolean;
Var
FlagSafe: Integer;
Begin
FlagSafe := GetSystemTime;
While FlagDistance > Dist Do
If GetSystemTime - FlagSafe >= 20000 Then
Exit
Else
Wait(20);
Result := True;
End;
Function WalkTTile(TileX, TileY: Integer): Boolean;
Var
X, Y: Integer;
Begin
TileToMinimap(TileX, TileY, X, Y);
X := X - 2 + Random(4);
Y := Y - 2 + Random(4);
If InCircle(X, Y, MMCX, MMCY, 74) Then
Begin
MFNF(X, Y, 2, 2);
n_FFlag(8);
Result := True;
Wait(25);
End;
End;
Function WalkTo(Bank: Boolean): Boolean;
Var
I: Integer;
CS: String;
Begin
If GetMMLevels('run', CS) > 40 Then
SetRun(True);
If Bank Then
Begin
For I := High(FlaxPath)-1 DownTo 0 Do
Begin
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
End;
End Else
For I := 1 To High(FlaxPath) Do
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
Result := True;
End;
Function FindFlaxes: TPointArray;
Var
CTS: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Result, 15328935, MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
End;
Function ClickFlax: Boolean;
Var
TPA: TPointArray;
X, Y, Z: Integer;
Begin
TPA := FindFlaxes;
Result := IsUpText('lax');
While (z <= High(TPA)) and (Not(Result)) Do
Begin
MMouse(TPA[z].x, TPA[z].y, 2, 2);
Result := IsUpText('lax');
z := z + 1;
End;
If Result Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
If FlagPresent Then
Begin
Flag;
Wait(500 + Random(250));
End;
End;
End;
Function InBeeKeeper: Boolean;
Var
TPA: TPointArray;
B: TBox;
Begin
FindColorsTolerance(TPA, 0, 570, 35, 688, 129, 1);
B := GetTPABounds(TPA);
Result := GetArrayLength(TPA) = (B.x2 - B.x1) * (B.y2 - B.y1) + 200;
End;
Procedure PickingLoop;
Var
FlaxSafe, FailSafe, RT, RTimes, I: Integer;
Begin
FlaxSafe := GetSystemTime;
FailSafe := GetSystemTime
Repeat
If Not ClickFlax Then
I := I + 1
Else
Begin
I := 0;
FailSafe := GetSystemTime
Wait(200 + Random(400));
RT := GetSystemTime;
If InBeeKeeper Then
Begin
Logout;
Players[CurrentPlayer].Loc := 'Beekeeper';
Exit;
End;
If FindNormalRandoms Then
If Not LoggedIn Then
Begin
Writeln('*** Unsolvable random encountered. Breaking out of picking ***');
Break;
End Else
RTimes := RTimes + (GetSystemTime - RT);
End;
If I > 10 Then
Begin
Writeln('*** Over ten fails to find flax in a row, breaking out of picking ***');
Break;
End;
If InvFull Then
Begin
Writeln('*** Inventory full, heading to bank ***');
Break;
End;
If (GetSystemTime - FlaxSafe - RTimes) >= 90000 Then
Begin
Writeln('*** Time spent to picking and randoms exceeded 90 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
If GetSystemTime - FailSafe >= 15000 Then
Begin
Writeln('*** Time from last flax picked exceeded 15 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
Wait(100 + Random(200));
Until(Not(LoggedIn));
End;
Function FastFindBank: Boolean;
Var
X, Y: Integer;
Begin
X := MSCX;
Y := MSCY;
If FindObjTPA(X, Y, 3823205, 10, 2, 20, 20, 30, ['boot']) Then
Begin
Mouse(X, Y, 2, 2, False);
Result := ChooseOption('uickl');
If Result Then
n_FFlag(0);
End;
End;
Procedure BankWait; Forward;
Function OpenTheBank: Boolean;
Var
X: TIntegerArray;
Y, I: Integer;
Z: TPointArray;
Begin
X := [2724, 2727, 2728, 2729];
Y := 3494;
SetArrayLength(Z, 4);
For I := 0 To 3 Do
TileToMS(X[i], Y, 15, Z[i].x, Z[i].y);
SortTPAFrom(Z, Point(MSCX, MSCY));
For I := 0 To High(Z) Do
Begin
Mouse(Z[i].x, Z[i].y, 5, 5, False);
If ChooseOption('uickl') Then
Begin
Result := True;
BankWait;
Exit;
End;
End;
End;
Procedure BankWait;
Var
Safe: Integer;
Begin
Safe := GetSystemTime;
While GetColor(487, 42) <> 65536 Do
If GetSystemTime - Safe > 5000 Then
Break
Else
Wait(25);
End;
Procedure DepositFlax;
Var
X, Y: Integer;
Begin
If FindDTM(dtmFlax, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Mouse(X, Y, 2, 2, False);
ChooseOption('ll');
End;
Wait(800 + Random(400));
If InvCount > 0 Then
DepositAll;
End;
Procedure LocAndLoad(S: String);
Begin
Players[CurrentPlayer].Loc := S;
Logout;
End;
Procedure ShowStats;
Var
A, B, C: Integer;
S: String;
Begin
A := Players[CurrentPlayer].Integers[0];
B := FC;
C := Players[CurrentPlayer].Integers[1];
S := (IntToStr(B)+' / '+IntToStr(A)+'; Flax: '+IntToStr(C * 28));
Writeln('Player loc: ' + Players[CurrentPlayer].Loc);
Writeln(S);
Disguise(S);
RoundTime := RoundTime + (GetSystemTime - RoundMarker);
Try
Writeln('Average RoundTime: ' + IntToStr(RoundTime Div Counter Div 1000) + ' Seconds.');
Except
Writeln('Dodged a Divide By Zero.');
End;
End;
Procedure ScriptTerminate;
Begin
FreeDTM(DTMFlax);
End;
begin
SmartSetup('world137', True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
SetupSRL;
LoadHooks;
LoadDTMs;
LoadPath;
DeclarePlayers;
Repeat
LoginPlayer;
SetChat('off', 2);
SetAngle(True);
Players[CurrentPlayer].Integers[0] := LoadsPerLog + Random(6);
FC := 0;
Repeat
RoundMarker := GetSystemTime;
If Not WalkTo(False) Then
Begin
LocAndLoad('Lost');
Break;
End;
Flag;
PickingLoop;
If Not LoggedIn Then Break;
If Not WalkTo(True) Then
Begin
LocAndLoad('Lost');
Break;
End;
Wait(2000 + Random(1000));
If Not OpenTheBank Then
Begin
LocAndLoad('BankFail');
Break;
End;
DepositFlax;
CloseBank;
FindNormalRandoms;
FC := FC + 1;
Inc(Players[CurrentPlayer].Integers[1]);
Counter := Counter + 1;
ShowStats;
Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);
ShowStats;
NextPlayer(LoggedIn);
Until(False);
end.
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Im running it right now, ill let you know if anything goes wrong, but the only thing funny about it. As far as getting banned goes, when it goes to the feild and first gets there. It starts looking for the flax and the mouse jumps all over the screen really fast. Not to human like, but when the first plant runs out it finds the next one nicely.
Is this normal?
That's what you call a fast finderIm running it right now, ill let you know if anything goes wrong, but the only thing funny about it. As far as getting banned goes, when it goes to the feild and first gets there. It starts looking for the flax and the mouse jumps all over the screen really fast. Not to human like, but when the first plant runs out it finds the next one nicely.
Is this normal?It starts the finding when it's still moving, you can add a Flag; in start of PickingLoop if you want to.
Now this will be moved to Collecting.
Successfully compiled (2509 ms)
File access error
File access error
SRL Compiled in 6672 msec
Welcome to Runescape.
*****my name*******
Creating the NickTPA.
Player loc: Lost
0 / 18; Flax: 0
Dodged a Divide By Zero.
NextPlayer
i don't understand did everything right and i'm at seers bank...
it logs it self out wile it's creating nick TPA
make sure you use this tutorial for setting up the reflection files http://www.srl-forums.com/forum/setu...on-t36169.html and use this versioni hope i have helped you as wellSCAR Code:program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Reflection/Reflection.scar}
Const
LoadsPerLog = 1000;
Var
dtmFlax, FC, RoundTime, RoundMarker, Counter: Integer;
Var
FlaxPath: TPointArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'sern';
Players[0].Active := True;
End;
Procedure LoadDTMs;
Begin
dtmFlax := DTMFromString('78DA637466626078C98002B8E3F9182481342' +
'310FF07024633A09AC70C6880118904D2B64035F708A801D9758B' +
'801A7FA09A3B04D47803D5BC405511BE732FDCCD6035EE40350F5' +
'1D544ECDE8FAAC616534DF4A163A86ACC816A9EA2AA893F7D1E45' +
'0D00693916D2');
End;
Procedure LoadPath;
Begin
SetArrayLength(FlaxPath, 7);
FlaxPath[0].x := 2726;
FlaxPath[0].y := 3492;
FlaxPath[1].x := 2726;
FlaxPath[1].y := 3484;
FlaxPath[2].x := 2727;
FlaxPath[2].y := 3473;
FlaxPath[3].x := 2727;
FlaxPath[3].y := 3463;
FlaxPath[4].x := 2729;
FlaxPath[4].y := 3453;
FlaxPath[5].x := 2734;
FlaxPath[5].y := 3443;
FlaxPath[6].x := 2740;
FlaxPath[6].y := 3443;
End;
Function n_FFlag(Dist: Integer): Boolean;
Var
FlagSafe: Integer;
Begin
FlagSafe := GetSystemTime;
While FlagDistance > Dist Do
If GetSystemTime - FlagSafe >= 20000 Then
Exit
Else
Wait(20);
Result := True;
End;
Function WalkTTile(TileX, TileY: Integer): Boolean;
Var
X, Y: Integer;
Begin
TileToMinimap(TileX, TileY, X, Y);
X := X - 2 + Random(4);
Y := Y - 2 + Random(4);
If InCircle(X, Y, MMCX, MMCY, 74) Then
Begin
MFNF(X, Y, 2, 2);
n_FFlag(8);
Result := True;
Wait(25);
End;
End;
Function WalkTo(Bank: Boolean): Boolean;
Var
I: Integer;
CS: String;
Begin
If GetMMLevels('run', CS) > 40 Then
SetRun(True);
If Bank Then
Begin
For I := High(FlaxPath)-1 DownTo 0 Do
Begin
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
End;
End Else
For I := 1 To High(FlaxPath) Do
If Not WalkTTile(FlaxPath[i].x, FlaxPath[i].y) Then
Exit;
Result := True;
End;
Function FindFlaxes: TPointArray;
Var
CTS: Integer;
Begin
CTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, Result, 15328935, MSX1, MSY1, MSX2, MSY2, 10);
ColorToleranceSpeed(CTS);
End;
Function ClickFlax: Boolean;
Var
TPA: TPointArray;
X, Y, Z: Integer;
Begin
TPA := FindFlaxes;
Result := IsUpText('lax');
While (z <= High(TPA)) and (Not(Result)) Do
Begin
MMouse(TPA[z].x, TPA[z].y, 2, 2);
Result := IsUpText('lax');
z := z + 1;
End;
If Result Then
Begin
GetMousePos(X, Y);
Mouse(X, Y, 0, 0, True);
If FlagPresent Then
Begin
Flag;
Wait(500 + Random(250));
End;
End;
End;
Function InBeeKeeper: Boolean;
Var
TPA: TPointArray;
B: TBox;
Begin
FindColorsTolerance(TPA, 0, 570, 35, 688, 129, 1);
B := GetTPABounds(TPA);
Result := GetArrayLength(TPA) = (B.x2 - B.x1) * (B.y2 - B.y1) + 200;
End;
Procedure PickingLoop;
Var
FlaxSafe, FailSafe, RT, RTimes, I: Integer;
Begin
FlaxSafe := GetSystemTime;
FailSafe := GetSystemTime
Repeat
If Not ClickFlax Then
I := I + 1
Else
Begin
I := 0;
FailSafe := GetSystemTime
Wait(200 + Random(400));
RT := GetSystemTime;
If InBeeKeeper Then
Begin
Logout;
Players[CurrentPlayer].Loc := 'Beekeeper';
Exit;
End;
If FindNormalRandoms Then
If Not LoggedIn Then
Begin
Writeln('*** Unsolvable random encountered. Breaking out of picking ***');
Break;
End Else
RTimes := RTimes + (GetSystemTime - RT);
End;
If I > 10 Then
Begin
Writeln('*** Over ten fails to find flax in a row, breaking out of picking ***');
Break;
End;
If InvFull Then
Begin
Writeln('*** Inventory full, heading to bank ***');
Break;
End;
If (GetSystemTime - FlaxSafe - RTimes) >= 90000 Then
Begin
Writeln('*** Time spent to picking and randoms exceeded 90 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
If GetSystemTime - FailSafe >= 15000 Then
Begin
Writeln('*** Time from last flax picked exceeded 15 seconds ***');
Writeln(' - breaking out of picking.');
Break;
End;
Wait(100 + Random(200));
Until(Not(LoggedIn));
End;
Function FastFindBank: Boolean;
Var
X, Y: Integer;
Begin
X := MSCX;
Y := MSCY;
If FindObjTPA(X, Y, 3823205, 10, 2, 20, 20, 30, ['boot']) Then
Begin
Mouse(X, Y, 2, 2, False);
Result := ChooseOption('uickl');
If Result Then
n_FFlag(0);
End;
End;
Procedure BankWait; Forward;
Function OpenTheBank: Boolean;
Var
X: TIntegerArray;
Y, I: Integer;
Z: TPointArray;
Begin
X := [2724, 2727, 2728, 2729];
Y := 3494;
SetArrayLength(Z, 4);
For I := 0 To 3 Do
TileToMS(X[i], Y, 15, Z[i].x, Z[i].y);
SortTPAFrom(Z, Point(MSCX, MSCY));
For I := 0 To High(Z) Do
Begin
Mouse(Z[i].x, Z[i].y, 5, 5, False);
If ChooseOption('uickl') Then
Begin
Result := True;
BankWait;
Exit;
End;
End;
End;
Procedure BankWait;
Var
Safe: Integer;
Begin
Safe := GetSystemTime;
While GetColor(487, 42) <> 65536 Do
If GetSystemTime - Safe > 5000 Then
Break
Else
Wait(25);
End;
Procedure DepositFlax;
Var
X, Y: Integer;
Begin
If FindDTM(dtmFlax, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
Mouse(X, Y, 2, 2, False);
ChooseOption('ll');
End;
Wait(800 + Random(400));
If InvCount > 0 Then
DepositAll;
End;
Procedure LocAndLoad(S: String);
Begin
Players[CurrentPlayer].Loc := S;
Logout;
End;
Procedure ShowStats;
Var
A, B, C: Integer;
S: String;
Begin
A := Players[CurrentPlayer].Integers[0];
B := FC;
C := Players[CurrentPlayer].Integers[1];
S := (IntToStr(B)+' / '+IntToStr(A)+'; Flax: '+IntToStr(C * 28));
Writeln('Player loc: ' + Players[CurrentPlayer].Loc);
Writeln(S);
Disguise(S);
RoundTime := RoundTime + (GetSystemTime - RoundMarker);
Try
Writeln('Average RoundTime: ' + IntToStr(RoundTime Div Counter Div 1000) + ' Seconds.');
Except
Writeln('Dodged a Divide By Zero.');
End;
End;
Procedure ScriptTerminate;
Begin
FreeDTM(DTMFlax);
End;
begin
SmartSetup('world137', True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
SetupSRL;
LoadHooks;
LoadDTMs;
LoadPath;
DeclarePlayers;
Repeat
LoginPlayer;
SetChat('off', 2);
SetAngle(True);
Players[CurrentPlayer].Integers[0] := LoadsPerLog + Random(6);
FC := 0;
Repeat
RoundMarker := GetSystemTime;
If Not WalkTo(False) Then
Begin
LocAndLoad('Lost');
Break;
End;
Flag;
PickingLoop;
If Not LoggedIn Then Break;
If Not WalkTo(True) Then
Begin
LocAndLoad('Lost');
Break;
End;
Wait(2000 + Random(1000));
If Not OpenTheBank Then
Begin
LocAndLoad('BankFail');
Break;
End;
DepositFlax;
CloseBank;
FindNormalRandoms;
FC := FC + 1;
Inc(Players[CurrentPlayer].Integers[1]);
Counter := Counter + 1;
ShowStats;
Until(Not(LoggedIn)) or (FC > Players[CurrentPlayer].Integers[0]);
ShowStats;
NextPlayer(LoggedIn);
Until(False);
end.
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
i did the reflections thing both copy and past and tortoise way.. thought maybe i messed up is that the same as the attached one?
Shuttleu, your forgot to change the reflection including![]()
oh shoot so i did
i have changed it now
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
There are currently 1 users browsing this thread. (0 members and 1 guests)