Results 1 to 2 of 2

Thread: My Simple PowerMiner

  1. #1
    Join Date
    Mar 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Simple PowerMiner

    This is my first script so dont expect anything special
    here it is and please comment on it


    SCAR Code:
    //This is my 1st script and is just simple power miner
    //set yourself by some rock you wish to mine,drag the hair across & hit play
    //Enjoy :D
    program Shockwaves_Power_Miner;
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}
    var
      Runs: Integer;
      Loads: Integer;

    const
      Rockcolor = 2503507; //Color of the rock you wish to mine
     
    Procedure Declare_Players;
    begin
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;
     
      Players[0].Name   := 'Username'; //UserName
      Players[0].Pass   := 'Password'; //Password
      Players[0].Nick   := 'Nick'; //2-4 letters of username
      Players[0].Active := true;
    end;

    Procedure Login;
    begin
      if(not(LoggedIn))then
      LoginPlayer
    end;

    Procedure Check_Randoms;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
      1: CloseWindow;
      2: if FindTalk then
      Result := True;
      3: if FindDead then
      Result := True;
      4: if FindMod then
      Result := True;
      5: if FindMime then
      Result := True;
      6: if FindMaze then
      Result := True;
      7: if FindQuiz then
      Result := True;
      8: if FindDemon then
      Result := True;
      9: if FindScapeRune then
      Result := True;
      10: if FindTalk then
      Result := True;
      11: if FindLamp(LampSkill) then
      Result := True;
      12: if (FindNewBox) then
    begin
      Result := True;
      if (UseBoxSolver) then
      SolveBox
    else
      GambleNewBox;
    end;
      13: if FindTrade then
      Result := True;
      14:
    begin
      If NoGameTab then
    begin
      Result := True;
      Players[CurrentPlayer].loc := 'No GameTab';
      Logout;
      Exit;
    end;
    end;
      15: SaveToChatLog;
      16: if RC then
      Result := True;
    end;
      Wait(1);
    end;
      Findtalk;
      FindNormalRandoms;
      if (FindFight = true) then
    begin
      RunAwayDirection('N');
      Wait(10000 + random(2000));
      Runback;
    end;
    end;

    Procedure My_Anti_Ban;
    begin
      RandomRClickEvery(2 + Random(6));
      HoverSkill('Mining',false);
      RotateEvery(20 + Random(10));
      LeaveScreenEvery(5 + Random(3));
      PickupMouse;
      SleepAndMoveMouse(500 + Random(1500));
    end;

    Procedure Mine_Rocks;
    begin
      MakeCompass('N');
    repeat
      If(FindColorSpiralTolerance(x,y,rockcolor,5,5,514,337,2))then
      MMouse(x,y,3,3);
      If (IsUpText('Mine'))then
      Mouse(x,y,0,0,true);
      Wait(5000 + Random(1000));
      FindTalk;
      FindNormalRandoms;
      Check_Randoms;
      until(InvFull);
    end;
     
    Procedure Drop;
    begin
      Gametab(4);
      DropTo(2,28);
      FindTalk;
      FindNormalRandoms;
      Check_Randoms;
      Loads:=Loads+ 1;
    end;

    Procedure Progress_Report;
    begin
      Writeln('////////// Shockwaves Power Miner ////////////');
      Writeln('Worked for '+ TimeRunning)                      ;
      Writeln('You have mined '+IntToStr(Runs)+' loads of ore');
      Writeln('You have mined '+IntToStr(Runs*28)+' ore      ');
      Writeln('////////// Shockwaves Power Miner ////////////');
    end;

    begin
      SetupSRL;
      Declare_Players;
      Login;
      repeat
      FindNormalRandoms;
      ActivateClient;
      ClearDebug;
      ChatsOff;
      My_Anti_Ban;
      Mine_rocks;
      Drop;
      Check_Randoms;
      Progress_Report;
      until(false);
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Good miner, Make DTMs of the ores and use that to drop if you can. In FindFastRandoms, Why not put that in Check Randoms,? And then just use CheckRandoms in ur script?

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. How To Make A Simple PowerMiner
    By Blumblebee in forum OSR Intermediate Scripting Tutorials
    Replies: 18
    Last Post: 07-19-2009, 04:17 AM
  2. first simple powerminer -- comments?
    By zildjohn01 in forum First Scripts
    Replies: 7
    Last Post: 05-07-2008, 01:58 AM
  3. Thomis' Simple Powerminer
    By thomis in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 08-26-2007, 06:55 AM
  4. loads in a powerminer (simple)
    By RudeBoiAlex in forum OSR Help
    Replies: 6
    Last Post: 05-06-2007, 10:45 PM
  5. Help with my simple powerminer script
    By !bezo! in forum OSR Help
    Replies: 4
    Last Post: 01-28-2007, 09:08 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
  •