SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
I am studying towards a degree in Computer Science at my local community college.

I am proficient in Java, Python, and Pascal.


Are you a member of any other communities?
No


Tell us about yourself…

From: vizzyy
I'm 20 years old, I began playing runescape in the 5th grade. During the summer after 7th grade I got into RS private servers and ran my own server. I learned Java and was apart of the Moparscape community at the time. It led to my further interest into programming, and now my pursuit of a degree in the field.

I was born in France. I live in Virginia. I fluently speak Hungarian.

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

{###############################################
First Script - Tans and Banks Leather at Al Kharid.
###############################################}


program AlKharidLeatherTanner;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SPS/sps-osr.simba}

var
count:integer;
myloc:tpoint;

Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

   Players[0].Name := '';
   Players[0].Pass :='';
   Players[0].Nick :='';
   Players[0].Active:=True;
end;

procedure OpenBank1; //Credit to this method from Draynor Willow Banker 
var x, y: integer;
begin
  writeln('openbank');
  Repeat
    If FindObj(x, y, 'ank booth', 5463907, 10) Then
    begin
      Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
      ChooseOptionMulti(['Bank']);
    end
    else
    begin;
      MakeCompass(randomrange(25, 35));
    end;
  until(BankScreen)
end;

procedure gotobank;
begin
  writeln('gotobank');
  MyLoc:=sps_getMyPos;
  writeln('SPS returns '+inttostr(myloc.x)+','+inttostr(myloc.y));
  repeat
  until(SPS_WalkPath([Point(4927, 3925), Point(4934, 3925), Point(4940, 3929), Point(4945, 3931), Point(4949, 3935), Point(4949, 3941), Point(4950, 3946), Point(4949, 3954), Point(4949, 3960), Point(4947, 3965), Point(4946, 3970), Point(4944, 3974), Point(4944, 3980), Point(4940, 3985), Point(4937, 3991), Point(4935, 3997), Point(4929, 4005), Point(4924, 4012), Point(4921, 4020), Point(4915, 4025), Point(4910, 4027), Point(4905, 4025)]));
  repeat
    //if(findbank('akb'))then
    //begin
      openbank1;
    //end;
  until(BankScreen);
end;

procedure gotostore;
begin
  writeln('gotostore');
  MyLoc:=sps_getMyPos;
  writeln('SPS returns '+inttostr(myloc.x)+','+inttostr(myloc.y));
  repeat
  until(SPS_WalkPath([Point(4905, 4025), Point(4910, 4027), Point(4915, 4025), Point(4921, 4020), Point(4924, 4012), Point(4929, 4005), Point(4935, 3997), Point(4937, 3991), Point(4940, 3985), Point(4944, 3980), Point(4944, 3974), Point(4946, 3970), Point(4947, 3965), Point(4949, 3960), Point(4949, 3954), Point(4950, 3946), Point(4949, 3941), Point(4949, 3935), Point(4945, 3931), Point(4940, 3929), Point(4934, 3925), Point(4927, 3925)]));
end;

procedure bankinteraction;
begin
  writeln('banking');
  gotobank;
  repeat
    openbank1;
  until(BankScreen);
  if(BankScreen)then
  begin
    Deposit(2,28,true);
    WithdrawEx(0,0,28,['owhide']);
  end;
end;

procedure tanstuff;
var
x,y:integer;
begin
  writeln('tanning');
  repeat
    repeat
      findobj(x,y,'llis',5076693,15);
      Mouse(x,y,3,3,false);
    until(ChooseOptionMulti(['rade','Trade']));
    repeat
      wait(1650+random(100));
      Mouse(95,107,5,5,false);
      wait(650+random(100));
    until(ChooseOptionMulti(['All']));
    MMouseItem(2);
  until(isUpText('eather'));
end;

begin
SetupSRL();
DeclarePlayers;
SetScreenName(Players[CurrentPlayer].Nick);
SPS_Setup(runescape_surface,['12_9']);
ActivateClient;
SPS_AnyAngle := True;
count:=0;
repeat
  count:=count+1;
  FindNormalRandoms();
  bankinteraction;
  gotostore;
  tanstuff;
  gotobank;
until(count>=(700/28));

end.


{###############################################
Second Script - This one is an include I use to repair my axe and run back to 
catherby via drayner>>sarim>>boats. (Therefore the main method is commented out)
###############################################}

//program new;
//{$DEFINE SMART8}
//{$I SRL-OSR/SRL.Simba}
//{$I SPS/sps-osr.simba}
var
step1,step2,toBob,fromBob,step3,step4:TPointArray;
myloc1:tpoint;
x,y:integer;
good:boolean;

{Procedure DeclarePlayers;
Begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
End; }

procedure OpenBank2;
var x, y: integer;
begin
  Repeat
    If FindObj(x, y, 'ank booth', 9145751, 10) Then
    begin
      Mouse(RandomRange(X - 5, x + 5), RandomRange(Y - 5, Y + 5), random(3), random(3), false);
      ChooseOptionMulti(['Bank']);
    end
    else
    begin
      MakeCompass(randomrange(0, 360));
    end;
  until(BankScreen)
end;

procedure RepairAxe;
begin
  SPS_AnyAngle := True;
  MyLoc1:=sps_getMyPos;
  writeln('SPS returns '+inttostr(myloc1.x)+','+inttostr(myloc1.y));
  good:=false;
  toBob:=[Point(4713, 3813), Point(4720, 3815), Point(4723, 3815), Point(4727, 3815), Point(4731, 3815), Point(4737, 3815), Point(4743, 3815), Point(4746, 3816), Point(4750, 3819), Point(4755, 3823), Point(4757, 3830), Point(4761, 3836), Point(4764, 3845), Point(4764, 3851), Point(4764, 3860), Point(4764, 3864), Point(4765, 3866), Point(4766, 3871), Point(4766, 3875), Point(4764, 3878), Point(4756, 3876), Point(4750, 3880)];
  fromBob:=[Point(4752, 3877), Point(4762, 3876), Point(4766, 3871), Point(4766, 3863), Point(4768, 3855), Point(4766, 3844), Point(4766, 3834), Point(4763, 3822), Point(4753, 3815), Point(4743, 3814), Point(4732, 3814), Point(4721, 3814), Point(4714, 3812)];
  MMouseItem(1);
  if(isUpText('Broken')) then
  begin
    Writeln('Excercising RepairAxe');
    SPS_WalkPath(toBob);
    repeat
      if(FindObj(x,y,'Bob',1646438,5)) then
      begin
        wait(400+random(100));
        InvMouse(1,1);
        wait(400+random(100));
        Mouse(x,y,3,3,true);
        ClickContinueEx(true,true);
        if(areTalking()) then
        begin
          wait(900+random(100));
          mouse(261,401,3,3,true);
        end;
      end;
      MMouseItem(1);
      if(isUpText('Rune')) then
      begin
        writeln('Axe is good.');
        good:=true;
      end;
    until(good);
    SPS_Walkpath(fromBob);
  end;
end;

procedure WalkHome ;
Var
BoatScreen:Integer;
begin
  SPS_AnyAngle := True;
  MyLoc1:=sps_getMyPos;
  BoatScreen:=DTMFromString('mlwAAAHicY2dgYHgDxB+B+BkQP4WyHwHxHiBuAeIGIG4E4g4g7gTiFUB8FohTYy1xYn6gPC7MiAdDAQAokRGX');
  writeln('SPS returns '+inttostr(myloc1.x)+','+inttostr(myloc1.y));
  step1:=
  [Point(4714, 3814), Point(4719, 3816), Point(4723, 3816), Point(4730, 3816), Point(4734, 3816), Point(4740, 3816), Point(4745, 3816), Point(4752, 3816), Point(4758, 3812), Point(4765, 3807), Point(4766, 3800), Point(4766, 3794), Point(4765, 3788), Point(4762, 3782), Point(4760, 3778), Point(4757, 3775), Point(4754, 3771), Point(4750, 3767), Point(4745, 3762), Point(4743, 3759), Point(4738, 3754), Point(4732, 3751), Point(4729, 3745), Point(4724, 3743), Point(4718, 3738), Point(4713, 3736), Point(4706, 3734), Point(4701, 3732), Point(4695, 3731), Point(4689, 3729), Point(4682, 3729), Point(4676, 3728), Point(4674, 3730), Point(4670, 3728), Point(4663, 3727), Point(4656, 3726), Point(4649, 3726), Point(4643, 3724)];
  step2:=
  [Point(4644, 3723), Point(4633, 3723), Point(4623, 3723), Point(4614, 3723), Point(4603, 3725), Point(4596, 3725), Point(4587, 3725), Point(4579, 3725), Point(4569, 3726), Point(4560, 3726), Point(4550, 3726), Point(4543, 3728), Point(4533, 3728), Point(4524, 3730), Point(4515, 3730), Point(4506, 3730), Point(4499, 3732), Point(4490, 3732), Point(4484, 3734), Point(4475, 3734), Point(4468, 3735), Point(4457, 3736), Point(4451, 3736), Point(4442, 3737), Point(4433, 3739), Point(4426, 3742), Point(4418, 3745), Point(4410, 3745), Point(4402, 3748), Point(4393, 3751), Point(4382, 3752)];
  step3:=
  [Point(4381, 3750), Point(4373, 3754), Point(4364, 3754), Point(4355, 3752), Point(4345, 3746), Point(4334, 3744), Point(4327, 3743), Point(4316, 3740), Point(4305, 3736), Point(4296, 3732), Point(4286, 3730), Point(4276, 3726), Point(4270, 3725), Point(4264, 3724), Point(4257, 3721), Point(4251, 3716), Point(4245, 3708), Point(4241, 3700), Point(4233, 3691), Point(4225, 3686), Point(4216, 3689), Point(4209, 3695), Point(4203, 3698), Point(4194, 3700), Point(4192, 3707), Point(4193, 3713)];
  step4:=
  [Point(4193, 3712), Point(4193, 3706), Point(4193, 3699), Point(4186, 3697), Point(4176, 3692), Point(4171, 3685), Point(4163, 3681), Point(4159, 3678), Point(4154, 3674), Point(4151, 3663), Point(4150, 3652), Point(4149, 3642), Point(4139, 3628), Point(4132, 3617), Point(4124, 3609), Point(4118, 3600), Point(4108, 3588), Point(4099, 3582), Point(4090, 3599), Point(4085, 3612), Point(4083, 3622), Point(4077, 3631), Point(4073, 3638), Point(4073, 3647), Point(4072, 3660), Point(4065, 3666), Point(4053, 3673), Point(4048, 3675), Point(4041, 3679), Point(4040, 3692), Point(4033, 3700), Point(4020, 3700), Point(4008, 3700), Point(3996, 3702), Point(3990, 3711), Point(3988, 3721), Point(3988, 3729), Point(3988, 3736), Point(3984, 3742), Point(3974, 3744), Point(3964, 3747), Point(3953, 3746), Point(3944, 3747), Point(3939, 3751), Point(3936, 3760), Point(3934, 3769), Point(3934, 3778), Point(3935, 3790), Point(3934, 3799), Point(3934, 3808),Point(3928, 3820)];
  repeat
    writeln('step1');
  until(SPS_Walkpath(step1));
  Wait(randomrange(500,1000));
  repeat
    writeln('step2');
  until(SPS_Walkpath(step2));
  Wait(randomrange(500,1000));
  repeat
    writeln('step3');
  until(SPS_Walkpath(step3));
  Wait(randomrange(500,1000));
  OpenBank2;
  if(bankscreen) then
  begin
    writeln('coins');
    wait(900+random(100));
    WithdrawEx(0, 0, 600, ['Coins']);
    wait(900+random(100));
  end;
  repeat
    writeln('step4');
  until(SPS_Walkpath(step4));
  Wait(randomrange(500,1000));
  good:=false;
  repeat
    If (FindObj(x, y, 'Seaman', 5387558, 5) or FindObj(x, y, 'Captain', 5387558, 5)) Then
    begin
      Mouse(x,y,3,3,false);
      ChooseOptionMulti(['Pay']);
      wait(randomrange(600,700));
    end
    else
    begin
      MakeCompass(randomrange(0,360));
    end;
  until(areTalking());
  ClickContinueEx(true,true);
  wait(randomrange(1000,1100));
  mouse(261,401,3,3,true);
  wait(randomrange(900,1000));
  ClickContinueEx(true,true);
  wait(randomrange(8000,10000));
  MakeCompass(0);
  SetAngle(0);
  good:=false;
  repeat
    if(findobjex(x,y,['Gang','ang','Gangplank'],[5535892,2836316,5008776],15,50,250,145,285,170)) then
    begin
      Mouse(x,y,3,3,false);
      ChooseOptionMulti(['Cross']);
      good:=true;
      Writeln('Successfully Crossed First Plank');
    end
    else
    begin
      MakeCompass(randomrange(0,360));
    end;
  until(good);
  Wait(600+random(400));
  repeat
  until(SPS_WalkPath([Point(3648, 4107), Point(3641, 4107), Point(3639, 4098), Point(3637, 4092), Point(3637, 4086), Point(3634, 4078), Point(3635, 4073)]));
  repeat
    Writeln('Looking for Charter');
    If (FindObj(x, y, 'Trader', 2352, 5) or FindObj(x, y, 'Trader', 5387558, 5)) Then
    begin
      writeln('Found Charter');
      Mouse(x,y,3,3,false);
      ChooseOptionMulti(['Talk']);
      wait(500+random(100));
    end;
  until(areTalking());
  if(areTalking()) then
  begin
    ClickContinueEx(true,true);
    wait(800+random(100));
    Mouse(randomrange(22,240),435,3,3,true);
    wait(800+random(100));
    ClickContinueEx(true,true);
    wait(800+random(100));
    ClickContinueEx(true,true);
    wait(800+random(100));
  end;
  if(FindDTM(BoatScreen,x,y,MSX1,MSY1,MSX2,MSY2)) then
  begin
    writeln('Found Boat Screen');
    Mouse(x,y,3,3,true);
    wait(900+random(100));
    ClickContinueEx(true,true);
    wait(800+random(100));
    Mouse(randomrange(22,240),393,3,3,true);
    wait(4000+random(100));
  end;
  FreeDTM(BoatScreen);
  MakeCompass(0);
  SetAngle(0);
  good:=false;
  repeat
    if(findobjex(x,y,['Gang','ang','Gangplank'],[5535892,2836316,5008776],15,50,250,215,285,240)) then
    begin
      Mouse(x,y,3,3,false);
      ChooseOptionMulti(['Cross']);
      good:=true;
      Writeln('Successfully Crossed Second Plank');
    end
    else
    begin
      MakeCompass(randomrange(0,360));
    end;
  until(good);
{  repeat
  writeln('Walk to Cath Bank - SPS returns ('+inttostr(myloc1.x)+','+inttostr(myloc1.y)+')');
  until(Sps_walkpath([Point(2988, 3023), Point(2997, 3024), Point(3003, 3023), Point(3009, 3019), Point(3014, 3019), Point(3022, 3019), Point(3027, 3016), Point(3033, 3016), Point(3034, 3005), Point(3035, 2995), Point(3035, 2990), Point(3035, 2984), Point(3035, 2978), Point(3035, 2972), Point(3038, 2967), Point(3038, 2963), Point(3038, 2957), Point(3038, 2953), Point(3040, 2951), Point(3043, 2948), Point(3048, 2944), Point(3050, 2941), Point(3051, 2936), Point(3055, 2931), Point(3054, 2923), Point(3054, 2916)]));
}
  runaway('e',true,2,900+random(100));
  runaway('n',true,2,900+random(100));
  runaway('n',false,2,900+random(100));
end;
{
begin
SetupSRL();
DeclarePlayers;
SPS_Setup(runescape_surface,['8_10','11_9','10_9','10_8','9_8','9_9']);
SetScreenName(Players[CurrentPlayer].Nick);
  If (Not LoggedIn) Then
  begin
    LogInPlayer;
  end;
SPS_AnyAngle := True;
MyLoc1:=sps_getMyPos;
writeln('SPS returns '+inttostr(myloc1.x)+','+inttostr(myloc1.y));
RepairAxe;
WalkHome;
end. }

You're too new and you're script, while a good start, is not advanced enough to be granted SRL membership. Also, this is not actually repeating anything:

repeat
until(SPS_WalkPath([Point(4927, 3925), Point(4934, 3925), Point(4940, 3929), 

From: The Mayor
You're too new and you're script, while a good start, is not advanced enough to be granted SRL membership. Also, this is not actually repeating anything:

repeat
until(SPS_WalkPath([Point(4927, 3925), Point(4934, 3925), Point(4940, 3929), 

this ^
–
Sorry bud, next time :)

Very good start on scripting! (Better then my first script, lol.)

Though, I'm going to have to vote no, as others have said, you're too new, and your scripts are too basic for SRL Membership. If you want something to go by that would get you members, take a look at ANY of Ashaman88's script. If you code anything like his, you'd probably get an insta-yes from everyone (Assuming you're good around the community, and are well known)

There are plenty of tutorials here on the forums to help you with whatever you might need.

Some things we'd like to see in your next application:

-TPAs
-ATPAs
-Custom object finding
-Custom functions
-More activity
-Good attitude (And well liked.)


Well, I'll part for now. Best of luck on your next application!

http://villavu.com/forum/forumdisplay.php?f=490 (Tutorials section)

Sorry,

You need to be more active community wise and contribute around here to let us get to know you.

From: Vinyl Scratch
Very good start on scripting! (Better then my first script, lol.)

Though, I'm going to have to vote no, as others have said, you're too new, and your scripts are too basic for SRL Membership. If you want something to go by that would get you members, take a look at ANY of Ashaman88's script. If you code anything like his, you'd probably get an insta-yes from everyone (Assuming you're good around the community, and are well known)

There are plenty of tutorials here on the forums to help you with whatever you might need.

Some things we'd like to see in your next application:

-TPAs
-ATPAs
-Custom object finding
-Custom functions
-More activity
-Good attitude (And well liked.)


Well, I'll part for now. Best of luck on your next application!

http://villavu.com/forum/forumdisplay.php?f=490 (Tutorials section)

This is exactly the type of constructive feedback I was looking for. Thank you.

Noting many of the previous comments made still applying, I also thought it would be good to give advice on how to improve your scripting.

  repeat
    openbank1;
  until(BankScreen);

Repeats forever and if a failure scenario happens for any reason (perhaps walking to bank failed to begin with), you will be stuck here and look very botlike. Instead you can do something like:

  x:=0;
  repeat
    openbank1;
    Inc(x);
  until(BankScreen or (x > 5));//6 attempts may even be far too many

In general, infinite loops are something to be avoided; everything should have a failsafe. You also tend to use fairly static coord clicking to accomplish several goals instead of finding the correct location on screen. So instead of:

Mouse(95,107,5,5,false);

to tan your hides, you could create a bitmap and search the screen for it to click (which would also grant you bonus points for proving you know how to use a bitmap as well as improving your accuracy greatly. And instead of withdrawing static locations from your bank, you could use DTMs to withdraw precisely the item you want no matter where it is.

Good luck on future work, however!

Didn't make it this time. Take the suggestions given to you above, check out the tutorial island section and feel free to apply in 4 weeks time. :) Good start though.

Cheers
Hobbit