mitchbud
03-03-2018, 01:40 AM
i am trying to run a rsps bot out of client (i dont have to use my mouse), i have written a script but i cant seem to get it to work or do anything in that matter, all its for is to steal from a certain contained (sarcophagus) and bank after a full inventory, the bank is less then 10 squares away. can someone help? the error i get is that it cant find sps/sps.simba
28388
Program basic_theiving;
{$i srl-6/srl.simba}
{$i SPS/SPS.simba}
procedure ClickCoffer;
var x, y: integer;
begin
if FindObj(x, y, 'in' 6010054, 10) then //this makes the script find object
begin
Mouse(x, y, 0, 0, true);
ChooseOption('Open');
wait(1500+random(1000); //this makes it wait for a certain amount of time
until (invFull)
end;
procedure bank;
begin
if (invFull) then
begin
SetupSRL;
SPS_Setup(Runescape_Surface, ['11_7'];
ToBank := [Point(2345, 3805), Point(2342, 3813)];
SPS_WalkPath(ToBank);
end;
procedure bankall;
begin
var x, y: integer;
begin
if FindObj (x, y, 'in' 13156552, 10) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('Bank');
wait(1500+random(1000);
if FindObj (x, y, 'in' 729666, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('Deposite_Inventory');
wait(1500+random(1000);
if FindObj (x, y, 'in' 65536, 10)
Mouse(x, y, 0, 0, true);
ChooseOption('Close');
wait(1500+random(1000);
end;
end;
procedure walkcoffer;
begin
if (invFull) then
begin
SetupSRL;
SPS_Setup(Runescape_Surface, ['11_7'];
ToBank := [Point(2342, 3813), Point(2345, 3805)];
SPS_WalkPath(ToCoffer);
end;
begin
repeat
ClickCoffer;
bank;
bankall;
walkcoffer;
until AllPlayersInactive;
end.
28388
Program basic_theiving;
{$i srl-6/srl.simba}
{$i SPS/SPS.simba}
procedure ClickCoffer;
var x, y: integer;
begin
if FindObj(x, y, 'in' 6010054, 10) then //this makes the script find object
begin
Mouse(x, y, 0, 0, true);
ChooseOption('Open');
wait(1500+random(1000); //this makes it wait for a certain amount of time
until (invFull)
end;
procedure bank;
begin
if (invFull) then
begin
SetupSRL;
SPS_Setup(Runescape_Surface, ['11_7'];
ToBank := [Point(2345, 3805), Point(2342, 3813)];
SPS_WalkPath(ToBank);
end;
procedure bankall;
begin
var x, y: integer;
begin
if FindObj (x, y, 'in' 13156552, 10) then
begin
Mouse(x, y, 0, 0, true);
ChooseOption('Bank');
wait(1500+random(1000);
if FindObj (x, y, 'in' 729666, 10) then
Mouse(x, y, 0, 0, true);
ChooseOption('Deposite_Inventory');
wait(1500+random(1000);
if FindObj (x, y, 'in' 65536, 10)
Mouse(x, y, 0, 0, true);
ChooseOption('Close');
wait(1500+random(1000);
end;
end;
procedure walkcoffer;
begin
if (invFull) then
begin
SetupSRL;
SPS_Setup(Runescape_Surface, ['11_7'];
ToBank := [Point(2342, 3813), Point(2345, 3805)];
SPS_WalkPath(ToCoffer);
end;
begin
repeat
ClickCoffer;
bank;
bankall;
walkcoffer;
until AllPlayersInactive;
end.