It seem that many of noobs or l33t out there searching for the fixed SRL so why not update on your own like below? After the immediate updates of Runescape, i can auto in less then 24 hours. lol
1) Login.SCAR - Changes to check for loggein status
SCAR Code:function LoggedIn: Boolean;
begin
Result := (GetColor(439, 496) = 16777215);
end;
2) GameTab.SCAR - Changes of Color checking for gametab and new gametab location
SCAR Code:function GetCurrentTab: Integer;
begin
begin
if GetColor(540, 176) = 1778795 then
Result := 1
else if GetColor(572, 175) = 1778795 then
Result := 2
else if GetColor(605, 173) = 1778795 then
Result := 3
else if GetColor(640, 172) = 1778795 then
Result := 4
else if GetColor(671, 170) = 1778795 then
Result := 5
else if GetColor(705, 174) = 1778795 then
Result := 6
else if GetColor(735, 177) = 1778795 then
Result := 7
else if GetColor(525, 475) = 1778795 then
Result := 8
else if GetColor(573, 471) = 1778795 then
Result := 9
else if GetColor(600, 476) = 1778795 then
Result := 10
else if GetColor(635, 467) = 1778795 then
Result := 11
else if GetColor(670, 475) = 1778795 then
Result := 12
else if GetColor(700, 476) = 1778795 then
Result := 13
else if GetColor(735, 470) = 1778795 then
Result := 14;
end;
end;
SCAR Code:function TabExists(TabNumber: Integer): Boolean;
var
Tx, Ty:Integer;
begin
case TabNumber of
1: Result := FindColor(Tx, Ty, 65536, 533, 177, 551, 195);
//GameTab 1 = Fightmode
2: Result := FindColor(Tx, Ty, 65536, 565, 175, 590, 195);
//GameTab 2 = Statistic
3: Result := FindColor(Tx, Ty, 16677735, 609, 184, 621, 195);
//GameTab 3 = Quest
4: Result := FindColor(Tx, Ty, 65536, 634, 176, 648, 195);
//GameTab 4 = Inventory
5: Result := FindColor(Tx, Ty, 65536, 663, 176, 690, 193);
//GameTab 5 = Wield
6: Result := FindColor(Tx, Ty, 65536, 706, 176, 719, 195);
//GameTab 6 = Prayer
7: Result := FindColor(Tx, Ty, 65536, 735, 180, 750, 190);
//GameTab 7 = Mage
8: Result := FindColor(Tx, Ty, 65536, 534, 471, 554, 493);
//GameTab 8 = ClanChat
9: Result := FindColor(Tx, Ty, 65536, 568, 477, 589, 485);
//GameTab 9 = Add Friend
10: Result := FindColor(Tx, Ty, 65536, 599, 479, 616, 487);
//GameTab 10 = Del Friend
11: Result := FindColor(Tx, Ty, 65536, 635, 472, 656, 494);
//GameTab 11 = LogOut
12: Result := FindColor(Tx, Ty, 65536, 672, 483, 689, 494);
//GameTab 12 = Tools/Run
13: Result := FindColor(Tx, Ty, 65536, 701, 470, 716, 488);
//GameTab 13 = Emotes
14: Result := FindColor(Tx, Ty, 65536, 737, 485, 744, 493);
//GameTab 14 = Music
end; //case Tab
end;
SCAR Code:function GameTab(tabnumber: Integer): Boolean;
var
c: Integer;
begin
if GetCurrentTab = tabnumber then
begin
Result := True;
Exit;
end;
if not TabExists(tabnumber) then
begin
Result := False;
Exit;
end;
case tabnumber of
1: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(540, 185, 5, 5, True)
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
2: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(577, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
3: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(609, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
4: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(643, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
5: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(675, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
6: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(709, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
7: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(740, 185, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
8: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(540, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
9: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(577, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
10: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(609, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
11: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(643, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
12: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(675, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
13: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(709, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
14: if (GetCurrentTab <> tabnumber) then
begin
repeat Mouse(740, 480, 5, 5, True);
c := c + 1;
until (GetCurrentTab = tabnumber) or (c >= 3)
end;
end;
if (c < 3) then
begin
Result := True;
Wait(10);
// Wait(300 + Random(300)); //DON'T CHANGE THIS.
end;
end;
SCAR Code:procedure SetRun(Run: Boolean);
begin
GameTab(12);
case Run of
True: if (GetColor(634, 421) = 5067346) then
Mouse(647, 428, 8, 8, True);
False: if (GetColor(634, 421) = 1974404) then
Mouse(647, 428, 8, 8, True);
end;
end;
3) Inventory.SCAR - Changes of some declare since last updates
SCAR Code:function ExistsItem(i: Integer): Boolean;
var
xx, yy, f, row, col: Integer;
Points: TPointArray;
begin
row := i div 4;
col := i - (row * 4) - 1;
if (col < 0) then
begin
col := 3;
row := row - 1;
end;
FindColorsTolerance(Points, 3489865, 579 + col * 42, 228 + row * 36, 579 + col
* 42 + 20, 228 + row * 36 + 15, 70);
Result := False;
xx := 0;
yy := 0;
for f := 0 to GetArrayLength(Points) - 1 do
begin
if (579 + col * 42 + xx <> Points[f].x) or (228 + row * 36 + yy <>
Points[f].y) then
begin
Result := True;
Exit;
end;
yy := yy + 1;
if (yy = 16) then
begin
xx := xx + 1;
yy := 0;
end;
end;
end;
4) MapWalk.SCAR - compass rotate like crazy if not change the color and coordinate
SCAR Code:function MakeCompass(Side: char): Boolean;
var
Fx, Fy, dx, dy, StartPos, EndPos: Integer;
ComMark: Integer;
Left_Right: Boolean;
begin
StartPos := FindCompassAngle;
MarkTime(ComMark);
case LowerCase(Side) of
'n':
begin
Fx := 561;
Fy := 13;
if StartPos > 180 then EndPos := 360 else EndPos := 0;
end;
'e':
begin
Fx := 554;
Fy := 20;
if StartPos < 270 then EndPos := 90 else EndPos := 450;
end;
's':
begin
Fx := 561;
Fy := 27;
EndPos := 180;
end;
'w':
begin
Fx := 568;
Fy := 20;
if StartPos < 90 then EndPos := -90 else EndPos := 270;
end;
else
begin
WriteLn('MakeCompass - Value wasn''t n, e, s, or w!');
Exit;
end;
end;
if FindColor(dx, dy, 723587, Fx - 2, Fy - 2, Fx + 2, Fy + 2) then
begin
Result := True;
Exit;
end
if StartPos > EndPos then Left_Right := True
else if StartPos < EndPos then Left_Right := False
else exit;
if Left_Right then KeyDown(VK_RIGHT)
else KeyDown(VK_Left);
repeat
Wait((10) + Random(10));
if (FindColor(dx, dy, 723587, Fx, Fy, Fx, Fy)) then
begin
Result := True;
Break;
end;
until (TimeFromMark(ComMark) > 7000);
if Left_Right then KeyUp(VK_Right)
else KeyUp(VK_Left);
end;
5) MouseFlag.SCAR - New chat location and function so change to make more comfort
SCAR Code:Function SetChat(State: String; WhatChat: Integer): Boolean;
Var x1, y1, x, y, Color: Integer;
Var txt : String;
Begin
If Not LoggedIn Then Exit;
State := LowerCase(State);
Case WhatChat Of
1:
Begin
x1 := 137;
y1 := 480;
End;
2:
Begin
x1 := 203;
y1 := 480;
End;
3:
Begin
x1 := 269;
y1 := 480;
End;
4:
Begin
x1 := 335;
y1 := 480;
End;
End;
Case State Of
'on':
Begin
Color := 65280;
txt := 'On';
End;
'friends':
Begin
Color := 65535;
txt := 'Friends';
End;
'off':
Begin
Color := 255;
txt := 'Off';
End;
'hide':
Begin
If WhatChat = 1 Then Begin Color := 16776960; txt := 'Hide'; End
Else Begin WriteLn('HIDE IMPOSSIBLE, EXIT'); Exit; End;
End;
End;
If Not FindColor(x, y, Color, x1, y1, x1 + 55, y1 + 20) Then
Repeat
Begin
Mouse(x1 + Random(40) + 15, y1 + Random(15) + 5, 5, 5, False)
ChooseOption(x1, y1, txt);
Result:= True;
End
Until FindColor(x, y, Color, x1, y1, x1 + 45, y1 + 20);
End;
6) Text.SCAR - Please refer the link (not by me lol)
http://www.srl-forums.com/forum/#post181207
P/S YOU will not be able to handle randoms as it needs lot of work, so i skip it to Devs. lol
P/S @Devs if you think this will solve the problem or any error please let me know
P/S @Mods if you think this thread not belong here please help move it.
Thanks to all SRL Devs for the fun of scripting and Autos.
Edit: This is my first pay back to the community. lol






Nielsie95 TutIsle Runner ver 0.62
Reply With Quote


well done.
. And hellbb nice fixes, you should put one in about text finding in the chatbox as well, there's a link in my sig.












