SRL Archive - SRL Archives

I don't know if this is something done in the Developers area of the forums or not but,


I think we should get a head start on this. Post anything in the 'new' low detail that needs to be fixed and also on the RS HD, that needs to be added/fixed. This will eventually be added to the free-to-play characters and I just think we should be a step ahead.

Low Detail/Old RS

• New Sound Function
• 'Details' now have drop-down menus - need a function
• Login Screen
• SetBar();

RS HD

• EVERYTHING full screen (gametabs especially)
• Login Screen

Have anything else? Post it and I'll add it to the list, Also post any temporary fixes and I'll add them to the next post.

If you have a temporary fix, give a description of what function it takes place for.

If this isn't needed go ahead and delete/close it.

*RESERVED for Temporary Functions*

FindWaterColor

function FindWatercolor: Integer;
var
  GC, a, l, TestColor, Red, Green, Blue: integer;
var
  P: array of Tpoint;
begin
  GC := 10324605;
  Flag;
  FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l := GetArrayLength(P);
  for a := 0 to l - 1 do
  begin
    if rs_OnMinimap(P[a].x, P[a].y) then
    begin
      TestColor := GetColor(P[a].x, P[a].y);
      if SimilarColors(TestColor, GC, 50) then
      begin
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Blue - Green, -11, 49) then
          if InRange(Green - Red, -17, 43) then
            if InRange(Blue - Red, 2, 62) then
              if GetColor(P[a].x + 2, P[a].y + 2) = TestColor then
                if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                  if GetColor(P[a].x, P[a].y + 2) = TestColor then
                    if GetColor(P[a].x + 2, P[a].y) = TestColor then
                      if GetColor(P[a].x, P[a].y + 1) = TestColor then
                        if GetColor(P[a].x + 1, P[a].y) = TestColor then
                          if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                            if GetColor(P[a].x + 1, P[a].y + 2) = TestColor then
                            begin
                              Result := TestColor;
                              WaterColor := TestColor;
                              WriteLn('WaterColor = ' + IntToStr(TestColor));
                              Exit;
                            end;
      end;
    end;
  end;
  WriteLn('Could not find Water Color!');
  Result := 0;
end;

LogOut

function Logout: Boolean;
var
  c, i: Integer;
begin
  Result := (not (LoggedIn));
  if Result = True then
    Exit;
  Wait(200 + Random(100));
  while (LoggedIn) or (c < 10) do
  begin
    Inc(c);
    MouseBox(744, 4, 759, 18, 1);
    if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
      for i := 0 to 10 do
      begin
        Wait(1000);
        if not(LoggedIn)then
        begin
          Result := True;
          Exit;
        end;
      end;
  end;
end;

GetCurrentTab/TabExists (Fix for LogOut)

{*******************************************************************************
function GetCurrentTab: Integer;
By: Wizzup?
Description: Returns current tab
*******************************************************************************}

function GetCurrentTab: Integer;
var
  i: Integer;
  b: Boolean;
begin
  b := False;
  Result := 0;
  for i := 1 to 15 do
  begin
    case i of
      1: b := (GetColor(543, 178) = 1580634);
      2: b := (GetColor(570, 179) = 1778795);
      3: b := (GetColor(604, 174) = 1910385);
      4: b := (GetColor(632, 172) = 1910385);
      5: b := (GetColor(666, 182) = 1647204);
      6: b := (GetColor(699, 177) = 1910385);
      7: b := (GetColor(735, 177) = 1778795);
      8: b := (GetColor(569, 471) = 1910385);
      9: b := (GetColor(598, 471) = 1910385);
      10: b := (GetColor(633, 478) = 1778795);
      11: b := (GetColor(668, 476) = 1778795);
      12: b := (GetColor(703, 481) = 1580634);
      13: b := (GetColor(740, 471) = 1778795);
      14: b := (GetColor(555,  275) = 2070783);
      15: b := (GetColor(533,  475) = 1581150);
    end;
    if b then
    begin
      Result := i;
      Exit;
    end;
  end;
end;

{*******************************************************************************
function TabExists(TabNumber: Integer): Boolean;
By: Flyboy
Description: Returns true if tab exists.
  Very useful for tutorial Is. as well as a simple double check to make sure
  your fully logged in.
*******************************************************************************}

function TabExists(TabNumber: Integer): Boolean;
begin
  case TabNumber of
    1: Result := (GetColor(533, 177) = 65536);
    2: Result := (GetColor(565, 175) = 65536);
    3: Result := (GetColor(609, 175) = 1052432);
    4: Result := (GetColor(638, 174) = 65536);
    5: Result := (GetColor(670, 176) = 65536);
    6: Result := (GetColor(708, 171) = 65536);
    7: Result := (GetColor(740, 175) = 65536);
    8: Result := (GetColor(575, 474) = 65536);
    9: Result := (GetColor(605, 474) = 65536);
    10: Result := (GetColor(640, 472) = 65536);
    11: Result := (GetColor(680, 472) = 65536);
    12: Result := (GetColor(710, 470) = 65536);
    13: Result := (GetColor(735, 473) = 65536);
    14: Result := (GetColor(743, 1) = 65536);
    15: Result := (GetColor(537, 477) = 65536);
  end;
end;

Login Player

Function LoginPlayer: Boolean;
 
Var
  Tries: Integer;
 
Begin
  If ((CurrentPlayer + 1) > HowManyPlayers) Then
    Exit;
  MouseBox(361, 168, 400, 173, 1);
  Wait(1000 + Random(500));
  Mouse(315, 258, 20, 2, True);
  Wait(100 + Random(50));
  TypeSend(Players[CurrentPlayer].Name);
  Mouse(315, 325, 20, 2, True);
  Wait(100 + Random(50));
  TypeSend(Players[CurrentPlayer].Pass);
  Wait(1000 + Random(500));
  MouseBox(357, 364, 400, 368, 1);
  While (Not (GetColor(316, 396) = 153)) Do
  Begin
    Inc(Tries);
    Wait(100);
    If (Tries >= 100) Then
    Begin
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := CurrentPlayer + 1;
      MouseBox(337, 401, 420, 408, 1);
      Wait(2000 + Random(500));
      LogInPlayer;
      Exit;
    End;
  End;
  MouseBox(206, 331, 563, 367, 1);
  Tries := 0;
  While (Not (GetColor(627, 85) = 16777215)) Do
  Begin
    Inc(Tries);
    Wait(100);
    If (Tries >= 600) Then
    Begin
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := CurrentPlayer + 1;
      MouseBox(337, 401, 420, 408, 1);
      Wait(2000 + Random(500));
      LogInPlayer;
      Exit;
    End;
  End;
  Wait(2000 + Random(500));
  Result := True;
End;

function MainMenu: boolean;
var
  str:string;
begin
  str := GetTextAtEx(342, 179, 10, StatChars, False, True, 0, 1, 7750, 20, False, tr_AllChars);
  result := pos('istin', str) > 0;
end;
 
 
// 1 = at screen, 2 = performing login, 3 = failed login
function LoginMenu: integer;
var
  str: string;
begin
  str := GetTextAtEx(342, 195, 10, StatChars, False, True, 0, 1, 12509695, 30, False, tr_AllChars);
  if pos('serna', str) > 0 then result := 1;
  if pos('rform', str) > 0 then result := 2;
  if pos('orgot', str) > 0 then result := 3;
end;
 
 
function LoginPlayer: boolean;
var
  time, x, y: integer;
begin
  if MainMenu then MouseBox(360, 168, 400, 174, 1);
  if FindColorTolerance(x, y, 8641531, 297, 330, 462, 366, 10) then
   MouseBox(297, 330, 462, 366, 1);
  if LoginMenu > 0 then
  begin
    MouseBox(314, 256, 438, 264, 1);
    Wait(100+random(100));
    TypeSend(Players[CurrentPlayer].Name);
    MouseBox(314, 322, 438, 330, 1);
    Wait(100+random(100));
    TypeSend(Players[CurrentPlayer].Pass);
    MouseBox(360, 362, 396, 370, 1);
  end;
  while LoginMenu = 2 do wait(100);
  while not FindColorTolerance(x, y, 8641531, 297, 330, 462, 366, 10) do wait(100);
  MouseBox(297, 330, 462, 366, 1);
  MarkTime(time);
  while not LoggedIn and (TimeFromMark(time) < 10000) do wait(100);
  if (TimeFromMark(time) > 10000) then exit;
  if LoggedIn then
  begin
    result := true;
    PlayerStartTime := (GetSystemTime div 1000); // PlayerStartTime
    if Length(Players[CurrentPlayer].NickTPA) < 2 then
    begin;
      Writeln('Creating the NickTPA.');
      if Players[CurrentPlayer].Nick <> '' then
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars)
      else
      begin;
        Writeln('Nickname isnt set, taking the username instead..');
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
      end;
    end;
    WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
  end;
end;

Set Bar

procedure SetBar(Bar: String; Point: Integer);
var
  P: TPoint;
  x, y, z: integer;
begin
  if (not LoggedIn) then Exit;
  if (Point < 0) or (Point > 4) then Exit;
  z := GetCurrentTab;
  GameTab(11);
  Wait(500 +Random(50));
  Case (LowerCase(Bar)) Of
    'brightness':
    Begin
      MouseBox(572, 237, 600, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(202, 36) = 0)) Then Exit;
      Mouse(82 + (31 * Point), 296, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(481, 31, 490, 39, 1);
      Wait(2000 + Random(500));
      While (GetColor(202, 36) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(481, 31, 490, 39, 1);
      End;
    End;
    'music':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
    'effects':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
    'area':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
  End;
  GameTab(z);
end;

Music Related

procedure ChangeMusic(Row, Column: integer);
var
 p: TPoint;
 x, y: integer;
begin
  GameTab(11);
  Wait(Random(25));
  MouseBox(630, 237, 656, 264, 1);
  case Row of
    1: p.y := 121;
    2: p.y := 177;
    3: p.y := 236;
  end;
  case Column of
    1: p.x := 202;
    2: p.x := 226;
    3: p.x := 253;
    4: p.x := 279;
    5: p.x := 305;
  end;
  x := p.x;
  y := p.y;
  Mouse(x, y, 5, 5, true);
  Wait(Random(25));
  MouseBox(322, 49, 333, 60, 1);
end;

procedure SetMusicType(t: integer);
begin
  GameTab(11);
  Wait(Random(25));
  MouseBox(630, 237, 656, 264, 1);
  case t of
    1: Mouse(239, 268, 5, 5, true);
    2: Mouse(305, 268, 5, 5, true);
  end;
  Wait(Random(25));
  MouseBox(322, 49, 333, 60, 1);
end;

I made something that changes the music volume and the Mono/Stereo thing:

procedure ChangeMusic(Row, Column: integer);
var
 p: TPoint;
 x, y: integer;
begin
  GameTab(11);
  Wait(Random(25));
  MouseBox(630, 237, 656, 264, 1);
  case Row of
    1: p.y := 121;
    2: p.y := 177;
    3: p.y := 236;
  end;
  case Column of
    1: p.x := 202;
    2: p.x := 226;
    3: p.x := 253;
    4: p.x := 279;
    5: p.x := 305;
  end;
  x := p.x;
  y := p.y;
  Mouse(x, y, 5, 5, true);
  Wait(Random(25));
  MouseBox(322, 49, 333, 60, 1);
end;

procedure SetMusicType(t: integer);
begin
  GameTab(11);
  Wait(Random(25));
  MouseBox(630, 237, 656, 264, 1);
  case t of
    1: begin
         Mouse(239, 268, 5, 5, true);
       end;
    2: begin
         Mouse(305, 268, 5, 5, true);
       end;
  end;
  Wait(Random(25));
  MouseBox(322, 49, 333, 60, 1);
end;

Why again are we even trying to auto the new one? It's to advanced from what I can tell to be worth it.

SMART Link:
http://(prefix).runescape.com/p0,s1

BETA Login player?:

Function LoginPlayer: Boolean;

Var
  Tries: Integer;

Begin
  If ((CurrentPlayer + 1) > HowManyPlayers) Then
    Exit;
  MouseBox(361, 168, 400, 173, 1);
  Wait(1000 + Random(500));
  Mouse(315, 258, 20, 2, True);
  Wait(100 + Random(50));
  TypeSend(Players[CurrentPlayer].Name);
  Mouse(315, 325, 20, 2, True);
  Wait(100 + Random(50));
  TypeSend(Players[CurrentPlayer].Pass);
  Wait(1000 + Random(500));
  MouseBox(357, 364, 400, 368, 1);
  While (Not (GetColor(316, 396) = 153)) Do
  Begin
    Inc(Tries);
    Wait(100);
    If (Tries >= 100) Then
    Begin
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := CurrentPlayer + 1;
      MouseBox(337, 401, 420, 408, 1);
      Wait(2000 + Random(500));
      LogInPlayer;
      Exit;
    End;
  End;
  MouseBox(206, 331, 563, 367, 1);
  Tries := 0;
  While (Not (GetColor(627, 85) = 16777215)) Do
  Begin
    Inc(Tries);
    Wait(100);
    If (Tries >= 600) Then
    Begin
      Players[CurrentPlayer].Active := False;
      CurrentPlayer := CurrentPlayer + 1;
      MouseBox(337, 401, 420, 408, 1);
      Wait(2000 + Random(500));
      LogInPlayer;
      Exit;
    End;
  End;
  Wait(2000 + Random(500));
  Result := True;
End;

SetBar(); Needs fixed.

SetBar Beta:

procedure SetBar(Bar: String; Point: Integer);
var
  P: TPoint;
  x, y, z: integer;
begin
  if (not LoggedIn) then Exit;
  if (Point < 0) or (Point > 4) then Exit;
  z := GetCurrentTab;
  GameTab(11);
  Wait(500 +Random(50));
  Case (LowerCase(Bar)) Of
    'brightness':
    Begin
      MouseBox(572, 237, 600, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(202, 36) = 0)) Then Exit;
      Mouse(82 + (31 * Point), 296, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(481, 31, 490, 39, 1);
      Wait(2000 + Random(500));
      While (GetColor(202, 36) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(481, 31, 490, 39, 1);
      End;
    End;
    'music':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
    'effects':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
    'area':
    Begin
      MouseBox(627, 234, 656, 265, 1);
      Wait(2000 + Random(500));
      If (Not (GetColor(211, 56) = 0)) Then Exit;
      Mouse(204 + (14 * Point), 176, 1, 1, True);
      Wait(500 + Random(400));
      MouseBox(323, 50, 331, 58, 1);
      Wait(2000 + Random(500));
      While (GetColor(211, 56) = 0) Do
      Begin
        Wait(2000 + Random(500));
        MouseBox(323, 50, 331, 58, 1);
      End;
    End;
  End;
  GameTab(z);
end;

Alkharid and Lumbridge revamped.

New graphics setting for roofs.

Is it just me, or are the banker positions a lot more random now?

Nearly all the openbanks?

From: Lee Lok Hin
Alkharid and Lumbridge revamped.

New graphics setting for roofs.

Is it just me, or are the banker positions a lot more random now?

Nearly all the openbanks?

All openBanks for New HD graphics or on the old regular graphics

This is for music volume on Main screen [b4 Login], I have still yet to make a reader to determine if its in the correct menu etc.

{Volume 0, 1, 2, 3, 4 [0 being mute]}
procedure SetMusicVol(v:integer);
var
 x,y:integer;
begin
  if not FindColor(x, y, 1252947, 332+v*22, 376, 342+v*22, 388) then
    Mouse(338+v*22, 382, 2, 2, true);
end;

thats the easy part narcle!!!

Forget full screen and Runescape HD, we should only focus on the new low detail one. Runescape HD and full screen are just a waste of time unless you're legit playing.

Auto Color;

Note: FindVarrockRoad color now grabs the color of the lumbridge castle floor

Don't bother about the full screen mode, who'll auto on full-screen mode?:)

Btw, I see you all are actually trying to update SRL by yourselfs:p

-Tsn.

Fullscreen does only apply for high detail mode.

Heres the LoginPlayer I'm using:

function MainMenu: boolean;
var
  str:string;
begin
  str := GetTextAtEx(342, 179, 10, StatChars, False, True, 0, 1, 7750, 20, False, tr_AllChars);
  result := pos('istin', str) > 0;
end;


// 1 = at screen, 2 = performing login, 3 = failed login
function LoginMenu: integer;
var
  str: string;
begin
  str := GetTextAtEx(342, 195, 10, StatChars, False, True, 0, 1, 12509695, 30, False, tr_AllChars);
  if pos('serna', str) > 0 then result := 1;
  if pos('rform', str) > 0 then result := 2;
  if pos('orgot', str) > 0 then result := 3;
end;


function LoginPlayer: boolean;
var
  time, x, y: integer;
begin
  if MainMenu then MouseBox(360, 168, 400, 174, 1);
  if FindColorTolerance(x, y, 8641531, 297, 330, 462, 366, 10) then
   MouseBox(297, 330, 462, 366, 1);
  if LoginMenu > 0 then
  begin
    MouseBox(314, 256, 438, 264, 1);
    Wait(100+random(100));
    TypeSend(Players[CurrentPlayer].Name);
    MouseBox(314, 322, 438, 330, 1);
    Wait(100+random(100));
    TypeSend(Players[CurrentPlayer].Pass);
    MouseBox(360, 362, 396, 370, 1);
  end;
  while LoginMenu = 2 do wait(100);
  while not FindColorTolerance(x, y, 8641531, 297, 330, 462, 366, 10) do wait(100);
  MouseBox(297, 330, 462, 366, 1);
  MarkTime(time);
  while not LoggedIn and (TimeFromMark(time) < 10000) do wait(100);
  if (TimeFromMark(time) > 10000) then exit;
  if LoggedIn then
  begin
    result := true;
    PlayerStartTime := (GetSystemTime div 1000); // PlayerStartTime
    if Length(Players[CurrentPlayer].NickTPA) < 2 then
    begin;
      Writeln('Creating the NickTPA.');
      if Players[CurrentPlayer].Nick <> '' then
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Nick, UpChars)
      else
      begin;
        Writeln('Nickname isnt set, taking the username instead..');
        Players[CurrentPlayer].NickTPA := CreateTPAFromText(Players[CurrentPlayer].Name, UpChars);
      end;
    end;
    WriteFileString(TheFile, Chr(13) + 'Current player: '+ UpperCase(Players[CurrentPlayer].Name) + Chr(13)); //* Save NAME to file
  end;
end;

Tr_AllChars *shocked*. It Looks, really good narcle, I find it odd they changed it to statchars.

From: NaumanAkhlaQ
Tr_AllChars *shocked*. It Looks, really good narcle, I find it odd they changed it to statchars.

yeah… heh. THanks too. I stopped at that point knowing the devs would probably have a big and bad one out soon. Then wizzup confirmed it for me on irc… heh

Logout Procedure.

function Logout: Boolean;
var
  c, i: Integer;
begin
  Result := (not (LoggedIn));
  if Result = True then
    Exit;
  Wait(200 + Random(100));
  while (LoggedIn) or (c < 10) do
  begin
    Inc(c);
    MouseBox(744, 4, 759, 18, 1);
    if(ClickText('here', UpChars, MIX1, MIY1, MIX2, MIY2, True))then
      for i := 0 to 10 do
      begin
        Wait(1000);
        if not(LoggedIn)then
        begin
          Result := True;
          Exit;
        end;
      end;
  end;
end;

i guess if some dev or something can make a Beta SRL with these okay functions so we can macro temp.

can someone do it ?

Just edit the files yourself, all the procs and stuff are already here :p

LoginPlayer has been updated, so please don't make more of those.

Just finished SetBrightness that survives of both logged in and not, and am working at a SetVolume.

N3ss3s, will it be first released as a BETA like SRL 4.0 was?

From: NaumanAkhlaQ
N3ss3s, will it be first released as a BETA like SRL 4.0 was?

Probably not. We're not completely overhauling SRL or anything just updating a couple of functions.

is there a estimate time when the new srl wil be released

From: P1NKY
is there a estimate time when the new srl wil be released

Nope sorry, whenever we fix all the functions/procedures affected by the RS update and when all random solvers are fully working I suppose.

EDIT: I'll add the fix for Logout to the front page.

Global.scar needs to be changed

The mainscreen points have changed slightly, and i beleive also the minimap has. When i was doing a test, i noticed it was finding colours from the chat menu (when checkig ores or something lol) :\

I think that gametabs also changed? I've not tested though :p

From: ZephyrsFury
Nope sorry, whenever we fix all the functions/procedures affected by the RS update and when all random solvers are fully working I suppose.

EDIT: I'll add the fix for Logout to the front page.

Imo you should make a separate Revision for the fix and anti-randoms. From what i heard the Anti Randoms arnt quite done yet.

Hey guys,

Nice, all these functions! Saves us lots of time.
I hope to have the SRL fixed next week, I'll be away for a few days, no internet… ;)
Keep them coming, report any other bugs when you find them!

everything is fixed i guess? i wanna work on something idk what tho lol

i wanna work on something idk what tho lol

Your abs.

also the Black text getters in the chat box arnt working im pretty sure like
ChatsBlackText
IsChatBlackTextAnyLine
GetBlackChatMessage

im pretty sure

From: belgin fish
also the Black text getters in the chat box arnt working im pretty sure like
ChatsBlackText
IsChatBlackTextAnyLine
GetBlackChatMessage

im pretty sure

Yes TextCoords had to be changed. Thanks for pointing it out. :)

i found one more. Fishing Spots have changed…

For me, the GameTab's still aren't working properly (Can't find them)

I found that the water colour procedure was broken, Fixed it :D

function FindWatercolor: Integer;
var
  GC, a, l, TestColor, Red, Green, Blue: integer;
var
  P: array of Tpoint;
begin
  GC := 10324605;
  Flag;
  FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l := GetArrayLength(P);
  for a := 0 to l - 1 do
  begin
    if rs_OnMinimap(P[a].x, P[a].y) then
    begin
      TestColor := GetColor(P[a].x, P[a].y);
      if SimilarColors(TestColor, GC, 50) then
      begin
        ColorToRGB(TestColor, Red, Green, Blue);
        if InRange(Blue - Green, -11, 49) then
          if InRange(Green - Red, -17, 43) then
            if InRange(Blue - Red, 2, 62) then
              if GetColor(P[a].x + 2, P[a].y + 2) = TestColor then
                if GetColor(P[a].x + 1, P[a].y + 1) = TestColor then
                  if GetColor(P[a].x, P[a].y + 2) = TestColor then
                    if GetColor(P[a].x + 2, P[a].y) = TestColor then
                      if GetColor(P[a].x, P[a].y + 1) = TestColor then
                        if GetColor(P[a].x + 1, P[a].y) = TestColor then
                          if GetColor(P[a].x + 2, P[a].y + 1) = TestColor then
                            if GetColor(P[a].x + 1, P[a].y + 2) = TestColor then
                            begin
                              Result := TestColor;
                              WaterColor := TestColor;
                              WriteLn('WaterColor = ' + IntToStr(TestColor));
                              Exit;
                            end;
      end;
    end;
  end;
  WriteLn('Could not find Water Color!');
  Result := 0;
end;

is everyone's gametab fix working for them? Or just mine? If so, can someone send me their gametab fix?

EDIT: Nevermind, it was just something wrong in my script XD

Thanks
Twisted

Just so you know LogOut wasn't broken… it was GameTab that was broken due to GetCurrentTab and TabExists being broken. Once you fix these 2 functions LogOut should work… no need to change it or anything.

I need to point something out that hopefully a dev will fix in next release. Its a minor bug but it has a possibility of bannage.

In Bank.scar under procedure "WithDraw" this is its current setup:

    begin
      ChooseOption('Withdraw X')
      Wait(1000 + Random(100));
      TypeSend(IntToStr(Amount));
    end;

And it should be:

    begin
      if ChooseOption('Withdraw X') then
      begin
        Wait(1000 + Random(100));
        TypeSend(IntToStr(Amount));
      end;
    end;

Yes this is minor… however I found this today doing a simple script… and spammed "9" & "18" today in public chat about 7 times each… I hope I don't get blackmarked/ban. *sigh*

However this mainly only failed because FixBank stopped working for some reason… Either way I think its more secure this way.

I don't know I kind of prefer my Graphics and Audio Options functions I made myself. The only downside is that opening and closing the menu are seperate functions from like SetBar and SetBrightness but you can always combine em if you want.

Graphics One:
http://www.villavu.com/forum/showthread.php?t=32337

Audio One:
http://www.villavu.com/forum/showthread.php?t=32341

I don't know. Feel free to judge me. lol ^_^

Bobbo, thanks for the fix.

Thanks Narcle for pointing that out. :)

From: Dusk412
I don't know I kind of prefer my Graphics and Audio Options functions I made myself. The only downside is that opening and closing the menu are seperate functions from like SetBar and SetBrightness but you can always combine em if you want.

Graphics One:
http://www.villavu.com/forum/showthread.php?t=32337

Audio One:
http://www.villavu.com/forum/showthread.php?t=32341

I don't know. Feel free to judge me. lol ^_^

Yes the problem with yours is that if you want to change all the settings you'll need to open and close the graphics/audio screen a number of times in a row. The new one will be able to set all settings at once.

How do you manage that. Either you need seperate open and close functions (which wouldn't be difficult, just a nuisance) or… oh wait… are you like using arrays for however many you want to set? Yargh you devs and your thinking. you guys really need an IRC channel so I can come and help without being completely and utterly counter productive.

From: Dusk412
you guys really need an IRC channel

Take a look at the top of your screen: Welcome to the SRL-Forums…SCAR 3.15 has been released…SRL Revision #17 has been released…! Join the official SRL IRC channel ;)

From: Markus
Take a look at the top of your screen: Welcome to the SRL-Forums…SCAR 3.15 has been released…SRL Revision #17 has been released…! Join the official SRL IRC channel ;)

You didn't read my whole post lol. I meant a SRL Developers IRC Channel. Plus the devs and mods hardly ever use the IRC channel. I know, I use it :D.

From: Dusk412
Plus the devs and mods hardly ever use the IRC channel. I know, I use it :D.

Wizzup? is on a lot, Markus is on quite a bit, n3ss3s is on a good amount, Zeph is on decent amount and others are too

Yea I know Wizzup is on quite a bit.
Only seen zeph 1 time *gasp*
Lol anyways I just meant that they are never like all on at the same time and if they were they wouldnt talk about dev. That is what I meant. Now stop hating me. :( lol.

From: Narcle
I need to point something out that hopefully a dev will fix in next release. Its a minor bug but it has a possibility of bannage.

In Bank.scar under procedure "WithDraw" this is its current setup:

    begin
      ChooseOption('Withdraw X')
      Wait(1000 + Random(100));
      TypeSend(IntToStr(Amount));
    end;

And it should be:

    begin
      if ChooseOption('Withdraw X') then
      begin
        Wait(1000 + Random(100));
        TypeSend(IntToStr(Amount));
      end;
    end;

Yes this is minor… however I found this today doing a simple script… and spammed "9" & "18" today in public chat about 7 times each… I hope I don't get blackmarked/ban. *sigh*

However this mainly only failed because FixBank stopped working for some reason… Either way I think its more secure this way.

if GetColor(x,y) = 0 then // For the "Enter amount" button
begin
  .. 
end;

would be much better :D or even a DTM of the screen…

From: Hy71194

if GetColor(x,y) = 0 then // For the "Enter amount" button
begin
  .. 
end;

would be much better :D or even a DTM of the screen…

What are you talking about? Its already a Boolean, no need to be extravagant, simpler the better imo.

He means to check to see if you need to enter the amount that way you won't be randomly typing numbers if you were not in the proper spot. That way you wont run around banks saying numbers and get banned lol.

Yeah I get it now, he confused me with the "button" part… I'll probably do a readtextat or something. Probably work the best.

Edit:
Oh and about that stupid bank error when the bankscreen/pinscreen is open. I take it ur fixing that right?
I just fixed it myself by modifying GameTab to result true and exit if Bank/pin screen is up. But I had to mod SRL.scar to load Text b4 GameTab and move BankScreen and PinScreen functions to GameTab.scar… what a pain, but it did fix it!

From: Narcle

Edit:
Oh and about that stupid bank error when the bankscreen/pinscreen is open. I take it ur fixing that right?
I just fixed it myself by modifying GameTab to result true and exit if Bank/pin screen is up. But I had to mod SRL.scar to load Text b4 GameTab and move BankScreen and PinScreen functions to GameTab.scar… what a pain, but it did fix it!

You mean that 'Warning no GameTab 4' or something message? Yea thats fixed. (Well made not to appear anymore). :)

From: Narcle
Yeah I get it now, he confused me with the "button" part… I'll probably do a readtextat or something. Probably work the best.

Edit:
Oh and about that stupid bank error when the bankscreen/pinscreen is open. I take it ur fixing that right?
I just fixed it myself by modifying GameTab to result true and exit if Bank/pin screen is up. But I had to mod SRL.scar to load Text b4 GameTab and move BankScreen and PinScreen functions to GameTab.scar… what a pain, but it did fix it!

Why not forward the functions…? instead of moving them all..?

From: ZephyrsFury
You mean that 'Warning no GameTab 4' or something message? Yea thats fixed. (Well made not to appear anymore). :)

Yes that annoying shit. :D and Good.

From: Timer
Why not forward the functions…? instead of moving them all..?

I don't understand how u can forward the functions over files themselves. If you know how tell me and I'll do it? Maybe if I actually put the forwards in GameTab.scar when the functions are actually in Bank.scar, can you do that?

You can forward across files. Just do it as you would normally.