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.