Results 1 to 2 of 2

Thread: crystal chests @travelry

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

    Default crystal chests @travelry

    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

    zoom completely and make the view like this

    make the screen that way that your crystal chest and bank items button are in same place
    crystal.png


    Code:
    program Test;
    {$loadlib MemoryError}
    
    procedure chest();
    begin
    repeat
    MouseClick([808,627],true);
    wait(random(1200,1500));
    until(InvItemcount(989)=0);
    end
    
    procedure rchest();
    begin
    
    clickmaptile([2917+random(-1,1),3451+random(-1,1)]);
    
    repeat
    until(PlayerInArea(2917,4,3451,4,0));
    end ;
    
    procedure atchest();
    begin
    clicktile(2917,3451,0,0);
    repeat
    wait(800)
    until(PlayerInArea(2917,1,3451,1,0));
    end  ;
    
    procedure ochest();
    begin
    repeat
    MouseClick([808,627],true);
    wait(random(1200,1500));
    MouseClick([808,627],true);
    wait(random(1200,1500));
    until(InvItemcount(989)=0);
    end
    
    
    procedure tobank();
    begin
     repeat
    clickmaptile([2875+random(-1,1),3417+random(-1,1)]);
    until(IsPlayersMoving('name')=true);
    writeln('near bank');
    end  ;
    
    procedure bank();
    begin
    repeat
    FindDobj([66666,66667,66665],3,10,0,true,0,'Bank');
    wait(1800);
    until(bankopen()=true);
    keypress('1');
    end  ;
    
    
    begin
    wait(100);
    SetupRSReading(True,'namehere',-1,2);
    
    repeat
     if((InvItemcount(989))>0) then
     begin
     rchest();
    writeln('rchest');
    wait(1500);
    atchest();
    writeln('achest');
    wait(1500);
    
    FindDobj([172],2,5,0,true,0,'Open');
    ochest();
    writeln('ochest');
    wait(1500);
     wait(1500);
    end
    
    tobank();
    writeln('to bank');
    wait(1500);
    writeln('bank');
    bank();
    
    
    
    
    until(False);
    end.
    happy botting
    Last edited by Mr.frank; 03-25-2022 at 01:50 PM. Reason: name

  2. #2
    Join Date
    Jul 2022
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Is this decent money? Thank you btw!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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