SRL Archive - RS3 Outdated / Broken Scripts

Yush Dragon - AnyWhere Power Miner


Yush Dragon

2010-01-13 11:55:31

Hello all and welcome to my AnyWhere PowerMiner.

Instructions:

Go to ANY mine.
Stand close to the mines and run it.

Requirements:

Any pickaxe(Equiped or in Inventory.
F2P(Non-Member) and P2P(Member).

Credits:

Coh3n: Thanks for your nice tutorial and support.
N1ke: Thanks for your support.
Tootoot222: Thanks for your support.
Camo: Thanks for your support.
And some more helped me, Laurens and hyper.

Features:
* Can mine any rock except Rune(ess), SandStone and Granite.
* Can work on Smart.
* Has antiban and antirandoms.
* Has an option to switch between Pickaxe Equiped or in Inventory.

Any Suggestions?
Have Fun !!

Thank You and have fun, more updates will come soon.

0wn 4 skill

2010-01-13 12:13:05

A very nice 1st script Yush Dragon!
The scripting standards are good/great and you seem to have shown a good understanding of what is going on. I look forward to future releases!

Suggestions:
- Add an option so that skillers can use this (pickaxe in inventory).
- Its a powerminer, try making it so you can use it anywhere.. (I haven't tested it but i bet it works in most mines anyways)
- Since your a member, maybe make a iron banker in some obscure location such as the mine north of yannille?
- Make your own rock finding procedure! Then you can use it for pretty much any rock- Click here for tutorial

GREAT job! Keep up the good work!

Yush Dragon

2010-01-13 12:21:13

thank you, i will see what i can do :)
thank you for your suggestions :D

0wn 4 skill

2010-01-13 12:29:26

Tell me what you make of this:

Function FindRock(var x,y: Integer): Boolean;
Var
RockP: TPointArray;
TP: Tpoint;
Rock: T2DPointArray;
I, Times: Integer;
Begin

Times:=0;

If Not LoggedIn then Exit;

SetAngle(True);

ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, RockP, 2371664, MSX1, MSY1, MSX2, MSY2, 5);
Rock:= TPAtoATPAEx(RockP, 10, 10);
for i := 0 to Length(Rock)-1 do

begin
TP := MiddleTPA(Rock[i]);
MMouse (TP.x, TP.y, 3, 3);
Inc(Times);
Wait(200+Random(100));
If IsUpText('Mine') then
begin
GetMousePos(x, y);
Result:= True;
Writeln('Rock found at X: '+inttostr(x)+' Y: '+inttostr(y));
ColorToleranceSpeed(1);
Exit;
end;
If Times = 8 then
Begin
Writeln('Not Found Rock, Exiting');
Exit;
end;

Wait(800+random(500));
end;
end;

xoxoxox

Yush Dragon

2010-01-13 13:01:36

lol?

0wn 4 skill

2010-01-13 13:05:30

You cant just lol at my hard work :P do you understand what is going on in that procedure?

Yush Dragon

2010-01-13 13:23:58

nope i don't understand it yet

YoHoJo

2010-01-13 13:33:14

Nice for a beginer script Yush, great effort. You should totally try to learn TPAs later, go find a nice tutorial about them! Also, why not make it multiplayer too, also you never actually use your 'AntiRandom' function. I see you have a counter in there, that unneeded, FindNormalRandoms already has a counter built into it. Great start, great effort, keep learning and making it even better!

Yush Dragon

2010-01-13 13:36:35

i will do my best :D

Bebe

2010-01-13 13:37:35

Members scripts don't typically need to be multipayer because most people only have one members account at a time. I would keep it single player and work on antiban and making the mining procedure as stable as possible.

Yush Dragon

2010-01-13 13:54:24

alright :)

Yush Dragon

2010-01-15 16:13:20

Script UPDATED!!

Coh3n

2010-01-15 16:42:16

Nice job for a first script. :)

I would suggest adding a little more to your antiban (more procedures, etc.). Also what YoHoJo said: TPAs. As long as it works well now, I wouldn't put TPAs as your number 1 priority. Make the script as best as it can be now (make sure everything works right, maybe add some features), then aim to improve it.

Nice work!
Coh3n

Yush Dragon

2010-01-18 10:30:12

if a moderator see this,
please change the threat name to AnyWhere Power Miner please?

Yush Dragon

2010-01-18 12:29:47

Script UPDATED!!

Heavenguard

2010-01-18 12:52:18

Nice Script dude! TPA's Would be nice, but this definetly works :D Great job. You should add the link to this thread to your signature :D

Yush Dragon

2010-01-18 14:15:13

thank you :D

script updated with better colors and smart works ok now, TPA is not working like i want it so i will learn more about it before i put it on this script

Script updated!!

xx disire xx

2010-02-19 08:08:08

will give it a proggie now

EDIT: got this Line 136: [Error] (22087:49): String error in script
Line 136: [Error] (22087:49): Syntax error in script

g0tp0t

2010-03-27 19:02:59

aww. my long reply didnt get posted. :'(

lol, basicly im fixing a ton of small things in your script and i offered to pm the result to you.

i was also going to try to add banking from guild mine. :P

if you want then ask me to pm to you.

Your script is very reliable, except i got caught logged off while your script didnt have any fail-safes :\. I'm also adding those. I'm wondering if my post was so long an admin deleted:tongue:

PM me if you want my edited version of your script. ill probably pm it to you when im finished anyways :tongue: