Results 1 to 3 of 3

Thread: memory hall autoscript

  1. #1
    Join Date
    Dec 2018
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Post 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.

  2. #2
    Join Date
    Dec 2018
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  3. #3
    Join Date
    Dec 2018
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •