Results 1 to 10 of 10

Thread: Help

  1. #1
    Join Date
    Oct 2006
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help

    This is Kermico's Power miner, but it does not have that it drops the ores, it only mines them. Can someone add it so it also drops them ( but does not drop the pickaxes ) please.

    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=2437971;
    PickWielded=true;
    Loads=10000000;
    
    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));
           If(IsUpText('ine'))then
           begin
           Mouse(x,y,2,2,false);
           ChooseOption(x,y,'Mine')
           Wait(3000+random(2000))
           If(DidRandomHappen = true) then
           begin
           RunAwayDirection('n')
           wait(5000+random(3000))
        end
       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;
    activateclient;
    prepcharacter;
     repeat;
     Majormining;
     Drop;
     report;
     until(Loadz>loads)
    logout
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    Add it yourself
    Should be easy to do. Time me, I can create a powerminer in less then ten minutes, fully functional.
    I made a new script, check it out!.

  3. #3
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    make a DTM of the logs, then drop the DTM ...or make a DTM of the Pick, find its spot then drop all but that spot
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  4. #4
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    why not weild the pick axe?

  5. #5
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    because some people have 1 attack and 45 mining
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  6. #6
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    or make a dtm of the pickaxe handle and holdmouse(x,y,true), MMouse(x,y,2,2),
    Releasemouse(x,y,true) then Dropto(2,28)

  7. #7
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would make a Global DTM of the Ores (The color that they all have in common *hint hint) and make it so the other clicks (that it looks for) are all on that thin black line that outlines the ores. I know I don't know my names for my DTM's lines, btw.

    Someone else will have to explain this more.

  8. #8
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    wel i have tried to make Ore dtms, and they didnt have a black outline. so i personally would use FindItems then drag it to first inv spot then DropTo(2,28)
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  9. #9
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by dan cardin View Post
    wel i have tried to make Ore dtms, and they didnt have a black outline. so i personally would use FindItems then drag it to first inv spot then DropTo(2,28)
    Yes they do =]..look closer. I've made one before =]

  10. #10
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    or just something like...

    SCAR Code:
    //Should drop everything you can't wield.
    procedure DropOres;
    var
      Count, iCount: Integer;
    begin
      iCount := InvCount;
      for Count := 1 to iCount do
      begin
        MMouseItem(Count);
        if not IsUpText('ield') then
        begin
           GetMousePos(x, y);
           Mouse(x, y, 0, 0, False);
           ChooseOption(x, y, 'rop');
           Wait(1000+Random(300));
        end;
      end;
    end;

    Or just use a DTM from the ore.. I'm not 100% sure about the parameters at the example above.. I wrote it to this box

Thread Information

Users Browsing this Thread

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

Posting Permissions

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