There is no more blind click really :P
~Home
Oh.. There is probs one as a failsafe.
Senior SRL Member
There is no more blind click really :P
~Home
Oh.. There is probs one as a failsafe.
SRL Junior Member
Well I'll come back and my picker is in Lumbridge Basement.....I'm not sure I think it's not talking to Old Man or Sandwich lady.
SRL Junior Member
errrrr wtf are you talking about
ok i did get it to run eventully but you guys keep saying well w8 till smart loads up ummmmm 1 question this script doesnt have smart in it so im llike uhh wtf second question i know i said 1 question but deall with it lol =p if some one does have this script with smart plz send me a copy!!!!!!
who ever said everything is possible never tried pushing backwards on a revolving door[BANANA]
SRL Junior Member
I love you for updating your script or making it....
Will try a.s.a.p
And post proggy later.
SRL Member
Thats a random, home good to see you add findrandoms in some other places to
~Hermen
SRL Junior Member
Number : 0
Travelled : 250/400 Trips To Field.
Flax/Hour : 751
Worked : 8 Hours, 1Mins, 32 Secs.
Active : True
Time : 10:12:39 PM
**********************************************
yay proggie
who ever said everything is possible never tried pushing backwards on a revolving door[BANANA]
SRL Junior Member
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flax's Gardener Infinity 0.4
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Number : 0
Travelled : 90/400 Trips To Field.
Flax/Hour : 706
Worked : 3 Hours, 33 Mins, 59 Secs.
Active : True
Time : 04:48:20 AM
Finally got more then 7 trips. In the beggining it kept just stopping, but finally kept going.
Nice script.
Banned
Good job!Code:+++++++++++++++++++++++++++++++++++++++++++++++++++++++ Name : ******** Number : 0 Travelled : 28/200 Trips To Field. Flax/Hour : 721 Worked : 1 Hours, 5 Mins, 13 Secs. Active : True Time : 05:35:05 AM **********************************************
Banned
In your talksomething procedure
SCAR Code:procedure TalkSomething;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(35);
if (p = 4) then
begin
case Random(21) of
0: TypeSend('hi all');
1: TypeSend('sigh');
2: TypeSend('hellooo');
3: TypeSend('hay');
4: TypeSend('' + IntToStr(800 + Random(1200)) + ' more');
5: TypeSend('i hate those dam botters');
6: TypeSend('boring');
7: TypeSend('blaaaaahhh');
8: Wait(1);
9: TypeSend('booooooooring');
10: TypeSend('yay');
11: TypeSend('ouch');
12: PickUpMouse;
13: TypeSend('blah.');
14: TypeSend('quiet');
15: TypeSend('bam');
16: PickUpMouse;
17: PickUpMouse;
18: TypeSend('bleh');
19: PickUpMouse;
20: TypeSend('argh !');
end;
end;
end;
You can replace those multiple PickupMouse; calls with this
SCAR Code:12, 16, 17, 19: PickUpMouse;
You can call the same procedure all in one line with the same if/case statement.
Edit:
Another one:Code:+++++++++++++++++++++++++++++++++++++++++++++++++++++++ Home Flax's Gardener Infinity 0.4 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ Name : *** ** ***** Number : 0 Travelled : 36/400 Trips To Field. Flax/Hour : 778 Worked : 1 Hours, 17 Mins, 45 Secs. Active : True Time : 12:45:37 AM ********************************************** 0: *** ** ***** = True. - B :36 Times. - : - Loc: Bank **********************************************
Code:+++++++++++++++++++++++++++++++++++++++++++++++++++++++ Home Flax's Gardener Infinity 0.4 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ Name : miz 99 skill Number : 0 Travelled : 108/172 Trips To Field. Flax/Hour : 779 Worked : 3 Hours, 52 Mins, 58 Secs. Active : True Time : 06:08:03 AM ********************************************** 0: *** ** ***** = True. - B :108 Times. - : - Loc: Bank ********************************************** NextPlayer(Active: False);
Senior SRL Member
Guys, everything that really matters to me is that it's working
But thanks anyways for pointing out...
And thanks for proggies.. But please Bugs and suggestions
~Home
Banned
Could you possibly add a feature to make it spin the flax right after it picks it?
SRL Junior Member
Cool script.
I may use when I get my pure members.
Then I won't have to buy so much RSGP for claws ><
Banned
[offtopic]
How do you buy RSGP now? BH?
[/offtopic]
SRL Junior Member
I agree it really would be great having 2 in one rather then having to use lumby castle flax spinners -.- (no offense) and this one.Originally Posted by Da 0wner
Banned
Yeah, most of the lumby castle spinners are either not good or outdated.
SRL Member
Please make SMART version for this
If it's easy, sorry, but I haven't script in a while =/
Banned
1. Setup the script.
2. Press play.
3. When smart client is loaded, press stop.
4. Login your player and go to seers bank while script is stopped.
5. Click 'Enable SMART' and press play.
6. Enjoy
SCAR Code:program FlaxPickerSeers;
{.include SRL\SRL\misc\Smart.scar}
{.include SRL\SRL.scar}
var cst, BankSymb,ColorMark,srt, tih, tim, tis, awt, sst, wet, wst, FlaxMS, Flax, FlaxPicked,ColorShitty, TreeSymb, X, y: Integer;
var NR: string;
var
bk1,bk2,bk3,bk4,px,py,AmtBee:integer;
bkm:longint;
{ ________) _____
(, / /) (, / ) , /)
/___, // _ __/ _/__ / _ (/_ _ __
) / (/_(_(_ /(__ / _(_(__/(___(/_/ (_
(_/ / ) /
(_/
.___ _____.__ .__ __
| | _____/ ____\__| ____ |__|/ |_ ___.__.
| |/ \ __\| |/ \| \ __< | |
| | | \ | | | | \ || | \___ |
|___|___| /__| |__|___| /__||__| / ____|
\/ \/ \/
.---. .-..-.
: .; : : :; :
: .'.-..-. : : .--. ,-.,-.,-. .--.
: .; :: :; : : :: :' .; :: ,. ,. :' '_.'
:___.'`._. ; :_;:_;`.__.':_;:_;:_;`.__.'
.-. :
`._.'
----------------------------------------------------
___ _
/ __\__ __ _| |_ _ _ _ __ ___ ___
/ _\/ _ \/ _` | __| | | | '__/ _ \/ __|
/ / | __/ (_| | |_| |_| | | | __/\__ \
\/ \___|\__,_|\__|\__,_|_| \___||___/
~MultiPlayer Support
~SRL
~AntiBan
~Very Good Banking
~MultiplePaths
~Fast Picking
_ _ _ _
| | | (_) | |
| |__| |_ ___| |_ ___ _ __ _ _
| __ | / __| __/ _ \| '__| | | |
| | | | \__ \ || (_) | | | |_| |
|_| |_|_|___/\__\___/|_| \__, |
__/ |
|___/
Version 0.1:
~Made a Whole Main Script
~Added SRL
~MultiPlayer Support
~AntiBan
Version 0.2:
~Added a New Path To Flax Field
~More AntiBan
~More FailSafes
~Fixed Loads Of AntiRandom Related Stuff
~Found More Bugs
~Little Tweaking
Version 0.3:
~Added a New Path To Bank
~Some Bugs Fixed
~More Accurate Walking
~BETA Beekeeper Solver
Version 0.4:
~Fixed Few Walking Bugs
~Fixed Beekeeper Antirandom ( Still In BETA )
_____ _ _ _
|_ _| | | | | (_)
| | _ __ ___| |_ _ __ _ _ ___| |_ _ ___ _ __ ___
| || '_ \/ __| __| '__| | | |/ __| __| |/ _ \| '_ \/ __|
_| || | | \__ \ |_| | | |_| | (__| |_| | (_) | | | \__ \
\___/_| |_|___/\__|_| \__,_|\___|\__|_|\___/|_| |_|___/
- Use Normal RS Client
- Low Population World
- Low Quality
- CrossHair RS Screen
- Fill Setup
- Start Script In Seers Bank
- Watch Couple Trips, Before Leaving
- Post Bugs, Progress Reports And Suggestions In Main Thread
___ _
/ __> ___ _| |_ _ _ ___
\__ \/ ._> | | | | || . \
<___/\___. |_| `___|| _/
|_| }
Const
StartPlayer = 0; // Determines Who Will Play First
Loads = 172; // Number Of Trips Before Switching Player ( Bank To Flax Field And Back )
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := StartPlayer; // CurrentPlayer = Array Index
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // Few letters From Your Name
Players[0].Skill := ''; // LampSkill
Players[0].Active := True; // If You use This Player Set True
Writeln(IntToStr(HowManyPlayers) + ' Players');
end;
Const
Ver = 'Infinity'; // Version ( Don't Touch )
//************************************************************************//
//************************************************************************//
procedure PlayerStats;
var
Sec, i: Integer;
begin
cst := getsystemTime;
srt := (cst - sst) / 1000;
tih := srt / 3600;
tim := (srt / 60) - tih * 60;
tis := srt - tim * 60 - tih * 3600;
awt := wet - wst
Sec := GetTimeRunning div 1000 + 1;
Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
Writeln(' Home Flax'#39's Gardener ' + (Ver) + ' 0.4');
Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
writeln('Name : ' + Players[CurrentPlayer].Name);
writeln('Number : ' + inttostr(CurrentPlayer));
Writeln('Travelled : ' + IntToStr(Players[CurrentPlayer].banked) + '/' + IntToStr(Loads) + ' Trips To Field. ');
Writeln('Flax/Hour : ' + IntToStr(Round(3600 * FlaxPicked / Sec)))
Writeln('Worked : ' + inttostr(tih) + ' Hours, ' + inttostr(tim) + ' Mins, ' + inttostr(tis) + ' Secs.');
If (AmtBee>0) Then
Writeln('BeeKeepers : '+IntToStr(AmtBee));
Writeln('Active : ' + BoolToStr(Players[CurrentPlayer].Active));
Writeln('Time : ' + TheTime)
writeln('**********************************************');
for i := 0 to HowManyPlayers - 1 do
begin
Writeln((inttostr(i)) + ': ' + Players[i].name + ' = ' + BoolToStr(Players[i].Active) + '. - B :' + inttostr(Players[i].Banked) + ' Times.' + ' - : ' + ' - Loc: ' + Players[i].loc);
Writeln('**********************************************');
end;
end;
//************************************************************************//
procedure ProgressReport;
begin
begin
SRLRandomsReport;
Writeln(' ');
end;
PlayerStats;
end;
procedure AutoColorTree;
begin
if ( TreeSymb = 0 ) then
begin
MarkTime(Colorshitty);
repeat
If(not(FindSymbol(x,y,'tree')))then writeln('Could Not Get Tree Color, Restart Script');
TreeSymb:=GetSymbolColor(x, y, 'tree');
Wait(50+random(50))
if TimeFromMark(Colorshitty)>12000 then
begin
writeln('Could Not Get Tree Color, Restart Script');
TerminateScript;
end;
if (not(Loggedin)) then
break;
until (not(TreeSymb=0));
writeln('Tree Color: '+IntToStr(TreeSymb)+' ;');
end;
end;
procedure AutoColorMMFlax;
var
Tol,Bx,By,BaseColor:integer;
begin
If(Flax = 11884646) Then Begin
BaseColor:=11884646;
tol:=-1;
repeat
tol:=tol+1;
until(FindColorTolerance(Bx,By,BaseColor,576, 26,MMX2,MMY2,tol))Or(Tol>50);
Flax:=GetColor(Bx,By);
writeln('MM Flax Color: '+IntToStr(Flax)+' ;');
end;
end;
procedure FindRandoms;
begin
if (not (LoggedIn)) then
Exit;
ColorToleranceSpeed(0);
if FindFight then RunAway('W',True,1,10000+Random(4000));
FindNormalRandoms;
end;
function InBeeKeeper: Boolean; // Creds n3ss3s
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 bkDtms;
begin
bk1:= DTMFromString('78DA637CCFC0C010C08002AE5FBAC8C00FA41' +
'9A17CC63740C20E55CDC553A750D5DC02129EA86A5E3C7D8AAAE6' +
'2C9088475573E7FA755435DC40561CAA9A2533A6A3AA01B1BC50D' +
'5ECDEB001450D004BC013DD');;
bk2:=DTMFromString('78DA639CC8C0C010C880020EEDDCC1C00FA41' +
'9A17CC6D3986AD62C5880AA662990484355B36BE3465435AB31D5' +
'6C5FB31A55CD464C355B56AE4055B30D53CDBA850B51D59C0712E' +
'9A86A66F6F761AA89425533A1AD0D554D2FA69A5DEBD7A3AAE9C3' +
'74CFD1BD7B51D4000064E81F19');
bk4:= DTMFromString('78DA63BCCBC0C060C780028EEDDBC7C00FA41' +
'9A17C460920CB0155CD9A050B50D5480359EEA86AA67476A2AAB9' +
'0524DC50D56C5BB31A55CD43201185AAE6C0F66DA86A8481AC105' +
'4353BD6AE4155F3034878A0AA59347D3A8A1A0009451441');
bk3:=DTMFromString('78DA63DCC8C0C050C880020EEEDCC1C00FA41' +
'9A17CC63740221F55CDDA850B51D5BC071215A86AA67476A2AAB9' +
'0E249A51D5CCECEF4355730E4834A0AA1115124255B31648B4A1A' +
'AD9B97E1DA67B5A51D5CC993811450D0020E41535');
end;
procedure bkSetup;
begin
bkDtms;
AmtBee:=0;
end;
function OpenWin:boolean;
Var BeeTim :integer;
begin
BeeTim:=0;
If(Not(LoggedIn)) Then Exit;
Wait(2000+Random(2000))
MakeCompass('E');
Wait(500+Random(500))
SetAngle(True);
Wait(1000+Random(1000))
Repeat
if FindObjCustom(x, y, ['Bee keeper','keeper'],
[14737636,8027012,11843006], 15) then
Mouse(x,y,0,0,False);
Wait(100+Random(100))
BeeTim:=BeeTim+1;
If(BeeTim>5) Then LogOut;
If(Not(LoggedIn)) Then Exit;
Until(Chooseoption('Talk'))
BeeTim:=0;
wait(10);
Flag;
MMouse(296, 447,10,1);
wait(1000+random(100));
MarkTime(bkm);
while(FindColor(x,y,16777215,23, 437,394, 461) and (TimeFromMark(bkm)<30000)) do begin
Mouse(296, 447,10,1,true);
wait(1000+random(200));
end;
Result:=true;
wait(1000+random(500));
end;
procedure DoneBk;
begin
If(Not(LoggedIn)) Then Exit;
MMouse(254, 270,3,3);
getmousepos(x,y);
wait(200+random(100));
Mouse(x,y,0,0,true);
wait(1000);
MarkTime(bkm);
repeat
wait(100);
until(FindColorTolerance(x,y,FlaxMS,MSX1,MSY1,MSX2,MSY2,20)or(FindColorSpiraltolerance(x, y, Flax, MMX1,MMY1,MMX2,MMY2, 16))
Or
(TimeFromMark(bkm)>20000));
If(TimeFromMark(bkm)>20000)Then LogOut;
Wait(1000+random(500));
WriteLn('Beekeeper Solved!');
AmtBee:=AmtBee+1;
end;
function FindPiece(piece:integer):boolean;
var
fpMark:longint;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Finding Piece')
MarkTime(fpMark);
repeat
wait(100);
if(TimeFromMark(fpMark)>23000) then Exit;
until(FindDtm(piece,px,py,23, 29 ,426, 224));
Result:=True;
end;
function ClickPiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(not(FindPiece(piece))) then Exit;
Mouse(px+10,py+5,1,1,true);
wait(2000+random(500));
Result:=True;
end;
procedure ClickArrow(arrow:integer);
begin
If(Not(LoggedIn)) Then Exit;
if(arrow=1) then Mouse(141, 275,5,5,true);
if(arrow=2) then Mouse(194, 269,5,5,true);
if(arrow=3) then Mouse(314, 273,5,5,true);
if(arrow=4) then Mouse(361, 271,5,5,true);
end;
function MovePiece(mx,my,piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(not(ClickPiece(piece))) then Exit;
Result:=True;
while(px<mx) do begin
ClickArrow(4);
Wait(1000+Random(100))
px:=px+15;
end;
while(py<my) do begin
ClickArrow(2);
Wait(2000+Random(100))
py:=py+15;
end;
while(px>mx+16) do begin
ClickArrow(3);
Wait(2000+Random(100))
px:=px-15;
end;
while(py>my+16) do begin
ClickArrow(1);
Wait(2000+Random(100))
py:=py-15;
end;
end;
function FixPiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(piece=1) then begin
Result:=MovePiece(84, 62,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(61, 165,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(350, 47,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(350, 158,bk4);
end;
end;
function SolvePiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(piece=1) then begin
Result:=MovePiece(244,29,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(222,82,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(224,141,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(224,190,bk4);
end;
end;
function FixPieces:boolean;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Fixing Pieces')
if(not(FixPiece(2))) then Exit;
if(not(FixPiece(4))) then Exit;
if(not(FixPiece(3))) then Exit;
if(not(FixPiece(1))) then Exit;
Result:=True;
end;
function MovePieces:boolean;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Moving Piece To Correct Location')
if(not(SolvePiece(2))) then Exit;
if(not(SolvePiece(4))) then Exit;
if(not(SolvePiece(3))) then Exit;
if(not(SolvePiece(1))) then Exit;
Result:=True;
end;
procedure SolveBeeKeeper;
begin
If(Not(LoggedIn)) Then Exit;
OpenWin;
if(not(FixPieces)) then begin
WriteLn('ErrorS olving Beekeeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
if(not(MovePieces)) then begin
WriteLn('ErrorS olving Beekeeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
DoneBk;
end;
function BeeKeeper:boolean;
begin
If(Not(LoggedIn)) Then Exit;
WriteLn('We Are In Beekeeper Area, Looking For Beekeeper');
wait(3000+random(200));
if(InBeekeeper) then begin
WriteLn('Found Beekeeper, Trying To Solve');
Result:=True;
SolveBeeKeeper;
end;
end;
procedure AlignMM(Direction: Char);
var DTM, x, y, i: integer;
acc: extended;
begin
MakeCompass(Direction)
DTM := DTMFromString('78DA634C676260086240016F9F7C641001D28' +
'C40FC1F0818416AFC71AB0101B09A7022D44413A1C60BBF1A009F' +
'1015DF');
wait(50)
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if (acc < 0.1) and (acc > -0.1) then
exit
else
begin
repeat
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if acc < 0 then
begin
KeyDown(VK_RIGHT)
Wait(20 + random(10))
KeyUp(VK_RIGHT)
end;
if acc > 0 then
begin
KeyDown(VK_LEFT)
Wait(20 + random(10))
KeyUp(VK_LEFT)
end;
if acc = 0 then break;
end else
exit;
wait(20)
Inc(i)
until (((acc < 0.1) and (acc > -0.1)) or (i > 25))
end;
end else MakeCompass(Direction);
freeDtm(DTM)
end;
procedure WalkFlax;
Var M :Integer;
begin
if (not (LoggedIn)) then
Exit;
M:=0;
if (FindSymbolIn(x, y, 'tree', 639, 33, 688, 107)) then
Mouse(x, y - 5, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 595, 50, 633, 109))or(FindColorTolerance(x, y, TreeSymb, 597, 71, 638, 106,10)) then
Mouse(x+15, y - 45, 2, 2, True);
SetRun(True)
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 591, 109, 626, 162))or(FindColorTolerance(x, y, TreeSymb, 596, 55, 644, 84,10)) then
Mouse(x+60, y - 60, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 626, 29, 687, 104)) then
Mouse(x + 30 + Random(5), y + 25 + Random(5), 2, 2, True);
FFlag(5)
AutoColorMMFlax;
repeat
Wait(10 + Random(10))
if (not (LoggedIn)) then Exit;
FindRandoms;
until (FindColorSpiraltolerance(x, y, Flax, 582, 35, 738, 152, 15))
repeat
M:=M+1;
Mouse(x + 5, y + 5, 3, 3, true)
Wait(100 + random(100))
FindRandoms;
if (not (Loggedin)) then
break;
until (FlagPresent)Or(M>50)
Wait(3000 + Random(2000))
SetRun(False)
MMouse(224, 208, 25, 25)
FFlag(0);
end;
procedure WalkFlax2;
Var M :Integer;
begin
if (not (LoggedIn)) then
Exit;
M:=0;
if (FindSymbolIn(x, y, 'tree', 639, 33, 688, 107)) then
Mouse(x + 5 , y + 5, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 595, 50, 633, 109))or(FindColorTolerance(x, y, TreeSymb, 597, 71, 638, 106,10)) then
Mouse(x+50, y +15, 2, 2, True);
SetRun(True)
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 553, 56, 592, 96))or(FindColorTolerance(x, y, TreeSymb, 53, 56, 592, 96,10)) then begin
Repeat
If(Not(LoggedIn)) Then Exit;
M:=M+1;
Mouse(x+100, y -20, 2, 2, True);
FindRandoms;
Until(M>5)Or(FlagPresent)
M:=0;
FFlag(10)
AutoColorMMFlax;
repeat
Wait(10 + Random(10))
if (not (LoggedIn)) then Exit;
FindRandoms;
until (FindColorSpiraltolerance(x, y, Flax, 582, 35, 738, 152, 15))
repeat
M:=M+1;
Mouse(x + 5, y + 5, 3, 3, true)
Wait(100 + random(100))
if (not (Loggedin)) then
break;
until (FlagPresent)Or(M>50)
Wait(3000 + Random(2000))
SetRun(False)
MMouse(224, 208, 25, 25)
FFlag(0);
end;
end;
procedure CoordFlax;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-25, y-10, 2, 2, true);
end;
procedure CoordFlax2;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-80, y-5, 2, 2, true);
end;
procedure CoordFlax3;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-25, y+40, 2, 2, true);
if GetMMLevels('run', NR) > 70 - Random(10) then
SetRun(True);
FFlag(1);
end;
procedure CoordFlax4;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-80, y+65, 2, 2, true);
FFlag(1);
end;
procedure WalkBank;
Var N,K,L :integer;
begin
if (not (LoggedIn)) then
Exit;
K:=0;
L:=0;
N:=0;
FindRandoms;
CoordFlax; // Bai Bai Blind Click ;) ?
Wait(12500) // Looks Stupid I Know :P
FFlag(2)
CoordFlax2;
if GetMMLevels('run', NR) > 70 - Random(10) then
SetRun(True);
FFlag(2)
Repeat
N:=N+1;
Wait(50+Random(50))
If(Not(LoggedIn)) Then Exit;
until(FindSymbolIn(x, y, 'tree', 622, 47, 672, 90))Or(FindColorTolerance(x, y, TreeSymb, 622, 47, 672, 90,10))Or(N>10)
if (FindSymbolIn(x, y, 'tree', 622, 47, 672, 90))Or(FindColorTolerance(x, y, TreeSymb, 622, 47, 672, 90,10)) then
begin
Repeat
L:=L+1;
Mouse(x - 70, y + 57, 2, 2, True);
Until(L>5)Or(FlagPresent)
If(L>5) Then LogOut;
FFlag(2)
Repeat
if (FindSymbolIn(x, y, 'tree', 612, 99, 648, 155))then
Mouse(x-45, y+10+Random(5), 2, 1, True);
Wait(100+Random(100))
Until(Not(LoggedIn))Or(FlagPresent)
MMouse(223, 197, 45, 45)
FFlag(1)
end;
end;
Procedure WalkBank2;
var N :Integer;
Begin
N:=0;
If(Not(LoggedIn)) Then Exit;
CoordFlax3;
CoordFlax4;
Repeat
X:=567
Y:=42
N:=N+1;
Wait(50+Random(50))
If(Not(LoggedIn)) Then Exit;
until(FindSymbolIn(x, y, 'tree', 565, 60, 597, 108))Or(FindSymbolIn(x, y, 'tree', 577, 29, 612, 76))Or(N>10)
X:=567
Y:=42
if (FindSymbolIn(x, y, 'tree', 564, 37, 629, 103)) then
Mouse(x-5,y+10,1,1,True);
FFlag(2)
Repeat
if (FindSymbolIn(x, y, 'tree', 617, 56, 645, 103)) then
Mouse(x-45, y+10+Random(5), 1, 2, True);
Wait(100+Random(100))
Until(Not(LoggedIn))Or(FlagPresent)
MMouse(151, 185, 45, 45)
FFlag(1)
end;
procedure TalkSomething;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(35);
if (p = 4) then
begin
case Random(45) of
0: TypeSend('hi all');
1: TypeSend('sigh');
2: TypeSend('hellooo');
3: TypeSend('hay');
4: TypeSend('' + IntToStr(800 + Random(1200)) + ' more');
5: TypeSend('i hate those dam botters');
6: TypeSend('boring');
7: TypeSend('blaaaaahhh');
8: Wait(1);
9: TypeSend('booooooooring');
10: TypeSend('yay');
11: TypeSend('ouch');
12: PickUpMouse;
13: TypeSend('blah.');
14: TypeSend('quiet');
15: TypeSend('bam');
16: PickUpMouse;
17: PickUpMouse;
18: TypeSend('bleh');
19: PickUpMouse;
20: TypeSend('argh !');
end;
end;
end;
procedure RandomGameTab;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(50);
if (p = 20) then
begin
GameTab(1+random(11));
Wait(500+Random(500))
GameTab(4);
end;
end;
procedure PickStyle;
var
U, P: Integer;
begin
if (not (LoggedIn)) then
Exit;
U := 0;
p := 1 + Random(30);
if (p = 4) then
begin
Mouse(x, y, 1, 1, False);
repeat
if (not (LoggedIn)) then
Exit;
wait(50+Random(25))
U := U + 1;
until (ChooseOption('Pick')) or (U > 10)
end
else
Mouse(x, y, 1, 1, True)
end;
procedure PickFlax;
begin
if (not (LoggedIn)) then
Exit;
RandomGameTab;
X:=100;
Y:=150;
repeat
MouseSpeed := 13 + random(3);
ColorToleranceSpeed(2);
if FindObj(x, y, 'lax', FlaxMs, 20) then
PickStyle;
ColorToleranceSpeed(0);
FindRandoms;
FFlag(0);
Wait(200+Random(120));
FindTalk;
until (InvFull) or (not (LoggedIn) or (FindDead)) or (InBeeKeeper);
if InBeeKeeper then
begin
Beekeeper;
Writeln('Beekeeper!')
Players[CurrentPlayer].Loc := 'Beekeeper';
if (FindDead) then
LogOut;
Exit;
end;
end;
procedure OpenBank4;
var
x, y, fs, fs2: Integer;
begin
Players[CurrentPlayer].Loc := 'Bank';
begin
if (not (LoggedIn)) then
Exit;
X:=100;
Y:=150;
ColorToleranceSpeed(2)
if (BankScreen) then Exit;
repeat
if FindObjCustom(x, y, ['se', 'oth', 'us', 'Use ', 'ooth', 'Boo'],
[3167333, 10266541], 10) then
Mouse(x, y, 4, 4, False);
wait(50)
Fs2 := Fs2 + 1;
until (ChooseOption('quickly')) or (Fs2 > 1)
FFlag(0);
repeat
Wait(100 + random(10));
fs := fs + 1;
until (BankScreen) or (fs >= 50) or (not (Loggedin))
end;
ColorToleranceSpeed(0)
Fs := 0;
Fs2 := 0;
end;
procedure CloseBankAntiBan;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 3) then
CloseBank;
end;
procedure WholeBank; // I Wan't To Be Sure :P
begin
If(Not(LoggedIn)) Then Exit;
FindRandoms;
if not BankScreen then
OpenBank4;
if not BankScreen then
OpenBankFast('lb');
if not BankScreen then
OpenBankFast('db');
Wait(100+Random(100))
DepositAll;
CloseBankAntiBan;
end;
procedure DoAlign;
begin
if (not (LoggedIn)) then
Exit;
MakeCompass('E')
SetAngle(True);
AlignMM('E')
TalkSomething;
end;
procedure ChoosePath;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 4) then
begin
WalkFlax;
end
else
WalkFlax2;
end;
procedure ChoosePathBack;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 3) then
begin
WalkBank;
end
else
WalkBank2;
end;
procedure Ending;
begin
CloseBank;
Wait(100 + random(100))
repeat
LogOut;
Disguise(' Logging Out ');
Wait(1000 + random(500))
until (not (LoggedIn));
Wait(1000 + random(5000))
NextPlayer(True);
Disguise(' Next Player ');
end;
Procedure SetupPlayer;
Begin
LoginPlayer;
SetGraphics(4, '', '' ,'', '', '', '', '', '');
Retaliate(False);
SetAudio(0, 0, 0, Mono);
SetChat('on',1);
SetChat('friends',2);
SetChat('on',3);
End;
begin
Disguise('Home Flax'#39's Gardener ' + (Ver) + ' 0.4');
SetupSRL;
DeclarePlayers;
Wait(100);
SmartSetupEx(112, true, true, false);
Wait(100 + random(200));
SetTargetDC(SmartGetDC);
Wait(200 + random(100));
Flax := 11884646;
FlaxMS := 940041;
BankSymb:=0;
TreeSymb := 0;
FlaxPicked := 0;
ClearDebug;
SymbolAccuracy := 0.4;
//Tih := 0;
sst := GetSystemTime;
// SetupPlayer;
bkSetup;
repeat
MouseSpeed := 13 + random(3);
AutoColorTree;
DoAlign;
ChoosePath;
PickFlax;
ChoosePathBack;
WholeBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
FlaxPicked := FlaxPicked + 28;
Disguise(IntToStr(Players[CurrentPlayer].banked) + '/' + IntToStr(Loads) + ' [ ' + IntToStr(Players[CurrentPlayer].banked * 28) + ' ]');
ProgressReport;
if (Players[CurrentPlayer].Banked mod Loads = 0) then
Ending;
if (not (Loggedin)) then
NextPlayer(false);
until (False);
end.
Senior SRL Member
1. Setup the script.
2. Press play.
3. When smart client is loaded, press stop.
4. Login your player and go to seers bank while script is stopped.
5. Click 'Enable SMART' and press play.
6. Enjoy
SCAR Code:program FlaxPickerSeers;
{.include SRL\SRL\misc\Smart.scar}
{.include SRL\SRL.scar}
var cst, BankSymb,ColorMark,srt, tih, tim, tis, awt, sst, wet, wst, FlaxMS, Flax, FlaxPicked,ColorShitty, TreeSymb, X, y: Integer;
var NR: string;
var
bk1,bk2,bk3,bk4,px,py,AmtBee:integer;
bkm:longint;
{ ________) _____
(, / /) (, / ) , /)
/___, // _ __/ _/__ / _ (/_ _ __
) / (/_(_(_ /(__ / _(_(__/(___(/_/ (_
(_/ / ) /
(_/
.___ _____.__ .__ __
| | _____/ ____\__| ____ |__|/ |_ ___.__.
| |/ \ __\| |/ \| \ __< | |
| | | \ | | | | \ || | \___ |
|___|___| /__| |__|___| /__||__| / ____|
\/ \/ \/
.---. .-..-.
: .; : : :; :
: .'.-..-. : : .--. ,-.,-.,-. .--.
: .; :: :; : : :: :' .; :: ,. ,. :' '_.'
:___.'`._. ; :_;:_;`.__.':_;:_;:_;`.__.'
.-. :
`._.'
----------------------------------------------------
___ _
/ __\__ __ _| |_ _ _ _ __ ___ ___
/ _\/ _ \/ _` | __| | | | '__/ _ \/ __|
/ / | __/ (_| | |_| |_| | | | __/\__ \
\/ \___|\__,_|\__|\__,_|_| \___||___/
~MultiPlayer Support
~SRL
~AntiBan
~Very Good Banking
~MultiplePaths
~Fast Picking
_ _ _ _
| | | (_) | |
| |__| |_ ___| |_ ___ _ __ _ _
| __ | / __| __/ _ \| '__| | | |
| | | | \__ \ || (_) | | | |_| |
|_| |_|_|___/\__\___/|_| \__, |
__/ |
|___/
Version 0.1:
~Made a Whole Main Script
~Added SRL
~MultiPlayer Support
~AntiBan
Version 0.2:
~Added a New Path To Flax Field
~More AntiBan
~More FailSafes
~Fixed Loads Of AntiRandom Related Stuff
~Found More Bugs
~Little Tweaking
Version 0.3:
~Added a New Path To Bank
~Some Bugs Fixed
~More Accurate Walking
~BETA Beekeeper Solver
Version 0.4:
~Fixed Few Walking Bugs
~Fixed Beekeeper Antirandom ( Still In BETA )
_____ _ _ _
|_ _| | | | | (_)
| | _ __ ___| |_ _ __ _ _ ___| |_ _ ___ _ __ ___
| || '_ \/ __| __| '__| | | |/ __| __| |/ _ \| '_ \/ __|
_| || | | \__ \ |_| | | |_| | (__| |_| | (_) | | | \__ \
\___/_| |_|___/\__|_| \__,_|\___|\__|_|\___/|_| |_|___/
- Use Normal RS Client
- Low Population World
- Low Quality
- CrossHair RS Screen
- Fill Setup
- Start Script In Seers Bank
- Watch Couple Trips, Before Leaving
- Post Bugs, Progress Reports And Suggestions In Main Thread
___ _
/ __> ___ _| |_ _ _ ___
\__ \/ ._> | | | | || . \
<___/\___. |_| `___|| _/
|_| }
Const
StartPlayer = 0; // Determines Who Will Play First
Loads = 172; // Number Of Trips Before Switching Player ( Bank To Flax Field And Back )
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := StartPlayer; // CurrentPlayer = Array Index
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := ''; // Few letters From Your Name
Players[0].Skill := ''; // LampSkill
Players[0].Active := True; // If You use This Player Set True
Writeln(IntToStr(HowManyPlayers) + ' Players');
end;
Const
Ver = 'Infinity'; // Version ( Don't Touch )
//************************************************************************//
//************************************************************************//
procedure PlayerStats;
var
Sec, i: Integer;
begin
cst := getsystemTime;
srt := (cst - sst) / 1000;
tih := srt / 3600;
tim := (srt / 60) - tih * 60;
tis := srt - tim * 60 - tih * 3600;
awt := wet - wst
Sec := GetTimeRunning div 1000 + 1;
Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
Writeln(' Home Flax'#39's Gardener ' + (Ver) + ' 0.4');
Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
writeln('Name : ' + Players[CurrentPlayer].Name);
writeln('Number : ' + inttostr(CurrentPlayer));
Writeln('Travelled : ' + IntToStr(Players[CurrentPlayer].banked) + '/' + IntToStr(Loads) + ' Trips To Field. ');
Writeln('Flax/Hour : ' + IntToStr(Round(3600 * FlaxPicked / Sec)))
Writeln('Worked : ' + inttostr(tih) + ' Hours, ' + inttostr(tim) + ' Mins, ' + inttostr(tis) + ' Secs.');
If (AmtBee>0) Then
Writeln('BeeKeepers : '+IntToStr(AmtBee));
Writeln('Active : ' + BoolToStr(Players[CurrentPlayer].Active));
Writeln('Time : ' + TheTime)
writeln('**********************************************');
for i := 0 to HowManyPlayers - 1 do
begin
Writeln((inttostr(i)) + ': ' + Players[i].name + ' = ' + BoolToStr(Players[i].Active) + '. - B :' + inttostr(Players[i].Banked) + ' Times.' + ' - : ' + ' - Loc: ' + Players[i].loc);
Writeln('**********************************************');
end;
end;
//************************************************************************//
procedure ProgressReport;
begin
begin
SRLRandomsReport;
Writeln(' ');
end;
PlayerStats;
end;
procedure AutoColorTree;
begin
if ( TreeSymb = 0 ) then
begin
MarkTime(Colorshitty);
repeat
If(not(FindSymbol(x,y,'tree')))then writeln('Could Not Get Tree Color, Restart Script');
TreeSymb:=GetSymbolColor(x, y, 'tree');
Wait(50+random(50))
if TimeFromMark(Colorshitty)>12000 then
begin
writeln('Could Not Get Tree Color, Restart Script');
TerminateScript;
end;
if (not(Loggedin)) then
break;
until (not(TreeSymb=0));
writeln('Tree Color: '+IntToStr(TreeSymb)+' ;');
end;
end;
procedure AutoColorMMFlax;
var
Tol,Bx,By,BaseColor:integer;
begin
If(Flax = 11884646) Then Begin
BaseColor:=11884646;
tol:=-1;
repeat
tol:=tol+1;
until(FindColorTolerance(Bx,By,BaseColor,576, 26,MMX2,MMY2,tol))Or(Tol>50);
Flax:=GetColor(Bx,By);
writeln('MM Flax Color: '+IntToStr(Flax)+' ;');
end;
end;
procedure FindRandoms;
begin
if (not (LoggedIn)) then
Exit;
ColorToleranceSpeed(0);
if FindFight then RunAway('W',True,1,10000+Random(4000));
FindNormalRandoms;
end;
function InBeeKeeper: Boolean; // Creds n3ss3s
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 bkDtms;
begin
bk1:= DTMFromString('78DA637CCFC0C010C08002AE5FBAC8C00FA41' +
'9A17CC63740C20E55CDC553A750D5DC02129EA86A5E3C7D8AAAE6' +
'2C9088475573E7FA755435DC40561CAA9A2533A6A3AA01B1BC50D' +
'5ECDEB001450D004BC013DD');;
bk2:=DTMFromString('78DA639CC8C0C010C880020EEDDCC1C00FA41' +
'9A17CC6D3986AD62C5880AA662990484355B36BE3465435AB31D5' +
'6C5FB31A55CD464C355B56AE4055B30D53CDBA850B51D59C0712E' +
'9A86A66F6F761AA89425533A1AD0D554D2FA69A5DEBD7A3AAE9C3' +
'74CFD1BD7B51D4000064E81F19');
bk4:= DTMFromString('78DA63BCCBC0C060C780028EEDDBC7C00FA41' +
'9A17C460920CB0155CD9A050B50D5480359EEA86AA67476A2AAB9' +
'0524DC50D56C5BB31A55CD43201185AAE6C0F66DA86A8481AC105' +
'4353BD6AE4155F3034878A0AA59347D3A8A1A0009451441');
bk3:=DTMFromString('78DA63DCC8C0C050C880020EEEDCC1C00FA41' +
'9A17CC63740221F55CDDA850B51D5BC071215A86AA67476A2AAB9' +
'0E249A51D5CCECEF4355730E4834A0AA1115124255B31648B4A1A' +
'AD9B97E1DA67B5A51D5CC993811450D0020E41535');
end;
procedure bkSetup;
begin
bkDtms;
AmtBee:=0;
end;
function OpenWin:boolean;
Var BeeTim :integer;
begin
BeeTim:=0;
If(Not(LoggedIn)) Then Exit;
Wait(2000+Random(2000))
MakeCompass('E');
Wait(500+Random(500))
SetAngle(True);
Wait(1000+Random(1000))
Repeat
if FindObjCustom(x, y, ['Bee keeper','keeper'],
[14737636,8027012,11843006], 15) then
Mouse(x,y,0,0,False);
Wait(100+Random(100))
BeeTim:=BeeTim+1;
If(BeeTim>5) Then LogOut;
If(Not(LoggedIn)) Then Exit;
Until(Chooseoption('Talk'))
BeeTim:=0;
wait(10);
Flag;
MMouse(296, 447,10,1);
wait(1000+random(100));
MarkTime(bkm);
while(FindColor(x,y,16777215,23, 437,394, 461) and (TimeFromMark(bkm)<30000)) do begin
Mouse(296, 447,10,1,true);
wait(1000+random(200));
end;
Result:=true;
wait(1000+random(500));
end;
procedure DoneBk;
begin
If(Not(LoggedIn)) Then Exit;
MMouse(254, 270,3,3);
getmousepos(x,y);
wait(200+random(100));
Mouse(x,y,0,0,true);
wait(1000);
MarkTime(bkm);
repeat
wait(100);
until(FindColorTolerance(x,y,FlaxMS,MSX1,MSY1,MSX2,MSY2,20)or(FindColorSpiraltolerance(x, y, Flax, MMX1,MMY1,MMX2,MMY2, 16))
Or
(TimeFromMark(bkm)>20000));
If(TimeFromMark(bkm)>20000)Then LogOut;
Wait(1000+random(500));
WriteLn('Beekeeper Solved!');
AmtBee:=AmtBee+1;
end;
function FindPiece(piece:integer):boolean;
var
fpMark:longint;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Finding Piece')
MarkTime(fpMark);
repeat
wait(100);
if(TimeFromMark(fpMark)>23000) then Exit;
until(FindDtm(piece,px,py,23, 29 ,426, 224));
Result:=True;
end;
function ClickPiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(not(FindPiece(piece))) then Exit;
Mouse(px+10,py+5,1,1,true);
wait(2000+random(500));
Result:=True;
end;
procedure ClickArrow(arrow:integer);
begin
If(Not(LoggedIn)) Then Exit;
if(arrow=1) then Mouse(141, 275,5,5,true);
if(arrow=2) then Mouse(194, 269,5,5,true);
if(arrow=3) then Mouse(314, 273,5,5,true);
if(arrow=4) then Mouse(361, 271,5,5,true);
end;
function MovePiece(mx,my,piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(not(ClickPiece(piece))) then Exit;
Result:=True;
while(px<mx) do begin
ClickArrow(4);
Wait(1000+Random(100))
px:=px+15;
end;
while(py<my) do begin
ClickArrow(2);
Wait(2000+Random(100))
py:=py+15;
end;
while(px>mx+16) do begin
ClickArrow(3);
Wait(2000+Random(100))
px:=px-15;
end;
while(py>my+16) do begin
ClickArrow(1);
Wait(2000+Random(100))
py:=py-15;
end;
end;
function FixPiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(piece=1) then begin
Result:=MovePiece(84, 62,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(61, 165,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(350, 47,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(350, 158,bk4);
end;
end;
function SolvePiece(piece:integer):boolean;
begin
If(Not(LoggedIn)) Then Exit;
if(piece=1) then begin
Result:=MovePiece(244,29,bk1);
end;
if(piece=2) then begin
Result:=MovePiece(222,82,bk2);
end;
if(piece=3) then begin
Result:=MovePiece(224,141,bk3);
end;
if(piece=4) then begin
Result:=MovePiece(224,190,bk4);
end;
end;
function FixPieces:boolean;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Fixing Pieces')
if(not(FixPiece(2))) then Exit;
if(not(FixPiece(4))) then Exit;
if(not(FixPiece(3))) then Exit;
if(not(FixPiece(1))) then Exit;
Result:=True;
end;
function MovePieces:boolean;
begin
If(Not(LoggedIn)) Then Exit;
Writeln('Moving Piece To Correct Location')
if(not(SolvePiece(2))) then Exit;
if(not(SolvePiece(4))) then Exit;
if(not(SolvePiece(3))) then Exit;
if(not(SolvePiece(1))) then Exit;
Result:=True;
end;
procedure SolveBeeKeeper;
begin
If(Not(LoggedIn)) Then Exit;
OpenWin;
if(not(FixPieces)) then begin
WriteLn('ErrorS olving Beekeeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
if(not(MovePieces)) then begin
WriteLn('ErrorS olving Beekeeper, Trying Again');
Mouse(497, 17,3,3,true);
SolveBeeKeeper;
end;
DoneBk;
end;
function BeeKeeper:boolean;
begin
If(Not(LoggedIn)) Then Exit;
WriteLn('We Are In Beekeeper Area, Looking For Beekeeper');
wait(3000+random(200));
if(InBeekeeper) then begin
WriteLn('Found Beekeeper, Trying To Solve');
Result:=True;
SolveBeeKeeper;
end;
end;
procedure AlignMM(Direction: Char);
var DTM, x, y, i: integer;
acc: extended;
begin
MakeCompass(Direction)
DTM := DTMFromString('78DA634C676260086240016F9F7C641001D28' +
'C40FC1F0818416AFC71AB0101B09A7022D44413A1C60BBF1A009F' +
'1015DF');
wait(50)
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if (acc < 0.1) and (acc > -0.1) then
exit
else
begin
repeat
if FindDtmRotated(DTM, x, y, MMX1, MMY1, MMX2, MMY2, radians(-40), radians(40), 0.01, acc) then
begin
if acc < 0 then
begin
KeyDown(VK_RIGHT)
Wait(20 + random(10))
KeyUp(VK_RIGHT)
end;
if acc > 0 then
begin
KeyDown(VK_LEFT)
Wait(20 + random(10))
KeyUp(VK_LEFT)
end;
if acc = 0 then break;
end else
exit;
wait(20)
Inc(i)
until (((acc < 0.1) and (acc > -0.1)) or (i > 25))
end;
end else MakeCompass(Direction);
freeDtm(DTM)
end;
procedure WalkFlax;
Var M :Integer;
begin
if (not (LoggedIn)) then
Exit;
M:=0;
if (FindSymbolIn(x, y, 'tree', 639, 33, 688, 107)) then
Mouse(x, y - 5, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 595, 50, 633, 109))or(FindColorTolerance(x, y, TreeSymb, 597, 71, 638, 106,10)) then
Mouse(x+15, y - 45, 2, 2, True);
SetRun(True)
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 591, 109, 626, 162))or(FindColorTolerance(x, y, TreeSymb, 596, 55, 644, 84,10)) then
Mouse(x+60, y - 60, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 626, 29, 687, 104)) then
Mouse(x + 30 + Random(5), y + 25 + Random(5), 2, 2, True);
FFlag(5)
AutoColorMMFlax;
repeat
Wait(10 + Random(10))
if (not (LoggedIn)) then Exit;
FindRandoms;
until (FindColorSpiraltolerance(x, y, Flax, 582, 35, 738, 152, 15))
repeat
M:=M+1;
Mouse(x + 5, y + 5, 3, 3, true)
Wait(100 + random(100))
FindRandoms;
if (not (Loggedin)) then
break;
until (FlagPresent)Or(M>50)
Wait(3000 + Random(2000))
SetRun(False)
MMouse(224, 208, 25, 25)
FFlag(0);
end;
procedure WalkFlax2;
Var M :Integer;
begin
if (not (LoggedIn)) then
Exit;
M:=0;
if (FindSymbolIn(x, y, 'tree', 639, 33, 688, 107)) then
Mouse(x + 5 , y + 5, 2, 2, True);
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 595, 50, 633, 109))or(FindColorTolerance(x, y, TreeSymb, 597, 71, 638, 106,10)) then
Mouse(x+50, y +15, 2, 2, True);
SetRun(True)
FFlag(5);
if (FindSymbolIn(x, y, 'tree', 553, 56, 592, 96))or(FindColorTolerance(x, y, TreeSymb, 53, 56, 592, 96,10)) then begin
Repeat
If(Not(LoggedIn)) Then Exit;
M:=M+1;
Mouse(x+100, y -20, 2, 2, True);
FindRandoms;
Until(M>5)Or(FlagPresent)
M:=0;
FFlag(10)
AutoColorMMFlax;
repeat
Wait(10 + Random(10))
if (not (LoggedIn)) then Exit;
FindRandoms;
until (FindColorSpiraltolerance(x, y, Flax, 582, 35, 738, 152, 15))
repeat
M:=M+1;
Mouse(x + 5, y + 5, 3, 3, true)
Wait(100 + random(100))
if (not (Loggedin)) then
break;
until (FlagPresent)Or(M>50)
Wait(3000 + Random(2000))
SetRun(False)
MMouse(224, 208, 25, 25)
FFlag(0);
end;
end;
procedure CoordFlax;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-25, y-10, 2, 2, true);
end;
procedure CoordFlax2;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-80, y-5, 2, 2, true);
end;
procedure CoordFlax3;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-25, y+40, 2, 2, true);
if GetMMLevels('run', NR) > 70 - Random(10) then
SetRun(True);
FFlag(1);
end;
procedure CoordFlax4;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=575;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 30));
Mouse(x-80, y+65, 2, 2, true);
FFlag(1);
end;
procedure WalkBank;
Var N,K,L :integer;
begin
if (not (LoggedIn)) then
Exit;
K:=0;
L:=0;
N:=0;
FindRandoms;
CoordFlax; // Bai Bai Blind Click ;) ?
Wait(12500) // Looks Stupid I Know :P
FFlag(2)
CoordFlax2;
if GetMMLevels('run', NR) > 70 - Random(10) then
SetRun(True);
FFlag(2)
Repeat
N:=N+1;
Wait(50+Random(50))
If(Not(LoggedIn)) Then Exit;
until(FindSymbolIn(x, y, 'tree', 622, 47, 672, 90))Or(FindColorTolerance(x, y, TreeSymb, 622, 47, 672, 90,10))Or(N>10)
if (FindSymbolIn(x, y, 'tree', 622, 47, 672, 90))Or(FindColorTolerance(x, y, TreeSymb, 622, 47, 672, 90,10)) then
begin
Repeat
L:=L+1;
Mouse(x - 70, y + 57, 2, 2, True);
Until(L>5)Or(FlagPresent)
If(L>5) Then LogOut;
FFlag(2)
Repeat
if (FindSymbolIn(x, y, 'tree', 612, 99, 648, 155))then
Mouse(x-45, y+10+Random(5), 2, 1, True);
Wait(100+Random(100))
Until(Not(LoggedIn))Or(FlagPresent)
MMouse(223, 197, 45, 45)
FFlag(1)
end;
end;
Procedure WalkBank2;
var N :Integer;
Begin
N:=0;
If(Not(LoggedIn)) Then Exit;
CoordFlax3;
CoordFlax4;
Repeat
X:=567
Y:=42
N:=N+1;
Wait(50+Random(50))
If(Not(LoggedIn)) Then Exit;
until(FindSymbolIn(x, y, 'tree', 565, 60, 597, 108))Or(FindSymbolIn(x, y, 'tree', 577, 29, 612, 76))Or(N>10)
X:=567
Y:=42
if (FindSymbolIn(x, y, 'tree', 564, 37, 629, 103)) then
Mouse(x-5,y+10,1,1,True);
FFlag(2)
Repeat
if (FindSymbolIn(x, y, 'tree', 617, 56, 645, 103)) then
Mouse(x-45, y+10+Random(5), 1, 2, True);
Wait(100+Random(100))
Until(Not(LoggedIn))Or(FlagPresent)
MMouse(151, 185, 45, 45)
FFlag(1)
end;
procedure TalkSomething;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(35);
if (p = 4) then
begin
case Random(45) of
0: TypeSend('hi all');
1: TypeSend('sigh');
2: TypeSend('hellooo');
3: TypeSend('hay');
4: TypeSend('' + IntToStr(800 + Random(1200)) + ' more');
5: TypeSend('i hate those dam botters');
6: TypeSend('boring');
7: TypeSend('blaaaaahhh');
8: Wait(1);
9: TypeSend('booooooooring');
10: TypeSend('yay');
11: TypeSend('ouch');
12: PickUpMouse;
13: TypeSend('blah.');
14: TypeSend('quiet');
15: TypeSend('bam');
16: PickUpMouse;
17: PickUpMouse;
18: TypeSend('bleh');
19: PickUpMouse;
20: TypeSend('argh !');
end;
end;
end;
procedure RandomGameTab;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(50);
if (p = 20) then
begin
GameTab(1+random(11));
Wait(500+Random(500))
GameTab(4);
end;
end;
procedure PickStyle;
var
U, P: Integer;
begin
if (not (LoggedIn)) then
Exit;
U := 0;
p := 1 + Random(30);
if (p = 4) then
begin
Mouse(x, y, 1, 1, False);
repeat
if (not (LoggedIn)) then
Exit;
wait(50+Random(25))
U := U + 1;
until (ChooseOption('Pick')) or (U > 10)
end
else
Mouse(x, y, 1, 1, True)
end;
procedure PickFlax;
begin
if (not (LoggedIn)) then
Exit;
RandomGameTab;
X:=100;
Y:=150;
repeat
MouseSpeed := 13 + random(3);
ColorToleranceSpeed(2);
if FindObj(x, y, 'lax', FlaxMs, 20) then
PickStyle;
ColorToleranceSpeed(0);
FindRandoms;
FFlag(0);
Wait(200+Random(120));
FindTalk;
until (InvFull) or (not (LoggedIn) or (FindDead)) or (InBeeKeeper);
if InBeeKeeper then
begin
Beekeeper;
Writeln('Beekeeper!')
Players[CurrentPlayer].Loc := 'Beekeeper';
if (FindDead) then
LogOut;
Exit;
end;
end;
procedure OpenBank4;
var
x, y, fs, fs2: Integer;
begin
Players[CurrentPlayer].Loc := 'Bank';
begin
if (not (LoggedIn)) then
Exit;
X:=100;
Y:=150;
ColorToleranceSpeed(2)
if (BankScreen) then Exit;
repeat
if FindObjCustom(x, y, ['se', 'oth', 'us', 'Use ', 'ooth', 'Boo'],
[3167333, 10266541], 10) then
Mouse(x, y, 4, 4, False);
wait(50)
Fs2 := Fs2 + 1;
until (ChooseOption('quickly')) or (Fs2 > 1)
FFlag(0);
repeat
Wait(100 + random(10));
fs := fs + 1;
until (BankScreen) or (fs >= 50) or (not (Loggedin))
end;
ColorToleranceSpeed(0)
Fs := 0;
Fs2 := 0;
end;
procedure CloseBankAntiBan;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 3) then
CloseBank;
end;
procedure WholeBank; // I Wan't To Be Sure :P
begin
If(Not(LoggedIn)) Then Exit;
FindRandoms;
if not BankScreen then
OpenBank4;
if not BankScreen then
OpenBankFast('lb');
if not BankScreen then
OpenBankFast('db');
Wait(100+Random(100))
DepositAll;
CloseBankAntiBan;
end;
procedure DoAlign;
begin
if (not (LoggedIn)) then
Exit;
MakeCompass('E')
SetAngle(True);
AlignMM('E')
TalkSomething;
end;
procedure ChoosePath;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 4) then
begin
WalkFlax;
end
else
WalkFlax2;
end;
procedure ChoosePathBack;
var
P: Integer;
begin
if (not (LoggedIn)) then
Exit;
p := 1 + Random(7);
if (p = 3) then
begin
WalkBank;
end
else
WalkBank2;
end;
procedure Ending;
begin
CloseBank;
Wait(100 + random(100))
repeat
LogOut;
Disguise(' Logging Out ');
Wait(1000 + random(500))
until (not (LoggedIn));
Wait(1000 + random(5000))
NextPlayer(True);
Disguise(' Next Player ');
end;
Procedure SetupPlayer;
Begin
LoginPlayer;
SetGraphics(4, '', '' ,'', '', '', '', '', '');
Retaliate(False);
SetAudio(0, 0, 0, Mono);
SetChat('on',1);
SetChat('friends',2);
SetChat('on',3);
End;
begin
Disguise('Home Flax'#39's Gardener ' + (Ver) + ' 0.4');
SetupSRL;
DeclarePlayers;
Wait(100);
SmartSetupEx(112, true, true, false);
Wait(100 + random(200));
SetTargetDC(SmartGetDC);
Wait(200 + random(100));
Flax := 11884646;
FlaxMS := 940041;
BankSymb:=0;
TreeSymb := 0;
FlaxPicked := 0;
ClearDebug;
SymbolAccuracy := 0.4;
//Tih := 0;
sst := GetSystemTime;
// SetupPlayer;
bkSetup;
repeat
MouseSpeed := 13 + random(3);
AutoColorTree;
DoAlign;
ChoosePath;
PickFlax;
ChoosePathBack;
WholeBank;
Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
FlaxPicked := FlaxPicked + 28;
Disguise(IntToStr(Players[CurrentPlayer].banked) + '/' + IntToStr(Loads) + ' [ ' + IntToStr(Players[CurrentPlayer].banked * 28) + ' ]');
ProgressReport;
if (Players[CurrentPlayer].Banked mod Loads = 0) then
Ending;
if (not (Loggedin)) then
NextPlayer(false);
until (False);
end.
Thanks mate :P I was not able to do it... No Scar and i'm not very into to SMART anyways
~Home
Banned
Heh, no problem.
I love your script though
8k flax done with it.
Senior SRL Member
Progrss reportsHeh, no problem.
I love your script though
8k flax done with it.
~Home
P.S And suggestions
Senior SRL Member
Well info about Flax Spinning, i don't have Rs Member account atm :P
But mabey someday i'll add it
~Home
Banned
I let you get mine.
Senior SRL Member
Heh, thanks atm i'm with my Gf so i'll be taking a little break =)I let you get mine
I might even make a reflection one ( For very high speed
~Home
SRL Junior Member
I hope you'll make a reflection one.
SRL Junior Member
For some reason not working for me no more... Picks like 4 flax and just stops
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
