SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal,Pascal-Script


Are you a member of any other communities?
Yes I am a member of The sythe runescape forum and a few others.


Tell us about yourself…

From: Omar
Well, My name is Omar and I am from the country Syria. I was first introduced to scripting by a friend who scripted for Powerbot. And I immediately wanted to learn how to script some private scripts for myself most of the scripts that I have make work and I will include 3 of them in this application.
I honestly like this forum and I hope you will allow me to achieve srl members status.

Please show us one (or multiple) of your scripts.

1-  I have a copper powerminer start it   
   anywhere near a copper ore.


 2-  I have a tea stealer Start it next to the tea stall next to aurbury's rune shop.

3- Omar's resource dung miner. This script mines in the resource dung that requires 15 dung to enter. The resource dung is located inside the falador mine.
[SIMBA]Program OmarsDungCoalMiner;

  {$i srl/srl/misc/smart.scar}
  {$i SRL\SRL.scar}
  {$i SRL\SRL\Misc\Stats.simba}

  Const
    SRLStats_Username = '';// Your SRL Stats Username
    SRLStats_Password = '';// Your SRL Stats Password
    BreakEvery        = 180;    //How Many Minutes To Break After
    BreakFor          = 5;      //How Long To Break For
    Version           = '1.0';
    NumbOfPlayers= 1;     //How many players are you using
    StartPlayer=   0;     //Player to start autoing with! (0 means first char)

  Var
    TooLong:Integer;

procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i:= 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['XP','xp','lamp'];

  with Players[0] do
  begin
    Name         := '';    //Player Username.
    Pass         := '';    //Player Password.
    Nick         := '';    //Player nickname - 3-4 letters of Player username.
    Active       := True;
    Integers[1]  := 4;     //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
    Integers[2]  := 4;     //Seconds to try mining rock before clicking another.
  end;

end;


procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 123;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;

Procedure StatsGuise(wat:String);
begin
  Status(wat);
  Disguise(wat);
end;


Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Mining', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); End;
  End;
End;

Procedure GhettoWalkToDepo;
  Begin
    Mouse(558, 65, 5, 5, true);
    Wait(10000);
    Mouse(595, 73, 5, 5, true);
    Wait(7000);
  End;

Procedure GhettoWalkToRock;
  Begin
    Mouse(687, 99, 5, 5, true);
    Wait(10000);
    Mouse(672, 81, 5, 5, true);
    Wait(7000);
  End;

Function Banking: Boolean;
var
  X, Y, T:integer;
begin
  if not LoggedIn then
  Exit;
  Result:= false;
  repeat
    SetAngle(true);
    OpenDepositBox;
begin
  result := false;
  If(not(LoggedIn)) then exit;
  begin
    if FindObjTPA(x, y, 7108477, 10, -1, 30, 30, 200, ['deposit']) then
    begin
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, True);
      Result := True;
      T :=0;
      repeat
        Inc(T);
        Wait(500+random(500));
      until (DepositScreen) or (T>=30);
    end else
    Writeln('Could not find the deposit box');
  end;
end;
    Wait(Random(700));
    until DepositScreen;
      if DepositScreen then
        begin
          DepositAll;
          CloseWindow;
          Result:= true;
        end else
          begin
            Exit;
          end;
end;

Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  Writeln(Reason);
  TerminateScript;
End;

Function MineRock:Boolean;
Var
  X, Y, PlusOne, TreeCounter: Integer;
Begin
  MarkTime(TooLong);
  FindNormalRandoms;
  PlusOne:= InvCount +1;
  MakeCompass('N');
  SetAngle(true);
  If FindObj(x,y,'Rock',1069423,10) then
  x:=MSCX;
  y:=MSCY;
  Begin
    StatsGuise('Hooray, we mined a rock');
    GetMousePos(x, y);
      Begin
        Mouse(X, Y, 5, 5, False);
        WaitOption('Mine', 500);
      End;
  End;

    Flag;
    MarkTime(TreeCounter);
    If (TimeFromMark(TooLong) > 30000) Then
    FailSafe('Could Not Find Rock');

    Repeat
      If (TimeFromMark(TooLong) > 30000) Then
      FailSafe('Could Not Find Rock');
      FindNormalRandoms;
      StatsGuise('AntiBan and Waiting');
      Antiban;
      Wait(1000);
      If InvCount=PlusOne Then
      WriteLn('We Got One');
    Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 5000)
End;

Begin
  SetupLogin;
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  Repeat
    MineRock;
    If InvFull Then
    Begin
    GhettoWalkToDepo;
    Banking;
    GhettoWalkToRock;
    End;
  Until(false);

End.         

Program OmarsPowerMiner;

  {$i srl/srl/misc/smart.scar}
  {$i SRL\SRL.scar}
  {$i SRL\SRL\Misc\Stats.simba}

  Const
    SRLStats_Username = 'badreddine';// Your SRL Stats Username
    SRLStats_Password = '444360';// Your SRL Stats Password
    BreakEvery        = 0;    //How Many Minutes To Break After
    BreakFor          = 0;      //How Long To Break For
    Version           = '1.0';
    NumbOfPlayers= 1;     //How many players are you using
    StartPlayer=   0;     //Player to start autoing with! (0 means first char)

  Var
    TooLong:Integer;

procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i:= 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['XP','xp','lamp'];

  with Players[0] do
  begin
    Name         := '';    //Player Username.
    Pass         := '';    //Player Password.
    Nick         := '';    //Player nickname - 3-4 letters of Player username.
    Active       := True;
    Integers[1]  := 4;     //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
    Integers[2]  := 4;     //Seconds to try mining rock before clicking another.
  end;

end;


procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 123;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;


Procedure StatsGuise(wat:String);
begin
  Status(wat);
  Disguise(wat);
end;


Procedure Antiban;
Begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Mining', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); End;
  End;
End;

Procedure FailSafe(Reason:String);
Begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  Writeln(Reason);
  TerminateScript;
End;

Function MineRock:Boolean;
Var
  X, Y, PlusOne, TreeCounter: Integer;
Begin
  MarkTime(TooLong);
  FindNormalRandoms;
  PlusOne:= InvCount +1;
  If FindObj(x,y,'Rock',3894976,10) then
  x:=MSCX;
  y:=MSCY;
  Begin
    StatsGuise('Hooray, we mined a rock');
    GetMousePos(x, y);
    Case Random(2) Of
      0: Mouse(X, Y, 5, 5, True);
      1: Begin
           Mouse(X, Y, 5, 5, False);
           WaitOption('Mine', 500);
         End;
    End;

    Flag;
    MarkTime(TreeCounter);
    If (TimeFromMark(TooLong) > 30000) Then
    FailSafe('Could Not Find Rock');

    Repeat
      If (TimeFromMark(TooLong) > 30000) Then
      FailSafe('Could Not Find Rock');
      FindNormalRandoms;
      StatsGuise('AntiBan and Waiting');
      Antiban;
      Wait(1000);
      If InvCount=PlusOne Then
      WriteLn('We Got One');
    Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 7000)


  End;
End;

Procedure DropOres;
var
  X, Y, OreDTM, I:Integer;
  SlotBox:TBox;
  OrePattern:TIntegerArray;

Begin
  MarkTime(TooLong);
  OreDTM := DTMFromString('mbQAAAHicY2VgYHBmYmAwB2ITIPYDYl8gvg8UvwvEb4H4NRDfYgABJiwYEzBiwWAAANnbBdY=');
  OrePattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28]

  For I:=0 To 27 Do
Begin
  FindNormalRandoms;
  StatsGuise('Dropping Ore:' + IntToStr(I));
  SlotBox:=InvBox(OrePattern[I]);
  If FindDTM(OreDTM,x,y,SlotBox.X1,SlotBox.Y1, SlotBox.X2,SlotBox.Y2) Then
  Begin
    MouseItem(OrePattern[I],False);
    ChooseOption('Dro');
  End;
End;
  MarkTime(TooLong);
End;


Begin
  SetupLogin;
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  Repeat
    MineRock;
    If InvFull Then
      DropOres;
  Until(false);

End.                                           

Program OmarTeaStealer;

  {$i srl/srl/misc/smart.scar}
  {$i SRL\SRL.scar}
  {$i SRL\SRL\Misc\Stats.simba}

  Const
    SRLStats_Username = '';// Your SRL Stats Username
    SRLStats_Password = '';// Your SRL Stats Password
    BreakEvery        = 180;    //How Many Minutes To Break After
    BreakFor          = 5;      //How Long To Break For
    Version           = '1.0';
    NumbOfPlayers= 1;     //How many players are you using
    StartPlayer=   0;     //Player to start autoing with! (0 means first char)

  Var
    TooLong:Integer;
    Count:Integer;
    Exp: Extended;

Procedure DeclarePlayers;
Var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i:= 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['XP','xp','lamp'];

  with Players[0] do
  begin
    Name         := '';    //Player Username.
    Pass         := '';    //Player Password.
    Nick         := 'omar';    //Player nickname - 3-4 letters of Player username.
    Active       := True;
  end;
end;

Procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 123;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;

Procedure StatsGuise(wat:String);
begin
  Status(wat);
  Disguise(wat);
end;

Procedure Antiban;
begin
  Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('thieving', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); End;
  end;
end;

Procedure FailSafe(Reason:String);
begin
  Players[CurrentPlayer].Loc:=Reason;
  Logout;
  Stats_Commit;
  Writeln(Reason);
  TerminateScript;
end;

Function StealTea:Boolean;
Var
  X, Y, PlusOne, TreeCounter: Integer;
Begin
  SetAngle(true);
  MarkTime(TooLong);
  FindNormalRandoms;
  PlusOne:= InvCount +1;
  IncEx(Count, 1);
  If FindObj(x,y,'Ste',13821939,5) then
  begin
    StatsGuise('Hooray, We Stole');
    GetMousePos(x, y);
    begin
      Mouse(X,Y, 5, 5, False);
      WaitOption('Ste', 500);
End;
  End;
    Flag;
    MarkTime(TreeCounter);
    If (TimeFromMark(TooLong) > 30000) Then
    FailSafe('Could Not Steal');

       repeat
      If (TimeFromMark(TooLong) > 30000) Then
      FailSafe('Could Not Steal');
      FindNormalRandoms;
      StatsGuise('AntiBan and Waiting');
      Antiban;
      Wait(1000);
      until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 5000)
    end;

 Procedure DropTea;
Var
  X, Y, TeaDTM, I:Integer;
  SlotBox:TBox;
  TeaPattern:TIntegerArray;
begin
  MarkTime(TooLong);
  TeaDTM := DTMFromString('mbQAAAHicY2VgYIhkZmCIBuJcIM4H4mwgjmFkYCiE4nQgjgBiBgYmLBgTMGLBYAAAZNAEIQ==');
  TeaPattern:=[1,5,9,13,17,21,25,2,6,10,14,18,22,26,3,7,11,15,19,23,27,4,8,12,16,20,24,28]

  For I:=0 To 27 Do
begin
   FindNormalRandoms;
  StatsGuise('Dropping Tea:' + IntToStr(I));
  SlotBox:=InvBox(TeaPattern[I]);
  If FindDTM(TeaDTM,x,y,SlotBox.X1,SlotBox.Y1, SlotBox.X2,SlotBox.Y2) Then
  begin
     MouseItem(TeaPattern[I],False);
    ChooseOption('Dro');
    IncEx(Count, 1);
      end;
end;
  MarkTime(TooLong);
end;

Procedure Report;
begin
  Exp := 16;
  ClearDebug;
    WriteLn('==================================================');
    WriteLn('============ Tea Stealer - By Omar ============');
    WriteLn('Time Running: '+ TimeRunning);
    WriteLn('Thieving EXP: '+ FloatToStr(Count * Exp) + ' ');
    WriteLn('Tea Cups Stolen: ' +ToStr(Count)+ ' ');
    WriteLn('======== Post Your Reports On The Thread =========');
    WriteLn('==================================================');
  FindNormalRandoms;
end;

begin
 SetupLogin;
 SetupSRL;
 DeclarePlayers;
 ActivateClient;
  repeat
    Report;
    StealTea;
    If InvFull Then
    DropTea;
  until(false);
end.
                                 

Please could you put the scripts in tags :)

I put it in tags or do you want me to actually take the script code and put it in tags?

Holding my vote, please post your scripts in

tags.

None of these scripts have been release here by Omar.(That i can find, no public thread he created at least…)
I'm hesitant, YoHoJo, any word?

Holding vote, leaning towards a no.

Wait..You want me to release them as a public script first? I didn't know I had to do that. But Ok I'm putting the script's in tags now.

Ok I fixed it and put it in the correct format. I am hoping not everyone is going to vote no :/.

From: Omar
Wait..You want me to release them as a public script first? I didn't know I had to do that. But Ok I'm putting the script's in tags now.

No, you don't HAVE to.
Just contributing to the community tips the scale more.

Sorry, your scripts are a bit too simple, and you're not very active.

It's Ok :/ I guess I should be more active I guess.

Ok Well It seems the chance of me even getting near srl members is very slim so I guess I'll just release the scripts to the public after this voting is done.

Your scripts are a little basic, but you're progressing! Can see you used YoHoJo's tutorial to learn :)

As others have said, work on activity and complexity.
voting no. Try a few other things besides just DTM's. Only using DTM's can develop bad habits…

Voting no as its tool simple as FootBall Said.
Try TPA's :)
Mar

It's yes from me, even they are little bit simple.
I have faith in you :) Don't let me down :)


~Home

I value creativity highly. Make something that has not been made yet.

Thank's alot home :) I appreciate it alot even If I don't get srl members :p. And I will Attempt at using other things :p.

From: mika
I value creativity highly. Make something that has not been made yet.

That's all well and good, but he can make whatever he wants. We're not basing our votes off whether or not a script has been made before. If he found a brand new method that made 20m an hour and his code looked like it does, I'd still vote no.

I'm just saying. Power miners are way too simple.

That's why I submitted 2 other scripts =.=…And the resource miner banks.

Good enough for me! Yah.

Thank's alot WT it makes me feel good that a person of your stature said yes :p.
Also how many SRL members in total are there?

I voted no because:
I don't see any findColor function used. It seems you rely on findObj which is a great function but I would be surprised if it was the best method in all these situations. It also shows simple logic and no sexy functions. I can't really see if you are a good scripter.

I do like your script and your looking in the right direction. I'm waiting for your next script where hopefully more advanced scripting is used.

Thank's for the feedback and I shall try to use some other functions, Also I have a few more scripts on the way am I restricted to a specific amount of applications per month?

at least 2 weeks between them

The poll has closed and you didn't quite make it this time. Please take the suggestions made here and read some more in the tutorial section and improve your script. You may reapply in 4 weeks time.


Cheers
Hobbit