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.
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.