Results 1 to 2 of 2

Thread: ess powerminer

  1. #1
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default ess powerminer

    can any1 help me with this script it logs in the logs back out
    SCAR Code:
    program Ess_Power_Miner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    var
      k1, k2, s1, s2, runtime : integer;

    const
      rockcolor1= '9539996';
      rockcolor2= '10856114';
      Loads = 3;// amount of loads ess mining is pritty easy so pick high
      Version = '1';

    procedure DeclarePlayers;
    begin

      HowManyPlayers:= 1;
      CurrentPlayer:= 0;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := '';//username
      Players[0].Pass := '';//password
      Players[0].Nick := '';//3-4 letter of ur username not the first 1
      Players[0].Active := True;
    //
    end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    // antiban by osmm                                            //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    procedure Antiban;//antiban
    begin
      MouseSpeed := 9 + Random(5);
       case random(7) of
       0: begin
       SleepAndMoveMouse(500 + random(500));
      SleepAndMoveMouse(1500);
     end;
       1: begin
        MMouse(Random (500), Random (500), 10 , 10);
       MMouse(Random (500), Random (500), 10 , 10);
     end;
       2: begin
      GameTab(1 + random(13));
        FTWait(RandomRange(2,4));
      GameTab(4);
     end;
       3: begin
      RandomMovement;
       ChooseOption('Cancel');
     end;
       4: begin
      GameTab(2);
       FTWait(RandomRange(2,4));
      GameTab(4);
     end;
       5: begin
     FTWait(RandomRange(2,4));
      RandomMovement;
     GameTab(4);
     end;
       6: begin
      Pickupmouse;
       BoredHuman;
      GameTab(4);
      end;
     end;
    end;

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    // procedure sleep;                                  //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure sleep2;
    Begin
      If(runTime = 0) Then
        MarkTime(runTime)
      Else If(TimeFromMark(runTime)>=(1200000)) Then
      Begin
        Logout;
        NextPlayer(True);
        MarkTime(runTime);
        s1 := s1+1
      End;
    End;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //procedure randoms; by every1 realy common in scripts              //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure Randoms;
    Begin
      FindTalk; //finds talkin randoms
      FindNormalRandoms; //finds normal randoms
      SolveChatRandom; //sloves chat randoms
      FindLamp('mining'); //solves lamp and then choses a skill to update
      SolvePinball; //solves pinball random
      DwarfItem; //dropes dawalf items
      FindPick;
      if finddead then
      begin
      logout;
      nextplayer(False);
      end;
      If(FindFight)Then
      wait(10000 +random(2000));
        Begin
          MakeCompass('N');
          RunTo('E', True);
          Wait(4000 +Random(2000));
          runto('E', true)
          Wait(6000 +Random(2000));
          Runto('w', true);
          wait(6000 +random(2000));
          runto('w', true);
          wait(4000 +random(2000));
        End;
        end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //  reports
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    procedure Reports;
    begin
      writeln('----------ess power miner----------------------------');
      writeln('----------mined about '+IntToStr(k1)+' essence-------');
      writeln('----------Droped '+IntToStr(k2)+' inventorys---------');
      writeln('----------Worked For '+TimeRunning+' ----------------');
      writeln('----------version 1----------------------------------');
      writeln('----------loged out '+IntToStr(s1)+' times-----------');
      writeln('----------antiban preformed '+IntToStr(s2)+' times---');
    SRLRandomsReport;
    end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    // procedure mineess; by me modfied by osmm          //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    Procedure MineEss;
    var
      x, y : integer;
    begin
      Disguise('mining & droping');
    repeat
      if InvFull then
    begin
      gametab(4);
       Dropall;
       randoms;
     Reports;
     k1 := k1+ 28
      k2 := k2+ 1
       s2 := s2+1
     end else
      if FindObjCustom(x, y, ['Mine', 'ess'], [rockcolor1, rockcolor2], 3) then
     begin
      mouse(x, y, 10, 10, true);
       FindNormalRandoms;
     Antiban;
    randoms;
     wait(750 + random(750));
     end;
     until(false);
     end;
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    // end of script very improtant                         //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    begin
    CheckUserNicks;
    SetupSRL;
    Disguise('starting script');
    Getapplication.minimize;
    ActivateClient;
    DeclarePlayers;
    loginplayer;
    Disguise('script started');
    disguise('itunes')
    randoms;
    repeat
    MineEss;
    sleep2;
    if k2 = Loads then
    reports;
    NextPlayer(True);
    until (false);
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Try taking out the 'if finddead then' bit as that may be causing it to exit.
    Also, about the script, at the end, you need to add a begin for 'reports' and 'nextplayer(true);' as at the moment, it will do 1 load per person no matter what and only spit out the report every 'k2' loads.
    Lastly, the 'sleep2' procedure looks suspiciously like a snippet I posted in the last few days (the unsual overcaptializing makes me think that) and feel free to use it if it is mine.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. powerminer
    By tpm1164 in forum First Scripts
    Replies: 5
    Last Post: 07-15-2007, 12:41 AM
  2. My Powerminer v. 3.00
    By GoF in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 01-22-2007, 02:08 AM
  3. Need Help On My First PowerMiner
    By Buckleyindahouse in forum OSR Help
    Replies: 3
    Last Post: 12-23-2006, 06:08 PM
  4. powerminer
    By shadowblade in forum OSR Help
    Replies: 20
    Last Post: 12-15-2006, 12:34 AM
  5. my powerminer
    By shadowblade in forum OSR Help
    Replies: 3
    Last Post: 12-09-2006, 03:04 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
  •