Please make SMART version for this :D
If it's easy, sorry, but I haven't script in a while =/
Printable View
Please make SMART version for this :D
If it's easy, sorry, but I haven't script in a while =/
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.
Quote:
Originally Posted by Da 0wner
Thanks mate :P I was not able to do it... No Scar and i'm not very into to SMART anyways :)
~Home
Heh, no problem.
I love your script though :).
8k flax done with it.
Progrss reports :)Quote:
Originally Posted by Da 0wner
~Home
P.S And suggestions ;)
Well info about Flax Spinning, i don't have Rs Member account atm :P
But mabey someday i'll add it :)
~Home
I let you get mine :D.
Heh, thanks atm i'm with my Gf so i'll be taking a little break =)Quote:
Originally Posted by Da 0wner
I might even make a reflection one ( For very high speed ;) )
~Home
I hope you'll make a reflection one.
For some reason not working for me no more... Picks like 4 flax and just stops
That's very odd.. And you are in RS, and Low Qaulity and etc ? There is always someone who's doesn't work :P
Send me some more info, i check am i able to help
Simen:
Ya, i will probaly make a Reflection one with spinning =)
( And i will make it Fast one ;) )
~Home
Yes I've done everything...it used to work now it ends cause says can't find treecolor I beleive.
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flax's Gardener Infinity 0.4
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : ************
Number : 1
Travelled : 128/500 Trips To Field.
Flax/Hour : 831
Worked : 4 Hours, 20 Mins, 48 Secs.
Active : True
Time : 03:59:06 PM
**********************************************
btw it was still going but i had to do stuff with my computer but nice script man!
and if u dont mind could i add smart to it?
Quote:
Originally Posted by trentuno30
Sure add if you wan't, and grat to see comments :)
( Thanks for Prog )
~Home
Works flawlessly, will post a proggie later.
A New Flax's Gardener Ultimate ( Flax Picking And Spinning ) [ Reflection ]
Home's Flax Gardener Ultimate 0.5
~Home
been testing the new reflection one, works great, but sometimes sets the player to false when you unminimise smart, ran for an hour or so before it did that, I lost the proggy because i restarted it, but it works great.
2 things tho
1- in the proggy the timer doesnt display how long it ran for in the new version
2-very small bug, once it went too far south and logged out with a runtime error, not sure why, but it's nothing big, just reporting it incase :D
Quote:
Originally Posted by tazzin44
Hey most of those are fixed( Some of my antibans had a Activateclient) and then it will loose focus to SMART, and that other thing should be fixed now :)
~Home
Quote:
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flax's Gardener Infinity 0.4
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : **********
Number : 0
Travelled : 25/400 Trips To Field.
Flax/Hour : 797
Worked : 0 Hours, 52 Mins, 58 Secs.
Active : True
Time : 12:46:25 AM
Both stopped by me because I had other things to do.Quote:
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flax's Gardener Infinity 0.4
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : *********
Number : 0
Travelled : 50/400 Trips To Field.
Flax/Hour : 769
Worked : 1 Hours, 49 Mins, 17 Secs.
Active : True
Time : 11:17:38 AM
I don't recommend doing it for that long though, there wasn't that long between them and Jagex obviously noticed and they 10 day banned me. Awesome script just my overusing it.
Mabey i'll add more antiban in it and mabey sleeping option :)Quote:
Originally Posted by loony383
But thanks for feedback :)
~Home
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : 1 def maulz
Number : 0
Travelled : 28/2000 Trips To Field.
Flax/Hour : 720
Worked : 1 Hours, 5 Mins, 17 Secs.
Active : True
Time : 11:10:58 AM
**********************************************
LOVE THIS THING lol
Makes me loads on my obby mauler
I'm very pleased that you like it, please check my Flax Picker Ultimate =)Quote:
Originally Posted by musthavershacks
~Home
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flax's Gardener Infinity 0.4
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name :
Number : 0
Travelled : 24/400 Trips To Field.
Flax/Hour : 793
Worked : 0 Hours, 50 Mins, 45 Secs.
Active : True
Time : 12:07:04 PM
**********************************************
0: = True. - B :24 Times. - : - Loc: Bank
**********************************************
1: = False. - B :0 Times. - : - Loc:
**********************************************
i know it may be grave digging, but it still works! =D
Heh i know, Scripts like these will work very long :) But really no one uses it :/ If it would get more popular or people would suggest more stuff :) I would add them :)Quote:
Originally Posted by akwardsaw
~Home
i use almost everyday still. =p once i fixed up for new update i use on pure almost everyday.
Yeah, me too. I need to pick 20k flax so this is perfect ;) Will edit this post when i get a good proggy.
I might be using this very soon :) Got some money i need to make on my zerker pure.
im going to use this, will add a sleeping feature for my self and if you would want , I can give to you :)
thing is... when you sleep it gets 1 account to run longer w/o randoms... I doubt people have army in p2p for this script, so sleeping=longer running :)
Could any confirm if this is still working for me, please? :)
it hasnt been kept up to date with the update. you could update yourself or try using my script.Quote:
Originally Posted by MineOrChop
http://www.villavu.com/forum/showthread.php?t=48350
Line 453: [Error] (21083:11): Duplicate identifier 'SOLVEBEEKEEPER' in script C:\Users\FrEaK\Desktop\scarprerelease\Scripts\Home Flax's Gardener Infinity 0.4.scar
Thats an Error I get when compiling
Woops I see the post above now sorry Im tired
Home, PM staff once you start updating this again.