SRL Archive - RS3 Outdated / Broken Scripts

Arr0w Powerminer V3.2

Features:
-Full anti randoms
-Auto color
-Fully working p report
-Anti ban
-And more!



——————————————-KNOWN BUGS——————————————-
None yet
——————————————————————————————————
———————————————CREDITS———————————————-
-Weibs ( Forms and setrun procedure)
—————————————————————————————————–

noone wana post?

please psot osmeone :(

I'm going to test this tonight, I will post a progress report.
Just a simple question: Does it handle trades?

no but ill add later if you want me to.

Noone else want to psot anythign about it?

ill try it and post progress

also dont expect ppl to post after 5 seconds from ur post

I didnt! and okay pleas epsot p report

7 downlaods and only two people have posted. :S

i dled it idk what happened.. i think i post pr when i test it

I didn't undersand a word of that :S

im testing it on a free acc proggy in about one hour.

i couldnt get it to mine anything at all….

okay thanks a bunch

get on msn and see if you can help me get it to work man!

dude….it dosent work…it just keep rotating the screen…

erm.. i dunno why it does that

When does it do that?

you get it to go and choose ore etc then bam it reads stats inventory etc then just sits there and after that it rotates screen and doesnt work….does it work for you arrow?

Yeh and it worked for Weibs aswell over at mopar and the bit where it's in the inv is the anti ban

Well i decided to try cause i hapend to be close to a mine and i chose ores and everything but after it turned of p chats and turned on run it just hovered the mouse over mutiple rocks but never click mayb u should add a color edit option unless it auto picks but all over nice script im sure itsd an easy fix

if you are having trouble runnign the script for god's sake click help!

bout 30 views and only a few peopel have posted :S

hi arrow..

i tried your script but as the guys above…it didn't work. after picking the ore colours the pointer just goes around the select colours but never clicks. i tried tjis on copper ores south of fally.

Very complete script, but minning precedure suck or literaly dont work….

Like thsoe above said, It auto rotate and play with account options.

Info Report every 12 seconde is making accounts lag and get them very detectable.

god damnit arrow could you quit double and tripple psoting!
If you script isnt popular just wait a bit and deal with it!

also like how you took wizzups ore and clay masks and dropping procedure without credit =)

you also dont have a palyer array thingy
so your antirandoms wont work
you need to at least enter a player nick for randoms to work
they work be searching for nickname text on screen

No hard feelings
just think of it as constructive criticism =)

ill try it out for ya

well first of all i cant understand this and second of all i dont noe where the options r n shit like input ur username here or stuff could u plz tell me lol im new so dont go puttin shit on me

program PowerMinerForm;
{.include SRL/SRl.scar}
var//Form Vars
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  Label4 : TLabel;
  Label7 : TLabel;
  RockType : TComboBox;
  ChatsOfff : TComboBox;
  RunDirection : TComboBox;
  RandChat : TComboBox;
  Button1 : TButton;
  Button2 : TButton;
var
  hfrmDesign : TForm;
  hLabel1 : TLabel;
  hLabel2 : TLabel;
  hLabel3 : TLabel;
  hLabel4 : TLabel;
  hLabel5 : TLabel;
  hLabel6 : TLabel;
  hLabel7 : TLabel;
  hLabel8 : TLabel;
  hLabel9 : TLabel;
  hLabel10 : TLabel;
  hLabel11 : TLabel;
  hButton1 : TButton;
{------------------------}
var
 Rock, RunDir, Chats, RandC, Tin, Copper, Iron, Gold : String;
 TinColor, CopperColor, IronColor, GoldColor,
 Clay, OreMask, OresMined, Loads, RockColor : Integer;
 ChatsO, RandCh : Boolean;

 //----------------------------------------
Const
  LoadsToDo = 100;//How many loads?
//-----------------------------------------
  
procedure CloseHelp(sender: TObject);
begin
  hfrmDesign.Caption := hfrmDesign.Caption + '.';
  hfrmDesign.ModalResult := mrOk;
end;

procedure InitHelpForm;
begin
hfrmDesign := CreateForm;
hfrmDesign.Left := 250;
hfrmDesign.Top := 114;
hfrmDesign.Width := 696;
hfrmDesign.Height := 480;
hfrmDesign.Caption := 'PowerMiner Help';
hfrmDesign.Color := clBtnShadow;
hfrmDesign.Font.Color := clMaroon;
hfrmDesign.Font.Height := -15;
hfrmDesign.Font.Name := 'Roman';
hfrmDesign.Font.Style := [];
hfrmDesign.Visible := False;
hfrmDesign.PixelsPerInch := 96;
hLabel1 := TLabel.Create(hfrmDesign);
hLabel1.Parent := hfrmDesign;
hLabel1.Left := 234;
hLabel1.Top := 44;
hLabel1.Width := 6;
hLabel1.Height := 17;
hLabel2 := TLabel.Create(hfrmDesign);
hLabel2.Parent := hfrmDesign;
hLabel2.Left := 274;
hLabel2.Top := 29;
hLabel2.Width := 137;
hLabel2.Height := 22;
hLabel2.Caption := 'PowerMiner Help!';
hLabel2.Font.Color := clMaroon;
hLabel2.Font.Height := -19;
hLabel2.Font.Name := 'Roman';
hLabel2.Font.Style := [fsUnderline];
hLabel2.ParentFont := False;
hLabel3 := TLabel.Create(hfrmDesign);
hLabel3.Parent := hfrmDesign;
hLabel3.Left := 11;
hLabel3.Top := 74;
hLabel3.Width := 658;
hLabel3.Height := 17;
hLabel3.Caption :=
'To start this script fill out the form, Then drag the crosshair ' +
'over to the RuneScape screen and press';
hLabel4 := TLabel.Create(hfrmDesign);
hLabel4.Parent := hfrmDesign;
hLabel4.Left := 30;
hLabel4.Top := 96;
hLabel4.Width := 649;
hLabel4.Height := 17;
hLabel4.Caption :=
'play to start this script. If the script is having trouble findi' +
'ng the rock then edit the colors on lines';
hLabel5 := TLabel.Create(hfrmDesign);
hLabel5.Parent := hfrmDesign;
hLabel5.Left := 33;
hLabel5.Top := 122;
hLabel5.Width := 638;
hLabel5.Height := 17;
hLabel5.Caption :=
'391-398. If there is any over problems contact me on Scott-_-bra' +
'dford@hotmail.com or Bradfordy';
hLabel6 := TLabel.Create(hfrmDesign);
hLabel6.Parent := hfrmDesign;
hLabel6.Left := 32;
hLabel6.Top := 144;
hLabel6.Width := 650;
hLabel6.Height := 17;
hLabel6.Caption :=
'@Gmail.com, only contact me on those adresses if you are having ' +
'major problems. If it isn'#39't a major';
hLabel7 := TLabel.Create(hfrmDesign);
hLabel7.Parent := hfrmDesign;
hLabel7.Left := 30;
hLabel7.Top := 164;
hLabel7.Width := 245;
hLabel7.Height := 17;
hLabel7.Caption := 'problem post it on the scripts thread.';
hLabel8 := TLabel.Create(hfrmDesign);
hLabel8.Parent := hfrmDesign;
hLabel8.Left := 302;
hLabel8.Top := 225;
hLabel8.Width := 90;
hLabel8.Height := 22;
hLabel8.Caption := 'Infomation!';
hLabel8.Font.Color := clMaroon;
hLabel8.Font.Height := -19;
hLabel8.Font.Name := 'Roman';
hLabel8.Font.Style := [fsUnderline];
hLabel8.ParentFont := False;
hLabel9 := TLabel.Create(hfrmDesign);
hLabel9.Parent := hfrmDesign;
hLabel9.Left := 13;
hLabel9.Top := 281;
hLabel9.Width := 668;
hLabel9.Height := 17;
hLabel9.Caption :=
'This script was made by me,(Arr0w) and it is 100% free! if you h' +
'ave brought this script you have been ';
hLabel10 := TLabel.Create(hfrmDesign);
hLabel10.Parent := hfrmDesign;
hLabel10.Left := 34;
hLabel10.Top := 304;
hLabel10.Width := 641;
hLabel10.Height := 17;
hLabel10.Caption :=
'scammed, If you have been scammed there nothing i can do sorry, ' +
'just report them for selling my';
hLabel11 := TLabel.Create(hfrmDesign);
hLabel11.Parent := hfrmDesign;
hLabel11.Left := 36;
hLabel11.Top := 326;
hLabel11.Width := 410;
hLabel11.Height := 18;
hLabel11.Caption := 'script and i will back you up. My name on all sites is Arr0w.';
hLabel11.Font.Color := clMaroon;
hLabel11.Font.Height := -16;
hLabel11.Font.Name := 'Roman';
hLabel11.Font.Style := [];
hLabel11.ParentFont := False;
hButton1 := TButton.Create(hfrmDesign);
hButton1.Parent := hfrmDesign;
hButton1.OnClick := @CloseHelp
hButton1.Left := 321;
hButton1.Top := 377;
hButton1.Width := 75;
hButton1.Height := 25;
hButton1.Caption := 'Close!';
hButton1.TabOrder := 8;
end;


procedure SafeInitHelpForm;
var
  v: TVariantArray;

begin
  SetArrayLength(V, 0);
  ThreadSafeCall('InitHelpForm', v);
end;


procedure ShowHelpFormModal;
begin
  hfrmDesign.ShowModal;
end;


procedure SafeShowHelpFormModal;
var
  v: TVariantArray;


begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowHelpFormModal', v);
end;

procedure ShowHelp(sender: TObject);
begin
  frmDesign.Caption := frmDesign.Caption + '.';
  SafeInitHelpForm;
  SafeShowHelpFormModal;
end;

procedure Start(sender: TObject);
begin
  frmDesign.Caption := frmDesign.Caption + '.';
  frmDesign.ModalResult := mrOk;
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 696;
frmDesign.Height := 450;
frmDesign.Caption := 'PowerMiner V3 By Arr0w';
frmDesign.Color := clBtnShadow;
frmDesign.Font.Color := clMaroon;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Roman';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 216;
Label1.Top := 47;
Label1.Width := 221;
Label1.Height := 24;
Label1.Caption := 'PowerMiner V3 By Arr0w!';
Label1.Font.Color := clMaroon;
Label1.Font.Height := -21;
Label1.Font.Name := 'Roman';
Label1.Font.Style := [fsUnderline];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 219;
Label2.Top := 116;
Label2.Width := 200;
Label2.Height := 15;
Label2.Caption := 'What Is The Rock You Want To Mine?';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 221;
Label3.Top := 151;
Label3.Width := 175;
Label3.Height := 15;
Label3.Caption := 'Do you Want To Turn Off Chats?';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 224;
Label4.Top := 231;
Label4.Width := 306;
Label4.Height := 15;
Label4.Caption := 'What direction Do You Want To Run If A Fight Is Found?';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 222;
Label7.Top := 192;
Label7.Width := 175;
Label7.Height := 15;
Label7.Caption := 'Do You Want To Randomly Talk?';
RockType := TComboBox.Create(frmDesign);
RockType.Parent := frmDesign;
RockType.Left := 70;
RockType.Top := 109;
RockType.Width := 145;
RockType.Height := 23;
RockType.ItemHeight := 15;
RockType.TabOrder := 8;
RockType.Text := 'Rock Type?';
RockType.Items.Add('Tin');
RockType.Items.Add('Copper');
RockType.Items.Add('Iron');
RockType.Items.Add('Gold');
ChatsOfff := TComboBox.Create(frmDesign);
ChatsOfff.Parent := frmDesign;
ChatsOfff.Left := 70;
ChatsOfff.Top := 148;
ChatsOfff.Width := 145;
ChatsOfff.Height := 23;
ChatsOfff.ItemHeight := 15;
ChatsOfff.TabOrder := 9;
ChatsOfff.Text := 'Chats Off?';
ChatsOfff.Items.Add('True');
ChatsOfff.Items.Add('False');
RunDirection := TComboBox.Create(frmDesign);
RunDirection.Parent := frmDesign;
RunDirection.Left := 69;
RunDirection.Top := 227;
RunDirection.Width := 145;
RunDirection.Height := 23;
RunDirection.ItemHeight := 15;
RunDirection.TabOrder := 10;
RunDirection.Text := 'Run Direction';
RunDirection.Items.Add('N');
RunDirection.Items.Add('E');
RunDirection.Items.Add('S');
RunDirection.Items.Add('W');
RandChat := TComboBox.Create(frmDesign);
RandChat.Parent := frmDesign;
RandChat.Left := 70;
RandChat.Top := 187;
RandChat.Width := 145;
RandChat.Height := 23;
RandChat.ItemHeight := 15;
RandChat.TabOrder := 13;
RandChat.Text := 'Random Chat?';
RandChat.Items.Add('True');
RandChat.Items.Add('False');
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @Start;
Button1.Left := 278;
Button1.Top := 356;
Button1.Width := 64;
Button1.Height := 25;
Button1.Caption := 'Start!';
Button1.TabOrder := 14;
Button2 := TButton.Create(frmDesign);
Button2.Parent := frmDesign;
Button2.OnClick := @ShowHelp
Button2.Left := 351;
Button2.Top := 356;
Button2.Width := 69;
Button2.Height := 24;
Button2.Caption := 'Help!';
Button2.TabOrder := 15;
end;

procedure SafeInitForm;
var
  v: TVariantArray;

begin
  SetArrayLength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;

begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure SetupAll;
begin
  Rock := RockType.Text;
  RunDir := RunDirection.Text;
  Chats := ChatsOfff.Text;
  RandC := RandChat.Text;
 case Rock of
  'Tin'    : Rock := Tin;
  'Copper' : Rock := Copper;
  'Iron'   : Rock := Iron;
  'Gold'   : Rock := Gold;
 end;
 case Chats of
  'True'  : ChatsO := True;
  'False' : ChatsO := False;
 end;
 case RandC of
  'True'  : RandCh := True;
  'False' : RandCh := False;
 end;
end;
  
procedure Write(Text : String);
begin
  WriteLn(Text)
end;

procedure LoadColors;
begin
  Write('Loading Colors...')
  TinColor    := 9539996;
  CopperColor := 5541863;
  IronColor   := 2832988;
  GoldColor   := 2017267;
end;

procedure LoadBitmaps;
begin
Write('Loading Bitmaps..')
  Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
       '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
       '8F60A58D5FA1895C');

  OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
       '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
       'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
       'B599CC1');
end;

procedure ModSetRun(Run: Boolean);//Made by Weibs, Thanks Weibs
var
  WX, WY: Integer;

begin
Write('Setting The Run...')
  GameTab(11);
  if Run then
  begin
    if (not (FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5))) then
    begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    end;
  end else
  begin
    if FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5) then
    begin
      Mouse(648, 431, 20, 20, true);
      Wait(100+Random(100));
    end;
  end;
end;

procedure MyAntiBan;
begin
  case 1 + Random(6) of
    1 : BoredHuman;
    2 : PickUpMouse;
    3 : HoverSkill('random', false);
    4 : RandomMovement;
    5 : RandomRClick;
    6 : GameTab(1 + Random(13));
  end;
end;
  
function FindFastRandoms: Boolean;
var
  i: Integer;
begin
Status('Finding Randoms...');
  for i:=1 to 7 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;
                  if(not(solvefrog)or (solvesandwich)) then
                  begin
             Logout;
             terminatescript;
             Exit;
           end;
         end;
         end;
     7: begin
           if InBlack then
           begin
             Result := True;
             if(not(solvefrog)or (solvesandwich)) then
             begin
             Logout;
             terminatescript;
             Exit;
           end;
         end;
       end;
    end;
    wait(2);
  end;
end;

procedure FindRandoms;
begin
setupsandwich;
FindNormalRandoms;
  if ( not ( LoggedIn )) then Exit;

  if ( not ( UseBoxSolver )) then
    if FindNewBox and
     not ( GambleNewBox ) then
     begin
       Logout;
       Exit;
     end;
  Wait(1);
  if NoGameTab then
  begin
     if(not(solvefrog)or (solvesandwich)) then
     begin
    Logout;
    Exit;
    end
    end
    else
    FindFastRandoms;
  FindNormalRandoms;
  findtalk;
  findmod;
  finddead;
  findmime;
  FindDemon;
  FindLamp(LampSkill)
  Wait(1);
  Releasesandwich;
end;

procedure IfFight;
begin
if (FindFight) then
  begin
    RunWhere(RunDir, False);
    Wait(10000 + random(200))
    RunBack;
  end;
end;

procedure SetOreColor;
begin
  case RockType.Text of
    'Tin'    : RockColor := TinColor;
    'Copper' : RockColor := CopperColor;
    'Iron'   : RockColor := IronColor;
    'Gold'   : RockColor := GoldColor;
  end;
end;

procedure IfChats;
begin
If ChatsO = True then
  ChatsOff;
end;

procedure RandomChatt;
begin
if RandCh = True then
  RandomChatEvery(5+random(10));
end;

procedure DropOres;
begin
  If (invfull) = True Then
  DwarfItem;
  ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30 + Random(30));
  ClickAllItemsBmpTolWait('rop', Clay, 10, 30 + Random(30));
end;

procedure PReport;
begin
Write('|---------------------------------------|')
Write('|    Arr0w''s PowerMiner Version 3.1    |')
Write('|---------------------------------------|')
Write('|                                       |')
Write('| Total Time Worked: ' + TimeRunning+ ' |')
Write('| Current Time:  ' + TheTime+ '         |')
Write('| Total Ores Mined: ' + IntToStr(OresMined)+ ' |')
Write('|---------------------------------------|')
Write('|---------------------------------------|')
end;

procedure MineRock;
begin
  repeat
    If (FindColorSpiral(x,y,RockColor,3,3,515,336)) then
    Begin
      Mmouse(x, y, 3, 3)
      Wait(10+Random(10));
      if (IsTextAt2(x, y, 'ine', 5) = True) then
      begin
        Mouse(x, y, 1, 1, True)
        Flag;
        FindNormalRandoms;
      end;
    end;
  Until(InvFull)
  if (invfull) = True Then
  begin
    OresMined := OresMined + 27;
    Loads := Loads + 1;
  end;
end;

begin
  SafeInitForm;
  SafeShowFormModal;
  SetupAll;
  SetupSRL;
  LoadColors;
  SetOreColor;
  LoadBitmaps;
  SRLRandomsReport;
  ActivateClient;
  ModSetRun(True);
  repeat
  IfChats;
  MineRock;
  DropOres;
  RandomChatt;
  MyAntiBan;
  FindRandoms;
  PReport;
  until(Loads = LoadsToDo)
  if Loads = LoadsToDo then
  LogOut;
end.

You jsut press play and a form will come up.

oh lol didint think of that thanks

when i run the script the mouse just hovers over the rock but doesnt click on it?wdf

I tried it out yesterday. It looks like a great script with flawless antirandoms but I couldn,t get it working it would hover over all of the correct rocks just as the previous poster said. It would probably be an easy fix but I'm not a great scriptor so I wouldn't know

just a warning the anti-randomsin the script DO NOT work
so don't leave it unattended for too long.

From: bikrdude777
I tried it out yesterday. It looks like a great script with flawless antirandoms but I couldn,t get it working it would hover over all of the correct rocks just as the previous poster said. It would probably be an easy fix but I'm not a great scriptor so I wouldn't know

how you know anythiing about how it looks if this is your first post?
and to know how good the antirandoms are look in antirandoms.scar in your SRL folder
the actual antirandom coding isnt in this script
Doubt anyone makes their OWN antirandoms anyways =p

hmm antirandoms dont work, and i cant get it started,
its criticism yes but criticism u can use to make ur script better
good luck to ya!

duh the antiranomds dont work
^i alrady stated twice.
he dosent have anywhere to fill in a nickanme so randosm dont work
and shadowblade. please dont double post, use edit button instead =)

i belive i have fixed the error.

ok thanks for the advice yohojo8

I'm gonna try it now and send report soon. You say there is all the randoms??

It doesnt mine anything…the arrow just stays there and doesnt click. Also it makes the game lagg so much.

Ill try it prolly works

ive been having the some problem with other miners. When I try to comple the script says that label1 is a duplicate identifier. What is wrong? What should i do?

hmm it doesnt click on the rock….this script sucks only for the form its good but it suck.

maybe im wrong but STFU?!?! make your own script first then bitch. arrow did a good job i got it to work, as has others so stfu and be happy your even allowed here.

dude stop flaming whats your problem
hes just point out that the script doenst work
how do you know he did a good job if you barely know how to script yourself?
and i don't call no antirandoms a good job..

It is a little rude he is saying it sucks, but you are just adding to the flaamage =)

Yea i dunno why it doesnt clikc the rock can you try and help me yoho?