Results 1 to 7 of 7

Thread: Powerchopper

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

    Default Powerchopper

    I've been working on this script for a while now...It works, but there's still some bugs. It has effective Anti-Randoms. I got my character from 1 to 30 wc with it. Here you go:

    SCAR Code:
    program New;
    {.include SRL\SRL\Misc\Smart.scar}
    {.include SRL\SRL.scar}

    const
      LoadsToDo = 1;

    var
      X, Y, I, L, TreeColor, DTM, CutLogs, Loads: Integer;
      TreeColors: Array [0..5] of Integer;
      ColorPointsTPA: TPointArray;

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

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

    procedure LoadDTMs(which:string);
    begin
      case which of
        'Logs':begin DTM := DTMFromString('78DA63CC65626078CA800232020D195881342' +
           '310FF0702C632A09A5B0C6880118904D204CC01AB4904AA794C05' +
           '73AA806A5E51C19C74A09A8F54302719A8E62D15CC8905AA794D0' +
           '57352806AEE50C11C50BC3FA482393984DD030077B8245E');
           end;
      end;
    end;

    procedure Drop;
    begin
      LoadDTMs('Logs');
      repeat
      if FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          case Random(10) of
            0..7: begin
                    Wait(500);
                    Mouse(x, y, 1, 1, False);
                    Wait(500);
                    ChooseOption('rop');
                  end;
            8..9: begin
                    Wait(500);
                    Mouse(x, y, 1, 1, False);
                    Wait(500);
                    ChooseOption('ancel');
                  end;
          end;
        end;
      for i:=2 to 27 do
        begin
          DropItem(i);
        end;
      until(InvCount=1);
      FreeDTM(DTM);
    end;

    procedure AxeBroken;
    begin
      if FindBlackChatMessage('You do not') then
        begin
          Logout;
          WriteLn('Lost or broke the axe.');
          TerminateScript;
        end;
    end;

    procedure ProggyReport; forward;
    procedure CutTrees;
    begin
      if InvFull then Drop;
      TreeColors[0] := 3692371;
      TreeColors[1] := 1652525;
      TreeColors[2] := 1855560;
      TreeColors[3] := 3310453;
      TreeColors[4] := 867890;
      TreeColors[5] := 2120273;
      x := MSCX;
      y := MSCY;
      ColorToleranceSpeed(0);
      for i := 0 to 5 do
      FindColorsSpiralTolerance(x, y, ColorPointsTPA, TreeColors[i], MSX1, MSY1, MSX2, MSY2, 0);
      for i:=0 to High(ColorPointsTPA) do
        begin
          FindNormalRandoms;
          Wait(300);
          if InvFull then Drop;
          MMouse(ColorPointsTPA[i].x, ColorPointsTPA[i].y, 0, 0);
          if InvFull then Drop;
          Wait(500);
          if IsUpText('ree') then
            begin
              Wait(250);
              Mouse(ColorPointsTPA[i].x, ColorPointsTPA[i].y, 0, 0, False);
              if ChooseOption('hop') then
                Flag;
              AxeBroken;
              Wait(1250);
              if FindBlackChatMessage('You swing your') then
                repeat
                Wait(150);
                FindNormalRandoms;
                until(FindBlackChatMessage('You get some'));
                if FindBlackChatMessage('You get some') then
                  begin
                    Inc(CutLogs);
                    ProggyReport;
                  end;
            end;
        end;
    end;

    procedure ProggyReport;
    begin
      ClearDebug;
      WriteLn('Logs cut: ' + IntToStr(CutLogs));
      WriteLn('Time running: ' + IntToStr(GetTimeRunning) + ' msec');
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    SmartSetupEx(133, False, True);
    while Not SmartReady do Wait(100);
    SmartSetTarget;
    repeat
      LoginPlayer;
      ChatsOff;
      SetAngle(True);
      MakeCompass('N');
      FindNormalRandoms;
      repeat
        CutTrees;
      until InvFull;
      Inc(Loads);
      Drop;
      ProggyReport;
    until(LoadsToDo=Loads);
    ProggyReport;
    end.

    Have the axe wielded or in first inventory slot. This cuts Normal trees. Later I'll add multiplayer and multi-tree cutting. Please post errors and proggys.

    Thanks.

  2. #2
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    that isnt your script ya leecher it's elking121's script

    and that pic in ya sig isnt your either you leeched it of me

  3. #3
    Join Date
    Sep 2007
    Location
    Pennsylvania
    Posts
    3,396
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by scaper123 View Post
    that isnt your script ya leecher it's elking121's script

    and that pic in ya sig isnt your either you leeched it of me
    TheVoiceInYourHead IS Elkins121

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

    Default

    Lol. Yeah, scaper...I changed my ID. And, actually, you stole my siggy picture. Please don't flame.

  5. #5
    Join Date
    Mar 2008
    Location
    Arlington Virginia
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i like ur siggy =P omg is zezima follo for drop party everyone do emotes lol lmfao. its a good one =P
    Jason2gs: And warmer, I would imagine.
    Jason2gs: With kissing and caressing involved.
    Jason2gs: And real boobs!
    Jason2gs: I can't wait.
    Wizzup: you see their butts and stuff

  6. #6
    Join Date
    Mar 2007
    Location
    Eugene, Oregon
    Posts
    195
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha nice sig. And Im testing now ill have a proggy by the night.

    EDIT: So this is what happened after running the script (SCAR 3.15b Rev16)

    Successfully compiled (1759 ms)
    Line 9: [Hint] (12748:1): Variable 'L' never used in script (My Files listed)
    Line 9: [Hint] (12748:1): Variable 'TREECOLOR' never used in script (My Files listed)
    SRL Compiled in 16 msec
    ******(UserNameHidden)
    Creating the NickTPA.
    ** Warning in GameTab: 4 does not exist**
    1. Opened up SMART Correctly.

    2. Logged in and started Correctly.

    3. Didn't react after logging in. (Maybe it got stuck on trying to create the nickname I'm not sure.)

    I'll try rerunning this, but manually picking the tree colors in the script. (I found where you put them) and that might help. If it still doesn't respond after changing the colors I'll leave it to you to figure out whats wrong because Furuchan64 = Not a scripter (But would like to be )

    EDIT: So changing the colors in the script to match my trees worked its running currently. Maybe try to work with the auto coloring or put the tree color choosing at the top of the script so it can be done manually. (This will also make it possible to cut ANY tree using its colors) Or you can use the auto coloring and have an option at the top to choose, for example, Willow or Maple or something and it will find the colors for that specific tree using functions in your script. I put in a "ClearDeBug" statement in there by myself because i have a thing about having a sloppy looking debug box lol. I'm waiting for it to drop so i can see what happens.

    EDIT: So this is my final word for now until i you update it.

    Logs cut: 27
    Time running: 411811 msec

    4. Drops logs correctly, but after the drop it stops working and sits until log out.

    Also I have found that the script is easily confused with the ground grass, and Oak trees. I didn't check to see if SMART was using low detail or not but if it wasn't that may be a suggestion. Otherwise just work with the other things I have said and I'm sure your next update will be a big step and success. Good luck!

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

    Default

    Yeah, I set the colors to be very sensitive. The tree colors, alas, are close. I also think I used a decent tolerance. I'm in Florida, so I haven't been able to test this script at all. Sorry if it doesn't work. I'll edit when I get home.

    EDIT: I think I may have also put an autosleep function in there? I'm not sure...

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. Need help with powerchopper
    By pallooo in forum OSR Help
    Replies: 13
    Last Post: 10-29-2007, 10:48 PM
  3. My First PowerChopper
    By i like mauls in forum First Scripts
    Replies: 2
    Last Post: 06-19-2007, 04:35 PM
  4. Best powerchopper
    By spermis in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 04-28-2007, 01:41 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
  •