SRL Archive - SRL Archives

Because of new update you can now browse tabs with F-Keys, here is a list for them:

Esc - Inventory
F1 - Combat options
F2 - Your statistics
F3 - Quest Journal
F4 - Equipped interface
F5 - Prayer
F6 - Spellbook
F8 - Friends list
F9 - Ignore list
F10 - Options interface
F11 - Emotes
F12 - Music Player

This means faster GameTab switching, and I already tried to make it but for some reason I can't send F-Keys correctly with SCAR, you can test it yourself.
Here is the script I used to test it:

program Test;
{.include SRL/SRL.scar}

var
i:integer;

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:SendKeysSilent(Chr(112));
    2:SendKeysSilent(Chr(113));
    3:SendKeysSilent(Chr(114));
    4:SendKeysSilent(Chr(27));
    5:SendKeysSilent(Chr(115));
    6:SendKeysSilent(Chr(116));
    7:SendKeysSilent(Chr(117));
    8:SendKeysSilent(Chr(119));
    9:SendKeysSilent(Chr(120));
    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:SendKeysSilent(Chr(121));
    12:SendKeysSilent(Chr(122));
    13:SendKeysSilent(Chr(123));
    end;
    if (c < 3) then
    begin
      Result := True;
      Wait(10);
  //    Wait(300 + Random(300)); //DON'T CHANGE THIS.
    end;
end;

begin
Newline :='';
for i:=1 to 13 do
begin
Wait(1000+Random(500));
GameTab1(i);
end;
end.

I got right keycodes, keycodes for F-Keys are:

F1 - 112

F2 - 113

F3 - 114

F4 - 115

F5 - 116

F6 - 117

F7 - 118

F8 - 119

F9 - 120

F10 - 121

F11 - 122

F12 - 123

So where is the problem?

Oh damn I noticed JAD was faster than me. :P :(

you need to do that send F Key(1) or whatever it is

GRR!! KeyDown(112) Wait(50 + Random(25)); KeyUp(112)
ZOMFG TIME TO MAKE NEW ANTIBAN FUNCTION FOR MY COMPETITION SCRIPT :O

Hey I'm in a net cafe "so i don't have SCAR" but wouldn't this work better.

program Test;
{.include SRL/SRL.scar}
 
var
i:integer;
 
function GameTab(tabnumber: Integer): Boolean;
var
  c,ChrNum: 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: ChrNum:= 112;
    2: ChrNum:= 113;
    3: ChrNum:= 114;
    4: ChrNum:= 27;
    5: ChrNum:= 115;
    6: ChrNum:= 116;
    7: ChrNum:= 117;
    8: ChrNum:= 119;
    9: ChrNum:= 120;
    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: ChrNum:= 121;
    12: ChrNum:= 122;
    13: ChrNum:= 123;
    end;
    begin
      KeyDown(ChrNum);
      Wait(300 + Random(100));
      KeyUp(ChrNum);
    end;
    if (c < 3) then
    begin
      Result := True;
      Wait(10);
  //    Wait(300 + Random(300)); //DON'T CHANGE THIS.
    end;
end;
 
begin
Newline :='';
for i:=1 to 13 do
begin
Wait(1000+Random(500));
GameTab(i);
end;
end.

Other than that "GREAT JOB" I never knew you could do KeyDown and KeyUP with FKeys, I guess I never knew their codes. Oh well…. I think this "should" work better but good job. I may have made some dumb mistake "no colors to help me" =( but I think I didn't.

Fun fun!

Much faster gametabbing, BUT we should have it be random so it doesnt always use the f keys