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 have basic programming knowledge, meaning I can edit most scripts in different programming languages by examining the syntax and functions, also I've taken courses in C++ programming, have fair knowledge of webdesign languages and of course I know pascal. :)


Are you a member of any other communities?
Sythe.org is the only one I can name atm, but I'm registered at various blackmarket and botting forums.


Tell us about yourself…

From: Emaziz
I'm a 17 year old from Norway, I like computer, TV and even more computer, and some PS3. I like pretty much anything that can be done on a computer, like photo editing, music editing, video editing, programming, botting, hacking and of course playing. :)

In real life … Well, I go to school. ;)

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

{-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-}
{''''''''''####################      #############           #############''''''''''''''}
{''''''''''####################      #############           #############''''''''''''''}
{'''''''''''#######                   ###### ######         ###### ###### ''''''''''''''}
{'''''''''''#######                   ######  ######       ######  ###### ''''''''''''''}
{''''''''''####################       ######   ######     ######   ###### ''''''''''''''}
{''''''''''####################       ######    ######   ######    ###### ''''''''''''''}
{'''''''''''######                    ######     ###### ######     ###### ''''''''''''''}
{'''''''''''######                    ######      ###########      ###### ''''''''''''''}
{''''''''''####################      ########       #######       ########''''''''''''''}
{''''''''''####################      ########         ###         ########''''''''''''''}
{-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-}
{ 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.

Ehh, There's no multiplayer and the script is pretty basic. I'm not going to vote because I'm not really active. Also, You don't need to include reflection. It doesn't seem that you used reflection at all. Personally I just think it's too simple.

Sorry, no. There aren't any DTMs, bitmaps, TPAs, very few failsafes, and in general it's just too simple.

Sorry man, I suggest you read on the following and add them to your script first :

-RadialWalking
-DTMs and DDTMs
-TPAs
-UpText
-Time Marks

There you'd have a case.

Local variables.

It took me like 30 minutes to make! How can you say no? :O
But seriously, can someone close this? ^^,

If that took 30 mins, I love to see what you can do with a few hours. :)

From: Emaziz
It took me like 30 minutes to make! How can you say no? :O
But seriously, can someone close this? ^^,

Good scripts can take days, or even weeks, to make.

Closed. I like how organized your script is already.

~RM