SRL Archive - Archive

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

What is the meaning to life?

I'm not to sure, but i hope runescape cheating is one of them

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


Programming Knowledge


Other Communitys
I am an active member of sythe and i have also shwn interest on the rsbot forums

How Long have You Played Runescape
I have played runscape for about 4 years now

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

I have been a member of this forum for quite a while now. Recently i decided i had to make my own script. I did this and then couldnt help but make more. I like to help others with my scripting knowledge and think if i was to become a srl member could help more people in rs cheating. I found srl by chance and was hooked the moment i got involved.

I like to share scripts and like scripts to be shared. i also belive that people should pull their own weight and good scripters should only help those willing to help themselves. I think that i would contribute well to srl members and to help those who arn't srl members.

I would like to thank you for taking the time to read this, and I will be looking forward to your reply.

Thanks

Jake

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

This is my auto bone collector and Buryer.

 program bonepickburyer;
  {.include SRL/SRL/Misc/Smart.scar}
  {.include SRL/SRL.scar}

const
 SRLStatsID = '3915';
  SRLStatsPassword = 'DABgsZwPy6';
  StartPlayer = 0;
  DotColor = 395004;
  bonecolorininft = 11053236;
  bonecolor = 13750999;

var
x, y, RedDot, bone, bonesburied, boneonfloor, BoneInv, BonesInventory, HoverSkillmining, MakeCompassRandom, HoverSkillRandom, RandomMovementCount:integer;



procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Set Number of Players here.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := StartPlayer;
  Players[0].Name := ''; //username
  Players[0].Pass := ''; //password
  Players[0].Nick := ''; //3-4 consecutive letters of your user
  Players[0].Active := True; //use this player
end;

procedure AntiRandom;
begin
  FindNormalRandoms;
end;

procedure Proggy;
begin
  writeln('Bone Burier by Jakeyboy29');
  writeln('Ran For: '+TimeRunning+'!');
  writeln('Bones buried: '+inttostr(BonesBuried)+' !');
end;


procedure bury;
Begin
  If Not LoggedIn Then Exit;
  Begin
      GameTab(4);
  BonesInventory := DTMFromString('78DA631460606000612470FEDC1930CD08E53' +
       '30A03090E54356C5049B81A6620C18BAA8685014D0D485E12558D' +
       '201713AA1A6920218CDF1C00CA37033F');
    Repeat
      antirandom;
      Status('Looking For Bones...');
      If FindDTM(BonesInventory, X, Y, MIX1, MIY1, MIX2, MIY2) Then
      MMouse(X, Y, 5, 5);
      Wait(300+Random(100));
    If (IsUpText('ones')) Then
      Begin
        Mouse(X, Y, 5, 5, True);
        Inc(BonesBuried);
        Status('Burying Bones...');
        Wait(170+Random(50));
      End;
    Until (Not FindDTM(BonesInventory, X, Y, MIX1, MIY1, MIX2, MIY2))Or(Not LoggedIn);
    FreeDTM(BonesInventory);
  End;
End;
      
procedure bonesonmini;
begin
     case Random(10) of
          2: SetRun(True);
     end;
     If (FindColorTolerance(x, y, DotColor, MMX1, MMY1, MMX2, MMY2, 0)) then
     begin
          Mouse (x - 5, y, 0, 0, True);
          Flag;
          Wait (300);
     end;
end;

procedure AntiBanage;
begin
  case Random(10) of
    0:
      begin
        HoverSkill('mining', false);
        HoverSkillmining := HoverSkillmining + 1;
      end;
    1:
      begin
        MakeCompass('random');
        MakeCompassRandom := MakeCompassRandom + 1;
      end;
    2:
      begin
        Wait(1000 + Random(200));
      end;
    3:
      begin
        RandomMovement;
        RandomMovementCount := RandomMovementCount + 1;
      end;
    4:
      begin
        RandomRClick;
      end;
    5:
      begin
        HoverSkill('random', false);
        HoverSkillRandom := HoverSkillRandom + 1;
      end;
    6:
      begin
        GameTab(3);
      end;
  end;
end;

function bonesonground:boolean;
Var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6711150 , MSX1, MSY1, MSX2, MSY2, 84);
  ColorToleranceSpeed(CTS);
  ATPA := TPAToATPAEx(TPA, 15, 15);
  For I := 0 to High(ATPA) do
  begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    If(IsUpTextMultiCustom(['one'])) then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;



procedure setupScript;
begin
  cleardebug;
  writeln('Jakeyboy29s');
  writeln('Pure Chaos Temple');
  writeln('Boner.');
  writeln('Start');
  writeln('In the');
  writeln('Chaos Temple in The Wild');
  writeln('Although, It should work anywere?');
  writeln('Enjoy...');
  setupsrl;
  ScriptID := '1052';
  mousespeed := 13;    // to fast. 13 is better
  declareplayers;
  activateclient;
  wait(500);
end;

begin
  setupScript;
  smartsetup('world101', true, true, false);
  SetTargetDC(SmartGetDC);
  if (not (LoggedIn)) then
  begin
    Loginplayer;
    setangle(true);
    Wait(500 + random(30))
     SetChat('on', 1);
    SetChat('friends', 2);
    SetChat('off', 3);
  end;
  repeat
  bonesonground;
  bonesonmini
  bury;
  AntiRandom;
  AntiBanage;
    if not (loggedIn) then
    begin
      logout;
      nextplayer(false);
        LoginPlayer;
    end;
  //end;
    begin
      logout;
      if howManyPlayers = 1 then
        wait(random(60));
      nextplayer(true);
      LoginPlayer;
    end;
  until (false);
end.

this is my autofighter and auto eater

 program New;
 {.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}


var
   x, y, PickitemColors: array of integer; killmode, ownmonster, eat:integer;

const



EatFood = true; //to eat, or not to eat
 
FoodCol = 434534; //food col.
 
EatAfter = 20; //loss of hp before eat?

PlayTime = 9; //time per player in minutes
 
TakeBreak = true; //take breaks after each player
 
BreakTime = 1; //break time in minutes


 MonsCol = 4939374; //color of monster
 ColMons = 2835292; //color of monster
 MonsTol = 11; //tolerance
 MonsTxt = 'Guard'; //monsters name
 MonsHpt = 25; //how many hitpoints
 TimePerKill = 10; //max seconds per kill?
 PickupTol      = 3;//Color tolerance for picking up items

procedure DeclarePlayers;
begin

//delete this next bit if you don't want to pick items up.

  PickitemColors := [3552826,857962];


  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  SRLId := '';
  SRLPassword := '';

  Players[0].Name := ''; //username
  Players[0].Pass := ''; //password
  Players[0].Nick := ''; //3-4 letters from your username
  Players[0].Strings[0] := 'pker'; //attack, strength, defence, pker=(pure), all, rapid, accurate.
  Players[0].Active := True;
end;



procedure AttackMode;
var
 skill: integer;
begin
  case Players[currentplayer].strings[0] of
    'attack': skill := 1;
    'strength': skill := 2;
    'all': skill := 3;
    'defence': skill := 4;
    'rapid': skill :=2;
    'accurate': skill :=1;
  end;

  if Players[currentplayer].strings[0] = 'pker' then
  begin
    if Players[currentplayer].level[2] < 20 then
      skill := 2 else
    if Players[currentplayer].level[1] < 40 then
      skill := 1 else
      skill := 2;
  end;
  SetFightMode(skill);
end;


procedure SetupPlayer;
begin
setangle(true);
Wait(500 + random(30)) SetChat('on', 1);
SetChat('friends', 2);
SetChat('off', 3);
GetAllLevels;
AttackMode;
SetRun(True);
end;

function FindMonster(var x, y: integer; Color, Color2, Tol: integer; UpTxt: string): boolean;
var
 CTS, i, Tries: integer;
 pMonster: TPoint;
 Monster, mMonster, dMonster: array of TPoint;
 aMonster: array of array of TPoint;
begin
  if not LoggedIn then Exit;

  CTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);

  repeat
    FindColorsSpiralTolerance(MScx, MScy, dMonster, Color, MSx1, MSy1, MSx2, MSy2, Tol);
    FindColorsSpiralTolerance(MScx, MScy, mMonster, Color2, MSx1, MSy1, MSx2, MSy2, Tol);
    Monster := CombineTPA(dMonster, mMonster);
    aMonster := TPAtoATPAEx(Monster, 15, 15);

    for i := 0 to Length(aMonster) - 1 do
    begin
      pMonster := MiddleTPA(aMonster[i]);
      MMouse(pMonster.X, pMonster.Y, 5, 5);
      GetMousePos(pMonster.X, pMonster.Y);
      Wait(25 + random(50));
      if IsUpText(UpTxt) then
      begin
        x := pMonster.X;
        y := pMonster.Y;
        ColorToleranceSpeed(CTS);
        Result := True;
        Exit;
      end else
      Inc(tries);
    end;
  until Tries >= 20;
  ColorToleranceSpeed(CTS);
end;





procedure KillMonster;
var
 mX, mY: integer;
begin
  if not LoggedIn then Exit;
  if FindMonster(mX, mY, MonsCol, ColMons, MonsTol, MonsTxt) then
  begin
    case Random(3) of
      0, 1: Mouse(mX, mY, 0, 0, true);

      2: begin
           Mouse(mX, mY, 0, 0, false);
           Wait(RandomRange(25, 50));
           ChooseOption('ttack');
         end;
    end;
    FFlag(0);
    Wait(RandomRange(1000, 1500));
  end;
end;


function Food:boolean;
var
 Eaty: string;
 Mnt, x, y: integer;
begin
  if not EatFood then Exit;
  Mnt := GetMMLevels('hp', Eaty);

  if Mnt <= Players[currentplayer].level[8] - EatAfter then
  begin
    if FindColorTolerance(x, y, FoodCol, MIx1, MIy1, MIx2, MIy2, 10) then
    begin
      Mouse(x, y, 5, 5, true);
    end;
  end;
end;

function pickeruper:boolean;
Var
  CTS, I: Integer;
  TPA: TPointArray;
  ATPA: Array of TPointArray;
begin
 if  (FindColorSpiralTolerance(x, y, PickitemColors, MSX1, MSY1, MSX2, MSY2, PickupTol)
       MMouse(x,y,3,3);
      Wait(200+random(50));
      if IsUpText('ake') then
    begin
      Result := True;
      GetMousePos(x, y);
      Break;
    end;
  end;
end;


procedure WaitWhileFight;
var
 WaitFight: integer;
begin
  MarkTime(WaitFight);
  while TimeFromMark(WaitFight) < TimePerKill * 1000 do
  begin
    EatIt;
    FindNormalRandoms;
    Break;
  end;
end;



begin
  SetupSRL;
    smartsetup('world101',true,true,false);
  SetTargetDC(SmartGetDC);
  SetupPlayer;
    DeclarePlayers;
  ActivateClient;
   LoginPlayer;
  MakeCompass('n');
  SetAngle(true);
  SetRun(True);
  GetAllLevels;
  GameTab(4);

      begin
      FindMonster;
      KillMonster;
      if PickupFeathers true; then PickupFeathers;
       Food;
      end;
    Logout;
    if Random(5) = 3 then
    if TakeBreak then
    Wait(BreakTime * 60000 + Random(60000));
    NextPlayer(true);
    MakeCompass('n');
    SetAngle(true);
    SetRun(True);
    GetAllLevels;
    GameTab(4);
        begin
      logout;
      if howManyPlayers = 1 then
        wait(random(60));
      nextplayer(true);
      LoginPlayer;
    end;
end.

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

I like to share scripts and like scripts to be shared. i also belive that people should pull their own weight and good scripters should only help those willing to help themselves. I think that i would contribute well to srl members and to help those who arn't srl members.

Good attitude! That's how I like to see it.

procedure AntiBanage;
begin
  case Random(10) of
    0:
      begin
        HoverSkill('mining', false);
        HoverSkillmining := HoverSkillmining + 1;
      end;

Could be:

Inc(HoverSkillmining);

You also have TPAs, DTMs… DTM Walking..

Good. Yes from me!

dont listen to laurens inc() is only faster on hispc everyone else's it's slower.
* DTMs / DDTMs yes.
* Decent complex working script. some places it's very basic others are complex
* FailSafes i think i saw one in there :P!
* MultiPlayer Check!
* Break out of potential endless loops Check!
* Standards! Required to get people read your script. can get messed up in places
* RadialWalk / DTM Walking yes

it's a yes from me
edit: eww… your a mank :P

Im not going to vote, but im just going to voice my opinion. Firstly, the script looks nice, you have your own custom tpas, ect. However, there is not walking in either of your scripts, and when making a custom tpa, its easy to copy and paste then put your own values in. If you could show me you have the ability to create a script that can walk, then you definatly have a yes from me.

Just my opinion, dont take it harshly,

-Blumblebee

thanks, its constructave and ill ill take it away and improve, and manchester is the future sandos1234 :P

From: blumblebee
there is not walking in either of your scripts,

He walks using the Red Dot color.

sorry, too simple imo. No. idk why you have 2 yes.. you only have 2 main proc in the bone 1.
no failsafes nothing…
and the autofighter is quite easy simple work.

be creative .

ok joker, what do u think i should do to make it better?

Edit: maybe its the dtm? or tpa? which box do i not tick?

From: ~~Joker~~
sorry, too simple imo. No. idk why you have 2 yes.. you only have 2 main proc in the bone 1.
no failsafes nothing…
and the autofighter is quite easy simple work.

be creative .

I voted no but couldn't think of a good enough reason to post until now. (Joker's post)

Sorry, no. Make ur scripts more complex, organize better, fix standards, create failsafes with timing, etc.

GL next time

rite ok, so what is ment be more complex?

idk either? he has most of the things in there that are needed, does the length of the script make up its complexity? actually read the script, he uses the stuff thats needed even in small amounts it's still there.
edit:he uses dtm walking?thats part of the checklist,

From: sandos1234
dont listen to laurens inc() is only faster on hispc everyone else's it's slower.

Oh really?

program New;
var
  I, A:Integer;
begin
  A:=GetSystemTime;
  repeat
    I:=I+1;
  until I = 100000
  Writeln(IntToStr(GetSystemTime - A));
  A:=GetSystemTime;
  Repeat
    Inc(I)
  until I >= 100000
  Writeln(IntToStr(GetSystemTime - A));
end.

Successfully compiled (45 ms)
250
0
Successfully executed

Inc is way faster

I vote yes. He has been contributing to the community for quite some time now. Though not releasing scripts, I'm sure he tests and loves to be part of the community. I think membership is a worthy reward, and i am glad to see that you did not make 1 big script, but two small. I like small helpers, full out autoing is much more dangerous anyways :D. you should see my collection of random private crap like that. Anyways, it is a good start for some scripts, and i believe you know the basics… You will learn dtms and tpas and all the fun stuff in time, as you need them. Good luck bro. Yes from me.

cause me loves u.

Improve, I like you, your attitude, your scripts.. not so much.

Work on the autofighter. :) Give Narcle something to contend with ;).

well on mine it's slower and on lots of others, so idk :P
edit:of course it is :p youve not resetes i after the first one :P

Successfully executed
Successfully compiled (43 ms)
203
219

program New;
var
  I, A:Integer;
begin
  A:=GetSystemTime;
  repeat
    I:=I+1;
  until I = 100000
  Writeln(IntToStr(GetSystemTime - A));
  A:=GetSystemTime;
  I:=0;//myles is fail
  Repeat
    Inc(I)
  until I >= 100000
  Writeln(IntToStr(GetSystemTime - A));
  WriteLn('sandos1234 ftw');
end.

From: Nava2
Improve, I like you, your attitude, your scripts.. not so much.

Work on the autofighter. :) Give Narcle something to contend with ;).

thanks a lot, ill be sure to work on it a lot more now.

Edit: added pick up to fighter.

Double Edit: how long do polls last for?

Sandos, get back on topic, the difference is millisecs…

Successfully compiled (78 ms)
203
172
sandos1234 ftw
Successfully executed

Jake, This poll will close on 10-18-2008 at 10:44 PM

sorry :p but actually the admin decides it could be earlier depending on the difference in votes

I voted no,
Mainly because You lack of failsafes and the scripts are very easy.
Also.. you flame/spamm a lot on the forums, and your grammar isn't the best;)
Improve your attitude and scripting skills and next time (if that is needed) I will vote yes:)

Good luck man,

PvH

From: PvH
I voted no,
Mainly because You lack of failsafes and the scripts are very easy.
Also.. you flame/spamm a lot on the forums, and your grammar isn't the best;)
Improve your attitude and scripting skills and next time (if that is needed) I will vote yes:)

Good luck man,

PvH

:O flame and spam?

ok il take it with a pintch of salt.

From: jakeyboy29
:O flame and spam?

ok il take it with a pintch of salt.

i almost voted no because of that comment, but i looked over your scripts and changed my mine.

Yes.

tbh Jakey has a gr8 attitude. i like him a lot, helped him a bit.

keep it up, i know for sure if not this time next time hell yes.

Yes

*bumpiebump*?

From: mariofan12
i almost voted no because of that comment, but i looked over your scripts and changed my mine.

Yes.

u do kno what it means? it means ill try harder.

Actually it means "to take something not too serious"… (atleast in Dutch, Enlish is such a weird language:p

From: jakeyboy29
u do kno what it means? it means ill try harder.

"It's interesting to read the reports in the newspapers, but I tend to take them with a grain of salt"

-> To not take something very serious.

That's what it means.

yeh, it means, also ill take it in, but not take it personaly.

yeah hope your in dude :), i like your attitude and your scripting is quite basic and leaning to toward average.

so if i could i would change my vote :)
GL

Let's take it as an 11-5? :)

Yes.



-Ashur

how long is left now before its decided?

tomorrow it will be closed congrats on ur membership
:)

i am looking forward to it, its not over till the fat lady sings.

Welcome, sir.