SRL Archive - RS3 Outdated / Broken Scripts

just to stop people from spamming this thread with errors

well Home wont update his script so i have decided to update it instead

i have kept posting this script after nearly each of my posts in his last thread and i got bored so i decided to make a new thread.

when i update the updates will be posted here not in Home's thread



the longest 3 proggys will be posted here:

from 13om13e12

++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Home Flaxs Gardener Eternity Universal Edition 0,25.
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : *****
Number : 0
Travelled : 188/2500 Trips To Field.
Worked : 8 Hours, 49 Mins, 58 Secs.
BeeKeepers : 1
Active : True
Time : 02:49:51 AM
**********************************************
0: ***** = True. - B :188 Times. - : - Loc:
**********************************************

from Sneakdella

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flaxs Gardener Eternity Universal Edition 0,3.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ****
Number     : 0
Travelled  : 56/2500 Trips To Field. 
Worked     : 4 Hours, 52 Mins, 48 Secs.
Active     : True
Time       : 3:22:13 A.M.
**********************************************
0: ****= True. - B :56 Times. -  :  - Loc: 
**********************************************

from Shroomsday

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flaxs Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
Name : Blahblah1234
Number : 0
Travelled : 50/90000 Trips To Field.
Worked : 4 Hours, 36 Mins, 47 Secs.
Active : True
Time : 05:43:03 PM
**********************************************
0: *****= True. - B :90 Times. -  :  - Loc: 
**********************************************

i hope you all enjoy that i have fixed it

KNOWN BUGS

it sometimes gets stuck on its way back to the bank as it runs up the side of the bank instead of inside it (but it doesn't happen very often)



there are three versions of the script

the first one (Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu.scar) is just the normal script where you have to use a internet browser like IE or firefox

the second (Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu SMART.scar) one is for normal smart

and the third one (Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu modified SMART.scar) is for the people who have modified their srl like in this post http://www.villavu.com/forum/showthread.php?t=21279

and remember to post any bugs

well the script is below

Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu.scar (39.3 KB, 54 views)
Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu modified SMART.scar (38.4 KB, 37 views)
Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu SMART.scar (38.6 KB, 30 views)
Flax Gardener Eternity Universal Edition 0,26 fixed by shuttleu.scar (39.9 KB, 34 views)
Flax Gardener Eternity Universal Edition 0,26 fixed by shuttleu SMART.scar (39.7 KB, 40 views)
Flax Gardener Eternity Universal Edition 0,26 fixed by shuttleu modified SMART.scar (40.0 KB, 36 views)

NEXT VERSION

hopefully a spinner

~shut

Meh, i just wanted to post my fix lol, well here is my fix:

{  _
_|_ |    __  \_'      __   __   __   __|  ___   __   ___   __
 |  |_, (__( / \     (__| (__( |  ' (__| (__/_ |  ) (__/_ |  '
                      __/

}

program Flax_Gardener_Eternity_Universal_026;//THIS VERSION WAS FIXED BY U L T R A. :).

{    _
   _|_  ___   __  _|_         __   ___    __
    |  (__/_ (__(  |_, (__(_ |  ' (__/_ __)

~Very Good Walking
~Overnight Running With Single Player
~Fail Safes
~Lot Of Random Checking
~Working Beekeeper
~Fast Banking
~AntiBan
~AutoColor


{

o  __  _|_   __         __  _|_  o  __   __    __
| |  )  |_, |  ' (__(_ (___  |_, | (__) |  ) __)
                                                     }
// ~SRL Rev #10
// ~Scar 3.12
// ~Fill Setup
// ~Rs Low Detail, Normal Client
// ~Low Populated World
// ~V-Bright
// ~Start At Anywhere In Seers Bank

// NOTE: Always Check For Couple Trips, If Something Messes Change World And Re-Run !

{.include SRL/SRL.scar}

// Variables

var
P,Bankers,X,y, wet,Boo, cst,Nf,AmtBee, Flax,A,ColorMark, Colorshitty, FlaxPicked, Direction, FlaxMS, tis, wst,
  tim, awt, tih, srt, sst, TreeSymb: integer;
 
 {      _____   _____   _____   _   _   _____
       /  ___/ | ____| |_   _| | | | | |  _  \
       | |___  | |__     | |   | | | | | |_| |
       \___  \ |  __|    | |   | | | | |  ___/
        ___| | | |___    | |   | |_| | | |
       /_____/ |_____|   |_|   \_____/ |_|    }
 
const
 
 StartPlayer = 0; // Determines Who Will Play First
 
 Loads = 80; // Number Of Trips Before Switching Player ( Bank To Flax Field And Back )
 
 YourSRLID=''; // Your SRL ID For The Stats (Leave Blank To Set It To Default, From SetupSRL.scar)
 YourSRLPASS=''; // Your SRL ID For The Stats (Leave Blank To Set It To Default, From SetupSRL.scar)
 
 

 
 
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].Booleans[0]:=True; // Set True If You Wan't Your Account To Run Always ( Use If High Agility )
 Players[0].Skill:='agility'; // LampSkill
 Players[0].Active:=True; // If You use This Player Set True

 Writeln(IntToStr(HowManyPlayers) +' Players');

end;

//************************************************************************//
const
 VersionNumber='Eternity Universal Edition 0,25'; // Version ( Don't Touch )
 //************************************************************************//
 
//************************************************************************//
 
procedure PlayerStats;
var
 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
 Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
 Writeln('Home Flax'#39's Gardener '+(VersionNumber)+'.');
 Writeln('+++++++++++++++++++++++++++++++++++++++++++++++++++++++ ');
 writeln('Name       : '+Players[CurrentPlayer].Name);
 writeln('Number     : '+inttostr(CurrentPlayer));
 Writeln('Travelled  : '+IntToStr(Players[CurrentPlayer].banked)+'/'+IntToStr(Loads)+' Trips To Field. ');
 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);
 end;
  writeln('**********************************************');
end;

//************************************************************************//

procedure ProgressReport;
begin
 begin
  SRLRandomsReport;
  SendSRLReport;
  Writeln(' ');
 end;
 PlayerStats;
end;




procedure TalkSomeCome;
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: TypeSend('soo boring');
   9: TypeSend('booooooooring');
   10: TypeSend('yay');
   11: TypeSend('ouch');
   12: TypeSend('i like flax lol');
   13: TypeSend('blah.');
   14: TypeSend('quiet');
   15: TypeSend('bam');
   16: TypeSend('flax, flax, flax...');
   17: TypeSend('omg this takes so long');
   18: TypeSend('bleh');
   19: TypeSend('this is the most boring thing ever');
   20: TypeSend('argh !');
  end;
 end;
end;




//-----------------------------------------------//

Var
 Bee: Array[0..3] Of Integer;
 BoxArray: TBoxArray;
 Done: Array[0..3] Of Boolean;

Procedure DeclareDTMs;
Begin
 Bee[3]:=DTMFromString('78DA63DCC6C0C0709D0105AC5DB890811F483'+
  '302F17F20603C0F64BC4555B36CF62CB81A10609C0324DEA1AA59'+
  '3C633AAA9A2940E226AA9A6DAB57A1AAB90C246EA1AA99DCD989A'+
  '20600DCDF158B');
 Bee[2]:=DTMFromString('78DA6364666460F8C08002440405192481345'+
  '086E13F10303E07321EA2AAD9B369135C0D0830CA02590F50D5AC'+
  '9C3B17558D2290F50555CDCCFE3E54354F1830D4EC58BB16450D0'+
  '045CA132D');
 Bee[1]:=DTMFromString('78DA6364656460B8C48002766FDCC8C00FA48'+
  '1320CFF8180F12590710C55CDA15D3BE16A4080F10990B883AAE6'+
  'E89E3DA86A9480ACE3A86A56CD9B8BAA460DC8BA8BAA66D6847E5'+
  '435FF31EDDAB96E2DAA1A5E4CBBB6AC5A89A2060093191BA1');
 Bee[0]:=DTMFromString('78DA639CCDC0C0708701055CBF7491811F483'+
  '302F17F2060AC05329EA3AA7970FB365C0D0830760289CBA86A9E'+
  '3F7982AA662690388DAAE6C2C993A86AD600896BA86AF66DD982A'+
  'A662BA67B56CF9F8FAA660E90788DAA66D7860D286A0066D81EFE'+
  '');
 SetArrayLength(BoxArray, 11);
 BoxArray[0].x1:=0;
 BoxArray[0].y1:=0;
 BoxArray[0].x2:=26;
 BoxArray[0].y2:=338;
 BoxArray[1].x1:=0;
 BoxArray[1].y1:=0;
 BoxArray[1].x2:=515;
 BoxArray[1].y2:=50;
 BoxArray[2].x1:=495;
 BoxArray[2].y1:=31;
 BoxArray[2].x2:=516;
 BoxArray[2].y2:=338;
 BoxArray[3].x1:=19;
 BoxArray[3].y1:=304;
 BoxArray[3].x2:=515;
 BoxArray[3].y2:=337;
 BoxArray[4].x1:=86;
 BoxArray[4].y1:=226;
 BoxArray[4].x2:=516;
 BoxArray[4].y2:=304;
 BoxArray[5].x1:=179;
 BoxArray[5].y1:=28;
 BoxArray[5].x2:=193;
 BoxArray[5].y2:=226;
 BoxArray[6].x1:=325;
 BoxArray[6].y1:=27;
 BoxArray[6].x2:=340;
 BoxArray[6].y2:=226;
 BoxArray[7].x1:=191;
 BoxArray[7].y1:=71;
 BoxArray[7].x2:=326;
 BoxArray[7].y2:=77;
 BoxArray[8].x1:=191;
 BoxArray[8].y1:=123;
 BoxArray[8].x2:=325;
 BoxArray[8].y2:=131;
 BoxArray[9].x1:=191;
 BoxArray[9].y1:=174;
 BoxArray[9].x2:=325;
 BoxArray[9].y2:=185;
 BoxArray[10].x1:=426;
 BoxArray[10].y1:=192;
 BoxArray[10].x2:=516;
 BoxArray[10].y2:=338;
End;

Function ConvertTPAToBox(TPA: TPointArray): TBoxArray;
Var
 i: Integer;
Begin
 SetArrayLength(Result, GetArrayLength(TPA));
 For i:=0 To GetArrayLength(TPA)-1 Do
 Begin
  Result[i].X1:=TPA[i].x-1;
  Result[i].X2:=TPA[i].x+1;
  Result[i].Y1:=TPA[i].y-1;
  Result[i].Y1:=TPA[i].y+1;
 End;
End;

Function AddBoxArray(Box1, Box2: TBoxArray): TBoxArray;
Var
 i: Integer;
Begin
 SetArrayLength(Result, GetArrayLength(Box1));
 For i:=0 To GetArrayLength(Box2)-1 Do
 Begin
  SetArrayLength(Result, GetArrayLength(Result)+1);
  Result[GetArrayLength(Result)-1].X1:=Box2[i].X1;
  Result[GetArrayLength(Result)-1].X2:=Box2[i].X2;
  Result[GetArrayLength(Result)-1].Y1:=Box2[i].Y1;
  Result[GetArrayLength(Result)-1].Y2:=Box2[i].Y2;
 End;
End;

Procedure TalkTo; // Talks to Bee Keeper
Var
 Points: TPointArray;
 i: Integer;
 PointBox: TBoxArray;
Begin
 If (Not(LoggedIn))Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22)) Then
  Exit;
 FindColorsTolerance(Points, 10329514, MSX1, MSY1, MSX2, MSY2, 30);
 PointBox:=ConvertTPAToBox(Points);
 BoxArray:=AddBoxArray(PointBox, BoxArray);
 FindColorsTolerance(Points, 5000274, MSCX+20, MSCY-35, MSCX+65, MSCY+35, 25);
 If (GetArrayLength(Points)=0) Then
  Logout;
 If (Not(LoggedIn)) Then
  Exit;
 For i:=0 To GetArrayLength(Points)-1 Do
 Begin
  MMouse(Points[i].x, Points[i].y, 2, 2);
  Wait(250+Random(450));
  ColorToleranceSpeed(1)
  If (IsUpText('alk')) Then
   Break;
   ColorToleranceSpeed(0)
  If (i=GetArrayLength(Points)-1) Then
  Begin
   Logout;
   Exit;
  End;
 End;
 GetMousePos(x, y);
 Mouse(x, y, 2, 2, true);
 MarkTime(i);
 Repeat
  If (ClickToContinue) Then
   MarkTime(i);
  Wait(1000+Random(1000));
 Until (TimeFromMark(i)>8000);
End;

Procedure MovePiece(Num: Integer);
Begin
 If (Not(loggedIn)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
  exit;
 Case Num Of
  1: MouseBox(138, 279, 159, 292, 1);
  2: MouseBox(191, 268, 209, 284, 1);
  3: MouseBox(303, 281, 328, 288, 1);
  4: MouseBox(357, 283, 380, 289, 1);
 End;
End;

Procedure MoveToCorner(Num: Integer); // Moves each piece to the corner so they aren't overlapping
Var
 p, i: Integer;
Begin
 If (Not(loggedIn)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
  exit;
 Case Num Of
  1:
   Begin
    Repeat
     MovePiece(1);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, MSX2, 80)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, MSX2, 80));
    Repeat
     MovePiece(3);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, 100, 80)) Then
      Begin
       Done[0]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, 100, 80));
   End;
  2:
   Begin
    Repeat
     MovePiece(3);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, 105, MSY2)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, 105, MSY2));
    Repeat
     MovePiece(2);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, MSX1, 190, 105, 230)) Then
      Begin
       Done[1]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, MSX1, 190, 105, 230));
   End;
  3:
   Begin
    Repeat
     MovePiece(1);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, MSX2, 85)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, MSX1, MSY1, MSX2, 85));
    Repeat
     MovePiece(4);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 400, MSY1, MSX2, 85)) Then
      Begin
       Done[2]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 400, MSY1, MSX2, 85));
   End;
  4:
   Begin
    Repeat
     MovePiece(4);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 350, MSY1, MSX2, MSY2)) Then
       Break;
     End;
     p:=p+1;
    Until (p>16+Random(3)+Random(4)); // I call it "quality over perfection" as opposed to "quality of quantity"
    Repeat
     MovePiece(2);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 400, MSY1, MSX2, MSY2))
       Or(Not(FindDTM(Bee[Num-1], x, y, MSX1, MSY1, MSX2, MSY2))) Then
      Begin
       Done[3]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 400, 200, MSX2, 250));
   End;
 End;
End;

Procedure MoveToSpot(Num: Integer); // Moves pieces from the corners to their spots
Var
 i: Integer;
Begin
 If (Not(loggedIn)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
  exit;
 Case Num Of
  1: Mouse(56, 52, 8, 8, true);
  2: Mouse(66, 216, 8, 8, true);
  3: Mouse(436, 67, 8, 8, true);
  4: Mouse(425, 216, 8, 8, true);
 End;
 Case Num Of
  1: Repeat
    MovePiece(4);
    For i:=0 To 5 Do
    Begin
     Wait(100+Random(400));
     If (FindDTM(Bee[Num-1], x, y, 210, 25, 310, 75)) Then
     Begin
      Done[0]:=True;
      Exit;
     End;
    End;
   Until (FindDTM(Bee[Num-1], x, y, 210, 25, 310, 75));
  2:
   Begin
    Repeat
     MovePiece(4);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 210, 195, 310, 240)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 210, 195, 310, 240));
    Repeat
     MovePiece(1);
     For i:=0 To 5 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 210, 80, 310, 125)) Then
      Begin
       Done[1]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 210, 80, 310, 125));
   End;
  3:
   Begin
    Repeat
     MovePiece(2);
     For i:=0 To 4 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 400, 140, MSX2, 175)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 400, 140, MSX2, 175));
    Repeat
     MovePiece(3);
     For i:=0 To 5 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 210, 140, 310, 175)) Then
      Begin
       Done[2]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 210, 140, 310, 175));
   End;
  4:
   Begin
    Repeat
     MovePiece(3);
     For i:=0 To 5 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 210, 185, 310, 245)) Then
       Break;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 210, 185, 310, 245));
    Repeat
     MovePiece(1);
     For i:=0 To 5 Do
     Begin
      Wait(100+Random(400));
      If (FindDTM(Bee[Num-1], x, y, 210, 185, 310, 230)) Then
      Begin
       Done[3]:=True;
       Exit;
      End;
     End;
    Until (FindDTM(Bee[Num-1], x, y, 210, 185, 310, 245));
   End;
 End;
End;

Function FindFirstPiece: TPoint; // Finds a piece that has not been moved yet
Var
 Cur: Integer;
Begin
 Repeat
  If (Not(loggedIn)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
   exit;
  If (FindColorSkipBoxArrayTolerance(x, y, 10329514, MSX1, MSY1, MSX2, MSY2, 30, BoxArray)) Then
  Begin
   // WriteLN('x: ' + IntToStr(x) + ' y: ' + IntToStr(y));
   Cur:=GetColor(x, y);
   Wait(10);
   If (GetColor(x, y)=Cur) Then
   Begin
    SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
    BoxArray[GetArrayLength(BoxArray)-1].x1:=x-1;
    BoxArray[GetArrayLength(BoxArray)-1].x2:=x+1;
    BoxArray[GetArrayLength(BoxArray)-1].y1:=y-1;
    BoxArray[GetArrayLength(BoxArray)-1].y2:=y+1;
   End
   Else
    Break;
  End
  Else
  Begin
   Result.y:=-1;
   Exit;
  End;
 Until (false);
 Mouse(x, y, 2, 2, false);
 Wait(250+Random(450));
 If (ChooseOption('Ok')) Then
 Begin
  Result.x:=x;
  Result.y:=y;
  Exit;
 End
 Else
 Begin
  SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
  BoxArray[GetArrayLength(BoxArray)-1].x1:=x-1;
  BoxArray[GetArrayLength(BoxArray)-1].x2:=x+1;
  BoxArray[GetArrayLength(BoxArray)-1].y1:=y-1;
  BoxArray[GetArrayLength(BoxArray)-1].y2:=y+1;
  Result.x:=-1;
 End;
End;

Function MoveFirstPiece: Integer; // Moves piece to the bottem so it can be identified
Var
 Coord: TPoint;
 i: Integer;
Begin
 If (Not(loggedIn)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
  exit;
 Repeat
  Coord:=FindFirstPiece;
  If (Coord.x>0)And(Coord.y>0) Then
   Break;
  If (Coord.y=0) Then
   MMouse(641, 298, 40, 40);
  Wait(100+Random(1900));
  If (Not(LoggedIn)) Then
   Exit;
 Until (false);
 If (Coord.x<200) Then
 Begin
  MovePiece(4);
  Wait(100+Random(400));
  If (Coord.x<175) Then
  Begin
   MovePiece(4);
   Wait(100+Random(400));
   If (Coord.x<150) Then
   Begin
    MovePiece(4);
    Wait(100+Random(400));
    If (Coord.x<125) Then
    Begin
     MovePiece(4);
     Wait(100+Random(400));
     If (Coord.x<100) Then
     Begin
      MovePiece(4);
      Wait(100+Random(400));
      If (Coord.x<80) Then
      Begin
       MovePiece(4);
       Wait(100+Random(400));
      End;
     End;
    End;
   End;
  End;
 End;
 Repeat
  MovePiece(2);
  For i:=0 To 3 Do
   If (FindDTM(Bee[i], x, y, 60, MSCY+27, MSX2-150, MSY2)) Then
   Begin
    Case i Of
     0:
      Begin
       SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
       BoxArray[GetArrayLength(BoxArray)-1].x1:=25;
       BoxArray[GetArrayLength(BoxArray)-1].x2:=110;
       BoxArray[GetArrayLength(BoxArray)-1].y1:=30;
       BoxArray[GetArrayLength(BoxArray)-1].y2:=100;
      End;
     1:
      Begin
       SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
       BoxArray[GetArrayLength(BoxArray)-1].x1:=25;
       BoxArray[GetArrayLength(BoxArray)-1].x2:=105;
       BoxArray[GetArrayLength(BoxArray)-1].y1:=170;
       BoxArray[GetArrayLength(BoxArray)-1].y2:=225;
      End;
     2:
      Begin
       SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
       BoxArray[GetArrayLength(BoxArray)-1].x1:=385;
       BoxArray[GetArrayLength(BoxArray)-1].x2:=MMX2;
       BoxArray[GetArrayLength(BoxArray)-1].y1:=30;
       BoxArray[GetArrayLength(BoxArray)-1].y2:=115;
      End;
     3:
      Begin
       SetArrayLength(BoxArray, GetArrayLength(BoxArray)+1);
       BoxArray[GetArrayLength(BoxArray)-1].x1:=395;
       BoxArray[GetArrayLength(BoxArray)-1].x2:=MMX2;
       BoxArray[GetArrayLength(BoxArray)-1].y1:=200;
       BoxArray[GetArrayLength(BoxArray)-1].y2:=MMY2;
      End;
    End;
    Result:=i+1;
    WriteLN(IntToStr(i));
    Exit;
   End;
  Wait(100+Random(400));
 Until (Not(LoggedIn));
End;

Function SolveBeeKeeper: Boolean; // Main loop
Var
 i: Integer;
 Sec: Boolean;
Begin
 Sec:=False;
 DeclareDTMs;
 TalkTo;
 Repeat
  i:=MoveFirstPiece;
  MoveToCorner(i);
  If (Done[0]=True)And(Done[1]=True)And(Done[2]=True)And(Done[3]=True) Then
   Break;
 Until (Not(LoggedIn));
 For i:=0 To 3 Do
  Done[i]:=False;
 i:=1;
 Repeat
  MoveToSpot(i);
  i:=i+1;
  If (Done[0]=True)And(Done[1]=True)And(Done[2]=True)And(Done[3]=True) Then
   Break;
 Until (Not(LoggedIn));
 Mouse(257, 279, 4, 4, true); // Clicks build
 For i:=0 To 200 Do
 Begin
 If(Not(LoggedIn))Then Exit;
  Wait(1000+random(100))
  ClickToContinue;
  Wait(1000+random(100))
  ClickToContinue;
  Wait(1000+random(100))
  if (not(GetColor(649, 78)=0)Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22))) Then
  Begin
   Result:=True;
   Break;
  End;
  Wait(100+random(100));
  If (i=200) Then
  Begin
   Mouse(498, 20, 4, 4, true);
   Wait(1000+Random(1000));
   If (Sec) Then
   Begin
    Result:=False;
    Logout;
    Exit;
   End;
   Sec:=True;
   SolveBeeKeeper;
  End;
 End;
End;

Function FindHomeRandoms: Boolean;
Var
 i: Integer;
Begin
 For i:=1 To 11 Do
 Begin
  Case I Of
   1: If SolveChatRandom Then
     Result:=True;
   2: If FindTalk Then
     Result:=True;
   3: If FindTalk Then
     Result:=True;
   4: If FindDead Then
     Result:=True;
   5: If FindQuiz Then
     Result:=True;
   6: If FindTalk Then // Call it twice
     Result:=True;
   7: If FindLamp('agility') Then // Maybe we missed it?
     Result:=True;
   8: If (FindBox) Then
    Begin
     Result:=True;
     If (UseBoxSolver) Then
      SolveBox
     Else
      GambleBox;
    End;
   9: If NoGameTab Then
    Begin
     Result:=True;
      if (GetColor(649, 78)=0) then
     Begin
      Writeln('Found BeeKeeper, Trying To Solve')
      Wait(3000+Random(200));
       If (SolveBeeKeeper) Then
      Begin
       AmtBee:=AmtBee+1
        For p:=0 To 50 Do
       Begin
        Wait(100);
         if (not(GetColor(649, 78)=0))Or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 30)) Then
        Begin
         Wait(3000+Random(3000));
         Writeln('BeeKeeper Solved, At Flax Field')
         ReportVars[2]:=ReportVars[2]+1;
         SendSRLReport;
         Exit;
        End;
       End;
      End;
     End
     Else
      Logout;
      Writeln('BeeKeeper Solver Failed')
      Exit;
    End;
  End;
  If Result Then
   Break;
  Wait(1);
 End;
End;

Procedure FindRandoms;
Begin
ColorToleranceSpeed(0);
 if (not(LoggedIn)) then
  Exit;
 if FindFight then RunTo('S',True);
 FindHomeRandoms;
 FindNormalRandoms;
End;


function FindColorRightTol(var cx, cy: Integer; Color, x1, y1, x2, y2,  // Took From SRL Rev #9
  Tolerance: Integer): Boolean;
var
  BmpCol: T2DIntArray;
  xx, yy: Integer;
begin
  BmpCol := GetBitmapAreaColors(x1, y1, x2, y2);
  for yy := y1 to y2 do
    for xx := x2 downto x1 do
    begin
      Result := SimilarColors(Color, BmpCol[xx - x1][yy - y1], Tolerance);
      if Result then
      begin
        cx := xx;
        cy := yy;
        Exit;
      end;
    end;
end;



procedure FClag(Distance: Integer); // Checks Color While Flag Is On MiniMap.
var
 XK, YK, XL, YL: Integer;
var
 T1, T2: Extended;
begin
 if (not(LoggedIn)) then
  Exit;
 T1:=GetTickCount;
 repeat
  T2:=GetTickCount;
  Wait(100);
  if(FindcolorRighttol(x, y, TreeSymb, 558, 5, 671, 122, 20)) then
   Break;
  Wait(100);
  if T2-T1>30000 then
  begin
   if FindColor(XL, YL, 255, MMX1, MMY1, MMX2, MMY2) then
    MouseFlag(XL, YL, 1, 1)
   else
    Mouse(MMCX, MMCY, 0, 0, True);
   Break;
  end;
  if Random(20)=1 then
   IdleTime(500, 1000, 0.01);
 until (not FindColor(XK, YK, 255, MMX1, MMY1, MMX2, MMY2));
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 Comeon(Col: string);
begin
 if (not(LoggedIn)) then
  Exit;
 repeat
  LogOut;
 until (not(loggedin))
  Writeln('Cant Find Correct '+col);
 Writeln('Player Change')
  NextPlayer(True);
 if (not(Loggedin)) then
  NextPlayer(False);
end;


procedure BagOn;
begin
 if (not(LoggedIn)) then
  Exit;
 case Random(2) of
  0: GameTab(4);
  1: ;
 end;
end;


procedure MMMouse(xs, ys, xe, ye: Integer );
var
  a, b: Integer;
begin
 if (not(LoggedIn)) then
  Exit;
  a := Max(xs, xe) - Min(xs, xe);
  b := Max(ys, ye) - Min(ys, ye);
  a := Random(a);
  b := Random(b);
  MMouse(xs + a, ys + b, 0, 0);
    end;



Procedure RandomR;
Var
 m: Integer;
Begin
 If (Not(LoggedIn)) Then
  Exit;
 m:=MouseSpeed;
 MouseSpeed:=7+Random(2);
 Case Random(7) Of
  0: MMMouse(MIX1, MIY1, MIX2, MIY2);
  1: MMMouse(MSX1, MSY1, MSX2, MSY2);
  2: MMMouse(MMX1, MMY1, MMX2, MMY2);
  3: MMMouse(MIX1, MIY1, MIX2, MIY2);
  4: MMMouse(MSX1, MSY1, MSX2, MSY2);
  5: MMMouse(MIX1, MIY1, MIX2, MIY2);
  6: MMMouse(MSX1, MSY1, MSX2, MSY2);
 End;
 MouseSpeed:=m;
End;

procedure CoordFlax;
var
 B: integer;
begin
 if (not(LoggedIn)) then
  Exit;
MarkTime(ColorMark)
 B:=8;
 repeat
  B:=B+1;
if(TimeFromMark(ColorMark)>10000)Then Exit;
 until (FindColortolerance(x, y, Flax, MMX1, B, MMX2, B, 40));
 Mouse(x-25, y-10, 2, 2, true);
  If (Players[CurrentPlayer].Booleans[0]=False) Then
  SetRun(false);
  GameTab(4);
   MMMouse(MMX1,MMY1,MMX2,MMY2)
 Wait(2000)
  FFlag(1);
end;

procedure CoordTree;
var
 B: integer;
begin
 if (not(LoggedIn)) then
  Exit;
MarkTime(ColorMark)
 B:=8;
 repeat
  B:=B+1;
if(TimeFromMark(ColorMark)>10000)then Exit;
 until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
 Mouse(x, y+80, 1, 1, true);
 FFlag(1);
end;

procedure CoordBank;
var
 B: integer;
begin
 if (not(LoggedIn)) then
  Exit;
MarkTime(ColorMark)
 B:=8;
 repeat
  B:=B+1;
if(TimeFromMark(ColorMark)>10000) then Exit;
 until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
  Mouse(x-10+Random(20), y+35, 1, 1, true);
 FFlag(1);
end;


procedure GoToTree;
var
 B: integer;
begin
 if (not(LoggedIn)) then
  Exit;
MarkTime(ColorMark)
 B:=43;
 repeat
  B:=B+1;
if(TimeFromMark(ColorMark)>10000) then Exit;
 until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
 Mouse(x+25+random(1), y-35, 1, 1, true);
 FFlag(2);
end;

procedure CoordFlaxWest;
var
 B: integer;
begin
 if (not(LoggedIn)) then
  Exit;
MarkTime(ColorMark)
 B:=500;
 repeat
  B:=B+1;
if(TimeFromMark(ColorMark)>10000) then Exit;
 until (FindColortolerance(x, y, Flax, B, MMY1, B, MMY2, 40));
 Mouse(x+4, y-7, 2, 2, true);
 FFlag(2);
end;

procedure WalkFlax;
var
 x, y: Integer;
begin
 if (not(LoggedIn)) then
  Exit;
 CoordTree;
 x:=650;
 y:=121;
 if (FindColorSpiraltolerance(x, y, Treesymb, 607, 52, 676, 112
  , 25)) then
  Mouse(x-6, y+40, 2, 2, True)
 else
ComeOn('Tree Symbol');
 SetRun(True);
 Wait(10+Random(78));
 setrun(true);
 BagOn;
  MMMouse(MMX1,MMY1,MMX2,MMY2)
 Wait(100+random(100))
 FFlag(5);
 if (findcolorspiraltolerance(x, y, treesymb, 597, 84, 629, 121, 20)) then
 begin
  Mouse(x+18+Random(3), y+20+Random(3), 0+
   Random(3), 0+Random(3), True);
 end
 else
 begin
  if (FindColorRightTol(x, y, Treesymb, 578, 112, 740, 164, 20
   )) then
  begin
   Mouse(x+18+Random(3), y+20+Random(3), 0+
    Random(3), 0+Random(3), True);
  end
  else
  begin
LogOut;
  end;
 end;
 FFlag(10+Random(10));
 MarkTime(ColorMark)
 repeat
  Mouse(680, 128, 2, 2, true)
   Wait(100+random(100))
   if (not(Loggedin))or(TimeFromMark(ColorMark)>9000) then
   break;
 until (FlagPresent)
  GameTab(4)
  repeat
  Wait(1000+random(2000))
   if (not(Loggedin)) then
   break;
 until ((FindColorSpiraltolerance(x, y, Flax, 582, 35, 738,
  152, 40)))
  repeat
  Mouse(x, y, 3, 3, true)
   Wait(100+random(100))
   if (not(Loggedin)) then
   break;
 until (FlagPresent)
  FFlag(1);
end;




procedure OutWalk;
begin
 if (not(LoggedIn)) then
  Exit;
 case Random(1) of
  0: CoordFlaxWest;
 end;
end;

procedure GoBank;
var
 x, y: integer;
begin
MouseSpeed:=11+random(2);
 if (not(LoggedIn)) then
  Exit;
 OutWalk;
 CoordFlax;
 if (not(findcolorRighttol(x, y, Treesymb, 558, 5, 671, 122, 20))) then
 begin
 MarkTime(ColorMark)
  repeat
   Mouse(616, 70, 2, 2, True);
   FClag(10);
if(TimeFromMark(ColorMark)>10000)Then Exit;
  until (findcolorRighttol(x, y, Treesymb, 558, 5, 671, 122, 20))
   Mouse(x+27, y+5+random(3),
   0+random(3), 0+random(3), true);
  FFlag(0);
 end
 else
 begin
  Mouse(x+30, y+5+random(3),
   0+random(3), 0+random(3), true);
  FFlag(0);
 end;
 GoToTree;
 x:=647;
 y:=43;
 if (FindColorSpiraltolerance
  (x, y, Treesymb, 607, 26, 715, 103, 10)) then
 begin
  Mouse(x-15, y-22, 1, 1, True);
  Wait(2000+random(400))
   FFlag(5);
  CoordBank;
 end
 else
 begin
  ComeOn('Tree Symbol');
 end;
end;





Procedure RandomChat;
Var
 Text: String;
Begin
 if (not(LoggedIn)) then
  Exit;
 A:=1+Random(32)
  If (A=9)Or(A=20) Then
 Begin
  Begin
   Case random(58) Of
    00: Text:='gah this is so boring';
    01: Text:='i bet ive got more flax then u';
    03: Text:='farming lvls?';
    04: Text:='im going for a million flax!';
    05: Text:='im goin for a billion flax ';
    06: Text:='gah i hate all the dumb noob lvl 3s';
    07: Text:='this is my flax field everyone leave';
    08: Text:='so much flax';
    09: Text:='selling flax in bank only 500 each!';
    10: Text:='free flax!!! haha jk';
    11: Text:='ill kill any1 who steals my flax';
    12: Text:='maybe i should sell this flax now';
    13: Text:='maybe il sell flax on forums';
    14: Text:='ur all noobs';
    15: Text:='boring.....';
    16: Text:='what times it there?';
    17: Text:='asdfghjk;';
    18: Text:='qwertyuiop[]';
    19: Text:='zxcvbnm,./';
    20: Text:='look @ my cards: []]]]]]]]]]]]]]]]]]';
    21: Text:='pick a card []]]]]]]]]]]]]]]]]]]]]]';
    22: Text:='im so sad my cat died today';
    23: Text:='my dog died today ';
    24: Text:='i got a pet dog today =)';
    25: Text:='i have a dog, how bout you?';
    26: Text:='i have a cat, how about you?';
    27: Text:='i got a pet cat today but it bit me lol';
    28: Text:='lol noob';
    29: Text:='i own all you';
    30: Text:='blahh so bored lol';
    31: Text:='press 111 if youo like pures';
    32: Text:='who likes dueling?';
    33: Text:='who likes pkin?';
    34: Text:='why does this take so long';
    35: Text:='why doesnt jagex put a bank in the middle of here?';
    36: Text:='i want to do a minigame soon';
    37: Text:='-.- so bored';
    38: Text:='picking flax is boring =(';
    39: Text:='Firefox is so awsome';
    40: Text:='i hate internet explorer';
    41: Text:='i hate windows';
    42: Text:='yall should use firefox';
    43: Text:='i hate internet explorer';
    44: Text:='linux is awsome';
    45: Text:='whos your fav band?';
    46: Text:='ipods are so cool';
    47: Text:='i wanna get an iphone there ownage';
    48: Text:='gahh i think my computer got viruses';
    49: Text:='im infected';
    50: Text:='some fansite gave me viri';
    51: Text:='lollolllll so bored';
    52: Text:='white:loading... please wait';
    53: Text:='white:connection lost... attempting to reestablish';
    54: Text:='laggggg';
    55: Text:='the new loading update is so cool';
    56: Text:='green:||||||||||||||';
    57: Text:='red:||||||||||||||';
   End;
  End;
  TypeSend(Text);
  Wait(50+Random(100));
 End;
End;






Procedure TalkingTo;
Begin
 if (not(LoggedIn)) then
  Exit;
 A:=1+Random(7)
  If (A=3) Then
 Begin
  Case Random(11) Of
   0: TalkSomeCome;
   1: RandomR;
   5: RandomChat;
   7: RandomR;
   8: RandomR;
  End;
 End;
End;

 
 
function ScanMMAreaColorExactTolerance(var x, y: Integer; x1, y1, x2, y2, color,
  tolerance: Integer): Boolean;
begin
  Result := ScanExactMMAreaD(x, y, x1, y1, x2, y2, color, tolerance);
end;




function NearestObjMT(var cx, cy: Integer; Text:Array of string; color, color2, color3, tolerance: Integer): Boolean;
var
  x, y, a, c, i, x1, y1, x2, y2 : Integer;
begin
 if (not(LoggedIn)) then
  Exit;
  if FindColorTolerance(x, y, color, MSX1, MSY1, MSX2, MSY2, tolerance) or ScanMMAreaColorExactTolerance(x, y, MSX1, MSY1, MSX2, MSY2, color2, tolerance) or ScanMMAreaColorExactTolerance(x, y, MSX1, MSY1, MSX2, MSY2, color3,tolerance) then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if (not (Loggedin)) then
        break;
      a := a + 1;
      if (a = 1) then
        c := c + 1;
      if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 21;
          x2 := x2 + 21;
        end;
        if (a = 2) then
        begin
          y1 := y1 - 14;
          y2 := y2 - 14;
        end;
        if (a = 3) then
        begin
          x1 := x1 - 21;
          x2 := x2 - 21;
        end;
        if (a = 4) then
        begin
          y1 := y1 + 14;
          y2 := y2 + 14;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color2, x1, y1, x2, y2, tolerance)) or (FindColorTolerance(x, y, color3, x1, y1, x2, y2, tolerance)) then
        begin
          MMouse(x, y, 0, 0)
          cx:=x;cy:=y;
          if IsUptextMultiCustom(Text) then
          begin
            Result := True;
            Break;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;


Procedure PickingFlax;
Var
 x, y: Integer;
Begin
 if (not(LoggedIn)) then
  Exit;
 NF:=0;
  Repeat
  MouseSpeed:=10+random(2);
   If (Not(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 40))) Then
   Begin
    FindRandoms;
    Exit;
   End
   Else
    TalkingTo;
    ColorToleranceSpeed(1);
   if NearestObjMT(x, y, ['lax'],
    FlaxMs, FlaxMs, FlaxMs, 20) then
    Begin
    Mouse(x, y, 1, 1, True);
    ColorToleranceSpeed(0);
   End
   Else
   Begin
    Writeln('Was Not Able To Pick Flax');
    FindRandoms;
    NF:=1;
   End;
   FindRandoms;
   FFlag(0);
   Wait(270+Random(220));
   FindTalk;
  Until (InvFull)Or(Not(LoggedIn)Or(FindDead))Or(NF=1);
  If (FindDead) Then
   LogOut;
  Exit;
 End;




procedure OpenBank4;
var
 x, y, fs, fs2: Integer;
begin
begin
 if (not(LoggedIn)) then
  Exit;
ColorToleranceSpeed(1)
 if not BankScreen then
  repeat
   if NearestObjMT(x, y, ['se', 'oth', 'us','ank', 'Use ', 'nk'],
    10463921, 10463921, 10463921, 20) then
    Mouse(x, y, 4, 4, False)
    else
            case Boo of
      0: if (FindObj(x, y, 'oth', 10266798, 15)) then Mouse(x, y, 4, 4, False);
      1: if (FindObj(x, y, 'oth', 5269623, 15)) then Mouse(x, y, 4, 4, False);
      2: if (FindObj(x, y, 'oth', 3626083, 15)) then Mouse(x, y, 4, 4, False);
      3: if (FindObj(x, y, 'oth', 4746624, 15)) then Mouse(x, y, 4, 4, False);
      4: if (FindObj(x, y, 'oth', 2838626, 15)) then Mouse(x, y, 4, 4, False);
      5: if (FindObj(x, y, 'oth', 3626083, 35)) then Mouse(x, y, 4, 4, False);
    end;
    wait(50)
   if (ChooseOption('quickly')) then
   begin
    FFlag(0);
    repeat
     Wait(100+random(10));
     fs:=fs+1;
    until (BankScreen)or(fs>=50)or(not(Loggedin))
     if (not(loggedin)) then
     break;
   end;
   Wait(700+random(10));
   fs2:=fs2+1;
  until (BankScreen)or(fs2>5);
  ColorToleranceSpeed(0)
end;
end;

procedure WholeBank;
begin
 if (not(LoggedIn)) then
  Exit;
 Wait(100+Random(100))
  if (not(BankScreen)) then
 begin
  CoordBank;
  FFlag(0);
  OpenBank4;
 end
 else
  exit;
end;



function FindBankers(var x, y: integer): boolean;
begin
 Result:=FindDtm(Bankers, x, y, MMX1, MMY1, MMX2, MMY2);
end;

procedure AlignCompass;
var
 P: Integer;
begin
If(Not(LoggedIn)) Then Exit;
 Bankers:=DTMFromString('78DA63CC62626070654001FFFE09337001694'+
  '6289FB11AA18609979A7A22D4B413A1260728E383AA06260B5753'+
  '42849A4622D47412560300D3490EB0');
 while (not(FindBankers(x, y))) do
 begin
  if (Direction=0) then
   KeyDown(vk_left)
  else
   KeyDown(vk_right);
  repeat
   P:=P+1;
   wait(20+random(10));
  until (FindBankers(x, y))or(P=3);
  if (Direction=0) then
   KeyUp(vk_left)
  else
   KeyUp(vk_right);
  if (Direction=0) then
   Direction:=1
  else
   Direction:=0;
  wait(300+random(100));
 end;
 FreeDtm(Bankers)
end;


Procedure ClearVars;

Var
 I: Integer;
Begin
 For I:=0 To 2 Do
  ReportVars[I]:=0;
End;


Procedure AlignMM(Direction : char);
var DTM,x,y,i:integer;
    acc:extended;
begin
      if (not (Loggedin)) then
        Exit;
  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 SetUp;
Begin
ColorToleranceSpeed(0)
 rs_DeleteUID;
 ActivateClient;
 ClearReport;
 ClearDebug;
 SetUpSRL;
 ClearVars;
 ScriptID:='499';
 SRLID:=YourSRLID;
 SRLPassword:=YourSRLPASS;
 CheckHpFirst:= True;
 DeclarePlayers;
End;


Procedure AlignAll;  // Let's Do Some MiniMap Rotations :)
Begin
If(Not(LoggedIn)) Then Exit;
AlignCompass;
Wait(1) // Free's Up Memory..
AlignMM('N');
end;


begin
SetUp;
 Disguise('Home Flax'#39's Gardener '+(VersionNumber)+'');
 //Tih := 0;
 sst:=GetSystemTime;
 SymbolAccuracy:=0.5;
 Flax:=11884646;
 FlaxMS:=940041;
 Wait(1000);
 LoginPlayer;
 Wait(1000);
 MouseSpeed:=11+random(1);
 AutoColorTree;
 writeln('Flax Color: '+IntToStr(FlaxMS+Random(1000))+' ;');
 Direction:=0;
 repeat
  MouseSpeed:=11+random(2);
  SetAngle(True);
  P:=0;
   AlignAll;
  WalkFlax;
  PickingFlax;
  GoBank;
  Openbank4;
  WholeBank;
  DepositAll;
  Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked+1;
  FlaxPicked:=FlaxPicked+28;
  ReportVars[1]:=ReportVars[1]+1;
  ReportVars[0]:=ReportVars[0]+28;
  ProgressReport;
  Disguise(IntToStr(Players[CurrentPlayer].banked)+'/'+IntToStr(Loads)+'  [ '+IntToStr(Players[CurrentPlayer].banked*28)+' ]');
  if (Players[CurrentPlayer].Banked mod Loads=0)or(not(LoggedIn)) then
  begin
   CloseBank;
   Wait(100+random(100))
    CloseBank;
   Wait(100+random(100))
    repeat
    Disguise(' Logging Out ');
    Wait(1000+random(500))
     LogOut;
    Wait(1000+random(500))
     LogOut;
   until (not(LoggedIn));
   Wait(1000+random(5000))
    NextPlayer(True);
   Disguise(' Next Player ');
  end;
  if (not(Loggedin)) then
   NextPlayer(false);
 until (False);
end.

Lol is that proggy fake much?

It ran for 9 hours and did 48 loads?

Man how slow do you want it?

yours is ok but i still have the HumanCircleFlag function in there and
i put

 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: TypeSend('');
   9: TypeSend('booooooooring');
   10: TypeSend('yay');
   11: TypeSend('ouch');
   12: TypeSend('');
   13: TypeSend('blah.');
   14: TypeSend('quiet');
   15: TypeSend('bam');
   16: TypeSend('');
   17: TypeSend('');
   18: TypeSend('bleh');
   19: TypeSend('');
   20: TypeSend('argh !');
  end;

and you put

  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: TypeSend('soo boring');
   9: TypeSend('booooooooring');
   10: TypeSend('yay');
   11: TypeSend('ouch');
   12: TypeSend('i like flax lol');
   13: TypeSend('blah.');
   14: TypeSend('quiet');
   15: TypeSend('bam');
   16: TypeSend('flax, flax, flax...');
   17: TypeSend('omg this takes so long');
   18: TypeSend('bleh');
   19: TypeSend('this is the most boring thing ever');
   20: TypeSend('argh !');
  end;

which then means every time it visits the flax field it will say something whereas with mine it wont say something everytime
also i put

  Begin
  Case Random(11) Of
   0: TalkSomeCome;
   1: writeln('');
   2: RandomChat;
   3: writeln('');
   4: RandomR;
   5: writeln('');
   6: writeln('');
   7: RandomR;
   8: writeln('');
   8: writeln('');
  10: TalkSomeCome;
  End;

and you put

 Begin
  Case Random(11) Of
   0: TalkSomeCome;
   1: RandomR;
   5: RandomChat;
   7: RandomR;
   8: RandomR;
  End;

which means when it chooses 2,3,4,6,9,10 or 11 as the random number then it will come up with an error because that number is not there
but apart from that it is ok

From: Torrent of Flame
Lol is that proggy fake much?

It ran for 9 hours and did 48 loads?

Man how slow do you want it?

it ran fine but the script messed up and when i came back from school i logged it back in and it carried on with the script so the timer was still counting even though it wasn't doing anything so the script is not slow and the proggy is not fake either

~shut

ScarScript: By Drunkenoldma

Begin
Case Random(11) Of
0: TalkSomeCome;
1: RandomR;
5: RandomChat;
7: RandomR;
8: RandomR;
End;


which means when it chooses 2,3,4,6,9,10 or 11 as the random number then it will come up with an error because that number is not there
but apart from that it is ok
@Torrent of Flame: it ran fine but the script messed up and when i came back from school i logged it back in and it carried on with the script so the timer was still counting even though it wasn't doing anything

~shut

I dont think its gonna go like that, since i seen scripts that do that, and there are no errors on it :P.


Also dude, remove that fake proggy, its not cool, you dont do 48 loads in 9 hours -.-. You do like 200-300 loads in 9 hours lmfao.

there you go the proggy has been removed but it wasn't fake its just that i started it and it ran fine but the script messed up when i was at school, and when i came back from school i logged it back in and it carried on with the script so the timer was still counting even though it wasn't doing anything

From: U L T R A
I dont think its gonna go like that, since i seen scripts that do that, and there are no errors on it :P.

well it doesn't really matter as they will both work anyway

~shut

is it possible to use the tutorials of some1 to add smart to it..

i did that but then the walk back goes fuck*d because when i should click on bank symbol
it clicks on the tree n stands next to the tree n search for bankbooth :(

can some1 who is good at scripting fix it?

i will post a smart version for you but could you post a pic just so i can see which tree it stands by

~shut

i ran the script and got this proggy

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flaxs Gardener Eternity Universal Edition 0,25 patched by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : **********
Number     : 0
Travelled  : 32/2500 Trips To Field. 
Worked     : 1 Hours, 38 Mins, 39 Secs.
Active     : True
Time       : 07:33:49 PM
**********************************************
0: **********= True. - B :32 Times. -  :  - Loc: 
**********************************************

~shut

I love this Flax picker I have only had a couple of problems with it witch is it running behind the bank instead of into it but other then that its perfect =] ty

Here is a prog for ya

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : spiritualowl
Number : 0
Travelled : 26/2500 Trips To Field.
Worked : 0 Hours, 53 Mins, 3 Secs.
Active : True
Time : 05:45:38 PM
**********************************************
0: spiritualowl = True. - B :26 Times. - : - Loc:
**********************************************

:garfield:

good to see its working :)

~shut

very nice work Shuttleu, im running it now and have been for 1 and a half hour, works flawless. thank you i will post the full proggy when i got enough :)

1 and a half hours (h) i have never got it to run for that long lol
o well like i said at least it seems to work fine

~shut

well now when i came home scar had frozed so i cant see how long it ran for , ( the scar window is all white) but its "title" or what it is called says 90/2500 [2520] and it had picked 2575 so it works really great :) gues it ran for about 3 hours then :) thank you verry much / Lindstrom

Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : *****
Number     : 0
Travelled  : 9/2500 Trips To Field. 
Worked     : 0 Hours, 25 Mins, 10 Secs.
Active     : True
Time       : 12:48:21 PM
**********************************************
0: puseater = True. - B :9 Times. -  :  - Loc: 
**********************************************
Successfully executed

idk what happened. first it got lost going to the bank. It ended up north of the bank. so i moved it back to the bank and had to bank it myself. Then let it run again, then the next load it gets lost again like north of the flax field and just sits there wiht the mouse moving all over the place.

From: sweetleaf

Home Flaxs Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : *****
Number     : 0
Travelled  : 9/2500 Trips To Field. 
Worked     : 0 Hours, 25 Mins, 10 Secs.
Active     : True
Time       : 12:48:21 PM
**********************************************
0: puseater = True. - B :9 Times. -  :  - Loc: 
**********************************************
Successfully executed

idk what happened. first it got lost going to the bank. It ended up north of the bank. so i moved it back to the bank and had to bank it myself. Then let it run again, then the next load it gets lost again like north of the flax field and just sits there wiht the mouse moving all over the place.

well idk whats happening because as you can see lindstrom from the post above you is getting good proggys and it seems to work well for them
although i did get the same error when i just ran it but it didnt get stuck when it is above the bank but above the flax field

i will have a look at what is happening and find out where it is going wrong and see if i can sort it out

and lindstrom i have made a random proggy out of the info you gave me which will be put at the top

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flaxs Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : *****
Number     : 0
Travelled  : 90/2500 Trips To Field. 
Worked     : 3 Hours, 36 Mins, 22 Secs.
Active     : True
Time       : 12:48:21 PM
**********************************************
0: *****= True. - B :90 Times. -  :  - Loc: 
**********************************************

~shut

Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ***********
Number     : 0
Travelled  : 22/2500 Trips To Field. 
Worked     : 0 Hours, 52 Mins, 51 Secs.
Active     : True
Time       : 01:43:22 PM
**********************************************
0: puseater = True. - B :22 Times. -  :  - Loc: 
**********************************************

heres another quick one, right after i posted the one above. just a little bit longer, but got last north of the bank this time.

okej this is strange, when i woked up it said ; socket error 10061 connection refused. Clicked ok and the proggy looks like this :
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : pkme 92
Number : 0
Travelled : 47/2500 Trips To Field.
Worked : 1 Hours, 55 Mins, 47 Secs.
Active : True
Time : 01:31:26 AM
**********************************************
0: pkme 92 = True. - B :47 Times. - : - Loc:
**********************************************
[Runtime Error] : Exception: Canvas does not allow drawing in line 1005 in script W:\Program\värld 124 Scar 3.14\scripts\collecting\Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu modified SMART.scar
dont know what that runtime error is.

Line 1005: procedure CoordBank;
var
B: integer;
begin
if (not(LoggedIn)) then
Exit;
MarkTime(ColorMark)
B:=8;
repeat
B:=B+1;
if(TimeFromMark(ColorMark)>10000) then Exit;
until (FindColor(x, y, TreeSymb, MMX1, B, MMX2, B));
Mouse(x-10+Random(20), y+35, 1, 1, true);
FFlag(1);
end;

Logged in in lumbridge . i assume i died :P

Lindstrom
whenever i get a Canvas does not allow drawing error i just restart the script and i don't know why you died because this script has a very good antirandom

Sweetleaf
like i have said idk whats happening but could you tell me if your using a browser or smart because if your using smart then mabey try using a internet browser and if your using a internet browser then mabey try using smart
those are the only suggestions i can really give atm, sorry if this doesn't help

~shut

i was using smart, i'll try the browser in a few

yeh just downloaded looks pretty sweet ill use after im done with fightcaves runner.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : ****************
Number : 0
Travelled : 26/2500 Trips To Field.
Worked : 1 Hours, 9 Mins, 21 Secs.
Active : True
Time : 03:53:56 AM
**********************************************
0: ************* = True. - B :26 Times. - : - Loc:
**********************************************

Completely got lost and ran up to the left of the bank, near the maple logs :\ gonna post proggie #2

well even though it got lost and ran up the side of the bank you sill got nearly 1k of flax

and i think it might be running up the side of the bank because of the position of the bank symbol

~shut

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : 8
Number : 0
Travelled : 37/2500 Trips To Field.
Worked : 1 Hours, 49 Mins, 55 Secs.
Active : True
Time : 01:29:47 PM
**********************************************
0:8 = True. - B :37 Times. - : - Loc:
**********************************************

Kk had to stop it, started messing up :S

heyhey, this works pretty sweeet! heers some progys

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name :
Number : 0
Travelled : 34/2500 Trips To Field.
Worked : 1 Hours, 52 Mins, 7 Secs.
Active : True
Time : 10:39:26 PM
**********************************************
0: = True. - B :34 Times. - : - Loc:
**********************************************

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name :
Number : 0
Travelled : 61/2500 Trips To Field.
Worked : 3 Hours, 31 Mins, 14 Secs.
Active : True
Time : 02:42:07 AM
**********************************************
0: = True. - B :61 Times. - : - Loc:
**********************************************

had to stop it cause it failed to solve a random and i got teled. unfortunatly i didnt see what random it was :( luckly i only got teled to catherby :P if this help i musta got randomd in the bank or on the way to the flax because my invent was empty.

props to home for the script
props to you for fixing it
ty for the 960 flax :)

EDIT:

i just noticed also that somhow the brightness got turned down…

Sweet script. Ran awesome except for when it got stopped by the balloon animal random… i did the random and it ran for a while…
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : Zezima
Number : 0
Travelled : 32/2500 Trips To Field.
Worked : 1 Hours, 9 Mins, 50 Secs.
Active : True
Time :
**********************************************
Proggie from earlier today! Thanks for fixing the script =]
You know flax doesnt sell for as much as pure essence… but currently pure ess scripts are crap and dont run good. This one, for me, ran good. I did it on my main… since no more xfer =[
Thanks again for the 896 flax =]

From: ~PuRePoWeR~
Thanks for fixing the script =]
You know flax doesnt sell for as much as pure essence… This one, for me, ran good. I did it on my main… since no more xfer =[

no problem i only really fixed the script because i needed to use it and then decided to let everyone else use it

From: ~PuRePoWeR~
but currently pure ess scripts are crap and dont run good.

if you look at the last page in wizzups? essence miner then you will see that i have updated his script to work with rev#14 and as his script is the best for rune essence wizzups? rune essence miner

From: ~PuRePoWeR~
Thanks again for the 896 flax =]

no problem

~shut

yo thanks for posting this..itll be very useful

From: shuttleu

if you look at the last page in wizzups? essence miner then you will see that i have updated his script to work with rev#14 and as his script is the best for rune essence wizzups? rune essence miner

no problem

~shut

What do you think is better to make money? This or Wizzup?'s ess miner.

From: ~PuRePoWeR~
What do you think is better to make money? This or Wizzup?'s ess miner.

im not to sure
i will find out which is faster then find out how much they sell for each and then tell you

EDIT:here are the results of my findings

rune essence:

2:33
2.55
60/2.55=23
23*28=644
644*144=92736 gp/h

flax:

1:54
60/1.9=31
31*28=868
868*97=84196gp/h

so the essence miner seems to be better but it doesnt seem to work fully atm so your probably better off sticking with this script :)

~shut

Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : **** ****
Number     : 0
Travelled  : 54/2500 Trips To Field. 
Worked     : 2 Hours, 20 Mins, 43 Secs.
Active     : True
Time       : 06:31:32 PM

Cheers mate works excellent.

it got stuck by the maples i will try again i will get you proggy soon

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name :
Number : 0
Travelled : 8/2500 Trips To Field.
Worked : 0 Hours, 33 Mins, 35 Secs.
Active : True
Time : 10:16:41 PM
**********************************************
0: = True. - B :8 Times. - : - Loc:
**********************************************

From: shuttleu
im not to sure
i will find out which is faster then find out how much they sell for each and then tell you

EDIT:here are the results of my findings

rune essence:

2:33
2.55
60/2.55=23
23*28=644
644*144=92736 gp/h

flax:

1:54
60/1.9=31
31*28=868
868*97=84196gp/h

so the essence miner seems to be better but it doesnt seem to work fully atm so your probably better off sticking with this script :)

~shut

allright thanks for teh math lesson for today :) ill stick with this. I'm about to run it over night (again) so I will most likely have a decent proggie to post in teh morning… if it doesnt close on me like it has been. Idk what it is but sometimes when trying to logg back in the script does the right things but the page isnt selected so it wont type text into the User: Pass: box places. If there's a fix for it than sweet. Of course ,this might be saving me. I have gotten flax overnite now for 3 days in a row & maybe the antiban is just good. Ive made like 600k + off this & i hope it doesnt end :D Now since i posted this ill probly be banned, its just my luck. and just fyi the login doesnt work with the fight pit runner either…it does teh same thing, I only use 1 account, and I run it overnite and then set it up again in the morning before I leaver for school.
thanks, later.

From: ~PuRePoWeR~
if it doesnt close on me like it has been. Idk what it is but sometimes when trying to logg back in the script does the right things but the page isnt selected so it wont type text into the User: Pass: box places. If there's a fix for it than sweet.

try using SCAR 3.15 it was released a few days ago and it has had a few bug updates which might help your problem

~shut

Just a quick question. How do make it run continuously …it logs out after 5 runs.

From: shuttleu
try using SCAR 3.15 it was released a few days ago and it has had a few bug updates which might help your problem

~shut

okay, sounds good, thanks again. ill letcha know if it works.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : Blahblah1234
Number : 0
Travelled : 50/90000 Trips To Field.
Worked : 4 Hours, 36 Mins, 47 Secs.
Active : True
Time : 05:43:03 PM
**********************************************
Well here you go.

does this also work with scar 3.15?

edit: which is the most recent one, the top/middle/bottom one?

Failed when compiling
Line 1569: [Error] (14231:32): Type mismatch in script C:\Documents and Settings\Compaq_Owner\Desktop\Flax Gardener Eternity Universal Edition 0,25 fixed by shuttleu SMART.scar
Failed when compiling


im useing scar 3.14 srl4 rev 14

fixed
re-download and try now
and i would suggest you use SCAR 3.15 not 3.14 as there has been a few bug fixes

~shut

ok thanks and i tryed it shortly after with the non smart script ran for 1hr 17 min gained 952flax:)

now i got this error [Runtime Error] : Exception: Access violation at address 01AC10AB in module 'Embedded SMART.dll'. Read of address 000006DC in line 47 in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/smart.scar

Got a sweet proggie for ya. 1708 flax. owned.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : Zezima
Number : 0
Travelled : 61/2500 Trips To Field.
Worked : 2 Hours, 4 Mins, 11 Secs.
Active : True
**********************************************

i'll try this script this afternoon, or tomorrow.

– Reserved for a proggy–

From: retybob
now i got this error [Runtime Error] : Exception: Access violation at address 01AC10AB in module 'Embedded SMART.dll'. Read of address 000006DC in line 47 in script C:\Program Files\SCAR 3.15\includes\srl/srl/misc/smart.scar

that will have nothing to do with this script
just resart the script and if it still happens just restart scar

~shut

soz for double post i accidentally pushed the post button 2 times

P.s. if somebody can tell me how to delete double posts then i would find it most useful

~shut

thanks for the script heres your proggy, works good only thing is that sometimes it doesnt keep walking and keeps circling the camera around and around and another thing is walk past bank and then it doesnt find the bank so it logs out

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 1 |
| Frog Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : tastedamoney
Number : 0
Travelled : 18/2500 Trips To Field.
Worked : 0 Hours, 40 Mins, 50 Secs.
Active : True
Time : 04:35:52 PM
**********************************************

MAN this is ownage bro i ent got a very good prog but heres one

Travelled : 38/2500 Trips To Field.
Worked : 1 Hours, 21 Mins, 50 Secs.
Active : True
but i stopped wanted top do sumt elsze this is wicked!

:sasmokin: MAN this is ownage bro i ent got a very good prog but heres one

Travelled : 38/2500 Trips To Field.
Worked : 1 Hours, 21 Mins, 50 Secs.
Active : True
but i stopped wanted top do sumt elsze this is wicked!
soz bout doble post..how do i delte ty

soz bout doble post..how do i delte ty

its ok im guessing you accidentally pushed the post button twice
just edit the last post and just put soz for double post

~shut

igot a new prob recently i do everything as normal but now it gets stuck when coming back from field to bank near thaty white house or somewhere and looks around coz it thinks thats the bank. any help plz

From: bangali
igot a new prob recently i do everything as normal but now it gets stuck when coming back from field to bank near thaty white house or somewhere and looks around coz it thinks thats the bank. any help plz

right well there must be something wrong with the walking back procedure
i will have a look at it soon

~shut

From: ~PuRePoWeR~
Got a sweet proggie for ya. 1708 flax. owned.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : Zezima
Number : 0
Travelled : 61/2500 Trips To Field.
Worked : 2 Hours, 4 Mins, 11 Secs.
Active : True
**********************************************

erm… can i get on the top proggies list please? thanks.

From: ~PuRePoWeR~
erm… can i get on the top proggies list please? thanks.

ermmm… no, because i am only showing the top 3 longest proggys and the longest is 4 hours and the 2nd and 3rd longest are 3 hours and this is only two
but keep trying and im sure you will beat one of them

~shut

i dunno it was doing the same prob until today i got this sweet ass proggie
Travelled : 78/2500 Trips To Field.
Worked : 2 Hours, 52 Mins, 35 Secs.
Active : True
Time : 05:47:55 PM

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL 4 Randoms Report |
| www.srl-forums.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talks : 2 |
| Lamps Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

freeking ownage ty man ur da bomb but can i ask if you could do a better anti random so it looks less suspicious and put a break option if you could and overall make it 1000000% because atm its ownage! ty vm !

From: shuttleu
ermmm… no, because i am only showing the top 3 longest proggys and the longest is 4 hours and the 2nd and 3rd longest are 3 hours and this is only two
but keep trying and im sure you will beat one of them

~shut

oh allright. I thought it was about the best proggie not the longest proggie. but allright, if you says so.

Good job Shuttleu, I've noticed you've been doing a lot of work around SRL fixing up other peoples outdated scripts. 5/5 Stars.

Things to add:

-Make it so it will input your PIN into the bank - many of my characters have PIN numbers and right now it doesn't do that.
-Add break time; Jackex might get suspicious if you stay on for as long as it ran for me: 6 hours.

SCRIPT UPDATE

added the two most requested features

added in break and bank pin

~shut

Line 1560: [Error] (14288:5): Identifier expected in script C:\Users\Mohit\Documents\Downloads (internet)\Flax Gardener Eternity Universal Edition 0,26 fixed by shuttleu SMART.scar

Heh.. uh.. yeah.. help?

From: Mohit
Line 1560: [Error] (14288:5): Identifier expected in script C:\Users\Mohit\Documents\Downloads (internet)\Flax Gardener Eternity Universal Edition 0,26 fixed by shuttleu SMART.scar

Heh.. uh.. yeah.. help?

thank you for pointing that out to me
it has been fixed and it is all working now

~shut

Confused. Says rev 10 in the script, rev 15 here, and I gert a crap load of this:

Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script


Great.

So tell me, WHICH REV VERSION DO I USE?

From: VivaLaRofl
Confused. Says rev 10 in the script, rev 15 here, and I gert a crap load of this:

Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script
Could Not Get Tree Color, Restart Script


Great.

So tell me, WHICH REV VERSION DO I USE?

sorry i will change that soon, use rev#15
and that error your getting just try restarting scar then reload runescape, that has always worked for me

~shut

[Runtime Error] : Exception: Canvas does not allow drawing in line 1042

I got this when it was walking back to bank after first run

From: Scotland
[Runtime Error] : Exception: Canvas does not allow drawing in line 1042

I got this when it was walking back to bank after first run

try restarting scar, i think its just an error that scar gets once in a while

~shut

hey, i used the non SMART one and i cant get it to work for more then 10 min…
it will walk the wrong way or the mouse will just move around and not walk back to bank… How do i fix?

From: effinpanda
hey, i used the non SMART one and i cant get it to work for more then 10 min…
it will walk the wrong way or the mouse will just move around and not walk back to bank… How do i fix?

i think there is something wrong with the walking procedure but i will rewrite it soon and add failsafes, i hope

~shut

just curious… getting ready to try it but i need to know if you have gotten a report of people getting banned from this?

i have 2 bans on my account already and i really do not want another thats gonna be permanent… my main is the only one that is a member and i don't wanna lose it…

From: deoxys505
just curious… getting ready to try it but i need to know if you have gotten a report of people getting banned from this?

i have 2 bans on my account already and i really do not want another thats gonna be permanent… my main is the only one that is a member and i don't wanna lose it…

well no one has got banned from this script before and hopefully never will

~shut

Actually my "tester" noob got 10 day banned for this, BUT i used it overnight non stop on him ;)
so casual use wont get you banned quick

How'd you get it to work overnight? I can only get 26 loads max. Shuttleu any say on when you'll update walking?

i will update the walking when my account isn't banned
just to let you know IT WAS NOT FROM THIS SCRIPT!
i was using nexus and ran it for 18 hours lol
so within the next 2 weeks

~shut

Lol. Are the nexus ones safe? Might use that for flax.

From: Gabe
Lol. Are the nexus ones safe? Might use that for flax.

the nexus ones are safe but they don't have any anti ban but i think they solve all known randoms and nexus cant get lost
at the moment i am trying to crack neXus pro which is slightly safer

~shut

Lol you crack it tell me how =) I could let you use my members account to fix your walking maybe…

From: Gabe
I could let you use my members account to fix your walking maybe…

nah no point its only banned for 4 more days

~shut

some 1 got banns from this script??

No. He probably got banned from something else.

i got banned from using nexus lol

~shut

I just wanted to know what would be a reasonable sleep interval/period for the script?

Fix walking errors and script should be fine.. also the break function should have something so when it reaches the time.. the next time it gest to the bank it will log, because it logs anywhere and when it logs back in it doesnt know where it is.. and the script fails.

Yea the walking thing is kinda annoying. Sure you don't wanna use my member?

From: Gabe
Yea the walking thing is kinda annoying. Sure you don't wanna use my member?

well if you insist
at least i can get a start on the walking again
thank you

~shut

From: shuttleu
well if you insist
at least i can get a start on the walking again
thank you

~shut

sounds good to me lol i got stuck behind the courthouse an then tried to pick flax at cammy gate lolz

same, its that one tree only it needs to find but it's not always there on the map

K. I'll Pm you name and pass. I AM TRUSTING YOU here. >.<

lol okay cause im really low on money and i was gonna pick flax… can you put an update in after you fix walking to make it spinn the flax?

well i will fix the walking and i will hopefully finish it tomorrow
im not too sure about the flax spinner though because i have heard that it can mess up quite a bit when it spins

~shut

alright. if i was better at scripting then i would make it walk and spin flax, but idk how to make it walk yet… if i become a better scripter i may help you out…if you don't mind that is.

I found a bug… when it started to walk back to the bank, the camera suddenly started to spin like crazy. My main account got banned beacuse of that:( =P

He said it should be out today. I feel special knowing I helped a bit. By lending my member.

He said it should be out today. I feel special knowing I helped a bit. By lending my member.

well there is a bit of a delay as i had to go out yesterday and today
but in the process i did find out why it was going behind the bank in the first place
the only problem i am having now is getting it to find the tree symbol colour every time it comes out of the bank
and yes gabe you did help quite a bit as i would not have even started it if it wasn't for you ;)

~shut

Cool. So when should we expect it to come out?

well i haven't had a problem with the walking yet so we just have to wait for PriSoner to reply to my PM saying i can use one of his functions

~shut

Oh, ok. Lol

don't worry i have decided to make it myself so it should be ready later today :)

~shut

awesome, i cant wait!

Can't wait also. :)

will be uploading in about an hour

~shut

SCRIPT UPDATE

This has the update you have all been waiting for

I have re-written the walking procedure :D

it shouldn't get lost anymore

i have added a new auto coloring function for the bank and the tree symbols

~shut

YES YES YES! I absoluetly love you now! Well maybe not. But thanks! Will test tonight

Eh left a pass there dude…

s**t
thanks for that

~shut

I sees you on now.

someone has my account :(
i have requested for my pass to be changed by using my recovery questions

~shut

Wow dude, that really sucks….
you better get it back, you totally deserve it

I got an error with the non-smart one:

Failed when compiling
Line 943: [Error] (13586:10): Duplicate identifier 'BANKSYMB' in script C:\DOCUME~1\Melody\LOCALS~1\Temp\Flax Gardener Eternity Universal Edition 0,3 fixed by shuttleu.scar

How do i fix?:duh:

PLEASE HELP

Dude I logged in to it a little earlier, and I saw it with d chainmail, in bh..

Can anyone get this script working? i Cant…

those of you who have tried this script will have found a error which will have said something like duplicate identifier
i have fixed this and now it works again

so re-download :)

~shut

[OFFTOPIC]
i have got my account back and it was sitting in bounty hunter with a dragon chain mail, so i have gone to the GE to sell it so i can get a dragon axe
[/OFFTOPIC]

WOO!
Good, that would really suck…

I will redownload it. And you got d chain? NICE! Thats what you get for getting hacked lol. Anyone wanna do that for me?

Line 1690: [Error] (14418:14): Unknown identifier 'world' in script C:\Program Files\SCAR 3.15\Scripts\Flax2.scar

Gabe, You Love My Scripts Right?,

I'll Make A Flaxer Just For You..! :D

sorry forgot to add the const
just re-download it

~shut

Shuttle!
OH-EM-GEE! I LOVE YOU (in a non-gay way)
This is really good, the only working one :)
It walks and picks a little slow but it is still AMAZING!!!
But attention everyone LISTEN UP!
You MUST put color setting on second darkest for it to work.
Shuttle made a little mistake :P But other then that PERFECT!

im going to try that as it has always worked for me
although it could have something to do with the colors updating in RS

EDIT: just tested and it seems to be working fine on the brightest

~shut

Will redownload then. Thanks Timer. Love ya. Non gay way.

Hmm, okay ill retests it but the first time it didn't work for me at all

It works perfect on scar, but on smart I see the login screen for 5 seconds, and then it gets black.

From: IAUTO
It works perfect on scar, but on smart I see the login screen for 5 seconds, and then it gets black.

okay… but personally i don't like smart

From: effinpanda
Hmm, okay ill retests it but the first time it didn't work for me at all

it should work fine on highest brightnes
i got a 4 hour proggy from it

~shut

Awesome! First script I've had that fully solved a bee keeper. I'll post proggie when done. It has failed several times on finding the tree color though.

yeah if it comes up saying

Failed to find the tree symbol by AutoColour.

or

AutoColor failed to find the Tree Symbol colour.

then don't worry about that i just forgot to remove that from when i was testing it

i thought that the beekeeper solver had broken
but o well… mabey its not

~shut

smack, worked for one round and it died -.- (about 2 secs) but ill try again.
oh, and please try and fix the walking to bank, it walks past the bank (yes, i know that you know that already) ^^

Yea, I gotta test again. I gotz the bannhammer. lol. It got stuck in pinball overnight.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ****
Number     : 0
Travelled  : 4/2500 Trips To Field. 
Worked     : 0 Hours, 12 Mins, 2 Secs.
Active     : True
Time       : 07:43:00 PM
**********************************************
0: **** = True. - B :4 Times. -  :  - Loc: 

I put Him in a bad spot Im re trying!!! :)

Update!!!: 
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ****
Number     : 0
Travelled  : 19/2500 Trips To Field. 
Worked     : 0 Hours, 52 Mins, 48 Secs.
Active     : True
Time       : 09:22:13 PM
**********************************************

Whew, it compiled. I will run it now, until about 20:00 my time (it's 14:00 right now). Then I'll edit this post and give the progres.. Cya!(h) (h)

Ran it over night I was very satisfied by 2k of flax lol.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ****
Number     : 0
Travelled  : 56/2500 Trips To Field. 
Worked     : 4 Hours, 52 Mins, 48 Secs.
Active     : True
Time       : 3:22:13 A.M.
**********************************************

From: Sneakdella
Ran it over night I was very satisfied by 2k of flax lol.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : ****
Number     : 0
Travelled  : 56/2500 Trips To Field. 
Worked     : 4 Hours, 52 Mins, 48 Secs.
Active     : True
Time       : 3:22:13 A.M.
**********************************************

wow a nice long run
this will be put on the main page for everyone to see
keep up the good work

~shut

i cant make it work for more than 2+/- rounds. it always walks past the bank :/ please try and fix this :P

From: kor
i cant make it work for more than 2+/- rounds. it always walks past the bank :/ please try and fix this :P

i haven't had any problems with it and i don't think that anyone else has either
make sure you use v3 not 2.5 or 2.6 as i re-wrote the walking in v3

~shut

oh, i just checked, i have version .26 ^^ thanks!

Hey it's a great script i'll post proggie soon. But is there way to pick the flax faster? Like the mouse speed or w/e.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
Name       : xxx  xxx
Number     : 0
Travelled  : 35/2500 Trips To Field. 
Worked     : 1 Hours, 58 Mins, 12 Secs.
Active     : True
Time       : 01:17:21 PM
**********************************************
0: xxx  xxx = True. - B :35 Times. -  :  - Loc: 
**********************************************

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : -
Number : 0
Travelled : 15/2500 Trips To Field.
Worked : 1 Hours, 31 Mins, 51 Secs.
Active : True
Time : 12:24:55 AM
**********************************************
0: - = True. - B :15 Times. - : - Loc:
**********************************************

Kay, 0 bankings, that's me banned great… Thanks i suppose…

From: boxcrop
Kay, 0 bankings, that's me banned great… Thanks i suppose…

thats has done 15 banks
and have you been banned?

~shut

From: shuttleu
thats has done 15 banks
and have you been banned?

~shut

No it had done 0 bankings, i logged in to find myself stuck in a random.

I checked my bank and there was 0 flax in it, untill i placed in my flax from my inventory.

Kinda sad if i do get banned, only been memebers for a day :)

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25 fixed by shuttleu.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : *beep*
Number : 0
Travelled : 63/2500 Trips To Field.
Worked : 2 Hours, 46 Mins, 19 Secs.
Active : True
Time : 12:21:35 AM
**********************************************
0: *beep* = True. - B :63 Times. - : - Loc:
**********************************************

Nice proggy, but far from my best
oh and 2.25>2.3 for me ;)
dunno why but it just works better

i dont really like the new walking in v0.3. its so ''bot alike''. it clicks on the symbols which looks pretty bottish. is there another way ? maybe try talking to n3ss3s.

From: kor
i dont really like the new walking in v0.3. its so ''bot alike''. it clicks on the symbols which looks pretty bottish. is there another way ? maybe try talking to n3ss3s.

yes but it is a lot less likely to get lost and the symbols move constantly so you don't keep clicking in the same place

~shut

From: shuttleu
yes but it is a lot less likely to get lost and the symbols move constantly so you don't keep clicking in the same place

~shut

that less likely to get lost is good, but still. if you wced or something would you think it would looks a bit suspicous? :P

i agree it is kinda obvious

I got it to work 2 hours and 15 min in SMART. I'm guessing it would get 4 hours on SCAR.

I guess I will post some mess ups.

Ends up in cart place (above bank)
Ends up in forest. (under graveyard)
Ends up in house to left of bank
Walks in graveyard alot. But usually gets out.

By the way, why don't you like SMART? Is it slower?

I have some news. I was watching my guy auto and some guy with all green on, and a mith sword said I was following him(same color). Could this be? He reported me. I didn't see me follow him.

I'd keep using this but my mems ran out. My parents credit card expired and it canceled mems.

just downloaded, I'll post proggies soon and any problems.

thanks, will post proggies soon.

~d0pe

From: IAUTO
Awesome! First script I've had that fully solved a bee keeper.

Can anybody else verify that it's working?

From: Town
Can anybody else verify that it's working?

I can. BeeSolver is working.


~Home

i let it run at night and i watched it once it runs for few mins great then after few mins it walks back to bank and just stands at a bank window untill it logs outanybody know the problem?? then few mins later it asks for permission again is this like a break or something it does if so how do i get it not to ask for permission again i dont have account control on i do have vista

try starting scar up in administration mode

right click on the scar shortcut then choose run as administrator

~shut

i had it run overnight and it all of a sudden just stopped in the brown place with the yew….than it just like pressed the left arrow and kept spinning…i ended up in th mime random. how can i fix this:confused:

again…i had it run while i was at school and it ended up saying "could not find appropriate tree symbol" at this one i ended up just south of the brown fenced area. again how do i fix this?

well i would see if there is anything wrong with it but my membership ran out and i dont have enough money to buy a new one

~shut

ok thanks, what section of the script do you think i would find that on(it happens when i am walking to the flax)

you will find it in the procedure

walkbank;

~shut

kk thx a million

wow this is so dumb… i guess today is just not my day.. smart is super laggy now

OMG great script!

i left it on over night and came back to find it banking my flax and going back, took a shower and came back and it was spining the compass around with a full pack probably looking for a bank. Here's the proggy not fake and I was using Smart.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Home Flax's Gardener Eternity Universal Edition 0,25.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name : *****
Number : 0
Travelled : 188/2500 Trips To Field.
Worked : 8 Hours, 49 Mins, 58 Secs.
BeeKeepers : 1
Active : True
Time : 02:49:51 AM
**********************************************
0: ***** = True. - B :188 Times. - : - Loc:
**********************************************

Ended with 5264 flax, and 28 in my inventory so 5292 flax total

Looks like it also solved the beekeeper so great work dude.

well done
at least someone is posting a proggy with the new version
we need more proggys like this

~shut

I tryied using this overnight a few days ago, ran for like 1.5 hour or so, dunno what stopped it ;S

i am having problems with smart when it loads it runs in world 16 a non member world? any help

nice man looks nice ill try and post progs later

From: moae3
i am having problems with smart when it loads it runs in world 16 a non member world? any help

nmake sure that you have changed line 66 to whichever world you want it to be
it should automaticaly be at world 23

if that doesnt help try updating your worlds.ini file

~shut

this script gunna be fixed for the new version of RS?

From: zuricho
this script gunna be fixed for the new version of RS?

ermmm… i might update it in a few days

i compleatly forgot about this script :p
thanks for reminding me

~shut

haha np, that would great if u did

hurry have an army atm need some bot for them

Line 772: [Error] (16349:5): Unknown identifier 'UseBoxSolver' in script ?

Yeah, it doesn't work. It clicks randomly on the minimap.

I think that SRL is Dead :(

srl is not dead i just havent updated it and i cant because of this http://www.villavu.com/forum/showthread.php?t=33199

~shut

Line 792: [Error] (16263:5): Unknown identifier 'UseBoxSolver' in script C:\DOCUME~1\TIMMY(~1\LOCALS~1\Temp\Flax Gardener Eternity Universal Edition 0,3 fixed by shuttleu-2.scar

help

THIS IS OUTDATED AND WILL NOT WORK UNTIL I HAVE AN ACCOUNT TO FIX IT ON!!!

i thought all srl members get a acc with 94 wc or theres an acc with it,

From: Rsnerdx
i thought all srl members get a acc with 94 wc or theres an acc with it,

i dont know what your on about

~shut

From: Rsnerdx
i thought all srl members get a acc with 94 wc or theres an acc with it,

and i thought redbull gives you wings