Results 1 to 4 of 4

Thread: RCopperMiner my first script :)

  1. #1
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default RCopperMiner my first script :)

    My first ever script! Sorry it's a bit messy but here it is
    Finally I stopped being a leacher and read the srl tuts and guides
    Here is a pic to show where to start it! It's in the burthorpe mine.

    Thank you everyone who posted guides I couldn't have done it without yall

    Simba Code:
    program RCopperMiner;
    {$DEFINE SMART8}
    {$i srl/srl.simba}

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // This is set to the total amount of players (more on multiplayer later ;)), for now, just keep it set as 1
      NumberOfPlayers(HowManyPlayers); // This is a procedure in SRL which sets up player arrays (also, more on that later), this will always be the same
      CurrentPlayer := 0; // This is the player to start with; the first player will always be 0 (you'll find out when you learn all about arrays)

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Nick := ''; // 3-4 lowercase letters from username; used for random event detection
      Players[0].Active := True; // Set to true if you want to use Player 0
      Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
    end;

    procedure AntiBan;
    begin
      If(not(LoggedIn)) then
      Exit;
      ExitSquealOfFortune;
      case Random(60) of
        10: RandomRClick;
        20: HoverSkill('Mining', False);
        30: PickUpMouse;
        40: RandomMovement;
        50: BoredHuman;
      end;
    end;

    procedure ClickMineSpot;
     var x, y: integer;
    begin
     if FindObj(x, y , 'ine', 5214973, 30) then
     begin
        Writeln('We found the rock!');
        ClickMouse2(mouse_right);
        ChooseOption('ine');
        wait(5900+random(350));
      repeat
        Wait(1100+random(250));
        ClickMineSpot;
        AntiBan;
        Until (InvFull);
      end;
    end;

    procedure DropOre;
    var i: integer;
    begin
       Writeln('Droping all ore!');
       for i:= 0 to 2 do
      begin
       DropPattern(Random(2) + 1);
       if InvCount = 0 then
          break;
      end;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      LogInPlayer;
      ClearDebug;
      repeat
        wait(500);
      ClickMineSpot;
      DropOre;
      Antiban;
        until false
    end.

    Post bugs and errors below I will try my best to fix them!
    Last edited by ringgold101; 04-09-2013 at 11:47 PM.

  2. #2
    Join Date
    Sep 2012
    Location
    Tigard, Oregon
    Posts
    98
    Mentioned
    1 Post(s)
    Quoted
    31 Post(s)

    Default

    What tuts did you read? Interested in learning more myself

  3. #3
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by Zeds View Post
    What tuts did you read? Interested in learning more myself
    http://villavu.com/forum/showthread.php?t=58935
    http://villavu.com/forum/showthread.php?t=44942
    this link is for the section with all guides on scripting http://villavu.com/forum/forumdisplay.php?f=490
    And I played around with the simba program
    Last edited by ringgold101; 04-10-2013 at 08:36 PM.

  4. #4
    Join Date
    Mar 2007
    Posts
    393
    Mentioned
    1 Post(s)
    Quoted
    98 Post(s)

    Default

    Congratulations on your release
    I'd change this
    Code:
    ClickMouse2(mouse_right);
        ChooseOption('ine');
    for

    Code:
    ClickMouse2(mouse_left);
    because legit player usually left clicks rocks
    I see you use case random() of in antiban. Try adding it to choose which mouse click it does.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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