Results 1 to 11 of 11

Thread: TViYH's PowerChopper

  1. #1
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default TViYH's PowerChopper

    It's my first real script..Even though it's not a real script. Lol.

    Pick the normal tree colors, start with an axe wielded or in inventory.
    Start wherever there are normal trees.

    It's only supposed to do 1 load right now..
    I'm still updating it =]

    Please test it for me.
    v1.3- SRL Rev #24

    -BETA
    Created basic skeleton of script.

    -v1.1
    Added MultiPlayer.

    -v1.2
    Fixed minor mistakes.

    -v1.3
    Changed it to a Willow PowerChopper
    Added AntiBan;

    Future Updates
    MultiPlayer - Done
    AntiBan - Done
    Draynor Willow Chopper/Banker


    SCAR Code:
    {.Script Info:
    # ScriptName  = PowerChopper v1.3
    # Author      = TheVoiceInYourHead
    # Description =
    # Version     = 1.3
    # Date        = Sep. 02, 2008
    # Comments    =
    /Script Info}


    program PowerChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Woodcutting.scar}

    var
      Logs, Ents, z: Integer;
      Colors: TIntegerArray;

    Procedure DeclarePlayers;

    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Colors := []; //Setup Willow Tree colors here

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

      Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
    End;

    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: HoverSkill('Woodcutting', False);
        3: RandomMovement;
        4: BoredHuman;
        5: DoEmote(400 +Random(90));
      end;
    end;

    function waitChop: boolean;
    var
      i, c, x, y: Integer;
    begin
      if not LoggedIn then Exit;
      i := InvCount;
      MarkTime(c);
      repeat
        AntiBan;
        FindNormalRandoms;
        if FindEnt(x, y, True) then
          Inc(Ents);
        Wait(120);
      until((InvCount>i) or (TimeFromMark(c) > 800000+random(60000)));
      Result := True;
    end;

    function dropLogs: boolean;
    var
      x, y: Integer;
    begin
      if not LoggedIn then Exit;
      repeat
        Logs := Logs + CountItems(srl_GetBitmap(bmp_Log_Willow), 'bmp', [0])
        ClickAllItems(srl_GetBitmap(bmp_Log_Willow), 'bmp', 'rop', 120, [0]);
      until(not(FindBitmap(srl_GetBitmap(bmp_Log_Willow), x, y)));
      Result := True;
    end;

    //Thanks to Cazax and Nava2 for help
    function findTree(colors: tintegerarray): boolean;
    var
      MainTPA: TPointArray;
      MainATPA, ColorTPA: T2DPointArray;
      MainPoint: TPoint;
      i, c, lingth: Integer;
    begin
      if not LoggedIn then Exit;
      for c := 0 to High(colors) do
      begin
        FindColorsSpiralTolerance(MSCX, MSCY, ColorTPA[c], colors[c], MSX1, MSY1, MSX2, MSY2, 5);
        MainTPA := CombineTPA(MainTPA, ColorTPA[c]);
      end;
      if Length(MainTPA)=0 then
      begin
        WriteLn('Pick new colors..');
        TerminateScript;
      end;
      MainATPA := TPAtoATPAEx(MainTPA, 4, 4);
      Lingth := High(MainATPA);
      for i := 0 to Lingth do
      begin
        MainPoint := MiddleTPA(MainATPA[i]);
        MMouse(MainPoint.x, MainPoint.y, 0, 0);
        Wait(75 + Random(51));
        if IsUpText('illow') then
        begin
          Mouse(MainPoint.x, MainPoint.y, 0, 0, False);
          Wait(250 + Random(250));
          Result := ChooseOption('hop');
          If Result Then
            Exit;
        end;
      end;
      if Not Result Then
        Writeln('No Tree');
    end;

    procedure Proggy;
    begin
      WriteLn('<><><><><>TViYH''s PowerChopper');
      WriteLn('Total Ents: ' + IntToStr(Ents));
      WriteLn('Total Logs: ' + IntToStr(Logs));
      WriteLn('Total Time: ' + IntToStr((GetTimeRunning * 1000) * 60) + ' minutes');
    end;

    procedure MainLoop;
    begin
      if not LoggedIn then Exit;
      if not FindAxe then
      begin
        WriteLn('No axe..');
        TerminateScript;
      end;
      repeat
        if findTree(Colors) then
        begin
          waitChop;
        end;
      until(InvFull);
      dropLogs;
      AntiBan;
      Proggy;
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    ActivateClient;
    for z := 0 to (HowManyPlayers-1) do
      begin
        LoginPlayer;
        MainLoop;
        NextPlayer(False);
      end;
    end.

  2. #2
    Join Date
    May 2008
    Location
    127.0.0.1
    Posts
    705
    Mentioned
    1 Post(s)
    Quoted
    6 Post(s)

    Default

    looks good, like how you already know your standards, wish i woulda learnt themearly :s
    -first post
    <Wizzup> And he's a Christian
    <Wizzup> So he MUST be trusted
    ___________________________________________
    <Wizzup> she sounds like a dumb bitch

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

    Default

    Lol. Yeah. I'm a fairly advanced scripter =/

    I just don't really care about RS anymore.
    I've started like a hundred decent scripts, but never finish them b/c I get tired of RS..

  4. #4
    Join Date
    May 2007
    Location
    Vancouver, Canada , eh?
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol if you get tired of RS try making a script thats useful for something else.
    I had to change this from my old one...?

  5. #5
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Like what?

  6. #6
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    a advance scripter should have antiban. and alot other proc's

  7. #7
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mate. It's v1.2.

    Calm down.

    I need testing so I can make sure this even works.

    How about you test it and do this thread some good?

  8. #8
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good add some walking banking and some other stuff and apply for members.

  9. #9
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mk NiCbaZ.

    I'm thinking of turning it into a Draynor Willer Chopper/Banker..

  10. #10
    Join Date
    Jul 2008
    Posts
    76
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Rubix View Post
    looks good, like how you already know your standards, wish i woulda learnt themearly :s
    -first post
    Lol Pm the script i'll add standards to any script.

    Btw downloading it now...Not to use but to learn, Thanks!

  11. #11
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem. I'm in the process of updating it because of simple errors.

    BjRobMan, if you need any help with learning, I can help =]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. My first powerchopper
    By Malformed in forum First Scripts
    Replies: 6
    Last Post: 12-27-2009, 05:22 PM
  2. ~ TViYH's Powerminer ~
    By TViYH in forum RS3 Outdated / Broken Scripts
    Replies: 101
    Last Post: 08-16-2009, 10:58 AM
  3. TViYH's PowerChopper
    By TViYH in forum RS3 Outdated / Broken Scripts
    Replies: 20
    Last Post: 11-18-2008, 01:01 AM
  4. My First PowerChopper
    By i like mauls in forum First Scripts
    Replies: 2
    Last Post: 06-19-2007, 04:35 PM

Posting Permissions

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