Page 1 of 2 12 LastLast
Results 1 to 25 of 36

Thread: hmmm

  1. #1
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default 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

  2. #2
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    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

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    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.
    ~Hermen

  4. #4
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    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.

  5. #5
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

  6. #6
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    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

  7. #7
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

  8. #8
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

  9. #9
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    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

  10. #10
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

  11. #11
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    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.

  12. #12
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use Writelns and tell me where it goes:
    SCAR Code:
    Writeln(Yay1');
    Someting;
    Writeln('
    yay2');
    ....


  13. #13
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    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? i dont mean to be a piss head about

  14. #14
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by akwardsaw View Post
    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? 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.

  15. #15
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    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

  16. #16
    Join Date
    Jan 2008
    Location
    Alberta
    Posts
    727
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by akwardsaw View Post
    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.

  17. #17
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    that works.. =p

  18. #18
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    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
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  19. #19
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    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?

  20. #20
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    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.

  21. #21
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    thanks for the pointing out.. =]

  22. #22
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    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.

  23. #23
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

  24. #24
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    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

  25. #25
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

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

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Hmmm help on continues.
    By yamaha317 in forum OSR Help
    Replies: 7
    Last Post: 02-26-2008, 08:58 AM
  2. hmmm
    By Dangerous Garden Tools in forum OSR Help
    Replies: 2
    Last Post: 01-29-2008, 04:48 AM
  3. hmmm problem..
    By yamaha317 in forum OSR Help
    Replies: 2
    Last Post: 07-12-2007, 06:56 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •