Results 1 to 1 of 1

Thread: [MemoryError] Simple light animica miner.

  1. #1
    Join Date
    Jul 2009
    Posts
    163
    Mentioned
    5 Post(s)
    Quoted
    68 Post(s)

    Default [MemoryError] Simple light animica miner.

    Next to Tirannwn lodestone there is a mining spot. Probably somewhere else aswell. This script mines until ore box is full.

    Requirements:
    Plugin. https://villavu.com/forum/showthread.php?t=116686
    Pic.
    Elder rune ore box.

    Simba Code:
    program Test;
    {$loadlib MemoryError}
    var
    count1,count2,varB,Timer1:Int32;


    Function CheckTimer():Boolean;
    begin
    if (Round(GetTickCount()/1000)-Timer1>40+Random(40)) then
    begin
    Timer1 := Round(GetTickCount()/1000);
    Result:=True;
    end;
    end;

    begin
    SetupRSReading(True," ");
    Timer1 := Round(GetTickCount()/1000);
    repeat
    wait(240+random(4500));

    //watch for serenspirits
    if (FindNPCs1([26022,27228],2,20,0,0,[0,0],0,0,'Capture')) then
    begin
    Beep1();
    wait(240+random(2500));
    end;
    //light 8324, dark 8325, rune 8318, luminite 8316
    varB:=ReadPSettings(8324)-1638400;
    Writeln('Amount in box:'+tostring(varB));

    //To stop infinite loops!
    if (not CheckInvOpen())then begin Writeln('Inventory not open!');TerminateScript(); end;
    if ((varB>140) or (varB<0))then begin Writeln('OverLimit1');TerminateScript(); end;
    if (count1>25)then begin Writeln('OverLimit2');TerminateScript(); end;
    if (count2>5)then begin Writeln('OverLimit3');TerminateScript(); end;
    //if (varB=140)then begin Writeln('Full');TerminateScript(); end;

    if (not InvFull) then
    begin
    if (random(1000)>970)then begin writeln('P');PlayerIdle(); end;
    if (not CheckPAnim(155) or CheckTimer()) then
    begin
    //dark [113022,113021,113021]
    //light [113017,113018,113019]
    //luminite [113116,113117,113118]
    //runite [112963,112964, 112964]
    if (FindAobj([113017,113018,113019],3,6,[0,0],[0,0],False,0,'Mine')) then
    begin
    count2:=0;
    count1:=count1+1;
    wait(2111);
    end;
    end;
    end else
    begin
    if(varB<140)then
    begin
    Writeln('Elderruneorebox fill');
    count1:=0;
    count2:=count2+1;
    if ClickInv(44797,99) then
    begin
    wait(1800);
    end;
    end;
    end;
    until(false)
    end.
    Attached Files Attached Files

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
  •