Llyta flax picker/banker V1 BETA ( my first major script )

this is my first script.

tell me any bugs there are. post the proggy

any feedback at all is welcom, thanks

the script is kind of improved, there shouldnt be any more errors

Code:

///////////////////////////////INSTRUCTIONS!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////FILL OUT SETTINGS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////PUT THE CROSS HAIRS OVER THE RUNESCAPE WINDOW\\\\\\\\\\\\\\\\
//////////////////////////HIT PLAY AND HAVE FUN\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////START IN LLETYA FLAX FEILD\\\\\\\\\\\\\\\\\\\\\\\\\
//////////MAKE SURE YOU ARE LOGGED ON FIRST, AND AN EMPTY INVENTORY\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////thanks to Nova2 for the great constructive feedback\\\\\\\\\\\
//////////// Bigger Thanks to NaumanAkhlaQ for making the script better\\\\
program LletyaFlaxPickerBanker;
{.include SRL\SRL.scar}

var
  x,y,clicks: integer;

const//  VVVV  VVVV  VVVV SETTINGS VVVV  VVVV  VVVV  VVVV
Loads = 10; //How many loads per player before switching

YourSRLId = '';      { if you want it to be}
YourSRLPassword = ''; {added to your srl stats}

FlaxColor=  463567;// the blue part of the flax
TimeToWait= 5000;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser';
  Players[0].Pin := '  '; // leave blank if you dont have a pin
  Players[0].Active := True;
end;
/////////////////////DO NOT EDIT BEYOND THIS POINT\\\\\\\\\\\\\\\\\\\\\\\
procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Crafting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;



//picks flax till inventory is full
procedure PickFlax;
var
TOL,clicks : iNTEGER;
begin
 Tol := 10;
  repeat
    if FindColorTolerance(x, y, FlaxColor, MIX1, MIY1, MIX2, MIY2, TOL)then
    begin
      Mouse(x,y, 2, 3, true);
      Clicks:= Clicks+ 1;
      Wait(TimetoWait- 200);
    end;
    Wait(200);
  until(InvFull);
end;

procedure WalkToBank;
begin
  if(FindColorTolerance(x,y, 4879491, 601, 34, 615, 44, 10))then
     begin
       Mouse(x,y, 4, 2, true);
     end;
end;

Function Banking : Boolean;
var
Loads1,FlaxNum,LoadsNum:Integer;
begin
  if (InvFull) then
  begin
    MakeCompass('N');
    Wait (300 + random(160));
    OpenBankQuiet('lb');
    if (PinScreen) then
    InPin(Players[0].Pin);
    if(FindColorSpiral(x,y, 65536, 589, 219, 589, 219))then
    begin
     Mouse(x,y, 4, 3, false);
     ChooseOption('All');
     Loads1 := Loads1+ 1;
     Result := True;
     if Result = True then
     begin
       FlaxNum := FlaxNum + 1;
       LoadsNum := LoadsNum + 1;
       ReportVars[1] := ReportVars[1] + 1;
       SendSRLReport;
     end;
   end;
   CloseBank;
   Wait(150 + random (278));
   MakeCompass('S');
  end;
end;


procedure WalkFromBank;
Begin
MakeCompass('N');
begin
  if(FindColorTolerance(x,y, 12414830, 620, 118, 646, 150, 10))then
  begin
       Mouse(x,y, 5, 1, true);
     end;
  end;
end;

procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True, 1, 15000);
  FindNormalRandoms;
  FindLamp('Crafting');
end;

 procedure ProgressReport;
begin
  ClearDebug;
  Writeln('[]========================================[]');
  Writeln('---------------->Your Proggy<----------------');
  Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
  Writeln('---------------------------------------------');
  Writeln('picked ' + IntToStr(Clicks) + ' flax' + '        ');
  Writeln('[]========================================[]');
end;

procedure Signature;
begin
  writeln('-------------------akwardsaw`s lletya flaxzorz-----------------');
  writeln('       / /\ \        |  |   /  / \ \                            / /');
  writeln('      / /  \ \       |  |  /  /   \ \            /\            / /');
  writeln('     / /    \ \      |  | /  /     \ \          /  \          / /');
  writeln('    / /      \ \     |  |/  /       \ \        / /\ \        / /');
  writeln('   / /--------\ \    |  |\  \        \ \      / /  \ \      / /');
  writeln('  / /----------\ \   |  | \  \        \ \    / /    \ \    / /');
  writeln(' / /            \ \  |  |  \  \        \ \  / /      \ \  / /');
  writeln('/ /              \ \ |  |   \  \        \ \/ /        \ \/ /');
  wait(3000 + random(750));
end;



//Main Loop//
begin
  ActivateClient;
  repeat
      PickFlax;
      WalkToBank;
      Banking;
      ProgressReport;
      WalkFromBank;
      AntiBan;
      AntiRandoms;
      until(false);
      signature;
    end.

    

 

view my guide on setting up srl and scar ... in the scar help section. i dont think u clicked "move plugins" and "cleanup"

decent scrip... the code. ill test later

 

all right. will do

 

There is no anti ban...Or anything Pm me if u want me to referr u too a real Scripting forum, where u can get a ton of help on anti-ban and stuff that would increase your scripting tons

 

lol...

Code:

 procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;

he has antiban...

 

yeah dude really. its the first flipping procedure of the script, well maby not the first because of declareplayers but you get the idea

 

Code:

Line 12: [Error] (17673:5): Duplicate identifier 'x' in script C:\Program Files\SCAR 2.03\Scripts\LletyaFlaxPickerBanker.scar

 

here try this one

Code:

//special thanks to srl-forums.com\\
///////////////////////////////INSTRUCTIONS!\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/////////////////////////////FILL OUT SETTINGS\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////PUT THE CROSS HAIRS OVER THE RUNESCAPE WINDOW\\\\\\\\\\\\\\\\
//////////////////////////HIT PLAY AND HAVE FUN\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////////////START IN LLETYA FLAX FEILD\\\\\\\\\\\\\\\\\\\\\\\\\
//////////MAKE SURE YOU ARE LOGGED ON FIRST, AND AN EMPTY INVENTORY\\\\\\\\
////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
program LletyaFlaxPickerBanker;
{.include SRL\SRL.scar}

var i:integer

const//  VVVV  VVVV  VVVV SETTINGS VVVV  VVVV  VVVV  VVVV

Loads = 10; //How many loads per player before switching

YourSRLId = '';      { if you want it to be}
YourSRLPassword =''; {added to your srl stats}

YourPin = '';// if no bank pin leave blank


  procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := 'Username';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'ser';
  Players[0].Active := True;
end;
/////////////////////DO NOT EDIT BEYOND THIS POINT\\\\\\\\\\\\\\\\\\\\\\\
 procedure AntiBan;
begin
  if not LoggedIn then Exit;
  case Random(30) of
    1: RandomRClick;
    2: HoverSkill('Woodcutting', False);
    3: RandomMovement;
    4: BoredHuman;
    5: AlmostLogout;
    6: DoEmote(400 +Random(90));
  end;
end;



//picks flax till inventory is full
procedure PickFlax;
begin
  repeat
    if(FindColorTolerance(i 14736507, 202, 113, 382, 202, 10))then
    begin
      Mouse(i 0, 0, true);
      Clicks:=Clicks+1;
      Wait(TimetoWait-200);
    end;
    Wait(200);
  until(InvFull)
end;

procedure WalkToBank;
begin
  if(FindColorTolerance(i 4879491, 601, 34, 615, 44, 10))then
     begin
       Mouse(i 0, 0, true);
  end;
  
procedure Banking
begin
  if (InvFull) then
  begin
    MakeCompass('N')
    Wait (300 + random(160));
    OpenBankQuiet('lb');
    if (PinScreen) then
    InPin(YourPin);
      if(FindColorSpiral(i 65536, 589, 219, 589, 219))then
    begin
     Mouse(i 4, 3, false);
     ChooseOption('All');
     Loads:=Loads+1;
     Result := True;
     if Result = True then
     begin
       FlaxNum := FlaxNum + 1;
       LoadsNum := LoadsNum + 1;
       ReportVars[1] := ReportVars[1] + 1;
       SendSRLReport;
     end;
    end;
   CloseBank;
   Wait(150 + random (278));
   MakeCompass('S');
  end;
end;

  
procedure WalkFromBank;
MakeCompass('N');
begin
  if(FindColorTolerance(i 12414830, 620, 118, 646, 150, 10))then
     begin
       Mouse(i 5, 5, true);
  end;

Procedure AntiRandoms;
begin
  If(FindFight)then
  RunAway('N', True,1,15000);
  FindNormalRandoms;
  FindLamp('Crafting');
end;

 procedure ProgressReport;
begin
ClearDebug;
   Writeln('[]========================================[]');
    Writeln('---------------->Your Proggy<----------------');
    Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
    Writeln('---------------------------------------------');
    Writeln('picked ' + IntToStr(Clicks) + ' flax' + '        ');
    Writeln('[]========================================[]');
end;

procedure Signature;
begin
  writeln('-------------------akwardsaw`s lletya flaxzorz-----------------');
  writeln('----------any bugs? email me at [email protected]')
  wait(3000 + random(750));
end;



//Main Loop//
begin
    SetupScript;
    DeclarePlayers;
    repeat
      if(not(LoggedIn))then
    Exit;
      AntiBan;    //done
      AntiRandoms;//done
      PickFlax;   //done
      WalkToBank; //done
      Banking;    //done
      ProgressReport; //done
      WalkFromBank; //done
      until(false);
      signature; //done
end.

all i did was change the variables

 

Code:

Line 14: [Error] (17675:1): Semicolon (';') expected in script C:\Program Files\SCAR 2.03\Scripts\LletyaFlaxPickerBanker.scar

 

wth. theres no line there.. ok so all you do is delete that line i guess

 

Code:

Line 16: [Error] (17675:1): Semicolon (';') expected in script C:\Program Files\SCAR 2.03\Scripts\LletyaFlaxPickerBanker.scar

 

hmm, i didnt get that one. just try adding a semicolon at the end of that line.

currently i have:

Line 55: [Error] (12709:25): comma (',') expected in script C:\Users\akwardsaw\Documents\akwardsaws lletya flaxer v1.scar

and i cant figure out where to put it

 

wewt, alright it should work now. post all proggys

 

Line 10: [Error] (10:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script
What must i do?
thank you

 

whats on line 10?

program LletyaFlaxPickerBanker;?

thats weird

let me look into it

 

** Warning in GameTab: 4 does not exist** what to do???

 

move scar so it dosnt block the inv tab

 

code looks good. I'll test it

 

alright, if you can figure out why it dosnt work then i'll love you for ever!
jk, but i will greatly apritiate it, and i'll say thanks in the script

 

NVM, got that fixed, but now it does nothing, i get no errors etc :s just stands there.