
Originally Posted by
The Mayor
I guess you are using that rsps include rj made?
if rsps_inventory.full() then ...
okay, i did this
Simba Code:
Program MineCoals;
{$I RSPS/srlRSPS.Simba}
{$I RSPS/core/prayer.Simba}
var
_myServer:_rsps_server;
Procedure MineRock;
var
i, x, y : integer;
begin
if rsps_inventory.full() then
begin
Writeln('full inventory!');
end else
if FindColorSpiralTolerance(x, y, 1383709, 1, 1, 511, 336, 1) or
FindColorSpiralTolerance(x, y, 2241588, 1, 1, 511, 336, 1) or
FindColorSpiralTolerance(x, y, 2109231, 1, 1, 511, 336, 1) then
begin
moveMouse(x, y);
if _myServer.WaitUpText('ine', 200) then
begin
Mouse(x, y);
wait(6000);
end else
Writeln('no rock found');
end;
end;
begin
_myServer.init(317, '317 server');
repeat
MineRock;
Until(false)
end.
now i get
Code:
Error: Access violation at line 162
Execution failed.