Results 1 to 8 of 8

Thread: Maxima's Barbarian Clay

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

    Default Maxima's Barbarian Clay

    Mines Clay at barbarian village, then banks in edgeville. 90% of the credit goes to KeepBotting as this started as his script but his was not what I wanted, so I fixed it up a bit and added quite a lot(; so MOST credit goes towards him. FeedBack guys? Longest proggies will get posted. Leech prevention is active(;

    E* will update with pictures instruction and such when I get home today.

    Simba Code:
    program Maximas'BarbarianClay;
    {$DEFINE SMART}
    //{$DEFINE CRASHSMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}
    {$i ObjectDTM\ObjDTMInclude.simba}

    var
    MiningClay: Boolean;
    WalkingToBank: Boolean;
    Banking: Boolean;
    WalkingToMine: Boolean;
    Loads: Integer;
    ClayMined: Integer;
    LvlsGain: Integer;
    ExperienceGain: Integer;


    ///////////////////////////////////
    ///////////////////////////////////
    /////       Start Setup     ///////
    ///////////////////////////////////
    ///////////////////////////////////

    const
    {---SMART Setup Constants---}
      WORLD = 28;  //Put your desired Runescape world number here. Leave it as 0 to choose a random world.
      MEMBERS = False;  //False if you are Free-To-Play. True if you are a Member.
      SIGNED = True;  //True if running a single account, False otherwise. This script only declares 1 player anyway, so just leave this alone.
    {---------------------------}

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 4;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;

    Players[0].Name := '
    '; //Your Runescape username here.
    Players[0].Pass := '
    '; //Your Runescape password here.
    Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
    Players[0].Pin := '
    Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.

    {Players[1].Name := ''; //Your Runescape username here.
    Players[1].Pass := ''; //Your Runescape password here.
    Players[1].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
    Players[1].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.

    Players[2].Name := '';
    Players[2].Pass := 'korn123';
    Players[2].Active := True;
    Players[2].Pin := 'Your_Bank_PIN';

    Players[3].Name := '';
    Players[3].Pass := '';
    Players[3].Active := True;
    Players[3].Pin := 'Your_Bank_PIN'; }

    end;

    ///////////////////////////////////
    ///////////////////////////////////
    /////  Dont Touch Below ///////
    ///////////////////////////////////
    ///////////////////////////////////

    procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    WriteLn('Welcome to Maxima'sBarbarianClay beta');
    WriteLn('
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;


    procedure AntiBan;
    begin

      if not LoggedIn then
      Exit;
      FindNormalRandoms;

      If LevelUp then
      begin
      WriteLn('
    Congratulations, You Have Just Leveled Up!');
      Inc(LvlsGain);
      end;

      case Random(61) of
        10: RandomRClick;
        20: HoverSkill('
    Mining', False);
        30: PickUpMouse;
        40: RandomMovement;
        50: BoredHuman;
        60: ExamineInv;
      end;
    end;

    procedure AntiBanLg;
    begin
    if(not(LoggedIn))then
    exit;
    FindNormalRandoms;
    case Random(3) of
    0:
    begin
    WriteLn('
    AntiBanLg chosen: Hover Skill.');
    HoverSkill('
    Mining', false);  //This hovers your mouse over the Woodcutting skill.
    wait(2500+Random(500));
    end;
    1:
    begin
    WriteLn('
    AntiBanLg chosen: Move Camera.');
    MakeCompass('
    N');  //This fiddles around with the Camera. Aligns the Camera North, rotates the Camera South, then aligns North again.
    wait(100+random(133));
    MakeCompass('
    S');
    wait(50+random(133));
    MakeCompass('
    N');
    end;
    2:
    begin
    WriteLn('
    AntiBanLg chosen: Bored Human.');
    BoredHuman;
    end;
    end;
    end;


    procedure Progress;
    begin
    WriteLn('
    ');
    WriteLn('
    |========================================|');
    WriteLn('
    ||           Modified by Maxima       ||');
    WriteLn('
    ||                                       ||');
    WriteLn('
    |========================================|')
    WriteLn('
    ||      Running For: ' + PadR(TimeRunning, 19) + '||')
    WriteLn('
    |========================================|');
    WriteLn('
    |     Exp    | Lvls | Clay Mined | Loads |');
    WriteLn('
    |----------------------------------------|');
    WriteLn('
    |            |      |            |       |');
    WriteLn('
    |    ' + PadR(IntToStr(ExperienceGain), 8) + '|  ' + PadR(IntToStr(LvlsGain), 4) + '|     ' + PadR(IntToStr(ClayMined), 7) + '|   ' + PadR(IntToStr(Loads), 4) + '|');
    WriteLn('
    |            |      |            |       |');
    WriteLn('
    |----------------------------------------|')
    WriteLn('
    | 90% of credit goes to to KeepBotting   |');
    WriteLn('
    |========================================|');
    WriteLn('
    ');
    end;

    procedure Bank;
    var fx, fy: integer;
    Banked: Boolean;

    begin
        FindNormalRandoms;
        MiningClay := False;
        WalkingToMine := False;
        WalkingToBank := False;
        Banking := True;

        Banked := False

        WriteLn('
    Banking.');
        repeat
        if not (IsMoving) then
          begin
            if OpenBankNPC then
                repeat
                Wait(1000 + Random(1000));
                DepositAll();
                Wait(250 + Random(500));
                until not InvFull;
                CloseBank();
                Wait(500 + Random(1000));
                Banked := True

              end;

              WriteLn('
    Done Banking.');
              Inc(Loads);
              until (Banked)
    Progress;
    end;



    procedure StopScript;
    begin
    Progress;
    Wait(2000);

    TerminateScript;
    end;

      procedure WalkToMine;
    var
    ToMine: TPointArray;
      begin
       FindNormalRandoms;
      MakeCompass('
    N');
      SetAngle(0);
      writeln('
    We are going to mine some clay!');
      SPS_Setup(RUNESCAPE_SURFACE,['
    10_6','10_7']);
      ToMine := [Point(4211, 2681), Point(4176, 2692), Point(4154, 2709), Point(4161, 2741), Point(4166, 2783), Point(4191, 2816), Point(4195, 2862), Point(4196, 2899), Point(4195, 2928), Point(4176, 2974), Point(4155, 3020), Point(4165, 3056)];
      SPS_WalkPath(ToMine);
       wait(1200+random(250));
      end;



    procedure MiningFailsafe;
    var
    runCount: Integer;

    begin

    if (runCount = 0) then
      begin
      WalkToMine;
      Writeln('
    Run Count 0');
        Wait(100 + random(50));
        KeyDown(VK_DOWN);
        Wait(500 + random(1000));
        KeyUp(VK_DOWN);
        Wait(100 + random(50));
        Inc(runCount);
      end

    else if (runCount = 1) then
      begin
      Writeln('
    Run Count 1');
        Wait(100 + random(50));
        KeyDown(VK_LEFT);
        Wait(100);
        KeyUp(VK_LEFT);
        Wait(100 + random(50));
        Inc(runCount)
      end

    else if (runCount = 2) then
      begin
      Writeln('
    Run Count 2');
        Wait(100 + random(50));
        KeyDown(VK_LEFT);
        Wait(1000);
        KeyUp(VK_LEFT);
        Wait(100 + random(50));
        Inc(runCount)
      end

    else if (runCount = 3) then
      begin
      Writeln('
    Run Count 3');
        Wait(100 + random(50));
        KeyDown(VK_LEFT);
        Wait(2000);
        KeyDown(VK_LEFT);
        Wait(100 + random(50));
        Inc(runCount)
      end

    else if (runCount = 4) then
      begin
      Writeln('
    Run Count 4');
        Wait(100 + random(50));
        KeyDown(VK_LEFT);
        Wait(50 + random(100));
        KeyDown(VK_UP);
        Wait(2000);
        KeyUp(VK_LEFT);
        Wait(50 + random(100));
        KeyUp(VK_UP);
        Wait(100 + random(50));
        Inc(runCount)
      end

      else
        StopScript;


    end;

    procedure MineClay;
    var
    x, y: integer;
    rockNotFound: integer;

    begin
        repeat
          if not(LoggedIn) then
      begin
      DeclarePlayers;
        LogInPlayer;
      end;
        FindNormalRandoms;
        MiningClay := True;
        WalkingToMine := False;
        WalkingToBank := False;
        Banking := False;

        WriteLn('
    Deystroy that clay!');

        if not (IsMoving) then
          begin
            if FindObj(x, y, '
    ine', 8767469, 35) then
              begin
              Wait(100 + Random(100));
                Mouse(x, y, 2, 2, true);
                Inc(ClayMined);
                ExperienceGain := ExperienceGain + 5;
              end
              else
              begin
              Writeln('
    Can not find clay, lets try this(;');
              Inc(rockNotFound);
              end;
            if not FindObj(x, y, '
    ine', 8767469, 35) and (rockNotFound >= 4) then
            begin
            Writeln('
    This is "this"');
            rockNotFound := 0;
            MiningFailsafe;
            end;
          end;
          repeat
          wait(2000+random(1500));
          AntiBan;
          Until not IsUpText('
    ew') or (InvFull);
      until(InvFull);
      WriteLn('
    You have mined 28 clay and gained 140exp you rock!');
      rockNotFound := 0;
    end;

    procedure WalkBank;
    var
    ToBank: TPointArray;
      begin
      FindNormalRandoms;
      MakeCompass('
    N');
      SetAngle(0);
      writeln('
    Putting away clay for use later!');
      SPS_Setup(RUNESCAPE_SURFACE,['
    10_7','10_6']);
      wait(1000+random(250));
      ToBank:= [Point(4177, 3041), Point(4176, 2996), Point(4180, 2964), Point(4197, 2932), Point(4201, 2895), Point(4200, 2868), Point(4198, 2832), Point(4198, 2809), Point(4183, 2788), Point(4162, 2766), Point(4156, 2721), Point(4172, 2692), Point(4185, 2684), Point(4212, 2685), Point(4209, 2674)];
        SPS_WalkPath(ToBank)
         wait(1000+random(250));
      end;


      procedure CrashSMART;
    begin
      Writeln('
    You are using CRASHSMART, so we are going to reload your client after the RS update!');
      SmartgetFieldObject(1488,'
    crash'); // will crash SMART (and Simba).
      // IF THIS DOES NOT CRASH YOUR SIMBA, YOU ARE NOT USING THE PROPER PLUGIN
      // AN ACCESS VIOLATION HERE IS NOT THE CRASH; MAKE SURE YOU MOVED THE EDITED PLUGIN
      Wait(5000);
      WriteLn('
    CRASHSMART Failed: Make sure you are using the proper plugin!');
      WriteLn('
    Read more about this feature at villavu.com/forum/showthread.php?t=67864');
      TerminateScript;
    end;


    begin
    Smart_Server := WORLD;
    Smart_Members := MEMBERS;
    Smart_Signed := SIGNED;
    Smart_SuperDetail := False;

    //SRL_Procs[srl_OnRSUpdate] := @CrashSMART;


    SetupScript;
    DeclarePlayers;
    wait(1500+random(1000));
    LoginPlayer();



    if (InvCount<28) then
    begin
      WalkToMine;
    end;
    if (InvCount=28) then
    begin
      WalkBank;
      Bank;
      Progress;
      WalkToMine;
    end;

    repeat
      MineClay;
      wait(1000+random(250));
      WalkBank;
      wait(1000+random(250));
      Bank;
      Progress;
      wait(1000+random(500));
      WalkToMine;
      if not(LoggedIn) then
      begin
      DeclarePlayers;
        LogInPlayer;
      end;
    until AllPlayersInactive;
    end.
    Last edited by Home; 02-17-2012 at 05:23 PM.

  2. #2
    Join Date
    Jan 2012
    Posts
    522
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to Maxima'sBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    Should be procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to MaximasBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    And dont bother with this. Not even yours. Should have just learned from it.

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

    Default

    Quote Originally Posted by Phyaskou View Post
    procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to Maxima'sBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    Should be procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to MaximasBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    And dont bother with this. Not even yours. Should have just learned from it.
    do you know to read ??? look what description says.

    Mines Clay at barbarian village, then banks in edgeville. 90% of the credit goes to KeepBotting as this started as his script but his was not what I wanted, so I fixed it up a bit and added quite a lot(; so MOST credit goes towards him.


  4. #4
    Join Date
    Feb 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Phyaskou View Post
    procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to Maxima'sBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    Should be procedure SetupScript;
    begin;
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    WriteLn('Welcome to MaximasBarbarianClay beta');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~');
    end;

    And dont bother with this. Not even yours. Should have just learned from it.
    Please learn to read.

  5. #5
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    direct download please lol ill test it out

  6. #6
    Join Date
    Feb 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by kingsleyeng View Post
    direct download please lol ill test it out
    I havent been at home since I posted this, posted from a friends computer in Florida, also there is anti-leech to prevent the crash of clay, its very easy. Ill post a direct download when I finally arrive home later today, Post a proggie?

  7. #7
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Sorry I was fixing your script because I saw it was not compiling. I didn't saw your "anti leech" part. Returned to "Anti-Leech" state.

    ~Home

  8. #8
    Join Date
    Feb 2012
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Home View Post
    Sorry I was fixing your script because I saw it was not compiling. I didn't saw your "anti leech" part. Returned to "Anti-Leech" state.

    ~Home
    Lol its okay Home I just don't want clay to crash to hard as this runs for 17+ hours with crash smart.

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
  •