[RS2][SCAR] LevExidus Power Miner By Jvwarrior NEW!

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:

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;

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.

I'm working on LevExidus Power Miner V.2 but it got a couple bugs and might be released sometime next week. Hope you like this script please comment and please use.

 

Please comment! Power Miner V.2 is almost out with more players and protection! Also the LevExidus Power Cutter is almost out!

 

Looks like you rely on SRL a lot. Back when I made a couple scripts for SCAR in 2003, they were usually over 1000 lines.

 

well now a days there are better SRL's and they are much more usable and easier.

 

Back in the day, there was no "SRL". I had to script everything. Good luck with the miner btw.

 

Doesn't look like such a good script to be honest. In your ScanForMod procedure, that could easily fail, and if it does find a mod it just terminates? Doesn't even log out or anything.

Edit: Actually looking over the script, it looks pretty shitty, but nice for a first try I guess if it is your first try. But I WOULD NOT recommend anyone using this unless they want to get banned.