Results 1 to 5 of 5

Thread: [Help]Evaluate My Find Rock Precedure

  1. #1
    Join Date
    Mar 2007
    Location
    UK
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    [Help]Evaluate My Find Rock Precedure

    Please tell me why my Rock FInding Precedure isnt working.

    Location: 3 rocks (iron) al kahid.

    Please also Suggest a better method if any.

    SCAR Code:
    program AlKahidMiner;

    {.include SRL/SRL.scar}

    {----------------------------------}
    Const
     OreColor          = 2108744;
     StartPlayer          = 0;
     Loads              = 10;
    {----------------------------------}
    procedure ActivePlayers;
    begin

      HowManyPlayers := 3;
      CurrentPlayer := StartPlayer;

      Players[0].Name := 'Username';
      Players[0].Pass := 'Passwird';
      Players[0].Nick := 'Usr';
      Players[0].Active := True;

      Players[1].Name := 'Username';
      Players[1].Pass := 'Password';
      Players[1].Nick := 'Nickname';
      Players[1].Active := True;

      Players[2].Name := 'Username';
      Players[2].Pass := 'Password';
      Players[2].Nick := 'Nickname';
      Players[2].Active := True;

    end;
    //--------------------+
    //-----------------------------------+
    //-----------------------------------+
    //-----------------------------------+
    Function FindOres: Boolean;
     begin
     MakeCompass('N');
        If(FindColorSpiralTolerance(x,y,OreColor,0,0,600,600,5)) then
      Begin
            Result := True;
            wait(1500);
                begin
                    MMouse(x,y,1,1);
                                     If(IsUpText('ine'))then
                    Wait((1000)+random(500));
                    Mouse(x,y,1,1,true);
                end;
         end;
     end;
    //-----------------------------------+
    procedure DropOres;
     begin
        If(InvFull) then
                begin
                    DropTo(1,27);
                end;
     end;
    //-----------------------------------+
    //-----------------------------------+
    //-----------------------------------+
    {-----------+
    |/Main loop/|
    +-----------}


     begin
        SetupSRL;
        repeat
        FindOres;
        DropOres;
     until(false)
    end.

    I am looking for somebody to teach me some basics on Autocolor/Banking Precedures/Anti Randoms and Anti ban.

    my msn: alukashovcccp@hotmail.com

  2. #2
    Join Date
    Jul 2006
    Location
    NY
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Function FindOres: Boolean;
    begin
      MakeCompass('N');
      If (FindColorSpiralTolerance(x, y, OreColor, 0, 0, 600, 600, 10)) then
        MMouse(x, y, 1, 1);
        If(IsUpText('ine'))then
        begin
          Wait((1000) + random(500);
          GetMousePos(x, y);
          Mouse(x, y, 1, 1, true);
          Result := True;
          Wait(1500);
        end;
    end;
    Replace this with your old one, this should work. Look at what I did differently.
    EDIT: tip - use is uptextmulti for better text finding.

  3. #3
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    First off, you say that your script's not working. What's wrong with it? Does it bring up an error? Does the mouse freak out?

    Banking procedures... I, for one, hate the banking procedures that SRL provides. They're all so laggy. I suggest making your own banking procedure for your scripting needs

    AntiBan, there are several procedures and functions for this in the SRL file. If you don't really like any of those, you can always make your own. Like a small AutoResponder or RandomTalker. Just make a little InChat/TypeSend procedure. Won't take that long.

    AntiRandoms can also be found in the SRL file. I suggest using FindNormalRandoms and FindTalk. FTWait(x) is a good function. It will preform one FindTalk about every 1/4th a second. 1 = 1/4 second, 2 = 2/4 (1/2) second, etc.

    As far as AutoColoring, I can't say I know much about that. I suggest trying the Tuts section.

    Good luck,

    Mike.

  4. #4
    Join Date
    Mar 2007
    Location
    UK
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I meant that it works, it just doesnt work the way I need it to work jason I wanted to evaluate it, and as for the Help I Requested, I had some specific questions on those topics - I allready know their functions/basics.

    Anyways, thanks for feedback.

    I will elaborate on my problems in game (just tested it). I am having this bug where after clicking on the rocks, the mouse pointer clicks on random locations on the ground? :?

    Why is this happening?

  5. #5
    Join Date
    Mar 2007
    Location
    UK
    Posts
    69
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nvm, got it working

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. At the Rock Crabs
    By Floor66 in forum OSR Help
    Replies: 8
    Last Post: 11-30-2008, 05:50 PM
  2. Best way to find a rock?
    By Runescapian321 in forum OSR Help
    Replies: 12
    Last Post: 12-27-2007, 11:08 PM
  3. Solving the Rock Gas..
    By pwnaz0r in forum News and General
    Replies: 7
    Last Post: 09-21-2007, 11:04 PM
  4. new rock golem
    By Boreas in forum RS has been updated.
    Replies: 58
    Last Post: 04-21-2007, 04:55 PM

Posting Permissions

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