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?
I am very familiar with Java. I'm in 2nd year Java in high school. I'm also very familiar with C. I use C to program my robots for competitions particularly Vex.


Are you a member of any other communities?
ROBOTC - Programming community for robots
Javaforums - programming help and learning



Tell us about yourself…

From: Jhangir
My name is Jhangir Awan I'm a senior in high school. My interests are making electronics at home and programming them. I have a huge collection of electronic parts which I use to make my own devices. I program micro controllers and then investigate with electrical equipment. My other interest is Robots. I compete in many robot competitions which require programming skills and building skills. I am also the president of the technology club in my high school. The club is for people interested in technology, robots, computers, etc. My other hobby is playing basketball. I enjoy playing with my friends and I believe I am pretty good at it. Overall I categorize myself as a curious person who likes to learn, work together, and spread knowledge about many things.

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

//Instructions are to start outside of gnome bank and the script will make you alot of money!


program ToadPicker;

{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i sps/sps.simba}

Const
 NumbOfPlayers     = 1;
 StartPlayer       = 0;

Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(NumbOfPlayers);
    CurrentPlayer := StartPlayer;
    with Players[0] do
    begin
      Name        := '';
      Pass        := '';

      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := 'random';
      Active      := True;
    end;
  end;

Procedure Start;
  Begin
    SetUpSRL;
    MouseSpeed := 15;
    ActivateClient;
    DeclarePlayers;
    If (Not LoggedIn) then
    LoginPlayer;
    SPS_Setup(RUNESCAPE_SURFACE, ['4_7', '3_7', '3_6']);
    SetAngle(True);
    MakeCompass('n');
  End;

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


Procedure Antiban;
Begin
  case Random(250) Of
    0: HoverSkill('random', False);
    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 WalkToSwamp : Boolean;
var
Path:TPointArray;
Begin
  If Not FindNormalRandoms Then
  Begin
    Path := [Point(1621, 2898), Point(1600, 2852), Point(1569, 2809), Point(1554, 2763), Point(1548, 2712), Point(1539, 2658), Point(1522, 2614)];
    StatsGuise('Heading to the swamp');
    If SPS_WalkPath(Path) Then
    StatsGuise('Arrived at swamp');
    result := True;
  End;
End;

Procedure MoveToToads;
Var
Path:TPointArray;
  Begin
    Writeln('Moving to center');
    Path := [Point(1510, 2589)];
    SPS_WalkPath(Path);
  End;

Function ClickToad : Boolean;
Var
X, Y:Integer;
  begin;
    If Not FindNormalRandoms Then
  Begin
    If (Not InvFull) Then

    Repeat

    Begin
    If FindObjCustom(x, y, ['oad'], [1991226, 2256186, 2322250, 1725228, 2388812], 2)  Then
      Begin
      StatsGuise('We found a toad');
      AntiBan;
      Mouse(x, y, 0, 0, True);


      Wait(600+RandomRange(200,300));
      FFlag(0);
      Result := True;
      End;
    End;
    Until (InvFull);
End;
End;
Function WalkToBank : Boolean;
Var
Path:TPointArray;
Begin
If Not FindNormalRandoms Then
Begin
Path := [Point(1526, 2613), Point(1538, 2666), Point(1550, 2725), Point(1570, 2779), Point(1592, 2833), Point(1610, 2868), Point(1622, 2894)];
If SPS_WalkPath(Path) Then
  begin
  StatsGuise('Arrived at bank')
  Wait(3000);
  Result := True;
  End;
end;
End;

Function AtBank : Boolean;
Var
AtBankDTM, X, Y:Integer;
Begin
If Not FindNormalRandoms Then
begin
AtBankDTM := DTMFromString('mggAAAHicY2NgYJBjgAAQbQLEzEBsA8TyQCwNlZMBYkcojnNVYGBjYsXAXAzYASMODAEA6p8Cog==');
If FindDTM(AtBankDTM, X, Y, MMX1, MMY1, MMX2, MMY2) Then
  Result := True;
end;

End;

Function Bank : Boolean;
Var
X, Y, A, B, C, D:Integer;

Begin
If Not FindNormalRandoms Then
Begin
A := 626+Random(3);
B := 53+Random(3);
MakeCompass('s');
SetAngle(False);
If FindObjCustom(X, Y, ['airca'], [528920, 396817, 462612, 330510, 529176, 727586], 3) Then
  Begin
  Wait(3000);
  MMouse(X, Y, 5, 5);
  Wait(500+RandomRange(200,300));
  Mouse(X, Y, 0, 0, True);
  Wait(3500+RandomRange(500,800));
  If AtBank Then
  begin
  MMouse(A, B, 0, 0);
  Wait(200+Randomrange(20,50));
  Mouse(A, B, 0, 0, True);
  Wait(2500+Randomrange(200,300));
  StatsGuise('Looking for bank');
  SetAngle(True);
    If FindObjCustom(C, D, ['anker'], [8435943, 8762864, 8367589, 9092602], 5) Then
    begin;
    MMouse(C, D, 3, 3);
    Wait(200+RandomRange(50,100));
    Mouse(C, D, 0, 0, False);
    Wait(200+Randomrange(100,150));
    ChooseOption('ank Gno');
    Wait(800+RandomRange(500,700));
    DepositAll;
    Wait(500+randomrange(200,300));
    CloseBank;
    StatsGuise('Banked all toads')
    Result := True;
    End;
  End;
End;
End;
End;



Function ExitBank : Boolean;
Var
X, Y, A, B:Integer;
Begin
If Not FindNormalRandoms Then
  Begin
    X := 630+Randomrange(2, 5);
    Y := 20+Randomrange(2, 5);
    SetAngle(True);
    MakeCompass('n');
    MMouse(X, Y, 0, 0);
    Wait(100+randomrange(20,30));
    Mouse(X, Y, 0, 0, True);
    Wait(3500+randomrange(300,500));
 If FindObjCustom(A, B, ['aircas'], [667723, 401458, 400943], 3) Then
   Begin
    repeat
      MMouse(A, B, 2, 2)
      Wait(100+randomrange(10,20));
      Mouse(A, B, 0, 0, False);
      Wait(100+Randomrange(200,400));
      ChooseOption('airca');
      StatsGuise('Climbed Staircase');
    until (Not AtBank);
   End;
   If AtBank Then
   Result := True;
  End;
End;




begin
Start;
repeat
If InvFull Then
 Begin
 WalkToBank;
 Bank;
 ExitBank;
 end;
WalkToSwamp;
ClickToad;
until(false)

end.

Work on your standards, look in to TPAs and get rid of the infinite loop here:

repeat
If InvFull Then
 Begin
 WalkToBank;
 Bank;
 ExitBank;
 end;
WalkToSwamp;
ClickToad;
until(false)

All I saw from a quick glance. :) Great job though! I have to attend Christmas stuff now so I'll be able to check more in-depth later if you desire.

From: RISK
Work on your standards, look in to TPAs and get rid of the infinite loop here:

repeat
If InvFull Then
 Begin
 WalkToBank;
 Bank;
 ExitBank;
 end;
WalkToSwamp;
ClickToad;
until(false)

All I saw from a quick glance. :) Great job though! I have to attend Christmas stuff now so I'll be able to check more in-depth later if you desire.

I did use TPA's but it didnt work out very well. Find ObjCustom worked much better. I messed around with both of them but FindObjCustom got a full load much faster for me.

Then you weren't using the TPAs correctly. :x Were you using CTS 2 along with the modifiers given by ACA? You don't need to use a custom auto-color for it, by the way.

From: RISK
Then you weren't using the TPAs correctly. :x Were you using CTS 2 along with the modifiers given by ACA? You don't need to use a custom auto-color for it, by the way.

Yes sir. I used it according to yohojo,s tutorial but like I said the toads are so dang small and camoflauge with the ground.

I like your use of SPS, except it is your only method of walking. It is a good idea to try and add in different walking methods just incase it fails.

No because you have only just joined the community.

-Boom

Your code is solid, your standards aren't too bad (could use some work), and I've seen you on the forums building this script.

Yes.

From: Kyle Undefined
Your code is solid, your standards aren't too bad (could use some work), and I've seen you on the forums building this script.

Yes.

Thankyou Im working on a snapegrass one right now and will I be able to add that to my app?

If you finish it before this closes, yes.

I released my snapegrass picker to the public

From: Jhangir
I released my snapegrass picker to the public

Add it to your application (original post) in separate [simba] tags :)

On your community side im voting no.

however, i shall rune the script tonight, and if it works, let that sway my voting

From: jakeyboy29
On your community side im voting no.

however, i shall rune the script tonight, and if it works, let that sway my voting

do you mean because I used to be a member at powerbot?
I only started botting a month before the nuke so im not a supporter of them.

He means your join date here.

 If SPS_WalkPath(Path) Then
    StatsGuise('Arrived at swamp');
    result := True;
  End;

This function will always return true. You never check the true/false value in your main loop anyways.

Begin
  Wait(3000);
  MMouse(X, Y, 5, 5);
  Wait(500+RandomRange(200,300));
  Mouse(X, Y, 0, 0, True);

This will click the coord. You move randomly, then you click where there was no randomness? May you have wanted to put a getmousepos after the wait? The same thing happens a bit later in the script too, and again.

You lack many proper failsafes that you should have in those procedures.

Please add the above things and smooth out the standards and it would be better by a lot.

Im going to say yes. But promise me youll be more active <3

From: jakeyboy29
Im going to say yes. But promise me youll be more active <3

I will!

Sorry but I have to bump this.

From: Jhangir
Sorry but I have to bump this.

Really, you don't. :)

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