hmmm

yet an other problem with my lletya flaxer, there arnt any errors or any thing like that, but theres this one bug thats driving me crazy! all it does is click the inv tab thing and sits there, and i cant figure out how or why

SCAR 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=  15394989;// 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, 386, 51, 105, 34, 10)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;
  FindBox;
  OpenBox;
  SolveBox;
  FindMod;
  FindDead;
  FindFrogCave;
  SolveFrogSwamp;
  SolveQuiz;
  SolveSandWich;
  
  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
  repeat
      PickFlax;   
      WalkToBank; 
      Banking;   // need to work on 
      ProgressReport; 
      WalkFromBank; 
      AntiBan;
      AntiRandoms;
      until(true);
      signature; 
    end.

there is one thing that i know i have to work on, banking procedure

Try Not to use FindColor for depositing, Instead use one of SRL's Procedures: Deposit

And also Banking doesn't need to be a function as it return no result ;)

So your Banking Procedure Fixed!:

SCAR Code:

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);
    Deposit(2,28,2);
     Loads1 := Loads1+ 1;
     Result := True;
     if Result = True then
     begin
       FlaxNum := FlaxNum + 1;
       LoadsNum := LoadsNum + 1;
       ReportVars[1] := ReportVars[1] + 1;
       SendSRLReport;
   end;

Hope I Helped :)

Quote:

---

Originally Posted by NaumanAkhlaQ

Try Not to use FindColor for depositing, Instead use one of SRL's Procedures: Deposit

And also Banking doesn't need to be a function as it return no result ;)

So your Banking Procedure Fixed!:

SCAR Code:

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);
    Deposit(2,28,2);
     Loads1 := Loads1+ 1;
     Result := True;
     if Result = True then
     begin
       FlaxNum := FlaxNum + 1;
       LoadsNum := LoadsNum + 1;
       ReportVars[1] := ReportVars[1] + 1;
       SendSRLReport;
   end;

Hope I Helped :)

---

0.o Missing 2 End's!, what LaQ means is that you did if bank then but bank didn't returned True if it did that, if I'm right.

well theres one thing wrong with the banking still. i looked it up and for all findbank funtions in srl, lb means lumby bank. not lletya.

hmm darn. i still cant fix it. i havnt even tried working on the banking system. i need to compleatly redo it.

You may want to try different Bank Opening Procedures ;)

Like

OpenBankFast('lb')

I think there are many more, check the Banking Includes In SRL.

Hope I Helped :)

yepp there are more, but lb means lumby bank in all of them

hmm, its still just going up and hitting the inventory tab

Try and Make your won bank finding Procedure using FindObj, Thats what I used for Edgeville.

So:

SCAR Code:

If FindObjCustom(whatevea) Then
Mouse(x,y,1,1,false);
ChooseOption('k bank');

Hope I Helped :)

no no no. i mean that once you start the script in the flax feild it goes and hits the inv tab

gah, this is a hard one. iv looked over my script umting times and i cant figure out why it moves to the inventory tab and does nothing.

Use Writelns and tell me where it goes:

SCAR Code:

Writeln(Yay1');
Someting;
Writeln('yay2');
....

Quote:

---

Originally Posted by Cazax

Use Writelns and tell me where it goes:

SCAR Code:

Writeln(Yay1');
Someting;
Writeln('yay2');
....

---

what? first of all, this is just bugging me. it should be

SCAR Code:

Writeln('yay1');
Something;
Writeln('yay2');

but, what does that have to do with any thing?:confused: i dont mean to be a piss head about

Quote:

---

Originally Posted by akwardsaw

what? first of all, this is just bugging me. it should be

SCAR Code:

Writeln('yay1');
Something;
Writeln('yay2');

but, what does that have to do with any thing?:confused: i dont mean to be a piss head about

---

Hes saying put a writeln with saying something related to the activity your doing, so we know which part it does this at. And to not make any of them the same.

ahh ok, so then i guess i would put one after i finished the load, if there is a random, or if it loggs out

Quote:

---

Originally Posted by akwardsaw

ahh ok, so then i guess i would put one after i finished the load, if there is a random, or if it loggs out

---

Put one in every procedure/function that does something to the script.

that works.. =p

Write a debug procedure. Its not hard, but it makes debugging INSANELY easier.

Here feel free to use mine, just credit me.

SCAR Code:

{-NDB aka Nava2's Debug!-}

procedure NDB(Proc : String);
begin
  if Debugging then
    Writeln('Debug: '+ Proc + '; Time: ' + IntToStr(GetTimeRunning));
    Status(Proc);
end;

Call it by: NDB('Procedure Name');

If you use that, just put in all your procedures, some kind of text to help you tell what is running. It will then write in the debug box, the procedure and show it in the status bar.

Also, make a Const named Debugging and set it to true to use Debug, and False to not use it. :) Still call it either way.

Nava2

SCAR 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=  15394989;// the blue part of the flax
TimeToWait= 5000;

Debugging = 'true'// true if you want to debug, false if not

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, 386, 51, 105, 34, 10)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;
  FindBox;
  OpenBox;
  SolveBox;
  FindMod;
  FindDead;
  FindFrogCave;
  SolveFrogSwamp;
  SolveQuiz;
  SolveSandWich;

  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;

{-NDB aka Nava2's Debug!-}

procedure NDB(Proc : String);
begin
  if Debugging then
    Writeln('Debug: '+ Proc + '; Time: ' + IntToStr(GetTimeRunning));
    Status(Proc);
end;



//Main Loop//
begin
  repeat
      PickFlax;
      NDB('PickFlax');
      WalkToBank;
      NDB('WalkToBank');
      Banking;
      NDB('Banking');   // need to work on
      ProgressReport;
      WalkFromBank;
      NDB('WalkFromBank');
      AntiBan;
      AntiRandoms;
      until(true);
      signature;
    end.

right?

I'm want to try testing this script, can anyone quickly reply and tell me how to get to this flax field? it's not the one south of Camelot is it? if it's not I'm not I don't know where other flax fields are, think I saw one before but can't remember where.

EDIT: nevermind, sorry I can't test it to see where it gets to for me, I didn't do the quest, and to od it I need to do waterfall and regicide and for regicide i need 56 agility and another quest, it'll take me too long, maybe I can see later on in this week what the script does for me. But you forgot to put in SetupSRL; in your main loop. I don't know if it'll fix your error but it might, i don't think that's your inv. tab problem though.

thanks for the pointing out.. =]

yea no problem, if I happen to see anything else I'l let you know, I'll try to look for anything else, and because your script uses the crosshair, does it not need ActivateClient; I'm not really sure about that, along with like DeclarePlayers; and LogInPlayer;.... I'm guessing you don't need it if it's signing you in, assuming it does, because you get stuck on that tab.

EDIT: there's a semicolon forgotten on line 26 I think, the line with choosing whether to debug or not. and I'm gettin a type mismatch near line 170 for the debugging, sorry not sure how to fix it off hand. someone with more experience might know how to fix it, or maybe you know how.

oh and after if debugging then, i think on the next line you need begin. but the type mismatch still comes up, im bout to look up why those errors come, I can't remember why.

i guess i should make that declareplayers worth having.. i'll add in that log in player thing later

I changed

SCAR Code:

if Debugging then

to

SCAR Code:

if Debugging = 'true' then

it got rid of the type mismatch, but now theres an unknown identifier, couldn't find a solution for type mismatch besides check line above it, but i'm guessing it's the line that it says, cause when i changed the line it said, if Debugging then, it went away, and gave me a new one, that line's starting to annoy me lol

ask nava2, hes the one that made the procedure... =p