SRL Archive - RS3 Script Requests

Request: Battlestaff Maker

halgboy_tbc

2012-03-15 02:48:52

Hello, I would love for this script to be made, it does not require much actions, so I assume it would be rather easy to make, but idk. Thanks so much if anyone decides to help.

Name - Battlestaff Maker
What does the script do? Attaches orbs to battlestaffs
What does the script achieve? Crafting experience
f2p/p2p? any other level / skill / quest requirements? 66 (air battlestaffs is what I personally am looking for); 54 (water) 62 (fire) 58 (Earth)
Do you have an account with these requirements you could lend to a dev? I do not, sorry
Difficulty… (Easy/Medium/Hard) Easy

halgboy_tbc

2012-03-15 15:45:22

Anyoneeeeee?

Mat

2012-03-15 15:46:14

Quite Profitable no?

Kyle Undefined

2012-03-15 15:47:50

From: Mat
Quite Profitable no?

Depends. If you make your soda ash, turn it into molten glass, and blow it into an orb, charge the orb. Then yes, it could be quite profitable. Otherwise, it's mostly a loss and used for XP.

Mat

2012-03-15 15:48:48

What requirements needed?
E:Is this were you can old buy like 100 staffs every 4 hours?

Kyle Undefined

2012-03-15 15:50:39

Just the crafting levels. Doing Varrock tasks help you buy more staffs from the staff guy, dunno his name :p

Jokester

2012-03-15 15:52:00

From: Mat
What requirements needed?
E:Is this were you can old buy like 100 staffs every 4 hours?

Yeah there is a limit on the G.E. but you can buy from other people or just wait a long time to get a few thousand.

halgboy_tbc

2012-03-15 15:59:47

There are always many sellers of battlestaves on the forums. You can usually get as many staves as you want on the forum for about 250 gp more than the GE costs. You can get up to 318k exp an hour manually at a cost of 5.9 gp per exp, so this would be a great bot for main training or w/e but not of course money making if done this way.

Mr Stoj

2012-03-15 17:11:39

you can pretty much just use a fletcher or a herblore script for this just change the items.
its nothing special

halgboy_tbc

2012-03-15 18:00:54

From: Mr Stoj
you can pretty much just use a fletcher or a herblore script for this just change the items.
its nothing special

:O Would I be able to do this myself? Could you give me some pointers

Mr Stoj

2012-03-15 18:06:18

how long would this be running for?
cos with a 100 limit i can write you something that will last 1hour completely basic so you can see what is going on

halgboy_tbc

2012-03-15 18:27:16

I actually just tried as you first said, using a fletching bot, I was able to change a few things and it is now working succesfully (so far) with orbs/staffs atm.

Thanks a lot for the help.

Mr Stoj

2012-03-15 18:52:46

awww ill stop making one then :P

this is how far i got

Program MRstoj;

{$DEFINE SMART}
{$DEFINE SRL5}
{$i srl/srl.simba}

procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] Do
Begin
Name := '';
Pass := '';
Active := True;
end;
end;

procedure BankChest;//Credits to the SRL Team :)
begin
OpenBankChest(SRL_BANK_SW);
if(PinScreen)then InPin(Players[CurrentPlayer].Pin);
if (BankScreen) then
begin
Exit;
end else
BankChest;
end;

procedure Banking;
begin
BankChest;

if (BankScreen) then
begin
Deposit(4, 28, true);
Wait(20);
Withdraw(9, 0, 14);
Withdraw(9, 1, 14);
CloseBank;
Wait(50+Random(100));
Exit;
end else
if not (BankScreen) then
begin
repeat
BankChest;
until(BankScreen);
Banking;
end;
end;

procedure crafting;
begin
Wait(250 + Random(100));
InvMouse(1, 1);
InvMouse(5+randomrange(5,23), 1);
wait(700+randomrange(0,100)); // fiddle with these to get timing right, i dont know how fast it is
Mouse(125+randomrange(0,50), 423+randomrange(0,25), 10, 10, true);
repeat
wait(100+randomrange(0,100));
until invcount=14;
wait(200+random(100));
end;

procedure derp;
begin
Smart_Server := 71;
Smart_Members:= true;
Smart_Signed := true;
Smart_SuperDetail := false;
SetupSRL;
DeclarePlayers;
LogInPlayer;
end;

// :bart::bart::bart::bart::bart::bart::bart::bart::google::spongebob::sasmokin::sasmokin:
procedure mainloop;
begin
writeln('O hai Der!');
writeln('derp.jpg');
derp;
repeat
writeln('Banking');
Banking;
Writeln('Crafting staves');
Crafting;
until not LoggedIn;
TerminateScript;
end;

halgboy_tbc

2012-03-15 18:54:19

Sorry about that, but thanks so much, you helped me out a ton.
And… i scripted for my first time? (barely) But, I am learning.

Mr Stoj

2012-03-15 19:01:10

From: halgboy_tbc
Sorry about that, but thanks so much, you helped me out a ton.
And… i scripted for my first time? (barely) But, I am learning.

that is all that is asked of you.seriously its not hard its just logic

if you ever don't understand something look here
http://villavu.com/forum/showthread.php?t=49089

sorted me out.

Gucci

2012-03-15 19:34:56

Well give me a few mins I'll release one

Gucci

2012-03-15 19:49:31

Here copy and paste this into Simba and start at Soul Wars:

No Testing so let me know how it goes :)

program GuccisBattlestaffMaker;
{$DEFINE SMART}
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
 SRLStats_User = ''; // Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 MEMBERS = True;
 NumbOfPlayers = 1;
 StartPlayer = 0;
 CraftingEXP = 210; // Edit this for exp gained per staff made.

 var
  StaffsMade, CraftEXP: integer;

 procedure DeclarePlayers;
  var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer
  for i := 0 to NumbOfPlayers-1 do
  Players[i].BoxRewards := ['XP'];

  With Players[0] do
    begin
      Name := ''; //Username.
      Pass := ''; //Password.
      Pin := ''; // Bank Pin.
      Active := True;
    end;

end;

procedure GetGoods;
begin
  SetAngle(SRL_ANGLE_HIGH);
  Wait(200 + Random(100));
  OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        Withdraw(0, 0, 14);
        Withdraw(1, 0, 14);
        Wait(300);
        CloseBank;
        WriteLn('Got Goods');
      end;
    end;
end;

procedure DepositGoods;
begin
  if (InvCount = 14) then
  begin
   OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        DepositAll;
        Wait(300);
        CloseBank;
        WriteLn('Deposited Staffs');
      end;
    end;
end;
end;

procedure MakeStaffs;
begin
 MouseSpeed := 40;
 InvMouse(14, mouse_left);
 Wait(100);
 InvMouse(15, mouse_left);
 Mouse(553, 571, 1, 1, True);
end;

procedure StaffMade;
begin
  if BankScreen then
  IncEx(StaffsMade, 14);
end;

procedure Report;

begin

  if (BankScreen) then
begin
   CraftEXP:= (StaffsMade*CraftingExp);

  Writeln('############ Guccis Staff Maker ##########');
  Writeln('|= Player : ' + Players[CurrentPlayer].Name);
  Writeln('|= Time Running : ' + TimeRunning);
  Writeln('|= Crafting EXP gained : ' + IntToStr(CraftEXP));
  Writeln('##########################################');
end;
end;

Begin
  Smart_Signed := TRUE;
  Smart_Members := MEMBERS;
  Smart_SuperDetail := FALSE;
  Smart_Server := 30;
  ActivateClient;
  SetupSRL;
  DeclarePlayers;
  if not (LoggedIn) then
  LoginPlayer;
  Wait(4000+random(400));
  SetAngle(SRL_ANGLE_HIGH);
   Repeat
    GetGoods;
    MakeStaffs;
    DepositGoods;
    Report;
   Until(False)
End.

Mr Stoj

2012-03-15 19:50:53

From: Gucci
Here copy and paste this into Simba and start at Soul Wars:

No Testing so let me know how it goes :)

program GuccisBattlestaffMaker;
{$DEFINE SMART}
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
 SRLStats_User = ''; // Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 MEMBERS = True;
 NumbOfPlayers = 1;
 StartPlayer = 0;
 CraftingEXP = 210; // Edit this for exp gained per staff made.

 var
  StaffsMade, CraftEXP: integer;

 procedure DeclarePlayers;
  var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer
  for i := 0 to NumbOfPlayers-1 do
  Players[i].BoxRewards := ['XP'];

  With Players[0] do
    begin
      Name := ''; //Username.
      Pass := ''; //Password.
      Pin := ''; // Bank Pin.
      Active := True;
    end;

end;

procedure GetGoods;
begin
  SetAngle(SRL_ANGLE_HIGH);
  Wait(200 + Random(100));
  OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        Withdraw(0, 0, 14);
        Withdraw(1, 0, 14);
        Wait(300);
        CloseBank;
        WriteLn('Got Goods');
      end;
    end;
end;

procedure DepositGoods;
begin
  if (InvCount = 14) then
  begin
   OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        DepositAll;
        Wait(300);
        CloseBank;
        WriteLn('Deposited Staffs');
      end;
    end;
end;
end;

procedure MakeStaffs;
begin
 MouseSpeed := 40;
 InvMouse(14, mouse_left);
 Wait(100);
 InvMouse(15, mouse_left);
 Mouse(553, 571, 1, 1, True);
end;

procedure StaffMade;
begin
  if BankScreen then
  IncEx(StaffsMade, 14);
end;

procedure Report;

begin

  if (BankScreen) then
begin
   CraftEXP:= (StaffsMade*CraftingExp);

  Writeln('############ Guccis Staff Maker ##########');
  Writeln('|= Player : ' + Players[CurrentPlayer].Name);
  Writeln('|= Time Running : ' + TimeRunning);
  Writeln('|= Crafting EXP gained : ' + IntToStr(CraftEXP));
  Writeln('##########################################');
end;
end;

Begin
  Smart_Signed := TRUE;
  Smart_Members := MEMBERS;
  Smart_SuperDetail := FALSE;
  Smart_Server := 30;
  ActivateClient;
  SetupSRL;
  DeclarePlayers;
  if not (LoggedIn) then
  LoginPlayer;
  Wait(4000+random(400));
  SetAngle(SRL_ANGLE_HIGH);
   Repeat
    GetGoods;
    MakeStaffs;
    DepositGoods;
    Report;
   Until(False)
End.

simple yet eligant
mine looks like a dog has wiped itself with it

halgboy_tbc

2012-03-15 20:33:19

From: Gucci
Here copy and paste this into Simba and start at Soul Wars:

No Testing so let me know how it goes :)

program GuccisBattlestaffMaker;
{$DEFINE SMART}
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
 SRLStats_User = ''; // Your SRL Stats Username
 SRLStats_Password = ''; // Your SRL Stats Password
 MEMBERS = True;
 NumbOfPlayers = 1;
 StartPlayer = 0;
 CraftingEXP = 210; // Edit this for exp gained per staff made.

 var
  StaffsMade, CraftEXP: integer;

 procedure DeclarePlayers;
  var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer
  for i := 0 to NumbOfPlayers-1 do
  Players[i].BoxRewards := ['XP'];

  With Players[0] do
    begin
      Name := ''; //Username.
      Pass := ''; //Password.
      Pin := ''; // Bank Pin.
      Active := True;
    end;

end;

procedure GetGoods;
begin
  SetAngle(SRL_ANGLE_HIGH);
  Wait(200 + Random(100));
  OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        Withdraw(0, 0, 14);
        Withdraw(1, 0, 14);
        Wait(300);
        CloseBank;
        WriteLn('Got Goods');
      end;
    end;
end;

procedure DepositGoods;
begin
  if (InvCount = 14) then
  begin
   OpenBankChest(SRL_BANK_SW);

  if (BankScreen) or (PinScreen) then

  begin
    if (PinScreen) then
      repeat
        InPin(Players[0].Pin);
      until (BankScreen);

    if (BankScreen) then
      begin
        WriteLn('Bank is Open');
        DepositAll;
        Wait(300);
        CloseBank;
        WriteLn('Deposited Staffs');
      end;
    end;
end;
end;

procedure MakeStaffs;
begin
 MouseSpeed := 40;
 InvMouse(14, mouse_left);
 Wait(100);
 InvMouse(15, mouse_left);
 Mouse(553, 571, 1, 1, True);
end;

procedure StaffMade;
begin
  if BankScreen then
  IncEx(StaffsMade, 14);
end;

procedure Report;

begin

  if (BankScreen) then
begin
   CraftEXP:= (StaffsMade*CraftingExp);

  Writeln('############ Guccis Staff Maker ##########');
  Writeln('|= Player : ' + Players[CurrentPlayer].Name);
  Writeln('|= Time Running : ' + TimeRunning);
  Writeln('|= Crafting EXP gained : ' + IntToStr(CraftEXP));
  Writeln('##########################################');
end;
end;

Begin
  Smart_Signed := TRUE;
  Smart_Members := MEMBERS;
  Smart_SuperDetail := FALSE;
  Smart_Server := 30;
  ActivateClient;
  SetupSRL;
  DeclarePlayers;
  if not (LoggedIn) then
  LoginPlayer;
  Wait(4000+random(400));
  SetAngle(SRL_ANGLE_HIGH);
   Repeat
    GetGoods;
    MakeStaffs;
    DepositGoods;
    Report;
   Until(False)
End.

It is going to the bank, getting the items, using them on each other, but when the Make screen comes up it does not click make and it repeats this process.

"Bank is Open
Got Goods
Bank is Open
Got Goods
Bank is Open
Got Goods
Bank is Open
etc"

Gucci

2012-03-15 21:15:25

Okay change the coords for this line –> Mouse(553, 571, 1, 1, True); to wherever the make orb appears then it will click it. To do this drag the window crosshairs over to SMART then use the find color thing and click in the middle of the make icon and change 533, 571 to whatever you get. If I have time ill make a DTM or something