SRL Archive - RS3 Outdated / Broken Scripts

[SRL] PowerMiner : Stol3n
Current version: 0.30.1

This Is My First Script Ever!

UPDATE COMING SOON!

Features:

PowerMiner
Randoms
Progress Report.
Multiplayer

Update:

Alot Faster

Upcoming:

Dropping - Better Droping Method. [Someone Help With DTM'S Please!]

Multiple Ores - Was To Buggy


Please Let Me Know Of Any Bugs!


A Progress Report From One Of My Noob Miners

<==============================================================>
<===================== Stol3ns PowerMiner =====================>
<============= -Powerminer 0.31.1- Progress Report ==============>
<==============================================================>
Worked for 1 Hours, 1 Minutes and 13 Seconds
Mined 162 ores.
<==============================================================>
Name : Username
Worked for : 1 Hours, 1 Minutes and 13 Seconds
Dropped : 6 Loads
<==============================================================>

Please Try!

And give info…

=]

im about to try it ill leave some feed back l8ter tonight

Hey what other forums are you from if any…This is a pretty dam good script for someone with 9 posts…….

Thanyou!

About time i got some fead back! =]

This is my first EVER script. i started only last week. I Have a way beter version which is FAR FAR quiker, Less Buggy =p

Which i will hopefully have ready for public tommorow.

Watch out i started, making a AutoFighter tonight, Which Should be sweet too. I Shall release Both Tommorow night if i get time =]

nice script man. thanks

cant wait for the new releases :)

I read the first release. O_O. Wowowowow. That's really good. I found some things that could be changed. I haven't read the 2nd release, but you don't need to Repeat ActivateClient; (Notice how I'm going after the nooby changes)

Appearently, you have read SRL? I haven't gotten time to get around to it, my entire Saturday Night is open though :)

I've only done Globals.

OutNow!

I Had a faster mining method but it wont work. in my main loop =[

Please Post Comments. or Progress Reports.


ps.
Also Solved 2 randoms
and Attached 3 Pickaxes

wow the mouse moves so fast ect that wen it clicks rock whole of my runescape laggs >.<

Sigh =[

I havent had this problem.

holy, need to slow the clickrate down… freezes up my RS.

That is what the CickRock Is there.

need more antirandoms but nice

ran it, mined 3 ores and then it logged out for inactivity?

Not Many People Where Using This Script Or Giving Much Feed Back,

But Seems Now To Be Getting Some Attention =]


=]


PS. Progress Reports

yeah i had a few new accounts and decided id test some scripts on them

ill try it and leave some feedback in your private message area check there i posted a private one to pentti earler cause he had a prob in random of scaperune

If So Tell Me Ill Be Looking At This Fourm All Day I Think

P.S. I Love Scar

In Const Add

Ore_In_Inv= 0;//Set This To The Main Ore Color Of Rock In Inventory

To Replace Tis Stuff As

Procedure Drop_Ore_28(Color:Integer);//If Droping 28 Ore
var
  x, y, Drop:Integer;
begin
  Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
     '1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
     'C346408D19A69B31D480FCCE875F0D00B9181450');
  while(FindColor(x,y,Color,548,168,761,496))do
  begin
    Mouse(x+5,y,1,1,false);
    Wait(900);
    if(FindDtm(Drop,x,y,548,168,761,496))then
    begin
      Mouse(x,y,1,1,true)
      Wait(450);
    end;
     TotalOres:= TotalOres + 28;
     DropLoads:= DropLoads + 1;
  end;
  FreeDtm(Drop);
end;

Procedure Drop_Ore_27(Color:Integer);//If Droping 27 Ore
var
  x, y, Drop:Integer;
begin
  Drop:= DTMFromString('78DA63B4636260E064644006FFFFFF07D3305' +
     '1465BA01A5E5435300057E30A542344408D07500D0F01BBF48854' +
     'C346408D19A69B31D480FCCE875F0D00B9181450');
  while(FindColor(x,y,Color,548,168,761,496))do
  begin
    Mouse(x+5,y,1,1,false);
    Wait(900);
    if(FindDtm(Drop,x,y,548,168,761,496))then
    begin
      Mouse(x,y,1,1,true)
      Wait(450);
    end;
     TotalOres:= TotalOres + 27;
     DropLoads:= DropLoads + 1;
  end;
  FreeDtm(Drop);
end;

Procedure Drop_Ore;
Begin
if(EquipPick)=True then
Begin
Drop_Ore_28(Ore_In_Inv)
end;end;

Procedure Drop_Ore2;
Begin
if(EquipPick)=False then
Begin
Drop_Ore_27(Ore_In_Inv)
end;end;

//----------------------------------------------------------------------------//

Procedure Mining;
Begin
 Repeat
  While(InvCount < i) do
   Begin
      FindNormalRandoms;
     wait(25);
      FindPick;
       Wait(25);
    MineOre;
   Wait(25);
   End;
  Drop_Ore;
  Drop_Ore2;
   ProgressReport;
   If (NoPick)=True then NextPlayer(False);
  Until(not LoggedIn)or(DropLoads = MaxLoads + RandomLoads);
          NextPlayer(Players[CurrentPlayer].Active);
           EquipPick:= Players[CurrentPlayer].Boolean1;
            FindPickHeadColor
             DeclarePick;
    End;

P.s. Above I Just Made… It May Not Compile (IDK) Try It =), The Dropper I Made: Remeber It Drops Every Thing In Your Inventory If It Has The Color Set On It, Also You Dont Need To Change This In Your Script To What Im Saying, Its A Suggestion, Since You Asked For Help :garfield:

[BANANA]And If You Dont Mind… I'm Trying To Re-Make Your Mining Procedures(I Already Did The Dropping (If You Go By That))[/BANANA]

Line 65: [Error] (13275:12): Unknown identifier 'STRING1' in script C:\Documents and Settings\- Dylan -\Desktop\Stol3n's Powerminer 0.30.1.scar

any help here?

03-23-2007, 06:15 AM

Read the dates please :)