Results 1 to 9 of 9

Thread: 1 more time for help and then im done ;)

  1. #1
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    1 more time for help and then im done ;)

    Ive Finally finished my auto woodcutter and dropper but i cant really test it.
    It runs very slow but i dont know if it works. It logs me in then crashes on rs.
    Please can some one test it for me correct any errors and find my a anti lag procedure thank you. p.s i dont know if my Wc part and drop is working after the login DeclarePlayers; Area.


    SCAR Code:
    program FirstScript;
    {.include SRL/SRL.scar}

    var
    i,x,y:Integer;

    const
      TreeColor = 606775;//the color of the tree

    Procedure DeclarePlayers;
    begin


      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name        := '---------------'; //UserName
      Players[0].Pass        := '---------------'; //Password
      Players[0].Nick        := '---------------'; //Your Nickname
      Players[0].Active      := True; //Active

      Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure Signiture;
    begin
    writeln('');    // sig (haven't finished yet)
    writeln('');
    writeln('');
    writeln('');
    writeln('');
    writeln('');
    writeln('');
    writeln('');
    writeln('');

    end;

    procedure Login;  //Login
    begin
     if (not(LoggedIn)) then  //If not logged in then logs in player
     LoginPlayer;
    end;

    procedure CutTree; //Cuts the Trees
    begin

      i:= 0;
      repeat //repeats
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True);  // Moves mouse
          Wait(5000 +random(500));
        end;
      until(InvFull);
    end;

    procedure Drop; //Drops logs
    begin
     DropAll;  // Drops Everything
    end;

    begin
      SetupSRl;  // setup srl
      Signiture; // setup sig
      DeclarePlayers; // Declare Players
      if (not(LoggedIn)) then Login;
      repeat        // Repeat these functions
      CutTree;      // Cut
      Drop;         // Drop
      until(false)  // Until stoped
    end.            // Finished

  2. #2
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    P.s i want to say thanks to:

    Derek!

    CAocodog13

    And Sp0rky






    Thankyou guys alot you have all been a really great help

  3. #3
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure CutTree; //Cuts the Trees
    begin
     
      i:= 0;
      repeat //repeats
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True);  // Moves mouse
          Wait(5000 +random(500));
        end;
      until(InvFull);
    end;

    As you can see from your code, you are repeating with NO wait. This is probably the cause for the lag.

    SCAR Code:
    procedure CutTree; //Cuts the Trees
    begin
     
      i:= 0;
      repeat //repeats
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True);  // Moves mouse
          Wait(5000 +random(500));
        end;
      wait(200+random(250)); //Not to lag out RS (Increase if needed);
      until(InvFull);
    end;

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  4. #4
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty i try it out now

  5. #5
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    where would i fit in a end else into it as i cant put a "LogOut;" function into the script if it doesnt find any trees. or a "writeln('can't find any trees logging out')"

  6. #6
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure CutTree; //Cuts the Trees
    begin
     
      i:= 0;
      repeat //repeats
        i:=i + 1;
        if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
        begin
          Wait(1000 +random(500))
          Mouse(x, y, 3, 3, True);  // Moves mouse
          Wait(5000 +random(500));
        end;
      wait(200+random(250)); //Not to lag out RS (Increase if needed);
      until(InvFull) or (i>20); //change this to whatever u need
      if(i>20)then
      begin
        writeln('Logging out, cant find tree.');
        Logout;
      end;
    end;

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  7. #7
    Join Date
    Oct 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you very much, it is so frustrating to always type selling ...

  8. #8
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty u r da best i promise im putting u in my script

  9. #9
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tomdavies View Post
    ty u r da best i promise im putting u in my script
    No problem, no need to put my name anywhere. Learn from what you have been shown, thats all you NEED to do

    thank you very much, it is so frustrating to always type selling ...
    Spamming for post count?

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 67
    Last Post: 03-25-2009, 10:32 AM
  2. This time... a different run time error...
    By uber jesus in forum OSR Help
    Replies: 4
    Last Post: 02-09-2007, 01:01 AM
  3. Long time listener...first time caller
    By Ransom in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 11-04-2006, 02:05 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
  •