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?
Advanced preety much i can almost do any procedure and function properly


Are you a member of any other communities?
powerbot, epicbot, and rsbuddy


Tell us about yourself…

From: oreokilla
I love to bot, i love making scripts, i love to help community, i will do anything to help this community.

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

[SIMBA]program GeYewCuttingScript;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
{SMART Setup Constants}
  WORLD = 0;  // Set a world, if you'd like. Leave 0 to choose a random world.
  MEMBERS = False;  // Are you Members or Free-To-Play? False for F2P, True for P2P.
  SIGNED = True;
  loadcount = 50;
  var
  count: integer;
{---------------------------}
{--------Script Info--------}
  //Author = 'Oreokilla';
  //Name = 'OreosyewKilla';
  //Version = '1.0';
{---------------------------}
procedure DeclarePlayers; //This declares the players to be used in the script.
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //Your Runescape username
  Players[0].Pass := ''; //Your Runescape password
  Players[0].Nick := ''; //3 or 4 lowercase letters from your Runescape username. Used as a Nickname.
  Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
  Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
end;
procedure SetupScript;
begin;
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn('Hope you enjoy this Yew cutting script.');
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn('I made this My self.');
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
procedure AntiBan;
begin
  case random(50) of
      0: RandomRClick;
      1: PickUpMouse;
      2: RandomRClick;
      3: HoverSkill('woodcutting', False);
      4: SetAngle(SRL_ANGLE_HIGH);
  end;
end;

Procedure WalkToBank;
    Var
      ToBank:TPointArray;
    Begin
    SetupSRL;
    SPS_Areas := ['11_6','11_7'];
ToBank:= [Point(4651, 2624), Point(4616, 2628), Point(4603, 2647), Point(4603, 2662), Point(4576, 2667), Point(4558, 2645), Point(4546, 2625)];
 SPS_WalkPath(ToBank);
 end;

procedure ChopTree; //This chops your trees.
var x, y: integer;
begin
    repeat
    FindNormalRandoms;
    ToggleXPBar(true);
    WriteLn('ChopTree procedure activated! Finding tree.');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    if FindObjCustom(x,y, ['ew','hop','own'], [4937570, 4344918],5) then//This finds the object, records the X and Y values, and tells the script to find the option "Tree".
    begin
    WriteLn('Tree found! Clicking option.');
    WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      Mouse(x, y, 0, 0, true);
      ChooseOption('ew');  //This tells the script to left-click on the object and select "Yew".
    end;
      repeat
      Wait(RandomRange(2000, 3000))
      AntiBan;
      Until not IsUpText('ew') or (InvFull);
    Until (InvFull);
    writeLn('Banking');
end;

Procedure Bank;
begin
if not LoggedIn then
Exit;
repeat
SetAngle(srl_angle_high);
OpenBanknpc;
Wait(Random(700));
until BankScreen or PinScreen;
if PinScreen then
begin
repeat
InPin(Players[0].Pin);
until BankScreen or not (LoggedIn);
end;
  begin
    if Players[CurrentPlayer].Booleans[0] then
        DepositAll else
        Deposit(2 ,28 ,true);
        CloseBank;
        stats_IncVariable('Times Banked',1);
  end
  Writeln('Bout to bank these logs');
  End;

Procedure WalkToYews;
Var
  ToYews:TPointArray;
 Begin
SetupSRL;
SPS_Areas := ['11_6','11_7'];
ToYews := [Point(4546, 2625), Point(4570, 2663), Point(4594, 2664), Point(4613, 2635), Point(4631, 2627), Point(4646, 2627)];
 SPS_WalkPath(ToYews);
 end;

  Begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False;
  SetupSRL;
  SetupScript;
  declarePlayers;
  LoginPlayer;

  begin
  WalkToBank;
  Bank;
  WalkToYews;
  repeat
  Antiban;
  ChopTree;
  WalkToBank;
  Bank;
  walkToYews;
  Inc(count);
  until (count=loadcount)
  end;
  end.



//Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.


   //This stops the script completely once your player has failed. e.g. Gotten into a random event, died (almost impossible) or failed to find a tree.

                                                                                                           

I hope you vote yes everyone last time i had a suckish script but this time its a very good script.. can cut the yews good, bank properly, make lot of gp and xp per hour what else could you ask for
p.s. also if you have any suggestions on this script plz comment i have worked very hard on this script

Just curious but when is the last time you applied for members?

1) Your Object finding is isn't very advanced.
2) Your script is severely lacking fail safes, like your WalkToBank procedure, there's no checking to make sure you actually walked.
3) What's wrong with this?

Mouse(x, y, 0, 0, true);
      ChooseOption('ew');  //This tells the script to left-click on the object and select "Yew".

4) The script is pretty simple.

I'm sorry, it's a no.

Five days ago, and there must be two weeks inbetween apps.
Sorry man, closed. Try again the 12th.