SRL Archive - RS3 Divination

you can follow the threads in forum how to setup simba64, and place the memory reading dll in plugin folder,
you can also refer to the memory reading threads for better understanding how to use it.

the link for memory reador .dll
//remove this –< github.com/pp9999/MemReading/releases/tag/0.1

the link to forum.
//remove this –<(/villavu.com/forum/showthread.php?t=116686


change dobj to whatever energy ur level is at.

program Test;
{$loadlib MemoryError}

//25544,25543= brilliant energy
begin
wait(100);
SetupRSReading(True,'inputname here',-1,2);

repeat

//getjar
if(InvFreecount()>2)then
begin
clickmaptile([2229,9117]);


begin
repeat
until(IsPlayersMoving('inputname here')=False);

repeat
until(IsPlayersAnimating('inputname here',100)=True);
end
repeat
FindDobj([111374],10,20,0,True,0,'Take-from');
wait(random(2500,6500));
until(InvFreecount()=0);
end


//start collecting
if (InvItemcount(42898)=0) then
clickmaptile([2209,9115]);
repeat

begin
repeat

begin
Wait(1500);
Writeln('find energy');
if(FindNPCs1([25544,25543],2,50,0,1,[0,0],100,0,'Harvest'))=false then
begin
clickmaptile([2209,9115])
end
end



repeat
until(IsPlayersMoving('inputname here')=False);


wait(random(800,2500));
Writeln('moving to collecting');
until(IsPlayersAnimating('inputname here',100)=True);



repeat
wait(random(800,2500));
Writeln('collecting');
until(IsPlayersAnimating('inputname here',100)=false);
end

until(InvItemcount(42900)=27);

if (InvItemcount(42900)=27) then
writeln('done colecting');
begin
ClickMapTile([2208,9133]);
repeat
until(FindDobj([111375],10,5,0,True,3,'Offer-memory'));
FindDobj([111375],10,5,0,True,0,'Offer-memory');
repeat
until(InvItemcount(42900)=0);

end
until(False);
end.

can anyone help me refine this script with using procedures without breaking the logic?

script update and optimsed for extras
knowledge fragment
cress
and
core fragment

program Test;
{$loadlib MemoryError}

procedure corefrag();
begin
if (invitemcount(42901)>0) then
begin
FindDobj([111376],1,30,0,true,0,'interact');
end
end
procedure seren();
begin
Wait(1500);
FindNPCs1([26022],1,20,0,0,[0,0],10,0,'Capture');
end
procedure centre();
begin
clickmaptile([2209+random(0,3),9115+random(0,3)]);
end


 procedure getjar();
 begin
clickmaptile([2229,9117]);
begin
repeat
until(IsPlayersMoving('put_your_name_here')=False);


end
repeat
FindDobj([111374],10,20,0,True,0,'Take-from');
repeat
until(IsPlayersAnimating('put_your_name_here',100)=True);
wait(random(2500,6500));
until(InvFreecount()=0);
end


procedure dumpjar();
 begin
ClickMapTile([2208,9133]);
repeat
until(FindDobj([111375],10,5,0,True,3,'Offer-memory'));
FindDobj([111375],10,5,0,True,0,'Offer-memory');
repeat
until(InvItemcount(42900)=0);

begin
repeat
until(IsPlayersMoving('put_your_name_here')=False);

repeat
until(IsPlayersAnimating('put_your_name_here',100)=True);
end
repeat
FindDobj([111374],10,20,0,True,0,'Take-from');
wait(random(2500,6500));
until(InvFreecount()=0);
end

procedure collect();

begin

repeat
Wait(1500);
Writeln('find energy');
//cress
if (FindNPCs1([25555],2,50,0,1,[0,0],100,0,'Harvest')=false) then
begin
//core fragment
if (FindNPCs1([25563],2,50,0,1,[0,0],100,0,'Harvest')=false) then
begin
//knowledge fragment
if (FindNPCs1([25564],2,50,0,1,[0,0],100,3,'Capture')=true) then
begin
repeat
FindNPCs1([25564],2,50,0,1,[0,0],100,0,'Capture');
wait(random(800,1200));
until((FindNPCs1([25564],2,50,0,1,[0,0],100,3,'Capture')=false));
end
begin
//enregy
FindNPCs1([25546,25545],2,50,0,1,[0,0],100,0,'Harvest');
end
end
end

Writeln('moving to collecting');
wait(random(1800,4500));
until(IsPlayersMoving('put_your_name_here')=False);
wait(random(1800,2500));

//animation of collecting
Writeln('collecting');
repeat
 seren();
until(IsPlayersAnimating('put_your_name_here',100)=false);
centre();

end

//25544,25543= brilliant energy
begin
wait(100);
SetupRSReading(True,'put_your_name_here',-1,2);

repeat

//getjar
if(InvItemcount(42898)=0)then
begin
getjar();
end


//start collecting
if (InvItemcount(42898)>0) then
centre();
repeat
repeat
collect();
until(InvItemcount(42898)=0);
until(InvItemcount(42899)=0);
//end collection


//dump jars
if (InvItemcount(42900)=26) then
writeln('done colecting');
begin
dumpjar();
end
until(False);
end.