Page 3 of 3 FirstFirst 123
Results 51 to 61 of 61

Thread: Trav's Essence Miner [Reflection]

  1. #51
    Join Date
    Jan 2011
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey im new here, and when i try to start the script, i get error
    [Error] (229:29): Invalid number of parameters at line 228
    Compiling failed.
    Line 228 is: Aubury:=SortNPCs(GetNPCs);

  2. #52
    Join Date
    Dec 2006
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/forester.scar(329:3): Variable 'I' never used at line 328
    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/forester.scar(329:3): Variable 'CTS' never used at line 328
    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/forester.scar(330:3): Variable 'P' never used at line 329
    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/forester.scar(331:3): Variable 'OBJS' never used at line 330
    [Hint] C:\Simba\Includes\SRL/SRL/core/antirandoms/forester.scar(332:3): Variable 'DONE' never used at line 331
    [Error] (70:31): Invalid number of parameters at line 69
    Compiling failed.

    looked good but whats wrong?
    -/Roo7\-

  3. #53
    Join Date
    Dec 2010
    Posts
    808
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Now although I have an essence miner I am still happy to help
    Here is a compiling version:

    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i srl\srl.scar}
    {$i reflection\reflection.simba}

    //*******************************\\
    //     Trav's Essence Miner      \\
    //*******************************\\
    //            Setup              \\
    //     Fill in lines 36-44       \\
    //       Start in bank           \\
    //     Hit The Start Button      \\
    //*******************************\\
    //          To-Do List           \\
    //  1.Anything you want to see?  \\
    //*******************************\\

    type
      EssOptions = record
        EssTotal,TimeTotal,LoadsTotal,Loads,Break:Integer;
        Exp:Extended;
        Debug:Boolean;
      end;

    var
      Options:array of EssOptions;
      Time,TimeMark,BreakTime:Integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      SetLength(Options,HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';           //your username, duh
      Players[0].Pass := '';           //your password
      Players[0].Nick := '';           //3-4 letters of ur username, not including first letter
      Players[0].Active := True;       //Is he going to Mine?
      Players[0].Pin := '';            //Your Pin if you have one

      Options[0].Loads := 0;           //how many loads to do, 0 for unlimited
      Options[0].Debug := True;        //Enable Debuging?
      Options[0].Break := 0;           //Take a break every X hours? 0 = disabled

    end;

    procedure Debug(s:String);
    begin
      if(Options[CurrentPlayer].Debug = True) then
        writeln(s);
    end;

    procedure MineEss; forward;

    procedure Antiban;
    var
      EssPlayers:Array of TPlayer;
      I,RanPlayer:Integer;
      TP:TPoint;
    begin
      R_FindRandoms;
      if LevelUp then
        MineEss;
      Case Random(40) of
        1: RandomRClick;
        2:
        begin
          EssPlayers := GetAllPlayers;
          if(Length(EssPlayers)>0)then
          begin
            RanPlayer := RandomRange(0,High(EssPlayers));
            if(TileOnMS(Tile(EssPlayers[RanPlayer].Tile.X,EssPlayers[RanPlayer].Tile.Y),5)) then
            begin
              TP:=TileToMS(Tile(EssPlayers[RanPlayer].Tile.X,EssPlayers[RanPlayer].Tile.Y),5);
              Mouse(TP.X,TP.Y,5,5,false);
              wait(200+random(300));
              MMouse(RandomRange(MIX1,MIX2),RandomRange(MIY1,MIY2),0,0);
            end;
          end;
        end;
        3:
        begin
          MMouse(-100+random(50),-50-random(50),5,5);
          wait(3000+random(5000));
        end;
        4:
        begin
          PickUpMouse;
          wait(1000+random(500));
        end;
        5:
        begin
          GameTab(21+Random(10));
          wait(100+random(2000));
          GameTab(25);
        end;
      end;
    end;

    //originally R_DepositAllByIDEX by Zyt3x, but updated for my needs.
    procedure EM_DepositAllButIDEx(IDs : TIntegerArray);
    var
      I, T : Integer;
      Item : TInvItem;
    begin
      if not LoggedIn then
        Exit;
      for I := 1 to 28 do
      begin
        Item := GetInvItemAt(I);
        if(InIntArray(IDs, Item.ID))then Continue;
        R_ClickItem(I, False, 'Deposit-All');
        T := GetSystemTime;
        while(R_ItemExists(I)) and (GetSystemTime-T<6000) do
          wait(100);
      end;
    end;

    procedure Bank;
    var
      Items:TInvItemArray;
    begin
      if not LoggedIn Then
        Exit;
      R_FindRandoms;
      Debug('Opening Bank and Depositing all but Pickaxes');
      wait(500+random(500));
      if(R_ItemIdExistsEx([7936,1436],Items)) then
      begin
        if R_OpenBankBooth('veb') then
        begin
          if(R_ItemIDExistsEx([1269,1271,1265,15259,1267,1273,1275],Items)) then
          begin
            EM_DepositAllButIDEx([1269,1271,1265,15259,1267,1273,1275]);
            wait(300+random(500));
          end
          else
          begin
            DepositAll;
          end;
        end
        else if(OpenBank('veb',True,True)) then
        begin
          Debug('Opening Bank With Color');
          if(R_ItemIDExistsEx([1269,1271,1265,15259,1267,1273,1275],Items)) then
          begin
            EM_DepositAllButIDEx([1269,1271,1265,15259,1267,1273,1275]);
            wait(300+random(500));
          end
          else
          begin
            DepositAll;
          end;
        end
        else
        begin
          Debug('Error Finding Bank, Making Sure We are in the bank and trying again.');
          wait(1000+random(200));
          if(DistanceFrom(Tile(3253,3421))<3) then
          begin
            Debug('We are in the Bank');
          end
          else
          begin
            WalkToTile(Tile(3253,3421),1,0);
            Debug('Found we were not in bank and now we are in the bank');
          end;
          if R_OpenBankBooth('veb') then
          begin
            if(R_ItemIDExistsEx([1269,1271,1265,15259,1267,1273,1275],Items)) then
            begin
              EM_DepositAllButIDEx([1269,1271,1265,15259,1267,1273,1275]);
              wait(300+random(500));
            end
            else
            begin
              DepositAll;
            end;
          end
          else if(OpenBank('veb',True,True)) then
          begin
            Debug('Opening Bank With Color');
            if(R_ItemIDExistsEx([1269,1271,1265,15259,1267,1273,1275],Items)) then
            begin
              EM_DepositAllButIDEx([1269,1271,1265,15259,1267,1273,1275]);
              wait(300+random(500));
            end
            else
            begin
              DepositAll;
            end;
          end
          else
          begin
            Debug('Not At bank, quiting');
            Logout;
            Players[CurrentPlayer].Active := False;
            Exit;
          end;
        end;
      end;

    end;

    procedure WalkToAubury;
    var
      Path:TTileArray;
    begin
      if not LoggedIn then
        Exit;
      Debug('Walking To Aubury');
      Path := [Tile(3259, 3411),Tile(3253, 3400)];
      WalkPath(Path);
      wait(500+random(500));
    end;

    procedure FindAubury;
    var
      Aubury, AllNPCs:TNPCArray;
      PT:TPoint;
      x,I,y:Integer;
    begin
      if not LoggedIn then
        Exit;
      Debug('Finding Aubury');
      repeat
        AllNPCs := GetAllNPCs(False);
        Aubury := SortNPCs(AllNPCs);
        for I:=0 to High(Aubury) do
        begin
          if(ToStr(Aubury[I].Name) = 'Aubury') then
          begin
            if(TileOnMS(Tile(Aubury[i].Tile.X, Aubury[i].Tile.Y),5)) then
            begin
              PT := TileToMs(Tile(Aubury[i].Tile.X, Aubury[i].Tile.Y),5);
              Mouse(PT.x,PT.y,0,0,false);
              if(R_ChooseOption('eleport')) then
              begin
                Debug('Found Aubury');
                x:=1;
                break;
              end;
            end;
          end;
        end;
      until(x=1);
      repeat
      until(FindColorTolerance(x,y,14604757,MMX1,MMY1,MMX2,MMY2,10));
      wait(1000+random(500));
    end;

    procedure FindClosestEss;
    var
      Ess:TRSObjectArray;
      I:Integer;
    begin
      if Not LoggedIn then
        Exit;
      R_FindRandoms;
      Debug('Finding Location In Mine');
      Ess:=GetObjectsByIDEx([2491],OBJECT_TYPE_INTERACTABLE,50);
      for i:=0 to High(Ess) do
      begin
        if (High(Ess)>40) then
          Break;
        if TileOnMS(Ess[I].Tile,5) then
          Exit;
      end;
      if(TileonMM(Tile(2925, 4818))) then       //southeast
      begin
        Debug('SouthEast');
        WalkToTile(Tile(2925,4818),1,2);
      end
      else if(TileonMM(Tile(2898, 4818))) then  //southwest
      begin
        Debug('southwest');
        WalkToTile(Tile(2898, 4818),1,2);
      end
      else if(TileOnMM(Tile(2896, 4845))) then  //Northwest
      begin
        Debug('Northwest');
        WalkToTile(Tile(2896, 4845),1,2);
      end
      else if(TileOnMM(Tile(2923, 4846))) then  //northeast
      begin
        Debug('Northeast');
        WalkToTile(Tile(2923, 4846),1,2);
      end
      else if(TileOnMM(Tile(2921, 4844))) then  //Northeast from middle
      begin
        Debug('In Middle, Walking to Northeast');
        WalkToTile(Tile(2921, 4844),1,2);
      end
      else if(TileOnMM(Tile(2899, 4820))) then  //Southwest from middle
      begin
        Debug('In Middle, Walking to SouthWest');
        WalkToTile(Tile(2899, 4820),1,2);
      end
      else
      begin
        Debug('Error Finding Essence, Quiting');
        Logout;
        Players[CurrentPlayer].Active := False;
        Exit;
      end;
      wait(1000+random(500));
    end;

    procedure MineEss;
    var
      Ess:TRSObjectArray;
      TP:TPoint;
      I,T,X:Integer;
    begin
      if not LoggedIn then
        Exit;
      Debug('Mining Essence');
      repeat
        Ess:=GetObjectsByIDEx([2491],OBJECT_TYPE_INTERACTABLE,50);
        if(High(Ess)>40) then
          FindClosestEss;
        for I:=5 to High(Ess) do
        begin
          TP := TileToMS(Ess[I].Tile ,5);
          MMouse(TP.X,TP.Y,3,3);
          wait(100+random(50));
          If(R_IsUpTextMulti(['ine','ssence'])) then
          begin
            ClickMouse2(true);
            x:=1;
            Break;
          end;
        end;
      until(x=1);
      T:=GetSystemTime;
      repeat
        Antiban;
        wait(1000+random(2000));
      until(R_InvFull) or (GetSystemTime-T>240000);

    end;

    procedure FindPortal;
    var
      x,y,t:Integer;
      Portal:TRSObject;
      PT:TPoint;
    begin
      If Not LoggedIn then
        Exit;
      Debug('Done Mining Essence, time to find the portal');
      if(TileOnMM(Tile(2890,4813))) then       //northwest
      begin
        WalkToTile(Tile(2890,4813),1,1);
      end
      else if(TileOnMM(Tile(2933,4817))) then  //northeast
      begin
        WalkToTile(Tile(2933,4817),1,1);
      end
      else if(TileOnMM(Tile(2886, 4849))) then //southwest
      begin
        WalkToTile(Tile(2886, 4849),1,1);
      end
      else if(TileOnMM(Tile(2932, 4854))) then //southeast
      begin
        WalkToTile(Tile(2931, 4853),1,1);
      end;
      MarkTime(t);
      while(Not IsIdle) or (TimeFromMark(t)<2000) do
        wait(100);
      wait(500+random(300));
      repeat
        Portal:=GetObjectByID(2492,OBJECT_TYPE_INTERACTABLE,50);
        PT:=TileToMS(Portal.Tile,5);
        MMouse(PT.X,PT.Y,5,5);
        if(R_IsUpText('ortal')) then
        begin
          wait(100+random(100));
          if(R_IsUpText('ortal')) then
          begin
            Debug('Found Portal');
            ClickMouse2(True);
            x:=1
          end;
        end;
        wait(500+random(500));
      until(x=1);
      repeat
      until(FindColorTolerance(x,y,4025968,MMX1,MMY1,MMX2,MMY2,10));
    end;

    procedure WalkToBank;
    var
      Path:TTileArray;
    begin
      if not LoggedIn then
        Exit;
      Debug('Walking To Bank');
      Path:= [Tile(3258,3412),Tile(3253,3421)];
      WalkPath(Path);
    end;

    procedure DoChecks;
    var
      run:Integer;
    begin
      if not LoggedIn then
        Exit;
        R_FindRandoms;
      if(Options[CurrentPlayer].Loads>=Options[CurrentPlayer].LoadsTotal) and (Options[CurrentPlayer].Loads<>0) then
      begin
        Debug('Player is done.  Going to next Player');
        Logout;
        Players[CurrentPlayer].Active:=False;
        Exit;
      end;
      if(TimeMark=0) then
      begin
        MarkTime(TimeMark);
      end
      else
      begin
        Options[CurrentPlayer].TimeTotal := Options[CurrentPlayer].TimeTotal+TimeFromMark(TimeMark);
        MarkTime(TimeMark);
      end;
      R_MakeCompass('n');
      SetAngle(True);
      run:=R_GetMMLevels('run');
      if(run>80+random(20)) and (not R_IsRunning) then
      begin
        SetRun(true)
      end;
      if(run<15+random(15)) then
      begin
        R_Rest(80+random(20));
        SetRun(True);
      end;
    end;

    procedure SetUpScript;
    var
      I:Integer;
    begin
      for I:=0 to (HowManyPlayers-1) do
      begin
        TimeMark := 0;
        Options[I].EssTotal:=0;
        Options[I].Exp:=0;
        Options[I].Loads:=0;
        Options[I].LoadsTotal:=0;
        Options[I].TimeTotal:=1;
        MarkTime(BreakTime);
        if(Options[I].Break<>0) then
          Options[I].Break:=Options[I].Break*3600000;
      end;
    end;

    procedure IsBreakTime;
    var
      T:Integer;
    begin
      if not LoggedIn then
        Exit;
      if(Options[CurrentPlayer].Break=0) then
        Exit;
      if(GetSystemTime-BreakTime>=Options[CurrentPlayer].Break) then
      begin
        Debug('Time for a break.');
        T:=GetSystemTime+RandomRange(1200000,2400000);
        case Random(3) of
          1:
          begin
            ExitToLobby;
            repeat
              Debug('Time Left in Break:'+MsToTime((T-GetSystemTime),Time_Short));
              if(T-GetSystemTime>60000) then
              begin
                wait(RandomRange(180000,300000));
              end
              else
              begin
                wait(RandomRange(40000,60000));
              end;
            until(T<GetSystemTime);
            Debug('Break Over');
            if (LobbyScreen) then
            begin
              MouseBox(72, 445, 570, 477, 1);
            end
            else
            begin
              LoginPlayer;
            end;
          end;
          2:
          begin
            repeat
              Debug('Time Left in Break:'+MsToTime((T-GetSystemTime),Time_Short));
              if(T-GetSystemTime>60000) then
              begin
                wait(RandomRange(180000,300000));
              end
              else
              begin
                wait(RandomRange(40000,60000));
              end;
            until(T<GetSystemTime);
            Debug('Break Over');
            if (LobbyScreen) then
            begin
              MouseBox(72, 445, 570, 477, 1);
            end
            else
            begin
              LoginPlayer;
            end;
          end;
          3:
          begin
            Logout;
            repeat
              Debug('Time Left in Break:'+MsToTime((T-GetSystemTime),Time_Short));
              if(T-GetSystemTime>60000) then
              begin
                wait(RandomRange(180000,300000));
              end
              else
              begin
                wait(RandomRange(40000,60000));
              end;
            until(T<GetSystemTime);
            Debug('Break Over');
            LoginPlayer;
          end;
        end;
      end;
      repeat
        BreakTime:=GetSystemTime;
        wait(1000+random(1000));
      until(Loggedin);
    end;

    procedure ProgressReport;
    var
      I:Integer;
      EssPerHour,Exp64:Int64;
    begin
      if(TimeMark=1) then
      begin
        MarkTime(TimeMark);
      end
      else
      begin
        Options[CurrentPlayer].TimeTotal := Options[CurrentPlayer].TimeTotal+TimeFromMark(TimeMark);
        MarkTime(TimeMark);
      end;
      Options[CurrentPlayer].EssTotal := Options[CurrentPlayer].EssTotal+ R_CountItemIDEx([7936,1436]);
      Options[CurrentPlayer].Exp:= Options[CurrentPlayer].Exp+(5*R_CountItemIDEx([7936,1436]));
      Inc(Options[CurrentPlayer].LoadsTotal);
      Writeln('***********************************************');
      Writeln('**********Traveler''s Essence Miner************')
      Writeln('***********************************************');
      Writeln('*Total Time Runing: '+Padr(MsToTime(GetTimeRunning, Time_Short),26)+'*');
      WriteLn('***********************************************');
      for I := 0 to HowManyPlayers-1 do
      begin
        Writeln('*Progress Report For: '+Padr(Players[I].Name,24)+'*');
        Writeln('*---------------------------------------------*');
        Writeln('*Time Runing: '+Padr(MsToTime(Options[I].TimeTotal,Time_Short),32)+'*');
        Writeln('*Essence Made: '+Padr(IntToStr(Options[I].EssTotal),31)+'*');
        EssPerHour := Round((Options[I].EssTotal*60)/(Options[I].TimeTotal/60000.0));
        //test := Round((Options[I].BarsTotal*3600000)/Options[I].Time);
        Writeln('*Essence Per Hour: '+Padr(IntToStr(EssPerHour),27)+'*');
        Writeln('*Loads: '+Padr(IntToStr(Options[I].LoadsTotal),38)+'*');
        Writeln('*Exp Gained: '+Padr(IntToStr(Round(Options[I].Exp)),33)+'*');
        Exp64 := Round((Options[I].Exp*3600000)/Options[I].TimeTotal);
        Writeln('*Exp Per Hour: '+Padr(IntToStr(exp64),31)+'*');
        Writeln('*---------------------------------------------*');
      end;
    end;

    begin
      Smart_Server := 141;
      Smart_Members := False;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      SetupReflectionEX(true);
      DeclarePlayers;
      SetUpScript;
      BreakTime:=GetSystemTime;
      repeat
        repeat
          if not LoggedIn then
          begin
            LoginPlayer;
            BreakTime:=GetSystemTime;
          end;
          DoChecks;
          Bank;
          WalkToAubury;
          FindAubury;
          FindClosestEss;
          MineEss;
          FindPortal;
          WalkToBank;
          ProgressReport;
          IsBreakTime;
        until(Not LoggedIn);
        NextPlayer(Players[CurrentPlayer].Active);
      until(AllPlayersInactive);
    end.

  4. #54
    Join Date
    Jan 2011
    Posts
    350
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    i still get error with above posted version
    [Error] (37:22): Unknown identifier 'coolbro' at line 36
    Compiling failed.
    when i dont type username or pass it gets to login but nothing else

  5. #55
    Join Date
    Dec 2010
    Posts
    808
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mika View Post
    i still get error with above posted version
    [Error] (37:22): Unknown identifier 'coolbro' at line 36
    Compiling failed.
    when i dont type username or pass it gets to login but nothing else
    Players[0].Name := 'coolbro'; //your username, duh

    Compiles for me.

    -Boom

  6. #56
    Join Date
    Jan 2011
    Posts
    350
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    i figured out what i did wrong i didn't put username and password between the '' i just deleted the '' and put my name and pass there. but now i have a new problem it doesnt log me in. it starts SMART but doesnt type in username or anything doesnt start working even if i manually log in nothing no red dot thingy nothing doesnt work. I NOTICED it doesnt seem to work on WIN7 or VISTA. when i used some fishing auto it worked fine on XP
    but not on WIN7. wats wrong? (i did run as administrator)

  7. #57
    Join Date
    Dec 2010
    Posts
    808
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mika View Post
    i figured out what i did wrong i didn't put username and password between the '' i just deleted the '' and put my name and pass there. but now i have a new problem it doesnt log me in. it starts SMART but doesnt type in username or anything doesnt start working even if i manually log in nothing no red dot thingy nothing doesnt work. I NOTICED it doesnt seem to work on WIN7 or VISTA. when i used some fishing auto it worked fine on XP
    but not on WIN7. wats wrong? (i did run as administrator)
    You need to change your windows to Fixed.
    Go to runescape, Settings, Fixed not resizeable

    -Boom

  8. #58
    Join Date
    Jan 2011
    Posts
    350
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    got it to work but my character could not find the portal it would stand by it and red dot would search around the portal and not find it

  9. #59
    Join Date
    Nov 2008
    Location
    Canada
    Posts
    159
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Code:
    [Hint] C:\Simba\Includes\reflection\./Core/Text.simba(400:3): Variable 'JAVASTRING' never used at line 399
    [Hint] C:\Simba\Includes\reflection\./Core/Objects.simba(85:3): Variable 'LX' never used at line 84
    [Hint] C:\Simba\Includes\reflection\./Core/Objects.simba(85:3): Variable 'LY' never used at line 84
    [Error] (70:31): Invalid number of parameters at line 69
    Compiling failed.
    Code:
    Line 69 -       EssPlayers := GetPlayers;
    I have everything updated to the latest. I assume its a Reflection error, but better safe than sorry.
    I run in triangles because circles are for squares.

  10. #60
    Join Date
    Feb 2008
    Posts
    748
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    This has been outdated for a while. I don't think traveler will be returning to fix it.

  11. #61
    Join Date
    Jul 2010
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (70:31): Invalid number of parameters at line 69

Page 3 of 3 FirstFirst 123

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
  •