m3gaman3g3nd
2012-02-02 01:01:28
How Long have You Played Runescape?
7 Year(s)
Are you affilated in anyway with Jagex LTD?
Nope
Were you Referred to SRL?
I Said I Wish
What is your general programming knowledge?
This… er a Pascal? Turbo Pascal?
Are you a member of any other communities?
Member of Unotamis
Tell us about yourself…
Please show us one (or multiple) of your scripts.
7 Year(s)
Are you affilated in anyway with Jagex LTD?
Nope
Were you Referred to SRL?
I Said I Wish
What is your general programming knowledge?
This… er a Pascal? Turbo Pascal?
Are you a member of any other communities?
Member of Unotamis
Tell us about yourself…
From: m3gaman3g3nd
Ive been turning into a program slum.. er a i enjoy writing macros for games now…
uhm im am perticularry a fan of Tokyo Extreem Racer 2…. SDC***
Please show us one (or multiple) of your scripts.
program Xminer;
{$define SMART}
{$i srl/srl.simba}
{$i srl/srl/misc/paintsmart.simba}
var
i: integer;
Const
Loads= 85; ////// NOTE* CHANGE LOAD TO DESIRED AMOUNT.////////
//////////////////////////////////////
procedure DeclarePlayers;////// grabbed this from meth miners script harharhar
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'dfgdf'; // Username
Players[0].Pass := 'dfgdfg'; // Password
Players[0].Nick := 'dffdg'; // 4 lowercase letters from your character name
Players[0].Active := True;
{
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := True;
}
end;
procedure AntiBan;//////////// this anti ban belongs to methminer guy sorry for any plagerizm harharhar lol
begin
if(not(LoggedIn)) then
Exit;
case Random(2500) of
10: RandomRClick;
20: HoverSkill('Mining', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
end;
procedure AntiBan2;
begin
if(not(LoggedIn)) then
Exit;
case Random(2500) of
10: RandomRClick;
20: writeln('?');
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
end;
end;
function FindOre :TPoint;
var
Point1: TPoint;
TBA: TBoxArray;
TPA3, TPA2,TPA: TPointArray;
x, y ,i: Integer;
ATPA,ATPA2: T2DPointArray;
begin
FindColorsSpiralTolerance(mscx, mscy, TPA, 1069423, MSX1, MSY1, MSX2, MSY2, 10);
if Length(TPA) < 1 then
Exit;
ATPA:= SplitTPA(TPA, 9);
SMART_DrawDotsEx(false,TPA, clwhite);
// for i:= 0 to high(ATPA) do
// begin
SetArrayLength(TBA,i+1);
TBA[i]:= GetTPABounds(ATPA[i]);
SMART_DrawBoxes(false,TBA,Clgreen);
// end;
for i:= 0 to High(TBA) do
begin
SetArrayLength(TPA2, i+1);
SetArrayLength(TPA3, i+1);
TPA2[i]:= MiddleBox(TBA[i]);
FindColorsSpiralTolerance(TPA2[i].x,TPA2[i].y,TPA3,855309,TBA[i].x1,TBA[i].y1,TBA[i].x2,TBA[i].y2, 8);
// SMART_DrawDotsEx(false, TPA3, clTeal);
Point1:= MiddleTPA(TPA3);
end;
begin
Result:= Point1;
end;
end;
function WalkToBank :TPoint;
var
Point1: TPoint;
TBA: TBoxArray;
TPA3, TPA2,TPA: TPointArray;
x, y ,i: Integer;
ATPA,ATPA2: T2DPointArray;
begin
FindColorsSpiralTolerance(mmcx, mmcy, TPA, 16052718, mmx1, mmy1, mmx2, mmy2, 8);
SetArrayLength(TBA,i+1);
TBA[i]:= GetTPABounds(TPA);
SMART_DrawDotsEx(false,TPA, clred);
SMART_DrawBoxes(false,TBA,Clgreen);
Point1:= MiddleTPA(TPA);
Result:= Point1
end;
Function BankBox: Tpoint;
var
Box: TBox;
Point1: TPoint;
TBA2, TBA: TBoxArray;
TPA3, TPA2,TPA: TPointArray;
x, y ,i: Integer;
ATPA,ATPA2: T2DPointArray;
begin
FindColorsSpiralTolerance(mscx, mscy, TPA, 6917022, MSX1, MSY1, MSX2, MSY2, 12);
FindColorsSpiralTolerance(mscx,mscy,TPA2,6121324,msx1,msy1,msx2,msy2,6);
FindColorsSpiralTolerance(mscx,mscy,TPA3,7042428,msx1,msy1,msx2,msy2,6);
TPA2:= CombineTPA(TPA2, TPA3);
TPA:= CombineTPA(TPA, TPA2);
ATPA:= TPAtoATPA(TPA,30);
SetArrayLength(TBA, i+1);
TBA[i]:=GetTPABounds(ATPA[i]);
SMART_DrawBoxes(false,TBA,Clgreen);
Point1:= MiddleBox(TBA[i]);
result:= Point1;
end;
procedure MineOre;
var
t, c: integer;
begin
if invfull or(not(LoggedIn)) then
exit;
FindNormalRandoms;
wait(500+random(150))
MMouse(FindOre.x, FindOre.y, 5, 5);
wait(500);
if IsUpTextEx('oal') then
begin
wait(250+random(100));
ClickMouse2(1);
C := InvCount
MarkTime(T);
SMART_ClearCanvas;//
repeat
AntiBan2;
until(invcount>C) or (TimeFromMark(T)>16000+Random(450));
end;
end;
Procedure DepositeOre;
var
i: integer;
begin
if invfull then
begin
FindNormalRandoms;
For i:= 0 to 1 do
begin
wait(3500+random(250));
MMouse(WalkToBank.x-35, WalktoBank.y, 5, 5);
wait(500+random(250));
ClickMouse2(1);
end;
wait(4500+random(250));
mmouse(BankBox.x, BankBox.y,5 ,5);
wait(500+random(250));
if IsUpTextEx('epos') then
begin;
ClickMouse2(1);
end;
SMART_ClearCanvas;//
wait(2700+random(250));
QuickDeposit(SRL_DEPOSIT_ALL);
For i:= 0 to 1 do
begin
wait(500+random(250));
MMouse(WalkToBank.x+35, WalktoBank.y, 5, 5);
wait(500+random(250));
ClickMouse2(1);
end;
Wait(2500+random(250));
end;
end;
begin
Smart_Server := 30;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(3000+random(520));
SetAngle(0);
For i:= 1 to Loads do
begin
AntiBan;
repeat
mineOre;
until(invfull);
AntiBan;
DepositeOre;
AntiBan;
end;
end.