SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Yes, pascal.


Are you a member of any other communities?
No.


Tell us about yourself…

From: jordi1104
I am Jo,

my interests are sports,games.
I am extremely lazy but if I want something done I will do my best to work on it and get it done as soon as I can.
I am still on school I don't work but I do some stuff on ebay wich pays reasonably and I guess that's pretty much it.

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

program Walkingnats;
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
//////
var
x, y: Integer;
C: TBox;
Path: TStringArray;
I: Integer;
///////
procedure DeclarePlayers; //logins player
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Member := False;
Players[0].Active := True;
end;
///////////////
procedure Setup; //setups everything smart,declareplayers etc
begin
Smart_Server := 10;
Smart_Members := True;
Smart_Signed := True;
ClearDebug;
SetupSRL;
DeclarePlayers;
if not (LoggedIn) then
LoginPlayer;
FindNormalRandoms;
ObjDTM_Setup;
ObjDTM_Debug := True;
end;
///////////
procedure AntiBan;  //Keeps you from getting banned
begin
if not LoggedIn then
Exit;
case Random(100) of
0..3:
begin
RandomMovement;
SetAngle(SRL_ANGLE_HIGH);
end;
4..7: PickUpMouse;
8..11: HoverSkill('RuneCrafting', False);
12..15: PickUpMouse;
16..19: RandomRClick;
20..23: ExamineInv;
end;
end;
///////////
function Pureess(var fx, fy: Integer): Boolean; //Uses pure essence on Jiminua
var
x, y, Pure: Integer;
begin
ClearDebug;
SetupSRL;
Pure := DTMFromString('mGQAAAHicY2RgYPBhYmC4DaRXzSpkYAPSjEDMAAAqEQLn');
MakeCompass('n');
SetAngle(SRL_ANGLE_HIGH);
if FindDTM(Pure, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 4, 4, True);
end;
FreeDTM(Pure);
end;
////////////
procedure ClickOnJiminua; //Clicks on Jiminua
var
x, y: integer;
begin
if FindObjTPA(x, y, 2175547, 3, - 1, 25, 25, 1,['iminua']) then
Mouse(x, y, 3, 3, true);
if not didredclick then
repeat
Pureess(x, y);
ClickOnJiminua
until (FindText(x, y, 'X', UpChars, MCX1, MCY1, MCX2, MCY2));
end;
//////////
procedure Unnote; //Goes to NpcChats and unnotes the essence
begin
FindNormalRandoms;
wait(randomRange(6000, 9000));
FindNPCChatText('X', ClickLeft);
wait(randomRange(2000, 3000));
TypeSend('26');
wait(randomRange(2000, 3000));
ClickContinue(True, True);
FindNPCChatText('It', ClickLeft);
wait(randomRange(2000, 3000));
ClickContinue(True, True);
end;
///////////
procedure WalkToAlter; //Walks to altar
begin
ObjDTM_Setup;
Path := ['112:49:6:1:7:103:103:1:7:111:107:1:7:102:117:1:7:136:97:1:7:141:83:1:7:111:128', '131:95:8:1:7:116:45:1:7:99:41:1:7:87:33:1:7:107:116:1:7:78:140:1:7:69:136:1:7:102:130:1:7:128:116', '126:99:8:1:7:78:103:1:7:57:103:1:7:66:32:1:7:90:120:1:7:74:119:1:7:53:117:1:7:107:120:1:7:50:28', '133:83:10:1:7:103:116:1:7:90:120:1:7:69:120:1:7:57:116:1:7:61:103:1:7:44:103:1:7:32:86:1:7:69:132:1:7:103:133:1:7:120:112', '118:118:6:1:7:95:116:1:7:70:112:1:7:65:129:1:7:53:116:1:7:99:133:1:7:86:137', '120:113:9:1:7:61:82:1:7:65:99:1:7:53:103:1:7:37:78:1:7:61:112:1:7:31:95:1:7:19:82:1:7:65:125:1:7:44:120', '103:128:9:1:7:134:75:1:7:129:87:1:7:27:69:1:7:23:82:1:7:27:95:1:7:69:117:1:7:56:121:1:7:69:129:1:7:112:104', '113:117:11:1:7:91:57:1:7:100:74:1:7:117:75:1:7:122:53:1:7:109:40:1:7:48:69:1:7:48:82:1:7:36:73:1:7:35:91:1:7:109:96:1:7:91:117', '116:122:16:1:7:79:61:1:7:96:66:1:7:108:70:1:7:105:49:1:7:88:40:1:7:70:40:1:7:83:100:1:7:82:113:1:7:70:95:1:7:61:82:1:7:117:83:1:7:125:96:1:7:134:83:1:7:126:75:1:7:52:108:1:7:60:125', '113:106:16:1:7:61:78:1:7:52:91:1:7:53:56:1:7:52:69:1:7:40:51:1:7:96:52:1:7:109:53:1:7:105:40:1:7:96:31:1:7:88:40:1:7:79:26:1:7:82:113:1:7:73:121:1:7:65:112:1:7:56:121:1:7:35:99', '80:133:13:1:7:112:101:1:7:103:118:1:7:126:88:1:7:130:71:1:7:122:58:1:7:52:86:1:7:60:104:1:7:43:95:1:7:35:86:1:7:79:26:1:7:66:26:1:7:56:122:1:7:47:112', '82:140:19:1:7:109:66:1:7:104:96:1:7:117:49:1:7:126:66:1:7:121:84:1:7:117:105:1:7:61:104:1:7:48:108:1:7:52:91:1:7:39:95:1:7:48:78:1:7:35:77:1:7:44:60:1:7:53:61:1:7:49:43:1:7:58:35:1:7:66:52:1:7:61:70:1:7:65:82', '105:123:8:1:7:66:44:1:7:53:48:1:7:58:31:1:7:45:35:1:7:121:75:1:7:72:23:1:7:109:36:1:7:122:45', '124:120:6:1:7:125:75:1:7:125:50:1:7:104:32:1:7:90:121:1:7:77:124:1:7:77:133', '102:110:12:1:7:104:45:1:7:88:32:1:7:53:78:1:7:57:99:1:7:65:107:1:7:40:82:1:7:40:90:1:7:44:103:1:7:48:115:1:7:52:124:1:7:35:115:1:7:23:102'];
begin
for I := 0 to 14 do
begin
ObjDTM_Walk(Path[i], 0, 100, 80, True);
end;
end;
end;
///////////////
procedure enteraltar; //Clicks and enters altar
var
x, y: integer;
begin
wait(randomRange(2000, 3000));
if FindObjTPA(x, y, 5307817, 30, - 1, 25, 25, 1, ['nter', 'ysterious', 'unes']) then
Mouse(x, y, 3, 3, true);
if not didredclick then
repeat
enteraltar;
until (didredclick);
end;
///////////
procedure WalkToAltar; //Walks to nature altar
begin
wait(randomRange(5000, 9000));
ObjDTM_Setup;
Path := ['79:61:10:1:7:104:104:1:7:100:122:1:7:121:96:1:7:125:82:1:7:129:60:1:7:138:73:1:7:129:43:1:7:130:104:1:7:126:113:1:7:109:117'];
begin
for I := 0 to 0 do
begin
ObjDTM_Walk(Path[i], 0, 100, 80, True);
end;
end;
end;
///////////
procedure CraftRunes; //Craft runes
var
x, y: integer;
begin
FindNormalRandoms;
wait(randomRange(2000, 3000));
if FindObjTPA(x, y, 9080972, 2, - 1, 25, 25, 1, ['raft', 'une', 'ltar']) then
Mouse(x, y, 3, 3, true);
if not didredclick then
repeat
CraftRunes;
until (didredclick);
end;
////////////
procedure Walktoportal; //Walks to portal
begin
wait(randomRange(2000, 3000));
ObjDTM_Setup;
Path := ['76:98:8:1:7:125:56:1:7:125:64:1:7:125:79:1:7:136:79:1:7:132:91:1:7:120:98:1:7:116:111:1:7:100:118'];
begin
for I := 0 to 0 do
begin
ObjDTM_Walk(Path[i], 0, 100, 80, True);
end;
end;
end;
/////////////
procedure Findportal; //Finds and clicks portal
var
x, y: integer;
begin
wait(randomRange(3000, 5000));
if FindObjTPA(x, y, 8433848, 10, - 1, 25, 25, 1, ['nter', 'ortal']) then
Mouse(x, y, 3, 3, true);
if not didredclick then
repeat
Findportal;
until (didredclick);
end;
/////////////
procedure WalkBack; //Walks back to Jiminua
begin
wait(randomRange(3000, 5000));
ObjDTM_Setup;
Path := ['46:41:12:1:7:55:89:1:7:48:81:1:7:45:63:1:7:32:74:1:7:36:85:1:7:90:32:1:7:40:97:1:7:36:108:1:7:47:122:1:7:44:105:1:7:85:135:1:7:28:97', '77:31:10:1:7:113:59:1:7:128:71:1:7:113:36:1:7:36:105:1:7:43:112:1:7:59:112:1:7:55:124:1:7:74:124:1:7:85:120:1:7:93:128', '69:30:11:1:7:102:67:1:7:109:47:1:7:102:39:1:7:91:32:1:7:117:43:1:7:121:55:1:7:51:39:1:7:40:43:1:7:121:82:1:7:133:75:1:7:120:106', '89:26:18:1:7:66:70:1:7:63:90:1:7:55:78:1:7:27:78:1:7:43:82:1:7:51:93:1:7:39:66:1:7:51:66:1:7:63:58:1:7:67:43:1:7:59:27:1:7:113:39:1:7:105:55:1:7:121:55:1:7:118:71:1:7:113:90:1:7:101:82:1:7:113:117', '48:36:14:1:7:113:55:1:7:75:27:1:7:63:27:1:7:125:51:1:7:31:50:1:7:23:62:1:7:51:82:1:7:58:97:1:7:54:114:1:7:58:125:1:7:97:109:1:7:105:94:1:7:117:82:1:7:121:67', '42:42:15:1:7:98:70:1:7:109:70:1:7:90:59:1:7:82:48:1:7:70:43:1:7:56:39:1:7:39:58:1:7:47:70:1:7:58:74:1:7:58:86:1:7:67:94:1:7:58:105:1:7:39:97:1:7:85:125:1:7:70:125', '48:36:12:1:7:90:58:1:7:82:43:1:7:106:59:1:7:98:78:1:7:121:67:1:7:113:82:1:7:125:87:1:7:101:114:1:7:90:110:1:7:82:98:1:7:43:66:1:7:43:54', '54:36:10:1:7:118:86:1:7:125:102:1:7:78:110:1:7:66:118:1:7:66:102:1:7:78:98:1:7:42:94:1:7:38:78:1:7:34:66:1:7:39:54', '25:56:7:1:7:62:82:1:7:66:98:1:7:54:102:1:7:62:110:1:7:65:122:1:7:38:78:1:7:34:93', '24:63:8:1:7:98:102:1:7:82:106:1:7:94:119:1:7:81:122:1:7:69:110:1:7:49:110:1:7:37:106:1:7:41:94', '31:71:9:1:7:70:98:1:7:65:114:1:7:49:98:1:7:45:112:1:7:98:115:1:7:82:114:1:7:93:127:1:7:58:29:1:7:42:25', '49:109:7:1:7:87:30:1:7:99:38:1:7:115:42:1:7:106:111:1:7:102:125:1:7:69:131:1:7:77:135'];
begin
for I := 0 to 11 do
begin
ObjDTM_Walk(Path[i], 0, 100, 80, True);
end;
end;
end;
////////////
procedure MainLoop; //Procedures and functions wich have to be executed
begin
DeclarePlayers;
AntiBan;
Pureess(x, y);
ClickOnJiminua;
Unnote;
WalkToAlter;
enteraltar;
WalkToAltar;
CraftRunes;
Walktoportal;
FindPortal;
WalkBack;
end;
/////////////
begin
Setup;
repeat
MainLoop;
until AllPlayersInactive;
end.

I see FindObjTPA, and no custom TPA's…

Insta-no from me

Bro, standards, get to know them.

No.

Because of….

From: PatDuffy
I see FindObjTPA, and no custom TPA's…

Insta-no from me

This. You show little knowledge of SRL, much more is needed for entry into Members. Sorry.

From: XxX Toxin XxX
No.

Because of….



This. You show little knowledge of SRL, much more is needed for entry into Members. Sorry.

Yeah thanks I guess I can always try again next month and learn on these things admin or whatever if you wish you can close.

Voted no, didn't even look at the script since your standards made my eyes bleed.

Non-custom object finding. Instant no from me.

However, so that you at least leave with something learned, you need failsafes, better standards, and more "variety".
Also not a huge fan of objDTMs - but that's something most people ignore when voting. Radial/tpa walking is best for getting votes imo.

You show potential though, and that's good. Good luck next time ;)

It could be worst

Could have had no script at all or this


Overall there is always room for improving, keep active on IRC and on site. Go through the tutorials. Overall this is not a bad start but I would like to see you apply with something that doesn't RC. Nice try though and better luck next time.

The poll has closed and you didn't quite make it this time. Please take the suggestions made here and read some more in the tutorial section and improve your script. You may reapply in 4 weeks time.


Cheers
Hobbit