Results 1 to 16 of 16

Thread: Meanage Studio's Chain Saw (Power Cutter)

  1. #1
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Meanage Studio's Chain Saw (Power Cutter)

    My powercutter
    Cuts a full load of either normal or Oak trees untill your woocut level is what you want it to be.


    please post feedback, bugs, tips and weather or not it got you banned(I dout it will). thanks.

    By downloading this script you agree to these rules:
    Do not post this script on other sites
    I am NOT responsible for any bans/loss of accounts
    Do NOT steal this script or claim it is your own

    Help and advice would be great thanks

    Version History:
    v1.00 working script
    v1.01 Better
    v1.02 Fixed dropping axe bug
    v1.03 Canged the find color, thanks Fourscape
    v1.04 Added a failsafe, Thanks yohojo
    v1.05 Chaged Dropping procedude, I profer other one but the people on my members app said I should use one with DTMs so I did.
    v1.06 Fixed a stupid dropping error

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

    Default

    Dude, u used my mining procedure again, u just removed a bit from the end and edited the findobjects to findobjmultitext ... Make ur own stuff.

  3. #3
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thats not yours..... I'm trying to make a better one anyway

  4. #4
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    1. your procedure DropAllLogs2;
    you just drop from 2nd inv slot to 28 th inv slot, so when the user uses multiple (more then 1) axes, the script also going to frop the axes who are between the 2nd and 28 th inv spot

    2. line 228: RunAwayDirection('RunDir'); ---> no string, the string is already setted as a const, so don't set it here

    3. Also about the randoms, specify for the axe, you don't check while chopping...
    Also ent random, you don't solve it... for solving ents use this:
    FindEnt(Treecolor);
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  5. #5
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the scar noob View Post
    1. your procedure DropAllLogs2;
    you just drop from 2nd inv slot to 28 th inv slot, so when the user uses multiple (more then 1) axes, the script also going to frop the axes who are between the 2nd and 28 th inv spot

    2. line 228: RunAwayDirection('RunDir'); ---> no string, the string is already setted as a const, so don't set it here
    Thanks, ill fix these now

  6. #6
    Join Date
    Oct 2006
    Posts
    189
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if (FindColorTolerance(x,y,TreeColor1,166,180,593,437,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,166,180,385,205,Tolerance))then

    can be replaced by...

    SCAR Code:
    if (FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,MSX1,MSY1,MSX2,MSY2,Tolerance))then

    Because MS is Main screen.

    Good script.
    thanks the scar noob, for the avatar, it rocks!

    my sig owns

  7. #7
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fourscape View Post
    SCAR Code:
    if (FindColorTolerance(x,y,TreeColor1,166,180,593,437,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,166,180,385,205,Tolerance))then

    can be replaced by...

    SCAR Code:
    if (FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,MSX1,MSY1,MSX2,MSY2,Tolerance))then

    Because MS is Main screen.

    Good script.
    Thanks, i was hopeing SRL had a procedure like that

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

    Default

    Dude, its a clear ripoff and stolen, just check my shitty old powerminer... U just removed some from the end (as the spaces at the damn thing are the same). Then the msx1 etc. stuff those are just variables lol Not a procedure.

  9. #9
    Join Date
    Oct 2006
    Location
    New Zealand
    Posts
    423
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    did I say Ive rewriten it yet? I havn't, also, could you post a link to the powerminer? I want to compare

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

    Default

    Ok, watever, have fun using the procedure i dont care. Just seemed wrong u got SRL members with a script that wasnt clearly fully made by u. But ill check ur upcoming scripts well... I dont want to find more plagiarism from them then -_-

  11. #11
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    GoF is correct
    Boreas and I examined both scripts are they are quite similar.
    Some same procs, same tolerances, same bad standards .
    Now i feel bad about getting him accepted and that i didn't catch this before.

    Though this script is not 100% copied, we (Boreas and I) believe that there is a significant amount copied and that his membership (meanage's) should be revoked.

    This is just our personal opinion
    Here is a link to Gof's scripts,
    you guys choose
    http://www.villu-reborn.com/showthread.php?t=4886

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

    Default

    Finally someone noticed.. Well, the powerminer was one of my first scripts and wasnt even that great... But still he copied alot of it (the last version of dummysplitter or w/e had the procedure fully copied in it.. But the thread seems to be vanished.)

  13. #13
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    well yea if t his is true, i think you should close this thread...
    it's not allowed to copy paste procedure without giving creds and/or asking the author for using
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  14. #14
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    GoF and meanage: Please send me your scripts. I will compare. If it turns out meanage has wrongfully obtained his membership here, it will be removed.
    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
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    This script wasn't compiling.
    I fixed it by moving DropAllLogs2 above DropAllLogs3.
    I also got rid of the NEWLINE hint.
    Here you go,

    SCAR Code:
    {
     __  __                               ___ _           _ _
    |  \/  |___ __ _ _ _  __ _ __ _ ___  / __| |_ _  _ __| (_)___ ___
    | |\/| / -_) _` | ' \/ _` / _` / -_) \__ \  _| || / _` | / _ (_-<
    |_|  |_\___\__,_|_||_\__,_\__, \___| |___/\__|\_,_\__,_|_\___/__/
                              |___/
                        Chain Saw (PowerCutter)
    }

    {Instructions:
    1. Setup players and Tree colors
    2. Have characters by the trees you want to cut, the more the better
    3. Press play
    4. Watch
    5. Post on my thread
    }

    program MeanageStudiosChainsaw;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/WoodCutting.scar}
    const
     treecolor1 = 2252880; // tree color
     TreeColor2 = 3305578; // another tree color
     Treetype = 'Norm';     //Norm is for normal, Oak is for oak
     LoadsToCut = 3;//Loads to cut per player at a time
     Rundir = 'S';//Run direction for fight
     Axes = '1';//number of axes in inventory(doesnt count for weilded ones)
     Axes3 = 1;//number of axes in inventory(doesnt count for weilded ones)
     WantedLogins = 6;//Number of times you want to change players
    var
    LoadsCut:integer;
    Logins:integer;
    LogsCut:integer;
    LogLoadsCut:integer;

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

         Players[0].Name :='user';
         Players[0].Pass :='pass';
         Players[0].Nick :='nick';
         Players[0].Active:=True;

         end;

    Procedure ChopTreeNorm;
    var Tolerance,P,Found,C :integer;
    begin
    Tolerance:=10;
         begin
         repeat
         p:=P+1;
         Found:=2;
         if (FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,MSX1,MSY1,MSX2,MSY2,Tolerance))then
             MMouse(x,y,3,3)
             wait(10+random(10));
         if (IsUpText('ree')) then
             Found:= 1;
              if found = 1 then
              begin
              if (FindObjMultiText(x,y, 'ree', 'ree', 'ree', Treecolor1, Tolerance)) or
                 (FindObjMultiText(x,y, 'ree', 'ree', 'ree', Treecolor2, Tolerance)) then
                 Mouse(x,y,3,3,true);
                 C:=1;
              end;
              if Found = 2 then
              begin
              tolerance:= tolerance+1;
              end;
                if (tolerance=15) then
                begin
                Tolerance:=(Tolerance-5)
                Wait(7000+random(500))
                end;
         until ((C=1) or (P=20))
    end;
    end;

    Procedure ChopTreeOak;
    var Tolerance,P,Found,C :integer;
    begin
    Tolerance:=10;
         begin
         repeat
         p:=P+1;
         Found:=2;
         if (FindColorTolerance(x,y,TreeColor1,MSX1,MSY1,MSX2,MSY2,Tolerance))or
            (FindColorTolerance(x,y,TreeColor2,MSX1,MSY1,MSX2,MSY2,Tolerance))then
             MMouse(x,y,3,3)
             wait(10+random(10));
         if (IsUpText('Oak')) then
             Found:= 1;
              if found = 1 then
              begin
              if (FindObjMultiText(x,y, 'Oak', 'Oak', 'Oak', Treecolor1, Tolerance)) or
                 (FindObjMultiText(x,y, 'Oak', 'Oak', 'Oak', Treecolor2, Tolerance)) then
                 Mouse(x,y,3,3,true);
                 C:=1;
              end;
              if Found = 2 then
              begin
              tolerance:= tolerance+1;
              end;
                if (tolerance=15) then
                begin
                Tolerance:=(Tolerance-5)
                Wait(7000+random(500))
                end;
         until ((C=1) or (P=20))
    end;
    end;

    procedure ChopTree3;
    begin
    if TreeType = 'Oak'
       then
        begin
        ChopTreeOak;
        wait (7000+random(1000))
        ChopTreeOak;
        wait (7000+random(1000))
        ChopTreeOak;
       end;
    if TreeType = 'Norm'
       then begin ChopTreeNorm;
        ChopTreeNorm;
        wait (3000+random(1000))
        ChopTreeNorm;
        wait (3000+random(1000))
        ChopTreeNorm;
       end;
    end;

    procedure SetUp;
    begin;
    cleardebug;
    writeln(' __  __                              ')
    writeln('|  \/  |___ __ _ _ _  __ _ __ _ ___  ')
    writeln('| |\/| / -_) _` | ` \/ _` / _` / -_) ')
    writeln('|_|  |_\___\__,_|_||_\__,_\__, \___| ')
    writeln('                          |___/')
    writeln('Chain Saw')
    wait(1500)
    cleardebug;
    writeln(' ___ _           _ _')
    writeln('/ __| |_ _  _ __| (_)___ ___')
    writeln('\__ \  _| || / _` | / _ (_-<')
    writeln('|___/\__|\_,_\__,_|_\___/__/')
    writeln('  ')
    writeln('Chain Saw')
    wait(1500)
    cleardebug;
      if(not(loggedin)) then begin
      LoginPlayer;
      wait(200+random(200))
      end;
    end;

    Procedure FindDeadAxe;
    begin
       begin
       MMouse(586,220,3,3)
       Wait(200+random(100))
       if (IsUpText('Use')) then
       begin
       MMouse(628,220,3,3)
       Wait(200+random(100))
       if (IsUpText('Use')) then
             begin
       MMouse(664,323,3,3)
       Wait(200+random(100))
       if (IsUpText('Use')) then
             begin
       MMouse(771,228,3,3)
       Wait(200+random(100))
       if (IsUpText('Use')) then
             begin
             NextPlayer(False)
             end;
    end;
    end;
    end;
    end;
    end;



    procedure DropAllLogs2;
    begin
    If Axes='1' then begin
       DropTo(2,28)
       end;
    if Axes='2' then begin
       DropTo(3,28)
       end;
    if Axes='3' then begin
       DropTo(4,28)
       end
    if Axes='4' then begin
       DropTo(5,28)
       end
    LoadsCut:=LoadsCut+1;
    end;


    procedure DropAllLogs3;
    Var LogsDTM:integer;
        IX,IY:integer;

    begin
      LogsDTM := DTMFromString('78DA63F462626060676440063571160CFF813' +
           '448F43F1030DA03D5FC4351C290EE2105A6613A196D806AB850CD' +
           'C9F74553130854F317D59CD228334C35DCA8E634255BA3A80100E' +
           'EB30D67');
        if (not FindDTM(LogsDTM,IX,IY,MIX1,MIY1,MIX2,MIY2)) then begin
           DropAllLogs2;
           end;
               if FindDTM(LogsDTM,IX,IY,MIX1,MIY1,MIX2,MIY2) then begin
               repeat
               FindDTM(LogsDTM,IX,IY,MIX1,MIY1,MIX2,MIY2)
               Mouse(IX,IY,3,3,false);
               PopUp('Drop');
               LogsCut:=LogsCut+1;
           until(not(findDTM(LogsDTM,IX,IY,MIX1,MIY1,MIX2,MIY2)))
           end;
    end;






    procedure ProgressReport;
    begin
    ClearDebug;
    Writeln('Loads Cut And Dropped = '+intToStr(LoadsCut))
    end;

    Procedure SetChats;
    Begin
      SetChat('Hide', 1);
      SetChat('Hide', 1);
      SetChat('Friends', 2);
      SetChat('Friends', 2);
      SetChat('Off', 3);
      SetChat('Off', 3);
    End;

    procedure AntiRandoms222;
    begin
    FindNormalRandoms;
    FindHead;
    FindBirdsNest;
    FindTalk;
    FindDeadAxe;
    if (FindFight) then
      begin
        RunAwayDirection(RunDir);
        Wait(9000 + random(3000));
        RunBack;
        end;
        if(not(loggedin)) then begin
      LoginPlayer;
      wait(200+random(200))
      end;
    end;

    Procedure ProggyMaths;
    var
    LogsCutAxes:integer;
    Axes2:integer;
    begin
    Axes2:=Axes3;
    LogsCutAxes:=28-Axes2;
    LogLoadsCut:=LogsCut/LogsCutAxes;
    LoadsCut:=LoadsCut+LogLoadsCut;
    end;

    Procedure ProgressReport2;
    begin
    ProggyMaths;
    ProgressReport;
    SRLRandomsReport;
    end;


    procedure MainLoop;
    begin
    repeat
    ProgressReport2;
    ChopTree3;
    AntiRandoms222;
      if (invfull)
      then begin
      DropAllLogs3;
      end;
    MouseSpeed := MouseSpeed +random(3)
    PickUpMouseEvery(50+random(10));
    LeaveScreenEvery(10 + random(5));
    HoverSkill('woodcutting', false);
    ProgressReport2;
    ChopTree3;
    AntiRandoms222;
    MouseSpeed := MouseSpeed -random(3)
      if (invfull)
      then begin
      DropAllLogs3;
      end;
          if ((LoadsToCut) >= (LoadsCut)) then
          begin
          NextPlayer(false)
          Logins:= Logins+1
          end;
    until(Logins >= WantedLogins)
    end;

    begin
     SetUpSRL;
     NewLine:= Newline;
     DeclarePlayers;
     DisguiseScar('Meanage Studios Chain Saw');
     SetUp;
     Setchats;
     MainLoop;
    end.

  16. #16
    Join Date
    Aug 2007
    Location
    bc
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    u did fix the drop logs but mine came up with another error. line 295 [error] unknown identifier 'PickupMouseEvery'
    plz help me figure it out

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: 199
    Last Post: 05-30-2009, 07:58 AM
  2. 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
  3. Meanage Studios Normal Log Cutter/Banker
    By Meanage in forum RS3 Outdated / Broken Scripts
    Replies: 140
    Last Post: 11-24-2007, 02:19 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
  •