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 :).
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.