SRL Archive - Research & Development Lounge

I didnt know what to call this so i named it SetTab.

Here's a picture if you dont know what tab im trying to say:

procedure SetTab(Option : String; BottomTab: Integer);
Var
   x, y, mx, my, Color: Integer;
begin
  Case BottomTab of
    1: mx := 32;
    2: mx := 98
    else Exit;
  end;
  my := 486;
  Case Option Of
    'All','all': begin Color := 3819344; Option :='All'; end;
    'Game','game': begin Color := 3819344; Option :='Game'; end;
    else Writeln('Option in SetTab does not exist!');
  End;
  If FindColor(x, y, Color, mx - 10, my - 10, mx + 10, my + 10) Then
  Begin
    Mouse(mx, my, 8, 8, True);
  End;
end;

To use it type in:

SetTab('All',1) // 1 is for All and 2 is for Game.

wat it does its sets a tab? wich tab?

From: hermpie
wat it does its sets a tab? wich tab?

You know that "All" and "Game" tab thingy at the bottom left of RS near the Public chat private chatr and stuff. That thing :D

ow kk yeah can be usefull ;)

From: hermpie
ow kk yeah can be usefull ;)

Ye useful is some ways :D

what a awsome pic the pic is better then the function :p

From: hermpie
what a awsome pic the pic is better then the function :p

Lol, ye man that picture is like the best aye?

SetTab is to generic, try to name in SetPublic or something. You might also want the number to be the value the button is, and the string the buttons name (chat, trade).

Would be nice if you could add full support (for all the tabs), plus that if a tab is not open but 'activated' it will jump from normal to blue all the time.

Would it be put into SRL?

Nice,kinda like SetChat()