SRL Archive - First Scripts

Hi I have a new script i am working on if someone can plz help with this i will credit …
It doesnt need much but i got most of it done i just need alittle bit someone plz just help me…

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;  // True if running a single account, false otherwise.
{---------------------------}
{--------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 oak 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 Chopyews;
var x, y: integer;
begin
SetAngle(SRL_ANGLE_HIGH);
    repeat
    WriteLn('Looking for ew to chop.');
    if FindObj(x, y, 'ew', 4937570, 5) then
    WriteLn('Cuttingyews.');
      Mouse(x, y, 0, 0, true);
      ChooseOption('hop');
      wait(3000+random(1000));
      Until not IsUpText('ew') or (InvFull);
      end;
   Procedure WalkToBank;
    Var
      myPath:TPointArray;
    Begin
    SetupSRL;
    SPS_Areas := ['11_6'];
myPath := [Point(4644, 2623), Point(4553, 2724)];
 SPS_WalkPath(myPath);
 end;

function Bank: Boolean;
Var
  x, y: integer;
begin
if (InvFull) then
begin
Wait (300 + random(160));
OpenBankQuiet('db');
if(FindColorSpiral(x, y, 3745323, 547, 206, 734, 464))then
begin
Mouse(x, y, 4, 3, false);
ChooseOption('All');
end;
CloseBank;
Wait(150 + random (278));
end;
end;
Procedure WalkToYews;
Var
  myPath:TPointArray;
 Begin
SetupSRL;
SPS_Areas := ['11_6'];
myPath := [Point(4553, 2720), Point(4648, 2624)];
 SPS_WalkPath(myPath);
 end;

   Begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False;
  SetupSRL;
  SetupScript;
  declarePlayers;
  LoginPlayer;
  antiban;
  ChopYews;
  WalkToBank;
  Bank;
  walkToYews;
  repeat



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


  until AllPlayersInactive; //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.
end. 

First of all please wrap in

 tags. <3

-Boom

lol sry how do i do dat…

go advanced in an edit and look for simba. put your code in the tags.

There you go guys this is my first script on this website so…
And any help would be appreciated thanks…

i would change your banking procedure to something more manageable. Perhaps,

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;
      if (invcount > 10) then
  begin

  QuickDeposit(SRL_DEPOSIT_ALL);
  WaitFunc(@InvEmpty, 50, 3000);
  end;

also note: you have the option for a pin in DeclarePlayers, but don't utilize it in your banking function.

Thank you.. any more help would be appreciated and also could you try running the script and see how it works… thank you so much
p.s. i will credit you… lol i know its not much but i need this script done bad im a beginner at this and its getting on my nerves so i really want it done.. lol

From: oreokilla
Thank you.. any more help would be appreciated and also could you try running the script and see how it works… thank you so much
p.s. i will credit you… lol i know its not much but i need this script done bad im a beginner at this and its getting on my nerves so i really want it done.. lol

Check your inbox for some suggestions

Looks good, i would create better sps paths though. Make the little things alot closer. It makes it way more accurate and will be better.Or at least does that in my script.
Other than that looks good.