[RS2] LevExidus Pro. Power Miner V.1

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 1 hour.

LevExidus productions is now soon coming out with LevExidus Power Miner V.2! It has much better features!

 

You call FindFastRandoms before and during FindTheRandoms. FindNormalRandoms and FindFight handles every random. Everything else you have just adds extra lag.

 

Why do I have to put my username / password into the script . I wanted to know this for a while...

 

prob cuzz just case you log out it can log back in or if it takes breaks it can log back in. BTW jvwarrior nice work thx. pwwwntage keep it up.

 

Are you the real jvwarrior from SRL? or did you just take credit for this and post it without permission?

Anyways, I agree with Town. I am going to take those out once I try running it later today. How long can I run this?

 

i have a problem:
Line 53: [Error] (14734:1): Unknown identifier 'ModBMP'

can you help me with it?

 

me too... seems like a simple problem... fix it pplzpzlpzl?!

 

it failed on line 9.Line 9: [Error] (9:1): Unknown identifier 'HowManyPlayers' in script.

i did not even touch it i left it at one

 

TOWNS THE MAN! + ill give it a try.. if i get banned im gonna have to kill u xD?

 

Line 53: [Error] (14734:1): Unknown identifier 'ModBMP' in script

says that when i run it

 

• dont repeat loading your bitmaps. This will eventually crash your machine. Just load them once.
• I wouldnt want my Player to repeat saying "Mining lvls?" every 6 out of Random(10).
• Also just call FindNormalRandoms. That will handle all.

You always interview yourself?

 

Mattyg, make sure you have your SRL set up and working

 

Ok so i copy the whole script (every thing in the code) and i put it in scar and i get the ore color then i put the color where its suppost to go then i put the cross hair into the screen then i click the little play button at the top of scar......THEN........nothing......... My cursor never moves....my guy never moves.....wtf am i doing wrong? any one have a scar tut if im doing it wrong? And at the bottom it has the same problem as coldheart

 

well, army, if you are having any problem in the script, then the script wont do anything, so its not your fault its jvs, he is probably in the process of fixing it right now.

 

Hey, great code but I get this when i try to run it.

 

lol. he always interviews himself. even on SRL. btw, this scipt is dead. updating soon?

 

i got this error at the very end of the script:

Line 247: [Error] (1108:11): Unknown identifier 'ScanExactMinimapD' in script C:\Program Files\SCAR 3.13\includes\SRL/SRL/Core/Color.scar

 

I get the following error please help

Line 1:[Error] (1:1) : Unable to register function function FindGapsTPA(TPA : TPointArray; Minpixels: Integer) :T2dPointArray; in script.

 

script wont compile. it says could not find modbmp.

 

Holy shit lol