-
memory hall autoscript
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.
Code:
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
Code:
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.