SRL Archive - Archive

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

Where you Referred to SRL? If yes, by whom?
yes
Solemn Wishes (aka Munky)

Programming Knowledge
vb6, vb.net, pascal, delphi, scar, html+javascript

Other Communitys
krews.net and script-o-matic.net , both are communities which make scripts, custom clients, mods etc. for habbo hotel.

How Long have You Played Runescape
over 4 years. ive got a scythe to prove it :D

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

I used to write scar scripts a long time ago for only very basic tasks like auto-alching, powermining etc. I used to find scar scripts quite a challenge to write.

However as my programming knowledge over the past several months has developed due to being involved in various communities I find scar much easier to handle and fun to use.

I would love to be a part of this community and furtherly help to develop the SRL library.

I will be providing an extract from my tutIsland script for you to have a look at. This extract of my script will stop at the shrimps.

Please note: on tutorial island there is no macro detection. (Well not from my tests anyway) I have ran 50+ accounts through tut island with this script, none of which have been banned.



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

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

procedure valClient; //auto sets client by dimensions
var
width, height: Integer;
begin
  if(FindWindowBySize(766, 504))then
    begin
    Writeln('RuneScape game Screen found by size');
    GetClientDimensions(width, height);
    Writeln('Client Width  := ' + IntToStr(width));
    Writeln('Client Height := ' + IntToStr(height));
    //Result:= True;
  end;
end;

procedure randomClothes;
var
  ax, ay : integer;
  selectionsFinalised : integer;
  randClickArrow, currentClickCount : integer;
begin
  mouseSpeed := 1;
  ax := 166;
  ay := 90;
  repeat
    randClickArrow := random(9);
    if(selectionsFinalised <> 0) then ay := ay + 35;
    mmouse(ax, ay, 0, 0)
    Wait(50)
    if(randClickArrow <> 0) then
    begin
      repeat
        Wait(10)
        Mouse(ax, ay, 0, 0, true)
        currentClickCount := currentClickCount + 1;
      until(randClickArrow = currentClickCount)
      currentClickCount := 0;
    end;
    selectionsFinalised := selectionsFinalised + 1;
  until(selectionsFinalised = 7)
  ax := 353;
  ay := 96;
  repeat
    randClickArrow := 1 + random(15);
    if(selectionsFinalised <> 7) then ay := ay + 35;
    mmouse(ax, ay, 0, 0)
    Wait(50)
    if(randClickArrow <> 0) then
    begin
      repeat
        Wait(10)
        Mouse(ax, ay, 0, 0, true)
        currentClickCount := currentClickCount + 1;
      until(randClickArrow = currentClickCount)
      currentClickCount := 0;
    end;
    selectionsFinalised := selectionsFinalised + 1;
  until(selectionsFinalised = 12)
  mmouse(258, 286, 0, 0)
  Mouse(258, 286, 0, 0, false)
  ChooseOption(x, y, 'ccept')
end;

procedure handleClothesScreen;
var
  acceptClothes : integer;
begin
  acceptClothes := BitmapFromString(1, 1, '494034');
  if(findbitmap(acceptClothes, x, y)) then randomClothes;
end;

procedure firstArea; //runescape guide
var
  yArrow, ax, ay : integer;
  done : boolean;
begin
  yArrow := DTMFromString('78DA63EC656460D0644001FFFE6E06D38C503' +
       'EE36422D44C04B28C50D5FCFD331B554D3B906586AAE6CFAF3854' +
       '353389503301C8B24755F3EBBB12A69BF5F0BB1900817016C0');
  repeat
  if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then
  begin
    Mmouse(x, y + 50, 0, 0)
    if(IsUpTextMulti('Talk', 'alt', 'tal')) then
    begin
      writeln('FOUND')
      getmousepos(x, y);
      Mouse(x, y, 0, 0, false)
      Wait(100)
      if(ChooseOption(ax, ay, 'Talk')) then
      begin
        writeln('talk found')
        ChooseOption(ax, ay, 'Talk')
        Done := True;
      end;
    end;
  end;
  Wait(200)
  until(Done = true)
  Flag;
  Wait(300)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  //sets player controls:
  gametab(11)
  Wait(250)
  mmouse(714, 230, 0, 0)
  Wait(50)
  getmousepos(x, y)
  Mouse(x, y, 0, 0, true)
  setrun(true)
  done:= false;
  repeat
  if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then
  begin
    Mmouse(x, y + 50, 0, 0)
    if(IsUpTextMulti('Talk', 'alt', 'tal')) then
    begin
      writeln('FOUND')
      getmousepos(x, y);
      Mouse(x, y, 0, 0, false)
      Wait(100)
      if(ChooseOption(ax, ay, 'Talk')) then
      begin
        writeln('talk found')
        ChooseOption(ax, ay, 'Talk')
        Done := True;
      end;
    end;
  end;
  Wait(200)
  until(Done = true)
  Flag;
  Wait(300)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  Wait(25)
end;

procedure endFirstArea;
var
  miniMapArrow, yArrow, ax, ay, checkCount : integer;
  done, finalDone : boolean;
begin
  miniMapArrow := DTMFromString('78DA636C63626070644001FFFE6E02D38C503' +
       'E6317116A3A8854E38EAAE6CF2F7F54356D44A8E922424D3B508D' +
       '37AA9A5FDFA550D5B400D5781030A78708359D84ED020042BA1FA' +
       'D');
  MakeCompass('E');
  repeat
    if(findDTM(miniMapArrow, x, y, 548, 7, 741, 159)) then
    begin
      mmouse(x, y + 25, 0, 0)      // moves near the door
      mouse(x, y + 25, 0, 0, true)
      Flag;
      Wait(150)
      mmouse(x + 6, y + 17, 0, 0)      // moves very near the door if pos
      mouse(x + 6, y + 17, 0, 0, true)
      Flag;
      Wait(150)
      done := true;
    end;
    Wait(50)
  until(done = True)
  done := false;
  yArrow := DTMFromString('78DA63EC656460D0644001FFFE6E06D38C503' +
       'EE36422D44C04B28C50D5FCFD331B554D3B906586AAE6CFAF3854' +
       '353389503301C8B24755F3EBBB12A69BF5F0BB1900817016C0');
  repeat
    if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then done := true;
  until(done = true)
  done := false;
  repeat //the finalDone repeat start
    Mmouse(x, y + 45, 0, 0)
    Wait(50)
    Mouse(x, y + 45, 0, 0, false)
    ChooseOption(ax, ay, 'Open')
    Wait(2000)
    repeat
      if(findDTM(miniMapArrow, ax, ay, 661, 37, 728, 90)) then
      begin
        done := true;
        finalDone := true;
      end;
      Wait(50)
      checkCount := checkCount + 1;
    until(done = true) or (checkCount = 20)
    checkCount := 0;
    done := false;
    Wait(100)
  until(finalDone = true)
  mmouse(ax + 3, ay + 6, 0, 0)
  getmousepos(ax, ay)
  mouse(ax, ay, 0, 0 ,true)
end;

procedure secondArea;
var
  yArrow, ax, ay : integer;
  done : boolean;
begin
  yArrow := DTMFromString('78DA63EC656460D0644001FFFE6E06D38C503' +
       'EE36422D44C04B28C50D5FCFD331B554D3B906586AAE6CFAF3854' +
       '353389503301C8B24755F3EBBB12A69BF5F0BB1900817016C0');
  repeat
  if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then
  begin
    Mmouse(x, y + 50, 0, 0)
    if(IsUpTextMulti('Talk', 'alt', 'tal')) then
    begin
      writeln('FOUND')
      getmousepos(x, y);
      Mouse(x, y, 0, 0, false)
      Wait(100)
      if(ChooseOption(ax, ay, 'Talk')) then
      begin
        writeln('talk found')
        ChooseOption(ax, ay, 'Talk')
        Done := True;
      end;
    end;
  end;
  Wait(200)
  until(Done = true)
  Flag;
  Wait(200)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  Wait(400)
  clicktocontinue;
  GameTab(4)
  Wait(200)
  GameTab(4)
  Wait(200)
end;

procedure secondAreaChopper;
var
  tol : integer;
  done : boolean;
  inventLogs : integer;
begin
mousespeed := 1;
MakeCompass('W');
  repeat
    if(findcolorspiraltolerance(x, y, 1980464, 10, 7, 502, 328, tol)) then
    begin
      writeln('found')
      mmouse(x, y, 0, 0)
      if(IsUpTextMulti('Tree', 'ret', 'tre')) then
      begin
        mouse(x, y, 0, 0, true)
        done := true;
      end;
    end;
    Wait(50)
    tol := tol + 10;
  until(done = true) or (tol = 1000)
  if(tol = 1000) then
  begin
    writeln('Could not find tree...ending script...') // FAILSAFE
    terminatescript;
  end;
  Wait(10000)
  Clicktocontinue;
  //make fire:
  mmouse(626, 230, 0, 0)
  Mouse(626, 230, 0, 0, true)
  Wait(500)
  mmouse(668, 229, 0, 0)
  Mouse(668, 229, 0, 0, true)
  Wait(2500)
  inventLogs := DTMFromString('78DA639CC3C4C0F08C010564F8EB816946289' +
       'F712A50CD0354352D29D6A86A2601D5BC44555318668CAA661550' +
       'CD735435D94106A86A9600D5DC21A0661650CD7B02EE990154731' +
       '7558D9BA91CAA9AA54035AF51D5B465D8A2A80100D42E13F5');
  if(findDTM(inventLogs, x, y, 632, 202, 686, 249)) then
  begin
    writeln('failed to burn')
    mmouse(639, 70, 0, 0)
    Mouse(639, 70, 0, 0, true)
    Flag;
    //make fire:
    mmouse(626, 230, 0, 0)
    Mouse(626, 230, 0, 0, true)
    Wait(500)
    mmouse(668, 229, 0, 0)
    Mouse(668, 229, 0, 0, true)
    Wait(2500)
    if(findDTM(inventLogs, x, y, 632, 202, 686, 249)) then terminatescript;
    end;
  if(not(findDTM(inventLogs, x, y, 632, 202, 686, 249))) then Wait(5000)
  Gametab(2)
end;

procedure secondAreaFisher;
var
  yArrow, ax, ay : integer;
  done : boolean;
begin
  yArrow := DTMFromString('78DA63EC656460D0644001FFFE6E06D38C503' +
       'EE36422D44C04B28C50D5FCFD331B554D3B906586AAE6CFAF3854' +
       '353389503301C8B24755F3EBBB12A69BF5F0BB1900817016C0');
  repeat
  if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then
  begin
    Mmouse(x, y + 50, 0, 0)
    if(IsUpTextMulti('Talk', 'alt', 'tal')) then
    begin
      writeln('FOUND')
      getmousepos(x, y);
      Mouse(x, y, 0, 0, false)
      Wait(100)
      if(ChooseOption(ax, ay, 'Talk')) then
      begin
        writeln('talk found')
        ChooseOption(ax, ay, 'Talk')
        Done := True;
      end;
    end;
  end;
  Wait(200)
  until(Done = true)
  Flag;
  Wait(200)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  Wait(400)
  Clicktocontinue;
  done := false;
  repeat
    if(findDTM(yArrow, x, y, 5, 5, 511, 336)) then
    begin
      Mmouse(x, y + 40, 0, 0)
      if(IsUpText('Net')) then
      begin
        Mouse(x, y + 40, 0, 0, true)
        done := true;
      end;
    end;
    Wait(200)
  until(done = True)
  done:= false;
  Flag;
  gametab(4)
  writeln('We are fishing!')
  Wait(5000)
  gametab(4)
  mmouse(708, 230, 0, 0)
  Mouse(708, 230, 0, 0, true)
end;



//-------------------------------------------------------------//



begin
  valClient;
  activateClient;
  setupSrl;
  disguiseScar('Google');
  wait(500)
  handleClothesScreen;
  firstArea;
  Wait(100)
  endFirstArea;
  secondArea;
  secondAreaChopper;
  secondAreaFisher;
end.

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

It's not a complete script…?

How do we know you actually finished it…?

I'm waiting for a check by Yohojo…

Well, First of all, you have to post a finished script…an "extract" from your script isn't going to get you membership. Second of all, this is weird

Are you affilated in anyway with Jagex LTD?
No Comment

Anyways, I'll hold my vote just in case you decide to post the whole script and change the No Comment to a No.
My vote will probably be a no if that doesn't get changed. Sorry.

Sorry, my bad.

I have updated the 'Are you affiliated with Jagex' entry now.

From: SantaClause
It's not a complete script…?

I thought you only had to post an example of ur work?

First of all: set the mouse randomness´s always atleast 2(well, many people has said this, still myself not doing it :D) .

You could use TalkToRand( does it exist in srl anymore?) for those
clicktocontinues. It clicks to continue until no click to continue.

The script is pretty simple. It has no failsafes at all.

Those coordinated clicks creep me.

Its no from me.

To get in , heres a list of mine :

+ = Good thing
* = Must
? = expected

Dtm = +
MultiPlayer * // Well, maybe not if members script.
AntiRandoms *
Antiban *
Walking = +
Failsafes *?

Complexity ?

Attitude ?

Activity *

A good past is good thing too, but if he is a famous leecher scammer hacker biatch = NO!

It is also good thing if the applicant gets along with people here.

DO NOT GET OFFENDED BY THE BIATCH THING IT IS NOTHING PERSONAL
I said that because there came a little misunderstood at KYAB forums :D

It's very clear you are a good programmer. Take the time to read some tuts on what you need to get into the srl members area, there are a few things that we require you to demonstrate that you probably had no idea that we were looking for. I'm sure that by reading a few member specific tutorials first, you will be in in no time! Keep up the good work.

it is not that bad but, no multiplayer?

erm…you could work on your standards and please try to get a full script next time please I'm going to have to vote no because of the multiplayer try and learn it iloveit8 has an excellent tut in the Tuts section m8 :D

but i think your getting the idea next app you should have no problem getting accepted if you work on these things :D

If you post the whole script I might vote yes.
And with a sample of your work, we mean all of your scripts.

Example of work means a full working runescspe script using SRL
Which includes
Antiban
Antirandoms
Multiplayer
Custom Procedures/Functions
Good Coding.