ajg0001991
2013-02-27 15:30:18
How Long have You Played Runescape?
8 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
i have a basic understanding of srl language and have been learning slowly over the past 2 years, i still have allot of work to do also to improve my skills which i am looking foward to doing
Are you a member of any other communities?
ex powerbot user
Tell us about yourself…
Please show us one (or multiple) of your scripts.
8 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
i have a basic understanding of srl language and have been learning slowly over the past 2 years, i still have allot of work to do also to improve my skills which i am looking foward to doing
Are you a member of any other communities?
ex powerbot user
Tell us about yourself…
From: ajg0001991
well as stated above i have been learning srl for 2 years now but its only been recently i have pushed my skill to try and improve them and i think i am doing quite well anyway i want to apply for members coz i feel i have earned it i have tried my best to be active in the forums and support the community as best as i can, now i have actually started to make scripts i feel this would be a good opportunity to try and get you guys behind me i released my first script yesterday for 07 scape and im pretty proud of myself
just so u know im not a pro scripter and i still have a hell of a lot to learn but i feel i have sufficient knowledge of how to script and i have hopefully been helpful to the community of srl and would like to to join your team of members
thank you for considering my application
Please show us one (or multiple) of your scripts.
i will pe posting 2 scripts i have created myself (i used another script as a base)
1st script is for 07scape
2nd script is for eoc
my 2nd script is incomplete and still in development there is alot in the script that isnt even being used
but i did a lot of testing with this script originally trying out diffrent methods and i havnt cleaned it up
yet so sorry about that
program chopfletchdrop;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
var
runison, math,z,i,Seconds,StartTime,XpPerHour,fletchedperhour:Integer;
shopdtm, logs2, ChopWaitT, knife, logs, x,y, k, invcount1:integer;
invcount2, ChopWaitTime, WillowColor, smooth: integer;
Status,XpOre,XpGained,logsfletched:Integer;
procedure DTM;
begin
smooth := 750;
ChopWaitTime := 25000;
WillowColor := 2111538;
end;
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
end;
Procedure Callviruses;
Begin
{Going to Name the Bitmap string " Ring ", and declare the variable under Var}
knife:= BitmapFromString(10, 10, 'meJwztnE1tfMwBpIOnowMDCUlNY' +
'WFVVlZRX39M4FcoDgEAdllZXVA2dy88rS03HnzVkFkgbpMHdwgsvk' +
'FlRkZ+ZMmzQVyFRQMrJy8IWZWVDQAzczOKU1JyV68eD1EFq4RYiZQ' +
'47TpiyBSEFkgm9MqFIhmzlrW2TVl2fJNEFmIYyBScAVYNUIQr0cO3' +
'D1AhFUKUxZZCuxUEAIANwhKdQ==');
logs:= BitmapFromString(20, 16, 'meJyNk8EKgkAQhvURgkCIIN/ADl' +
'KIsZCwhz3kIchLEUQhdAh6/1Mjv46jo0vwHZZlvt3ZmdkwCEz9BZt' +
'TtXZnsLIl4J0Rq8KFQ1fqDPYl2j28PlLXCkP5RMZOuh7a5xQuyo7S' +
'lZnPKsaStUzzRbKjtUfs69ZZLbQ2ljYJiPnjzfWhkwkd2dDVP7vXW' +
'EPsT9aW6hq7++szvdz6wyVTjaYXsYuc6YS5YdAdp3hcOtdlz5zAla' +
'X2uKMuIM9/7tXta95buKSsJqdLi9xuzDOYm5DBzxLxRBxvidFU89V' +
'tT4WCePADxTnrrg==');
logs2 := BitmapFromString(20, 15, 'meJyNk7EKwjAUResvOAiFInVzEn' +
'EpilQCFgJ2kIKgi11EcRAE/x+89tb0maS2cIYScl5e8m7V/TXZn8b' +
'5gUS6IGbFIsrycL0dJekgCFTlSt3AdYlxIcbxHO7m9pS6qxjQT6g0' +
'D7XcP9TXqQ4dLpZw2TPpUJTmNSGC2a6YqswrNu/2tWrwrTQWuQ4xv' +
'TzM+6AycHd+EO/P+hSbyq7lTM30tjpfk2PZFJf4Bi3vxZ5RoS0MbR' +
'OnS6wp98lJH7ctJ52ud3wcnOtK3Q0JYKhkrqyE/PxZYj+TTN61Vt9D');
shopDTM := DTMFromString('mGQAAAHicY2RgYMgGYhdGBobqBkUGEGAEEQAbPAHP');
End;
Procedure Freeviruses;
Begin
FreeBitMap(logs);
FreeBitMap(knife);
End;
Function IsFletching: Boolean;
var
PBox: TBox;
Begin
PBox := IntToBox(250, 145, 273, 175);
Result := (AveragePixelShift(PBox, 250, 350) > 75);
Writeln(IntToStr(AveragePixelShift(PBox, 500, 650)));
cleardebug;
End;
procedure fletchingLogs;
Begin
If FindBitMapToleranceIn(knife, x, y, MIX1, MIY1, MIX2, MIY2, 50) Then
Mouse(x, y, Random(1), Random(1), true);
P07_ChooseOptionMulti(['use']);
If FindBitMapToleranceIn(logs, x, y, MIX1, MIY1, MIX2, MIY2, 50) Then
Mouse(x, y, Random(1), Random(1), true);
P07_ChooseOptionMulti(['use']);
P07_MouseBox(250, 435, 220, 400, 3);
Wait(RandomRange(300,400));
ClickMouse2(Mouse_Right);
Wait(RandomRange(300,400));
P07_ChooseOptionMulti(['ake X']);
Wait(RandomRange(500,450));
SendKeys('88', 95, 35);
Wait(RandomRange(300, 400));
P07_UseKey(13);
Wait(44000);
End;
procedure TurnOnRun;
var x, y: integer;
begin
Mouse(671, 482, random(5), random(5), true);
if(FindColorTolerance(x, y, 4803917, 651, 422, 659, 430, 10)) then
begin
Mouse(640, 426, random(5), random(5), true);
end;
Mouse(644, 184, random(5), random(5), true);
end;
procedure ChopTree;
var x, y: integer;
begin
If P07_FindObj(x, y, 'illow', WillowColor, 5) Then
begin
writeln( CountColorTolerance(13093380, 0, 0, 243, 20, 30));
cleardebug;
if(CountColorTolerance(13093380, 0, 0, 243, 20, 30) > 1) then
begin
if Random(2) = 1 then
begin
Mouse(x, y, Random(2), Random(2), true);
// end
// else
// begin
// Mouse(x, y, Random(0), Random(0), false);
// P07_ChooseOptionMulti(['hop']);
end;
end;
end
else
begin
end;
P07_FFlag;
wait (smooth);
end;
Function isMoving1: Boolean;
var
PBox: TBox;
begin
PBox := IntToBox(237, 162, 282, 205);
Result := (AveragePixelShift(PBox, 250, 500) > 90);
Writeln(IntToStr(AveragePixelShift(PBox, 250, 500)));
cleardebug;
end;
Function AntiBan: Boolean;
begin
case random(7) of
1: P07_HoverSkill('woodcutting', random(7000));
2: P07_HoverSkill('fletching', random(7000));
3: P07_MakeCompassSouth;
4: MMouse(random(700), random(400), 0, 0);
5: P07_MakeCompassnorth;
6: P07_HoverSkill('fletching', random(7000));
7: P07_HoverSkill('woodcutting', random(7000))
end;
end;
begin
P07_DeclarePlayer;
callviruses;
SetupP07Include;
ActivateClient;
Wait(1000);
If (Not P07_LoggedIn) Then
begin
P07_LogInPlayer;
end;
P07_MakeCameraAngleHigh;
P07_MakeCompassnorth;
turnOnrun;
wait(200);
DTM;
wait(200);
AddOnTerminate('FreeDTMss')
Addonterminate('Freeviruses');
MarkTime(ChopWaitT);
invcount2 := 28;
repeat
invcount1 := P07_InvCount;
writeln(inttostr(TimeFromMark(chopwaitt)) + ' chopwaitt');
cleardebug;
if((TimeFromMark(ChopWaitT) > ChopWaitTime)) then
begin
invcount2 := P07_InvCount;
MarkTime(ChopWaitT);
end;
writeln(inttostr(TimeFromMark(chopwaitt)) + ' chopwaitt');
cleardebug;
if(P07_InvFull) then
begin
k := 1;
IsFletching;
fletchinglogs;
P07_DropAllExcept([1,2]);
AntiBan;
end else
begin
if((invcount2 >= invcount1) or not isMoving1) then
begin
ChopTree;
invcount2 := 0;
end;
writeln(inttostr(invcount2) + ' ' + inttostr(invcount1));
cleardebug;
end;
until (Not P07_LoggedIn)
TerminateScript;
end.
===============================================================
program wildy runite miner beta4);
{$DEFINE SMART}
{$I SRL/SRL.simba}
{$i sps/sps.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
var
wBreakStartMS, wStartTimeBreak, HPBarDTM: integer;
wStartTotalExp, wCurrentExp, wStartSkillExp: integer;
wearedead: Boolean;
procedure declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Pin := '';
Players[0].Active := True;
Players[0].Member := true;
end;
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////
type wObjectColor = record
CTSMode: integer;
CTSModOne,CTSModTwo, CTSModThree: extended;
startColor, colorTol: LongInt;
xModS, xModE, yModS, yModE, zModS, zModE: extended;
end;
type wObject = record
name: string;
x, y, xs, xe, ys, ye, tol, dist: LongInt;
mouseModX, mouseModY, mouseRandX, mouseRandY: integer;
waitTime: integer;
uptext: array of string;
color: wObjectColor;
end;
var
wObj: array [0..15] of wObject;
alchNum:integer;
procedure loadrocks;
begin
with wObj[1] do
begin
name := 'Rune Rock';
uptext := ['unite','ore'];
waitTime := 1000;
x := MSCX;
y := MSCY;
xs := MSX1;
xe := MSX2;
ys := MSY1;
ye := 309-50;
dist := 10;
mouseModX := - 1;
mouseModY := - 1;
mouseRandX := 2;
mouseRandY := 2;
color.CTSMode:= 2;
color.CTSModOne:= 0.02;
color.CTSModTwo:= 0.87;
color.startColor:= 11839313;
color.colorTol:= 29;
color.xModS:= 4.1;
color.xModE:= 59.29;
color.yModS:= 4.92;
color.yModE:= 69.65;
color.zModS:= 6.45;
color.zModE:= 89.77;
end;
with wObj[2] do
begin
name := 'ate';
uptext := ['ate'];
waitTime := 1000;
x := MSCX;
y := MSCY;
xs := MSX1;
xe := MSX2;
ys := MSY1;
ye := 309-50;
dist := 10;
mouseModX := - 1;
mouseModY := - 1;
mouseRandX := 2;
mouseRandY := 2;
color.CTSMode:= 2;
color.CTSModOne:= 0;
color.CTSModTwo:= 0;
color.startColor:= 4738899;
color.colorTol:= 0;
color.xModS:= 7.44;
color.xModE:= 7.64;
color.yModS:= 7.8;
color.yModE:= 8;
color.zModS:= 7.16;
color.zModE:= 7.36;
end;
with wObj[3] do
begin
name := 'spider webs';
uptext := ['eb'];
waitTime := 1000;
x := MSCX;
y := MSCY;
xs := MSX1;
xe := MSX2;
ys := MSY1;
ye := 309-50;
dist := 10;
mouseModX := - 1;
mouseModY := - 1;
mouseRandX := 2;
mouseRandY := 2;
color.CTSMode:= 2;
color.CTSModOne:= 0.65;
color.CTSModTwo:= 0.15;
color.startColor:= 6973284;
color.colorTol:= 13;
color.xModS:= 5.74;
color.xModE:= 23.21;
color.yModS:= 6.12;
color.yModE:= 24.97;
color.zModS:= 6.96;
color.zModE:= 28.11;
end;
with wObj[4] do
begin
name := 'lever';
uptext := ['ever','ver'];
waitTime := 2000;
x := MSCX;
y := MSCY;
xs := MSX1;
xe := MSX2;
ys := MSY1;
ye := 309-50;
dist := 10;
mouseModX := - 1;
mouseModY := - 1;
mouseRandX := 2;
mouseRandY := 2;
color.CTSMode:= 2;
color.CTSModOne:= 0.02;
color.CTSModTwo:= 0.11;
color.startColor:= 1054574;
color.colorTol:= 8;
color.xModS:= 3.13;
color.xModE:= 12.03;
color.yModS:= 1.84;
color.yModE:= 6.93;
color.zModS:= 0.42;
color.zModE:= 1.5;
end;
with wObj[5] do
begin
name := 'clickbank';
uptext := ['undai'];
waitTime := 1000;
x := MSCX;
y := MSCY;
xs := MSX1;
xe := MSX2;
ys := MSY1;
ye := 309-50;
dist := 10;
mouseModX := - 1;
mouseModY := - 1;
mouseRandX := 2;
mouseRandY := 2;
color.CTSMode:= 2;
color.CTSModOne:= 0.11;
color.CTSModTwo:= 2.28;
color.startColor:= 2967884;
color.colorTol:= 6;
color.xModS:= 3.78;
color.xModE:= 7.9;
color.yModS:= 4.28;
color.yModE:= 8.6;
color.zModS:= 1.64;
color.zModE:= 6.34;
end;
end;
procedure wMouse(x,y,randX,randY,button:integer);
var
a,b:integer;
begin
case random(20) of
0..3:
begin
missmouse(x+random(randX),y+random(randY));
getmousepos(a,b);
mouse(a,b,0,0,button);
end;
else
mouse(x,y,randX, randY, button);
end;
end;
function wAutoColor(var objectNumber: wObject): Integer;
var
TPA, newColorsTPA: TPointArray;
colors: TIntegerArray;
tmpCTS, size, i, a, newArraySize: Integer;
X, Y, Z, h, s, l: Extended;
maxL, minL: Extended;
begin
maxL:=0;
minL:=9000;
newArraySize:=0;
{$ifDef Lape}
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(objectNumber.color.CTSMode);
if(objectNumber.color.CTSMode=2)then
SetColorSpeed2Modifiers(objectNumber.color.CTSModOne, objectNumber.color.CTSModTwo)
else if(objectNumber.color.CTSMode=3)then
SetColorSpeed3Modifier(objectNumber.color.CTSModThree);
{$else}
tmpCTS := GetToleranceSpeed;
setColorToleranceSpeed(objectNumber.color.CTSMode);
if(objectNumber.color.CTSMode=2)then
SetToleranceSpeed2Modifiers(objectNumber.color.CTSModOne, objectNumber.color.CTSModTwo)
else if(objectNumber.color.CTSMode=3)then
SetToleranceSpeed3Modifier(objectNumber.color.CTSModThree);
{$ENDIF}
FindColorsSpiralTolerance(objectNumber.x, objectNumber.y, TPA,
objectNumber.color.startColor, objectNumber.xs,
objectNumber.ys, objectNumber.xe, objectNumber.ye,
objectNumber.color.colorTol);
for i:=0 to high(TPA)do
begin
if not((tpa[i].x>235) and (tpa[i].x<283) and (tpa[i].y>121) and (tpa[i].y<192))then
begin
inc(newArraySize);
SetLength(newColorsTPA, newArraySize);
newColorsTPA[newArraySize-1] := point(TPA[i].x,TPA[i].y);
end;
end;
if (high(TPA) > -1) then
begin
colors := GetColors(newColorsTPA);
ClearSameIntegers(colors);
size := High(colors);
for a := 0 to size do
begin
ColorToXYZ(colors[a], X, Y, Z);
if (X >= objectNumber.color.xModS) and (X <= objectNumber.color.xModE) and
(Y >= objectNumber.color.yModS) and (Y <= objectNumber.color.yModE) and
(Z >= objectNumber.color.zModS) and (Z <= objectNumber.color.zModE) then
begin
ColorToHSL(colors[a], h, s, l);
if(maxL<l)then maxL:= l;
if(minL>l)then minL:= l;
end;
end;
for i := 0 to size do
begin
ColorToXYZ(colors[i], X, Y, Z);
if (X >= objectNumber.color.xModS) and (X <= objectNumber.color.xModE) and
(Y >= objectNumber.color.yModS) and (Y <= objectNumber.color.yModE) and
(Z >= objectNumber.color.zModS) and (Z <= objectNumber.color.zModE) then
begin
Result := colors[i];
Writeln('Object: ' + objectNumber.name + ' - Color: ' + IntToStr(colors[i]));
Break;
end;
if (i = size) then
Writeln('Object: ' + objectNumber.name + ' - Could not find correct colors');
end;
end else
begin
Writeln('Object: ' + objectNumber.name + ' - Could not find any color');
end;
ColorToHSL(result, h, s, l);
objectNumber.tol:= Ceil(MaxE(maxL- l, l - minL));
{$ifDef Lape}
colorToleranceSpeed(tmpCTS);
setColorSpeed2Modifiers(0.2, 0.2);
SetColorSpeed3Modifier(1.0);
{$else}
setColorToleranceSpeed(tmpCTS);
setToleranceSpeed2Modifiers(0.2, 0.2);
setToleranceSpeed3Modifier(1.0);
{$endif}
end;
function wFindObjectMulti(objectNumber: array of wObject; mouseClick: integer; sortSize,autocolor:boolean): boolean;
var
i, a, highATPA, colorsArraySize, newArraySize : integer;
x, y, tempMouseSpeed,tmpCTS: integer;
xx, yy, zz: Extended;
colors: TIntegerArray;
T: TPointArray;
ATPA : T2DPointArray;
TPA, newColorsTPA: array of array of TPoint;
begin
result:= false;
newArraySize:= 0;
tempMouseSpeed:= mouseSpeed;
mousespeed:= 22;
{$ifNDef Lape}
tmpCTS := GetToleranceSpeed;
{$else}
tmpCTS := GetColorToleranceSpeed;
{$ENDIF}
status('Finding: '+objectNumber[0].name);
disguise('Finding: '+objectNumber[0].name);
setlength(TPA,length(objectNumber));
setlength(newColorsTPA,length(objectNumber));
for i:=0 to high(objectNumber) do
begin
{$ifNDef Lape}
setColorToleranceSpeed(objectNumber[i].color.CTSMode);
if(objectNumber[i].color.CTSMode=2)then
SetToleranceSpeed2Modifiers(objectNumber[i].color.CTSModOne, objectNumber[i].color.CTSModTwo)
else if(objectNumber[i].color.CTSMode=3)then
SetToleranceSpeed3Modifier(objectNumber[i].color.CTSModThree);
{$else}
setColorToleranceSpeed(objectNumber[i].color.CTSMode);
if(objectNumber[i].color.CTSMode=2)then
SetColorSpeed2Modifiers(objectNumber[i].color.CTSModOne, objectNumber[i].color.CTSModTwo)
else if(objectNumber[i].color.CTSMode=3)then
SetColorSpeed3Modifier(objectNumber[i].color.CTSModThree);
{$ENDIF}
if(autocolor)then
FindColorsSpiralTolerance(objectNumber[i].x, objectNumber[i].y, TPA[i], wAutoColor(objectNumber[i]),
objectNumber[i].xs,objectNumber[i].ys, objectNumber[i].xe, objectNumber[i].ye,
objectNumber[i].tol)
else
FindColorsSpiralTolerance(objectNumber[i].x, objectNumber[i].y, TPA[i], objectNumber[i].color.startColor,
objectNumber[i].xs,objectNumber[i].ys, objectNumber[i].xe, objectNumber[i].ye,
objectNumber[i].color.colorTol);
colors := GetColors(TPA[i]);
colorsArraySize := High(colors);
for a := 0 to colorsArraySize do
begin
ColorToXYZ(colors[a], Xx, Yy, Zz);
if (Xx >= objectNumber[i].color.xModS) and (Xx <= objectNumber[i].color.xModE) and
(Yy >= objectNumber[i].color.yModS) and (Yy <= objectNumber[i].color.yModE) and
(Zz >= objectNumber[i].color.zModS) and (Zz <= objectNumber[i].color.zModE) then
begin
inc(newArraySize);
SetLength(newColorsTPA[i], newArraySize);
newColorsTPA[i][newArraySize-1] := point(TPA[i][a].x,TPA[i][a].y);
end;
end;
end;
for i:=0 to high(objectNumber)do
CombineTPAWrap(T, newColorsTPA[i],T);
splitTPAwrap(T,objectNumber[0].dist,ATPA);
if(sortSize)then
SortATPASize(ATPA,true)
else
SortATPAFromFirstpoint(ATPA, Point(MSCX, MSCY));
//debugATPAbounds(ATPA);
//SMART_DebugATPA(true, ATPA);
highATPA := high(ATPA);
if(highATPA<>-1)then
begin
if(highATPA>12)then
highATPA:=12;
for i := 0 to highATPA do
begin
//{$ifdef SMART}SMART_DebugTPA(true, ATPA[i]); {$endif}
MiddleTPAEx(ATPA[i], x, y);
wMouse(x + objectNumber[0].mouseModX, y + objectNumber[0].mouseModY, objectNumber[0].mouseRandX, objectNumber[0].mouseRandY, mouse_move);
getmousepos(x,y);
if(objectNumber[0].uptext[0]<>'')then
begin
if waitUpTextMulti(objectNumber[0].uptext,300) Then
begin
objectNumber[0].x:= x;
objectNumber[0].y:= y;
mouse(x,y,0,0,mouseClick);
wait(100+random(50));
//if(DidRedClick)then
//begin
case random(4) of
1: begin wait(400+random(300)); mmouse(x-100,y-100, 200, 200); end;
end;
result:=true;
wait(objectNumber[0].waitTime+random(objectNumber[0].waitTime/2));
break;
//end;
end;
end else
begin
mouse(x,y,0,0,mouseClick);
wait(100+random(50));
//if(DidRedClick)then
//begin
case random(4) of
1: begin wait(400+random(300)); mmouse(x-100,y-100, 200, 200); end;
end;
result:=true;
wait(objectNumber[0].waitTime+random(objectNumber[0].waitTime/2));
break;
//end;
end;
end;
end;
if(not(result))then
writeln('Object: '+ objectNumber[0].name +' - Failed in Object Finding');
mousespeed:= tempMouseSpeed;
{$ifNDef Lape}
colorToleranceSpeed(tmpCTS);
setColorSpeed2Modifiers(0.2, 0.2);
SetToleranceSpeed3Modifier(1.0);
{$else}
setColorToleranceSpeed(tmpCTS);
setToleranceSpeed2Modifiers(0.2, 0.2);
setToleranceSpeed3Modifier(1.0);
{$endif}
end;
function clickRocks():boolean;
begin
result:= wFindObjectMulti([wObj[1]],mouse_left,true,false);
end;
procedure detectDoneMining();
var
failsafeTime, invNum:integer;
begin
invNum:= InvCount;
if(invNum<28)then
begin
marktime(failsafeTime);
repeat
wait(20+random(100));
findnormalrandoms();
until(InvCount>invNum)or(timeFromMark(failsafeTime)>280000)
wait(100+random(100));
end;
end;
procedure detectDonewebs();
var
failsafeTime, invNum:integer;
begin
marktime(failsafeTime);
repeat
wait(20+random(100));
findnormalrandoms();
until(timeFromMark(failsafeTime)>3000)
wait(100+random(100));
end;
procedure Switchworlds;
begin
repeat
ExitToLobby;
LoginPlayerToLob;
until LobbyScreen;
OpenWorldScreen;
wait(200+random(200));
SelectWorld(RandomWorld(Players[0].Member, false)); // the false Boolean is for PVP or not ( parameter of RandomWorld)
repeat
LoginPlayer;
until LoggedIn
Wait(RandomRange(1000,3000));
end;
procedure walktoGATE;
var
myPath: TPointarray;
begin
myPath := [Point(348, 438), Point(337, 437), Point(323, 431), Point(309, 423), Point(296, 418), Point(281, 412), Point(266, 409), Point(248, 405), Point(233, 402), Point(218, 398), Point(203, 392), Point(188, 391), Point(172, 390), Point(157, 391), Point(144, 391), Point(135, 391), Point(120, 391), Point(102, 393), Point(89, 393), Point(75, 395), Point(64, 395), Point(50, 393), Point(32, 389), Point(17, 389), Point(17, 378), Point(13, 365)];
SPS_WalkPath(myPath);
end;
procedure walktoBANK;
var
myPath: TPointarray;
begin
myPath := [Point(5, 367), Point(6, 358), Point(6, 350), Point(8, 340)];
SPS_WalkPath(myPath);
end;
Procedure TurnPrayerOn;
begin
repeat
MouseBox(706, 55, 739, 87, 1);
Wait(1500);
FindNormalRandoms;
Until(true);
MouseBox(MSX1, MSY1, MSX2, MSY2, 3);
end;
function clickGATE():boolean;
begin
result:= wFindObjectMulti([wObj[2]],mouse_left,true,false);
end;
function clickweb():boolean;
begin
result:= wFindObjectMulti([wObj[3]],mouse_left,true,false);
end;
function clicklever():boolean;
begin
result:= wFindObjectMulti([wObj[4]],mouse_left,true,false);
end;
function clickbanker():boolean;
begin
result:= wFindObjectMulti([wObj[5]],mouse_left,true,false);
end;
//begin
///MouseBox(617, 116, 622, 118, mouse_left);
//wait (1000+random(200));
//end;
procedure antiban;
begin
case RandomRange (1,1) of
1:begin
HoverSkill ('mining', False);
FTab(tab_Inv);
end;
2: BoredHuman;
3: PickUpMouse;
4: RandomRClick;
5:begin
HoverSkill ('mining', False);
FTab(tab_Inv);
end;
end;
end;
procedure killthegrimmy;
begin
wait (3500 +random (100));
mouseBox(654, 282, 657, 285, mouse_left);
end;
function detectfullinv():boolean;
begin
if existsItem(28) then
begin
walktogate;
end;
end;
procedure wInitPlayer();
begin
if(not(loggedin))then
loginplayer();
end;
procedure LetsWalk;
var
cx, cy: Integer;
begin
if ObjDTM_Find('125:85:2:2:7:95:102:2:7:95:82:3:73:68:139:82:91:111', cx, cy, True) then
begin
Writeln('We found it, now lets walk it!');
ObjDTM_Walk('125:85:2:2:7:95:102:2:7:95:82:3:73:68:139:82:91:111', 2, 100, 5, True);
end else
Writeln('We could not walk here, what a shame');
end;
procedure ClickCompass;
begin
MouseCircle(543, 25, 15, 1);
Wait(100 + Random(100));
end;
Procedure WorldHop;
Var
X,Y: Integer;
Begin
If Length(GetMiniMapDotsIn('w',610,74,642,102))>0 Then
Begin
switchworlds;
end;
End;
procedure proggy(name, skill: String);
var
Exp, ExpPerHour, remainderExp, currExp: integer;
coal, coalPerHour: integer;
nextExp: extended;
begin
cleardebug();
Exp := GetXPBarTotal-wStartTotalExp;
currExp:= getXPBarTotal - wCurrentExp;
remainderExp:= wStartSkillExp - currExp;
if(remainderExp<1)then
begin
wStartSkillExp:= XPTillNextLevel(skill);
remainderExp:= wStartSkillExp-currExp;
wCurrentExp:= GetXPBarTotal;
end;
ExpPerHour := (3600*Exp) / ((getTimeRunning)/1000);
coal:= exp/50;
coalPerHour:= ExpPerHour/50;
nextExp:= remainderExp/(ExpPerHour+1.0);
writeLn('---------- ajg,s wildy -----------');
writeLn(' ' + padr(name,12) + 'Miner');
writeLn('time elapsed: ' + TimeRunning);
writeLn('rune ores Mined: ' + IntToStr(coal));
writeLn('rune ores Per Hour: ' + IntToStr(coalPerHour));
writeLn('Exp Earned: ' + IntToStr(Exp));
writeLn('Exp Per Hour: ' + IntToStr(ExpPerHour));
writeln('Exp Till Next Lvl: ' + inttostr(remainderExp));
writeln('Time Till Next Lvl: ' + ToStr(trunc(nextExp)) + ' Hours and ' + intToStr(trunc(nextExp*60) mod(60)) + ' Minutes');
writeLn('--------------------------------');
end;
begin
SRL_SixHourFix := True;
Smart_FixSpeed := True;
wait (200+random(300));
setupsrl;
SPS_Setup(RUNESCAPE_OTHER, ['Wildy1'])
declarePlayers();
loadrocks();
wInitPlayer();
Clickcompass;
repeat
setAngle(srl_angle_high);
makecompass(0);
if (invfull) then
begin;
walktoGATE;
setAngle(srl_angle_low);
wait (2000+random(300));
(clickgate);
wait (1000+random(300));
(clickgate);
wait (1000+random(300));
setAngle(srl_angle_high);
walktoBANK;
wait (100+random(300));
// letswalk;
makeCompass(270);
setAngle(srl_angle_high);
wait (200+random(300));
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
makecompass(270);
setAngle(srl_angle_low);
wait (2000+random(300));
(clicklever);
wait (4000+random(300));
setAngle(srl_angle_high);
wait (200+random(200));
if (clickbanker) then
wait (4000+random(300));
depositall;
end else
if(clickRocks)then
begin
detectDoneMining;
end else
switchworlds;
if (invfull) then
begin;
walktoGATE;
setAngle(srl_angle_low);
wait (2000+random(300));
if(clickgate) then
wait (1000+random(300));
setAngle(srl_angle_high);
walktoBANK;
wait (100+random(300));
// letswalk;
makeCompass(270);
setAngle(srl_angle_high);
wait (200+random(300));
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
if (clickweb) then
detectDonewebs();
makecompass(270);
setAngle(srl_angle_low);
wait (2000+random(300));
(clicklever);
wait (4000+random(300));
setAngle(srl_angle_high);
wait (200+random(200));
if (clickbanker) then
wait (4000+random(300));
depositall;
end;
until(false);
end.