Results 1 to 6 of 6

Thread: My Iron Power Miner

  1. #1
    Join Date
    Jun 2007
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Iron Power Miner

    Hey, it's my first script.


    Comment, suggestions, etc.


    SCAR Code:
    {By:  006786
    Thanks to CamoKyle for his Antiban/random procedures.
    Enjoy, as this is my first script!}



    Program Powerminer;
    {.include srl/srl.scar}
    Var x,y,LoadsDone : Integer;

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

      Players[0].Name := 'blankity';
      Players[0].Pass := 'blankity';
      Players[0].Nick := 'blank';
      Players[0].Active := True;
    {
      Players[1].Name := 'blankity';
      Players[1].Pass := 'blankity';
      Players[1].Nick := 'blank';
      Players[1].Active := True;
     
      Players[2].Name := 'blankity';
      Players[2].Pass := 'blankity';
      Players[2].Nick := 'blank';
      Players[2].Active := True;}

    end;
     
    procedure IfFight;
    var Fight: integer;
    begin
      If (FindFight) Then
      begin
        RunAway('N', False, 1, 1000 + Random(500));
        Inc(Fight);
      end;
    end;

    procedure AntiRandoms;
    begin
      LampSkill := 'Mining';
      FindNormalRandoms;
      IfFight;
      if FindDead then
        NextPlayer(false);
    end;

    procedure AntiBan;
    begin
      case random(7) of
      0 : MMouse(0, 0, 700, 500);
      1 : Hoverskill('Mining', false);
      2 : BoredHuman;
      3 : RandomMovement;
      4 : GameTab(RandomRange(1,8));
      5 : PickupMouse;
      end;
    end;

    procedure GetRidOf;
    begin
      if InvFull then
        begin
          DropAll;
          Inc(LoadsDone);
          WriteLN('/\/\/\Loads Done: ' + InttoStr(LoadsDone) +' /\/\/\');
        end;
    end;



    Procedure MiningIron;
    Begin
      FindColorSpiralTolerance(x,y,1976644,0,0,517,339,20);
      AntiBan;
      Wait(2000+random(1000));
      AntiRandoms;
      MMouse(x,y,5,5);
      if IsUpText('ine') then
        Mouse(x,y,5,5,true);
      if InvFull then
        GetRidOf;
      if (LoadsDone=10) then
        NextPlayer(false);
    end;

    begin
      SetupSRL;
      ActivateClient;
      DeclarePlayers;
      LoginPlayer;
    repeat
      MiningIron;
    until(AllPlayersInactive);
    end.

  2. #2
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    very very simple, you need someway to reset the loadsdone after one player finishes... because the way you have it, it will only do one player, then will log into next and then do nextplayer(false) for that one and all the remaining ones.

  3. #3
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good start , much better then my first script. Just a few pointers.

    - Try useing the SRL Include lots more and The Wizzy Plugin that is full of TPA function, that be used with the FindColorTol you have been using to make Color finding lots better.

    SCAR Code:
    Procedure MiningIron;
    Begin
      FindColorSpiralTolerance(x,y,1976644,0,0,517,339,20);
      AntiBan;
      Wait(2000+random(1000));
      AntiRandoms;
      MMouse(x,y,5,5);
      if IsUpText('ine') then
        Mouse(x,y,5,5,true);
      if InvFull then
        GetRidOf;
      if (LoadsDone=10) then
        NextPlayer(false);
    end;

    here you might want to use a loop for when its waiting for the next rock such in....


    SCAR Code:
    Procedure MiningIron;
    var
      Start, Finsh : Integer;
    Begin
      FindColorSpiralTolerance(x,y,1976644,0,0,517,339,20);
      AntiBan;
      Wait(2000+random(1000));
      AntiRandoms;
      Start:= InvCount;
      MMouse(x,y,5,5);
      if IsUpText('ine') then
        Mouse(x,y,5,5,true);
      while Start =< InvCount do
      begin
        antiban
        wait(2000);
      end;
      if InvFull then
        GetRidOf;
      if (LoadsDone=10) then
        NextPlayer(True);
    end;



    if you see there i used some simple Integers a While Loop.

    The While loop simply works as

    While Someting = True do some other code.

    so basiclly what that does while you havent mined a rock it will wait until you have mined a rock.

  4. #4
    Join Date
    Jun 2007
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you all very much

    The next miner I make will be much better

  5. #5
    Join Date
    Jun 2007
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    One thing that I could use help with is a better way to find the rocks.

    Looking for a sliver of color isn't very efficient :|

  6. #6
    Join Date
    Sep 2008
    Location
    Not here.
    Posts
    5,422
    Mentioned
    13 Post(s)
    Quoted
    242 Post(s)

    Default

    look in the mining.scar, it has colors for each rock from each mine...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL] Iron Power-Miner Version 5
    By Lacky in forum RS3 Outdated / Broken Scripts
    Replies: 18
    Last Post: 12-26-2007, 09:35 PM
  2. need some help with my iron miner
    By lapon2046 in forum OSR Help
    Replies: 5
    Last Post: 07-19-2007, 07:42 PM

Posting Permissions

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