rs cheat MASTER
2008-05-25 18:30:43
<!– BEGIN TEMPLATE: formanswers –>
rs cheat MASTER - SRL Member Application Form
rs cheat MASTER
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi. i am a very positive person. i love to critique other peoples scripts. i have helped many people make their own scripts.i got interested in scripting 2 years ago and have been making scripts for my own use ever since. i think that i have finally made a script that i can submit for members.my favorite kind of script to make is an autofighter. i also make scripts for things like neopets
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
rs cheat MASTER - SRL Member Application Form
rs cheat MASTER
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
no
Other Communitys
sythe
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
hi. i am a very positive person. i love to critique other peoples scripts. i have helped many people make their own scripts.i got interested in scripting 2 years ago and have been making scripts for my own use ever since. i think that i have finally made a script that i can submit for members.my favorite kind of script to make is an autofighter. i also make scripts for things like neopets
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{------------------------------------------------------------------------------]
[------------------------------------------------------------------------------]
[ With Lots of help from all the SRL Team ]
[ And hy71194 & Rasta Magician ]
[------------------------------------------------------------------------------]
[---------------READ IF YOU WANT TO MANUALLY SET WAT ORE TO MINE---------------]
[------------------------------------------------------------------------------]
[ If U have a high level but still want to mine iron ]
[ Then Set the higher ore level to a level that is higher ]
[ Than you minin level... i know its confusing but its now ]
[ Aka If you minin level is 54 but u still want to mine Iron ]
[ Then in Line236 Set the level to mine coal hgher than your ]
[ Minin level so set it to anything higher than 54 ]
[------------------------------------------------------------------------------}
program powerminer;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Mining.scar}
{.include SRL\SRL\Skill\Magic.scar}
{.include SRL\SRL\Misc\Trade.scar}
////////////////////////////////////////////
//If you get an error like Mining.scar //
//Doesnt exist the change the includes to //
//SRL\Skill\Mining.scar}<- Take out an SRL//
////////////////////////////////////////////
Const
StartPlayer = 0; // Starting Player.
NumberOfUsers = 1; // How many players .
YourSRLStatsID = ''; //Your SRLID..
YourSRLStatsPass = ''; // You SRL PASS .. Get one
RunDir = 'N'; // Run In Which Direction
InGuild = true; // Are you in the dwarven mines?
//don't touch these
VersionNumber = '2.7';
CopperRockColor = 4286610;
TinRockColor = 9277080;
IronRockColor = 2370383;
CoalRockColor = 2834753;
var
x, level, Tloads, Copper, OreMask, p, i : integer;
y, SearchColor, Iron, Coal, Tin, Active : integer;
Procedure DeclarePlayers;
var
p:integer;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='username'; //RS Username
Players[0].Pass :='password'; //RS Password
Players[0].Nick :='ser'; //3-4 Letters from the middle of you username, NO CAPS
Players[0].Active:=True; // Use this char??
Players[0].Booleans[0] := true //If Lost Tele To Lumby??
Players[0].Integers[0] := 2 //Total Loads
{Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=False;
Players[1].Booleans[0] := true
Players[1].Integers[0] := 2 //Total Loads
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active:=False;
Players[2].Booleans[0] := true
Players[2].Integers[0] := 2 //Total Loads
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active:=False;
Players[3].Booleans[0] := true
Players[3].Integers[0] := 2 //Total Loads}
for p:= 0 to HowManyPlayers - 1 do
begin
Players[p].Strings[0] := 'Blank';
end;
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
procedure Siggy;
begin
Cleardebug;
WriteLn('[]==========================================[]');
WriteLn('[]-------- Welcome To cheat masters --------[]');
WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
WriteLn('[]---------- Special Powerminer ------------[]');
WriteLn('[]~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~[]');
WriteLn('[]---------- By rs cheat MASTER ------------[]');
WriteLn('[]==========================================[]');
wait(1000);
WriteLn('');
end;
Procedure Report;
Begin
ClearDebug;
WriteLn('[]----------------------------------------------[]')
WriteLn('')
WriteLn('Powerminer created by rs cheat MASTER.')
WriteLn('Version: '+VersionNumber+'.')
WriteLn('')
WriteLn('Copper Mined and Dropped : ' +IntToStr(Copper)+ ' ores');
WriteLn('Tin Mined and Dropped : ' +IntToStr(Tin)+ ' ores');
WriteLn('Iron Mined and Dropped : ' +IntToStr(Iron)+ ' ores');
WriteLn('Coal Mined and Dropped : ' +IntToStr(Coal)+ ' ores');
Writeln('Worked for '+ TimeRunning);
WriteLn('')
WriteLn('[]----------------------------------------------[]')
WriteLn('')
SRLRandomsReport;
WriteLn('')
WriteLn('[]----------------------------------------------[]')
End;
procedure Reports;
begin
case(Players[p].Strings[0]) of
'Copper': ReportVars[1] := ReportVars[1] + 1
'Tin': ReportVars[2] := ReportVars[2] + 1
'Iron': ReportVars[3] := ReportVars[3] + 1
'Coal': ReportVars[4] := ReportVars[4] + 1
end;
SendSRLReport;
end;
Procedure Masks;
{<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=->
procedure OreMask;
By: rs cheat master
Description: Declares the Ore Mask
<-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-> }
var
OreMask: Integer;
begin
OreMask:= BitmapFromString(18, 16, 'beNpjYMAF/v//D2fA2fjBfyTA' +
'QBxAU4lVI0E1uKzD7wU8uuDqybCLSF/g14U/GDEDhJgwJz5SKNdIn' +
'l10s4h+AABnp3GP');
end;
Function FindFastRandoms: Boolean; // By WT-Fakawi.
Var
i: Integer;
Begin
For I := 1 To 12 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 : If RC Then
Result := True;
9 : If FindFight Then
Begin
Result := True;
RunTo(RunDir, True);
End;
10: If FindTalk Then
Result := True;
11: If HandleTrade Then
Result := True;
12: If not InGuild then // Creds to [-Jesus-] for the idea
begin
if InBlack then
begin
Result :=true;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
end;
End;
Wait(1);
End;
Procedure AntiBran;
begin
if(not(LoggedIn)) then exit;
case random(7) of
0: PickUpMouse;
1:begin
HoverSkill('Mining',false)
wait(354 + random(823))
GameTab(4);
end;
2: SleepAndMoveMouse(2000+random(2000))
3: Typesend('Minin lvls?')
4: begin
MakeCompass('E')
MakeCompass('N')
end;
5: Typesend('Minin 4 life lol woot')
6: begin
case random(3) of
0: MakeCompass('W')
1: MakeCompass('E')
2: MakeCompass('S')
end;
MakeCompass('N')
end;
end;
end;
procedure WhatOre; //Adapted from Tails111 wc script
var p:integer;
Begin
Status('Getting Mining Level');
GameTab(2);
level := GetSkillLevel('Mining');
GetAllLevels;
If(level >= 38) then
Players[p].Strings[0] := 'Coal';
If(level >= 17) then
Players[p].Strings[0] := 'Iron';
If(level >= 7) Then
Players[p].Strings[0] := 'Tin';
If(level >= 1) Then
Players[p].Strings[0] := 'copper';
writeln('Mining Lvl ' +IntToStr(level)+ '.')
Gametab(4);
TLoads := Players[CurrentPlayer].Integers[0]
WriteLn(Players[CurrentPlayer].Name + ' will mine ' + Players[p].Strings[0] + '.');
end;
Function FindGass: Boolean;
var rx ,ry ,GasTime:Integer;
begin
If(Not Loggedin)Then Exit;
begin
Result := FindGas(rx, ry - 20);
if(Result)then
begin
Writeln('Gas found!');
Mouse(250, 170, 100, 100, True);
MarkTime(GasTime);
while(TimeFromMark(GasTime) < 35000)do
Wait(RandomRange(500, 1000));
end;
end;
end;
procedure LumbyTele;
begin
if Players[CurrentPlayer].Booleans[0] = true then
begin
cast('Home Teleport');
wait(22000+Random(1000));
if (FindBlackChatMessage('You need to wait another'))then
begin
LogOut;
NextPlayer(False);
end;
if Players[CurrentPlayer].Booleans[0] = false then
Logout;
NextPlayer(False);
end;
end;
procedure Relocating;
var
WX, WY:integer;
begin
if (not (FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))) then
begin
if FindSymbol(Wx, WY, 'mining site') then
begin
Mmouse(x, y, 3, 3)
Mouse(x, y, 2, 2, true)
end;
if not FindSymbol(Wx, WY, 'mining site') then
Lumbytele;
end;
end;
procedure Lost;
var
WX, WY:integer;
begin
if (not (FindSymbol(Wx, WY, 'mining site'))) then
case Random(4) of
0: RunTo('N', false);
1: RunTo('S', false);
2: RunTo('E', false);
3: RunTo('W', false);
end;
wait(1000+Random(500));
if (not (FindSymbol(Wx, WY, 'mining site'))) then
Runback;
LumbyTele;
writeln('Lost Loggin Out')
end;
//Mining\\
procedure MineOre;
var
StartOre: integer;
begin
if not LoggedIn then Exit;
case Players[CurrentPlayer].Strings[0] of
'Copper': SearchColor := CopperRockColor;
'Tin': SearchColor := TinRockColor;
'Iron':SearchColor := IronRockcolor;
'Coal':SearchColor := CoalRockColor;
end;
repeat
if(FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))then
begin
if(isUpText('ine roc'))then
Status('Mining Rocks Now')
FindGass;
Mouse(x, y, 0, 0, true);
MarkTime(StartOre);
repeat
wait(1000)
FindGass;
FindFastRandoms;
wait(1000)
AntiBran;
FindGass;
FindFastRandoms;
until(FindBlackChatMessage('You manage to mine'))or(TimeFromMark(StartOre) > 15000) //credit to RMagican
end
Wait(200);
until(InvFull)
TLoads := TLoads + 1;
Reports;
ClickAllItemsBmpMaskTolWait(OreMask, 'rop', 5, 5, 950);
ArrangeInv;
FreeBitmap(OreMask);
if (not (FindColorTolerance(x, y, SearchColor, 0, 0, 700, 500, 4))) then
relocating;
end;
procedure ActiveLeft;
begin
for
I := 0 To HowManyPlayers - 1 do
begin
if (Players[i].active = True) then Active := Active + 1;
If (Active = 0) then
begin
WriteLn('All Players done :)');
exit;
end;
If (Active > 0) then
WriteLn('' + IntToStr(Active) + ' Players Remaining.');
end;
end;
//Main Loop\\
begin
SetupSRL;
SRLID := YourSRLSTATSID;
SRLPassword:= YOURSRLSTATSPASS;
ScriptId:= '509';
Siggy;
ActivateClient;
wait(200);
DeclarePlayers;
LoginPlayer;
repeat
WhatOre;
MineOre;
Report;
if (Players[CurrentPlayer].Integers[0] = TLoads) Then
TLoads:= 0;
NextPlayer(True);
Until(Active = 0);
end.——————————————————
<!– END TEMPLATE: formanswers –>