SRL Archive - RS3 Outdated / Broken Scripts

GodfatherPowerMiner


TheGodfather

2007-02-15 02:30:12

Hey guys, this is my powerminer I've been working on.
// NOTE: change color if you wanna mine other than iron...
// Report down sides on forum or to [email]dub_edit@yahoo.com[/email]
// Please post feedback on forum!!!
program PowerMiner;
{.include SRL/srl.scar}
{.include SRL/srl/skill/mining.scar}

const
rockcolor= 2700888; // color of rock powermining (change it if want other than iron)
nextrock= 2500; // time to wait b4 next click. (1000 = 1 second)
loads= 2; //number of loads to powermine
rdirection= 'E'; //direction to run if attacked
//=================================
procedure DeclarePlayers;
begin
HowManyPlayers:=0;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Nick :='type btween quotes'; //Type 3-4 letters of your username

^^^^^ Main Setup ^^^^^

Please post questions and comments, and improvements.

Don't forget to post bugs and glitches. ;)
Please be nice… Its my first public release.

And again I like feedback (please be detailed thought)

Meanage

2007-02-15 02:45:57

nice, quite basic but it has potential, atleast your contributing. the mmouse 4,4 and mouse 4,4 will probably miss the rock so either mmouse4,4 mouse0,0 or mmouse0,0 mouse4,4. Try adding anti-ban and a few failsafes and a progress report so people can post them and maybe a thing that it writes into the debug at that start of the script.

TheGodfather

2007-02-15 03:14:48

Yeah, once its out of beta, after running it for 45 minutes, I've notticed a couple of things. Ill have a couple of random arrow key movements every 15-40 seconds. That way It'll help find the ore better, And Ill have more Text finding procedures, and adding to that, An upgraded anti random system, becuase technically all this has is anti fight, and anti talk and the talk sometimes misses it too.

Dark_Sniper

2007-02-15 03:48:09

wow no credits to me i did half the work XD no im kidding nice work the rest from here is easy :p

Buckleyindahouse

2007-02-15 06:42:55

You need more setup here so you can look for randoms.
 
procedure DeclarePlayers;
begin
HowManyPlayers:=0;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;

Players[0].Name := 'my name';
Players[0].Pass := 'my pass';
Players[0].Nick :='type btween quotes'; //Type 3-4 letters of your username
Players[0].Active :=true;
end;

Besides that nice job. I remeber my first script, i believe it was an autologin using big bitmaps(LOL).

TheGodfather

2007-02-17 01:11:47

yeah thanks dude, I was wondering what constants were needed for the SRL findnormalrandoms…


From: Dark_Sniper
wow no credits to me i did half the work XD no im kidding nice work the rest from here is easy :p

Oh okay fine, Ill add the idea of you helping me with the IsUpTextMulti ;)

But for reals man you did help me alot with the tips n all.