SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
TheGuyWhoGotOn - SRL Member Application Form
TheGuyWhoGotOn

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
PHP, html, python, basic, javascript, java

Other Communitys
Freddy1990.com, Planet Hell (My Forum), Sythe, a lot of un-SCAR-related ones

How Long have You Played Runescape
Started in 2001

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I love coding and to be given challenges, other than that I make anything that I want or the I have the desire to own other than beg somebody else for a script. When people say something is a challenge I oppose it and try, I have never been faced with one that I couldn't do (Though I'm not 100% good at making certain procedures/functions, I like to keep things basic, undetectable, and do what they are meant to do).

I'm currently making a "Planet Hell" include, however if I'm accepted into SRL I will ask for permission to place some of the functions/procedures into SRL. The reason for this would be because the PH Include is more solid and not as customizable as SRL, therefore not as much people would want to use it.

Anyway, I have wanted to be in SCAR ever since I've had some good knowledge over SCAR, I know I don't have much posts but I will work on that.

What I do with my spare time is make mods for a game called "Unreal" I make scripts for various games using SCAR, I'm currently making an ess miner. I also enjoy replying to almost everything on Freddy's forums.

I'm also not sure of how much of my work I'm supposed to post but I'll post anything that I think may be important…

Oh ya and to answer the question that says "What is the meaning of life?" my answer is I don't know.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

NOTE: Requires an ini named "AutoSummon.ini" inside the folder where the script is contained…The ini should contain:

[General]
Summon=y
//n if you want to use a regular command and not summon (NO CAPS)
DifferentSummons=1
//How many different things to summon
Strafe=y
//Weather to strafe after each summon
BindKeys=y
//make y if you want to use shortcut keys

[Summons]
//If you are not using a shortcut key put a § instead of nothing
1Name=cow
1Amount=5
1Key=a

2Name=
2Amount=0
2Key=§

3Name=
3Amount=0
3Key=§

4Name=
4Amount=0
4Key=§

5Name=
5Amount=0
5Key=§

program AutoSummoner;
{.include PH/PH.scar}
{.include PH/Unreal.scar}

//Drag the crosshair over the Unreal window, set weather to use
//basic, run.
//Created by: TheGuyWhoGotOn
//Version: 1.0

const Basic=False; //Make true if you want the basic mode (Basic won't use ini's)

var thing, answer, strafe: string;
    basicamount: integer;
    basicwillstrafe: boolean;
    name: string;
    amount: integer;
    amountSTR: string;
    summon1: string;
    differentsSTR: string;
    differents: integer;
    numberon: integer;
    strafebool: boolean;
    binding: string;
    key1, key2, key3, key4, key5: string;

    procedure smn1;
    begin
      name:= readINI('Summons', '1Name', scriptpath + 'AutoSummon.ini');
      amountstr:= readINI('Summons', '1Amount', scriptpath + 'AutoSummon.ini');
      amount:= strtoint(amountstr)
    end;

    procedure smn2;
    begin
      name:= readINI('Summons', '2Name', scriptpath + 'AutoSummon.ini');
      amountstr:= readINI('Summons', '2Amount', scriptpath + 'AutoSummon.ini');
      amount:= strtoint(amountstr)
    end;

    procedure smn3;
    begin
      name:= readINI('Summons', '3Name', scriptpath + 'AutoSummon.ini');
      amountstr:= readINI('Summons', '3Amount', scriptpath + 'AutoSummon.ini');
      amount:= strtoint(amountstr)
    end;

    procedure smn4;
    begin
      name:= readINI('Summons', '4Name', scriptpath + 'AutoSummon.ini');
      amountstr:= readINI('Summons', '4Amount', scriptpath + 'AutoSummon.ini');
      amount:= strtoint(amountstr)
    end;

    procedure smn5;
    begin
      name:= readINI('Summons', '5Name', scriptpath + 'AutoSummon.ini');
      amountstr:= readINI('Summons', '5Amount', scriptpath + 'AutoSummon.ini');
      amount:= strtoint(amountstr)
    end;

begin
  SetupPH;
  scriptname:= 'TGWGOautoSummoner'
  validate;
  if basic = true then
  begin
    answer:= readln('Do you want to summon? (y/n)')
    if answer = 'y' then
    begin
      thing:= readln('What do you want to summon?');
      basicamount:= strtoint(readln('How many?'));
      strafe:= readln('Do you want to strafe? (y/n');
      if strafe = 'y' then basicwillstrafe:= true
      if strafe = 'n' then basicwillstrafe:= false
      activateclient;
      summon(thing, basicamount, basicwillstrafe);
    end;
    if answer = 'n' then
    begin
      thing:= readln('What command do you want to use?');
      basicamount:= strtoint(readln('How many times?'));
      activateclient;
      command(thing, basicamount);
    end;
  end;
  if basic = false then
  begin
    summon1:= readINI('General', 'Summon', scriptpath + 'AutoSummon.ini');
    if summon1 = 'y' then
    begin
      strafe:= readINI('General', 'Strafe', scriptpath + 'AutoSummon.ini');
      if strafe = 'y' then strafebool:= true
      if strafe = 'n' then strafebool:= false
      differentsstr:= readINI('General', 'DifferentSummons', scriptpath + 'AutoSummon.ini');
      differents:= strtoint(differentsstr);
      numberon:= 0
      binding:= readINI('General', 'BindKeys', scriptpath + 'AutoSummon.ini');
      if binding = 'n' then
        begin
        repeat
          numberon:= numberon + 1
          if numberon = 1 then smn1
          if numberon = 2 then smn2
          if numberon = 3 then smn3
          if numberon = 4 then smn4
          if numberon = 5 then smn5
          wait(100);
          activateclient;
          summon(name, amount, strafebool);
        until(numberon = differents)
      end;
      binding:= readINI('General', 'BindKeys', scriptpath + 'AutoSummon.ini');
      if binding = 'y' then
      begin
        key1:= readINI('Summons', '1Key', scriptpath + 'AutoSummon.ini');
        key2:= readINI('Summons', '2Key', scriptpath + 'AutoSummon.ini');
        key3:= readINI('Summons', '3Key', scriptpath + 'AutoSummon.ini');
        key4:= readINI('Summons', '4Key', scriptpath + 'AutoSummon.ini');
        key5:= readINI('Summons', '5Key', scriptpath + 'AutoSummon.ini');
        repeat
          if iskeydown(key1[1]) then
          begin
            smn1;
            wait(100);
            activateclient;
            summon(name, amount, strafebool);
          end;
          if iskeydown(key2[1]) then
          begin
            smn2;
            wait(100);
            activateclient;
            summon(name, amount, strafebool);
          end;
          if iskeydown(key3[1]) then
          begin
            smn3;
            wait(100);
            activateclient;
            summon(name, amount, strafebool);
          end;
          if iskeydown(key4[1]) then
          begin
            smn4;
            wait(100);
            activateclient;
            summon(name, amount, strafebool);
          end;
          if iskeydown(key5[1]) then
          begin
            smn5;
            wait(100);
            activateclient;
            summon(name, amount, strafebool);
          end;
          wait(5000);
          until(false)
      end;
    end;
    if summon1 = 'n' then
    begin
      differentsstr:= readINI('General', 'DifferentSummons', scriptpath + '\AutoSummon.ini');
      differents:= strtoint(differentsstr);
      numberon:= 0
      binding:= readINI('General', 'BindKeys', scriptpath + 'AutoSummon.ini');
      if binding = 'n' then
      begin
        repeat
          numberon:= numberon + 1
          if numberon = 1 then smn1
          if numberon = 2 then smn2
          if numberon = 3 then smn3
          if numberon = 4 then smn4
          if numberon = 5 then smn5
          wait(100);
          activateclient;
          command(name, amount);
        until(numberon = differents)
      end;
      binding:= readINI('General', 'BindKeys', scriptpath + 'AutoSummon.ini');
      if binding = 'y' then
      begin
        key1:= readINI('Summons', '1Key', scriptpath + 'AutoSummon.ini');
        key2:= readINI('Summons', '2Key', scriptpath + 'AutoSummon.ini');
        key3:= readINI('Summons', '3Key', scriptpath + 'AutoSummon.ini');
        key4:= readINI('Summons', '4Key', scriptpath + 'AutoSummon.ini');
        key5:= readINI('Summons', '5Key', scriptpath + 'AutoSummon.ini');
        repeat
          if iskeydown(key1[1]) then
          begin
            smn1;
            wait(100);
            activateclient;
            command(name, amount);
          end;
          if iskeydown(key2[1]) then
          begin
            smn2;
            wait(100);
            activateclient;
            command(name, amount);
          end;
          if iskeydown(key3[1]) then
          begin
            smn3;
            wait(100);
            activateclient;
            command(name, amount);
          end;
          if iskeydown(key4[1]) then
          begin
            smn4;
            wait(100);
            activateclient;
            command(name, amount);
          end;
          if iskeydown(key5[1]) then
          begin
            smn5;
            wait(100);
            activateclient;
            command(name, amount);
          end;
          wait(5000);
        until(false)
      end;
    end;
  end;
end.

program Counter;

//This is going to seem odd because I'm making this in SCAR but I
//think SCAR has many uses
//Press 1 to generate a report

//Created by: TheGuyWhoGotOn

var mouseclicks, keyspressed: integer;
    holdingl, holdingr: boolean;
    hq, hw, he, hr, ht, hy, hu, hi, ho, hp, ha, hs, hd, hf, hg, hh, hj, hk, hl, hz, hx, hc, hv, hb ,hn, hm: boolean;

procedure countleftbutton;
begin
  if IsMouseButtonDown(true) then
  begin
    if holdingl = false then
    begin
      mouseclicks:= mouseclicks + 1
      holdingl:= true
    end;
  end;
  if (IsMouseButtonDown(true)) = false then holdingl:= false
end;

procedure countrightbutton;
begin
  if IsMouseButtonDown(false) then
  begin
    if holdingr = false then
    begin
      mouseclicks:= mouseclicks + 1
      holdingr:= true
    end;
  end;
  if (IsMouseButtonDown(false)) = false then holdingr:= false
end;

{procedure 0();
begin
  if IsKeyDown(0) then
  begin
    if  h0 = false then
    begin
      keyspressed:= keyspressed + 1
      h0:= true
    end;
  end;
  if (IsKeyDown(0)) = false then h0:= false
end;

procedure 1;
begin
  if IsKeyDown(1) then
  begin
    if  h1 = false then
    begin
      keyspressed:= keyspressed + 1
      h1:= true
    end;
  end;
  if (IsKeyDown(1)) = false then h1:= false
end;

procedure 2;
begin
  if IsKeyDown(2) then
  begin
    if  h2 = false then
    begin
      keyspressed:= keyspressed + 1
      h2:= true
    end;
  end;
  if (IsKeyDown(2)) = false then h2:= false
end;

procedure 3;
begin
  if IsKeyDown(3) then
  begin
    if  h3 = false then
    begin
      keyspressed:= keyspressed + 1
      h3:= true
    end;
  end;
  if (IsKeyDown(3)) = false then h3:= false
end;

procedure 4;
begin
  if IsKeyDown(4) then
  begin
    if  h4 = false then
    begin
      keyspressed:= keyspressed + 1
      h4:= true
    end;
  end;
  if (IsKeyDown(4)) = false then h4:= false
end;

procedure 5;
begin
  if IsKeyDown(5) then
  begin
    if  h5 = false then
    begin
      keyspressed:= keyspressed + 1
      h5:= true
    end;
  end;
  if (IsKeyDown(5)) = false then h5:= false
end;

procedure 6;
begin
  if IsKeyDown(6) then
  begin
    if  h6 = false then
    begin
      keyspressed:= keyspressed + 1
      h6:= true
    end;
  end;
  if (IsKeyDown(6)) = false then h6:= false
end;

procedure 7;
begin
  if IsKeyDown(7) then
  begin
    if  h7 = false then
    begin
      keyspressed:= keyspressed + 1
      h7:= true
    end;
  end;
  if (IsKeyDown(7)) = false then h7:= false
end;

procedure 8;
begin
  if IsKeyDown(8) then
  begin
    if  h8 = false then
    begin
      keyspressed:= keyspressed + 1
      h8:= true
    end;
  end;
  if (IsKeyDown(8)) = false then h8:= false
end;

procedure 9;
begin
  if IsKeyDown(9) then
  begin
    if  h9 = false then
    begin
      keyspressed:= keyspressed + 1
      h9:= true
    end;
  end;
  if (IsKeyDown(9)) = false then h9:= false
end;}

procedure a;
begin
  if IsKeyDown('a') then
  begin
    if  ha = false then
    begin
      keyspressed:= keyspressed + 1
      ha:= true
    end;
  end;
  if (IsKeyDown('a')) = false then ha:= false
end;

procedure b;
begin
  if IsKeyDown('b') then
  begin
    if  hb = false then
    begin
      keyspressed:= keyspressed + 1
      hb:= true
    end;
  end;
  if (IsKeyDown('b')) = false then hb:= false
end;

procedure q;
begin
  if IsKeyDown('q') then
  begin
    if  hq = false then
    begin
      keyspressed:= keyspressed + 1
      hq:= true
    end;
  end;
  if (IsKeyDown('q')) = false then hq:= false
end;

procedure w;
begin
  if IsKeyDown('w') then
  begin
    if  hw = false then
    begin
      keyspressed:= keyspressed + 1
      hw:= true
    end;
  end;
  if (IsKeyDown('w')) = false then hw:= false
end;

procedure e;
begin
  if IsKeyDown('e') then
  begin
    if  he = false then
    begin
      keyspressed:= keyspressed + 1
      he:= true
    end;
  end;
  if (IsKeyDown('e')) = false then he:= false
end;

procedure r;
begin
  if IsKeyDown('r') then
  begin
    if  hr = false then
    begin
      keyspressed:= keyspressed + 1
      hr:= true
    end;
  end;
  if (IsKeyDown('r')) = false then hr:= false
end;

procedure t;
begin
  if IsKeyDown('t') then
  begin
    if  ht = false then
    begin
      keyspressed:= keyspressed + 1
      ht:= true
    end;
  end;
  if (IsKeyDown('t')) = false then ht:= false
end;

procedure y;
begin
  if IsKeyDown('y') then
  begin
    if  hy = false then
    begin
      keyspressed:= keyspressed + 1
      hy:= true
    end;
  end;
  if (IsKeyDown('y')) = false then hy:= false
end;

procedure u;
begin
  if IsKeyDown('u') then
  begin
    if  hu = false then
    begin
      keyspressed:= keyspressed + 1
      hu:= true
    end;
  end;
  if (IsKeyDown('u')) = false then hu:= false
end;

procedure i;
begin
  if IsKeyDown('i') then
  begin
    if  hi = false then
    begin
      keyspressed:= keyspressed + 1
      hi:= true
    end;
  end;
  if (IsKeyDown('i')) = false then hi:= false
end;

procedure o;
begin
  if IsKeyDown('o') then
  begin
    if  ho = false then
    begin
      keyspressed:= keyspressed + 1
      ho:= true
    end;
  end;
  if (IsKeyDown('o')) = false then ho:= false
end;

procedure p;
begin
  if IsKeyDown('p') then
  begin
    if  hp = false then
    begin
      keyspressed:= keyspressed + 1
      hp:= true
    end;
  end;
  if (IsKeyDown('p')) = false then hp:= false
end;

procedure s;
begin
  if IsKeyDown('s') then
  begin
    if  hs = false then
    begin
      keyspressed:= keyspressed + 1
      hs:= true
    end;
  end;
  if (IsKeyDown('s')) = false then hs:= false
end;

procedure d;
begin
  if IsKeyDown('d') then
  begin
    if  hd = false then
    begin
      keyspressed:= keyspressed + 1
      hd:= true
    end;
  end;
  if (IsKeyDown('d')) = false then hd:= false
end;

procedure f;
begin
  if IsKeyDown('f') then
  begin
    if  hf = false then
    begin
      keyspressed:= keyspressed + 1
      hf:= true
    end;
  end;
  if (IsKeyDown('f')) = false then hf:= false
end;

procedure g;
begin
  if IsKeyDown('g') then
  begin
    if  hg = false then
    begin
      keyspressed:= keyspressed + 1
      hg:= true
    end;
  end;
  if (IsKeyDown('g')) = false then hg:= false
end;

procedure h;
begin
  if IsKeyDown('h') then
  begin
    if  hh = false then
    begin
      keyspressed:= keyspressed + 1
      hh:= true
    end;
  end;
  if (IsKeyDown('h')) = false then hh:= false
end;

procedure j;
begin
  if IsKeyDown('j') then
  begin
    if  hj = false then
    begin
      keyspressed:= keyspressed + 1
      hj:= true
    end;
  end;
  if (IsKeyDown('j')) = false then hj:= false
end;

procedure k;
begin
  if IsKeyDown('k') then
  begin
    if  hk = false then
    begin
      keyspressed:= keyspressed + 1
      hk:= true
    end;
  end;
  if (IsKeyDown('k')) = false then hk:= false
end;

procedure l;
begin
  if IsKeyDown('l') then
  begin
    if  hl = false then
    begin
      keyspressed:= keyspressed + 1
      hl:= true
    end;
  end;
  if (IsKeyDown('l')) = false then hl:= false
end;

procedure z;
begin
  if IsKeyDown('z') then
  begin
    if  hz = false then
    begin
      keyspressed:= keyspressed + 1
      hz:= true
    end;
  end;
  if (IsKeyDown('z')) = false then hz:= false
end;

procedure x;
begin
  if IsKeyDown('x') then
  begin
    if  hx = false then
    begin
      keyspressed:= keyspressed + 1
      hx:= true
    end;
  end;
  if (IsKeyDown('x')) = false then hx:= false
end;

procedure c;
begin
  if IsKeyDown('c') then
  begin
    if  hc = false then
    begin
      keyspressed:= keyspressed + 1
      hc:= true
    end;
  end;
  if (IsKeyDown('c')) = false then hc:= false
end;

procedure v;
begin
  if IsKeyDown('v') then
  begin
    if  hv = false then
    begin
      keyspressed:= keyspressed + 1
      hv:= true
    end;
  end;
  if (IsKeyDown('v')) = false then hv:= false
end;

procedure n;
begin
  if IsKeyDown('n') then
  begin
    if  hn = false then
    begin
      keyspressed:= keyspressed + 1
      hn:= true
    end;
  end;
  if (IsKeyDown('n')) = false then hn:= false
end;

procedure m;
begin
  if IsKeyDown('m') then
  begin
    if  hm = false then
    begin
      keyspressed:= keyspressed + 1
      hm:= true
    end;
  end;
  if (IsKeyDown('m')) = false then hm:= false
end;

begin
  movetotray;
  repeat
    wait(1);
    countleftbutton;
    countrightbutton;
    q;
    w;
    e;
    r;
    t;
    y;
    u;
    i;
    o;
    p;
    a;
    s;
    d;
    f;
    g;
    h;
    j;
    k;
    l;
    z;
    x;
    c;
    v;
    b;
    n;
    m;
    status('Clicks: ' + inttostr(mouseclicks) + ' Keys Pressed: ' + inttostr(keyspressed));
    if iskeydown('1') then
    begin
      writeln('Clicks: ' + inttostr(mouseclicks));
      writeln('Keys Pressed: ' + inttostr(keyspressed));
      wait(100);
    end;
  until(false)
end.

A few procedures that I made (Not much but I like em):

procedure slowmcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
  begin
    xx:= xx + random(xx2 - xx)
    yy:= yy + random(yy2 - yy)
    MoveMouseSpline(xx, yy, 1, 1);
    wait(randomrange(150, 250));
    clickmouse(xx, yy, lefft);
  end;

procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
  begin
    xx:= xx + random(xx2 - xx)
    yy:= yy + random(yy2 - yy)
    movemousesmooth(xx, yy);
    wait(randomrange(150, 250));
    clickmouse(xx, yy, lefft);
  end;

  procedure mbox(xx, yy, xx2, yy2: integer);
  begin
    xx:= xx + random(xx2 - xx)
    yy:= yy + random(yy2 - yy)
    movemousesmooth(xx, yy);
    wait(100 + random(100));
  end;

——————————————————
<!– END TEMPLATE: formanswers –>

No SRL, not even sure if you made a runescape script.

Sorry, it's a no from me for now until you learn SRL and make a good runescape script with anti ban/anti randoms/multi player/standards.

Yep, and

however if I'm accepted into SRL I will ask for permission to place some of the functions/procedures into SRL

We srl members are just main PRO people but if you wish to add things to srl you will have to become SRL Developer .

And, If your include is that level as your script, not to hurt you but it would be umm… Not good.

From: JAD
No SRL, not even sure if you made a runescape script.

Sorry, it's a no from me for now until you learn SRL and make a good runescape script with anti ban/anti randoms/multi player/standards.

Ok, I understand, I'll just make my own stuff then, I still support SRL though.

Also I do know SRL, I just don't use it, I prefer to do everything myself so I can develope better scripts that fit my own uses. As for anti-ban I have never been banned using any of my scripts so I'm not too sure of what you mean. (What I mean by that is with my chicken slayer that I didn't post because it's not much I train a lvl 3-30 before releasing it…the guy is now lvl 39 just for the chicken slayer…nobody else has been banned either)

I acknowledge that SRL is Runescape-based however I don't have any advanced Runescape scripts, I have working ones (As I said before they are simple and have never gotten me banned) but not one over 200 line of code. I have one script that supports 2 players but nobody has ever cared.

As for anti-randoms I am getting around to that just randoms never cause much trouble for me, there are many ways to get around them/get away from them, without using SRL it's more difficult, I don't want it to be simple, hence I don't like school.

Thanks for some feedback, also how would I become an "SRL Developer"?.

P.S. I never expected to get into SRL seeing as how I've been told that I have to make an SRL script and I don't see why of doing that.

And, If your include is that level as your script, not to hurt you but it would be umm… Not good.

What? I don't understand you, either you are using improper grammar or I'm not reading it right.

I had TWO scripts there not "a script" I know the key counter isn't advanced because it is very repetitive, and my auto-summoner that's just the basic of it…it's for a first person shooter, Unreal and it will be I'm pretty sure the first bot ever made for it.



The link I posted to my include vanished… here: http://planethell.yourhostfree.com/ph.rar

I mean this

program Counter;
 
//This is going to seem odd because I'm making this in SCAR but I
//think SCAR has many uses
//Press 1 to generate a report
 
//Created by: TheGuyWhoGotOn
 
var mouseclicks, keyspressed: integer;
    holdingl, holdingr: boolean;
    hq, hw, he, hr, ht, hy, hu, hi, ho, hp, ha, hs, hd, hf, hg, hh, hj, hk, hl, hz, hx, hc, hv, hb ,hn, hm: boolean;
 
procedure countleftbutton;
begin
  if IsMouseButtonDown(true) then
  begin
    if holdingl = false then
    begin
      mouseclicks:= mouseclicks + 1
      holdingl:= true
    end;
  end;
  if (IsMouseButtonDown(true)) = false then holdingl:= false
end;
 
procedure countrightbutton;
begin
  if IsMouseButtonDown(false) then
  begin
    if holdingr = false then
    begin
      mouseclicks:= mouseclicks + 1
      holdingr:= true
    end;
  end;
  if (IsMouseButtonDown(false)) = false then holdingr:= false
end;
 
{procedure 0();
begin
  if IsKeyDown(0) then
  begin
    if  h0 = false then
    begin
      keyspressed:= keyspressed + 1
      h0:= true
    end;
  end;
  if (IsKeyDown(0)) = false then h0:= false
end;
 
procedure 1;
begin
  if IsKeyDown(1) then
  begin
    if  h1 = false then
    begin
      keyspressed:= keyspressed + 1
      h1:= true
    end;
  end;
  if (IsKeyDown(1)) = false then h1:= false
end;
 
procedure 2;
begin
  if IsKeyDown(2) then
  begin
    if  h2 = false then
    begin
      keyspressed:= keyspressed + 1
      h2:= true
    end;
  end;
  if (IsKeyDown(2)) = false then h2:= false
end;
 
procedure 3;
begin
  if IsKeyDown(3) then
  begin
    if  h3 = false then
    begin
      keyspressed:= keyspressed + 1
      h3:= true
    end;
  end;
  if (IsKeyDown(3)) = false then h3:= false
end;
 
procedure 4;
begin
  if IsKeyDown(4) then
  begin
    if  h4 = false then
    begin
      keyspressed:= keyspressed + 1
      h4:= true
    end;
  end;
  if (IsKeyDown(4)) = false then h4:= false
end;
 
procedure 5;
begin
  if IsKeyDown(5) then
  begin
    if  h5 = false then
    begin
      keyspressed:= keyspressed + 1
      h5:= true
    end;
  end;
  if (IsKeyDown(5)) = false then h5:= false
end;
 
procedure 6;
begin
  if IsKeyDown(6) then
  begin
    if  h6 = false then
    begin
      keyspressed:= keyspressed + 1
      h6:= true
    end;
  end;
  if (IsKeyDown(6)) = false then h6:= false
end;
 
procedure 7;
begin
  if IsKeyDown(7) then
  begin
    if  h7 = false then
    begin
      keyspressed:= keyspressed + 1
      h7:= true
    end;
  end;
  if (IsKeyDown(7)) = false then h7:= false
end;
 
procedure 8;
begin
  if IsKeyDown(8) then
  begin
    if  h8 = false then
    begin
      keyspressed:= keyspressed + 1
      h8:= true
    end;
  end;
  if (IsKeyDown(8)) = false then h8:= false
end;
 
procedure 9;
begin
  if IsKeyDown(9) then
  begin
    if  h9 = false then
    begin
      keyspressed:= keyspressed + 1
      h9:= true
    end;
  end;
  if (IsKeyDown(9)) = false then h9:= false
end;}
 
procedure a;
begin
  if IsKeyDown('a') then
  begin
    if  ha = false then
    begin
      keyspressed:= keyspressed + 1
      ha:= true
    end;
  end;
  if (IsKeyDown('a')) = false then ha:= false
end;
 
procedure b;
begin
  if IsKeyDown('b') then
  begin
    if  hb = false then
    begin
      keyspressed:= keyspressed + 1
      hb:= true
    end;
  end;
  if (IsKeyDown('b')) = false then hb:= false
end;
 
procedure q;
begin
  if IsKeyDown('q') then
  begin
    if  hq = false then
    begin
      keyspressed:= keyspressed + 1
      hq:= true
    end;
  end;
  if (IsKeyDown('q')) = false then hq:= false
end;
 
procedure w;
begin
  if IsKeyDown('w') then
  begin
    if  hw = false then
    begin
      keyspressed:= keyspressed + 1
      hw:= true
    end;
  end;
  if (IsKeyDown('w')) = false then hw:= false
end;
 
procedure e;
begin
  if IsKeyDown('e') then
  begin
    if  he = false then
    begin
      keyspressed:= keyspressed + 1
      he:= true
    end;
  end;
  if (IsKeyDown('e')) = false then he:= false
end;
 
procedure r;
begin
  if IsKeyDown('r') then
  begin
    if  hr = false then
    begin
      keyspressed:= keyspressed + 1
      hr:= true
    end;
  end;
  if (IsKeyDown('r')) = false then hr:= false
end;
 
procedure t;
begin
  if IsKeyDown('t') then
  begin
    if  ht = false then
    begin
      keyspressed:= keyspressed + 1
      ht:= true
    end;
  end;
  if (IsKeyDown('t')) = false then ht:= false
end;
 
procedure y;
begin
  if IsKeyDown('y') then
  begin
    if  hy = false then
    begin
      keyspressed:= keyspressed + 1
      hy:= true
    end;
  end;
  if (IsKeyDown('y')) = false then hy:= false
end;
 
procedure u;
begin
  if IsKeyDown('u') then
  begin
    if  hu = false then
    begin
      keyspressed:= keyspressed + 1
      hu:= true
    end;
  end;
  if (IsKeyDown('u')) = false then hu:= false
end;
 
procedure i;
begin
  if IsKeyDown('i') then
  begin
    if  hi = false then
    begin
      keyspressed:= keyspressed + 1
      hi:= true
    end;
  end;
  if (IsKeyDown('i')) = false then hi:= false
end;
 
procedure o;
begin
  if IsKeyDown('o') then
  begin
    if  ho = false then
    begin
      keyspressed:= keyspressed + 1
      ho:= true
    end;
  end;
  if (IsKeyDown('o')) = false then ho:= false
end;
 
procedure p;
begin
  if IsKeyDown('p') then
  begin
    if  hp = false then
    begin
      keyspressed:= keyspressed + 1
      hp:= true
    end;
  end;
  if (IsKeyDown('p')) = false then hp:= false
end;
 
procedure s;
begin
  if IsKeyDown('s') then
  begin
    if  hs = false then
    begin
      keyspressed:= keyspressed + 1
      hs:= true
    end;
  end;
  if (IsKeyDown('s')) = false then hs:= false
end;
 
procedure d;
begin
  if IsKeyDown('d') then
  begin
    if  hd = false then
    begin
      keyspressed:= keyspressed + 1
      hd:= true
    end;
  end;
  if (IsKeyDown('d')) = false then hd:= false
end;
 
procedure f;
begin
  if IsKeyDown('f') then
  begin
    if  hf = false then
    begin
      keyspressed:= keyspressed + 1
      hf:= true
    end;
  end;
  if (IsKeyDown('f')) = false then hf:= false
end;
 
procedure g;
begin
  if IsKeyDown('g') then
  begin
    if  hg = false then
    begin
      keyspressed:= keyspressed + 1
      hg:= true
    end;
  end;
  if (IsKeyDown('g')) = false then hg:= false
end;
 
procedure h;
begin
  if IsKeyDown('h') then
  begin
    if  hh = false then
    begin
      keyspressed:= keyspressed + 1
      hh:= true
    end;
  end;
  if (IsKeyDown('h')) = false then hh:= false
end;
 
procedure j;
begin
  if IsKeyDown('j') then
  begin
    if  hj = false then
    begin
      keyspressed:= keyspressed + 1
      hj:= true
    end;
  end;
  if (IsKeyDown('j')) = false then hj:= false
end;
 
procedure k;
begin
  if IsKeyDown('k') then
  begin
    if  hk = false then
    begin
      keyspressed:= keyspressed + 1
      hk:= true
    end;
  end;
  if (IsKeyDown('k')) = false then hk:= false
end;
 
procedure l;
begin
  if IsKeyDown('l') then
  begin
    if  hl = false then
    begin
      keyspressed:= keyspressed + 1
      hl:= true
    end;
  end;
  if (IsKeyDown('l')) = false then hl:= false
end;
 
procedure z;
begin
  if IsKeyDown('z') then
  begin
    if  hz = false then
    begin
      keyspressed:= keyspressed + 1
      hz:= true
    end;
  end;
  if (IsKeyDown('z')) = false then hz:= false
end;
 
procedure x;
begin
  if IsKeyDown('x') then
  begin
    if  hx = false then
    begin
      keyspressed:= keyspressed + 1
      hx:= true
    end;
  end;
  if (IsKeyDown('x')) = false then hx:= false
end;
 
procedure c;
begin
  if IsKeyDown('c') then
  begin
    if  hc = false then
    begin
      keyspressed:= keyspressed + 1
      hc:= true
    end;
  end;
  if (IsKeyDown('c')) = false then hc:= false
end;
 
procedure v;
begin
  if IsKeyDown('v') then
  begin
    if  hv = false then
    begin
      keyspressed:= keyspressed + 1
      hv:= true
    end;
  end;
  if (IsKeyDown('v')) = false then hv:= false
end;
 
procedure n;
begin
  if IsKeyDown('n') then
  begin
    if  hn = false then
    begin
      keyspressed:= keyspressed + 1
      hn:= true
    end;
  end;
  if (IsKeyDown('n')) = false then hn:= false
end;
 
procedure m;
begin
  if IsKeyDown('m') then
  begin
    if  hm = false then
    begin
      keyspressed:= keyspressed + 1
      hm:= true
    end;
  end;
  if (IsKeyDown('m')) = false then hm:= false
end;
 
begin
  movetotray;
  repeat
    wait(1);
    countleftbutton;
    countrightbutton;
    q;
    w;
    e;
    r;
    t;
    y;
    u;
    i;
    o;
    p;
    a;
    s;
    d;
    f;
    g;
    h;
    j;
    k;
    l;
    z;
    x;
    c;
    v;
    b;
    n;
    m;
    status('Clicks: ' + inttostr(mouseclicks) + ' Keys Pressed: ' + inttostr(keyspressed));
    if iskeydown('1') then
    begin
      writeln('Clicks: ' + inttostr(mouseclicks));
      writeln('Keys Pressed: ' + inttostr(keyspressed));
      wait(100);
    end;
  until(false)
end.
 

It is not advanced at all…
You couldve save lines and do it like:

program new;
var 
  i:integer;
  Letters:array[1..26] of string;

procedure LoadLetters;
begin
   Letters[1]:='a';
   // and so on
end; 
begin
  for i := 1 to 26 do
  begin
  if IsKeyDown(Letters[i]) then
  begin
    if  hm = false then
    begin
      keyspressed:= keyspressed + 1
      hm:= true
    end;
  end;
  if (IsKeyDown(Letters[i])) = false then hm:= false
end;

Like that. To become srl member it requires good knowledge of srl, know the community , good scripter, AND ATLEAST KNOW ARRAYS CASES LOOPS! :D
if you know only arrays loops n cases it is not enough.

I think this is not quite the community for you…
And this is a runescape cheating community.

Note: the thing I made does not compile just an example.

I don't know anything about arrays, I'll grant you that.

Even easier:

program new;
var
  i, keyspressed:integer;
  Letters: String;

begin
  Letters := 'abcdefghijklmnopqrstuvwxyz1234567890';

  repeat
    for i := 1 to Length(Letters) - 1 do
    begin
      if IsKeyDown(Letters[i]) then
      begin
        keyspressed:= keyspressed + 1
        while IsKeyDown(Letters[i])do
          wait(5);
      end;
    end;
  until(isfkeydown(12))
  WriteLn(IntToStr(keyspressed));
end.

TheGuy, I will vote for you when you learn SRL

It really can be helpful; you should try walking without it

Ummmm, not sure what you were trying to do there but I'm voting no, learn SRL. Why are you making some sort of key listener? We don't really ever use those.

This is going to be a no of course. Why would you want SRL membership if you don't script RS?