SRL Archive - Archive

How Long have You Played Runescape?
5 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Basic understanding of most, Started on pascal/simba last week previously enjoyed making games/projects on the object oriented enviroment "Scratch"


Are you a member of any other communities?
www.cloud-zone.com


Tell us about yourself…

From: Pavement
I am Robert, Aka Reggie, I am 16, From Northern Ireland :P

My main hobby is target shooting at 50 meters with .22 rifles and I also enjoy playing games such as Runescape/Minecraft. I have always been interested in computers and how they work and over the years have been slowly building my knowledge on this matter. Many hours were happily spent on game editors as a younger child such as Cryengine sandbox for FarCry even though I had little understanding of the complex features.

I am in my GCSE year at school and hope to stay for A levels and then university although am unsure at the moment and only focusing on my GCSEs.

So not much else I can remember about myself :P
Thanks for taking the time to read this hope you have a good day/night :D

Pavement

Please show us one (or multiple) of your scripts.

program Miner; //Does not use smart. Start in the east part of the east ardougne mine below legends guild
                               //With Pick equipped. Mines and banks iron at legends guild bank. My first script.
                               //Known Issues: Finding/Clicking Gate can Sometimes break the script
{$i srl/srl.simba}
{$i ObjectDTM\ObjDTMInclude.simba}

var
x, y, Iron, F, Gate, Door, GateB, Inventories: Integer;
LoopComplete: Boolean;

procedure AntiBan;
begin
  case Random(500) of
    1: RandomRClick;
    3: PickUpMouse;
    4: MakeCompass(random(100));
    5: BoredHuman;
    7: Wait(random(120000));
  end;
end;

function ExistsItemM(I: Integer): Boolean;
var
  X, Y: Integer;
  TB: TBox;
begin
  TB := InvBox(I);
  Result := FindColor(x, y, srl_outline_black, TB.x1, TB.y1, TB.x2, TB.y2);
end;

Begin

ClearDebug;
SetupSRL;
ObjDTM_Setup;
ActivateClient;

GateB := DTMFromString('mLgAAAHicY2JAABYoLWeRxqCnrcXABWSDMCMUMzAAAB85AVw=');
Gate := DTMFromString('mLgAAAHicY2JAAGYobZqwgeH1jesMXEA2CDNCMQMDAFg4A/s=');
Iron := DTMFromString('mLgAAAHicY2JAAGYonWalyVBbW8TABWTbADEjFDMwAAA2wQKD');
Door := DTMFromString('mLgAAAHicY2JgYGBlQAUryvkYgq3ZGPiBbF0gZoRiBgYAL2ACBw==');
F := 0
Inventories := 0

Repeat
MakeCompass(90);
SendArrowWait(0,2000);
Repeat
Wait(543+random(324));
if FindDTM(Iron, x, y, 20, 60, 500, 380) then
begin
Mouse(x, y, 4, 4, True);
AntiBan;
Wait(2356+random(1789));
end else
Begin
Inc(F);
Writeln('========== Failed to find ore! ==========');
If F = 20 then
Begin
Writeln('========== Stopping due to too many fails! ==========');
TerminateScript;
End;
End;
Until(ExistsItemM(28));


ObjDTM_WalkPath(['103:44:6:1:7:71:95:1:7:98:96:1:7:55:99:1:7:60:48:1:7:72:44:1:7:82:108',
 '112:51:6:1:7:71:76:1:7:102:77:1:7:84:44:1:7:64:36:1:7:122:76:1:7:111:92'],0,2000,5,false,true);
Wait(random(2657));
MakeCompass(0);
Antiban;
F := 0;
LoopComplete := False;
Mouse(542,24,5,5,true);
SendArrowWait(0,2000);


Repeat
Wait(500);
if FindDTM(Gate, x, y, 20, 60, 500, 380) then
Begin
LoopComplete := True;
Mouse(x, y, 3, 3, True);
Wait(654+random(1789));
end else
Begin
Inc(F);
Writeln('========== Failed to find Gate! ==========');
If F = 20 then
Begin
Writeln('========== Stopping due to too many fails! ==========');
TerminateScript;
End;
End;
Until(LoopComplete);

Mouse(542,24,5,5,true);
F := 0;
LoopComplete := False;
Repeat
Wait(500);
if FindDTM(Door, x, y, 0, 0, 500, 380) then
Begin
LoopComplete := True;
Mouse(x, y, 2, 2, True);
Wait(8453+random(5463));
end else
Begin
Inc(F);
Writeln('========== Failed to find Door! ==========');
If F = 20 then
Begin
Writeln('========== Stopping due to too many fails! ==========');
TerminateScript;
End;
End;
Until(LoopComplete);

Wait(799+random(1222));
Mouse(400,90,2,2,True);

Wait(3828+random(2344));
Mouse(165,311,2,2,True);
Wait(3854+random(1672));
Mouse(313,253,1,1,True);

Wait(1988+random(2645));
Mouse(205,119,2,2,0);
GetMousePos(x,y);
Mouse(x,y+39,1,1,true);
Wait(1024+random(2445));
Mouse(369,309,6,6,true);
Wait(523+random(5435));
Mouse(488,34,3,3,true);
AntiBan;
Mouse(542,24,5,5,true);

Wait(978+random(1245));
Mouse(255,208,4,3,true);
Wait(1243+random(1455));
Mouse(300,131,5,5,true);
Antiban;
Mouse(542,24,5,5,true);
Wait(2433+random(788));
Mouse(15,250,5,5,true);

MakeCompass(180);
F := 0;
LoopComplete := False;
Repeat
Wait(500);
if FindDTM(GateB, x, y, 200, 0, 350, 150) then
Begin
LoopComplete := True;
Mouse(x, y, 1, 1, True);
Wait(9654+random(5463));
end else
Begin
Makecompass(182);
Inc(F);
Writeln('========== Failed to find Gate! ==========');
If F = 20 then
Begin
Writeln('========== Stopping due to too many fails! ==========');
TerminateScript;
End;
End;
Until(LoopComplete);

ObjDTM_WalkPath(['38:130:6:1:7:72:109:1:7:91:108:1:7:51:74:1:7:37:108:1:7:63:59:1:7:80:126',
 '56:112:5:1:7:47:75:1:7:59:70:1:7:85:64:1:7:58:125:1:7:87:125'],0,2000,5,false,true);
Wait(4322+random(5000));
MakeCompass(0);

Inc(Inventories);
Writeln('Loads: '+IntToStr(Inventories));
Until(Inventories=20);
End.

No from me.
Mainly it is activity you have two posts, post more become part of the community :)
Also the script could use some work, such as your mouse movements get rid of them and replace with better methods.

Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted.

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

That's what I realised and I tried to delete my application seeing as I wouldn't become a member yet. Thank you for the links

I have already read the Anti-Leech :D

SRL Members is a community rank too, and you don't have much of a chance of getting in with only two posts, second one being your application. I suggest you read the guides we have on becoming an SRL Member, and apply again when you are a more active member.

Looking at your script, I can say that you have more room for learning. Having lots of functions and procedures is much better than having a giant main loop in every aspect. You are only using DTMs to find mainscreen objects, I suggest you look into TPoint Arrays(TPAs), as they are a far more reliable, and nearly all applicants use them at some point.
You also have no standards, which makes your script hard to read.

Edit:I see random addressed all points while I was typing.

Yes I made a mistake by posting the application because usually I have "standards" but I originally intended for the script to be used privately. I also understand that I need to learn more partially due to the giant loop and solely using DTMs. Thanks for the feedback.

E: I apologise for the poorly timed app and amature script

Ah don't worry about it, its all a learning experience :)

+1 for attitude!

I'll Close this for you ;)

Good luck on your future applications.