SRL Archive - RS3 Outdated / Broken Scripts

well saw this on sythe. You buy attack pots (1) then empty them. sell vials for 80gp each. if this was say a script which

Bought>banked>emptied>banked>sells empty ones.

saw this methode too.

what are the costs of atk pots?

18gp ea. so easy money.

Making it, ill post in a min

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}


Const
SmartWorld='World22';
Signed=True;
Bank='veb';//where to bank?

procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // number of players
  CurrentPlayer:= 0; // starting player

  NumberOfPlayers(HowManyPlayers);

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:= True;
end;

var
x, y, i, AttPot, EmptyVial: Integer;

procedure SetupSmart;
begin
  SmartSetup(SmartWorld, False, Signed, False);
  ClearDebug;
  WriteLn('Setting up Smart! Chill out man!');
  Wait(10000 + random(5000));
  SetTargetDC(SmartGetDC);
  While not(SmartActive) do Wait(100);
end;

Procedure LoadEverything;
begin
  AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
       '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
       '7B36E25703008E9E0B07');
  EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
       '344FF03016328903515550D44164602E930206B130135B140D62A' +
       '026A7C81ACE5F8D500002CE50A62');
end;

Function EmptyVials : Boolean;
var
  Count : Integer;
begin
  LoadEverything;
  repeat
    If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
    begin
      Mouse(x,y,5,5,false);
      wait(300+random(200));
      if ChooseOption('mpty') then
        Result:=True;
    end;
  until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end else
    Result:=True;
end;

Function DepositVials : Boolean;
var
  count : Integer;
begin
  repeat
    OpenBankFast(Bank);
    Flag;
    Wait(300+random(200));
    Count:=count+1;
  until (BankScreen) or (Count>=5);
  if BankScreen then
  begin
    Count:=0
    If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
    repeat
      mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
      Wait(500+random(400));
      Count:=Count+1;
    until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
    if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
      Result:=True;
    if Count>=5 then
    begin
      writeln('Couldnt deposit vials');
      Logout;
      Players[CurrentPlayer].Active:=False;
    end else
      Result:=true;
  end;
end;

Function WithdrawVials : Boolean;
Var
  count:Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
    begin
      count:=Count+1;
      Mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
    end;
  Until (InvFull) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end;
end;

begin
  SetupSRL;
  SetupSmart;
  repeat
    WithDrawVials;
    EmptyVials;
    DepositVials;
  until false
end.

there, not intended to run without being watched ;)

Could anyone make a script that fill the vials with water? That will give us even more profit.

You mean attack mix (1)?

Attack potion (1) sells for 126gp

In that case, youll have to change the DTM's in the script i posted =/, and im too lazy to do it myself, as i wont use this anyway…

this req was a sucsess, thans a lot. :D

From: jakeyboy29
this req was a sucsess, thans a lot. :D

You could express thanks in rep ;) lol

but youre welcome…

Well this script dosent seem too hard to make I am learning so I might be able to make it but theres no promises, seeing I have alot of school work as well.

From: cheater95
Well this script dosent seem too hard to make I am learning so I might be able to make it but theres no promises, seeing I have alot of school work as well.

Already posted one ;) if you wanna add to it feel free, just mention me in the credits :D

thanks, rep +

ill try ur script now.

Ok then :D but I will change bitmap first, and see if I can edit it good enough

From: cheater95
Ok then :D but I will change bitmap first, and see if I can edit it good enough

Its a DTM, not bitmap ;) all i did was get the image from tip.it and use that to make the DTM, its not hard :P

and thanks for the rep :D

Got this error with your script sirlaughsalot:

[Runtime Error] : Exception: Access violation at address 006D72AA in module 'scar.exe'. Read of address 00000000 in line 108 in script

From: simen236
Could anyone make a script that fill the vials with water? That will give us even more profit.

You mean attack mix (1)?

Attack potion (1) sells for 126gp

i already made, was selling that script but it got outdated since rs updated ill update and release soonnnn

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}


Const
SmartWorld='World22';
Signed=True;
Bank='veb';//where to bank?

procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // number of players
  CurrentPlayer:= 0; // starting player

  NumberOfPlayers(HowManyPlayers);

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:= True;
end;

var
x, y, i, AttPot, EmptyVial: Integer;

procedure SetupSmart;
begin
  SmartSetup(SmartWorld, False, Signed, False);
  ClearDebug;
  WriteLn('Setting up Smart! Chill out man!');
  Wait(10000 + random(5000));
  SetTargetDC(SmartGetDC);
  While not(SmartActive) do Wait(100);
end;

Procedure LoadEverything;
begin
  AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
       '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
       '7B36E25703008E9E0B07');
  EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
       '344FF03016328903515550D44164602E930206B130135B140D62A' +
       '026A7C81ACE5F8D500002CE50A62');
end;

Function EmptyVials : Boolean;
var
  Count : Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
    begin
      Mouse(x,y,5,5,false);
      wait(300+random(200));
      if ChooseOption('mpty') then
        Result:=True;
    end;
  until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end else
    Result:=True;
end;

Function DepositVials : Boolean;
var
  count : Integer;
begin
  repeat
    OpenBankFast(Bank);
    Flag;
    Wait(300+random(200));
    Count:=count+1;
  until (BankScreen) or (Count>=5);
  if BankScreen then
  begin
    Count:=0
    If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
    repeat
      mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
      Wait(500+random(400));
      Count:=Count+1;
    until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
    if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
      Result:=True;
    if Count>=5 then
    begin
      writeln('Couldnt deposit vials');
      Logout;
      Players[CurrentPlayer].Active:=False;
    end else
      Result:=true;
  end;
end;

Function WithdrawVials : Boolean;
Var
  count:Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
    begin
      count:=Count+1;
      Mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
    end;
  Until (InvFull) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end;
end;

begin
  SetupSRL;
  SetupSmart;
  LoadEverything;
  repeat
    WithDrawVials;
    EmptyVials;
    DepositVials;
  until false
end.

That should work, im pretty sure…

ye sorry. ment attack mix (1) sorry :S

From: ~~Joker~~
i already made, was selling that script but it got outdated since rs updated ill update and release soonnnn

Did it get outdatet today? Some other scripts I'm using got too.


Sirlaughsalot, the script doesn't do anything! Won't log me in either.
It only says: "Setting up Smart! Chill out man!"

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
 
 
Const
SmartWorld='World22';
Signed=True;
Bank='veb';//where to bank?
 
procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // number of players
  CurrentPlayer:= 0; // starting player
 
  NumberOfPlayers(HowManyPlayers);
 
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:= True;
end;
 
var
x, y, i, AttPot, EmptyVial: Integer;
 
procedure SetupSmart;
begin
  SmartSetup(SmartWorld, False, Signed, False);
  ClearDebug;
  WriteLn('Setting up Smart! Chill out man!');
  Wait(10000 + random(5000));
  SetTargetDC(SmartGetDC);
  While not(SmartActive) do Wait(100);
end;
 
Procedure LoadEverything;
begin
  AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
       '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
       '7B36E25703008E9E0B07');
  EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
       '344FF03016328903515550D44164602E930206B130135B140D62A' +
       '026A7C81ACE5F8D500002CE50A62');
end;
 
Function EmptyVials : Boolean;
var
  Count : Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
    begin
      Mouse(x,y,5,5,false);
      wait(300+random(200));
      if ChooseOption('mpty') then
        Result:=True;
    end;
  until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end else
    Result:=True;
end;
 
Function DepositVials : Boolean;
var
  count : Integer;
begin
  repeat
    OpenBankFast(Bank);
    Flag;
    Wait(300+random(200));
    Count:=count+1;
  until (BankScreen) or (Count>=5);
  if BankScreen then
  begin
    Count:=0
    If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
    repeat
      mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
      Wait(500+random(400));
      Count:=Count+1;
    until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
    if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
      Result:=True;
    if Count>=5 then
    begin
      writeln('Couldnt deposit vials');
      Logout;
      Players[CurrentPlayer].Active:=False;
    end else
      Result:=true;
  end;
end;
 
Function WithdrawVials : Boolean;
Var
  count:Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
    begin
      count:=Count+1;
      Mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
    end;
  Until (InvFull) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end;
end;
 
begin
  SetupSRL;
  SetupSmart;
  LoginPlayer;
  LoadEverything;
  repeat
    WithDrawVials;
    EmptyVials;
    DepositVials;
  until false
end.

There >_< now it should work… thats what happens when i dont test scripts :P the stupid little mistake…

From: sirlaughsalot

There >_< now it should work… thats what happens when i dont test scripts :P the stupid little mistake…

So you just made it, but didn't test it?

What's this now:

[Runtime Error] : Out Of Range in line 383 in script C:\Program Files\Scar3.15\includes\SRL/SRL/Core/Login.scar

program New;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
 
 
Const
SmartWorld='World22';
Signed=True;
Bank='veb';//where to bank?
 
procedure DeclarePlayers;
begin
  HowManyPlayers:= 1; // number of players
  CurrentPlayer:= 0; // starting player
 
  NumberOfPlayers(HowManyPlayers);
 
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:= True;
end;
 
var
x, y, i, AttPot, EmptyVial: Integer;
 
procedure SetupSmart;
begin
  SmartSetup(SmartWorld, False, Signed, False);
  ClearDebug;
  WriteLn('Setting up Smart! Chill out man!');
  Wait(10000 + random(5000));
  SetTargetDC(SmartGetDC);
  While not(SmartActive) do Wait(100);
end;
 
Procedure LoadEverything;
begin
  AttPot:= DTMFromString('78DA630C6564605807C4500062F99FBFCCC00' +
       '565FF0702C610206B0A420D42258C04D2B1A8E66055E343841A90' +
       '7B36E25703008E9E0B07');
  EmptyVial:= DTMFromString('78DA630C6664605806C448A0BCA494811D488' +
       '344FF03016328903515550D44164602E930206B130135B140D62A' +
       '026A7C81ACE5F8D500002CE50A62');
end;
 
Function EmptyVials : Boolean;
var
  Count : Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2) then
    begin
      Mouse(x,y,5,5,false);
      wait(300+random(200));
      if ChooseOption('mpty') then
        Result:=True;
    end;
  until (not FindDTM(AttPot,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end else
    Result:=True;
end;
 
Function DepositVials : Boolean;
var
  count : Integer;
begin
  repeat
    OpenBankFast(Bank);
    Flag;
    Wait(300+random(200));
    Count:=count+1;
  until (BankScreen) or (Count>=5);
  if BankScreen then
  begin
    Count:=0
    If FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
    repeat
      mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
      Wait(500+random(400));
      Count:=Count+1;
    until (Not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2)) or (Count>=5);
    if not FindDTM(EmptyVial,x,y,MIx1,MIy1,MIx2,MIy2) then
      Result:=True;
    if Count>=5 then
    begin
      writeln('Couldnt deposit vials');
      Logout;
      Players[CurrentPlayer].Active:=False;
    end else
      Result:=true;
  end;
end;
 
Function WithdrawVials : Boolean;
Var
  count:Integer;
begin
  repeat
    If FindDTM(AttPot,x,y,MSx1,MSy1,MSx2,MSy2) then
    begin
      count:=Count+1;
      Mouse(x,y,5,5,false);
      Wait(300+random(200));
      ChooseOption('ll');
    end;
  Until (InvFull) or (Count>=5);
  if Count>=5 then
  begin
    writeln('Couldnt withdraw the vials');
    Logout;
    Players[currentPlayer].Active:=False;
  end;
end;
 
begin
  SetupSRL;
  SetupSmart;
  DeclarePlayers;
  LoginPlayer;
  LoadEverything;
  repeat
    WithDrawVials;
    EmptyVials;
    DepositVials;
  until false
end.

There :p durr forgot to put declareplayer…

what bank am I supposed to be in?

u chosse, the one already is vorack east.

From: jakeyboy29
u chosse, the one already is vorack east.

Does this script work for you jakeyboy?

not tryed it, im busy atm son maybe in a few days.