PDA

View Full Version : 10% done lumbridge miner



RudeBoiAlex
08-25-2007, 01:39 AM
well i was thinking of makeing a leet lumbridge miner but icba to all the doors stairs ect >.<

well here it is set out nicely but hardly anythink done continue if u want i wouldlike to see someone continue this plz


//------------------------------------------------------------------------------
// .____ ___. .__ .___
// | | __ __ _____\_ |_________|__| __| _/ ____ ____
// | | | | \/ \| __ \_ __ \ |/ __ | / ___\_/ __ \
// | |___| | / Y Y \ \_\ \ | \/ / /_/ |/ /_/ > ___/
// |_______ \____/|__|_| /___ /__| |__\____ |\___ / \___ >
// \/ \/ \/ \/_____/ \/
// _____ __ .__
// / _ \ __ ___/ |_ ____ _____ |__| ____ ___________
// / /_\ \| | \ __\/ _ \ / \| |/ \_/ __ \_ __ \
// / | \ | /| | ( <_> ) Y Y \ | | \ ___/| | \/
// \____|__ /____/ |__| \____/|__|_| /__|___| /\___ >__|
// \/ \/ \/ \/
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
// | What It Does |
// -=-=-=-=-=-=-=-
// * The Lumbridge Autominer Is Desgined To Mine Around Lumbridge Banking OR Dropping.
// * Is Mines Tin Or Copper AND I Will Get It To Walk Around To Varrock.
// * This Will Bring U Up Some Mineing Lvls And No Walking Required.
//------------------------------------------------------------------------------

//------------------------------------------------------------------------------
// | How To Use |
// -=-=-=-=-=-=-=-
// * Setup Up Your Plaeyers Correctly And Target RS
// * Scar Divi 3.11 And SRL 4
// * This Script Will Cast Home Tele And Do Its Job.
//-------------------------------------------------------------------------------

//-------------------------------------------------------------------------------
// | Credit |
// -=-=-=-=-=-
// * Me For Makeing This *
// * SRL For teh Sexy Includes Ect *
// * Nielsie For ACA *
//
//------------------------------------------------------------------------------


program TehLumbridgeMiner;
{.include SRL/SRL.scar}


Procedure DeclarePlayers;
begin
NumberOfPlayers(6);

Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Your Name';
Players[0].Active :=True;
Players[0].booleans[0]:= False; // Is The Pick Equipped?

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
Players[1].booleans[0]:= False; // Is The Pick Equipped?


Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active :=True;
Players[2].booleans[0]:= False; // Is The Pick Equipped?


Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active :=True;
Players[3].booleans[0]:= False; // Is The Pick Equipped?


Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active :=True;
Players[4].booleans[0]:= False; // Is The Pick Equipped?


Players[5].Name :=' ';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active :=True;
Players[5].booleans[0]:= False; // Is The Pick Equipped?

Writeln('Using '+IntToStr(NumberOfPlayers)+' Players');

End;


Procedure LoadBitmaps; // These Are Wizups Bitmaps!
Begin
CopperOre := BitmapFromString(1, 18, '6C3D1A7B461D884E22955' +
'524A15C28AA612AB8692E00000100000153432E67533A6E58 3D74' +
'5D42765F43796245826849876D4C8C7150');

TinOre := BitmapFromString(1, 16, '696262635C5B635C5B635C5B' +
'635C5B736B6B7971707F76760000016E583D765F438268498 46B4' +
'A876D4C8C71508E7351');
End;


{--------------------------------------------------------

Function FindFastRandoms: Boolean; // By WT-Fakawi.

FindFastRandoms is a quicker version of FindNormalRandoms.
It does not include ALL the Anti-Randoms though.

--------------------------------------------------------}

Function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 13 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;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
If InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
9 : If RC Then Result := True;

10 : If FindFight Then
Begin
Result := True;
MakeCompass('N');
RunTo('S', True);
MakeCompass('N');
End;

11: If FindTalk Then Result := True;

12: If HandleTrade Then Result := True;

13: If ClickToContinue;
End;
Wait(1);
end;
end;


Procedure HomeTele;
Begin
If TabExits(7) Then
GameTab(7);
Cast('Home Teleport')
Wait(15000 + Random (2000)) If FindSymbol('Water') Then
Writeln('In Lumbridge... Starting Script');
End;




begin
SetupSRL;
end.

jhildy
08-25-2007, 02:14 AM
lol u bereley did anything so i guess just an idea with the standard coding already there lol.

Santa_Clause
08-25-2007, 02:26 AM
Exactly what I was going to say :p

dvdcrayola
08-25-2007, 06:10 AM
plus.. Mouse(695, 437).. your missing 3 parameters :eek:

Santa_Clause
08-25-2007, 06:35 AM
What the?! That's awfully weird.

He also put in credits before making the script :p

dvdcrayola
08-25-2007, 06:39 AM
hey i do that!

well i take that back, but i do them as i go, he hasn't used ACA yet and its in there.

kodeejs
08-25-2007, 06:49 AM
Accually i think. Nvm dude, but how you get in SRL Member your coding is very easy in primitive. Nvm, it`s not nothing persionally, but i think i can much better, so im just lazy, but i think i need to show some of my scripts to SRL administration, and i think i will be then SRL memeber. Nvm rudeboialex, it`s nothing persionally. But good is that, to i hope you are not so lazy like me, proabobly :)

jhildy
08-25-2007, 06:49 AM
Cast('Home Teleport') Or Mouse(695, 437) plus that doesnt even make sence

kodeejs
08-25-2007, 06:53 AM
Cast('Home Teleport') Or Mouse(695, 437) plus that doesnt even make sence

maybe: if not(Cast('Home Teleport')) then Mouse(695, 437, 3, 3, true);

n3ss3s
08-25-2007, 10:14 AM
I think the scienfitical (right word?) for that is "Template" =D

JuKKa
08-25-2007, 11:10 AM
i'd say its less then 10% done :P Im currently working on a VEM :)

RudeBoiAlex
08-25-2007, 02:07 PM
Accually i think. Nvm dude, but how you get in SRL Member your coding is very easy in primitive. Nvm, it`s not nothing persionally, but i think i can much better, so im just lazy, but i think i need to show some of my scripts to SRL administration, and i think i will be then SRL memeber. Nvm rudeboialex, it`s nothing persionally. But good is that, to i hope you are not so lazy like me, proabobly :)

i got in with alot of uck + i new minimum scripting and i posted around here lots :p

everyone i was gonna use all ACA ect..... and i put credits in before cas they what i plan to use lool

dvdcrayola
08-26-2007, 05:16 PM
i got in with alot of uck + i new minimum scripting and i posted around here lots :p

everyone i was gonna use all ACA ect..... and i put credits in before cas they what i plan to use lool

then how do you have a scripters cup?

RudeBoiAlex
08-28-2007, 03:02 PM
i dunno alod of people got thwm lock this up plz :)

mat_de_b
09-01-2007, 06:46 PM
Pretty much everything you added is nothing to do with mining in lumbridge

Pentti
09-01-2007, 06:56 PM
Whats actually the main idea on making this thread? ...I just dont get it.

jackkat
09-03-2007, 01:32 AM
I don't see the point, the code that is actual actually run is:
begin
end;

this makes no sense.

shaunthasheep
09-03-2007, 10:28 AM
Meh, im working on a Lumbridge miner, smither and banker. Walking isn't done yet and its already 800 lines. Walking is also the only thing i've worked on so far.

Santa_Clause
09-03-2007, 11:08 AM
OoO! Maybe you can combine it with your clay softener, if you can mine clay in Lumbridge that is..

RudeBoiAlex
09-03-2007, 01:06 PM
I don't see the point, the code that is actual actually run is:
begin
end;

this makes no sense.

Guess why..... cause its 10%!! :f:.


Everyone just let this die please!