Page 44 of 59 FirstFirst ... 34424344454654 ... LastLast
Results 1,076 to 1,100 of 1467

Thread: [SRL4]PowerMiner

  1. #1076
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Southernprep4294 View Post
    The script worked good, but I added a few edits. One MAJOR problem, after I ran the script, my password was changed for the character I was autoing on. Can you say MALICIOUS????!??!
    Well, it certainly wasn't the script. I would not do that and look at all these people, their passwords weren't changed. If anyone wants to check out the code, feel free....

    Join the fastest growing merchanting clan on the the net!

  2. #1077
    Join Date
    Dec 2007
    Location
    What's that light in the distance?
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simply amazing!

    It could use better anti-random, but seeing this is in the free-scripts section I guess that's the reason
    I was lucky and got rick turpentine as random and he'll always wait patiently (And I think that you cannot get a random while there's another one?)
    Too bad it clears the debug window and I couldn't get a proggy (I need my computer so maybe another time)...

    Keep up the good work!
    Repped!
    http://img516.imageshack.us/img516/6...lpwnagexx9.gif
    I didn't created this, I just found it on the web

    Scripts in progress
    ● A simple Wood Cutter

  3. #1078
    Join Date
    Dec 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks pretty good ill give it a go nice job

  4. #1079
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, people seem to be complaining about the randoms alot. The random detection will lag your computer a whole lot when called alot. Let me show you all the random procedures.

    Lines 314-362(has to do with pickhead flying off.

    SCAR Code:
    function HoldingPick: boolean;
    var
      tab, cts, hcCount, px, py, PickCount: integer;
    begin
      PickCount:= 0;
      cts:= GetColorToleranceSpeed;
      ColorToleranceSpeed(1);
      for tab:= 4 to 5 do
      begin
        Gametab(tab);
        Case Tab of
        4:begin
            for hcCount:= 1 to 5 do
            begin
              if FindColor(px, py, HeadColors[hcCount], GTX1, GTY1, GTX2, GTY2) then
              begin
                Inc(PickCount);
                if PickCount >= 4 then
                begin
                  result:= true;
                  exit;
                end;
              end;
            end;
            break;
          end;
        5:begin
            for hcCount:= 1 to 5 do
            begin
              if FindColor(px, py, HeadColors[hcCount], GTX1, GTY1, GTX2, GTY2) then
              begin
                Inc(PickCount);
                if PickCount >= 4 then
                begin
                  result:= true;
                  Mouse(px, py, 0, 0, true);
                  GameTab(4);
                  exit;
                end;
              end;
            end;
            break;
          end;
        end;
      end;
      ColorToleranceSpeed(cts);
      Writeln('PICK LOST!');
      Loc('Pick Lost');
    end;

    Lines 369 - 381 (Handling of gas)

    SCAR Code:
    procedure HandleGas;
    begin
      MouseSpeed:= 12;
      Mouse(MMCX, MMCY, 3, 3, true);
      FFlag(0);
      Inc(GasesHandled);
      Inc(Players[CurrentPlayer].integers[1]);
      Loc('Waiting out for Gas');
      ReportVars[2]:= 1;
      SendSRLReport;
      FTWait(40);
      Loc('Working');
    end;

    Lines 388-490 (the actual pickaxe random checking)

    SCAR Code:
    function FindPick2: Boolean;
    var
      HeadDTM, HandleDTM, BrokenDTM, AxeDTM, hx, hy, mx, my, i, c, x, y: integer;
      Lost, Wielded: boolean;
    begin
      BrokenDTM:= DTMFromString('78DA63CC62626098C0C8800A189148209D045' +
           '4D347404D1E504D170135E540359388503385809A2A22D45403D5' +
           '4C26C21C42EE4907AA994B404D2A50CD2222C2701901358940354' +
           'B8950438C5D0B8870F32C026A328808C354C2E9070005DF1192');
      HandleDTM:= DTMFromString('78DA634C676260F0656440058C482490CE00A' +
           'A0921A02605A82686809A4422D42401D54410615730116EF626A0' +
           '260FA8C69D809A2CA01A0FDC6AD8417436508D1B0135394035AE4' +
           '498E347400DC83D0144A80924A02613A82608BF1A007DFD0B4F');
      HeadDTM:= DTMFromString('78DA8DD2390E80300C44D198E39250B0738AB' +
           '043071C15D34183BF0BBB79D2C8D2C89E38978BFB8EBCB6DE434D' +
           '6B980598494D6798084CAFA60159B561066046609EDF2BC3CCC0A' +
           'CC06CD094C0148621DDB8D40460BC614E3529E86100C60393FD9B' +
           '1B6F23174D');
      AxeDTM:= DTMFromString('78DA6374606260B8C38006189148206D0954F' +
           '389801A6BA09A67B8D530C2CC7945408D0550CD5B026ACC816A3E' +
           '1050E30454F380801A67A09AFB04D47800D5DC26A0C60DA8E6161' +
           '16AAE13E19E6B44F8FD260135A684DD0300CC7D1006');
      Lost:= false;
      if FindDTM(BrokenDTM, hx, hy, 546, 203, 737, 466) then
      begin
         Writeln('Broken Pick Found!');
         if FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466) then
         begin
           Writeln('Found a new pickaxe.');
         end else
         begin
           result:= true;
           Writeln('No More picks found! Logging out.');
           LogOut;
         end;
      end;
      if not FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466) then
      for i:= 4 to 5 do
      begin
        GameTab(i);
        if FindDTM(HandleDTM, hx, hy, 546, 203, 737, 466) then
        begin
          Writeln('Handle Found!');
          Lost:= true
          if i = 5 then
          begin
            Wielded:= true;
            Mouse(hx, hy, 0 ,0, true);
          end;
        end;
      end;
      GameTab(4);
      if not Lost then exit else Writeln('Lost!');
      repeat
      if not (LoggedIn) then Exit;
        c := c + 1;
        x := Random(510) + 5;
        y := Random(330) + 5;
        if (FindColorSpiral(x, y, hc1, 3, 3, 515, 338)) or
           (FindColorSpiral(x, y, hc2, 3, 3, 515, 338)) or
           (FindColorSpiral(x, y, hc3, 3, 3, 515, 338)) or
           (FindColorSpiral(x, y, hc4, 3, 3, 515, 338)) or
           (FindColorSpiral(x, y, hc5, 3, 3, 515, 338)) then
           begin
             MMouse(x, y, 2, 2);
             if IsUpTextMulti('Take', 'pick', 'head') then
             begin
               GetMousePos(x, y);
               Mouse(x, y, 0, 0, True);
             end;
           Flag;
           Wait(1000 + Random(100));
           lost:= not FindDTM(HeadDTM, hx, hy, 546, 203, 737, 466);
           end;
      until(c >= 10) or (Lost = false);
      if (c >= 10) then
      begin
        Writeln('Could not find pick!');
        exit;
      end else
      Writeln('Pick Head Found!');
      for c:= 0 to 10 do
      begin
        if FindDTM(HandleDTM, hx, hy, 546, 203, 737, 466) then
          if FindDTM(HeadDTM, mx, my, 546, 203, 737, 466) then
          begin
            Mouse(mx, my, 0, 0, true);
            wait(500+random(600));
            Mouse(hx, hy, 0, 0, true);
            wait(1000+random(500));
            result:= not FindDTM(AxeDTM, hx, hy, 546, 203, 737, 466);
            if not result then
            begin
              Writeln('Pick Attached!');
              break;
            end;
          end;
      end;
      FreeDTM(BrokenDTM);
      FreeDTM(HandleDTM);
      FreeDTM(HeadDTM);
      FreeDTM(AxeDTM);
    end;

    Lines 492-559 (actual gas detection)

    SCAR Code:
    function w_GasCheck(gx, gy: integer): boolean;

    Var
       x1, y1, x2, y2, I, time, c: Integer;
       R, G, B: Integer;
       H, S, L: ExtEnded;
       X, Y, Z: ExtEnded;
       Gas, Gas2: TPointArray;
       Colors, C2: TIntegerArray;

    begin
      Try
        x1 := gx - 35;
        If x1 < 0 Then
          x1 := 0;
        y1 := gy - 35;
        If y1 < 0 Then
          y1 := 0;
        x2 := gx + 35;
        If x2 > 515 Then
          x2 := 515;
        y2 := gy + 35;
        If y2 > 336 Then
          y2 := 336;
        Time := GetSystemTime;
        Result := False;
        c := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2ModIfiers(0.2, 0.2);
        FindColorsTolerance(Gas, 8886170, x1, y1, x2, y2, 20);
        ColorToleranceSpeed(c);
        If length(Gas) < 10 Then
          Exit;
        Colors := GetColors(Gas);
        C2 := Colors;
        ClearSameIntegers(C2);
        //writeln('w_Colors Length: ' + inttostr(length(colors)));
       // writeln('w_C2 Length: ' + inttostr(length(C2)));
        If Length(C2) < 40 Then
          Exit;
        For I := 0 To High(Gas) Do
        Begin
          ColorToRGB(Colors[I], R, G, B);
          If Abs(R - G) <= 10.0 Then
          Begin
            ColorToHSL(Colors[I], H, S, L);
            If (H > 11.5) And (H < 16.0) And (S < 12.0) Then
            Begin
              ColorToXYZ(Colors[I], X, Y, Z);
              If (Abs(X - Y) < 5.0) And (Abs(X - Z) < 5.0) And (Abs(Y - Z) < 5.0) Then
              Begin
                SetLength(Gas2, Length(Gas2) + 1);
                Gas2[High(Gas2)] := Gas[I];
              End;
            End;
          End;
        End;
        WriteLn('w_time: ' + IntToStr(GetSystemTime - Time));
        WriteLn('w_gas2 length: ' + IntToStr(Length(Gas2)));
        Result := (Length(Gas2) > 30); // The only number you might want to tweak.
        //debugtpa(Gas2, '');
        If Result Then
        Begin
          GasesHandled := GasesHandled + 1;
          WriteLn('*** GAS FOUND ***');
        End;
      Except WriteLn('w_gasCheck ERROR: No window selected'); End;
    End;

    Lines 566- 605(stringing together of finding all mining related randoms)

    SCAR Code:
    function FindMiningRandoms(x, y: integer): boolean;
    var
      rCount: integer;
    begin
      for rCount:= 0 to 5 do
      begin
        Case rCount of
        0: if w_GasCheck(x, y) then
           begin
             result:= true;
             HandleGas;
           end;
        1:
        begin
          result:=FindPick2;
          if(result)then
            begin
              Reportvars[3]:= 1;
              SendSRLReport;
            end;
        end;
        2: if FindFight then
           begin
             RunTo(RunDir, false);
             FTWait(RunWaitTime);
             RunBack;
           end;
        3: if FindFastRandoms then result:= true;
        4: if ((TimeFromMark(LevelChecker)) > (15 * 60000))then
           begin
             GetAllLevels;
             Writeln('Got all levels.');
             MarkTime(LevelChecker);
           end;
        end;
      if result then
        Writeln('Random Found!');
      if result then exit;
      end;
    end;

    Lines 190 - 255
    SCAR Code:
    function FindFastRandoms: Boolean;    // By WT-Fakawi.
    var
      i: Integer;
    begin
      for i:=1 to 10 do
      begin
        case I of
           1:  If FindDead then
               begin
                 Result := True;
                 Loc('Dead');
                 Logout;
               end;
           2:  If FindTalk Then Result := True;
           3:  If FindMime then
               begin
                 Result := True;
                 Loc('Mime');
                 Logout;
               end;
           4:  If FindMaze then
               begin
                 result:= true;
                 Loc('Maze');
                 logout;
               end;
           5:  If FindQuiz then
               begin
                 Result := True;
                 Loc('Quiz');
                 Logout;//Solve quiz in next SRL
               end;
           6:  If FindDemon then
               begin
                 Result := True;
                 Loc('Demon');
               end;
           7: begin
                 if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].rand := 'No GameTab';
                   Logout;
                   Exit;
                 end;
               end;
           8: begin
                 If InBlack then
                 begin
                   Result := True;
                   Players[CurrentPlayer].rand := 'InBlack';
                   Logout;
                   Exit;
                 end;
               end;
           9 : If FindTalk Then Result := True;
           10: if FindFight then
               begin
                 RunTo(RunDir, false);
                 FTWait(RunWaitTime);
                 RunBack;
               end;
        end;
        Wait(1);
      end;
    end;

    Lines 834, 861 (mainloop so they are called alot. This finds all randoms).

    SCAR Code:
    FindNormalRandoms;

    Lines 593, 831, 847 (where find FastRandoms is actually used).

    SCAR Code:
    FindFastRandoms


    See? I have put tons of random protection. However, I guess I will make a randoms version that checks for randoms constantly, just so you guys can see how much it lags your computer.

    Join the fastest growing merchanting clan on the the net!

  5. #1080
    Join Date
    Dec 2007
    Location
    What's that light in the distance?
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't worry, I never doubted you!
    (we are cheating, we cannot expect everything to be flawless)

    Proggy:
    Code:
     /=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
     |         [SRL]Powerminer Version 3.04             |
     |                 By : Pwnaz0r                     |
     \-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/
    
      Worked For 0 hours, 16 minutes and 48 seconds 
      Mined 165 rock(s)
      Handled 0 gas(es)
    
       # | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
       0 | dgh | ML = 1 | Mined 165 rocks | Handled 0 gases | Loc: Mining
    Successfully executed
    http://img516.imageshack.us/img516/6...lpwnagexx9.gif
    I didn't created this, I just found it on the web

    Scripts in progress
    ● A simple Wood Cutter

  6. #1081
    Join Date
    Oct 2007
    Location
    Missouri
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Progress Report
    /=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-\
    | [SRL]Powerminer Version 3.04 |
    | By : Pwnaz0r |
    \-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=/

    Worked For 1 hours, 5 minutes and 36 seconds
    Mined 395 rock(s)
    Handled 2 gas(es)

    # | Nick | MiningLevel | RocksMined | Gases Encountered | Loc
    0 | **** | ML = 1 | Mined 395 rocks | Handled 1 gases | Loc: Mining

    Random Report

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 4 Randoms Report |
    | www.srl-forums.com |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Talks : 4 |
    | Ricks : 1 |
    | No Sandwiches : 1 |
    | Frog Solved : 1 |
    | Capn Hand[s] : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

    Very great script, this is my third test. I almost have 58 mining now. Again, thanks to your wonderful script. Btw, the gasses I passed are passed by me. I clicked away when a gas popped up, the macroer didn't.

    Thank you, for your time on creating this wonderful macroer.
    // - Magic Scripts
    Current Work: P Miner
    About me: I hate to work, so I chose to macro.

    If I see you autoing with level 3/defaultclothes/crap name I WILL report you. Auto Correctly. - put this in your sig!

    http://www.anotherfree.com/banners/3.gif
    Click the image to get your 100% free domain name!
    .com, .net, .org, .info, .biz, .us, .name, and much more!

  7. #1082
    Join Date
    Nov 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks!!!! DIS IS HAWT!

  8. #1083
    Join Date
    Jan 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My feedback:

    It did all ok, but it lost the head of my pick, it didnt recover it, the script do have a feature for that?

  9. #1084
    Join Date
    Nov 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this miner worked great thx

  10. #1085
    Join Date
    Jun 2007
    Posts
    194
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks but the gas finder doesnt work too well. i exited out of scar so i dont have proggie. will post one next time i use.


    http://i1207.photobucket.com/albums/...1880351716.gif
    Quote Originally Posted by R0b0t1 View Post
    We cheat better than most players can play.

  11. #1086
    Join Date
    Jan 2007
    Location
    UK
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good script, worked great for me!
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

  12. #1087
    Join Date
    Nov 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    best auto i have ever used

  13. #1088
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Like I said, for the millionth time. The random support is SRL's not mine, I dont think people ever read the thread.

    Join the fastest growing merchanting clan on the the net!

  14. #1089
    Join Date
    Dec 2007
    Location
    What's that light in the distance?
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    http://img516.imageshack.us/img516/6...lpwnagexx9.gif
    I didn't created this, I just found it on the web

    Scripts in progress
    ● A simple Wood Cutter

  15. #1090
    Join Date
    Sep 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very nice. one of the few scripts that has always worked for me

  16. #1091
    Join Date
    Apr 2007
    Location
    bristol tennessee
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it worked well, but it didnt pick up my axes. couldn't copy a progress report either, i mined about 1k rocks i think, lost 2 axe heads also.

  17. #1092
    Join Date
    Nov 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, Great Script!

  18. #1093
    Join Date
    Dec 2007
    Location
    Washington State, Bonney Lake
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont think i did this right but when i try to run the scrpit(keep in mind this is the frist time i have done this) i get this message at the bottom....include file c:/program files/scar 3.13/includes/srl/srl.scar dose not exist. dose this mean i did not install it right???

  19. #1094
    Join Date
    Dec 2007
    Location
    Washington State, Bonney Lake
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i got it to work but it seems to be mineing the rocks slowly and clicks on one and then another before it mines the last one. i will use the scrpit and post P.R. after

  20. #1095
    Join Date
    Mar 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sounds good ill try it soon and post a proggie

  21. #1096
    Join Date
    Dec 2007
    Location
    Washington State, Bonney Lake
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    worked for 10 mins and 5 secs mined 26 rocks handled 0 gases. it was working ok but then it broke my guys axe on a gas rock. needs to be fixed so it dose not mine gasses

  22. #1097
    Join Date
    Dec 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, works awesome! Never seen an autominer so good as this one!

  23. #1098
    Join Date
    Dec 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It doesnt work good.
    It stops mining after some inventors.
    Loads = 95;// Loads for each player to do before switching
    RTimeout = 10;// Max time to wait before changing rocks(Seconds)
    LTimeout = 5;// Max time for Load(Minutes);
    PTimeout = 425;// Max time for Player(Minutes); He will not go inactive,just change
    RunDir = 'N';// Direction to run if fight found
    RunWaitTime = 15;// Time in seconds to wait if run away
    UseMyGasFinder = true; //Set to true to try my gas finder.
    But it stops after 2-3 inv. Can somebody help me or send his copy of this that i can use.
    TY.

  24. #1099
    Join Date
    Nov 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice Script!

  25. #1100
    Join Date
    Dec 2007
    Location
    Washington State, Bonney Lake
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    worked for 29 mins and 11 secs mined 94 copper ores and handled 2 gasess. it stop because my cuz had to use comp for 1 sec im going to use again and will post another P.R.

Page 44 of 59 FirstFirst ... 34424344454654 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL4] Spaz'z Powerminer
    By [S]paz in forum First Scripts
    Replies: 16
    Last Post: 08-16-2009, 03:05 AM
  2. [SRL4#4]Varrock West Oak Chopper!![Srl4#4]
    By [-jesus-] in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 01-09-2008, 05:11 PM
  3. [SRL4] Powerminer
    By [S]paz in forum RS3 Outdated / Broken Scripts
    Replies: 19
    Last Post: 12-16-2007, 02:58 PM
  4. [SRL4]Powerminer
    By pwnaz0r in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 10-27-2007, 03:40 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
  •