SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
RiD Sig. Forgot Exact Name


What is your general programming knowledge?
A wee bit of C++, Java


Are you a member of any other communities?
RiD, Powerbot, Gamekiller, rsbuddy.


Tell us about yourself…

From: Supertrent1
Hi, I'm Trent. I play club soccer for a club called SCDelSol. I have recently gotten into coding and am hoping for member's so I can help myself, and other advance. I am 14 and Live in Phoenix, AZ.

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

Program SuperPowerChopper;

{.include/SRL/SRL.simba}
{.include SRL/SRL/Misc/SMART.simba}
{.include SRL\SRL.simba}
{.Include SRL\SRL\Misc\Debug.simba}

const
  SmartWorld = 15;              // Which World/Server do you want to use?
  SmartMembers = True;     //  Is it a Members World?
  SmartSigned = True;         //  Signed/UnSigned Client?
  SmartSuperDetail = False;    //  Use Super Detail?
  Version           = '1.0';
  NumbOfPlayers     = 1;
  StartPlayer       = 0;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Nick := ''; //4 character Nickname for you character
  Players[0].Active := True;
  Players[0].Pin := ''; //Pin, leave blank if none
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

Procedure Antiban; //Antiban, Credits to YoHo
Begin
  Case Random(192) Of
    0: HoverSkill('Woodcutting', False);  //skill
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
  End;
End;

function TreeColor: Integer; //Credits To ACA
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 3030597, MMX1, MMY1, MMX2, MMY2, 29);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToHSL(arC[i], H, S, L);

    if (H >= 9.78) and (H <= 12.20) and (S >= 19.28) and (S <= 20.77) and (L >= 16.65) and (L <= 28.45) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 2.53) and (X <= 7.51) and (Y >= 2.60) and (Y <= 7.94) and (Z >= 1.86) and (Z <= 5.16) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;
Function ChopDown:Boolean; //The Main Function, the chopping of the trees
Var
  x, y , PlusOne, TreeCounter: Integer;

Begin;
  PlusOne:= InvCount + 1
  x:= MSCX;
  y:= MSCY;
  If FindObjTPA(x, y, TreeColor, 3, 1, 15, 80, 600, ['Chop'])  Then
Begin
   StatsGuise('Horay, We found a tree');
   Case Random(2) Of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
        Mouse(x, y, 5, 5, False);
        Wait(100+Random(100));
        WaitOption('Chop', 500);
         End;

    end;

      Flag;

    MarkTime(TreeCounter);

    Repeat;
    FindNormalRandoms;
    StatsGuise('Antiban, Please wait!');
      Antiban;
      wait(1000);
     Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 3500)


  End;

End;
Procedure DropLogs;
Var
  x, y, LogDTM, I:Integer;
  SlotBox:TBox;
  LogPattern:TIntegerArray;

Begin

    LogDTM := DTMFromString('mwQAAAHic42RgYHBmYmBwBGIfIA4EYicgNgZiEyA2B2IvIH4KVHcbiB8D8Ssgfg/Ebxgg4neB+CYQe5rJA0kmDOxmKAqmbXSlGAiB/0DMSASGAwDH/w0r');
    LogPattern:=[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];
    StatsGuise('Dropping All Your Logs!');
    For I:=0 To 27 Do
    Begin
      FindNormalRandoms;
      SlotBox:=InvBox(LogPattern[I]);
      If FindDtm(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
      Begin
        MouseItem(LogPattern[I], MOUSE_RIGHT);
        ChooseOption('Drop');
      End;
    End;

    FreeDTM(LogDTM);


End;





Begin
  DeclarePlayers;
  Smart_Server := SmartWorld;
  Smart_Members := SmartMembers;
  Smart_Signed := SmartSigned;
  Smart_SuperDetail := SmartSuperDetail;
  SetupSRL;
  If not (LoggedIn) then
LoginPlayer;
TreeColor;

repeat
  ChopDown;
  if InvFull Then
    DropLogs;
  Until (false);

end.                                   

program SuperPowerMiner;

{.include/SRL/SRL.simba}
{.include SRL/SRL/Misc/SMART.simba}
{.include SRL\SRL.simba}
{.Include SRL\SRL\Misc\Debug.simba}

const
  SmartWorld = 15;              // Which World/Server do you want to use?
  SmartMembers = True;     //  Is it a Members World?
  SmartSigned = True;         //  Signed/UnSigned Client?
  SmartSuperDetail = False;    //  Use Super Detail?
  Version           = '1.0';
  NumbOfPlayers     = 1;
  StartPlayer       = 0;

  procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Active := True;
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

Procedure Antiban; //Antiban, Credits to YoHo
Begin
  Case Random(192) Of
    0: HoverSkill('Woodcutting', False);  //skill
    1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
    2: ExamineInv;
    3: RandomAngle(1);
    4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
    5: HoverSkill('random', False);
  End;
End;

function OreColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.01, 1.88);

  FindColorsSpiralTolerance(960, 540, arP, 2912994, 0, 0, 1920, 1080, 12);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 160) and (R <= 254) and (G >= 91) and (G <= 145) and (B >= 48) and (B <= 78) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 19.06) and (X <= 51.84) and (Y >= 15.44) and (Y <= 41.39) and (Z >= 4.86) and (Z <= 12.30) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

function MineOre:Boolean;
Var
  x, y , PlusOne, OreCounter: Integer;
  Begin;
  PlusOne:= InvCount + 1
  x:= MSCX;
  y:= MSCY;
  If FindObjTPA(x, y, OreColor, 3, 1, 12, 1, 1, ['Mine'])  Then
  Begin
   Case Random(2) Of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
        Mouse(x, y, 5, 5, False);
        Wait(100+Random(100));
        WaitOption('Mine', 500);
         End;

    end;

       Flag;

    MarkTime(OreCounter);

    Repeat;
    FindNormalRandoms;
      Antiban;
      wait(1000);
     Until (InvCount=PlusOne) Or (TimeFromMark(OreCounter) > 7500)


  End;

End;

Procedure DropOre;
Var
  x, y, OreDTM, I:Integer;
  SlotBox:TBox;
  OrePattern:TIntegerArray;

Begin

    OreDTM := DTMFromString('mrAAAAHic42BgYFjGxMCwBIjXA/FCIJ4CxLOAeBOUTmdkYIgC4kwgLgHiVCCOh+I8IN6fa8VgoKAANIkJA0PE8QNGAhgGAIeSCrw=');
    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;
      SlotBox:=InvBox(OrePattern[I]);
      If FindDtm(OreDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
      Begin
        MouseItem(OrePattern[I], MOUSE_RIGHT);
        ChooseOption('Drop');
      End;
    End;

    FreeDTM(OreDTM);


End;









begin
  DeclarePlayers;
  Smart_Server := SmartWorld;
  Smart_Members := SmartMembers;
  Smart_Signed := SmartSigned;
  Smart_SuperDetail := SmartSuperDetail;
  SetupSRL;
  If not (LoggedIn) then
LoginPlayer;
OreColor;

repeat
  MineOre;
  if InvFull Then
    DropOre;
  Until (false);

end.

end.                                  

Edit: fixed up power chopper. Added Power Miner. (Both use SMART now :p)

Edit2: Fixed up PowerMiner Colors and made it a whole lot faster and more efficient!

Too simple, function's from other script's, didn't credit. TreeColor from ACA. Idno what percentage of this code is yours but it seems like it's not enough to get you into members.

From: pur3b100d
Too simple, function's from other script's, didn't credit. TreeColor from ACA. Idno what percentage of this code is yours but it seems like it's not enough to get you into members.

:'( I was really hoping for members so I could learn how to script better D: but if I'm undeserving I understand :frusty:

From: Supertrent1
:'( I was really hoping for members so I could learn how to script better D: but if I'm undeserving I understand :frusty:

:duh:
you don't need to be a member to learn how to script better

http://villavu.com/forum/forumdisplay.php?s=&daysprune=-1&f=95
http://villavu.com/forum/forumdisplay.php?s=&daysprune=-1&f=96
http://villavu.com/forum/forumdisplay.php?s=&daysprune=-1&f=97

work your way through them, make sure to look at the stickied thread's

From: Supertrent1

//{$DEFINE SMART}
{.include SRL\SRL.simba}
{.Include SRL\SRL\Misc\Debug.simba}
//{$i SRL/SRL.simba}
//{$i srl/srl/misc/smart.simba}

If you post a script for members, please remove any unused include instead of commenting a few out..

const
  Version           = '1.0 Alpha';

A powerchopper is a simple task for simba. Why would you app with a alpha version of a simple script? A powerchopper should be amazing.

  NumbOfPlayers     = 1;

Using NumbOfPlayers, yet you don't use it in DeclarePlayers? Unneeded

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);

As mentioned above…

  CurrentPlayer := 0;

Same story for this variable.

Procedure StatsGuise(wat:String);
Begin
  Status(wat);
  Disguise(wat);
End;

I do not think that this function should be used. It only sets two other functions.. But the name is also bad.. really bad.

function TreeColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.10, 0.17);

  FindColorsSpiralTolerance(MMCX, MMCY, arP, 3162183, MMX1, MMY1, MMX2, MMY2, 3);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 3.03) and (X <= 7.51) and (Y >= 3.21) and (Y <= 7.94) and (Z >= 2.19) and (Z <= 5.16) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;

Always credit ACA…

Function ChopDown:Boolean;
Var
  x, y , PlusOne, TreeCounter: Integer;

Begin;
  PlusOne:= InvCount + 1
  x:= MSCX;
  y:= MSCY;
  If FindObjTPA(x, y, TreeColor, 3, 1, 15, 80, 600, ['Chop'])  Then
Begin
   StatsGuise('Horay, We found a tree');
   Case Random(2) Of
    0: Mouse(x, y, 5, 5, True);
    1: Begin
        Mouse(x, y, 5, 5, False);
        Wait(100+Random(100));
        WaitOption('Chop', 500);
         End;

    end;

      Flag;

    MarkTime(TreeCounter);

    Repeat;
    FindNormalRandoms;
    StatsGuise('Antiban, Please wait!');
      Antiban;
      wait(1000);
     Until (InvCount=PlusOne) Or (TimeFromMark(TreeCounter) > 3500)


  End;

End;
Procedure DropLogs;
Var
  x, y, LogDTM, I:Integer;
  SlotBox:TBox;
  LogPattern:TIntegerArray;

Begin

    LogDTM := DTMFromString('mwQAAAHic42RgYHBmYmBwBGIfIA4EYicgNgZiEyA2B2IvIH4KVHcbiB8D8Ssgfg/Ebxgg4neB+CYQe5rJA0kmDOxmKAqmbXSlGAiB/0DMSASGAwDH/w0r');
    LogPattern:=[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];
    StatsGuise('Dropping All Your Logs!');
    For I:=0 To 27 Do
    Begin
      FindNormalRandoms;
      SlotBox:=InvBox(LogPattern[I]);
      If FindDtm(LogDTM, x, y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
      Begin
        MouseItem(LogPattern[I], MOUSE_RIGHT);
        ChooseOption('Drop');
      End;
    End;

    FreeDTM(LogDTM);


End;





Begin
  SetupSRL;
  DeclarePlayers;
repeat
  ChopDown;
  if InvFull Then
    DropLogs;
  Until (false);

end.

Just to simple overall.. Few failsafes. No comments. Nothing impressive..

I like power chopper scripts and I see you did some effort in writing this script. But I personally expect more from a member app. You should post it in the script section get feedback and expand it. I would like too see you back with a more advanced chop and bank script or like wise in the future ;).

Protip: Use comments when you ask other people to view your script. Makes it easier for you and others.

No based what others said, but stupid phone chose yes :p

From: Kyle Undefined
No based what others said, but stupid phone chose yes :p

Because you phone is smart :p

I revised the script, included smart, fixed up the colors and some other including comments and fixing DeclarePlayers;, Can I edit my main thread and have you guys re-look at the thread and you might just change you mind? :p

Go ahead.

From: RISK
Go ahead.

Re-Pasted. Please look through and tell me what I should or need to change.

I hope this shows I am willing to learn and adapt to whatever I need to :p

UPDATES:
Added Powerminer. Fixed up Powerchopper.

So I grabbed this part of the sentence out of context for funsies:

From: Supertrent1
I am willing to learn and adapt to whatever I need to :p

Okay then, I will go ahead and list a few things that would mean a 99% yes from me if they are implemented properly.

More advanced object finding with sorting, width/height checks or any other method to narrow down the TPAs to those that we really want. That said of course ATPAs.
Walking to bank with the use of DDTMs, maybe simple DTMs, TPAs, RadialWalk most importantly, I would love it absolutely.
Then banking handled nicely.
All the shiny things to see how you do it: progress reports, breaking system, multiplayer, things like those.
A much more precise mining function taking care of other players starting to mine your rock and other unlucky cases. (Tracking of object = yes, but that would be too much, wouldn't it? :))

So I may have missed something, but aside from that these are the things that would cause me not to care about your activity/longevity/how much I know you.

Of course these are big jumps compared to your current scripts, but those makes a script member worthy imo.

p.s.: I have not voted.

From: Sabzi
So I grabbed this part of the sentence out of context for funsies:


Okay then, I will go ahead and list a few things that would mean a 99% yes from me if they are implemented properly.

More advanced object finding with sorting, width/height checks or any other method to narrow down the TPAs to those that we really want. That said of course ATPAs.
Walking to bank with the use of DDTMs, maybe simple DTMs, TPAs, RadialWalk most importantly, I would love it absolutely.
Then banking handled nicely.
All the shiny things to see how you do it: progress reports, breaking system, multiplayer, things like those.
A much more precise mining function taking care of other players starting to mine your rock and other unlucky cases. (Tracking of object = yes, but that would be too much, wouldn't it? :))

So I may have missed something, but aside from that these are the things that would cause me not to care about your activity/longevity/how much I know you.

Of course these are big jumps compared to your current scripts, but those makes a script member worthy imo.

p.s.: I have not voted.

I'm going out right now, but I will try to implement these to the best of my ability when I get home. the thing I really have to work on is walking to the bank from where I am. I will get it soon though :)

Good start, amazing attitude and a lot better than any of the other applications I just looked at.

I'm giving you a yes :)

Try and make your own object finding function instead of use FindObj/ACA

Always remember to credit where you take from :)

Also one thing I really think is important is being community focused, you have 51 posts. Which isn't bad, but I really have not seen you. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted. I know you have it in you to become an SRL member! :D

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Try to follow this guide (SRL members guide):
http://villavu.com/forum/showthread.php?t=27435
http://villavu.com/forum/showthread.php?t=3562

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Anyway, sorry for the roughness. Good luck.

From: R4nd0m
Always remember to credit where you take from :)

Also one thing I really think is important is being community focused, you have 51 posts. Which isn't bad, but I really have not seen you. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted. I know you have it in you to become an SRL member! :D

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Try to follow this guide (SRL members guide):
http://villavu.com/forum/showthread.php?t=27435
http://villavu.com/forum/showthread.php?t=3562

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Anyway, sorry for the roughness. Good luck.

But the point is, I HAVE been. I joined this forum literally like 3-4 days ago. I have been helping people and learning more everyday. I made my first ever Simba script 2 days ago and have already advance to making a flawless power miner. 51 post's in 3 days isn't bad and if I keep going like this I'm be one of the most active members in the community. Doesn't dedication and perseverance like that deserve to have an official place in the "members" category? (note, I mean by being active, In the last 3-4 days I have actually made a difference. Before all I did was leech and use the scripts. Now I am making and even helping other make their own! I have helped some people with parts of their scripts and other have helped me with my own). I don't know what make you guys think I am deserving but whatever it is, I shall do it! :p
TL;DR: I have been really trying to not be a leech!

From: Hobbit
Good start, amazing attitude and a lot better than any of the other applications I just looked at.

I'm giving you a yes :)

You my friend, are a true believer :)

From: Supertrent1
But the point is, I HAVE been. I joined this forum literally like 3-4 days ago. I have been helping people and learning more everyday. I made my first ever Simba script 2 days ago and have already advance to making a flawless power miner. 51 post's in 3 days isn't bad and if I keep going like this I'm be one of the most active members in the community. Doesn't dedication and perseverance like that deserve to have an official place in the "members" category? (note, I mean by being active, In the last 3-4 days I have actually made a difference. Before all I did was leech and use the scripts. Now I am making and even helping other make their own! I have helped some people with parts of their scripts and other have helped me with my own). I don't know what make you guys think I am deserving but whatever it is, I shall do it! :p
TL;DR: I have been really trying to not be a leech!

Ah I see well slow and steady wins the race, I want to see you continue in being active. Many people start off strong then die out, I will continue to look out for your posts etc. :)

From: R4nd0m
Ah I see well slow and steady wins the race, I want to see you continue in being active. Many people start off strong then die out, I will continue to look out for your posts etc. :)

Will do Capt'.

Then again… There is the question of spam…

Voted no, the scripts are just way too simple. Not like it really matters at this point.

From: S1N
Then again… There is the question of spam…

Go check my scripts if you like. I tried to be helpful in every post i post.

From: Supertrent1
Go check my scripts if you like. I tried to be helpful in every post i post.

http://villavu.com/forum/showthread.php?p=911449#post911449

http://villavu.com/forum/showthread.php?p=909862#post909862

http://villavu.com/forum/showthread.php?p=910616#post910616


Only from the first page :s

From: Sin
http://villavu.com/forum/showthread.php?p=911449#post911449

http://villavu.com/forum/showthread.php?p=909862#post909862

http://villavu.com/forum/showthread.php?p=910616#post910616


Only from the first page :s

1st one, made a dumb mistake on the page before that, saying I'm sorry for asking such a simple question.

2nd one, saying that I had completed what he had asked for and the script was ready to use.

3rd one, assuring him I'm going to stay active, learn to script better, and help the community more.

Now, do any of those sound like spamming?

I hope you had fun wasting your own time :spot:

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