SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Home - SRL Member Application Form
Home

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Pascal

Other Communitys
None Really

How Long have You Played Runescape
I don't Play Anymore

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Hello, i were Member of SRL but i got kicked for a good reason, i am sorry about that what i did.. But now i hope my re trying will be Accepted.

I'v learn my lesson and i know now what is wrong and what is right..

I can script pretty well, i love Flax picker and spinners, Like some of you probaly knows :)

I am at boarding school because my School wen't bad..
I have GirlFriend.. And so on..

I don't know anything more to tell about my self :)

~Home

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

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

Program Flax_Gardener;


{    _
   _|_  ___   __  _|_         __   ___    __
    |  (__/_ (__(  |_, (__(_ |  ' (__/_ __)
    
~Very Accurate Walking !
~Fast Banking
~AntiRandoms
~AntiBan
~BeeKeeper Solver ( Thanks DontPanic )
~Full AutoColor




{

o  __  _|_   __         __  _|_  o  __   __    __
| |  )  |_, |  ' (__(_ (___  |_, | (__) |  ) __)
                                                     }

// ~Fill Setup
// ~Start At Anywhere In Seers Bank


{.include SRL/SRL.scar}
// Variables

var
  R,P,M,wet, cst,Flax,Start,Colorshitty,FlaxPicked,CookSymb,QuestSymb,Direction,FlaxMS, TreeMark,FailedBank,tis, wst, tim, awt, tih, srt, sst, Done, TreeSymb: integer;
 bk1, Bankers, bk2, bk3, bk4, x,y,px, py, BeeKeepers: integer;
 BankMark,bkm,FlaxMark :longint;
 LaughText: Array of string;
 WhatText: Array of string;
 
 

{      _____   _____   _____   _   _   _____
      /  ___/ | ____| |_   _| | | | | |  _  \
      | |___  | |__     | |   | | | | | |_| |
      \___  \ |  __|    | |   | | | | |  ___/
       ___| | | |___    | |   | |_| | | |
      /_____/ |_____|   |_|   \_____/ |_|    }

const

 StartPlayer = 0 ; // Determines Who Will Play First
 
const

 Loads = 400 ; // Number Of Trips Before Switching Player. ( Bank To Flax Field And Back )


 Align = True ; // If Crap Or Laggy Computer Put False ( But This Is Very Important To Be True )
 { Does Align Compass To Very Straight When It Is Rotated }


 
procedure DeclarePlayers;
begin
 HowManyPlayers:=2; // 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].Loc:='Bank'; // Don't Touch
 Players[0].Skill:='agility';
 Players[0].Active:=True;
 
 Players[1].Name:='';
 Players[1].Pass:='';
 Players[1].Nick:=''; //Few letters From Your Name
 Players[1].Loc:='Bank'; // Don't Touch
 Players[1].Skill:='agility';
 Players[1].Active:=False;
 
 writeln(inttostr(HowManyPlayers)+' Players');
 
end;

 //************************************************************************//
const
 VersionNumber = 'Eternity' ; // Version ( Don't Touch )
 //************************************************************************//

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




procedure PlayerStats;
var
 i: Integer;
begin
Done:=P*28
FailedBank:=R*28
  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.');
 writeln('Banked     : '+ inttostr(Players[CurrentPlayer].banked));
 writeln('Active     : '+ BoolToStr(Players[CurrentPlayer].Active));
 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;
  Writeln(' ');
 end;
 PlayerStats;
end;


Procedure SetupLaughText;
Begin
 SetArrayLength(LaughText, 25);
 LaughText[0] := 'lolol';
 LaughText[1] := 'lol';
 LaughText[2] := 'haha';
 LaughText[3] := 'hihi';
 LaughText[4] := 'ghehe';
 LaughText[5] := 'lmao';
 LaughText[6] := 'lmfao';
 LaughText[7] := 'rofls';
 LaughText[8] := 'fun';
 LaughText[9] := 'nice';
 LaughText[10]:= 'lolz';
 LaughText[11]:= 'yep';
 LaughText[12]:= 'hola';
 LaughText[13]:= 'wow';
 LaughText[14]:= 'i bet';
 LaughText[15]:= 'rofl';
 LaughText[16]:= 'ghehehghehighhe';
 LaughText[17]:= 'cool';
 LaughText[18]:= '...';
 LaughText[19]:= '???';
 LaughText[20]:= 'wowzers';
 LaughText[21]:= 'grrr...';
 LaughText[22]:= 'rowr';
 LaughText[23]:= 'lolololololol';
 LaughText[24]:= 'ha ha ha!!!';
End;

Procedure SetupWhatText;
Begin
 SetArrayLength(WhatText, 7);
 WhatText[0]:= 'what';
 WhatText[1]:= 'yes';
 WhatText[2]:= 'how can i help lol';
 WhatText[3]:= 'what do you want';
 WhatText[4]:= 'me?';
 WhatText[5]:= 'Yah?';
 WhatText[6]:= 'who?';
End;









procedure bkDtms; // Taken From SRL Forums
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');
   Bankers:= DTMFromString('78DA63CC62626070654001FFFE09337001694' +
       '6289FB11AA18609979A7A22D4B413A1260728E383AA06260B5753' +
       '42849A4622D47412560300D3490EB0');
end;

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

procedure bkSetup;
begin
  bkDtms;
  BeeKeepers := 0;
end;

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

function FindBeeKeeper: boolean;
var
  ct: integer;
begin
  ct := 0;
  repeat
    ct := ct + 1;
  until (FindColorTolerance(x, y, 14802401, 163, 96, 427, 255, ct));
  //if(not(FindDtm(BeeKeeperDtm,x,y,163, 96,427, 255))) then Exit;
  //y:=y+3;
  MMouse(x, y, 0, 0);
  wait(100 + random(50));
  Result := IsUpText('per');
  if (Result) then wait(100 + random(50));
end;

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

function OpenWin: boolean;
begin
  if (not (IsUpText('per'))) then FindBeeKeeper else GetMousePos(x, y);
  Mouse(x, y, 0, 0, true);
  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
  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 (FindColor(x, y, 16711680, 23, 437, 394, 461) or (TimeFromMark(bkm) >
    70000));
  Wait(1000 + random(500));
  WriteLn('Solved Bee Keeper!');
end;

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

function FindPiece(piece: integer): boolean;
var
  fpMark: longint;
begin
  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 (FindPiece(piece))) then Exit;
  Mouse(px + 10, py + 5, 1, 1, true);
  wait(800 + random(100));
  Result := True;
end;

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

procedure ClickArrow(arrow: integer);
begin
  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 (ClickPiece(piece))) then Exit;
  Result := True;
  while (px < mx) do begin
    ClickArrow(4);
    wait(600 + random(100));
    px := px + 15;
  end;
  while (py < my) do begin
    ClickArrow(2);
    wait(600 + random(100));
    py := py + 15;
  end;
  while (px > mx + 16) do begin
    ClickArrow(3);
    wait(600 + random(100));
    px := px - 15;
  end;
  while (py > my + 16) do begin
    ClickArrow(1);
    wait(600 + random(100));
    py := py - 15;
  end;
end;

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

function FixPiece(piece: integer): boolean;
begin
  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 (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 (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 (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
  OpenWin;
  if (not (FixPieces)) then begin
    WriteLn('Error solving bee keeper, Trying Again');
    Mouse(497, 17, 3, 3, true);
    SolveBeeKeeper;
  end;
  if (not (MovePieces)) then begin
    WriteLn('Error solving bee keeper, Trying Again');
    Mouse(497, 17, 3, 3, true);
    SolveBeeKeeper;
  end;
  DoneBk;
end;

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

function BeeKeeper: boolean;
begin
  if (GetColor(649, 78) = 0) then begin
    WriteLn('Middle of mm black, checking for bee keeper');
    wait(3000 + random(200));
    if (FindBeeKeeper) then begin
      WriteLn('Found Bee Keeper, Trying to solve');
      Result := True;
      SolveBeeKeeper;
    end;
  end;
end;


function LagOut: Boolean;
begin
  if (FindLoginScreen) then
  begin
    if (ClickOption('Login', 1)) then
    begin
      Result := True
        Wait(1000 + Random(3000))
    end else Result := False
  end
end;



function FindHomeRandoms: Boolean;
var
  i: Integer;
begin
  for i := 1 to 15 do
  begin
    case I of
      1: if SolveChatRandom then
          Result := True;
      2: Respond;
      3: if FindTalk then
          Result := True;
      4: if FindDead then
          Result := True;
      5: if FindMod then
          Result := True;
      6: if FindMime then
          Result := True;
      7: if FindMaze then
          Result := True;
      8: if FindQuiz then
          Result := True;
      9: if FindTalk then // Call it twice
          Result := True;
      10: if FindLamp(LampSkill) then // Maybe we missed it?
          Result := True;
      11: if (FindBox) then
        begin
          Result := True;
          if (UseBoxSolver) then
            SolveBox
          else
            GambleBox;
        end;
      12:
begin
          if NoGameTab then
          begin
            if (FindBeeKeeper) then
            if (BeeKeeper) then begin Result := True Exit end;
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
        13:
begin
          if NoGameTab then
          begin
            if (FindBeeKeeper) then
            if (BeeKeeper) then begin Result := True Exit end;
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
        14: if FindTalk then
          Result := True;
      15: if RC then
          Result := True;
    end;
    if Result then
      Break;
    Wait(1);
  end;
end;




procedure FindRandoms;
begin
FindHomeRandoms;
 end;

procedure FHlag(Distance: Integer);   // Checks Randoms While Flag Appears.
var
  XK, YK, XL, YL: Integer;
var
  T1, T2: Extended;
begin
  T1 := GetTickCount;
  repeat
  FindTalk;
    T2 := GetTickCount;
    Wait(100);
    if HumanCircleFlag(Distance) then
      Break;
    Wait(100);
    if T2 - T1 > 30000 then
    begin
      if FindColor(XL, YL, 255, MMX1, MMY1, MMX2, MMY2) then
        MouseFindFlag(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 FClag(Distance: Integer);   // Checks Color While Flag Is On MiniMap.
var
  XK, YK, XL, YL: Integer;
var
  T1, T2: Extended;
begin
  T1 := GetTickCount;
  repeat
    T2 := GetTickCount;
    Wait(100);
    if HumanCircleFlag(Distance)or(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
        MouseFindFlag(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 Colorshit1;
begin
if( TreeSymb = 0 ) then begin
 MarkTime(Colorshitty);
 repeat
   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 Colorshit2;
begin
if( CookSymb = 0 ) then begin
 MarkTime(Colorshitty);
 repeat
   CookSymb:=GetSymbolColor(x, y, 'cook');
   Wait(50+random(50))
  if TimeFromMark(Colorshitty)>12000 then
  begin
   writeln('Could Not Get Cook Color.. Restart Script'
    );
   TerminateScript;
  end;
  if (not(Loggedin)) then
   break;

 until CookSymb<>0;
 writeln('Cook Color: '+IntToStr(CookSymb)+' ;');
end;
end;

procedure Colorshit3;
begin
if( QuestSymb = 0 ) then begin
 MarkTime(Colorshitty);
 repeat
   QuestSymb:=GetSymbolColor(x, y, 'quest');
   Wait(50+random(50))
  if TimeFromMark(Colorshitty)>12000 then
  begin
   writeln('Could Not Get Quest Color.. Restart Script'
    );
   TerminateScript;
  end;
  if (not(Loggedin)) then
   break;

 until QuestSymb<>0;
 writeln('Quest Color: '+IntToStr(QuestSymb)+' ;');
end;
end;

procedure Comeon(Col: string);
begin
 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
  case Random(2) of
    0: GameTab(4);
    1: ;
  end;
end;

Procedure AutoResp;
var TheLine, Oldline, NewLine : string;
Begin

 OldLine := TheLine;
 TheName := Lowercase(trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 0, 40, True, tr_NormalChars)));
 TheLine := Lowercase(trim(GetTextAtEx(20, 415, 45, SmallChars, False, False, 0, 2, 16711680, 40, False, tr_NormalChars)));
 NewLine := TheLine;

  If OldLine <> NewLine then
   If (pos('yo', TheName) <> 0) or (pos(Players[CurrentPlayer].Nick, TheName) <> 0) then
    Begin
     Exit;
    End

   If(InChat('Craft') or InChat('crafting') and InChat('lvls') or InChat('levels'))then
    Begin
     TypeSend(IntToStr(GetSkillLevel('crafting')));
    End else

   If(InChat('lol') or InChat('lmao')) or InChat('lmfao') or InChat('rofl')then
    Begin
     TypeSend(LaughText[Random(25)]);
    End else

    If(InChat(Players[CurrentPlayer].Name)) or (InChat(Players[CurrentPlayer].Nick))then
     Begin
      TypeSend(WhatText[Random(7)]);

   End;
End;


{procedure RandomR;
var
  m: Integer;
begin
  if (not (LoggedIn)) then Exit;
  m := MouseSpeed;
  MouseSpeed := 7+Random(2);
  case Random(7) of
    0: Wait(10+Random(10));
    1: MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
    2: MouseBox(743, 3, 764, 497, 3);
    3: ;
    4: MouseBox(499, 343, 552, 496, 3);
    5: MouseBox(MIX1, MIY1, MIX2, MIY2, 3);
    6: MouseBox(2, 346, 14, 499, 3);
  end;
  MouseSpeed := m;
end;}


Procedure CoordFlax;
 var B:integer;
begin
  B:=8;
  repeat
    B:=B+1;
    if(B=170)then begin
    if(not(loggedin))then
      Exit;
    end;
  until(FindColortolerance(x,y,Flax,MMX1,B,MMX2,B,40));
Mouse(x-25,y-10,2,2,true);
SetRun(false)
GameTab(4);
Wait(3000)
FFlag(0);
end;

Procedure CoordTree;
 var B:integer;
begin
  B:=8;
  repeat
    B:=B+1;
    if(B=170)then begin
      Exit;
    end;
  until(FindColor(x,y,TreeSymb,MMX1,B,MMX2,B));
Mouse(x,y+80,1,1,true);
FFlag(0);
end;


Procedure CoordBank;
 var B:integer;
begin
  B:=8;
  repeat
    B:=B+1;
    if(B=170)then begin
      Exit;
    end;
  until(FindColor(x,y,TreeSymb,MMX1,B,MMX2,B));
Mouse(x+10,y+35,1,1,true);
FFlag(0);
end;

Procedure GoToTree;
 var B:integer;
begin
  B:=43;
  repeat
    B:=B+1;
    if(B=170)then begin
      Exit;
    end;
  until(FindColor(x,y,TreeSymb,MMX1,B,MMX2,B));
Mouse(x+25+random(1),y-35,1,1,true);
FFlag(0);
end;





procedure WalkFlax;
var
 tol,x, y: Integer;
begin
  CoordTree;
  x:=650;
 y:=121;
 if (FindColorSpiraltolerance(x, y, Treesymb, 607, 52, 676, 110
  , 25)) then
  Mouse(x-4, y+40, 2, 2, True)
 else
  ComeOn('Tree Symbol');
 SetRun(True);
 Wait(10+Random(78));
 setrun(true);
// Colorshit2;
 BagOn;
 Wait(100+random(100))
// ColorShit3;
  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
   Writeln('Using One Coord, For AntiLost')
   Mouse(627,114,2,2,True);
   end;
   end;
 FFlag(10);
    repeat
    Mouse(680, 128, 2, 2, true)
    Wait(100+random(100))
    if (not(Loggedin)) then
    break;
  until (FlagPresent)
 GameTab(4)
  repeat
  Wait(1500+random(500))
   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(0);
end;


Procedure SetRunH;
begin
if (Players[CurrentPlayer].Banked mod 2)=0 then
SetRun(True)
else
SetRun(False)
end;

Procedure HomeChooseRun;
begin
  case Random(4) of
    0: SetRun(False);
    1: SetRun(False);
    2: SetRun(False);
    3: ;
    4: ;
  end;
end;


procedure GoBankStart;
var
 x, y: integer;
begin
 if (FindColorSpiraltolerance(x, y, Treesymb, 532, 0, 758, 81
  , 20)) then
 begin
  Writeln('Up Tree Found')
  TreeMark := TreeMark + 1;
   Mouse(604, 65, 2, 2, True);
   HomeChooseRun;
  Wait(2000+random(1000))
   FFlag(10);
 end
 else
 begin
  if (FindColorSpiraltolerance(x, y, Treesymb,
   552, 76, 721, 152, 20)) then
  begin
   Writeln('Down Tree Found')
   TreeMark := TreeMark + 1;
    Mouse(616, 35, 2
    , 2, True);
  SetRun(False)
  Wait(100+random(100))
  SetRun(False)
  Wait(500+Random(500))
    FFlag(10);
  end;
 end;
end;



Function FlagUs :boolean;
 Begin
  While (FlagDistance > 15) Do
    Begin
    if(findcolorRighttol(x, y, Treesymb, 558, 5, 671, 122, 20))then result:=true;
   End;
End;

procedure NoQC;
begin
  //Writeln('Can''t Find Cook Or Quest Symbol, Using Other Coordinates')
  x:=541;
  y:=87;
  if (FindColorSpiraltolerance(x, y, Treesymb,566, 36, 711, 138, 20)) then
  begin
   Mouse(x+45, y-18, 1, 1
    , True);
   FFlag(10);
   end;
   end;
   


procedure GoBank;
var
 ret, b,x, y: integer;
begin
//Writeln('Path [ 1 ]');
B:=0;
ret:=0;
Done:=Done+1;
 M:=70
CoordFlax;
 MarkTime(FlaxMark)
 repeat
  ret:=ret+1;
  M:=M+1;
  Mouse(616, M, 1, 1, True);
  FClag(10);
  if(findcolorRighttol(x, y, Treesymb, 558, 5, 671, 122, 20))
  then
   Break;
until(TimeFromMark(FlaxMark)>20000)
if (findcolorRighttol(x, y, Treesymb, 558, 5, 671,
  122, 20)) then
 begin
 Mouse(x+30, y+5+random(3),
   0+random(3), 0+random(3), true);
   FFlag(0);
  {if (not(FindColorSpiraltolerance(x, y, Ladder,594, 33, 643, 65, 25))) then
  B:=1;
  if (not(FindColorSpiraltolerance(x, y, Questsymb,565, 6, 740, 148, 25))) then
  B:=1;
  if (not(FindColorSpiraltolerance(x, y, Cooksymb,565, 6, 740, 148, 25)))
  then}
  B:=1;
  if ( B = 1 ) then
  begin
  //FindTalk;
  end
  else
  begin
  //FindTalk;
  end;
 { x:=631;
  y:=80;
  if (FindColorSpiraltolerance(x, y, Treesymb,
   613, 57, 631, 99, 15)) then
  begin
   Mouse(x+30, y-42, 1, 1
    , True);
   FFlag(2+random(2));  }
   GoToTree;
   x:=647;
   y:=43;
   if (FindColorSpiraltolerance
    (x, y, Treesymb, 607, 26, 715, 103, 10)) then
   begin
    Mouse(x-15, y-20, 1, 1, True);
    Wait(2000+random(400))
     FFlag(5);
CoordBank;
   end
   else
   begin
    ComeOn('Tree Symbol');
   end;
  end;
 end;



Procedure FightHome;
begin
if (FindFight) then
    RunAwayDirection('S');
    Wait(8000 + random(3000));
    RunBack;
    if(FindDead)then
      LogOut;
      Wait(2000+random(1000))
      Exit;
      end;

procedure PickingFlax;
 var
   x, y: Integer;
  begin
 if(InvFull) then begin
FailedBank:=FailedBank+1;
 Writeln('Failed Banking');
  FFlag(0);
exit;
end
else
begin
FindRandoms;
 repeat
 FindRandoms;
  if (FindObj(x, y, 'lax', FlaxMS, 22)) then
   Mouse(x, y, 1, 1, True);
   FindRandoms;
  FFlag(0);
  FindRandoms;
  Wait(310+Random(190));
  FindRandoms;
  if (not(Loggedin)) then
   break;
 until (InvFull)or(InChat('carry'))or(FindFight)or(FindDead);
     if(FindDead)then
      LogOut;
      Exit;
        if (FindFight) then
exit;
end;
end;

function FindObjAreaMTR(var x, y: integer; ObjectText1, ObjectText2,
 ObjectText3: string; x1, y1, x2, y2, ObjectColor, ObjectTolerance, RandS
 : Integer; Center: Boolean): Boolean;
var
 Pointss: TPointArray;
 Numss, CenX, CenY, Ra, Rb: Integer;
begin
 Ra:=Ra+random(RandS);
 Numss:=0;
 if (Center) then
 begin
  CenX:=x2/2;
  CenY:=y2/2;
  FindColorsSpiralTolerance(CenX, CenY, Pointss
   , ObjectColor, x1, y1, x2, y2, ObjectTolerance
   )
 end
 else
 begin
  FindColorsTolerance(Pointss, ObjectColor, x1,
   y1, x2, y2, ObjectTolerance);
 end;
 if (GetArrayLength(Pointss)<>0) then
 begin
  repeat
   MMouse(Pointss[Numss].x, Pointss
    [Numss].y, 0, 0);
   wait(450+random(50));
   if (Rb>=Ra) then
   begin
    if (IsUpTextMulti(
     ObjectText1, ObjectText2
     , ObjectText3)) then
    begin
     Result:=True
      ;
     x:=Pointss
      [Numss]
      .x;
     y:=Pointss
      [Numss]
      .y;
    end
    else
    begin
     Numss:=Numss
      +1;
    end;
   end
   else
   begin
    Rb:=Rb+1;
    Numss:=Numss+1;
   end;
  until (Numss=GetArrayLength(Pointss))or(
   Result)
 end;
end;

function FindObjectMTR(var x, y: integer; ObjectText1, ObjectText2,
 ObjectText3: string; ObjectColor, ObjectTolerance, RandS: Integer; Center
 : Boolean): Boolean;
begin
 Result:=FindObjAreaMTR(x, y, ObjectText1, ObjectText2,
  ObjectText3, 1, 1, 515, 336, ObjectColor, ObjectTolerance, RandS
  , Center)
end;

function NearestObjMT(var cx, cy: Integer; Text, Text2, Text3: string;
 color, color2, color3, tolerance: Integer): Boolean;
var
 x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
 if (FindColorTolerance(x, y, color,MSX1,MSY1,MSX2,MSY2, tolerance))or
 (FindColorTolerance(x, y, color,MSX1,MSY1,MSX2,MSY2, tolerance))
 or(FindColorTolerance(x, y, color,MSX1,MSY1,MSX2,MSY2, tolerance)) then
 begin
  x1:=218;
  y1:=79;
  x2:=278;
  y2:=195;
  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 (IsUpTextMulti
      (Text,
      Text2, Text3
      )) then
     begin
      Result:=True;
      Break;
     end;
    end;
   end;
   if (a=4) then
    a:=0;
  until (x2>515)or(Result=True);
 end;
end;

procedure OpenBank4;
var
 x, y, fs, fs2: Integer;
begin
 if not BankScreen then
  repeat
   if NearestObjMT(x, y, 'se', 'ank', 'nk',
    10463921, 539728, 10463921, 40) then
    Mouse(x, y, 4, 4, False)
   else if FindObjectMTR(x, y, 'se', 'ank',
    'nk', 539728, 40, 0, True) then
    Mouse(x, y, 4, 4, False)
     Wait(220+Random(10));
   if (ClickOption('quickly', 1)) then
   begin
    FFlag(0);
    repeat
     Wait(100+random(10));
     fs:=fs+1;
    until (BankScreen)or(fs>=10)or(not(Loggedin))
    if (not(loggedin)) then
     break;
   end;
   fs2:=fs2+1;
  until (BankScreen)or(fs2>5);
end;

Procedure WholeBank;
Begin
Wait(100+Random(100))
If (not(BankScreen))then begin
CoordBank;
   FFlag(0);
   OpenBank4;
   end
   else
   exit;
   end;


Procedure Frees;
begin
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
  while(not(FindBankers(x,y))) do begin
    if(Direction=0) then KeyDown(vk_left)
    else KeyDown(vk_right);
    repeat
    P:=P+1;
      wait(40+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;
end;


Procedure LogOutWait;
  begin
   repeat
FindNormalRandoms;
 Wait(1000);
   until (not(LoggedIn))
wait(1000+random(5000));
    end;

Procedure LogOutNoWait;
Begin
    LogOut;
  Wait(100+random(100))
repeat
 FindNormalRandoms;
 Wait(1000)
    Until(not(LoggedIn))
wait(1000+random(5000));
end;

Procedure HomeCloseBank;
begin
  case Random(2) of
    0: CloseBank;
    1: Wait(1+random(1));
  end;
end;

Procedure LogOutCase;
Begin
  case Random(2) of
    0: LogOutWait;
    1: LogOutNoWait;
  end;
end;

Procedure PathChoose;
Begin
  case Random(2) of
    0: GoBank;
    1: GoBank;
  end;
end;

Procedure FixChatCase;
Begin
  case Random(2) of
    0: FixChat;
    1: wait(50+random(50));
  end;
end;




begin
 ClearReport;
 ClearDebug;
 SetupSRL;
 FindRs;
// SetupLaughText;
// SetupWhatText;
 bkSetup;
 //Tih := 0;
  sst := GetSystemTime;
 Writeln('Stuff Loaded')
ActivateClient;
SymbolAccuracy:=0.2;
Flax:=11884646;
CookSymb:=0;
 FlaxMS:=940041;
 FailedBank:=0;
  TreeSymb:=0;
 Done:=0;
 MouseSpeed:=10+random(1);
 DeclarePlayers;
 ActivateClient;
 Wait(50+random(50))
  If(not(loggedIn))then
 LoginPlayer;
 Colorshit1;
 writeln('Flax Color: '+IntToStr(FlaxMS)+' ;');
 Direction:=0;
 AlignCompass;
 repeat
 MouseSpeed:=10+random(1);
  HighestAngle;
  P:=0;
If(Align = True) Then AlignCompass;
  FindTalk;
  FixChat;
  WalkFlax;
  PickingFlax;
  GoBank;
  Openbank4;
  WholeBank;
  DepositAll;
  Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked + 1 ;
  FlaxPicked := FlaxPicked + 28;
  ProgressReport;
  Disguise(IntToStr(Players[CurrentPlayer].banked)+'/'+IntToStr(Loads)+ '  [ ' +IntToStr(Players[CurrentPlayer].banked*28)+' ]');
if ((LoggedIn) and (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(LoggedIn);
   Disguise(' Next Player ');
  end;
 if (not(Loggedin)) then
   NextPlayer(false);
 until (False);
end.

——————————————————
<!– END TEMPLATE: formanswers –>

YES! I still don't understand why you aren't a member already.

In! (YES!)

But.. Wizzup/Fawki said you couldn't app last time you apped, tho? Have they forgave you?

You can script, that's for sure, wether if you get in is not me to decide but an admin/moderator.
I can vote yes because of your scripting talent, but if you get in is not my choise.

EDIT: Why not sending the Flax Gardener's Enternity script instead of this one, if I'm correct, this is an older one.

yes for acticity / longlivety

yes for script

yes for your ninja turtle

so i gues its a yes

Yes, very nice script. Who voted no?

From: hy71194

But.. Wizzup/Fawki said you couldn't app last time you apped, tho? Have they forgave you?

I don't what that's about, but it's a definite yes from me, you obviously know how to script :)

I forgot why you got de-memberized, but you've proved you've changed. YES.

Very yes from me. Nice script.

Home did something bad with SB100's ess miner back-when. He is past that now, and I hope he gets in ^^

I vote yes! Very nice, I hope you get accepted and stay in this time.

Yes!! but its up to fakawi or a admin now

From: rudeboialex
Yes!! but its up to fakawi or a admin now

Indeed like I stated before.

For other people who don't know what he has done, he did cracked Stress Miner by StarBlaster100 in past, because of that StartBlaster100 cracked his flaxer/banker and posted it at every single forum :)

From: the scar noob
Indeed like I stated before.

For other people who don't know what he has done, he did cracked Stress Miner by StarBlaster100 in past, because of that StartBlaster100 cracked his flaxer/banker and posted it at every single forum :)

Sorry for bad english..

I cracked first his :( and then he mine and i deserved it..

( i am not sure did your post mean that, sorry i have bad English sometimes.. )

~Home

Im pretty sure he ment it that way,

because of that StartBlaster100

is like

because of that, StartBlaster100..

= revenge ;)

From: n3ss3s
Im pretty sure he ment it that way,



is like

= revenge ;)

Indeed n3ss3s, indeed!
Town, you have to pay some bills now, n3ss3s said something that isn't useless!!:p:spot:

I think you have learned your lesson ;)

Yes, don't vote against him because of his past actions.

I have no problem with him being a SRL member now, he seems to have matured up a lot.

Star has spoken. We will make this one quick and painless.


erm……



in!