SRL Archive - First Scripts

Hiya,

This is my first public script using SRL.

As the name tells, it's a stringer. Put unstringed bows and bow strings in bank slot 1 and 2, fill in the declare player form and how many bows to string. Also enter which bank you stand in .. Not sure if that's needed but why not :smarty:

It uses SMART and Reflection, so you need that installed. :)

It has anti-ban but no anti-random.

It works in Simba (that's what I use), and it's not tested in SCAR.

Please give lots of feedback! :)

{ Name: EmStringer
{ Author: Emaziz
{ Version: 1.00
{ How-to: Setup line 37 to 52. Keep bow strings and unstringed
{         bows in bank slot 1 and 2, start script inside bank!
{{]]-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-[[}
{.include SRL\SRL\misc\SMART.SCAR}
{.include SRL\SRL.scar}
{.include reflection\reflection.simba}

var
BowsStringed: integer;
WaitTime: integer;
r: integer;
LoadsStringed:integer;
a:integer;
d:TInvItem;

const
SmartWorld = 68;
Members = True;
SignedClient = True;
HighDetail = False;

BowsToString = 3000;
bank = 'vwb'; // Valid banks: 'feb''fwb''veb''vwb''db''akb''eb''lb''ctb''clt''nab''sab''ynb''ngb''sgb''wgb''fgb'

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

with Players[0] do
begin
Name := 'Name';
Pass := 'Pass';
Active := True;
Pin := '';
end;
end;

procedure Terminate;
begin
writeln('Terminating script.');
Logout;
TerminateScript;
end;

procedure AntiBan;
begin
a := random(30);
LevelUp;
case a of
0:
  HoverSkill('random',false);
1:
  PickUpMouse;
2:
  RandomMovement;
  END;
end;

procedure BankOpen;
begin
WaitTime := 0;
while (not OpenBank(bank,False,False)) do
  begin
  wait(500);
  WaitTime := WaitTime + 500;
  if (WaitTime >= 20000) then
    begin
    writeln('Failed to open bank.');
    Terminate;
    end;
  end;
  writeln('Bank opened!');
end;

procedure PrintStats;
begin
writeln('-------------------------------------');
writeln('Bows stringed: ' + IntToStr(BowsStringed));
writeln('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-');
end;

procedure WithdrawStrings;
begin
  Withdraw(1,0,0);
  writeln('Withdrew bowstrings.');
end;

procedure WithdrawBows;
begin
  Withdraw(0,0,14);
  writeln('Withdrew unstringed bows.');
end;

procedure DepositItems;
begin
DepositAll;
writeln('Deposit bows.');
end;

procedure BankClose;
begin
CloseBank;
writeln('Closed bank.');
end;

procedure WithdrawItems;
begin
if (BankScreen) then
  begin
  WithdrawBows;
  wait(200+random(100));
  WithdrawStrings;
  wait(200+random(100));
  end;
if (not BankScreen) then
  begin
    writeln('Bank was not open? ');
    Terminate;
  end;
end;

procedure FletchBows;
begin
while (R_InvFull) do
begin
r :=  1+ random(13);
InvMouse(r,3);
InvMouse(r,1);
r := 15 + random(13);
InvMouse(r,3);
InvMouse(r,1);

while (not ClickText('lon',CharsNPC,202,444,345,478,false)) do
begin
wait(500);
end;
ChooseOption('ake All');
wait(2500);
end;
writeln('Stringing bows...');
while (R_ItemNameExists(d,'Bow string')) do
begin
AntiBan;
wait(500);
end;
writeln('Done stringing.');
wait(100+random(2000));
LoadsStringed := LoadsStringed + 1;
BowsStringed := LoadsStringed * 14;
PrintStats;
end;

begin
  Smart_Server := SmartWorld;
  Smart_Members := Members;
  Smart_Signed := SignedClient;
  Smart_SuperDetail := HighDetail;
  SetupSRL;
  SetupReflectionEx(true);
  Declareplayers;
  LogInPlayer;
  WaitTime := 0;
  SetAngle(True);

  while ( BowsStringed < BowsToString ) do
  begin
  if (not BankScreen) then BankOpen;
  if (not InvEmpty) and (BankScreen) then DepositItems;
  if (InvEmpty) and (BankScreen) then WithdrawItems;
  if (BankScreen) and (not InvEmpty) then BankClose;
  if (not BankScreen) then FletchBows;
  end;
end.    

[ATTACH]9852[/ATTACH]

{ Name: EmStringer
{ Author: Emaziz
{ Version: 1.00
{ How-to: Setup line 37 to 52. Keep bow strings and unstringed
{         bows in bank slot 1 and 2, start script inside bank!
{{]]-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-[[}
{$Define SMART}
{$i SRL/SRL.scar}
{$i reflection/reflection.simba}

var
  BowsStringed, LoadsStringed: Integer;
  d: TInvItem;

const
  BowsToString = 3000;
  bank = 'vwb'; // Valid banks: 'feb''fwb''veb''vwb''db''akb''eb''lb''ctb''clt''nab''sab''ynb''ngb''sgb''wgb''fgb'

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

  with Players[0] do
  begin
    Name := 'Name';
    Pass := 'Pass';
    Active := True;
    Pin := '';
  end;
end;

procedure Terminate;
begin
  Writeln('Terminating script.');
  Logout;
  TerminateScript;
end;

procedure AntiBan;
begin
  LevelUp;
  case Random(30) of
    0: HoverSkill('random',false);
    1: PickUpMouse;
    2: RandomMovement;
  end;
end;

procedure BankOpen;
var
  WaitTime: Integer;
begin
  WaitTime := 0;
  while not OpenBank(bank, False, False) do
  begin
    Wait(500);
    WaitTime := WaitTime + 500;
    if (WaitTime >= 20000) then
    begin
      Writeln('Failed to open bank.');
      Terminate;
    end;
  end;
  Writeln('Bank opened!');
end;

procedure PrintStats;
begin
  Writeln('-------------------------------------');
  Writeln('Bows stringed: ' + ToStr(BowsStringed));
  Writeln('-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-');
end;

procedure WithdrawStrings;
begin
  Withdraw(1,0,0);
  Writeln('Withdrew bowstrings.');
end;

procedure WithdrawBows;
begin
  Withdraw(0,0,14);
  Writeln('Withdrew unstringed bows.');
end;

procedure DepositItems;
begin
  DepositAll;
  Writeln('Deposit bows.');
end;

procedure BankClose;
begin
  CloseBank;
  Writeln('Closed bank.');
end;

procedure WithdrawItems;
begin
  if(BankScreen)then
  begin
    WithdrawBows;
    Wait(200 + Random(100));
    WithdrawStrings;
    Wait(200 + Random(100));
  end;
  if(not BankScreen)then
  begin
    Writeln('Bank was not open?');
    Terminate;
  end;
end;

procedure FletchBows;
var
  r: Integer;
begin
  while (R_InvFull) do
  begin
    r :=  1 + Random(13);
    InvMouse(r, 3);
    InvMouse(r, 1);
    r := 15 + Random(13);
    InvMouse(r, 3);
    InvMouse(r, 1);
    while (not ClickText('lon', CharsNPC, 202, 444, 345, 478, False)) do
      Wait(500);
    ChooseOption('ake All');
    Wait(2500);
  end;
  Writeln('Stringing bows...');
  while (R_ItemNameExists(d, 'Bow string')) do
  begin
    AntiBan;
    Wait(500);
  end;
  Writeln('Done stringing.');
  Wait(100 + Random(2000));
  Inc(LoadsStringed);
  IncEx(BowsStringed, LoadsStringed * 14);
  PrintStats;
end;

begin
  Smart_Server := 64;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  SetupReflectionEx(True);
  DeclarePlayers;
  LogInPlayer;
  SetAngle(True);
  while ( BowsStringed < BowsToString ) do
  begin
    if(not BankScreen)then
      BankOpen;
    if(not InvEmpty) and (BankScreen)then
      DepositItems;
    if(InvEmpty) and (BankScreen)then
      WithdrawItems;
    if(BankScreen) and (not InvEmpty)then
      BankClose;
    if(not BankScreen)then
      FletchBows;
  end;
end.

Just standardized it for you.

been useing,i think you need to slow down how quikc it types the 14 in after it goes withdraw x amout,its to quick and doesnt all ways load quick enough for it,and maby after useing withdraw xamout and typing 14 it could move to withdraw 14 as then its an option

EDit**


But dont take me wrong its a sweet script,love the faill safes for banking ect,and its the only stringer working our there atm that ive found

sorry for double post but are you still working on this? ( im holding out for it) lol have 43k yew longs to be strung