Page 6 of 12 FirstFirst ... 45678 ... LastLast
Results 126 to 150 of 294

Thread: Almost AIO PowerMiner

  1. #126
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by danth3g33k View Post
    Sadly no, decided to give the account a rest for the night, I'll start it up again before i go to college tomorrow and will try a 12 hour proggy!

    but with regards to deleting my previous post, i can not fix a check box or link to do so anywhere when editing. Also, I'm not new to forums and know where to look, so I have come to the conclusion that the new vB4 that the site was just updated to doesn't have that feature enabled for standard users?
    Ah, well bot safely and all that , gl on the proggy!
    For me on the new layout the delete button is right next to the cancel button, but maybe it is Jr+.

  2. #127
    Join Date
    Dec 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Running now, I took a break to get some range xp luckly right before the update broke the script. Back to getting 99 mining for me. Averaging almost 28k xp for an hour now. I'm not running in the normal place, I'd have over 30k if I was.

  3. #128
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by nugly View Post
    Running now, I took a break to get some range xp luckly right before the update broke the script. Back to getting 99 mining for me. Averaging almost 28k xp for an hour now. I'm not running in the normal place, I'd have over 30k if I was.
    Sounds awesome, what level are you at now? And try to post a screenshot of the 99 if you get a chance

  4. #129
    Join Date
    Dec 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    Quote Originally Posted by BMWxi View Post
    Sounds awesome, what level are you at now? And try to post a screenshot of the 99 if you get a chance
    Just got 95 today. I'll surely post 99 when I get it.

  5. #130
    Join Date
    Mar 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works fine!

    ~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~
    ~By BMWxi~
    Tin Mined: 164 (332 P/H)
    Mining XP earned: 2870 (5810 P/H)
    Total Time: 29 Minutes and 34 Seconds
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    gonna keep the script running untill i get a big proggy!

    Thanks for the script!

  6. #131
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Glad you like it

  7. #132
    Join Date
    Mar 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~
    ~By BMWxi~
    Tin Mined: 2544 (325 P/H)
    Mining XP earned: 44520 (5688 P/H)
    Total Time: 7 Hours, 49 Minutes and 26 Seconds
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    from around 33 to 46 mining
    altho that 7 hours would do more .. but my connection went done for an hour or so.
    but still your such a great Guy for the great script, i hope we could see more coming from you ;D!

  8. #133
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Thanks, and I will be releasing an AK smelter soon, but I'm holding off because isn't very stable yet. When that is released I'll probably make a cooking script, but I want to see where a good place is besides AK, because the oven there is filled with bots and places like that are being targeted.

  9. #134
    Join Date
    Mar 2008
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by BMWxi View Post
    Thanks, and I will be releasing an AK smelter soon, but I'm holding off because isn't very stable yet. When that is released I'll probably make a cooking script, but I want to see where a good place is besides AK, because the oven there is filled with bots and places like that are being targeted.
    Best of luck my friend!

  10. #135
    Join Date
    Jan 2013
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    9 Post(s)

    Default

    Would this work on a private server? Thanks in advance!

  11. #136
    Join Date
    Jan 2013
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    i dont think because of a different source code?( the newbie speaks )

  12. #137
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by Dynam0 View Post
    Would this work on a private server? Thanks in advance!
    No, this script uses uptext, the actionbar, and various SRL functions that only work on actual runescape. You could modify it to work on a rsps but it would be faster to just make a new one.

  13. #138
    Join Date
    Dec 2011
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    My first 25 hour proggy, forgot my varrock chest so I gave up some xp.

    Iron Mined: 18410 (735 P/H)
    Mining XP earned: 644350 (25725 P/H)
    Total Time: 25 Hours, 1 Minutes and 54 Seconds

  14. #139
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by nugly View Post
    My first 25 hour proggy, forgot my varrock chest so I gave up some xp.

    Iron Mined: 18410 (735 P/H)
    Mining XP earned: 644350 (25725 P/H)
    Total Time: 25 Hours, 1 Minutes and 54 Seconds
    Great proggy nugly, what does the varrock chest do?

  15. #140
    Join Date
    Jan 2013
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    BMW when will the drop bug be fixed ?

  16. #141
    Join Date
    Feb 2012
    Location
    Discord
    Posts
    3,114
    Mentioned
    37 Post(s)
    Quoted
    538 Post(s)

    Default

    Quote Originally Posted by BMWxi View Post
    Great proggy nugly, what does the varrock chest do?
    8% chance of double ore
    it actually makes a big difference (would of been about 30k instead of 25k xp/hr)

  17. #142
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by Farnose View Post
    BMW when will the drop bug be fixed ?
    When I release 1.2,hopefully today. I have it working perfectly except for breaktaking, a feature that I'd like to add but is not working yet.
    Quote Originally Posted by The Killer View Post
    8% chance of double ore
    it actually makes a big difference (would of been about 30k instead of 25k xp/hr)
    That's sweet, the new version will count the extra ores too

  18. #143
    Join Date
    Jan 2013
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    thnx for the reply

  19. #144
    Join Date
    Jan 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How it work mijn won't work. he doesn't open wen he loged in

  20. #145
    Join Date
    Jan 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pls help i he logged in he won't does someting pls help

  21. #146
    Join Date
    Sep 2012
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    25 Post(s)

    Default

    Quote Originally Posted by hoiikmaak View Post
    Pls help i he logged in he won't does someting pls help
    Lol, that's a really great and helpful description of the problem.

  22. #147
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by hoiikmaak View Post
    Pls help i he logged in he won't does someting pls help
    Hadouken's right, you'll need to be more specific about what is happening.

  23. #148
    Join Date
    May 2007
    Location
    England/Liverpool
    Posts
    1,004
    Mentioned
    9 Post(s)
    Quoted
    106 Post(s)

    Default

    Nice script mate next try to work with arrays they will help reduce repeating lines of code for example your mining and proggy procedures repeated alot when you could of just easily of turned the exact procedures into an universal one's instead with the use of arrays.

    Here's a quick altered version to show you.

    Simba Code:
    Program AIOPowerMiner;

    {$DEFINE SMART}
    {$i srl/srl.simba}

    Const

      Rock = 'iron'; //What rock to mine. Valid options are: 'clay', 'copper', 'tin', 'iron', 'coal', and 'gold'.
                     //If you'd like me to add more options, PM me or post in the thread you downloaded this script from.

      Pick = 'store';//Wield your pick or have it in your inventory? Valid options are: 'wield' or 'store'.

      Gems = 'drop'; //Drop Gems or keep them in your inventory? Valid options are: 'drop' or 'keep'. Dropping is reccomemded to mine longer.

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

      with Players[0] do
      begin
        Name       := ''; // Player username
        Pass       := ''; // Player password
        BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
        LampSkill  := Skill_Mining;
        Active     := True;
      end;
    end;

    {Created this object to store info for each ore}
    type
      OreObj  =  record
        Col:array of integer;
        Uptxt:array of string;
    end;

    Var
    OreInfo:OreObj;//Stores info of ores Defined in your MineOre Proc
    OreMined:integer;//Counts Total of ores Mined( just liek before but you use one variable
    OreXp:extended;// Xp Per ore Defined in your MineOre Proc

    Procedure StartLogin;

    begin
      ClearDebug;
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 10;
          Smart_Members := False;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
          SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}
      DeclarePlayers;
      LoginPlayer;
      MakeCompass('N');
      SetAngle(SRL_ANGLE_HIGH);
    end;

    Procedure CheckFriends;  //An Antiban Procedure by BMWxi
    Var
      NCx, NCy, ONx, ONy :Integer;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      gametab(tab_friends); //Goes to friends tab
      If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then  // Checks if they have changed names,
      begin                                                                  // if they have, It hovers to find their new name.
        MMouse(NCx, NCy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end;
      If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then   //Checks to see if friends are online
      begin                                                                  //hovers the names of online friends
        MMouse(ONx, ONy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end else
      begin
        Wait(RandomRange(500, 1000));  //I added this so It doesn't spam-exit when you have no friends :)
      end;
      FTab(tab_Inv);            //Returns to inventory
    end;

    procedure Antiban;
    begin
      if not LoggedIn then LoginPlayer;
      if not LoggedIn then Exit;
      FindNormalRandoms;
        case Random(90) of
          0: HoverSkill(skill_mining,false);
          1: CheckFriends;
          2: PickUpMouse;
          3: RandomMovement;
          4: BoredHuman;
          5: ExamineInv;
          6: MakeCompass('rand');
          7: SetAngle(SRL_ANGLE_HIGH);
          8: Wait(5000+random(2000));
          9..15: HoverSkill(skill_mining,false);
        end;
    end;

    { made you mining procedure Universal}
    Procedure MineAll;
    Var
        x, y, OreCounter, PlusOne: Integer;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      FindNormalRandoms;
      If FindObjCustom(x, y, OreInfo.Uptxt, OreInfo.Col, 3) Then
      Begin
        ClickMouse2(False);
        WaitOption(OreInfo.Uptxt[0], 500);
        Flag;
        MarkTime(OreCounter);
        PlusOne:= InvCount + 1
        Repeat
          wait(100);
        Until(InvCount=PlusOne) Or (TimeFromMark(OreCounter) > 10000);
        OreMined := OreMined + 1
        SendKeys('1', 12+ Random(12), 12+ Random(12)); //Thanks Laimonas!
      End;
    End;

    {made your proggy universal to fit your new/old mining procedure}
    Procedure Proggy;
    var
      MiningXPPH,PH:Integer;
    begin;
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
        PH := Round((OreMined * 3600) / (GetTimeRunning / 1000));
        MiningXPPH := Round(PH * OreXp);
        ClearDebug;
        Writeln('~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~');
        Writeln('                 ~By BMWxi~               ');
        Writeln(Rock+' Mined: ' + IntToStr(OreMined) + ' (' + IntToStr(PH) + ' P/H)');  //
        Writeln('Mining XP earned: ' +ToStr(OreMined * OreXp) + ' (' + IntToStr(MiningXPPH) + ' P/H )');
        Writeln('Total Time: ' + TimeRunning);
        Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;

    Procedure DropGems;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) then Exit;
      case Lowercase (Gems) of
        'keep':
        begin
          WriteLn('Inv Full of Gems');
        end;
        'drop':
        begin
          DropAllExcept([1]);
        end;
      end;
    end;

    Procedure MineOre;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      case Lowercase (Rock) of
        'copper':
        begin
          OreXp:=17.5;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[5083645, 4423387, 4489182];//Copper
          OreInfo.Uptxt:=['ne Co'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'tin':
        begin
          OreXp:=17.5;
          SetLength(OreInfo.Col,2);
          OreInfo.Col:=[9935006, 10921645];//Tin
          OreInfo.Uptxt:=['ne Ti'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'clay':
        begin
          OreXp:=5;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[7383241, 7251654, 7647184];//Clay
          OreInfo.Uptxt:=['ne Go'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'iron':
        begin
          OreXp:=35;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[3557756, 3491704, 2832994];//Iron
          OreInfo.Uptxt:=['ne Ir'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'gold':
        begin
          OreXp:=65;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[5099773, 5099773, 4304853];//Gold
          OreInfo.Uptxt:=['ne Go'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'coal':
        begin
          OreXp:=50;
          SetLength(OreInfo.Col,2);
          OreInfo.Col:=[2895406, 2105633];//Coal
          OreInfo.Uptxt:=['ne Co'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
      end;
    end;

    begin
      SRL_SixHourFix := True;
      SetupSRL;
      DeclarePlayers;
      Repeat
        StartLogin;
        CheckFriends;
        Repeat
          if not LoggedIn then LoginPlayer;
          MineOre;
          DropGems;
        Until(not LoggedIn) or (InvFull);
        LoginPlayer;
      Until(InvFull);
    end.

  24. #149
    Join Date
    Jun 2012
    Posts
    4,867
    Mentioned
    74 Post(s)
    Quoted
    1663 Post(s)

    Default

    Quote Originally Posted by CRU1Z1N View Post
    Nice script mate next try to work with arrays they will help reduce repeating lines of code for example your mining and proggy procedures repeated alot when you could of just easily of turned the exact procedures into an universal one's instead with the use of arrays.

    Here's a quick altered version to show you.

    Simba Code:
    Program AIOPowerMiner;

    {$DEFINE SMART}
    {$i srl/srl.simba}

    Const

      Rock = 'iron'; //What rock to mine. Valid options are: 'clay', 'copper', 'tin', 'iron', 'coal', and 'gold'.
                     //If you'd like me to add more options, PM me or post in the thread you downloaded this script from.

      Pick = 'store';//Wield your pick or have it in your inventory? Valid options are: 'wield' or 'store'.

      Gems = 'drop'; //Drop Gems or keep them in your inventory? Valid options are: 'drop' or 'keep'. Dropping is reccomemded to mine longer.

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

      with Players[0] do
      begin
        Name       := ''; // Player username
        Pass       := ''; // Player password
        BoxRewards := ['XP', 'ostume', 'mote', 'oins', 'une', 'ssence'];
        LampSkill  := Skill_Mining;
        Active     := True;
      end;
    end;

    {Created this object to store info for each ore}
    type
      OreObj  =  record
        Col:array of integer;
        Uptxt:array of string;
    end;

    Var
    OreInfo:OreObj;//Stores info of ores Defined in your MineOre Proc
    OreMined:integer;//Counts Total of ores Mined( just liek before but you use one variable
    OreXp:extended;// Xp Per ore Defined in your MineOre Proc

    Procedure StartLogin;

    begin
      ClearDebug;
      {$IFDEF SMART}
        {$IFDEF SIMBAMAJOR980}
          Smart_Server := 10;
          Smart_Members := False;
          Smart_Signed := True;
          Smart_SuperDetail := False;
        {$ELSE}
          SRL_SixHourFix := True;
          Smart_FixSpeed := True;
        {$ENDIF}
      {$ENDIF}
      DeclarePlayers;
      LoginPlayer;
      MakeCompass('N');
      SetAngle(SRL_ANGLE_HIGH);
    end;

    Procedure CheckFriends;  //An Antiban Procedure by BMWxi
    Var
      NCx, NCy, ONx, ONy :Integer;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      gametab(tab_friends); //Goes to friends tab
      If FindColorTolerance(NCx, NCy, 16683035, 546, 246, 722, 451, 5) Then  // Checks if they have changed names,
      begin                                                                  // if they have, It hovers to find their new name.
        MMouse(NCx, NCy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end;
      If FindColorTolerance(ONx, ONy, 6619135, 546, 246, 722, 451, 5) Then   //Checks to see if friends are online
      begin                                                                  //hovers the names of online friends
        MMouse(ONx, ONy, 5, 5);
        Wait(RandomRange(1000, 2000));
      end else
      begin
        Wait(RandomRange(500, 1000));  //I added this so It doesn't spam-exit when you have no friends :)
      end;
      FTab(tab_Inv);            //Returns to inventory
    end;

    procedure Antiban;
    begin
      if not LoggedIn then LoginPlayer;
      if not LoggedIn then Exit;
      FindNormalRandoms;
        case Random(90) of
          0: HoverSkill(skill_mining,false);
          1: CheckFriends;
          2: PickUpMouse;
          3: RandomMovement;
          4: BoredHuman;
          5: ExamineInv;
          6: MakeCompass('rand');
          7: SetAngle(SRL_ANGLE_HIGH);
          8: Wait(5000+random(2000));
          9..15: HoverSkill(skill_mining,false);
        end;
    end;

    { made you mining procedure Universal}
    Procedure MineAll;
    Var
        x, y, OreCounter, PlusOne: Integer;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      FindNormalRandoms;
      If FindObjCustom(x, y, OreInfo.Uptxt, OreInfo.Col, 3) Then
      Begin
        ClickMouse2(False);
        WaitOption(OreInfo.Uptxt[0], 500);
        Flag;
        MarkTime(OreCounter);
        PlusOne:= InvCount + 1
        Repeat
          wait(100);
        Until(InvCount=PlusOne) Or (TimeFromMark(OreCounter) > 10000);
        OreMined := OreMined + 1
        SendKeys('1', 12+ Random(12), 12+ Random(12)); //Thanks Laimonas!
      End;
    End;

    {made your proggy universal to fit your new/old mining procedure}
    Procedure Proggy;
    var
      MiningXPPH,PH:Integer;
    begin;
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
        PH := Round((OreMined * 3600) / (GetTimeRunning / 1000));
        MiningXPPH := Round(PH * OreXp);
        ClearDebug;
        Writeln('~~~~~~~~~~~~Almost AIO PowerMiner~~~~~~~~~~');
        Writeln('                 ~By BMWxi~               ');
        Writeln(Rock+' Mined: ' + IntToStr(OreMined) + ' (' + IntToStr(PH) + ' P/H)');  //
        Writeln('Mining XP earned: ' +ToStr(OreMined * OreXp) + ' (' + IntToStr(MiningXPPH) + ' P/H )');
        Writeln('Total Time: ' + TimeRunning);
        Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;

    Procedure DropGems;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) then Exit;
      case Lowercase (Gems) of
        'keep':
        begin
          WriteLn('Inv Full of Gems');
        end;
        'drop':
        begin
          DropAllExcept([1]);
        end;
      end;
    end;

    Procedure MineOre;
    begin
      if not LoggedIn then LoginPlayer;
      if (not LoggedIn) or (InvFull) then Exit;
      case Lowercase (Rock) of
        'copper':
        begin
          OreXp:=17.5;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[5083645, 4423387, 4489182];//Copper
          OreInfo.Uptxt:=['ne Co'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'tin':
        begin
          OreXp:=17.5;
          SetLength(OreInfo.Col,2);
          OreInfo.Col:=[9935006, 10921645];//Tin
          OreInfo.Uptxt:=['ne Ti'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'clay':
        begin
          OreXp:=5;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[7383241, 7251654, 7647184];//Clay
          OreInfo.Uptxt:=['ne Go'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'iron':
        begin
          OreXp:=35;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[3557756, 3491704, 2832994];//Iron
          OreInfo.Uptxt:=['ne Ir'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'gold':
        begin
          OreXp:=65;
          SetLength(OreInfo.Col,3);
          OreInfo.Col:=[5099773, 5099773, 4304853];//Gold
          OreInfo.Uptxt:=['ne Go'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
        'coal':
        begin
          OreXp:=50;
          SetLength(OreInfo.Col,2);
          OreInfo.Col:=[2895406, 2105633];//Coal
          OreInfo.Uptxt:=['ne Co'];
          Repeat
            MineAll;
            Proggy;
            Antiban;
          Until(InvFull);
        end;
      end;
    end;

    begin
      SRL_SixHourFix := True;
      SetupSRL;
      DeclarePlayers;
      Repeat
        StartLogin;
        CheckFriends;
        Repeat
          if not LoggedIn then LoginPlayer;
          MineOre;
          DropGems;
        Until(not LoggedIn) or (InvFull);
        LoginPlayer;
      Until(InvFull);
    end.
    Thanks, I knew there was probably a way to cut down on the repetition, I just didn't know how . I'll take a more thorough look later, it is impossible to scroll Simba tags from my phone

  25. #150
    Join Date
    Jan 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pls make a video for me i dont't get it how it works with "Fill out the contants on line 8 and 11 with the rock that you want to mine and if you want to wield or store your pick in your inventory"
    I'm dutch and don't know what to do ???

Page 6 of 12 FirstFirst ... 45678 ... LastLast

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
  •