SRL Archive - RS has been updated.

OK, well Like the moron I am, I deleted Fakawi's thread by accident :(

Please keep all Ingame Changes Discussion to this thread.

New things already noticed:

• Chat Box is Bigger
• GameTabs have Changed
• New Clan speak
• Changing chat settings buttons have changed
• Some items have changed (post your item fixes here!)

Post all of your fixes in this thread!

Thanks a lot, and sorry for the trouble

I also deleted this important post, managed to save before i did

From: The Claw
OK after extensive testing (as long as it took for me to look at my bank) I have realised that the gems bmps have been changed. here are working new bitmaps of them if anyone wants to use.

Sapphire := BitmapFromString(5, 4, '1216901219A212179910158' +
       '10D127B12169010168C10158510158110127D12168E10158A1015' +
       '851015810D127B12168E10158A10158310157E0D1273');

  Emerald := BitmapFromString(6, 3, '1297171192170D7B120D7512' +
       '0D70100D6B10108315107E150D7B120D75120D70100A610D10831' +
       '5107E150D78120D73120A66100A610D');

  Ruby := BitmapFromString(5, 4, '871B0E811B0E6B160D66150A611' +
       '50A75180D70180D6B160D66150A64150A73180D6E160D6B160D66' +
       '150A5B120A73180D6E160D69160D61150A5B120A');

  Diamond := BitmapFromString(6, 5, 'ACAAAAA7A3A3A29D9D9C9797' +
       '969090827979ABA8A8A6A2A2A09C9C9B96958A8281847B7BABA8A' +
       '8A5A2A29F9B9B928C8B8D858587807FAAA7A6A4A0A0999393948D' +
       '8D8F87878A8281A8A6A5A09C9C9C9797979191928C8B8D8585');

other bitmaps that have changed but that no one uses, so i wont make any -
- beer glass
- cooking hat
- vial

theres probably more, too.

Did you save the gametab update on my tread that fawki locked? Claw and HISTORY both posted a fix for the gametab things.

They weren't deleted, just locked

From: The Claw
Well thats gay. I'll quickly do a fix to gametabs.

ok fixed all the gametab stuff. paste this in line 44 to 244. For simplicity's sake, I've named the new gametab number 14, so as to not mess up every script.

{*******************************************************************************
function GetCurrentTab: Integer;
By: Devils Elbow / Starblaster100 and modified by Ron and The Claw
Description: Returns current tab
*******************************************************************************}

function GetCurrentTab: Integer;
begin
  begin
    if GetColor(542, 175) = 1778795 then
      Result := 1
    else if GetColor(569, 176) = 1976437 then
      Result := 2
    else if GetColor(600, 174) = 1910385 then
      Result := 3
    else if GetColor(630, 173) = 1778795 then
      Result := 4
    else if GetColor(667, 173) = 1910385 then
      Result := 5
    else if GetColor(699, 174) = 1910385 then
      Result := 6
    else if GetColor(732, 173) = 1976437 then
      Result := 7
    else if GetColor(564, 470) = 1778795 then
      Result := 8
    else if GetColor(600, 471) = 1976437 then
      Result := 9
    else if GetColor(630, 470) = 1778795 then
      Result := 10
    else if GetColor(666, 47) = 1910385 then
      Result := 11
    else if GetColor(698, 478) = 1778795 then
      Result := 12
    else if GetColor(729, 472) = 2107770 then
      Result := 13;
      if GetColor(530, 476) = 1647204 then
        Result := 14;
  end;
end;

{*******************************************************************************
function TabExists(TabNumber: Integer): Boolean;
By: Flyboy and modified by The Claw.
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;
var
 Tx, Ty:Integer;
begin
  case TabNumber of
    1: Result := FindColor(Tx, Ty, 65536, 560, 188, 568, 194);
      //GameTab 1  = Fightmode
    2: Result := FindColor(Tx, Ty, 460807, 580, 188, 590, 198);
      //GameTab 2  = Statistic
    3: Result := FindColor(Tx, Ty, 16671819, 611, 185, 621, 195);
      //GameTab 3  = Quest
    4: Result := FindColor(Tx, Ty, 65536, 640, 197, 648, 206);
      //GameTab 4  = Inventory
    5: Result := FindColor(Tx, Ty, 65536, 686, 185, 694, 193);
      //GameTab 5  = Wield
    6: Result := FindColor(Tx, Ty, 65536, 711, 195, 719, 203);
      //GameTab 6  = Prayer
    7: Result := FindColor(Tx, Ty, 65536, 735, 180, 745, 190);
      //GameTab 7  = Mage
    8: Result := FindColor(Tx, Ty, 65536, 581, 477, 589, 485);
      //GameTab 8  = Add Friend
    9: Result := FindColor(Tx, Ty, 65536, 608, 479, 616, 487);
      //GameTab 9  = Del Friend
    10: Result := FindColor(Tx, Ty, 3691124, 646, 484, 656, 494);
      //GameTab 10 = LogOut
    11: Result := FindColor(Tx, Ty, 65536, 683, 486, 691, 494);
      //GameTab 11 = Tools/Run
    12: Result := FindColor(Tx, Ty, 65536, 708, 480, 716, 488);
      //GameTab 12 = Emotes
    13: Result := FindColor(Tx, Ty, 65536, 736, 485, 744, 493);
      //GameTab 13 = Music
    14: Result := FindColor(Tx, Ty, 65536, 530, 477, 538, 481);
      //Gametab 14 = Clanchat;
  end; //case Tab
end;


{*******************************************************************************
function GameTab(tabnumber: Integer): Boolean;
By: Mutant Squirrle / Starblaster100, and modified by The Claw
Description: Switches between tabs.
*******************************************************************************}

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 (not (GetColor(558, 180) = 2566003)) then
      begin
        repeat Mouse(558, 187, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    2: if (not (GetColor(594, 181) = 2763390)) then
      begin
        repeat Mouse(586, 187, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    3: if (not (GetColor(620, 176) = 2763390)) then
      begin
        repeat Mouse(613, 186, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    4: if (not (GetColor(636, 174) = 2500207)) then
       begin
         repeat Mouse(650, 185, 5, 5, True);
           c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    5: if (not (GetColor(676, 176) = 2763390)) then
      begin
        repeat Mouse(684, 185, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    6: if (not (GetColor(705, 180) = 2763390)) then
      begin
        repeat Mouse(711, 185, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    7: if (not (GetColor(733, 179) = 2829182)) then
      begin
        repeat Mouse(738, 188, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    8: if (not (GetColor(594, 475) = 2171233)) then
      begin
        repeat Mouse(584, 482, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    9: if (not (GetColor(622, 497) = 2434414)) then
      begin
        repeat Mouse(612, 484, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    10: if (not (GetColor(637, 485) = 2500207)) then
      begin
        repeat Mouse(648, 484, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    11: if (not (GetColor(678, 483) = 2171233)) then
      begin
        repeat Mouse(683, 483, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    12: if (not (GetColor(706, 485) = 2434414)) then
      begin
        repeat Mouse(712, 482, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    13: if (not (GetColor(728, 488) = 2829182)) then
      begin
        repeat Mouse(737, 483, 5, 5, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    end;
    14: if (not (GetColor(528, 474) = 1778795)) then
      begin
        repeat Mouse(528, 474, 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;

Attached file is by History

All my observations are gone :rolleyes:

Okay I'll try to rememember them, you'd better be working your ass off now StarBlaster :p Jk.

-Items Coords appear to have changed.
-You can now 'Prospect' Rune essence Wtf? Or could you always do that?
-You can no longer change chat from 'hide' to 'on' etc, you MUST right click.
-As has been said, Gem bitmaps have been updated. Why Jagex, Why?
-Nearly all, if not all, of the gametabs have been changed, these must be updated.
-Is it just me or can I mine rune essence like a billion times faster now?
-There is a new 'clan' interface, I can't get my head around it and honestly I cbf this time of night.
-The chatbox CAN HOLD 8 LINES OF TEXT now. Also, alot of the coordinates have changed.
-WT-Fakawi mentioned that the login coords have been slightly shifted.

Thats all I can think of.

StarBlaster, how is SRL 4.0 coming along?

-Pancakes.

[EDIT] @StarBlaster, I would prefer not to post any of my 'fixes' in this thread, seems I have none. Also, is it just me or is SRL becoming somewhat of a patchwork quilt (new fixes all the time).

IMO, I think what SRL would most benefit from right now is a clean, fresh, feature packed include. Namely SRL 4.0. I do realise this is alot of work, but if you need anyone to pitch in… You know who to call. GhostBusters! (Actually, PM me).:p

Did nobody fix LoggedIn yet..? GetColor(421, 480) was changed to 2697867. I'm checking to see if it's constant, I assume it is.

Thanks for that Pancakes, appreciate you taking the time to post again.

SRL 4 is being restructured atm, its basically complete. We will have to work on integrating these new functions into it now.

The next version of SRL might not be Ver 4, but instead a quick update to 3.81

LoginFix:
function LoggedIn: Boolean;
begin
Result := (GetColor(421, 480) = 2697867);
end;

GameTab TemporaryFix:
http://www.srl-forums.com/forum/attachment.php?attachmentid=5716&d=1186407648

Coordinates of Main Screen:
X1:4,4
Y1:515,4
X2:4,337
Y2:515,337

Coordinates of chatbox:(may be buggy, did em quick)
X1:7,345
Y1:496,345
X2:7,458
Y2:496,458

Thanks History

Pancakes, you dont have to post your fixes in this thread, I just thought it would be much easier if we didn't keep making separate threads for all of them.

Yea SRL gets a lot of patches, but thats just so we can continue scripting and autoing without annoying errors. SRL 4 will be completely fresh and will hopefully be out soon

From: Starblaster100
OK, well Like the moron I am, I deleted Fakawi's thread by accident :(

Haha, nopro Star, it's just a game :)

@Starblaster, If I sounded rude it was completely accidental, its late it (actually, almost early :p ).

Keep up the good work, I am looking forward to it. (SRL 4).

It can be me. but the fucntion: ''GetAllLevels'' is not working anymore.

No problem, you didn't sound rude at all.

thank you Fawki :)

and can anyone else confirm rikjess's problem?

[Offtopic] Do you think RS is going to be alot more clan orientated from now on? [/Offtopic]

[Edit]Another system update in 2 minutes and counting… from now :p Stupid Jagex [/Edit]

There is another new update coming now.

After a big update. they allways have a second update… bug fixing :p nuby jagex.

RunControl is working but I think SetRun is busted. Either way, can't login atm >.>

From: rikjess
After a big update. they allways have a second update… bug fixing :p nuby jagex.

It's almost like they went 'Oh shit, we forgot to make it so people can't dupe stuff.' I can so imagine a bunch of flustered Jagex staff running around at 4am in the morning. :p

the updated that happened like 5 mins ago was to just fix the bug doing with kicking players from the clan with spaces in their name.

Fixed all.
MSX1 etc are in SCAR, freddy needs to fix those himself.. not sure if you can overwrite them..

It's TabExists that isn't working, I'll post a fix in a minute. (Fixed?)

nope, didnt think it was too useful for a quick fix, should be easycto fix though :)

{*******************************************************************************
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;
var
 Tx, Ty:Integer;
begin
  case TabNumber of
    1: Result := FindColor(Tx, Ty, 65536, 520, 170, 536, 179);
      //GameTab 1  = Fightmode
    2: Result := FindColor(Tx, Ty, 460807, 580, 188, 590, 198);
      //GameTab 2  = Statistic
    3: Result := FindColor(Tx, Ty, 16671819, 604, 180, 621, 195);
      //GameTab 3  = Quest
    4: Result := FindColor(Tx, Ty, 65536, 640, 197, 648, 206);
      //GameTab 4  = Inventory
    5: Result := FindColor(Tx, Ty, 65536, 670, 199, 681, 206);
      //GameTab 5  = Wield
    6: Result := FindColor(Tx, Ty, 65536, 711, 195, 719, 204);
      //GameTab 6  = Prayer
    7: Result := FindColor(Tx, Ty, 65536, 734, 179, 745, 190);
      //GameTab 7  = Mage
    8: Result := FindColor(Tx, Ty, 65536, 581, 477, 589, 485);
      //GameTab 8  = Add Friend
    9: Result := FindColor(Tx, Ty, 65536, 608, 479, 616, 487);
      //GameTab 9  = Del Friend
    10: Result := FindColor(Tx, Ty, 3691124, 646, 483, 656, 494);
      //GameTab 10 = LogOut
    11: Result := FindColor(Tx, Ty, 65536, 681, 481, 691, 494);
      //GameTab 11 = Tools/Run
    12: Result := FindColor(Tx, Ty, 65536, 707, 480, 716, 488);
      //GameTab 12 = Emotes
    13: Result := FindColor(Tx, Ty, 65536, 733, 484, 744, 493);
      //GameTab 13 = Music
    14: Result := FindColor(Tx, Ty, 65536, 531, 483, 536, 489);
      // GameTab 14 = Clan Chat
  end; //case Tab
end;

All working.

SetRun colors changed.

{*******************************************************************************
procedure SetRun(run: Boolean);
By: Wizzup?
Description: Sets Run on or off.
*******************************************************************************}

procedure SetRun(Run: Boolean);
begin
  GameTab(11);
  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;

Wow, should we Dev Town? :D

Does anyone have a huge pack that I can just over wright my SRL with so I can Stress Mine?

If you get the GameTab update from the last page and then get this one then it may work, besides the autotalk.

Nop, SB Ess miner will just login then sit there.. because it can't do fix chats.

Probably cause you didn't update the Logged In function, i posted it along some other fixes on the first page. Ill fix SetChats in a minute

From: rikjess
It can be me. but the fucntion: ''GetAllLevels'' is not working anymore.

It only sees the second letter. like when your skill lvl is 34. it will only see the 4.

edit:
Fix:

{*******************************************************************************
function SkillCoords(row, column: Integer): TPoint;
By: RsN
Description: Returns Coords of Skill's Row and Column (Used for GetSkill functions)
*******************************************************************************}

function SkillCoords(row, column: Integer): TPoint;
begin
  case Column of
    1: Result.x := 580;
    2: Result.x := 642;
    3: Result.x := 707;
  end;
  case row of
    1: Result.y := 210;
    2: Result.y := 241;
    3: Result.y := 272;
    4: Result.y := 303;
    5: Result.y := 334;
    6: Result.y := 365;
    7: Result.y := 396;
    8: Result.y := 429;
  end;
end;

From: Wizzup?
Fixed all.
MSX1 etc are in SCAR, freddy needs to fix those himself.. not sure if you can overwrite them..

Yeah so why are those variables in SCAR again..?

Pretty stupid idea if you ask me.

From: Bebemycat2
Yeah so why are those variables in SCAR again..?

Pretty stupid idea if you ask me.

Ya, those things need to be somewhere where they can be edited quicker, in case something like this happens.

Personally, i don't think the make these interface changes at all in attempt to stop us. Unless they don't know they will only stop us for a day or two with these sort of updates, i think they really are doing in for the sake of improving RuneScape.

Ya, it actually looks a bit better :p

Ps- Are you on msn? get on nub!

First time I have ever seen SRL broken so badly…

Lets hope it doesn't take to long to fix.

Hey, I got an idea.

RELEASE THE DEV SRL! Sumilion said it was almost working 100% when he logged off an hour ago on MSN.

{*******************************************************************************
function MakeCompass(Side: String);
By: Wizzup? and modified by Ron
Description: Aligns RS to specified direction
direction: set to: North='n', South='s', East='e', West='w'
*******************************************************************************}

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 := 562;
        Fy := 26;
        EndPos := 180;
      end;
    'w':
      begin
        Fx := 567;
        Fy := 21;
        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;

I need to know what was already fixed. >.>

(Yes rikjess, this is fixed)

meh,, that the make compass function was not working corrently was real. and not only at my computer.

if thats the fix:
I Love you! <333! :p (now i can continue testing my swamp miner)
i think every thing exept of the setchat is fixed now. srl is ready again to macro :p

SetChat and Chats off fix, Not tested!

Function SetChat(State: String; WhatChat: Integer): Boolean; :forward;

procedure ChatsOff;
begin
  SetChat('Off',1);
  SetChat('Off',2);
  SetChat('Off',3);
  SetChat'Off',4);
end;

Function SetChat(State: String; WhatChat: Integer): Boolean;
Var
  x1, y1, x, y, Color, wTime, tmpMask: Integer;
  textthingy:string
Begin
  State := LowerCase(State);
  Case WhatChat Of
    1:
    Begin
      x1 := 141;
      y1 := 482;
    End;
    2:
    Begin
      x1 := 206;
      y1 := 482;
    End;
    3:
    Begin
      x1 := 339;
      y1 := 482;
    End;
    4: //clan
    Begin
      x1 := 272;
      y1 := 482;
    End;
    5:   //clan
    Begin
      x1 := 272;
      y1 := 482;
    End;
{    6:   //game
    Begin
      x1 := 74;
      y1 := 482;
    End;
    7:   //all
    Begin
      x1 := 9;
      y1 := 482;
    End; }
  End;

  Case LowerCase(State) Of
    'on':
    Begin
      Color := 65280;
    End;

    'friends':
    Begin
      Color := 65535;
    End;
    'off':
    Begin
      Color := 255;
    End;
    'hide':
    Begin
      Color := 16776960
    End;
  End;
    wTime := GetSystemTime;
    Repeat
    If Not (GetColor(421, 480) = 2697867) Then Exit;
    If Not FindColor(x, y, Color, x1, y1, x1 + 55, y1 + 20) Then
      Begin
        textthingy:=UpperCase(Copy(State,1,1))+LowerCase(Copy(State,2,Length(State)));
        tmpMask := CreateBitmapMaskFromText(textthingy, upchars);
        if (FindBitmapMaskTolerance(tmpMask, x, y,70, 400, 436, 488,10,50 )) then
        begin
          Wait(25 + Random(50));
          Mouse(x + (Length(S) * 6 div 2), y + 5, 3, 3, True);
        end;
    Else Break;
    Until GetSystemTime - wTime > 30000;
    Result := (GetSystemTime - wTime < 3000)
End;

Ok no offence to HISTORY but my gametab fix is a bit cleaner, and it has set the new gametab to 14 so that every single script won't have to be changed to fit in with this new update. I mean, if someone had a GameTab(10) in their script it would stay as that, instead of having to be GameTab(11). Also, I made it earlier than he did :rolleyes: Here's my file.

Also, it could be just me but I think that BankScreen has changed? I didn't have time to test the co-ords last night. And also star, those bitmaps I made were from last update :p Not this new one. I'll make new ones tonight after school.

From: The Claw
Ok no offence to HISTORY but my gametab fix is a bit cleaner, and it has set the new gametab to 14 so that every single script won't have to be changed to fit in with this new update. I mean, if someone had a GameTab(10) in their script it would stay as that, instead of having to be GameTab(11). Also, I made it earlier than he did :rolleyes: Here's my file.

Also, it could be just me but I think that BankScreen has changed? I didn't have time to test the co-ords last night. And also star, those bitmaps I made were from last update :p Not this new one. I'll make new ones tonight after school.

Did you compile and check this before you posted ? I'm getting a couple of errors…

lol ive been posting in the wrong place… :

yes i made a new chatset based on the new interface + fixed SRL gametab stuff……
yes this is redistributable …

here it is:

Procedure ChatSet(ChatBox : Integer; ChatType : String);
var
  Option : String; Color : Integer;
begin
  Case LowerCase(ChatType) of
    'hide'   : Option := 'ide';
    'off'    : Option := 'ff';
    'friend' : Option := 'rie';
    'on'     : Option := 'On';
  end;
  Case Option of
    'ide'  : Color := 16776960;
    'ff'   : Color := 255;
    'rie'  : Color := 65535;
    'On'   : Color := 65280;
  end;
  Case ChatBox of
    1: ChatBox:= 145;
    2: Chatbox:= 145 + 70;
    3: ChatBox:= 145 + (70*2);
    4: ChatBox:= 145 + (70*3);
  end;
  If FindColor(x, y, Color, ChatBox, 484, ChatBox+30, 510) then
    Exit;
  Mouse(ChatBox, 484, 15, 15, False)
  Wait(100+random(100))
  ChooseOption(x, y, Option)
end;

Also text pos in chatbox has changed so:

this one checks if it finds spec text in last message using pos.

function GetChat( Chat : String ) : Boolean;
var TempChat : String;
begin
  Result:=True;
  TempChat:=LowerCase(trim(GetTextAtEx(11, 443, 0, SmallChars, False, False, 0, 0,
    0, 50, False, tr_allChars)))
  if Pos(chat , TempChat) = 0 then
    Result:=False;
end;

this one returns the whole last chat message… in lowercase.

Function ReturnChat : String;
begin
  Result:= LowerCase(trim(GetTextAtEx(11, 443, 0, SmallChars, False, False, 0, 0,
    0, 50, False, tr_allChars)))
end;

also there is an extra tab along with the new interface update so:

function GetCurrentTab: Integer;
begin
  begin
    if GetColor(529, 185) = 1581150 then
      Result := 1
    else if GetColor(568, 173) = 1910385 then
      Result := 2
    else if GetColor(597, 172) = 1778795 then
      Result := 3
    else if GetColor(632, 173) = 1976437 then
      Result := 4
    else if GetColor(666, 172) = 1910385 then
      Result := 5
    else if GetColor(698, 173) = 1976437 then
      Result := 6
    else if GetColor(729, 174) = 2107770 then
      Result := 7
    else if GetColor(528, 472) = 1910385 then
      Result := 8
    else if GetColor(565, 471) = 1910385 then
      Result := 9
    else if GetColor(598, 472) = 2107770 then
      Result := 10
    else if GetColor(629, 470) = 1778795 then
      Result := 11
    else if GetColor(666, 474) = 1910385 then
      Result := 12
    else if GetColor(699, 480) = 1647204 then
        Result := 13;
      if GetColor(730, 470) = 1778795 then
        Result := 14;
  end;
end;

this extra tab might screw up other functions that rely on the logout being to 10 instead of 11… same goes with other past the tab of 7… tabs 1-6 are the same though.


this is a working TabExists function

function TabExists(TabNumber: Integer): Boolean;
var
 Tx, Ty:Integer;
begin
  case TabNumber of
    1: Result := FindColor(Tx, Ty, 3852287, 530, 186, 554, 197);
      //GameTab 1  = Fightmode
    2: Result := FindColor(Tx, Ty, 65536, 563, 174, 568, 190);
      //GameTab 2  = Statistic
    3: Result := FindColor(Tx, Ty, 12842487, 598, 175, 610, 188);
      //GameTab 3  = Quest
    4: Result := FindColor(Tx, Ty, 65536, 632, 170, 650, 179);
      //GameTab 4  = Inventory
    5: Result := FindColor(Tx, Ty, 65536, 665, 173, 674, 181);
      //GameTab 5  = Wield
    6: Result := FindColor(Tx, Ty, 65536, 701, 173, 713, 182);
      //GameTab 6  = Prayer
    7: Result := FindColor(Tx, Ty, 65536, 729, 183, 743, 198);
      //GameTab 7  = Mage
    8: Result := FindColor(Tx, Ty, 65536, 535, 469, 543, 477);
      //GameTab 8  = Clan Talk
    9: Result := FindColor(Tx, Ty, 65536, 566, 471, 575, 479);
      //GameTab 9  = Add Friend
    10: Result := FindColor(Tx, Ty, 65536, 600, 471, 618, 479);
      //GameTab 10 = Del Friend
    11: Result := FindColor(Tx, Ty, 65536, 632, 469, 653, 476);
      //GameTab 11 = LogOut
    12: Result := FindColor(Tx, Ty, 65536, 662, 483, 674, 497);
      //GameTab 12 = Tools/Run
    13: Result := FindColor(Tx, Ty, 65536, 706, 468, 717, 476);
      //GameTab 13 = Emotes
    14: Result := FindColor(Tx, Ty, 65536, 729, 473, 744, 496);
      //GameTab 14 = Music
  end; //case Tab
end;

this is a working Gametab function:

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 (not (GetColor(527, 185) = 1580634)) then
      begin
        repeat Mouse(529, 176, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    2: if (not (GetColor(568, 173) = 1910385)) then
      begin
        repeat Mouse(568, 173, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    3: if (not (GetColor(597, 172) = 1778795)) then
      begin
        repeat Mouse(597, 172, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    4: if (not (GetColor(632, 173) = 1976437)) then
       begin
         repeat Mouse(632, 173, 8, 8, True);
           c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    5: if (not (GetColor(666, 172) = 1910385)) then
      begin
        repeat Mouse(666, 172, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    6: if (not (GetColor(698, 173) = 1976437)) then
      begin
        repeat Mouse(698, 173, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    7: if (not (GetColor(729, 174) = 2107770)) then
      begin
        repeat Mouse(729, 174, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    8: if (not (GetColor(528, 472) = 1910385)) then
      begin
        repeat Mouse(528, 472, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    9: if (not (GetColor(565, 471) = 1910385)) then
      begin
        repeat Mouse(565, 471, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    10: if (not (GetColor(598, 472) = 2107770)) then
      begin
        repeat Mouse(598, 472, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    11: if (not (GetColor(629, 470) = 1778795)) then
      begin
        repeat Mouse(629, 470, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    12: if (not (GetColor(666, 474) = 1910385)) then
      begin
        repeat Mouse(666, 474, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    13: if (not (GetColor(699, 480) = 1647204)) then
      begin
        repeat Mouse(699, 480, 8, 8, True);
          c := c + 1;
        until (GetCurrentTab = tabnumber) or (c >= 3)
      end;
    14: if (not (GetColor(730, 470) = 1778795)) then
      begin
        repeat Mouse(730, 470, 8, 8, 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;

SetfightMode Still works



Get Combat lvl is fixed:

function GetCombatLevel: Integer;
var
  Lvl: string;
begin
  Gametab(1);
  Wait(100 + Random(100));
  Lvl := Trim(GetTextAtEx(604, 230, 100, StatChars, True, True, 0, 1, -1, 40, True, tr_AlphaNumericChars));
  if (Copy(Lvl, 1, 5) = 'ombat') then
    Delete(Lvl, 1, 11);
  Lvl := Trim(Lvl);
  try
    Result := StrToInt(Lvl);
  except
    Writeln('Could Not Get Combat Level');
  end
end;

Updated Skill Coords( DOES NOT ACC FIND RC LVL?):

function SkillCoords(row, column: Integer): TPoint;
begin
  case Column of
    1: Result.x := 582;
    2: Result.x := 643;
    3: Result.x := 708;
  end;
  case row of
    1: Result.y := 210;
    2: Result.y := 241;
    3: Result.y := 272;
    4: Result.y := 303;
    5: Result.y := 334;
    6: Result.y := 365;
    7: Result.y := 396;
    8: Result.y := 429;
  end;
end;

Rs_monkey took this code and arrayed it :

function GetCurrentTab: Integer;
var
  x, y, color : array of integer;
  i : integer;
begin//tab1,  2,   3,   4,  5,   6,   7,etc..
  x := [529, 568, 597, 632, 666, 698, 729, 528, 565, 598, 629, 666, 699, 730];
  y := [185, 173, 172, 173, 172, 173, 174, 472, 471, 472, 470, 474, 480, 470];
  color := [1581150, 1910385, 1778795, 1976437, 1910385, 1976437, 2107770,
            1910385, 1910385, 2107770, 1778795, 1910385, 1647204, 1778795];
  for i := 1 to 14 do
  if GetColor(x[i-1], y[i-1]) = color[i-1] then
  begin
    Result := i;
    Exit;  //exit from loop, if none found, will result result := -1;
  end;
  Result := -1;
end;

function TabExists(TabNumber: Integer): Boolean;
var
 Tx, Ty, i : Integer;
 x1, y1, x2, y2, color : array of integer;
begin
  x1 := [530, 563, 598, 632, 665, 701, 729, 535, 566, 600, 632, 662, 706, 729];
  y1 := [186, 174, 175, 170, 173, 173, 183, 469, 471, 471, 469, 483, 468, 473];
  x2 := [554, 568, 610, 650, 674, 713, 743, 543, 575, 618, 653, 674, 717, 744];
  y2 := [197, 190, 188, 179, 181, 182, 198, 477, 479, 479, 476, 497, 476, 496];
  color := [3852287, 65536, 12842487, 65536, 65536, 65536, 65536, 65536, 65536,
            65536, 65536, 65536, 65536, 65536];
 Result := FindColor(Tx, Ty, color[TabNumber-1], x1[TabNumber-1], y1[TabNumber-1], x2[TabNumber-1], y2[TabNumber-1]);
end;

@ Dark_Sniper, very nice.

{*******************************************************************************
procedure Withdraw(Col, Row, Amount: Integer);
by: Odie5533/Stupid3ooo
Description: Withdraws Amount at Column/Row.
*******************************************************************************}

procedure Withdraw(col, row, Amount: Integer);
var
  rx, ry: Integer;
begin
  rx := 35 + (col * 49);
  ry := 27 + (row * 38);
  if (BankScreen) then
  begin
    if (Amount = 1) then
    begin
      Mouse(rx, ry, 0, 0, True);
    end
    else
    begin
      Mouse(rx, ry, 0, 0, False);
      if (Amount = 1) or (Amount = 5) or (Amount = 10) or (Amount = 0) then
      begin
        if (Amount = 5) then
          ChooseOption(rx, ry, 'Withdraw 5');
        if (Amount = 10) then
          ChooseOption(rx, ry, 'Withdraw 10');
        if (Amount = 0) then
          ChooseOption(rx, ry, 'Withdraw All');
      end
      else
      begin
        ChooseOption(rx, ry, 'Withdraw X');
        Wait(1000 + Random(100));
        TypeSend(IntToStr(Amount) + Chr(13));
      end;
    end;
  end;
end;

procedure Deposit(slot, toslot, thetype: Integer);
var
  slotnumber, col, row: Integer;
begin
  if (BankScreen) then
  begin
    slotnumber := slot;
    while (slotnumber <= toslot) do
    begin
      if ((slotnumber mod 4) = 0) then
        col := 3
      else
        col := (slotnumber mod 4) - 1;
      row := (slotnumber - 1) / 4;
      if (FindColor(x, y, 65536, (560 + 44 * col), (216 + 36 * row), (598 + 44 *
        col), (248 + 36 * row))) then
      begin
        if (thetype = 1) then
          Mouse(x, y + 3, 5, 5, True);
        if (thetype = 2) then
        begin
          Mouse(x, y + 3, 5, 5, False);
          if (ChooseOption(x, y, 'All')) then
            Wait(1000 + Random(100));
        end;
      end;
      slotnumber := slotnumber + 1;
    end;
  end;
end;

More fixes. If you are making a GameTab fix then make sure you include the SkillCoords, SetRun, and TabExists fixes that have been posted.

well in accordance with wizzy they have those fixes already?


they are just tweaking the smaller stuff atm…

Well, *we* may have them, but *I* don't have them yet. I think with that my scripts are working fine now, though.

ya my SRL has been fixed (to the best of my knowledge) for 4 hours now…

i didnt even post all my fixes … lol i cant even remember what i fixed… owell.

the new SRL should be out later today or tomorrow by my guess!

From: Dark_Sniper
ya my SRL has been fixed (to the best of my knowledge) for 4 hours now…

i didnt even post all my fixes … lol i cant even remember what i fixed… owell.

the new SRL should be out later today or tomorrow by my guess!

Looks like I'll have to manually mine essence until then, I'm too lazy to fix SRL myself :p

And essence doesn't mine faster, its just been, I don't know, FOREVER since I've mined it myself. Bless you SRL :D

lol ty for most of ur fixies ppl but half of em i dunno wer to put

well you can just search for them on your scar map and replace em thats what i did

ill just wait lol

Thats what i said :D

I'm going to wait until the new SRL comes out :p.

I wish I could have helped with one of these.

lol garrett i no being lazy FTW

Lazy ftw?

Heck yes!

Good job guys! Some ppl should be awarded the "Help Bear".

Hopefully we get a working SRL soon. TY devs and helpers :)

did the random compass maximum offset increase?

From: ruler
did the random compass maximum offset increase?

When I have logged in I have noticed that if anything it has decreased.

i was testing my swamp miner. and noticed that he din't to the head fly of random. because he din't saw the pickhandle. ive tryed it a few times. but no result. made a other bitmap and he was working again: Conclusioin, pickhandle has been changed.

PickHandle := BitmapFromString2(False, 'a3148E78DAB5975D8E8' +
       '3300C84AF94C410E011587AFF236D8C797035B131DD6E2B8D5048' +
       'FC31CE0F26A5944B4DED77B00EE7E5B81DAC7565FD61A5D7D93E7' +
       '07B4D035F4F33EB71EACCC3CA7CB68F3BEB8B5B6A39478DACF5B5' +
       'B02ED474CA1BB3761E5BA7CC2D1279E50853E10875E361743078D' +
       'AD3B00C89C6379DE9683AD24E745D4BBBB468C5B1D847AB15598F' +
       'D57DFC087F51DF977617214A1F548BE847369E8A273B65D14EDEB' +
       'E3A8F42212A8D4A6B9952BAB8FF308F12B9ECB9AD5424522AEDFF' +
       'DD790C11BF348F1D56C423D22D6E0DB8F389FECAD1BA0D85D64B7' +
       'D77A76AD65B5691A8B9D82740ECB02C8AAF914C02D18C13C92AEC' +
       'F10FDDE1F9E39E031FBA833570E3548DD244CD35DD592CDF29B8F' +
       '3896F1184555D5FC68967113BEE20339762BB71C23F6659448B05' +
       'E76A846856029A88ACBFB8B362A2536AE7DF6165F8B13B7FA78B1' +
       'AC407EEFCF83877B5DF27E4CE7A1758359EFB3C48BCD905385FDA' +
       '97AB176BCC8BB3C791A5D7799CA8DD29E2CDBEF36B666B2DA9A79' +
       '2F8796F8824DCCE09665529E14C625685286A5647C6339B6B15EF' +
       'C23BF7662F88C70A6748BCBA802AB473AA6056355176B7557F5AF' +
       '979FA85A259F1EF20AB26FF4CF16DA8EEFE029A5');

this one worked fine for me.

zipcode and country of that bitmap?

sorry, but i dont understand it? :p

srl/srl/skill/mining.scar
anyway:
3825KH, Amersfoort. :p

He is saying that that bitmap is so big it needs it's own address.

From: bobarkinator
He is saying that that bitmap is so big it needs it's own address.

Hehe, true dat :p

Maybe just a bitmap mask?

iam not good in making masks:p
Sorry for making a to big one….

but the bitmap that you have in you mining.scar is a lot bigger so i tough it was oke… sorry.

  PickHandle := BitmapFromString(15, 27,
    '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
    '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
    '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
    '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
    '5951455951455951450000012F20002F2000362400000001302020' +
    '564D41544A3C544A3C595145564D41595145564D41595145595145' +
    '0000012F2000362400362400000001302020564D41564D41564D41' +
    '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
    '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
    '544A3C544A3C0000012F2000362400362400362400000001302020' +
    '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
    '2F2000362400362400000001302020302020564D41564D41564D41' +
    '595145564D41564D41564D410000012F2000362400362400000001' +
    '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
    '0000012F2000362400362400362400000001302020564D41564D41' +
    '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
    '362400000001302020302020564D41564D41544A3C544A3C595145' +
    '595145564D410000012F2000362400362400362400000001302020' +
    '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
    '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
    '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
    '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
    '564D410000012F20002F20002F2000000001302020302020544A3C' +
    '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
    '2F2000000001302020302020595145544A3C564D41595145595145' +
    '595145564D41564D410000012F20002F20002F2000000001302020' +
    '595145595145564D41564D41595145595145595145595145000001' +
    '2F20002F20002F2000000001302020302020595145595145595145' +
    '595145564D41564D41564D41564D410000012F20002F20002F2000' +
    '000001302020564D41595145595145595145595145564D41564D41' +
    '544A3C0000012F20002F20002F2000000001302020302020564D41' +
    '595145595145544A3C544A3C564D41595145564D410000012F2000' +
    '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
    '544A3C564D41564D41564D410000012F20002F2000000001302020' +
    '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
    '000001271B002F20002F2000000001302020595145544A3C564D41' +
    '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
    '000001302020302020595145544A3C564D41595145595145595145' +
    '564D41564D41564D410000011D15001D1500000001302020595145' +
    '544A3C544A3C564D41595145595145595145595145595145544A3C' +
    '0000011D15001D1500000001302020564D41595145595145595145' +
    '595145564D41595145595145564D41544A3C564D41000001000001' +
    '302020302020595145595145595145595145544A3C564D41595145' +
    '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
    '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
    '');

//the old biGmap.

edit: he don't see the randoms anymore. those like: Pinball, Maze, Scaperun. he just say.. ''spotted a random'' and continue the scripts.

So whats the latest update on when SRL is coming out?

From: Pancakes
So whats the latest update on when SRL is coming out?

We are doing overtime and trying to get a rough version done before this weekend, but it looks like it wont be before next week.

From: WT-Fakawi
We are doing overtime and trying to get a rough version done before this weekend, but it looks like it wont be before next week.

damn, i wanted to released my miner before i go on vacation…
Then i have to other qeustion:
Will the new clanchat be gametab(7) or gametab(14).
Can it be that the fucked up those randoms. or was that my script :p

From: WT-Fakawi
We are doing overtime and trying to get a rough version done before this weekend, but it looks like it wont be before next week.

What is left to be done specifically? Are they updates or fixes?

From: WT-Fakawi
We are doing overtime and trying to get a rough version done before this weekend, but it looks like it wont be before next week.

We all appreciate the work you guys do, I'm glad we've got people like the devs :D

PM me if there is anything I can help with.

If anybody needs it here's an easy way out, the complete fixed SRL with clan tab as gametab 14

Dude, I love you if that works :p

<3 Bob

Doesn't work, it screwed up my SRL more :/

im trying it bob ty anywai :D

From: bobarkinator
When I have logged in I have noticed that if anything it has decreased.

Many users of iBot are noticing a difference.

Has anyone else. Hoping SRL can confirm.

From: bobarkinator
If anybody needs it here's an easy way out, the complete fixed SRL with clan tab as gametab 14

tnx, very usefull for now

From: Pancakes
Doesn't work, it screwed up my SRL more :/

What problem are you getting? Remember that is the whole SRL folder not just all the includes part. Just overwrite your folder with that.

From: ruler
Many users of iBot are noticing a difference.

Has anyone else. Hoping SRL can confirm.

I'll go log into a bunch of worlds and take pics.

BitmapFromString2 and a bunch of other functions are screwed. And I did overwrite the whole folder…

Are you using 3.11? I think BitmapFromString2 is for 3.11 also if you try mining I don't think FindPick is working.

I'm not sure if this has been discovered yet, but even with the rar bobarkinator posted (big thanks btw!). FindBlackChatMessage does not work, and I'm assuming other chat functions/procedures won't work as well.

Woot, long live Bob Barker! :D

From: Fizzi
I'm not sure if this has been discovered yet, but even with the rar bobarkinator posted (big thanks btw!). FindBlackChatMessage does not work, and I'm assuming other chat functions/procedures won't work as well.

Yeah I didn't change that cause I didn't see a fix. I basically just went around this thread and picked up all the fixes.

From: hy71194
Woot, long live Bob Barker! :D

Heck yes.

Wow being a member is verrry nice! Thanks bob :)

And the fix for FindBlackChatmessage is in my sig if anyone needs.

function TabExists(TabNumber: Integer): Boolean; in GameTab.scar in the rar that bob posted was messed up.

Tabs 1, 4, 5, 6 were coming up as true even if they weren't there. Here's the fix:

function TabExists(TabNumber: Integer): Boolean;
var
 Tx, Ty:Integer;
begin
  case TabNumber of
    1: Result := FindColor(Tx, Ty, 65536, 533, 173, 541, 180);
      //GameTab 1  = Fightmode
    2: Result := FindColor(Tx, Ty, 460807, 580, 188, 590, 198);
      //GameTab 2  = Statistic
    3: Result := FindColor(Tx, Ty, 16671819, 604, 180, 621, 195);
      //GameTab 3  = Quest
    4: Result := FindColor(Tx, Ty, 65536, 632, 173, 640, 180);
      //GameTab 4  = Inventory
    5: Result := FindColor(Tx, Ty, 65536, 665, 173, 673, 180);
      //GameTab 5  = Wield
    6: Result := FindColor(Tx, Ty, 65536, 698, 173, 706, 180);
      //GameTab 6  = Prayer
    7: Result := FindColor(Tx, Ty, 65536, 734, 179, 745, 190);
      //GameTab 7  = Mage
    8: Result := FindColor(Tx, Ty, 65536, 581, 477, 589, 485);
      //GameTab 8  = Add Friend
    9: Result := FindColor(Tx, Ty, 65536, 608, 479, 616, 487);
      //GameTab 9  = Del Friend
    10: Result := FindColor(Tx, Ty, 3691124, 646, 483, 656, 494);
      //GameTab 10 = LogOut
    11: Result := FindColor(Tx, Ty, 65536, 681, 481, 691, 494);
      //GameTab 11 = Tools/Run
    12: Result := FindColor(Tx, Ty, 65536, 707, 480, 716, 488);
      //GameTab 12 = Emotes
    13: Result := FindColor(Tx, Ty, 65536, 733, 484, 744, 493);
      //GameTab 13 = Music
    14: Result := FindColor(Tx, Ty, 65536, 531, 483, 536, 489);
      // GameTab 14 = Clan Chat
  end; //case Tab
end;

I didn't test extensively, just basically made it compile and work for most scripts that needed GameTab and such.

From: bobarkinator
I didn't test extensively, just basically made it compile and work for most scripts that needed GameTab and such.

I know, sorry if it seemed as if I was blaming you. I just said that cause I didn't know who's fix you put in your rar :). My apologies.

No I didn't take it as a blame, I was just imforming people and I just grabbed the ones on this thread that worked.