Poll: Should i add SRL stats

Page 1 of 2 12 LastLast
Results 1 to 25 of 40

Thread: Power Cutter - By Mr_Bum

  1. #1
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Power Cutter - By Mr_Bum

    Power Cutter - By Mr_Bum



    PLEASE RATE THREAD ***** 5 STARS

    Whos is Better Mine or Camo Kyles?
    SCAR Code:
    '                      _____                                  
       /`\_/`\             /\  _`\                                
      /\      \  _ __      \ \ \L\ \  __  __    ___ ___     ____  
      \ \ \__\ \/\``__\     \ \  _ <`/\ \/\ \ /` __` __`\  /`,__\  
       \ \ \_/\ \ \ \/       \ \ \L\ \ \ \_\ \/\ \/\ \/\ \/\__, `\
        \ \_\\ \_\ \_\        \ \____/\ \____/\ \_\ \_\ \_\/\____/
         \/_/ \/_/\/_/  _______\/___/  \/___/  \/_/\/_/\/_/\/___/  
                                                       Power Cutter'


    {_______________________________
     | 1.Setup Players             |
     |                             |
     |  2.Set RS window            |
     |                             |
     |   3.Post Feedback           |
     |                             |
     |    4.Add Smart If You Want  |
     |_____________________________|
                                                                }

    SRL 4 Rev#28
    Scar DIVI3.15b

    FINDLEVELFUNCTION by griff721.

    Script History

    Version 0.1
    No IsUpText, Clicks on ground sometimes, no entfinding, drops axe if in inventory and Proggy doesnt work

    Version 0.5
    IsUpText includes, Clicks on any tree, Proggy still doesnt work, No set amount of loads and Multiplayer doesnt work.

    Version 1
    Is IsUptext included, Clicks on any tree, Proggy works, Level finding added, No set amount of loads.

    Version 1.1
    Is IsUpText included, Clicks on any tree, Proggy Works, Level finding, Set amount of loads, set amount of axes and ent finding.

    Version 1.2
    IsUpText included, Option to not cut trees, Proggy updated, Ent Finding, Drops faster.

    Version 1.3
    IsUpText used as Fail Safe, FindTree Procedure updated uses FindCustomObj instead of FindColorTolerance, Finds fights more often.

    Version 1.4
    Better tree finding, My own drop procedure and my own find gained level procedure

    Version 1.5
    ADDED SRL STATS YEA!, A couple of touch ups. Forgot to release earlier

    Version 1.6 - Current
    Using griff721's findgainedlevel function. Mine isnt working right. Will be fixed in next update i hope.



    If no proggies this wont be updated

    Please Post Proggies and feedback... THANKS

    Proggies:
    SCAR Code:
    // SirPa
    #%#%#%#%#%#%#%  Power Cutter By Mr_Bum  #%#%#%#%#%#%#%
    #%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%
    #% Time Running : 3 Hours, 21 Minutes and 6 Seconds
    #% Dropped 60 loads
    #% Dropped 1564 logs
    #% Gained 7 Woodcutting levels
    #%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%
    #%#%#%#%##%#%#%#%#% POST PROGGIES #%#%#%#%#%#%#%#%#%#%

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    |     SRL 28 Randoms Report    |
    |      [url]http://www.srl-forums.com[/url]      |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Fights           :        10 |
    | Talks            :         1 |
    | Certers Solved   :         1 |
    | Demons Solved    :         1 |
    | Boxes Solved     :        10 |
    | Ents Found       :         1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/


    // [email]JiveTonto@Gmail.com[/email]
    #%#%#%#%#%#%#% Power Cutter By Mr_Bum #%#%#%#%#%#%#%
    #%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#% #%#%
    #% Time Running : 1 Hours, 33 Minutes and 38 Seconds
    #% Dropped 32 loads
    #% Dropped 772 logs
    #% Gained 1 Woodcutting levels
    #%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#% #%#%

    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
    | SRL 28 Randoms Report |
    | [url]www.srl-forums.com[/url] |
    |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
    | Fights : 6 |
    | Talks : 2 |
    | Jekylls : 1 |
    | Capn Hands : 1 |
    | Boxes Solved : 5 |
    | Ents Found : 1 |
    \~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

  2. #2
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The problem why the player won't login is in this part:

    SCAR Code:
    begin
    Sig;
     DeclarePlayers;
      LoginPlayer;
       SetupSRL;
        ActivateClient;

    It should be:

    SCAR Code:
    begin
    SetupSRL; // makes all SRL functions work
     DeclarePlayers; // Declare's players
       Sig;  // Signature or something
        ActivateClient; // Activates the runescape window
        LoginPlayer;  // Logs player in (needs a active window ;) )


    Not sure why the uptext won't work properly for you, ill look into it though

    Looks like a decent first script!


    Edit:
    Can't help you with the GetUpText, as it is not in your script



    ~Sir

  3. #3
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea i took it out. Is updated with GetUpText in it thanks so much for the help.

    Quote Originally Posted by sirpali View Post
    The problem why the player won't login is in this part:

    SCAR Code:
    begin
    Sig;
     DeclarePlayers;
      LoginPlayer;
       SetupSRL;
        ActivateClient;

    It should be:

    SCAR Code:
    begin
    SetupSRL; // makes all SRL functions work
     DeclarePlayers; // Declare's players
       Sig;  // Signature or something
        ActivateClient; // Activates the runescape window
        LoginPlayer;  // Logs player in (needs a active window ;) )

    ~Sir
    Login still not working...

    Edit:
    Working now!

  4. #4
    Join Date
    Mar 2007
    Location
    Alberta, Canada
    Posts
    1,780
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Thanks for crediting me for my procedure, that shows that your a good person :P
    I'll look through the script a bit more, but looks awesome for a first script!

  5. #5
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by griff721 View Post
    Thanks for crediting me for my procedure, that shows that your a good person :P
    I'll look through the script a bit more, but looks awesome for a first script!
    Its fine. Sometimes it doesnt work in my script 100% i will have to make it search for gained lvls more often. Thanks for letting me use it

  6. #6
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's getting nicer every update
    Im going to run it on my noobie, and let it run while i sleep, lets see if we can get a nice proggy off of it

    I made a few small changes though, i added DropAllExcept so it wouldn't drop my axe

    ~Sir

  7. #7
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sirpali View Post
    It's getting nicer every update
    Im going to run it on my noobie, and let it run while i sleep, lets see if we can get a nice proggy off of it

    I made a few small changes though, i added DropAllExcept so it wouldn't drop my axe

    ~Sir
    Thanks.

    I will add DropAllExcept in with my next update. There will be two Versions... DropAll, And DropAllExcept

  8. #8
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Get it to check if your wearing the axe or not (either get the user to input it or check it yourself). I'll take a more extensive look tomorrow. 12 AM ftw.

    ~Sandstorm

  9. #9
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Nice script, everything seems to flow nicely. Keep it up.

    @ Sand. Wouldn't just adding (SetupWoodcutting near the beginning of the main loop make it check for an axe?

    This is what I did to your script, kind of cleaned it a little. Hope you like.
    SCAR Code:
    {_______________________________
     | 1.Setup Players             |
     |                             |
     |  2.Set RS window            |
     |                             |
     |   3.Post Feedback           |
     |                             |
     |    4.Add Smart If You Want  |
     |_____________________________|
                                  }

    program PowerCutterByMR_BUM;
    {.include srl/srl.scar}
    var
      TreeColor : array of Integer;
      i,x,y : integer;
      Found : boolean;
      Drops : integer;
      Antibans : integer;
      Loads : integer;
      Gained : integer;
     
    const
    TreeWait = 7000;    //How long it takes to cut a tree Miliseconds
    RunDirection = 'N'; //Which direction to run if a fight occurs
    DesiredLoads = 10;  // Amount of loads per player
    TreeType = 'Tree';  //What type of tree you want. Leave blank for any tree
    //          ^^^^ Must start with capital


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // your runescape account
      Players[0].Pass := ''; // your runescape password
      Players[0].Nick := ''; // 3-4 letters of your runscape username
      Players[0].Active := True; //In the script or not
    {
      Players[1].Name := ''; // your runescape account
      Players[1].Pass := ''; // your runescape password
      Players[1].Nick := ''; // 3-4 letters of your runscape username
      Players[1].Active := True; //In the script or not

      Players[2].Name := ''; // your runescape account
      Players[2].Pass := ''; // your runescape password
      Players[2].Nick := ''; // 3-4 letters of your runscape username
      Players[2].Active := True; //In the script or not
     
      Players[3].Name := ''; // your runescape account
      Players[3].Pass := ''; // your runescape password
      Players[3].Nick := ''; // 3-4 letters of your runscape username
      Players[3].Active := True; //In the script or not
     
      Players[4].Name := ''; // your runescape account
      Players[4].Pass := ''; // your runescape password
      Players[4].Nick := ''; // 3-4 letters of your runscape username
      Players[4].Active := True; //In the script or not
    }

    end;

    Procedure FindFightEx;
    Begin
      If(FindFight) then
      Begin
        Status('Fight found!');
        Writeln('You were attacked')
        Begin
          Status('Running away!');
          Writeln('Running....');
          RunAway(RunDirection,False,1,8000+Random(3000))
          Writeln('Got Away?');
        end;
      end;
    end;

    // By griff721
    function FindGainedLevel: boolean;
    begin
      if not LoggedIn then
        Exit;
      if ClickContinue(False, False) then
      begin
        if FindNPCChatText('lations', Nothing) then
        begin
          writeln('We gained a Woodcutting!');
          Inc(Gained);
          ClickContinue(True, True);
          Result := True;
          Exit;
        end;
      end;
    end;


    procedure LoadColors;
    begin
      SetArrayLength(TreeColor,5);
      TreeColor[0] := 4292724;
      TreeColor[1] := 4158055;
      TreeColor[2] := 2839885;
      TreeColor[3] := 2112567;
      TreeColor[4] := 1921864;
    end;

    Procedure FindTree;
    begin
      FindFightEx;
      FindGainedLevel;
      LoadColors;
      If not(Loggedin)then Exit;
        MakeCompass('N');
        SetAngle(true);
        SetRun(true);
        For i:= 0 to (GetArrayLength(TreeColor) - 1) do
        begin
          if(FindColorSpiralTolerance(x,y,TreeColor[i],MSX1,MSY1,MSX2,MSY2,5))then
          begin
            Writeln('Serching For Tree');
            MMouse(x,y,2,2);
            if IsUpTextMultiCustom(['hop', 'own',(TreeType)]) then
            begin
              Writeln('Found Tree');
              Mouse(x,y,2,2,true);
              Writeln('Cutting Tree');
              Wait(TreeWait +random(500));
            end else    // Don't need that else in there
          end;
        end;
        if(Found = False)then
          Exit;
    end;

    Procedure AntiRandoms; Forward; // Called forward so can be used below
    Procedure AntiBan; Forward;    // Same

    Procedure DropLogs; // By Camo Kyle
    begin
      if (not (LoggedIn)) then Exit;
      if (InvFull) then
      begin
        for I := 2 to 28 do  // Change the first number if needed
        begin
          DropItem(i)
          AntiRandoms;
          AntiBan;
          Inc(loads);
        end;
      end;
    end;

    Procedure AntiRandoms;
    var
    d : Integer;
    Begin
      Status('Doing AntiRandoms');
      for d := 0 to 3 do
        FindNormalRandoms;
        FindFightEx;
        FindNonInventoryRandoms;
        wait(1);
    end;

    procedure Antiban;   // Too many spaces, keep it as minimal as possible
    begin
      if not(LoggedIn)then Exit;
      case Random(68) of

        0:
          begin
            HoverSkill('Attack', False);
            Antibans:=Antibans+1;
          end;

        1:
          begin
            HoverSkill('Smithing', false);
            Antibans:=Antibans+1;
          end;

        2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4);
            Antibans:=Antibans+1;
          end;

        3:
          begin
            BoredHuman;
            Antibans:=Antibans+1;
          end;

        4:
          begin
            DoEmote(400 + Random(90));
            Antibans:=Antibans+1;
          end;
      end;
    end;
     
    Procedure Proggy;
    Begin
    cleardebug;
      Writeln('#%#%#%#%#%#%#%  Power Cutter By Mr_Bum  #%#%#%#%#%#%#%');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
      Writeln('#% Time Running : ' +TimeRunning + '');
      Writeln('#% Dropped '+ IntToStr(Drops) + ' loads');
      Writeln('#% Gained '+ IntToStr(Gained) + ' Woodcutting levels');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
    end;

    Procedure Sig;
    begin
      ClearDebug;
      Writeln('                      _____                                  ');
      Writeln(' /`\_/`\             /\  _`\                                 ');
      Writeln('/\      \  _ __      \ \ \L\ \  __  __    ___ ___     ____   ');
      Writeln('\ \ \__\ \/\``__\     \ \  _ <`/\ \/\ \ /` __` __`\  /`,__\  ');
      Writeln(' \ \ \_/\ \ \ \/       \ \ \L\ \ \ \_\ \/\ \/\ \/\ \/\__, `\ ');
      Writeln('  \ \_\\ \_\ \_\        \ \____/\ \____/\ \_\ \_\ \_\/\____/ ');
      Writeln('   \/_/ \/_/\/_/  _______\/___/  \/___/  \/_/\/_/\/_/\/___/  ');
      Writeln('                                                 Power Cutter');
      wait(2000);
    end;



    Begin    // Fixed your standards
      SetupSRL;
      DeclarePlayers;
      Sig;
      ActivateClient;
      LoginPlayer;
      SetupWoodcutting;
      If not Loggedin then LoginPlayer;
      Disguise('Power Cutter - By Mr_Bum');
      repeat
      begin
        FindTree;
        if InvFull = true then
        begin
          FindFightEx;
          DropLogs;
        end;
        AntiBan;
        AntiRandoms;
        if Loads = DesiredLoads then NextPlayer(true);
      end;
      Proggy;
      until false
    end.

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  10. #10
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Camo Kyle View Post
    Nice script, everything seems to flow nicely. Keep it up.

    @ Sand. Wouldn't just adding (SetupWoodcutting near the beginning of the main loop make it check for an axe?

    This is what I did to your script, kind of cleaned it a little. Hope you like.
    SCAR Code:
    {_______________________________
     | 1.Setup Players             |
     |                             |
     |  2.Set RS window            |
     |                             |
     |   3.Post Feedback           |
     |                             |
     |    4.Add Smart If You Want  |
     |_____________________________|
                                  }

    program PowerCutterByMR_BUM;
    {.include srl/srl.scar}
    var
      TreeColor : array of Integer;
      i,x,y : integer;
      Found : boolean;
      Drops : integer;
      Antibans : integer;
      Loads : integer;
      Gained : integer;
     
    const
    TreeWait = 7000;    //How long it takes to cut a tree Miliseconds
    RunDirection = 'N'; //Which direction to run if a fight occurs
    DesiredLoads = 10;  // Amount of loads per player
    TreeType = 'Tree';  //What type of tree you want. Leave blank for any tree
    //          ^^^^ Must start with capital


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // your runescape account
      Players[0].Pass := ''; // your runescape password
      Players[0].Nick := ''; // 3-4 letters of your runscape username
      Players[0].Active := True; //In the script or not
    {
      Players[1].Name := ''; // your runescape account
      Players[1].Pass := ''; // your runescape password
      Players[1].Nick := ''; // 3-4 letters of your runscape username
      Players[1].Active := True; //In the script or not

      Players[2].Name := ''; // your runescape account
      Players[2].Pass := ''; // your runescape password
      Players[2].Nick := ''; // 3-4 letters of your runscape username
      Players[2].Active := True; //In the script or not
     
      Players[3].Name := ''; // your runescape account
      Players[3].Pass := ''; // your runescape password
      Players[3].Nick := ''; // 3-4 letters of your runscape username
      Players[3].Active := True; //In the script or not
     
      Players[4].Name := ''; // your runescape account
      Players[4].Pass := ''; // your runescape password
      Players[4].Nick := ''; // 3-4 letters of your runscape username
      Players[4].Active := True; //In the script or not
    }

    end;

    Procedure FindFightEx;
    Begin
      If(FindFight) then
      Begin
        Status('Fight found!');
        Writeln('You were attacked')
        Begin
          Status('Running away!');
          Writeln('Running....');
          RunAway(RunDirection,False,1,8000+Random(3000))
          Writeln('Got Away?');
        end;
      end;
    end;

    // By griff721
    function FindGainedLevel: boolean;
    begin
      if not LoggedIn then
        Exit;
      if ClickContinue(False, False) then
      begin
        if FindNPCChatText('lations', Nothing) then
        begin
          writeln('We gained a Woodcutting!');
          Inc(Gained);
          ClickContinue(True, True);
          Result := True;
          Exit;
        end;
      end;
    end;


    procedure LoadColors;
    begin
      SetArrayLength(TreeColor,5);
      TreeColor[0] := 4292724;
      TreeColor[1] := 4158055;
      TreeColor[2] := 2839885;
      TreeColor[3] := 2112567;
      TreeColor[4] := 1921864;
    end;

    Procedure FindTree;
    begin
      FindFightEx;
      FindGainedLevel;
      LoadColors;
      If not(Loggedin)then Exit;
        MakeCompass('N');
        SetAngle(true);
        SetRun(true);
        For i:= 0 to (GetArrayLength(TreeColor) - 1) do
        begin
          if(FindColorSpiralTolerance(x,y,TreeColor[i],MSX1,MSY1,MSX2,MSY2,5))then
          begin
            Writeln('Serching For Tree');
            MMouse(x,y,2,2);
            if IsUpTextMultiCustom(['hop', 'own',(TreeType)]) then
            begin
              Writeln('Found Tree');
              Mouse(x,y,2,2,true);
              Writeln('Cutting Tree');
              Wait(TreeWait +random(500));
            end else    // Don't need that else in there
          end;
        end;
        if(Found = False)then
          Exit;
    end;

    Procedure AntiRandoms; Forward; // Called forward so can be used below
    Procedure AntiBan; Forward;    // Same

    Procedure DropLogs; // By Camo Kyle
    begin
      if (not (LoggedIn)) then Exit;
      if (InvFull) then
      begin
        for I := 2 to 28 do  // Change the first number if needed
        begin
          DropItem(i)
          AntiRandoms;
          AntiBan;
          Inc(loads);
        end;
      end;
    end;

    Procedure AntiRandoms;
    var
    d : Integer;
    Begin
      Status('Doing AntiRandoms');
      for d := 0 to 3 do
        FindNormalRandoms;
        FindFightEx;
        FindNonInventoryRandoms;
        wait(1);
    end;

    procedure Antiban;   // Too many spaces, keep it as minimal as possible
    begin
      if not(LoggedIn)then Exit;
      case Random(68) of

        0:
          begin
            HoverSkill('Attack', False);
            Antibans:=Antibans+1;
          end;

        1:
          begin
            HoverSkill('Smithing', false);
            Antibans:=Antibans+1;
          end;

        2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4);
            Antibans:=Antibans+1;
          end;

        3:
          begin
            BoredHuman;
            Antibans:=Antibans+1;
          end;

        4:
          begin
            DoEmote(400 + Random(90));
            Antibans:=Antibans+1;
          end;
      end;
    end;
     
    Procedure Proggy;
    Begin
    cleardebug;
      Writeln('#%#%#%#%#%#%#%  Power Cutter By Mr_Bum  #%#%#%#%#%#%#%');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
      Writeln('#% Time Running : ' +TimeRunning + '');
      Writeln('#% Dropped '+ IntToStr(Drops) + ' loads');
      Writeln('#% Gained '+ IntToStr(Gained) + ' Woodcutting levels');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
    end;

    Procedure Sig;
    begin
      ClearDebug;
      Writeln('                      _____                                  ');
      Writeln(' /`\_/`\             /\  _`\                                 ');
      Writeln('/\      \  _ __      \ \ \L\ \  __  __    ___ ___     ____   ');
      Writeln('\ \ \__\ \/\``__\     \ \  _ <`/\ \/\ \ /` __` __`\  /`,__\  ');
      Writeln(' \ \ \_/\ \ \ \/       \ \ \L\ \ \ \_\ \/\ \/\ \/\ \/\__, `\ ');
      Writeln('  \ \_\\ \_\ \_\        \ \____/\ \____/\ \_\ \_\ \_\/\____/ ');
      Writeln('   \/_/ \/_/\/_/  _______\/___/  \/___/  \/_/\/_/\/_/\/___/  ');
      Writeln('                                                 Power Cutter');
      wait(2000);
    end;



    Begin    // Fixed your standards
      SetupSRL;
      DeclarePlayers;
      Sig;
      ActivateClient;
      LoginPlayer;
      SetupWoodcutting;
      If not Loggedin then LoginPlayer;
      Disguise('Power Cutter - By Mr_Bum');
      repeat
      begin
        FindTree;
        if InvFull = true then
        begin
          FindFightEx;
          DropLogs;
        end;
        AntiBan;
        AntiRandoms;
        if Loads = DesiredLoads then NextPlayer(true);
      end;
      Proggy;
      until false
    end.

    ~Camo

    Thank you. I will use your drop but with a bit of edititng and fixed mainloop.

    UPDATED

  11. #11
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    No problem, glad to help. Do you have the code needed? I have a quick one right here. It's very simple but gets the job done.
    SCAR Code:
    procedure Ent;
    begin
      if Findent(x, y, true) then
      RunAway('E', false, 1, 10000 + random(6000));
    end;
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  12. #12
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Isnt there one in Woodcutting.scar

    SCAR Code:
    {*******************************************************************************
    function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
    By: Sumilion
    Description: Will look for an Ent and avoid if found.
    *******************************************************************************}


    function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
    var
      x, y, EntTime, tcts: Integer;
    begin
      if not(LoggedIn)then
        Exit;
      GetMousePos(x, y);
      if(x <> fx)or(y <> fy)then
        MMouse(fx, fy, 0, 0);
      if(IsUpText('Chop'))then
      begin
        tcts := GetColorToleranceSpeed;
        ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.03, 0.75);
        Result := (CountColorTolerance(118478, 9, 10, 124, 23, 10) > 10);
        SetColorSpeed2Modifiers(0.2, 0.2);
        ColorToleranceSpeed(tcts);
      end;
      if(Result)then
      begin
        WriteLn('Ent Found!!');
        if(AvoidWhenFound)then
        begin
          Writeln('Waiting for it to go away.');
          MFNF(MMCX, MMCY, -1, 1);
          MarkTime(EntTime);
          while(TimeFromMark(EntTime) < 35000)do
            if(Random(20) > 15)then
              IdleTime(500, 500, 0.4)
            else
              Wait(500 + Random(500));
          EntsAvoided := EntsAvoided + 1;
        end;
      end;
    end;

  13. #13
    Join Date
    Jul 2007
    Location
    's-Gravenpolder, Holland
    Posts
    204
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, so i let the script for a while, but i stopped it after an hour, because there are a few little flaws in it.


    1: When it searches for a tree, it seaches from the outside of the screen in. This causes the player to keep running further and further from the starting posittion. I found my player all the way in falador


    2: The colors aren't perfect, or something is wrong with the FindTree procedure. Even though i set the script to only cut Trees, it cut oaks too.
    This caused an Ent, and because of no entfinder, my player lost his axe, but tried to continue cutting.


    So far these are the only flaws i found, but its a pretty nice script nonetheless.

    ~Sir

    PS: No proggy Cause i stopped the script manually. Maybe put a proggy in the drop procedure?

  14. #14
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Yeah, but do you understand exactly what's going on in that script or are you just copying it?

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  15. #15
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sirpali View Post
    Ok, so i let the script for a while, but i stopped it after an hour, because there are a few little flaws in it.


    1: When it searches for a tree, it seaches from the outside of the screen in. This causes the player to keep running further and further from the starting posittion. I found my player all the way in falador


    2: The colors aren't perfect, or something is wrong with the FindTree procedure. Even though i set the script to only cut Trees, it cut oaks too.
    This caused an Ent, and because of no entfinder, my player lost his axe, but tried to continue cutting.


    So far these are the only flaws i found, but its a pretty nice script nonetheless.

    ~Sir

    PS: No proggy Cause i stopped the script manually. Maybe put a proggy in the drop procedure?
    I think the problem with the tree setting is that it searches if it has hop,own,and the tree you set. so if it finds something with rop and own in it it will click on the tree. If i take that out you can only cut one type of tree.

    Quote Originally Posted by Camo Kyle View Post
    Yeah, but do you understand exactly what's going on in that script or are you just copying it?

    ~Camo
    @Camo.
    Yes i do. I have been reading tuts for about 3 weeks until i released this

  16. #16
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Camo Kyle View Post
    Nice script, everything seems to flow nicely. Keep it up.

    @ Sand. Wouldn't just adding (SetupWoodcutting near the beginning of the main loop make it check for an axe?

    This is what I did to your script, kind of cleaned it a little. Hope you like.
    SCAR Code:
    {_______________________________
     | 1.Setup Players             |
     |                             |
     |  2.Set RS window            |
     |                             |
     |   3.Post Feedback           |
     |                             |
     |    4.Add Smart If You Want  |
     |_____________________________|
                                  }

    program PowerCutterByMR_BUM;
    {.include srl/srl.scar}
    var
      TreeColor : array of Integer;
      i,x,y : integer;
      Found : boolean;
      Drops : integer;
      Antibans : integer;
      Loads : integer;
      Gained : integer;
     
    const
    TreeWait = 7000;    //How long it takes to cut a tree Miliseconds
    RunDirection = 'N'; //Which direction to run if a fight occurs
    DesiredLoads = 10;  // Amount of loads per player
    TreeType = 'Tree';  //What type of tree you want. Leave blank for any tree
    //          ^^^^ Must start with capital


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // your runescape account
      Players[0].Pass := ''; // your runescape password
      Players[0].Nick := ''; // 3-4 letters of your runscape username
      Players[0].Active := True; //In the script or not
    {
      Players[1].Name := ''; // your runescape account
      Players[1].Pass := ''; // your runescape password
      Players[1].Nick := ''; // 3-4 letters of your runscape username
      Players[1].Active := True; //In the script or not

      Players[2].Name := ''; // your runescape account
      Players[2].Pass := ''; // your runescape password
      Players[2].Nick := ''; // 3-4 letters of your runscape username
      Players[2].Active := True; //In the script or not
     
      Players[3].Name := ''; // your runescape account
      Players[3].Pass := ''; // your runescape password
      Players[3].Nick := ''; // 3-4 letters of your runscape username
      Players[3].Active := True; //In the script or not
     
      Players[4].Name := ''; // your runescape account
      Players[4].Pass := ''; // your runescape password
      Players[4].Nick := ''; // 3-4 letters of your runscape username
      Players[4].Active := True; //In the script or not
    }

    end;

    Procedure FindFightEx;
    Begin
      If(FindFight) then
      Begin
        Status('Fight found!');
        Writeln('You were attacked')
        Begin
          Status('Running away!');
          Writeln('Running....');
          RunAway(RunDirection,False,1,8000+Random(3000))
          Writeln('Got Away?');
        end;
      end;
    end;

    // By griff721
    function FindGainedLevel: boolean;
    begin
      if not LoggedIn then
        Exit;
      if ClickContinue(False, False) then
      begin
        if FindNPCChatText('lations', Nothing) then
        begin
          writeln('We gained a Woodcutting!');
          Inc(Gained);
          ClickContinue(True, True);
          Result := True;
          Exit;
        end;
      end;
    end;


    procedure LoadColors;
    begin
      SetArrayLength(TreeColor,5);
      TreeColor[0] := 4292724;
      TreeColor[1] := 4158055;
      TreeColor[2] := 2839885;
      TreeColor[3] := 2112567;
      TreeColor[4] := 1921864;
    end;

    Procedure FindTree;
    begin
      FindFightEx;
      FindGainedLevel;
      LoadColors;
      If not(Loggedin)then Exit;
        MakeCompass('N');
        SetAngle(true);
        SetRun(true);
        For i:= 0 to (GetArrayLength(TreeColor) - 1) do
        begin
          if(FindColorSpiralTolerance(x,y,TreeColor[i],MSX1,MSY1,MSX2,MSY2,5))then
          begin
            Writeln('Serching For Tree');
            MMouse(x,y,2,2);
            if IsUpTextMultiCustom(['hop', 'own',(TreeType)]) then
            begin
              Writeln('Found Tree');
              Mouse(x,y,2,2,true);
              Writeln('Cutting Tree');
              Wait(TreeWait +random(500));
            end else    // Don't need that else in there
          end;
        end;
        if(Found = False)then
          Exit;
    end;

    Procedure AntiRandoms; Forward; // Called forward so can be used below
    Procedure AntiBan; Forward;    // Same

    Procedure DropLogs; // By Camo Kyle
    begin
      if (not (LoggedIn)) then Exit;

      if (InvFull) then
      begin
        for I := 2 to 28 do  // Change the first number if needed
        begin
          DropItem(i)
          AntiRandoms;
          AntiBan;
          Inc(loads);
        end;
      end;
    end;

    Procedure AntiRandoms;
    var
    d : Integer;
    Begin
      Status('Doing AntiRandoms');
      for d := 0 to 3 do
        FindNormalRandoms;
        FindFightEx;
        FindNonInventoryRandoms;
        wait(1);
    end;

    procedure Antiban;   // Too many spaces, keep it as minimal as possible
    begin
      if not(LoggedIn)then Exit;
      case Random(68) of

        0:
          begin
            HoverSkill('Attack', False);
            Antibans:=Antibans+1;
          end;

        1:
          begin
            HoverSkill('Smithing', false);
            Antibans:=Antibans+1;
          end;

        2:
          begin
            GameTab(1 + Random(12));
            wait(800 + random(500));
            GameTab(4);
            Antibans:=Antibans+1;
          end;

        3:
          begin
            BoredHuman;
            Antibans:=Antibans+1;
          end;

        4:
          begin
            DoEmote(400 + Random(90));
            Antibans:=Antibans+1;
          end;
      end;
    end;
     
    Procedure Proggy;
    Begin
    cleardebug;
      Writeln('#%#%#%#%#%#%#%  Power Cutter By Mr_Bum  #%#%#%#%#%#%#%');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
      Writeln('#% Time Running : ' +TimeRunning + '');
      Writeln('#% Dropped '+ IntToStr(Drops) + ' loads');
      Writeln('#% Gained '+ IntToStr(Gained) + ' Woodcutting levels');
      Writeln('#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%#%');
    end;

    Procedure Sig;
    begin
      ClearDebug;
      Writeln('                      _____                                  ');
      Writeln(' /`\_/`\             /\  _`\                                 ');
      Writeln('/\      \  _ __      \ \ \L\ \  __  __    ___ ___     ____   ');
      Writeln('\ \ \__\ \/\``__\     \ \  _ <`/\ \/\ \ /` __` __`\  /`,__\  ');
      Writeln(' \ \ \_/\ \ \ \/       \ \ \L\ \ \ \_\ \/\ \/\ \/\ \/\__, `\ ');
      Writeln('  \ \_\\ \_\ \_\        \ \____/\ \____/\ \_\ \_\ \_\/\____/ ');
      Writeln('   \/_/ \/_/\/_/  _______\/___/  \/___/  \/_/\/_/\/_/\/___/  ');
      Writeln('                                                 Power Cutter');
      wait(2000);
    end;



    Begin    // Fixed your standards
      SetupSRL;
      DeclarePlayers;
      Sig;
      ActivateClient;
      LoginPlayer;
      SetupWoodcutting;
      If not Loggedin then LoginPlayer;
      Disguise('Power Cutter - By Mr_Bum');
      repeat
      begin
        FindTree;
        if InvFull = true then
        begin
          FindFightEx;
          DropLogs;
        end;
        AntiBan;
        AntiRandoms;
        if Loads = DesiredLoads then NextPlayer(true);
      end;
      Proggy;
      until false
    end.

    ~Camo
    It might, I've never actually tried using it lol.

    Also, instead of that drop procedure, try using this one (I modified DropAll.

    SCAR Code:
    Program DropAllExceptItems;
    {.include srl/srl.scar}

    {*******************************************************************************
    Procedure DropAllExcept(A : Array of Integer);
    By: Sand Storm
    Description: Drops everything except the user defined inventory spaces.
    *******************************************************************************}


    procedure DropAllExcept(A : Array of Integer);
    var
      i: Integer;
    begin
    If (Not (LoggedIn)) Then Exit;
    For I:=1 To 28 Do
         if not(InIntArray(a, i)) then
           DropItem(i);
    end;


    Begin
    setupsrl;
    DropAllExcept([1]);
    End.

    The Procedure is the actual code, the Mainloop just shows how to use it. That would drop everything except the first inventory slot.

  17. #17
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Sand Storm View Post
    It might, I've never actually tried using it lol.

    Also, instead of that drop procedure, try using this one (I modified DropAll.

    SCAR Code:
    Program DropAllExceptItems;
    {.include srl/srl.scar}

    {*******************************************************************************
    Procedure DropAllExcept(A : Array of Integer);
    By: Sand Storm
    Description: Drops everything except the user defined inventory spaces.
    *******************************************************************************}


    procedure DropAllExcept(A : Array of Integer);
    var
      i: Integer;
    begin
    If (Not (LoggedIn)) Then Exit;
    For I:=1 To 28 Do
         if not(InIntArray(a, i)) then
           DropItem(i);
    end;


    Begin
    setupsrl;
    DropAllExcept([1]);
    End.

    The Procedure is the actual code, the Mainloop just shows how to use it. That would drop everything except the first inventory slot.
    I have put that in my updated script. Thank you.

  18. #18
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem. Feel free to pm me if you'd like some help/suggestions .

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

    Default

    I got the unwanted tree error, but other than that it ran fine a while.

  20. #20
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  21. #21
    Join Date
    Nov 2008
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    trying it now

  22. #22
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    UPDATED TO VERSION 1.3

    Update includes - Better proggy (One for single player and one for multiplayer), Better FindTree procedure - Uses FindCustomObj instead of FindColorSprialTolerance.

  23. #23
    Join Date
    Nov 2008
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haven't used it, but looks good

  24. #24
    Join Date
    Oct 2007
    Location
    england
    Posts
    200
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    great script hav run for 10 mins seems fine! great work
    Quote Originally Posted by ham? View Post
    i didnt merder the fukin english language it im just talkin gangsta!!
    which none of u would no coz ur all fukin nerds

  25. #25
    Join Date
    Jul 2007
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated to Version 1.4
    Better tree finding. My own Drop Procedure, My own FindGained level procedure

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Anywhere Power Cutter - By ToF
    By Torrent of Flame in forum RS3 Outdated / Broken Scripts
    Replies: 56
    Last Post: 01-07-2009, 05:33 PM
  2. Help with my power cutter plz.
    By shrubie1 in forum OSR Help
    Replies: 9
    Last Post: 06-01-2008, 02:53 AM
  3. What The Best Power Cutter??
    By fuzzball109 in forum News and General
    Replies: 3
    Last Post: 06-29-2007, 05:07 AM
  4. [RS2][SRL]PoweR CutteR
    By JuKKa in forum RS3 Outdated / Broken Scripts
    Replies: 23
    Last Post: 12-02-2006, 10:06 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
  •