SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal
C#
Java (A Little)


Are you a member of any other communities?
Moderator (Eric Clapton) at Runedream


Tell us about yourself…

From: xtrapsp
Originally Posted by xtrapsp
I own various websites, I code for my stepdad. I work with films and at the moment am working for Michelle Wraight who is making her first Feature Film.

I work at KFC, Although I want to move up in the world (Obviously haha)

My interests are:
Helping others. I make RS guides etc
Shooting films.
Writing films.
Studying a films cinematography and other aspects such as Mise én scene and sound

I own:
http://bradsblog.co.uk/
http://cheapseo4u.co.uk/


This is actually my second attempt of SRL and looking back I can see why I was rejected.. I hadn't done much and I was still learning.

Now, however I've pushed myself. I've made a flawless Ivy chopper (which after my next few releases I will add banking to(Bank nests for those who use the crash smart)).

I have 3 scripts in the making. 2 of which are requested.

I've also grown fond of the community here… that making it one of my hobbies. I often converse with various members here when talking about scripting. Most of which are new because I hang around in the Help section every now and again

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

http://villavu.com/forum/showthread.php?t=75528     - Flawless

[url]http://villavu.com/forum/showthread.php?t=76595[/url]     - Requested however still in early stages  ( I work on this when I get frustrated with other scripts)

[url]http://villavu.com/forum/showthread.php?t=76315[/url]      - Not released to public yet, however RISK has seen parts of it

Scripts:

XtraIvy - FLAWLESS

program xtraivy;

{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL/SRL/skill/woodcutting.simba}
{include SPS/SPS.simba}
  {♠===================================================================♠

     Instructions:
     1. Start by IVY (This script was written for CastleWars but it should work
          elsewhere.
     2. Make sure hatchet is equiped
     3.Leave bot to work it's magic
     4. Check every now and again as Simba hasn't done all Randoms!

      ♠XtraIVY♠

      ♠Release Date♠: 17/02/2012

      ♠Author♠: xtrapsp

      ♠Support♠: [url]http://villavu.com/forum/showthread.php?t=75528[/url]

    Changelog:
      23/02/2012 - Changed around with the Nest Settings
      20/02/2012 - Cleaned up script a bit + Setup script for addons
      17/02/2012 - Chopping done.
      18/02/2012 - Added Various antiban.
      19/02/2012 - Added elements which aren't in use yet.


  ♠===================================================================♠}

 Const
 SRLStats_Username = '';
 SRLStats_Password = '';
 NumbOfPlayers=      1;
 StartPlayer=        0;
 Debug = True;


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer  := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin  := '';
    BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
    Member := True;
    Active := True;
  end;
end;

Procedure AFK;
begin
  if not loggedIn then Exit;
    Case Random (100) Of
    1..15 : Wait(1000 + Random (3050));
    16..24 : Wait (1340 + Random (1093));
    25..45: Wait (1211 + Random (6000));
    46..47: Wait (20000 + Random (10000)); // This looks like you've gone to get a drink
    end;
end;

function MyFindBirdsNest: Boolean; // Modified from VineVanguisher
var
  x, y, i: Integer;
  TileArray: array [0..5] of TPoint;
  BirdLine, ChopLine: Integer;
begin
  if Debug then Writeln('Looking for a birds nest');
  BirdLine:= -1;
  ChopLine:= -1;
  for i:=8 downto 1 do
    if (Pos('A bird', GetChatBoxText(i, 255))<>0) then
      begin
        BirdLine:= i;
        AFK;
      end;
  if (BirdLine = -1) then
    Exit;
  if Debug then Writeln('Found uptext for nests');
  for i:=8 downto 1 do
    if (Pos('wing you', GetChatBoxText(i, clMessage))<>0) then
    begin
      ChopLine:= i;
      Break;
    end;
  if (ChopLine < BirdLine) then
    begin
    if Debug then Writeln('Havent Chopped the vines yet');
    for i:=0 to 5 do
      TileArray[i]:= GridCoords(Point((i mod 3)-2, i div 3));
    for i:=0 to 5 do
      begin
      MMouse(TileArray[i].x-5, TileArray[i].y-5, 11, 11)
      if WaitUptextMulti(['ake B', 'Bird', 'nest'], 1000) then
        begin
        GetMousePos(x, y);
        if Debug then Writeln('Found a birds nest!');
        Mouse(x, y, 0, 0, True);
        Result:= True;
        AFK;
        Exit;
        end;
      end;
    if FindObjEx(x, y, ['ake B', 'Bird', 'nest'], [2767422, 2961972, 3818051], 5, 50, 191, 149, 354, 252) then
    begin
      Mouse(x, y, 0, 0, True);
      Result:= True;
      Wait(1500+Random(500))
      Exit;
    end;
  end;
  if Debug then Writeln('Finished looking for a birds nest');
end;

procedure CheckSRLStats;
begin
    if ((SRLStats_Username= '') and (SRLStats_Password = '')) then
      begin
        case MessageBox('No Stats account entered, would you like to register?','SRL Stats',mbYesNoCancel) of
          mrYes:
            begin
              OpenWebPage('http://stats.villavu.com/register');
              TerminateScript;
            end;
          mrNo:
            begin
              SetupSRLStats(837, 'Anonymous', 'anon1337');
              Exit;
            end;
          mrCancel: TerminateScript;
        end;
      end else
    SetupSRLStats(837, SRLStats_Username, SRLStats_Password);
end;

procedure x_Stats_Commit;
begin
  stats_IncVariable('Woodcutting EXP (Gained)', 4725);
  Stats_Commit;
  Writeln('Updated SRL Stats')
end;

Procedure ProgressReport;
  var
    startEXP, newExp, Gained : Integer;
begin
    startExp := Players[CurrentPlayer].Integers[0];
    newExp := GetXPBarTotal;
    Gained := newExp - startExp;
    WriteLn('Exp gained: ' + ToStr(Gained));
    x_Stats_Commit;
end;



{&#9824;===================================================================&#9824;}

////////////////////////////////////////////////////////////////////////////////
////////////AutoColour Feature (I'm British I spell it like Colour)/////////////

function IVYColour: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.03, 0.08);

  if not (FindColorsTolerance(arP, 4619873, MSX1, MSY1, MSX2, MSY2, 10)) 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
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

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

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


function Nestcolour: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.39, 0.74);

  if not (FindColorsTolerance(arP, 2964028, MSX1, MSY1, MSX2, MSY2, 10)) then
  begin
    Writeln('Failed to find the nest, cannot pickup.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

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

  if (i = arL + 1) then
    Writeln('Failed to find the nest, cannot pickup.');
end;

procedure Chop;
var
  X, Y: Integer;
begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;

  SetColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.02, 0.07);

  if FindObj(X, Y, 'Iv', 4619873, 8) then
  begin
    mouse( x, y, 2, 2, true);
    wait(687 + random(15000))
  end;

  (* We revert back to the defaults here. *)
  SetColorSpeed2Modifiers(0.2, 0.2);
  SetColorToleranceSpeed(1);
end;

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

Procedure Antiban_Upgrade;
var
  I: Integer;
  CurrentCompassDegree: Extended;
begin
  I := Random(1000);
  StatsGuise('AntiBan');

  case (I) of
    0..99 :
      begin
        GameTab(tab_Stats);
        HoverSkill('Woodcutting', False);
        GameTab(28);
      end;
    100..200 :
      begin
        SleepAndMoveMouse(7000 + Random(500));
        MakeCompass(CurrentCompassDegree-18+Random(32));
      end;
    200..210 :
      begin
        GameTab(Tab_Stats);
        MakeCompass(CurrentCompassDegree-2+Random(34));
        Wait(3000 + Random(500));
        GameTab(28);
      end;
    211..220 :
      begin
        BoredHuman;
        MakeCompass('N')
      end;
    221..300 :
      begin
      GameTab(Tab_Stats);
      Wait(100 + Random(1000));
      end;
  end;
end;

Procedure FindNest_old;
var
  X, Y: Integer;
Begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;

  If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
  begin
    Mouse( x, y, 2, 2, True);
    Writeln('Found a nest... Attempting to pickup');
    MakeCompass(10 + random(50));
  end;
End;

Procedure X_FindNest; ///FINISH THIS WHEN YOU HAVE A NEST
var
  X, Y, Colour: Integer;
begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;
  Colour := NestColour;

  if FindObj(X, Y, 'Nes', NestColour, 10) then
  begin
    mouse( x, y, 2, 2, true);
  end;

  If Not FindObj (X, Y, 'Nes', NestColour, 10) then
  begin
    Chop;
  end;
end;

Procedure FindEmptyNest; //Probably not needed. It's a procedure incase the script drops a nest randomly?
var
  X, Y, EmptyNest: Integer;
Begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;

  EmptyNest := DTMFromString('mlwAAAHicY2dgYMhmZGDIAuI4IE4B4nwgLgfiIiCew8TAsByIFwDxDCCeDsTzoGKeHhYMjo4WDN7ejkC2PYObmxmDjY0Gg56eBgM+wIgHQwEA+fEMeg==')

  If FindDTM(EmptyNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
    Begin
    Writeln('Found a nest... Attempting to pickup');
    MMouse (x, y, 5, 5);
    MakeCompass(0 + random(50));

    If IsUpText('nes') Then
    Mouse(x, y, 0, 0, True);
    End;
  FreeDTM(EmptyNest);
End;


Procedure X_CrushNest;
var
  X, Y, CrushNest: Integer;
Begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;

  CrushNest := DTMFromString('mggAAAHicY2NgYOADYiEgFgNiGSDmZYAATijNCGULQWkTAw0gyYSBuRiwA0YcGAIAboABOg==')

  If FindDTM(CrushNest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
  Begin
    Writeln('Found a nest inside Inventory, Attempting to crush');
    MMouse (x, y, 5, 5);

    If IsUpText('cru') Then
      Mouse(x, y, 0, 0, True);
  End;

  FreeDTM(CrushNest);
End;

Procedure Joincommunity;
  begin
    case MessageBox('While the bot is running, would you like to browse our other scripts?','Community Site',mbYesNoCancel) of
          mrYes:
            begin
              OpenWebPage('http://bot.lizardguru.com');
            end;
          mrNo:
            begin
              Exit;
            end;
          mrCancel: TerminateScript;
        end;
end;

begin
  SetupSRL;
  //Joincommunity;
  DeclarePlayers;
  CheckSRLStats;
  LoginPlayer;
  ToggleXPBar(True);
  Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
  Writeln('Your using XtraIvy V 1.00');
  Writeln('Please report any bugs on the thread');
  Writeln('Thanks for using the most flawless IVY script on Simba :)');

  Repeat
    Chop;
    MyFindBirdsNest
    Antiban_Upgrade;
    AFK;
    X_CrushNest;
    ProgressReport;
  until(Not LoggedIn);
End.

XtraMonk V 0.0.1

program xtramonk;

//{$DEFINE SMART}
{$i SRL\SRL.simba}
{include SPS/SPS.simba}

 Const
 SRLStats_Username = '';
 SRLStats_Password = '';
 BreakEvery        = 120;
 BreakFor          = 5;
 NumbOfPlayers=      1;
 StartPlayer=        0;
 ColourTolerance   = 3;

 var
 x, y : Integer;
 MonkColours: TIntegerArray;


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer  := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Pin  := '';
    BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
    Member := True;
    Active := True;
  end;
end;
Procedure searchmonk;
var
  X, Y: Integer;
  begin
      MakeCompass('N');
      wait(100 + Random(500));
  End;
procedure Heal;
var
  i: Integer;
begin

end;

procedure CheckHP;
begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;
    if FindObj(X, Y, 'talk', 2109238, 6) then

end;

Procedure Findmonk;

var
  X, Y, T: Integer;

  begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;
  MonkColours := [3491920, 2769483, 2635581, 2110266];

  SetColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.41, 1.01);

  MarkTime(T);

  repeat
  begin
    if not LoggedIn then
      Exit;
    FindNormalRandoms;
    if TimeFromMark(T) > 150000 then
    begin
      CheckHP;
    end;
   if FindObjEx(x, y, ['ttack','mon'], MonkColours, ColourTolerance, 50, 10, 20, 600, 400) then
      begin
      Mouse(x, y, 2, 2, True);
      wait(10000+ Random (1000));
    end;
  (* We revert back to the defaults here. *)
  SetColorSpeed2Modifiers(0.2, 0.2);
  SetColorToleranceSpeed(1);
  end;
  Until(false);
end;

procedure Checkfight;
begin
  if (srl_InFight) then
      begin
      wait(2000+ Random (1000));
      end;
  if NOT(srl_InFight) then
      begin
      Findmonk;
      end;
end;

begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  Writeln('Your using XtraMonk V0.0.1');
  Writeln('Please report any bugs on the thread');
  Writeln('*************************************');
  Writeln('******It will be buggy!!!!!**********');
  Writeln('*************************************');
  repeat;
  Findmonk;
  Checkfight;
  until(Not Loggedin);
End.

Hey there, mind posting your scripts in

 tags so we can review them easier?

I'd recommend using TPAs/ATPAs than FindObj as it shows more skill. You should also steer away from using ACAs autocolour function as it doesn't show any skill.

You're definitely moving in the right direction but I think you need to learn more advanced colour finding functions, other than FindObj(). Try to learn and implement or create another script that incorporates TPAs/ATPAs, DTMs/DDTMs and some kind of walking.

For someone that only joined less than a month ago and is releasing scripts shows that you're determined at scripting. So that's a big positive in my eyes.

I'll be voting no this time.

From: Geo
I'd recommend using TPAs/ATPAs than FindObj as it shows more skill. You should also steer away from using ACAs autocolour function as it doesn't show any skill.

You're definitely moving in the right direction but I think you need to learn more advanced colour finding functions, other than FindObj(). Try to learn and implement or create another script that incorporates TPAs/ATPAs, DTMs/DDTMs and some kind of walking.

For someone that only joined less than a month ago and is releasing scripts shows that you're determined at scripting. So that's a big positive in my eyes.

I'll be voting no this time.

been talking to RISK about DTM's if you look at one of my previous versions of my ivy script I tried to incorporate DTM's with picking up nests. But after various attempts and asking various members it was obvious it wasn't wanted. However I did encorporate crushing nests with DTMS… so I do use DTMS

Why has someone voted and not written anything? I think thats a bit unfair…

I mean if you look at my ivy script, xtraivy1.simba (10.3 KB, 115 views) is as flawless as you can get.


if you look at my posts that I've done (Click username > Public profile > Statistics) You can see how much I actually help for a new member. I decided to apply this time round because I've seen 2 people with only 1 basic script no TPA's Or DTM's who have SRL.
I remember one being a really simple combat script…


Showing off time!

Helping people:
http://villavu.com/forum/showthread.php?t=76624
http://villavu.com/forum/showthread.php?t=76484
http://villavu.com/forum/showthread.php?t=76502
http://villavu.com/forum/showthread.php?t=76436


You know what Right now I'l do the finishing touches to XtraIVY - Flawless so that it runs to CW and banks

Sorry, you are way too new to be an SRL member (For me personally anyway). You seem to have a decent amount of activity, so please try back after you have established yourself in the community for a longer amount of time.

Problem:

procedure CheckHP;
begin
  if not LoggedIn then
    Exit;
  FindNormalRandoms;
    if FindObj(X, Y, 'talk', 2109238, 6) then   //You never finished this function? How does your script compile :S
           //Then what???
end;

Tips:

For one liners you can just do..

If …. then
//do one line here..

For multi-liners you have to do..
if … then
begin
//do the multi-line here.
end;

That's all from me.

From: Jagex_Fagex
Sorry, you are way too new to be an SRL member (For me personally anyway). You seem to have a decent amount of activity, so please try back after you have established yourself in the community for a longer amount of time.

If I'm way to new to be an SRL member why are there members with only just a month like me with basics scripts with SRL


as for the checkhp its a bare shell. it says in the thread. It does compile so I don't see the problem

From: xtrapsp
If I'm way to new to be an SRL member why are there members with only just a month like me with basics scripts with SRL

I voted no on those people. I vote no on a lot of apps, pretty much most of them.

I also vote no on this app. The script doesn't seem to show enough knowledge about SRL include. I also don't see it tackle interesting problems.

From: xtrapsp
If I'm way to new to be an SRL member why are there members with only just a month like me with basics scripts with SRL


as for the checkhp its a bare shell. it says in the thread. It does compile so I don't see the problem

This is the exact issue we are facing at this point in time, which is why i always vote no, regardless of script quality, if the user is only a month or two old.

I think that's a bit unfair. You can't really evaluate someones skill and determination to help by the amount of time here.

From: xtrapsp
I think that's a bit unfair. You can't really evaluate someones skill and determination to help by the amount of time here.

I am not going to give you the speel I give everyone else, but I do recommend you read this thread:

Follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

The reason most people voted no, was because you are new. Why is this important to anyone? The reason being is SRL members is a community rank, it is not some scripting rank only elite scripters get. You need to be a decent scripter, but the biggest thing is being a community member.

We want to see you help people
Post in all areas of the forum
We want your attitude to show, we want to see YOU and what YOU are capable of doing.

I agree with you time isn't such a big factor, but I also disagree with you in saying it is not at all important commitment starts with longevity we are not asking you to stay for years just stay for a while we want to see continued activity.

The last thing we want is someone who gets SRL members, takes all the goodies then never posts again. That is not what this rank is; or intended for.
Not saying you would do that, I am just justifying our actions.

Don't take this so negatively you have a whole month to improve your scripting skills (Add some more of the include, was slightly basic in my eyes) With this month you can easily show your awesome personality off and try to become better known :).

Good luck!

Sorry, I voted no. You're getting the hang of scripting, however as masterBB and Jagex_Fagex said, you only joined this month.

I think you showed good initiative to script, but you're too new here as others have said. You don't need more no votes I think, so I will just hold my vote.

From: xtrapsp
I think that's a bit unfair. You can't really evaluate someones skill and determination to help by the amount of time here.

R4nd0m is entirely correct in stating that it is a community rank, not so much a measure of scripting ability. I used to vote yes on everything but lately it seems the quality of the applications are going downhill.

As an example of the SRL Member rank being more community based than much else I could direct your attention to myself and the Senior Member rank I've earned. I've also not released more than a single useful RuneScape script (which was a 100 line chicken fighter).

The times have also changed quite a bit in the sense that the scripts I wrote years ago would have never earned me membership today. I feel like the techniques and skill required to write good scripts has also increased exponentially over the past few years. I disagree with the expectation many people have that a membership application script earns an automatic no if it doesn't show all the newest and greatest advanced techniques, yet they are still incredibly useful to know.

Sorry if my rambling post makes little sense,
-Bam Bam

PS. If you stick with us, you'll have some of the best experiences possible in an online forum. This place has a sense of community that's been with it since day one. :) I tried to leave once, started typing out my "retiring" address and then couldn't actually get out of here :D

Edit: I'll add a point to my post:
Stick around here and contribute to the community; make yourself known - and you'll have no problems becoming an SRL Member. Especially if you keep writing these scripts ;)

I've now filled out the criteria, however I'm not releasing the script to the public. Uses TPA's paths, SPS, DTM's the lot :P banking

Will re-apply whenever I feel like it haha anyway please close this

You can reapply in a month after the close of this app.
(Don't quote me on that, a moderator will tell you the exact time)

From: Sin
You can reapply in a month after the close of this app.
(Don't quote me on that, a moderator will tell you the exact time)

I know, but this thread hasn't been closed yet :P it's been quite some time

The poll has closed and you didn't quite make it this time. Please take the suggestions made in this thread and improve on the script and reapply in 4 weeks time :)

Cheers
Hobbit