Results 1 to 6 of 6

Thread: Kemico 2 PowerMiner

  1. #1
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Kemico 2 PowerMiner

    Instructions
    -Fill in color and Start by any rock.
    -Make sure that you have a pick dosent matter if it is equiped or not.
    -You will have to stop the script when it is done mining.

    Features
    -This is my very first script release so there isnt many.
    -It has a some antirandoms.


    Future Updates.
    -When I learn how to do mutliplayer i will add that.
    -I will also learn forms and put one in the script.
    -AntiBan and better AntiRandoms
    -Anything else that i find needs improvement.

    Notes
    -I am very new at scripting so any help would be greatly appricated.
    -I also made this in scar 3.06 it might work in 2.03 though

    SCAR Code:
    ///make sure you are by the rocks\\\\
    //This is made by kemico2 so please dont steal it\\\
         //thanks for looking at it\\\\



    program VarrockEastPowerMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    const
    RockColor=1318173;
    MiningLvL=55;
    PickWielded=true;
    Loads=10;

    var
    Loadz : Integer; DidRandomHappen: Boolean;

    Procedure Thanks;
     Begin;
      Writeln('Thank you for using my powerminer');
      Writeln('This is my first script so be nice');
     end;

    Procedure CheckForGas;
      begin
       if findgas(x,y)then
        begin;
       runawaydirection('n')
      wait(10000+random(3000))
     end;
    end;


    Procedure Signiture;
    begin;
    writeln(' __                  .__               ')
    writeln('|  | __ ____   _____ |__| ____  ____   ')
    writeln('|  |/ // __ \ /     \|  |/ ___\/  _ \  ')
    writeln('|    <\  ___/|  Y Y  \  \  \__(  <_> ) ')
    Writeln('|__|_ \\___  >__|_|  /__|\___  >____/  ')
    writeln('     \/    \/      \/        \/        ')
    end;

    procedure PrepCharacter;
     begin;
      HighestAngle;
      MakeCompass('N');
     end;

    procedure Report;
    begin
      Writeln('[]-------------------------------------------[]');
      Writeln('Worked For : ' + ScriptTime2(2))
      Writeln('Mined/Dropped '+ IntToStr(Loadz) + ' Loads');
      Writeln('[]--------------------------------------------[]');
    end;


    procedure MajorMining;
     begin
      repeat
      FindNormalRandoms
       FindTalk;
       if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then;
       begin
        Mmouse(x,y,2,2);
         CheckForGas;
          wait(100+random(250));
           FindPick;
           If(IsUpText('ine'))then
           begin
           Mouse(x,y,2,2,false);
           ChooseOption(x,y,'Mine')
           Wait(3000+random(2000))
          End
        end
      Until(InvFull);
    end;

    Procedure drop;
    begin
     if(PickWielded=false)then
      begin
       dropto(2,28)
       Loadz:=Loadz + 1;
       If(PickWielded=True)then
        begin
       dropall;
      Loadz:=Loadz + 1;
      end
     end
    end;

    begin
    SetupSrl;
    thanks;
    Signiture;
    prepcharacter
     repeat;
     Majormining;
     Drop;
     report;
     until(loadz>Loads)
    end.

  2. #2
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nooo! No ";" 's after bold letters (begins/thens/repeats....etc)


    You need a then begin in your mining procedure like this:
    SCAR Code:
    procedure MajorMining;
    begin
      repeat
        FindNormalRandoms;
        FindTalk;
        if(FindColorSpiralTolerance(x,y,RockColor,5,5,514 ,337,5)) then
        begin    
          Mmouse(x,y,2,2);
          CheckForGas;
          wait(100+random(250));
          If(IsUpText('ine'))then
          begin
            Mouse(x,y,2,2,false);
            ChooseOption(x,y,'Mine')
            Wait(3000+random(2000));
          end;
        end;
      Until(InvFull);
    End;


    See how I did that? And I also took out the did random happen thing because that's not needed because FindNormalRandoms; will find a fight and handle it if found, and there'd still be no point to that variable anyway

    In your drop procedure, huge problem. It checks if the pick weilded is true only if the pick weilded is false.. Because it's inside that begin. Do it like this and it will work:

    SCAR Code:
    Procedure drop;
    begin
      if(PickWielded=false)then
        dropto(2,28)
      If(PickWielded=True)then
        DropAll;
    end;

    If you only want to do 1 thing after a then, you don't need a begin. But if you want to do multiple things after a then, you need a begin.




    Overall it's a good try for your first script though, keep it up!

  3. #3
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks JAD ur always a great helper.

  4. #4
    Join Date
    Feb 2007
    Posts
    3,616
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by kemico2 View Post
    Thanks JAD ur always a great helper.
    I try! and np.

  5. #5
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    lol keep trying to re-write the script and it will get better

    They are sisters...
    Runescape Classic

  6. #6
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I finally got a proggie its not that good but its all i got.
    []-------------------------------------------[]
    Worked For : 24 Minutes, and 4 Seconds
    Mined/Dropped 6 Loads
    []--------------------------------------------[]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. ess powerminer
    By Kasi in forum OSR Help
    Replies: 1
    Last Post: 02-14-2008, 07:42 PM
  2. help on my powerminer
    By Kyle in forum OSR Help
    Replies: 2
    Last Post: 12-23-2007, 01:59 PM
  3. My First PowerMiner
    By w0g in forum First Scripts
    Replies: 14
    Last Post: 10-16-2007, 12:54 AM
  4. ???powerminer???
    By shadowblade in forum OSR Help
    Replies: 10
    Last Post: 12-01-2006, 09:22 AM
  5. Powerminer
    By CamHart in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 11-30-2006, 03:14 AM

Posting Permissions

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