SRL Archive - News and General

My Millenium


Runescapian321

2008-04-14 21:42:59

Finally, my millennium!

All the time I’ve spent here has been great. All 337 hours of it (wow it’s really been that long? Jeez I need to get a life :p). Heh, 1000 more and…yeah…Well it really has been fun, I’d like to thank the following people for….various reasons….

Da 0wner – Great guy to talk to, he basically introduced me to the world of MSN :)

Timer – Started talking to him a few hours before this, but liked him right away :p

Iron Man – Fun to talk to ;)

Hy71194 (Hey, I got his name right without looking xD) – The [sarcasm]$pammer[/sarcasm] :p

Timothegreat - Because he told me to put him on here :p Nah, he's a cool guy :)

mixter - He is 1337! :p And nearly my twin (within 100 posts, same cups, similiar activity/longevity, same way of getting SRL Member) lol


SRL Devs – For making an awesome library of includes

SRL-Forum Admins – Made the best forums ever

Hermpie + Mr. SRL – Made the second-best forums ever – www.runespot.com

Everyone else – For being a wonderful community :D

That’s it for my thank-you’s, onto some info about myself.

My RS History…

One day, about 3 years ago, I was bored (z0mg! Historical event! :p). I asked my cousin if he knew any sites to have fun on. He showed me www.miniclip.com. Eventually, I found Runescape through it. I played throughout the summer and fall, and got members in the winter. I enjoyed it, played until the summer of ’06, and got a PSP. I amused myself with hacking it and then playing iso’s on it. That was the end of my Runescape playing days.

My Cheating History…

In the summer of ’07, I was bored and decided to check on runescape. I played for a while, but quickly got annoyed with all of the level 3 bots. So I quit for another few months, until, I realized, “If they get away with it, why can’t I?”. I googled RS Cheats and eventually found Sythe.org. Which let me to moparisthebest.org, which led me here, and I stayed. I couldn’t get any scripts working (outdated Scar and SRL), until a guy from Sythe helped me out (astonishing isn’t it?). From then, I just posted proggies, read tuts on how to auto, and autoed. Scripting interested me, but I was always too lazy or too busy to try. So I just stayed around and helped people around the forums or whatever they needed help with (at one point I did try to learn and script, I didn’t really fail, but I didn’t get too far either :p). Then, as most of you know, I was auto-memberized xD So now I’m trying to make myself think I really deserve it by making my second script (first one was a crappy powerminer), a Dwarfen Mines miner. If anyone’s interested I’ll put what I have so far at the bottom (any leechers won’t be able to use it since it’s not even 30% complete) (I use some randomized cord clicking because nothing seems to work too well down there, but other than that, I think it’s pretty good :)).

Some background info on me…

I’m 12 years old, didn’t really know any languages until I got here. It inspired me to try and learn C, C++, Java, php, and HTML. So far I’m halfway into C, and a decent amount of Scar/SRL. I play basketball, tennis, and some other various small hobbies. I’m a straight A student, even though I skipped 7th grade :p (I’m in 8th atm).

So, in short, thanks everyone, for helping me have such a great time at these great forums :)


P.S. My parents would kill me if I posted my pic on the internet, sorry, maybe when I'm 18 ;)

EDIT: For the record…



EDIT: The script…

////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////Runescapian's Dwarfen Mines Miner///////////////////////////////////
//////////////////////////////////Version 1.0///////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
///////This script mines and banks Iron, Copper, Tin, or Coal from the Dwarfen Mines////////
///////To run it, set up the stuff under 'const' and under 'procedure DeclarePlayers;'//////
///////Start at the Fally East bank.////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
///////Now, we all know the big problem with the Dwarfen Mines - Scorpians. This ///////////
///////Script will evade those scorpians by choosing a spot suitable for your combat ///////
///////level. Anyone with Combat 65+ will be sent to the mines with scorpians //////////////
///////(level 65 because the King Scorpians are level 32 and will not attack anyone ////////
///////over twice their level). However, you have the option of choosing where to go ///////
///////if you want./////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
/////Creds go to Da 0wner and everyone else who helped ( with errors/bugs) and all /////////
//////////////////the SRL Devs(for making these wonderful functions) :)/////////////////////
////////////////////////////////////////////////////////////////////////////////////////////
{
There are many different mines to mine at. Below is a list.

Scorpian infested
(The center would be the big pillar west of the stairs when you go down)
*Eastern Coal (ec)
*Southern Coal (sc) //default for coal
*Western Iron (wi) //default for iron
*NorthWest Copper (nwc) //default for copper
*NorthEast Tin (net) //default for tin
*Northern Coal (nc)

Safe spots (no scorpians)
(The Center is where the iron, copper, and one tin rock are located)
*SouthEast Tin (set) //default for tin
*Eastern Iron (ei)
*Center Iron (ci) //default for iron
*Center Copper (cc) //default for copper
*SouthWest Copper (swc)

**NOTE** - If you're under level 65 and you make it automatically pick a mine for you to mine coal, the script will go
to the next player after walking down the stairs.

So if you have a certain spot you want to mine at, put it in under the DeclarePlayers procedure
where it asks for it.

Remember, post progress reports on my thread and report any, I mean ANY, bugs you find. Whether
it gets lost, goes to the wrong mine, whatever.

Happy Autoing! :}


program DwarfMiner;
{.include SRL\SRL.scar}

var x,y,lvl, x1, y1, x2, y2, centerDDTM, CenterTol, CenterArea: integer;

const

FirstPlayer = 0; //Player to start with
world = 49;

procedure DeclarePlayers;
begin
SRLID:= ''; //put in your SRL Stats ID
SRLPassword:= ''; //put in your SRL Stats Password


HowManyPlayers := 5; //Leave these three lines be, unless you know what you're doing
CurrentPlayer := FirstPlayer;
NumberOfPlayers(HowManyPlayers);

Players[0].Name :='zezima'; //Runescape username
Players[0].Pass :='hilsioa'; //Runescape password
Players[0].Nick :='ezim'; //3 letters from the middle of you Runescape username
Players[0].Active:=True; //Do you want to use this player?
Players[0].Strings[0]:='rune'; //Type of pickaxe - 'rune', 'addy', 'mith', 'steel', 'iron', 'bronze'
Players[0].Booleans[0]:=false; //Is the pickaxe equipped? true or false
Players[0].Booleans[1]:=false; //Do you want the script to find out which mine to go to for the ore
//you want (true), or do you want to set it (false)?
Players[0].Strings[1]:='nwc'; //if the above option is false, set your location (see beginning of
//script to know what the following abbreviations mean) -
//ec, sc, wi, nwc, net, nc
//set, ei, ci, cc, swc
Players[0].Strings[2]:='iron'; //type of ore you want to mine - tin, copper, iron, coal

Players[1].Name :=''; //Runescape username
Players[1].Pass :=''; //Runescape password
Players[1].Nick :='nick'; //3 letters from the middle of you Runescape username
Players[1].Active:=False; //Do you want to use this player?
Players[1].Strings[0]:='rune'; //Type of pickaxe - 'rune', 'addy', 'mith', 'steel', 'iron', 'bronze'
Players[1].Booleans[0]:=false; //Is the pickaxe equipped? true or false
Players[1].Booleans[1]:=true; //Do you want the script to find out which mine to go to for the ore
//you want (true), or do you want to set it (false)?
Players[1].Strings[1]:='ec'; //if the above option is false, set your location (see beginning of
//script to know what the following abbreviations mean) -
//ec, sc, wi, nwc, net, nc
//set, ei, ci, cc, swc
Players[1].Strings[2]:='iron'; //type of ore you want to mine - tin, copper, iron, coal

Players[2].Name :=''; //Runescape username
Players[2].Pass :=''; //Runescape password
Players[2].Nick :='nick'; //3 letters from the middle of you Runescape username
Players[2].Active:=False; //Do you want to use this player?
Players[2].Strings[0]:='rune'; //Type of pickaxe - 'rune', 'addy', 'mith', 'steel', 'iron', 'bronze'
Players[2].Booleans[0]:=false; //Is the pickaxe equipped? true or false
Players[2].Booleans[1]:=true; //Do you want the script to find out which mine to go to for the ore
//you want (true), or do you want to set it (false)?
Players[2].Strings[1]:='ec'; //if the above option is false, set your location (see beginning of
//script to know what the following abbreviations mean) -
//ec, sc, wi, nwc, net, nc
//set, ei, ci, cc, swc
Players[2].Strings[2]:='iron'; //type of ore you want to mine - tin, copper, iron, coal

Players[3].Name :=''; //Runescape username
Players[3].Pass :=''; //Runescape password
Players[3].Nick :='nick'; //3 letters from the middle of you Runescape username
Players[3].Active:=False; //Do you want to use this player?
Players[3].Strings[0]:='rune'; //Type of pickaxe - 'rune', 'addy', 'mith', 'steel', 'iron', 'bronze'
Players[3].Booleans[0]:=false; //Is the pickaxe equipped? true or false
Players[3].Booleans[1]:=true; //Do you want the script to find out which mine to go to for the ore
//you want (true), or do you want to set it (false)?
Players[3].Strings[1]:='ec'; //if the above option is false, set your location (see beginning of
//script to know what the following abbreviations mean) -
//ec, sc, wi, nwc, net, nc
//set, ei, ci, cc, swc
Players[3].Strings[2]:='iron'; //type of ore you want to mine - tin, copper, iron, coal

Players[4].Name :=''; //Runescape username
Players[4].Pass :=''; //Runescape password
Players[4].Nick :='nick'; //3 letters from the middle of you Runescape username
Players[4].Active:=False; //Do you want to use this player?
Players[4].Strings[0]:='rune'; //Type of pickaxe - 'rune', 'addy', 'mith', 'steel', 'iron', 'bronze'
Players[4].Booleans[0]:=false; //Is the pickaxe equipped? true or false
Players[4].Booleans[1]:=true; //Do you want the script to find out which mine to go to for the ore
//you want (true), or do you want to set it (false)?
Players[4].Strings[1]:='ec'; //if the above option is false, set your location (see beginning of
//script to know what the following abbreviations mean) -
//ec, sc, wi, nwc, net, nc
//set, ei, ci, cc, swc
Players[4].Strings[2]:='iron'; //type of ore you want to mine - tin, copper, iron, coal

end;



procedure LoadCenterDDTM;
var
CenterMP: TDTMPointDef;
CenterSP: array[0..2] of TDTMPointDef;
CenterDDTMskel: TDTM;
CenterTol, CenterArea: Integer;
begin

CenterTol:=30;
CenterArea:=1;

CenterMP.x := 585;
CenterMP.y := 122;
CenterMP.areasize := 1;
CenterMP.areashape := 0;
CenterMP.color := 2252936;
CenterMP.tolerance := CenterTol;

CenterSP[0].x := 579;
CenterSP[0].y := 137;
CenterSP[0].areasize := CenterArea;
CenterSP[0].areashape := 0;
CenterSP[0].color := 5193797;
CenterSP[0].tolerance := CenterTol;

CenterSP[1].x := 572;
CenterSP[1].y := 110;
CenterSP[1].areasize := CenterArea;
CenterSP[1].areashape := 0;
CenterSP[1].color := 5193797;
CenterSP[1].tolerance := CenterTol;

CenterSP[2].x := 604;
CenterSP[2].y := 121;
CenterSP[2].areasize := CenterArea;
CenterSP[2].areashape := 0;
CenterSP[2].color := 15262962;
CenterSP[2].tolerance := CenterTol;



CenterDDTMSkel.MainPoint:=CenterMP;
CenterDDTMSkel.SubPoints:=CenterSP;
CenterDDTM:=AddDTM(CenterDDTMSkel);

end;

procedure TheDTMs;
begin
LoadCenterDDTM;
end;

procedure CheckSRLstats;
begin
end;

function Picklost: Boolean;
begin
end;

function Brokenpick : Boolean;
begin
end;

function Lostpick : Boolean;
begin
end;

procedure Findpickhead;
begin
end;

function Findgas : Boolean;
begin
end;

procedure Solvegas;
begin
end;

procedure AntiRandom;
begin
end;

procedure AntiBan;
begin
end;

procedure Login;
begin
Disguise('DwarfMiner - Running');
ActivateClient;
if not (Loggedin) then Loginplayer;
SetAngle(true);
MakeCompass('N');
SetBar('brightness', 4);
Lvl:=GetCombatLevel;
end;

procedure WalktoMine;

begin
RadialWalk(FindFallyRoadColor,40,110,72,99,99);
FFlag(6);
RadialWalk(FindFallyRoadColor,30,110,72,99,99);
FFlag(6);
RadialWalk(FindFallyRoadColor,50,120,72,99,99);
if FindObjTPA(x,y, 7377573, 17, -1, 10, 10, 50, ['pen', 'oord']) then
begin
mouse(x,y,2,2,true);
Writeln('Opened the door!');
end;
if FindObjTPA(x,y, 5790047, 17, -1, 10, 10, 50, ['own', 'air']) then
begin
mouse(x,y,2,2,true);
Writeln('Going down the staircase...');
if Inchat('reach') then
begin
if FindObjTPA(x,y, 7377573, 17, -1, 10, 10, 50, ['pen', 'oord']) then
begin
mouse(x,y,2,2,true);
Writeln('Opened the door!');
end;
if FindObjTPA(x,y, 5790047, 17, -1, 10, 10, 50, ['own', 'air']) then
begin
mouse(x,y,2,2,true);
Writeln('Going down the staircase...');
end;
end;
wait(5000+random(1000));
end
else
begin
writeln('Could not find stairs')
NextPlayer(false);
end;
end;

procedure EasternCoal;
begin
{You can see one coal rock. The Mining procedure waits for a total
of 35 sec for a rock to show up.}
Writeln('We are at the mine! (I think)');
end;

procedure SouthernCoal;
var looked, rx,ry: integer;
begin

looked:=0;
repeat
if DTMrotated(CenterDDTM, x,y,x1,y1,x2,y2) then
begin
mouse(x,y,2,2,true); //The DDTM usually doesn't work, but I kept
break; //it there as a failsafe.
end;
If FindColorSpiral(x,y,FindRockColor,558,85,578,116) then
begin
mouse(x,y,2,2,true);
wait(2500+random(300));
break;
end
else
begin
Centertol:=Centertol+3;
Centerarea:=Centerarea+1;
looked:=looked+1;
if (looked=6) then
begin
Writeln('Could not find the mining spot');
Disguise('Waiting for Next Player');
NextPlayer(false);
Disguise('DwarfMiner - Running');
end;
end;
until (looked=6);
If FindColorSpiralTolerance(x,y,FindRockColor,647,112,587,144,10) then
begin
mouse(x,y,2,2,true);
wait(2000);
Writeln('We are at the mine! (I think)')
exit;
end
else
begin
mouse(592+random(12),150+random(13),4,3,true); //I know cords are bad, but randomized ones aren't too bad
end;

wait(1000);
Writeln('We are at the mine! (I think)');
end;

procedure WesternIron;
var looked,tried, rx,ry: integer;
begin

looked:=0;
repeat
if DTMrotated(CenterDDTM, x,y,x1,y1,x2,y2) then
begin
mouse(x,y,2,2,true); //The DDTM usually doesn't work, but I kept
break; //it there as a failsafe.
end;
If FindColorSpiral(x,y,FindRockColor,558,85,578,116) then
begin
mouse(x,y,2,2,true);
wait(2500+random(300));
break;
end
else
begin
Centertol:=Centertol+3;
Centerarea:=Centerarea+1;
looked:=looked+1;
if (looked=6) then
begin
Writeln('Could not find the mining spot');
Disguise('Waiting for Next Player');
NextPlayer(false);
Disguise('DwarfMiner - Running');
end;
end;
until (looked=6);
repeat
If FindColorSpiralTolerance(x,y,FindRockColor,641,87,581,60,10) then
begin
mouse(x,y,2,2,true);
wait(2000);
writeln('We are at the mine! (I think)');
break;
end;
wait(1000);
tried:=tried+1;
until(tried=25)
Writeln('We are at the mine! (I think)');
end;

procedure NorthWestCopper;
var looked,tried, rx,ry: integer;
begin

looked:=0;
repeat
if DTMrotated(CenterDDTM, x,y,x1,y1,x2,y2) then
begin
mouse(x,y,2,2,true); //The DDTM usually doesn't work, but I kept
break; //it there as a failsafe.
end;
If FindColorSpiral(x,y,FindRockColor,558,85,578,116) then
begin
mouse(x,y,2,2,true);
wait(2500+random(300));
break;
end
else
begin
Centertol:=Centertol+3;
Centerarea:=Centerarea+1;
looked:=looked+1;
if (looked=6) then
begin
Writeln('Could not find the mining spot');
Disguise('Waiting for Next Player');
NextPlayer(false);
Disguise('DwarfMiner - Running');
end;
end;
until (looked=6);
mouse(615+random(6),58+random(7),4,3,true);
wait(2000);
writeln('We are at the mine! (I think)');
end;

procedure NorthEastTin;
begin
{You can see the tin rocks, no need to walk anywhere}
writeln('We are at the mine! (I think)');
end;

procedure NorthernCoal;
var looked,tried, rx,ry: integer;
begin

looked:=0;
repeat
if DTMrotated(CenterDDTM, x,y,x1,y1,x2,y2) then
begin
mouse(x,y,2,2,true); //The DDTM usually doesn't work, but I kept
break; //it there as a failsafe.
end;
If FindColorSpiral(x,y,FindRockColor,558,85,578,116) then
begin
mouse(x,y,2,2,true);
wait(2500+random(300));
break;
end
else
begin
Centertol:=Centertol+3;
Centerarea:=Centerarea+1;
looked:=looked+1;
if (looked=6) then
begin
Writeln('Could not find the mining spot');
Disguise('Waiting for Next Player');
NextPlayer(false);
Disguise('DwarfMiner - Running');
end;
end;
until (looked=6);
If FindColorSpiralTolerance(x,y,FindRockColor,635,65,597,27,10) then
begin
mouse(x,y,2,2,true)
wait(2000);
exit;
end
else
begin
mouse(615+random(14),58+random(13),4,3,true);
end;
wait(2000);
mouse(634+random(11),31+random(14),6,4,true);
wait(2000);
end;
procedure SouthEastTin;
begin
end;

procedure EasternIron;
begin
end;

procedure CenterIron;
begin
end;

procedure CenterCopper;
begin
end;

procedure SouthWestCopper;
begin
end;

procedure Autopickspot;
begin
if(Lvl<65) then
begin
case Players[CurrentPlayer].Strings[2] of
'coal' : SouthernCoal;
'iron' : WesternIron;
'copper' : NorthWestCopper;
'tin' : NorthEastTin;
end;
end
else
begin
case Players[CurrentPlayer].Strings[2] of
'tin' : SouthEastTin;
'iron' : CenterIron;
'copper' : CenterCopper;
'coal' : begin
Writeln('There is no coal for characters under 65. If you would still like to mine coal, please restart the script and set your own location');
NextPlayer(false);
end;
end;
end;
end;

procedure Manualpickspot;
begin

case Players[CurrentPlayer].Strings[1] of
'ec' : EasternCoal;
'sc' : SouthernCoal;
'wi' : WesternIron;
'nwc' : NorthWestCopper;
'net' : NorthEastTin;
'nc' : NorthernCoal;
'set' : SouthEastTin;
'ei' : EasternIron;
'ci' : CenterIron;
'cc' : CenterCopper;
'swc' : SouthWestCopper;
end;
end;

procedure ToMiningSpot;
begin
if (Players[CurrentPlayer].Booleans[1] = true) then
begin
AutoPickSpot;
end
else
begin
ManualPickSpot;
end;
end;

procedure Minetheore;
begin
end;

procedure Walktobank;
begin
end;

procedure Bankore;
begin
end;


begin
SetupSRL;
DeclarePlayers;
Login;
TheDTMs;
//WalktoMine;
ToMiningSpot;
Disguise('DwarfMiner - Stopped');
end.

Da 0wner

2008-04-14 21:45:09

Hehe, nice 1k posts! Wonder if your rep is worth 2 now like when you were community member… :)

King of the Nites

2008-04-14 21:48:09

congratz!!!! I have always thought you were nice, you helped out a ton! You deserve to have a great millenium!!!

Edit*how did you get auto-memberized??

Iron Man

2008-04-14 21:48:30

Congratulations Runescapian :)

Apparently I'm fun to talk to ^^

EDIT: Take a screenie!

NiCbaZ

2008-04-14 21:57:30

grats man gj on it all thanks for being helpful ect around the forums.!

Runescapian321

2008-04-14 22:09:29

From: Da 0wner
Hehe, nice 1k posts! Wonder if your rep is worth 2 now like when you were community member… :)


Thanks xD

From: king of the nites
congratz!!!! I have always thought you were nice, you helped out a ton! You deserve to have a great millenium!!!

Edit*how did you get auto-memberized??


Not exactly sure, I guess it was because I was helpful and spent 300 hours of my life just helping people (and autoing :p).

From: Iron man
Congratulations Runescapian :)

Apparently I'm fun to talk to ^^

EDIT: Take a screenie!


Yup, you're fun to talk to, whether you know it or not :p

From: nicbaz
grats man gj on it all thanks for being helpful ect around the forums.!


Thanks :D

Timothegreat

2008-04-14 22:47:08

gratz i will enjoy talking to you on msn for a long time ;)

Brain

2008-04-14 22:57:46

hmmmm, congratulations there sir.
I wish the best of luck on that script, it looks really complicated (all the different options)
If you get it working well it will be a popular one!

Runescapian321

2008-04-14 23:53:02

From: Brain
hmmmm, congratulations there sir.
I wish the best of luck on that script, it looks really complicated (all the different options)
If you get it working well it will be a popular one!


Thanks :) Yeah, its a bit complicated having to be able to walk to and from about 10 different places. If I ever finish it I bet it'll be atleast 2k lines. And if I keep updating it with more advanced stuff… Whoa, that's a lot of lines :p

From: Timothegreat
gratz i will enjoy talking to you on msn for a long time ;)


Same here :) Thanks

EDIT: I wonder how many people actually tried the acc details I left in there. :p

red eyes 20

2008-04-15 00:51:40

picture you have to provide us with a picture when you get 1k posts ^_^

and grats im not even half way there!!!!

Runescapian321

2008-04-15 06:59:29

From: red eyes 20
picture you have to provide us with a picture when you get 1k posts ^_^

and grats im not even half way there!!!!


I explained that :p I don't think that it's even legal for someone under 13 to post their picture on the internet without parents permission?

legendaryhero90

2008-04-15 09:28:24

From: Runescapian
I explained that :p I don't think that it's even legal for someone under 13 to post their picture on the internet without parents permission?


lol how so?

never heard of anything like that.

and congratz

Naum

2008-04-15 10:00:28

Congratz, Your avy says PIMP wouldn't your parents kill you :p j/k

Have a nice millenium.

Harry

2008-04-15 10:14:01

Grats, I'm gonna block you unless I get a pic! just kidding, grats : )

Runescapian321

2008-04-15 15:38:31

From: legendaryhero90
lol how so?

never heard of anything like that.

and congratz


Hmm, just googled it and I guess it's only on certain sites :p Ops, either way, my parents would still kill me :\

From: NaumanAkhlaQ
Congratz, Your avy says PIMP wouldn't your parents kill you :p j/k

Have a nice millenium.


:eek: I thought Timer was joking when he told me what that meant? Or are you joking too :p?

From: Hy71194
Grats, I'm gonna block you unless I get a pic! just kidding, grats : )


You want a pic? Hmmm…Got one -


*prays I won't get murdered because of who I am*

Lol

mixster

2008-04-15 15:52:14

From: Runescapian
:eek: I thought Timer was joking when he told me what that meant? Or are you joking too :p?

Lol

[BANANA]pimp definition as of google[/BANANA]

Anyway, congratulations, but where's my credit in there :(
I swear no one ever mentions me despite my uber 1337/\/355

Runescapian321

2008-04-15 15:57:58

From: mixster
[BANANA]pimp definition as of google[/BANANA]

Anyway, congratulations, but where's my credit in there :(
I swear no one ever mentions me despite my uber 1337/\/355


Dang, how could I forget you? :p

Looking for a new avvy atm -.-

kingarabian

2008-04-15 16:06:59

Awesome man gratz one the 1k. Ive been longer then you and I havent got 1k posts :(. Ah well gratz again oh and gratz on your srl-members, forgot to tell you that >.<.

kil8er

2008-04-16 13:48:29

Nice 1k :| I've only 9 posts i think :P
And I hope you'ill finish the script :D