Results 1 to 14 of 14

Thread: [RS2] LevExidus Power Miner

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

    [RS2] LevExidus Power Miner

    News Dude: The LevExidus producions have come a long way from its AutoTalkers to its AutoMiner. It was established by Jvwarrior who is also the one who scripted the scripts. Now we have Jvwarrior here for an exclusive interview. Jvwarrior?

    Jvwarrior: Well hello news dude.

    News Dude: So Jvwarrior tell us about the LevExidus Power Miner.

    Jvwarrior: Well the Power Miner is my newest release and it includes Anti-Randoms, Anti-Ban, and ModScans. Some of the Randoms include FindMaze, FindMime, and much more! It has FindFastRandoms and FindNormalRandoms. I made this to allow the best Power Mining for the fellow people. It mines the ore that was specified and drops them all until you hold down the F10 key. Although there seems to be a problem with that it still works as long as its held down long enough.

    News Dude: Seems like a very great script! Tune in next time for News Dude Interviews!

    LOL ok that was basically a little something I thought would be pretty cool. As explained up top the LevExidus Power Miner is very suffisticated and has jsut about the best protection I'v ever seen. The instructions are included inside. Here is the script:
    SCAR Code:
    {   LevExidus AutoMiner        ]
    [       By Jvwarrior           ]
    [______________________________]
    [      Instructions:           ]
    [1. First find the ore you     ]
    [   would like to mine.        ]
    [   Then click on the color    ]
    [   picker on your top bar.    ]
    [   Use the color picker to get]
    [   your ore color.            ]
    [                              ]
    [2. When you have the ore color]
    [   copy and paste it into     ]
    [   orecolor1 using ctrl+alt+c ]
    [   to copy.                   ]
    [                              ]
    [3. Specifie the RS window     ]
    [   using the Crosshairs on    ]
    [   your top bar. Drag them to ]
    [   the runescape screen.      ]
    [                              ]
    [4. Start the script. Watch as ]
    [   SCAR automatically mines   ]
    [   your ore for you.          ]
    [      HAPPY CHEATING!         ]
    [______________________________}

    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

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

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      x, y: Integer;
      ModBMP, x, y: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Cred;
    begin
      Writeln('LevExidus AutoMiner')
        Writeln('By Jvwarrior')
        Writeln('Enjoy The Script!')
    end;

    procedure StartMe;
    begin
      Writeln('Starting')
        Writeln('J')
        Wait(200)
        Writeln('JV')
        Wait(200)
        Writeln('JVW')
        Wait(200)
        Writeln('JVWA')
        Wait(200)
        Writeln('JVWAR')
        Wait(200)
        Writeln('JVWARR')
        Wait(200)
        Writeln('JVWARRI')
        Wait(200)
        Writeln('JVWARRIO')
        Wait(200)
        Writeln('JVWARRIOR')
        Wait(200)
        Writeln('OWNZ THIS SCRIPT!')
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        TerminateScript;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Mining');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Mining', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      Login;
      DisableChats;
      repeat
        LoadBMP;
        FindFastRandoms;
        FindTheRandoms;
        ScanForMod;
        ABan;
        Mining;
      until (IsFKeyDown(10));
    end.

    Please post any bugs and any way to improve this scipt.
    I hope someone can fully test this for me. It compiles and works but I havnt had the time to test it long enough. The longest test time was probably 20 minutes.


    EDIT: EDITED AND WORKS GREAT!
    Download Below:
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  2. #2
    Join Date
    Dec 2006
    Location
    Minnesota
    Posts
    227
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good

    procedure ScanForMod;
    begin
    if (findbitmap(ModBMP, x, y)) then
    begin
    writeln('OMG Mod!');
    TerminateScript;
    end;
    end;
    but personally i would put logout and wait a while instead of terminate

  3. #3
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use scar tags... just like code tags only change code to scar...

    Looks pretty good although I would add some Nextplayer(true) //true means last plays Activity will be true. Also add loads instead of until F 10...

    Add
    SCAR Code:
    Const
    load := 5; //number of loads till switch player.
    TotalLoads:= 100; //loads of all players.

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
    Loads:= Loads +1;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Loads:= 0;
      repeat
        DeclarePlayers;
        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
        Login;
        DisableChats;
        repeat
          LoadBMP;
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load:= Loads);
        Nextplayer(true)
        TL:= Loads;
      until(TotalLoads:= TL;)
    end.

    Hope this helps,
    ~Stupedspam

  4. #4
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Read comments:

    SCAR Code:
    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

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

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      x, y: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        TerminateScript;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars); //Unneeded
      Login;
      DisableChats;
      repeat
        LoadBMP; //Don't load the bitmap every time; it will make the script crash after a while.
        FindFastRandoms;
        FindTheRandoms;
        ScanForMod;
        ABan;
        Mining;
      until (IsFKeyDown(10))
    end.

    Learn & use multiplayer.

    Not a bad script, keep working and you'll become a good scripter.
    Interested in C# and Electrical Engineering? This might interest you.

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

    Default

    Quote Originally Posted by rockman View Post
    looks good



    but personally i would put logout and wait a while instead of terminate
    Yea what would the commands for that be? I'v seen it before but I just dont remember.

    Quote Originally Posted by stupedspam View Post
    Use scar tags... just like code tags only change code to scar...

    Looks pretty good although I would add some Nextplayer(true) //true means last plays Activity will be true. Also add loads instead of until F 10...

    Add
    SCAR Code:
    Const
    load := 5; //number of loads till switch player.
    TotalLoads:= 100; //loads of all players.

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
    Loads:= Loads +1;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Loads:= 0;
      repeat
        DeclarePlayers;
        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
        Login;
        DisableChats;
        repeat
          LoadBMP;
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load:= Loads);
      Nextplayer(true)
      TL:= Loads;
      until(TotalLoads:= TL;)
    end.

    Hope this helps,
    ~Stupedspam
    Thanx i think i get it but the Next player is not needed until i add multiple players right?
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  6. #6
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by jvwarrior View Post
    Yea what would the commands for that be? I'v seen it before but I just dont remember.
    SCAR Code:
    Logout;
    writeln('Mod found, waiting');
    Wait(90000 + random(120000));
    LoginPlayer;

    Thanx i think i get it but the Next player is not needed until i add multiple players right?
    But what if the user adds in extra players themselves?
    Interested in C# and Electrical Engineering? This might interest you.

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

    Default

    oh

    Thanx for the feedback SmatzKid and the advice.

    Ok everyone this is what i got so far:

    SCAR Code:
    {   LevExidus AutoMiner V.2    ]
    [       By Jvwarrior           ]
    [______________________________]
    [      Instructions:           ]
    [1. First find the ore you     ]
    [   would like to mine.        ]
    [   Then click on the color    ]
    [   picker on your top bar.    ]
    [   Use the color picker to get]
    [   your ore color.            ]
    [                              ]
    [2. When you have the ore color]
    [   copy and paste it into     ]
    [   orecolor1 using ctrl+alt+c ]
    [   to copy.                   ]
    [                              ]
    [3. Specifie the RS window     ]
    [   using the Crosshairs on    ]
    [   your top bar. Drag them to ]
    [   the runescape screen.      ]
    [                              ]
    [4. Start the script. Watch as ]
    [   SCAR automatically mines   ]
    [   your ore for you.          ]
    [      HAPPY CHEATING!         ]
    [______________________________}

    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
      load:= 5; //number of loads
      TotalLoads:= 5;
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

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

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      x, y: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Cred;
    begin
      Writeln('LevExidus AutoMiner')
        Writeln('By Jvwarrior')
        Writeln('Enjoy The Script!')
    end;

    procedure StartMe;
    begin
      Writeln('Starting')
        Writeln('J')
        Wait(200)
        Writeln('JV')
        Wait(200)
        Writeln('JVW')
        Wait(200)
        Writeln('JVWA')
        Wait(200)
        Writeln('JVWAR')
        Wait(200)
        Writeln('JVWARR')
        Wait(200)
        Writeln('JVWARRI')
        Wait(200)
        Writeln('JVWARRIO')
        Wait(200)
        Writeln('JVWARRIOR')
        Wait(200)
        Writeln('OWNZ THIS SCRIPT!')
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
      Loads:= Loads +1;
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        TerminateScript;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Loads:= 0;
      repeat
        DeclarePlayers;
        Login;
        DisableChats;
          LoadBMP;
          repeat
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load:= Loads);
        Nextplayer(true)
        TL:= Loads;
      until(TotalLoads:= TL;)
    end.

    but it gives me this error:
    SCAR Code:
    Failed when compiling
    Line 33: [Error] (14714:5): is ('=') expected in script C:\Program Files\SCAR 3.12\Scripts\LevExidus AutoMiner.scar
    turns out line 33 is the
    SCAR Code:
    load:=5
    part
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  8. #8
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry I always put a : just take them out...

    ~Stupedspam

  9. #9
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    And umm smartzkid i think you do need
    SCAR Code:
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    cause now it gives me an error about ModBMP. It gives:
    SCAR Code:
    Failed when compiling
    Line 71: [Error] (14752:1): Unknown identifier 'ModBMP' in script C:\Program Files\SCAR 3.12\Scripts\LevExidus AutoMiner.scar
    and when i have
    SCAR Code:
    NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    it doesnt.. oh my bad it does. Well what now im extremely needy.
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  10. #10
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is what I'v got so far but it still gives me the error above, what now?
    SCAR Code:
    {   LevExidus AutoMiner V.2    ]
    [       By Jvwarrior           ]
    [______________________________]
    [      Instructions:           ]
    [1. First find the ore you     ]
    [   would like to mine.        ]
    [   Then click on the color    ]
    [   picker on your top bar.    ]
    [   Use the color picker to get]
    [   your ore color.            ]
    [                              ]
    [2. When you have the ore color]
    [   copy and paste it into     ]
    [   orecolor1 using ctrl+alt+c ]
    [   to copy.                   ]
    [                              ]
    [3. Specifie the RS window     ]
    [   using the Crosshairs on    ]
    [   your top bar. Drag them to ]
    [   the runescape screen.      ]
    [                              ]
    [4. Start the script. Watch as ]
    [   SCAR automatically mines   ]
    [   your ore for you.          ]
    [      HAPPY CHEATING!         ]
    [______________________________}

    program Autominer;
    {.Include SRL/SRL.Scar}

    {!*================EDIT ORE COLOR!=================*!}
    const
      orecolor1 = 2371663;
      load= 5; //number of loads
      TotalLoads= 25;//All the loads between players
    {!*=================OK YOUR GOOD===================*!}
    {!*==============NOW EDIT YOUR PLAYER==============*!}

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

      Players[0].Name := 'Username'; //place your username here
      Players[0].Pass := 'Password'; //place your password here
      Players[0].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[0].Active := True;
      Players[1].Name := 'Username'; //place your username here
      Players[1].Pass := 'Password'; //place your password here
      Players[1].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[1].Active := True;
      Players[2].Name := 'Username'; //place your username here
      Players[2].Pass := 'Password'; //place your password here
      Players[2].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[2].Active := True;
      Players[3].Name := 'Username'; //place your username here
      Players[3].Pass := 'Password'; //place your password here
      Players[3].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[3].Active := True;
      Players[4].Name := 'Username'; //place your username here
      Players[4].Pass := 'Password'; //place your password here
      Players[4].Nick := 'Nickname'; //3 - 4 letters of YOUR username, example: sern
      Players[4].Active := True;
    end;
    {!*================NO TOUCHING!====================*!}
    var
      x, y: Integer;

    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    procedure Cred;
    begin
      Writeln('LevExidus AutoMiner')
        Writeln('By Jvwarrior')
        Writeln('Enjoy The Script!')
    end;

    procedure StartMe;
    begin
      Writeln('Starting')
        Writeln('J')
        Wait(200)
        Writeln('JV')
        Wait(200)
        Writeln('JVW')
        Wait(200)
        Writeln('JVWA')
        Wait(200)
        Writeln('JVWAR')
        Wait(200)
        Writeln('JVWARR')
        Wait(200)
        Writeln('JVWARRI')
        Wait(200)
        Writeln('JVWARRIO')
        Wait(200)
        Writeln('JVWARRIOR')
        Wait(200)
        Writeln('OWNZ THIS SCRIPT!')
    end;

    procedure Mining;
    begin
      repeat
        if (findcolorspiraltolerance(x, y, orecolor1, msx1, msy1, msx2, msy2, 25)) then
          mouse(x, y, 3, 3, true);
        wait(2000);
        case Random(10) of
          6: typesend('Mining lvls?');
        end;
      until (InvFull);
      if (InvFull) then DropToPosition(2, 28);
      Loads:= Loads +1;
    end;

    procedure DisableChats;
    begin
      if (not (LoggedIn)) then
        Exit;
      SetChat('off', 1);
      SetChat('friends', 2);
      SetChat('on', 3);
      SetChat('off', 4);
    end;

    procedure Login;
    begin
      if (not (LoggedIn)) then
        LoginPlayer;
    end;

    procedure ScanForMod;
    begin
      if (findbitmap(ModBMP, x, y)) then
      begin
        writeln('OMG Mod!');
        Logout;
        Writeln('Mod Found Ettempting to Evade');
        Wait(90000 + random(100000));
        LoginPlayer;
      end;
    end;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 10 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
          10: Respond;
        end;
        wait(1);
      end;
    end;

    procedure FindTheRandoms;
    begin
      FindTalk;
      FindFastRandoms;
      FindNormalRandoms;
      FindLamp('Woodcutting');
      SolvePinball;
      if (FindFight) then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 + Random(3000));
        RunBack;
      end;
    end;

    procedure ABan;
    begin
      if (not (LoggedIn)) then
        Exit;
      case Random(8) of
        0: RandomRClick;
        1: HoverSkill('Woodcutting', False);
        2: RandomMovement;
        3: BoredHuman;
        4: PickUpMouse;
        5: AlmostLogout;
        6: begin
            GameTab(1 + Random(12));
            wait(2000 + Random(1000));
            GameTab(4);
          end;
      end;
    end;

    begin
      SetupSRL;
      ActivateClient;
      Cred;
      StartMe;
      Loads:= 0;
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      LoadBMP;
      repeat
        DeclarePlayers;
        Login;
        DisableChats;
          repeat
          FindFastRandoms;
          FindTheRandoms;
          ScanForMod;
          ABan;
          Mining;
        until (Load:= Loads);
        Nextplayer(true)
        TL:= Loads;
      until(TotalLoads:= TL;)
    end.
    well thats not all of it i still have to add more credits.
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  11. #11
    Join Date
    Aug 2007
    Location
    irc://irc.rizon.net:6667/srl
    Posts
    1,566
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jvwarrior View Post
    This is what I'v got so far but it still gives me the error above, what now?
    SCAR Code:
    {!*================NO TOUCHING!====================*!}
    var
      ModBMP, x, y: Integer; // Add "ModBMP" to the variable :p
     
    procedure LoadBMP;
    begin
      ModBMP := BitmapFromString(13, 11, 'z78DA3330A037707274723' +
        '430307732774215C71481005743574354BDB84C43560911C1540F' +
        '51838B84A8C71427CF345C24754D839833924D23CF4C5CE6500B0' +
        '000AB69B141');
    end;

    "Far better it is to dare mighty things, to win glorious triumphs, even though checkered by failure, than to take rank with those poor spirits who neither enjoy much nor suffer much because they live in the gray twilight that knows neither victory nor defeat."
    — Theodore Roosevelt

  12. #12
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm it doesnt work it says duplicae identifier in script and it says that about the line you told me for the variable

    EDIT: nevermind my fault thanx
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

  13. #13
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, it's because it's global variable, just change all modbmp to something else, example : modbmpp , and it works great... anyways nice start, but should be posted in first script section

    edit:
    EDIT: nevermind my fault thanx
    oops!

  14. #14
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its ok and umm why would this be in first script? This was my 7th script apart from my autotalkers.
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Power miner
    By Kasmember13 in forum First Scripts
    Replies: 10
    Last Post: 01-18-2009, 08:19 PM
  2. X PM, First Power miner
    By XRaye in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 01-18-2008, 08:50 PM
  3. Power Miner
    By yanix in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 11-11-2007, 06:51 PM
  4. first power miner, need a little help.
    By JAD in forum OSR Help
    Replies: 3
    Last Post: 02-22-2007, 12:18 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
  •