SRL Archive - RS3 Outdated / Broken Scripts

About me:
This is my first scar script ever although I have programmed before.
I've also made a Powerminer called "RiddareRalfs Powerminer" but that was in VB and was along time ago.
I know that there are alot of Powerminers out there but I wanted to make one as my first script.
I would appreciate if you could give me some reports or improvements of this script, thanks.
Due to lack of response in my previous thread (First script subforum) I'm posting it here.

Description:
This is a standard powerminer with most of the antirandoms. It also has a Anti-ban procedure which will make you look human.
I've made the whole script myself although some parts are "taken" from other scripters.
I've also modded my script so it's easier to set how many players you would like to have (if you took anything else than 6 earlier made the script incorrect).
Programmed and suited for Scar 2.03 using SRL 3.6

Instruction:
Just some pointers…

• Fill in all info - Please, take the time to fill in the info in the script. Otherwise it may not run correctly.
• Set upp all players so that they stand next to some rocks.
• Set the screen to very bright (I could have done the script to do this but I think most of the people already have it set).
• Use low detailed with 32Bit colours screen settings.

Features:

• Antirandoms
• Anti-ban
• Auto update function
• Multiplayer support
• News script

Credits to:

• Sumilion - For the newsscript (improved this one a bit) and the "check for update" procedure.
• Yakman - For the Antiban procedures (I also improved them a bit).

Here is the script:

{.Script Info:
# ScriptName  = RiddareRalf's Powerminer
# Author      = RiddareRalf  [RiddareRalf@gmail.com]
# Description = This is a powerminer for RS2 using SRL.
                Please fill in all the required info below.
# Version     = 0.20   (for Scar 2.03 and SRL version 3.6)
# Date        = 20.05.2007
# Comments    = Under development...
/Script Info}

{If you would like to share this script to other
 sources then please ask me first. }

{Also, please post a comment or progress at:
http://www.villavu.com/forum/showthread.php?t=10341}

{=========================================================================]
| Description:                                                            |
|   This is a script that will powermine almost any ore for yo.           |
| Instructions:                                                           |
|   1.Use a 32bit resolution and set your RS brightness to very bright.   |
|   2.The script is suited for Scar 2.03 using SRL.                       |
|   3.Start next to mining rocks.                                         |
|   4.have the pickaxe wielded or in the inventory slot, remember to      |
|   adapt the constant "PickWielded" to your settings.                    |
|   5.Please fill in ALL the necessary info below or the script won't     |
|   work correctly.                                                       |
[=========================================================================}

program RalfsPowerMiner;

{.include srl/srl.scar}
{.include srl/srl/skill/Mining.scar}
{.include SRL/SRL/Misc/Trade.scar}
{.include srl/srl/skill/Fighting.scar}

//==============================[Setup]===================================\\
const
  // Script Setup
  ThisVersion  = '0.20';   // The current version of this script
  DownloadNewsVar = True; // If it should download the latest news
  CheckForUpdates = True; // If it should look and download updates
  UseAntiBan = True;      // You know what this is...

  // Player Setup
  StartPlayer  = 0;       // The player to start with
  AmountOfPlayers = 1;    // Change this to the amount of characters
  MiningWait   = 2;       // Max time to wait before taking next ore (Seconds)
  PickWielded  = False;   // Is your pickaxe wielded?
  HowManyLoads = 10;       // The number of loads to do
  RunningDir   = 'N';     // Direction to run if you get attacked
  RunFar       = True;   // Run far if being attacked?
  OreTolerance = 2;     // Change this if you know what it is

  // Ore colors
  ClayColor=3764366;      // If ore isn't found then change this value
  CopperColor=5870567;    // If ore isn't found then change this value
  TinColor=9013652;       // If ore isn't found then change this value
  IronColor=2305869;      // If ore isn't found then change this value
  SilverColor=10921650;   // If ore isn't found then change this value
  CoalColor=2438711;      // If ore isn't found then change this value
  GoldColor=2016753;      // If ore isn't found then change this value
  MithrilColor=7425100;   // If ore isn't found then change this value
  AdamantiteColor=6717286;// If ore isn't found then change this value
  RuniteColor=0;          // To come but who do even powermine runite?

var
OreDTM, LoadsDone, OreToMineColor : Integer;
OresMined : Integer;
Experience, ExpValue : Extended;

//===========================[Player Setup]================================\\
procedure DeclarePlayers;
begin
     HowManyPlayers := 6; // Don't edit this one

     CurrentPlayer := StartPlayer;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name    :='Username';
     Players[0].Pass    :='Password';
     Players[0].Nick    :='ass';  // 3-4 letters from your name. No CAPS
     // Names: Clay, Copper, Tin, Iron, Silver, Gold, Mith, Addy)
     Players[0].String1 :='Iron'; // What do you want to mine?
     Players[0].Active:= True;

     Players[1].Name    :='Username';
     Players[1].Pass    :='Password';
     Players[1].Nick    :='ssw';
     Players[1].String1 :='Copper';
     Players[1].Active:= False;    // Be sure to change this if you are using multiple players

     Players[2].Name    :='Username';
     Players[2].Pass    :='Password';
     Players[2].Nick    :='ssw';
     Players[2].String1 :='copper';
     Players[2].Active:= False;

     Players[3].Name    :='Username';
     Players[3].Pass    :='Password';
     Players[3].Nick    :='ssw';
     Players[3].String1 :='Copper';
     Players[3].Active:= False;

     Players[4].Name    :='Username';
     Players[4].Pass    :='Password';
     Players[4].Nick    :='ssw';
     Players[4].String1 :='Copper';
     Players[4].Active:= False;

     Players[5].Name    :='Username';
     Players[5].Pass    :='Password';
     Players[5].Nick    :='ssw';
     Players[5].String1 :='Copper';
     Players[5].Active:= False;
end;

//======================================================================\\
//                          My Signature                                \\
//======================================================================\\
procedure Signature;
begin
  Writeln('______ _     _     _               ______      _  __' );
  Writeln('| ___ (_)   | |   | |              | ___ \    | |/ _|');
  Writeln('| |_/ /_  __| | __| | __ _ _ __ ___| |_/ /__ _| | |'  );
  Writeln('|    /| |/ _` |/ _` |/ _` | |__/ _ \    // _` | |  _|');
  Writeln('| |\ \| | (_| | (_| | (_| | | |  __/ |\ \ (_| | | |'  );
  Writeln('\_| \_|_|\__,_|\__,_|\__,_|_|  \___\_| \_\__,_|_|_|'  );
 Writeln('RiddareRalf provides you with:');
 Writeln('            RiddareRalfs Powerminer');
end;

//======================================================================\\
//                          Progress Report                             \\
//======================================================================\\
procedure ProgressReport;
begin
  SRLRandomsReport;
  Writeln('==========================================');
  Writeln('     RiddareRalfs Progress Report:');
  Writeln('');
  Writeln('    Name:       ' + Players[CurrentPlayer].Name);
  Writeln('    Ores mined: ' + IntToStr(OresMined));
  Writeln('    Experience: ' + FloatToStr(Experience));
  Writeln('    Loads done: ' + IntToStr(LoadsDone));
  Writeln('    Worked for: ' + ScriptTime2(1));
  Writeln('==========================================');
end;

//======================================================================\\
//             CheckVersion Script  (Idea taken from Sumilion)          \\
//======================================================================\\
procedure CheckVersion;
var
  TheFileNumber: Integer;
  CurrentVersion: Extended;
  TheScriptString, ScriptName, CurrentVersionString : string;
begin
  CurrentVersionString := GetPage('http://www.wiileague.org/RS/currentversion.txt');
  CurrentVersion := StrToFloat(CurrentVersionString);
  if(CurrentVersion > StrToFloat(ThisVersion)) then
  begin
    Cleardebug;
    Writeln('Attention!');
    Writeln('');
    Writeln('There is a new version available!');
    Writeln('Downloading the latest version...');
    TheScriptString := GetPage('http://www.wiileague.org/RS/powerminer.txt');
    ScriptName := 'RiddareRalfs Powerminer  v' + CurrentVersionString + '.scar';
    TheFileNumber := ReWriteFile(ScriptPath + ScriptName, false);
    WriteFileString(TheFileNumber, TheScriptString);
    Writeln('The script has now been downloaded!');
    Writeln('You can find the script at: ' + ScriptPath + ScriptName);
    TerminateScript;
  end;
end;

//======================================================================\\
//                 News Script  (Idea taken from Sumilion)              \\
//======================================================================\\
procedure DownloadNews;
var
  Timer, x  : Integer;
  New, TheNews, Temp : string;
begin
  Status('The news is being downloaded...');
  Wait(1);
  x := 0;
  TheNews := Getpage('http://www.wiileague.org/RS/thenews.txt');
  AddToReport('[==========================]');
  AddToReport('  RiddareRalf News (V ' + ThisVersion + ')');
  MarkTime(Timer);
  repeat
    x := x + 1;
    new := copy(TheNews, x, 1);
    if(new = ',') then
    begin
      AddToReport('  ' + Temp);
      Temp := '';
    end;
    if not (new = ',') then
      Temp := Temp + new;
  until (new = '|') or (TimeFromMark(Timer) >= 3000)
  AddToReport('[==========================]');
  Status('Running script...');
end;

//======================================================================\\
//                          Load Images                                 \\
//======================================================================\\
procedure LoadImages;
begin
  OreDTM := DTMFromString('78DA635CC8C0C0D0C98002F6E41A30FC07D28' +
    'C40FC1F0818970219B50C6880918115AA06CC5B03241A08A8590E' +
    '242611503317484C27A0661211E680CC68C6AF06001A2C0EAA');
end;

//======================================================================\\
//                  Free Images (This is for the memory)                \\
//======================================================================\\
procedure FreeImages;
begin
  FreeDTM(OreDTM);
end;

//======================================================================\\
//                          Find Gas (Anti Random)                      \\
//======================================================================\\
procedure FindTheGas;
begin
  if (FindGas(x, y)) then
  begin
    //PerfectNorth;    // Same here, we don't want to run in the wrong dir
    MakeCompass('N');
    HighestAngle;    // Just to make sure
    RunAwayDirection(RunningDir);
    Wait(19000);
    RunBack;
  end;
end;

//======================================================================\\
//                 FindTheRandoms - Finds the randoms                   \\
//======================================================================\\
// Switch case because I might extend this one
procedure FindTheRandoms;
var
  i: Integer;
begin
  for i := 1 to 5 do
  begin
    case I of
    1:  FindTalk;
    2:  FindNormalRandoms;
    3:  FindTheGas; // Always good to check for this an extra time
    4:  FindPick;   // Checking for the pickaxe
    5:  FindTalk;   // Call it a third time to be sure
    end;
    Wait(1)
  end;

  if (FindFight) then
  begin
    Runawaydirection(RunningDir);
    Wait(16000);
    RunBack;
  end;
end;

//======================================================================\\
//     MouseAntiBan - Moves mouse human-like (Anti-ban) By Yakman      \\
//======================================================================\\
procedure MouseAntiBan;
begin
  if not(LoggedIn)then Exit;
  case Random(6) of
    0 : IdleTime(1000 + Random(350),500,1.0);
    1 : IdleTime(1000 + Random(350),1000,1.0);
    2 : IdleTime(1000 + Random(350),750,0.5);
    3 : SleepAndMoveMouse(2500 + Random(2500));
    4 : SleepAndMoveMouse(1500 + Random(1500));
    5 : SleepAndMoveMouse(500 + Random(500));
  end
end;

//======================================================================\\
//         MyAntiBan - Anti-Ban procedure by Yakman (modded a bit)      \\
//======================================================================\\
procedure MyAntiBan;//From Yakman
var
  DItem, DBanMe : Integer;
begin
  if not(LoggedIn)then
    Exit;
  if not(UseAntiBan)then
    Exit;
  DBanMe := Random(18);
  case DBanMe of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClickEvery(2 + Random(13));
    2 : HoverSkill('mining', False);
    3 : HoverSkill('smithing', False);
    4 : RotateEvery(20+random(10));
    5 : LeaveScreenEvery(5+random(5));
    6 : HoverEvery(15+random(5),'random');
    7 : HoverEvery(15+random(5),players[currentplayer].skill);
    8 : MouseAntiBan;
    9 : begin
          DItem:=1+random(14);
          if(ExistsItem(DItem))then
            DragItem(DItem,15+random(10));
        end
    10 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
    11 : HoverSkill('fletching', False);
    12 : HoverSkill('cooking', False);
    13 : HoverSkill('defence', False);
    14 : HoverSkill('hitpoints', False);
    15 : HoverSkill('fishing', False);
    16 : begin
           MakeCompass('S');
           wait(1500+random(500));
           MakeCompass('N');
         end;
    17 : begin
           MakeCompass('W');
           wait(1500+random(500));
           MakeCompass('N');
         end;
    18 : begin
           LowestAngle;
           Wait(random(500));
           MakeCompass('E');
           Wait(random(250));
           HighestAngle;
           Wait(random(500));
           MakeCompass('N');
           Wait(random(250));

         end;
  end;
end;

//======================================================================\\
//                          Start Mining                                \\
//======================================================================\\
procedure MiningProcedure;
begin
    repeat
      if(FindObj3( x, y, 'Mine' , OreToMineColor, OreTolerance)) then
      begin
           MMouse(x,y,0,0);
           FindTheGas;
           Wait(150+random(100));
           Mouse(x,y,0,0,true);
           FindTheRandoms;
           FindTheGas;
           Wait(MiningWait * 1000);
      end;
      Wait(Random(500));
    until (invfull)
end;

//======================================================================\\
//                          Drop Ore                                   \\
//======================================================================\\
procedure DropOre;
begin
  OresMined := OresMined + (CountItemDtm(OreDTM) - 8);
  Experience := OresMined * ExpValue;
  repeat
    if(FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2)) then
    begin
      Mouse(x, y, 0, 0, false);
      wait(400 + random(100));
      ClickOption('rop',2);
      wait(1000 + random(200));
      FindTheRandoms;
    end;
  until (not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2))
  LoadsDone := LoadsDone + 1;
end;

//======================================================================\\
//                          Setup Player                                \\
//======================================================================\\
procedure SetupPlayer;
begin
  Loadsdone:=0;
  MakeCompass('N');
  HighestAngle;
  FindPickHeadColor;

  // Setup the color to mine
  case Players[CurrentPlayer].String1 of
   'Copper' : OreToMineColor := CopperColor;
   'Tin'    : OreToMineColor := TinColor;
   'Iron'   : OreToMineColor := IronColor;
   'Silver' : OreToMineColor := SilverColor;
   'Gold'   : OreToMineColor := GoldColor;
   'Coal'   : OreToMineColor := CoalColor;
   'Mithril': OreToMineColor := MithrilColor;
   'Addy'   : OreToMineColor := AdamantiteColor;
  end;

  // I rather do this than using begin and end, less  code
  case Players[CurrentPlayer].String1 of
   'Copper' : ExpValue := 17.5;
   'Tin'    : ExpValue := 17.5;
   'Iron'   : ExpValue := 35;
   'Silver' : ExpValue := 40;
   'Gold'   : ExpValue := 65;
   'Coal'   : ExpValue := 50;
   'Mithril': ExpValue := 80;
   'Addy'   : ExpValue := 95;
  end;
end;

//======================================================================\\
//                          Switch Player                               \\
//======================================================================\\
procedure SwitchPlayer;
begin
  if((CurrentPlayer + 1) = AmountOfPlayers) then
  begin
    Writeln('The script is now done!');
    Logout;
    TerminateScript;
  end;
  NextPlayer(True);
  OresMined := 0;     // We must set this to 0 since it's a new char
  Experience := 0;    // We must set this to 0 since it's a new char
  Writeln('Switched players successfully');
  SetupPlayer;
end;

//======================================================================\\
//                          Setup Script                                \\
//======================================================================\\
procedure SetupScript;
begin
  SetUpSRL;
  DisguiseScar('Untitled - Notepad');
  EquipPick := PickWielded; // Necessary
  LoadImages;
  wait(2000);
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
  SetUpSRLMining;
  PickUpItems := True; // Picking up randoms items if pickhead is gone
  BenMouse := False;   // Turning of BenMouse to speed up a little
  SetupPlayer;
end;

//======================================================================\\
//                          The Main Loop                               \\
//======================================================================\\
procedure MainLoop;
begin
  repeat
    if (LoadsDone = HowManyLoads) then
      SwitchPlayer;
    FindTheRandoms;
    if (not (LoggedIn)) then
    begin
      FreeImages; // The script stops now and we must free the memory
      Exit;
    end;
    MiningProcedure;
    DropOre;
    MyAntiBan;
    ProgressReport;
  until (false) // Never ending loop I know but I have "If not logged in"
end;

begin
  Cleardebug;
  ClearReport;
  Signature;
  if (CheckForUpdates) then
    CheckVersion;
  if (DownloadNewsVar) then
    DownloadNews;
  SetupScript;
  MainLoop;
end.

Changelog:
Version 0.2:

[*]Improved antirandom events
[*]Improved (and fixed) dropping procedure.
[*]New progress report including how much EXP you gained and how many rocks you've mined.

Help me, help you, post a comment or a progress report.
Thanks,

RiddareRalf

hmm looks good for youre first script ill check it out…

From: 1kk3zeszes
hmm looks good for youre first script ill check it out…

Thanks.

I've tested it alot now and it runs perfectly fine.
Only problem might be the rockgolem some times but I've added some "FindFight" actions to help it solve it.

You might also be forced to change the color of the rock you are mining.
And if he doesn't find it, increase the tolerance maybe.

Thanks

Very nice script;) It works well but maybe also make something with findpick. Cuz nowhere in the script i can find a findpickaxe procedure soo. Next to that very nice script.

From: Fearlesssss
Very nice script;) It works well but maybe also make something with findpick. Cuz nowhere in the script i can find a findpickaxe procedure soo. Next to that very nice script.

If you mean the procedure "FindPick" then it's called from the Antirandom switch-case, 4: FindPick; // Checking for the pickaxe.
Thank you for the reply, if that wasn't the answer then please tell me and I'll correct it.

Oh yep your right, if forgot that in the function FindPick it doesn't only says if the pick is still there put it also (if nessecary) gets the pickhead;). But when that happens don't you need to have added the findpickheadcolor function? Cuz then it knows to search for what kind of pick. Please correct me if im wrong;)

From: Fearlesssss
Oh yep your right, if forgot that in the function FindPick it doesn't only says if the pick is still there put it also (if nessecary) gets the pickhead;). But when that happens don't you need to have added the findpickheadcolor function? Cuz then it knows to search for what kind of pick. Please correct me if im wrong;)

You mean like this?

procedure SetupPlayer;
begin
Loadsdone:=0;
MakeCompass('N');
HighestAngle;
FindPickHeadColor;
…
end;

From: RiddareRalf
You mean like this?

OMFG Serious I need to let my eyes checked:duh: .. Sorry for the false corrections. And for your first script it's reaaaally good:f: I'm working on my first script(Miner) now.
I think I'm gonna buy glasses(h)

From: Fearlesssss
OMFG Serious I need to let my eyes checked:duh: .. Sorry for the false corrections. And for your first script it's reaaaally good:f: I'm working on my first script(Miner) now.
I think I'm gonna buy glasses(h)

Are you making a miner too? That's Nice, if you ever have any problems/questions or maybe you want to discuss an idea, feel free to PM me.

Try Adding some random ness to your mouse movents… they always click on the exact coord so it can be pretty detectable, Also try adding some randomization to this:

  if (FindFight) then
  begin
    Runawaydirection(RunningDir);
    Wait(16000*Here*);
    RunBack;
  end;

  if (FindGas(x, y)) then
  begin
    //PerfectNorth;    // Same here, we don't want to run in the wrong dir
    MakeCompass('N');
    HighestAngle;    // Just to make sure
    RunAwayDirection(RunningDir);
    Wait(19000);
    RunBack;
  end;

And here.

Ok, here's a fresh new progress:

==========================================
     RiddareRalfs Progress Report:

    Name:       Guessw00t
    Ores mined: 516
    Experience: 18060
    Loads done: 27
    Worked for: 01:20:25
==========================================

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report                                 |
|    www.villu-reborn.com                                |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s]        :  3                              |
| Talking Random[s]      :  1                             |
| Rick[s] Solved         :  1                                |
| New Box[es] Solved     :  2                            |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

This is the shiznet:

| ___ (_) | | | | | ___ \ | |/ _|
| |_/ /_ __| | __| | __ _ _ __ ___| |_/ /__ _| | |
| /| |/ _` |/ _` |/ _` | |__/ _ \ // _` | | _|
| |\ \| | (_| | (_| | (_| | | | __/ |\ \ (_| | | |
\_| \_|_|\__,_|\__,_|\__,_|_| \___\_| \_\__,_|_|_|
RiddareRalf provides you with:
RiddareRalfs Powerminer
SRL Compiled in 94msec.
Pick head colors… 4336941 5519673 5059636 5256501 6307904

==========================================
RiddareRalfs Progress Report:

Name: 1337 cutter3
Ores mined: 0
Experience: 0
Loads done: 1
Worked for: 00:03:19
==========================================

==========================================
RiddareRalfs Progress Report:

Name: 1337 cutter3
Ores mined: 0
Experience: 0
Loads done: 2
Worked for: 00:08:29
==========================================
Found a box, solving…
Question is:
What number is the Square
Answer is 4
******** SOLVED BOX RANDOM ********
Found a box, solving…
Question is:
Which shape has number 1
Answer is Star
******** SOLVED BOX RANDOM ********

==========================================
RiddareRalfs Progress Report:

Name: 1337 cutter3
Ores mined: 0
Experience: 0
Loads done: 3
Worked for: 00:13:58
==========================================

==========================================
RiddareRalfs Progress Report:

Name: 1337 cutter3
Ores mined: 0
Experience: 0
Loads done: 4
Worked for: 00:19:11
==========================================
Successfully executed


/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| New Box[es] Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

From: spookyperson166
This is the shiznet:
…
total failure
…

Well, that's strange.
You didn't mine a single ore which means that it can't find the ores which leads us to that the color is wrong.
What kind of ore are you mining?
I've tried this at several computers (I've mined loads copper and iron) and it has worked. Also tried out gold and it worked too.

Thanks for posting the report, it has been useful…

You could add more colors.. So that for every ore you got 2/3 colors to search for the rock. Like

 if(FindObj3( x, y, 'Mine' , OreToMineColor or OreToMineColor2 orOreToMineColor3, OreTolerance))then 

Or something like that. That will make it find the rock more easy.

its mining the ores but it aint counting them

From: spookyperson166
its mining the ores but it aint counting them

Hm, what kind of ores are you mining?
Because they are getting counted before they are dropped.

Line 300: [Error] (17457:5): Unknown identifier 'RandomRClickEvery'

Erm?

Thats because its for scar 2.03 not for DIVI

I AM using 2.03, but I still get the error

you must use srl 3.6 not 3.7. I had the same probs before as well. SCAR 2.03+SRL 3.6 is compatible with most scripts.

^^does this script of anti-gas? Wissup's doesn't have anti-gas and every 1-2hrs i end up with a broken pick :@. Good work though, i've run for 30minutes and no probs yet. I have one suggestion though. When i power mine iron, it sometimes (actually very often) clicks the same ore twice, even after i've already mined it. Also, the dropping is quite slow (i think slower than wissup's but no sure), but maybe thats to prevent banning?

Nice script.

From: Atomicbomb22
you must use srl 3.6 not 3.7. I had the same probs before as well. SCAR 2.03+SRL 3.6 is compatible with most scripts.

^^does this script of anti-gas? Wissup's doesn't have anti-gas and every 1-2hrs i end up with a broken pick :@. Good work though, i've run for 30minutes and no probs yet. I have one suggestion though. When i power mine iron, it sometimes (actually very often) clicks the same ore twice, even after i've already mined it. Also, the dropping is quite slow (i think slower than wissup's but no sure), but maybe thats to prevent banning?

Nice script.

It's not to prevent banning. I'm going to tweak the dropping procedure so it will be very fast. Since that's how a real person drop.

And yes it do have anti-gas, what it does though is that it runs away and waits there for maybe 19 seconds. I don't know why I did that, it's a little suspicious if that happens.
I think that I will edit it so if he finds gas, it will wait around 30 seconds, and then start mining again.

It has most of the randoms and also the most important of pickaxe handle finding. I myself hate it when I start a powermining procedure and come back, and my two rune pickaxes are gone…, but this baby fixes it.

About the "click same ore twice", maybe you should edit the "MiningWait" variable so it suits you better. It's set for 2 seconds as default, maybe you should increase it to 4-5?

Thanks for the comment

insted of on the antiban procedure typing in every skill theres already a hoverskill('random',false) that will randomly hover

guys i have no idea how to get these things running anyhelp will be much appreciated

From: menono
guys i have no idea how to get these things running anyhelp will be much appreciated

Just look at the top of the script and you will find this:

{=========================================================================]
| Description:                                                            |
|   This is a script that will powermine almost any ore for yo.           |
| Instructions:                                                           |
|   1.Use a 32bit resolution and set your RS brightness to very bright.   |
|   2.The script is suited for Scar 2.03 using SRL.                       |
|   3.Start next to mining rocks.                                         |
|   4.have the pickaxe wielded or in the inventory slot, remember to      |
|   adapt the constant "PickWielded" to your settings.                    |
|   5.Please fill in ALL the necessary info below or the script won't     |
|   work correctly.                                                       |
[=========================================================================}

If you can't do these simple steps then… well, you shouldn't be autoing.

i have tried to find many rimmington power miners but none worked, yours did so awesome script but only problem is random events, i came ack after 20 mins twice and found either i got all my items noted or im in some place caused by the random frog princess event, but nevertheless great script:spongebob:

I start the script and it write SRL Compiled in 297msec.
Found Compass. Nothing more happend after that, my char just stay there and do nothing, not even clicks, and dont move the mouse, some help please!


Mikihisa

PS Ser att du är Svensk Ralf, hoppas du förstår min knackiga engelska iaf;)

RiddareRalf provides you with:
RiddareRalfs Powerminer
SRL Compiled in 156msec.
Pick head colors… 1583413 2111561 1978688 1979717 2441041
Successfully executed


It runs it opens the Wielded armour tab then goes it invontory then it executes its self i have it set to WieldPicaxe: True

when i run the script, it just sits there. It logged in and just sat there the mouse..

I am using scar 2.03 with SRL 3.6 though, here's what is said the debug box:




RiddareRalf provides you with:
RiddareRalfs Powerminer
SRL Compiled in 156msec.
darkslayer83

mine doesnt work ; im using scar 2.03 with 3.6 srl and when i run the scrip it says "RiddareRalf provides you with:
RiddareRalfs Powerminer
SRL Compiled in 250msec.
Found Compass" and nothing else happens after that

dude you just told every1 your user : darkslayer83

RiddareRalf provides you with:
RiddareRalfs Powerminer
SRL Compiled in 234msec.
Pick head colors… 3684413 4671309 4276550 4473929 5329239
Successfully executed

this is wut happens to me it goes get the color then goes back to the inventory then the script stops

plz help

Failed when compiling
Line 300: [Error] (17080:5): Unknown identifier 'RandomRClickEvery' in script C:\Documents and Settings\User\Desktop\RiddareRalfs Powerminer v0.20.scar

you have to use an earlier version of scar? LOL

yeh im getting that to….

me too