Page 1 of 45 12311 ... LastLast
Results 1 to 25 of 1103

Thread: P1nky's PowerChopper!

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

    Default P1nky's PowerChopper!




    || P1nky's PowerChopper Since 2007 ||





    Updates:
    PHP Code:
    UPDATE V1.0BETTER WCING PROCEDURE!
                        
    BETTER ENT FINDER THANKS FROZE!

    UPDATE V2.0UPDATED TO REV 10


    UPDATE V3.0
    UPDATED TO REV 14 WITH SMART ;]

    UPDATED V4.0 INCLUDES!
    BETTER WCING PROCEDURE!
    BETTER ENTFINDER
    BETTER TREE FINDER!
    BETTER DROPPING PROCEDURESSMART/FASTOPTIONS
    btw i fixed the multi players problem
    so should work for a looong time if you have about 3-4 players
     
    =Z:garfield:

    Update V5.0=(4/30/08)
    ADDED A L33T FORMFIRST FORM FTWownz naum!
    added more ENT protection
    Axe Broken Detector
    !
    Updated to REV # 16
    CHANGEDTree Chopping procedure!

    Update V6.0=(7/25/08)
    New 
    Form Pic :P lol i love you HOMER!
    ADDED MUSIC TO FORM
    ~WHAT IS LOVE~
    ~
    SPIDER PIG~
    GREAT WILLOW CHOPPING :)
    CLEANED UP THE SCRIPT A BIT! (made it load the bitmap)
    AND 
    ALOT MORE 
    Updated to REV 
    # 20

    V7.0=(8/13/08)
    added More Details in Proggie report
    added better Willow
    /Oak Finding
    Still Tree wont work will figure out soon
    AND ALOT MOREjust cant list all here.

    v10 I'm back <3 and now for SIMBA <3

    Version A(Nov/15/2011) = Thank to Bot Nuke no more reflection bots... hearing that, I chose to come back and update most of my scripts.
    Hope you like it:
    -New Chopping Proc
    -New Report
    -All Colour
    -Works up to the 6 hour rule :)


    Version B(Nov/30/2011) = Couple new features and updates:
    -Sleeping Feature ( less chance for randoms )
    -Faster Tree Searching
    -SRL STATS added
    -Patched many bugs and tweaked the script a bit :).

    Version B[1]:
    -Added True or False for Antiban
    -Faster Tree Search
    -Fixed Report
    -Small Tweaks here and there

    Version B[2](12/23/11):
    -Fixed Chopping
    -More Reliable

    P1nkys PowerChopper - Since 2007:
    This version has been updated for OSRS. Enjoy! 

    REP ME IF YOU LOVE ME AND PLEASE POST PROGGIES!



    TOTAL DOWNLOADS(9/1/10):

    6455



    Released on 11/12/07.
    Updated on 1/1/14.



    Quote Originally Posted by Freddy1990 View Post
    Tried your new lite version, got my account from 23 to 45 wc in 8 hours on mostly oaks, nice job First script I've actually used in like... a very very long time


    Download:
    Attached Files Attached Files
    Last edited by P1nky; 01-02-2014 at 06:16 AM. Reason: Works with OSRS!

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

    Default

    Proggies:

    Quote Originally Posted by Freddy1990 View Post
    Tried your new lite version, got my account from 23 to 45 wc in 8 hours on mostly oaks, nice job First script I've actually used in like... a very very long time



    Progress Report:
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 3 Hours, 25 Minutes and 18 Seconds
     Chopped 1404
     Dropped(by loads) 52
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    Success Finding Willow
    
    
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 2 Hours, 5 Minutes and 47 Seconds
     Chopped 1026
     Dropped(by loads) 38
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    Success Finding Willow
    
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 6 Hours, 15 Seconds
     Chopped 2916
     Dropped(by loads) 108
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    
    
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 5 Hours, 21 Minutes and 12 Seconds
     Chopped 2754
     Dropped(by loads) 102
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    Success Finding Willow
    
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 6 Hours, 10 Seconds
     Chopped 3105
     Dropped(by loads) 115
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 6 Hours, 15 Seconds
     Chopped 2916
     Dropped(by loads) 108
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    NextPlayer
    
    ||===========================||
    ||       P1nkys Draynor      ||
    ||===========================||
    ||Post this on the thread plz||
    ||===========================||
     Worked For 6 Hours, 16 Seconds
     Chopped 3240
     Dropped(by loads) 120
     Broken Axes 0
     Leveled 0
    ||===========================||
    ||====   By P1nky        ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

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

    Default

    If the .rar Doesnt work for you or having problems i made your life just easy.

    just download the LITE version script. nothing lack of just the form isnt l337 anymore, *No more music or picture in Form*.

    Good Luck!
    post proggies/bugs enjoy






    NOTE(11/15/11): PLEASE IGNORE ATTACHMENTS , It's for my own sources <3.



    Simba Code:
    program oakbanker;
    //$DEFINE SMART8}
    {$I SRL-OSR/SRL.Simba}
    //$I SRL-OSR/SRL/Reflection/Reflection.simba}
    {
     chopping animation: 877
    }


    var
     loads: integer;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
    end;

    {procedure AntiBan;
    var
     i: integer;
    begin
      i:=random(100);
      case i of
      1..10: MMouse(random(150),random(100), 0,0);

    end;}


    procedure prog;
    begin
      writeln('|---------------------|');
      writeln('ran for ' + timerunning);
      writeln('banked ' + inttostr(loads) + ' loads');
      writeln('|---------------------|');
    end;

    {
    more options for object finding
    }

    procedure FillInv;
    var
     x, y, n : integer;
    begin
      repeat
        if FindObj(x, y,'Oak',2190948,8) then
        begin
          Mouse(x,y,0, 0,true);
          Wait(2000 + random(2500));
          writeln('clicked the tree');
          if n=1 then
          begin
            writeln('hopefully were back on track now');
            makecompass(0);
            n:=0;
          end;
        end else

        begin
          writeln('couldnt find an oak tree, waiting');
          wait(4000+random(1000));
          if FindObj(x, y,'Oak',2190948,8) then
          begin
            Mouse(x,y,0, 0,true);
            Wait(2000 + random(2500));
            writeln('we waited and now the tree is back!');
          end else

          begin
            writeln('we waited and still no trees, well give it 1 more shot');
            wait(4000+random(1000));
            if FindObj(x, y,'Oak',2190948,8) then
            begin
              Mouse(x,y,0, 0,true);
              Wait(2000 + random(2500));
              writeln('we waited and now the tree is back!');
            end else
            begin
              writeln('never found the tree.. :(');
              writeln('terminating script');
              prog;
            end;
          end;
        end;

      //  if r_gettileglobal=point(3278, 3430) then
        begin
          n:=1;
          writeln('at a wierd angle, lets switch things up');
          makecompass(45+random(10)-random(20));
        end;
       // while R_GetAnimation=877 do
        begin
          //antiban;
          //FindNormalRandoms;
        end;
        writeln('this tree is done, moving on');
        if Random(100)>80 then Wait(2500+random(2400));
      until invFull;
      Writeln('inventory is full, attempting to walk to bank');
    end;

    {openbankfast('veb');
    openbankquiet('veb');
    openbanknpcex('blue');
    banktile point(3253, 3420)
    }

    procedure Bank;
    var
     //oaklog: integer;
     thespot,bpoint: tpoint;
    begin
      writeln('made it to the bank');
      {oaklog := DTMFromString('mlwAAAHicY2dgYOBlYWAQBGJxIBYGYg4g/sfMwMACpEMZGRi8gDgQiGOBOJERIuYDxEURpkDdjDgwboBLB5IuABSDBNc=');
      logscut := logscut + CountItems('dtm', oaklog, []); }


      Wait(500+random(250));
      OpenBankfast('veb');
      begin
        writeln('opened bank method 1!');
        Mouse(444,315,random(2),1,true);
        exit;
        if Random(100)>80 then CloseBank;
      end; //else
      {
      begin
        writeln('didnt open bank with method 1, attempting #2');
        bpoint := point(3253,3420);
        {if not r_neartile(bpoint, 2) then
        begin
          thespot := r_tiletomm(bpoint);
          Mouse(thespot.x, thespot.y, 0,0,true); }

      {  end;

        begin
          if OpenBankNPCEx('blue') then
          begin
            writeln('opened bank method 2!');
            Depositall;
            if Random(100)>80 then CloseBank;
          end else
          if openbankglass('veb', true, false) then
          begin
            writeln('bank is open, thanks method 3!');
            Depositall;
            if Random(100)>80 then Closebank;
          end else writeln('bank still isnt open, something must be wrong!');
        end;        }


      loads := loads + 1;
    end;

    {get the walking more reliable.. sometimes not in view of the bank
    or the southern tree
    add some color walking and use the reflection more as back up}

    procedure walkt;
    begin
      prog;
      writeln('walking to the tree');
     // R_WalkPath([Point(3265, 3428), Point(3279, 3428)]); //to tree
      MakeCompass('N');
      Mouse(700,50,random(2),random(3),1);
      wait(10000+random(500));
     Mouse(700,90,random(2),random(3),1);
    end;

    procedure walkb;
    begin
    MakeCompass('N');
     Mouse(584,82,random(2),random(3),1);
     wait(17777+random(500));
     Mouse(595,118,random(2),random(3),1);
    wait(18000 + random(500));


      //R_WalkPath([Point(3271, 3428), Point(3262, 3428), Point(3253, 3420)]);//to bank
    end;

    begin
      setupsrl;
      declareplayers;
     // SetupReflection;
      wait(2000);
      repeat
        if not loggedin then
        begin
          loginplayer;
          keydown(vk_up);
          wait(1500+random(1000));
          keyup(vk_up);
        end;
        if loggedin then
        begin
          walkt;
          fillinv;
          walkb;
          bank;
        end;
      until false;
      //writeln('animation: ' + inttostr(r_getanimation));
    end.
    Attached Files Attached Files

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

    Default

    Firstly..

    SCAR Code:
    Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[0].Strings[1] := 'willow';
      //oak or willow or tree or all or dead(LOWERCASE)!
      Players[1].Active := true;

    You need to change
    SCAR Code:
    Players[0].Strings[1] := 'willow';
    to
    SCAR Code:
    Players[1].Strings[1] := 'willow';

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

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

    Default

    ok UPDATED hopefully it cuts all trees for sure its cutting regular TREES! got 1-47 wcing already


    if not high detail try LOW!

    -please post proggies and tell me if doesnt work thanks-


    Simba Code:
    program P1nkyCaves;
    {$i SRL/SRL.simba}
    {$i P07Include.simba}
    var
    CharacterIsInCave: boolean;
    logged,A,casted, caveEntrances,progress: integer;
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
    Thank You for choosing P1nkys FightCaver.
    I will be keeping this script updated and make sure it is
    running perfectly fine, all I ask from the Users is
    keep my thread alive, post BUGS, post PROGGIES.
    -P1nky
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}

    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{
    NOTE: I have not inputted any Anti-Leeching,
    BOT AWAY!
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}

    { SETUP }
    const
    mage = false;
    flame1 = 1322364;
    flame2 = 1732294;
    Casts = 27000;


    caveTol = 5;


    EntranceCol = 8684945;
    EntranceTol = 20;
    EntranceHue = 0.07;
    EntranceSat = 0.12;
    BankSymbol =5563892; ////BANK COLOR HERE BANK COLOR
    DoYouLoveSRL = True;
    Antiban = True; //True or False
    Range = false; // True or False (If you are using a backpack, I'd KEEP this False)
    CombatStyle = 'str';
    {
    'str' : strenght |rapid
    'att' : attack |Accurate
    'def' : defence |Longrange
    }

    Procedure DeclarePlayerz;
    begin
    P07_PlayerName:='';
    P07_PlayerPass:='';
    end;
    {END OF SETUP}
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
    {{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{}
    var
    x, y, Entered : integer;
    caveEntranceWhite: TIntegerArray;


    Function WeLogout : Boolean;
    var
    bank, minigame : Integer;
    begin
    begin
    if findcolorspiraltolerance(x,y,6778216,71,276,97,301,5) then

    Begin
    result := True;
    writeln('Oh NO we are logged off!');
    P07_LogInPlayer;
    logged := Logged + 1;
    exit;
    end else
    result := false;
    exit;
    end;
    end;


    function P07FindBankSymbol: boolean;
    var
    bank: TPointArray;
    begin
    WeLogout;
    If (Not P07_LoggedIn) Then
    begin
    exit;
    end;
    if (findcolors(bank, BankSymbol, MMX1, MMY1, MMX2, MMY2)) then
    begin
    CharacterIsIncave := false;
    result := true;
    end
    else
    begin
    CharacterIsInCave := true;
    result := false;
    end;
    end;



    Function FightCaveSleep(sleepx, sleepy: Integer; retaliate: Boolean): Boolean;
    Var
    counter, x , y, sleepTime: Integer;
    loop : Boolean;
    Begin
    WeLogout;
    loop := true;
    counter := 0;
    sleepTime := RandomRange(sleepx, sleepy);
    While loop Do
    Begin
    If FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) Then
    Begin
    Result := false;
    loop := false;
    WriteLn('We see cave entrance!');
    End Else If (not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150))) and (retaliate) Then
    Begin
    Result := false;
    loop := false;
    End Else If (sleepTime - counter > 0) and loop = true Then
    Begin
    wait(10);
    counter := (counter + 10);
    End Else
    Begin
    Result := True;
    loop := False;
    End;
    End;
    End;

    Procedure FightCaveLoop;
    Var
    x, y : Integer;
    Begin
    WeLogout;
    If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
    Begin
    WriteLn('Found correct cave!');
    ClickMouse2(True);
    While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
    Begin
    mouse(x,y,0,0,false);
    P07_WaitOptionMulti(['Enter'],1000);
    Wait(RandomRange(300, 1100));
    End;
    If RandomRange(1, 10) > 8 Then
    Begin
    SetRun(true);
    GameTab(tab_Stats);
    End;
    caveEntrances := (caveEntrances + 1);
    WriteLn('Entered cave.');
    ClearDebug;


    WriteLn('-* ');
    WriteLn('-* Entered: ' + intToStr(caveEntrances));
    WriteLn('-* Runtime: ' + TimeRunning);

    Wait(RandomRange(4000, 5000));
    SetAngle(0);
    End Else
    If (Not FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol)) and (CountDots('yellow') > 0) Then
    Begin
    FightCaveSleep(200,500,False);
    If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
    Begin
    If (FightCaveSleep(3000,5000,True)) Then
    Begin
    If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
    Begin
    Retaliate(False);
    Wait(RandomRange(500,700));
    Retaliate(True);
    GameTab(tab_Stats);
    FightCaveSleep(3000,5000,False);
    End;
    End;
    End;
    End Else P07_MakeCompassSouth;
    End;



    Function Symbol : Boolean;
    var
    bank, minigame : Integer;
    begin
    begin
    WeLogout;
    If (Not P07_LoggedIn) Then
    exit;
    end;
    //bank := DTMFromString('mlwAAAHicY2dgYMhgYmBIAuI0IM4B4hQoPxeIk4HycUAcA6XTGCBiINxezMtw8dxJhqPrfVBoEMYHGPFgKAAA5FsTug==');
    //minigame := DTMFromString('mwQAAAHic42RgYChnYmAoBuIyIK6C0kVAXAjE1VAxX6A6HyB2Z4CwA6HYA4pB7Isi/Az3fb3A+F5WKsNVa0OGi+dOomBiACMRGA4AlRIXaw==');
    begin
    if findcolorspiraltolerance(x,y,BankSymbol,MMX1,MMY1,MMX2,MMY2,15) then
    // findcolorspiraltolerance(x,y,4869599,MMX1,MMY1,MMX2,MMY2,4) then
    Begin
    result := True;
    { P07_MakeCameraAngleHigh;
    P07_MakeCompassSouth; }

    end else
    exit;
    end;
    end;


    procedure Report;
    begin
    WeLogout;
    cleardebug;
    Writeln('||===========================||');
    Writeln('|| P1nkys FightCaver ||');
    Writeln('||===========================||');
    Writeln('|| ' + TheDate(Date_Formal) + ' ||');
    Writeln('||===========================||');
    Writeln(' Worked For ' + TimeRunning);
    writeln(' Logged ' + IntToStr(logged));
    if Range then
    begin
    Writeln('||Range Option is turned ON!!||');
    end;
    if mage then
    begin
    Writeln(' Casted ' + IntToStr(casted));
    end;
    Writeln('||===========================||');
    Writeln('||==== By P1nky ====||');
    Writeln('||===========================||');
    begin
    Disguise('P1nky FightCaver ' + TimeRunning);
    end;
    end;

    procedure StayActive;
    var
    logged: Integer;
    begin
    WeLogout;
    logged := Random(18);
    case Move of
    0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
    1: MMouse(x, y, (10 + random(400)), (10 + random(200)));
    2: MMouse(x, y, (10 + random(100)), (10 + random(200)));
    3: MMouse(x, y, (10 + random(300)), (10 + random(200)));
    4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
    end;
    end;

    procedure CastCurse;
    begin
    WeLogout;
    if P07_TabInventoryTab(7) then
    begin
    //P07_MouseBox(661, 258, 673, 269, mouse_left)
    MMouse(667, 263, RandomRange(3, 5), RandomRange(3, 5));
    Wait(RandomRange(50, 100));
    ClickMouse2(mouse_left);
    if (symbol) then
    begin
    Mouse(265,185,randomRange(2,4),randomrange(2,4),true);
    exit;
    end;

    end;
    end;


    procedure cast;
    begin
    repeat
    WeLogout;
    //P07_MakeCompassDegree(20);
    //P07_MakeCameraAngleLow;
    WriteLn('You have choosen to curse Skeletons at the Varrock sewer');
    begin
    Wait(RandomRange(200, 350));
    //P07_CastSpell(12);
    CastCurse;
    Wait(randomRange(1000, 452));
    if P07_FindObjCustom(x, y, ['-Kih', 'z-', 'z-K', 'z-Ki', 'z-Kih'{,'Kek','Tz-Kek'}], [flame1, flame2{3939153}], 5) then
    begin
    ClickMouse2(mouse_left);
    Wait(RandomRange(400, 600));
    casted := casted + 1;
    if casted > Casts then
    begin
    writeln('finished all casts');
    logout;
    terminatescript;
    end;
    A := A + 1;
    // Inc(CastsDone);
    end
    (* else
    (begin
    Wait(RandomRange(1034, 1503));
    if (Not P07_FindObjCustom(x, y, ['Skeleton', 'Ske', 'ton', 'Skelet', 'leton'], [8885140, 9804448], 14)) then
    WriteLn('NPC Not found, terminating script...');
    Wait(RandomRange(100, 300));
    Mouse(992, 293, random(5), random(5), true);
    Wait(RandomRange(500, 1000));
    LogOutPlayer;
    Wait(RandomRange(500, 1000));
    TerminateScript;
    end; *)

    end;
    report;
    if A < 5 then
    begin
    stayactive;
    A := 0;
    end;
    // Inc(I);
    until(Symbol);
    KeyDown(VK_down);
    wait(Random(500));
    KeyUp(VK_down);
    begin
    Mouse(265,185,randomRange(2,4),randomrange(2,4),true);
    end;
    // until(I = Casts);
    end;


    procedure CheckIfStuck;
    var
    TPA: TPointArray;
    Waiting: integer;
    begin
    WeLogout;
    while (CharacterIsInCave) do
    begin
    if (P07FindBankSymbol) then
    CharacterIsIncave := false;
    if (Waiting > 8) then
    begin
    logout;
    terminatescript;
    end;
    writeln('<unstable> Unstucking!');
    Mouse(652, 19, 3, 10, 1);
    Wait(RandomRange(10000, 12000));
    Waiting := 0;
    break;
    end;
    if (FindColors(TPA, 65280, MSX1, MSY1, MSX2, MSY2)) then
    begin
    Waiting := 0;
    end
    else
    begin
    Inc(Waiting);
    Wait(RandomRange(950, 1050));
    end;
    end;


    function PickArrows : Boolean;
    begin
    begin
    WeLogout;
    If (Not P07_LoggedIn) Then
    exit;
    end;
    StayActive;
    wait(2500 + (random(1211)));
    if findcolorspiraltolerance(x,y,603222,msx1,msy1,msx2,msy2,3) then
    MMouse(x,y,0,0);
    wait(2000);
    Mouse(x,y,0,0,false);
    P07_ChooseOptionMulti(['Take']);
    result := True;
    Report;
    end;
    Procedure Equip;
    begin
    begin
    WeLogout;
    If (Not P07_LoggedIn) Then
    exit;
    end;
    if findcolorspiraltolerance(x,y,603222,mix1,miy1,mix2,miy2,3) then
    begin
    MMouse(x, y, 0, 0);
    ClickMouse2(false);
    wait(500);
    P07_ChooseOptionMulti(['Wield']);
    end else
    exit;
    end;
    procedure FindEntrance;
    var
    TPA: TPointArray;
    ATPA: T2DPointArray;
    TPABox: TBox;
    AverageTBoxX: integer;
    i, tmpCTS: integer;
    begin
    WeLogout;
    tmpCTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(EntranceHue, EntranceSat);
    CheckIfStuck;
    if (P07FindBankSymbol) then
    begin
    if (FindColorsTolerance(TPA, EntranceCol, MSX1, MSY1, MSX2, MSY2, EntranceTol)) then
    begin
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    SplitTPAWrap(TPA, 20, ATPA);
    SortATPASize(ATPA, true);
    for i := 0 to high(ATPA) do
    begin
    TPABox := GetTPABounds(ATPA[i]);
    AverageTBoxX := (TPABox.X2 - TPABox.X1);
    Mouse(ATPA[i][0].x, ATPA[i][0].y, (random(AverageTBoxX)), 0, 1);
    CharacterIsIncave := true;
    Inc(Progress);
    report;
    wait(2000 + random(100));
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    break;
    end;
    end;
    end;
    end;
    function Entry(Tolerance : Integer): Boolean;
    var
    CTS, I, timer: Integer;
    TPA: TPointArray;
    ATPA: Array of TPointArray;
    begin
    WeLogout;
    CTS := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.09, 1.48);
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, 6447722, MSX1, MSY1, MSX2, MSY2, Tolerance);
    ColorToleranceSpeed(CTS);
    ATPA := TPAToATPAEx(TPA, 40, 20);
    If Length(tpa) = 0 then exit;
    For I := 0 to high(ATPA) do
    begin
    MiddleTPAEx(ATPA[i], x, y);
    MMouse(x, y, 2, 2);
    wait(20+random(10));
    If I > 10 then break;
    If(P07_IsUpTextMultiCustom(['Enter'])) then
    begin
    mouse(x,y,0,0,false);
    if P07_WaitOptionMulti(['Enter'],1000) then
    result := true;
    wait(100);
    exit;
    If (result) then exit;

    end;
    end;
    end;
    function EntranceAndFight: Boolean;
    var
    TreeColors: array [0..3] of integer;
    TreeTPA: TPointArray;
    Chill, a, I: Integer;
    begin
    repeat
    WeLogout;
    Report;
    P07_MakeCompassSouth;
    // if findcolorspiraltolerance(x,y,3815999,msx1,msy1,msx2,msy2,15) then
    Entry(2);
    { MMouse(x, y, 0, 0);
    ClickMouse2(false);
    Entered := Entered + 1;
    wait(500);
    P07_ChooseOptionMulti(['Enter']);
    P07_FFlag;
    wait(500); }

    wait(2000 +random(434));
    writeln('Found Entrance!');
    until not (symbol);
    writeln('Entered Entrance!');
    P07_MakeCameraAngleHigh;
    wait(20000 + random(1001));
    if AntiBan then
    begin
    if mage then
    begin
    cast;
    end else
    If Range then begin
    repeat
    PickArrows;
    wait(6500 + random(2000));
    until(Symbol);
    end else
    repeat
    Report;
    StayActive;
    wait(4000 + random(2000));
    If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
    repeat
    WeLogout;
    stayactive;
    wait(4000 + random(2000));
    until not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150));
    until(symbol);
    if range then
    begin
    Equip;
    end;
    KeyDown(VK_down);
    wait(Random(500));
    KeyUp(VK_down);
    end;
    end;




    begin
    if not DoYouLoveSRL then
    begin
    writeln('Sorry, Terminating Script. Love SRL or GTFO.');
    wait(500);
    writeln('Sorry, Terminating Script. Love SRL or GTFO.');
    wait(500);
    writeln('Sorry, Terminating Script. Love SRL or GTFO.');
    wait(500);
    writeln('Sorry, Terminating Script. Love SRL or GTFO.');
    TerminateScript;
    end;
    Disguise('P1nkys FightCaver!');
    ClearDebug;
    Writeln('Thank You for supporting P1nkys FightCaver');
    DeclarePlayerz;
    SetupP07Include;
    ActivateClient; Wait(2000);
    If (Not P07_LoggedIn) Then
    P07_LogInPlayer;
    if not mage then
    begin
    caveEntranceWhite := [7763583, 8553356];
    P07_AutoRetaliate(true);
    Case Lowercase(CombatStyle) of
    'str','rapid' : P07_CombatStance(2);
    'att','accurate' : P07_CombatStance(1);
    'def','longrange' : P07_CombatStance(3);
    end;
    end;
    begin
    Mouse(640,181,0,0,true); //inv
    repeat
    WeLogout;
    EntranceAndFight;
    until(False);
    end;
    end.

  6. #6
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    not to bad for a start, keep readin the tuts but learn standards more, and also did you make that entfinder or do you need to credit someone for the guidance and outline of it? cuz you can make that but dont make your own tree finding procedure?

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


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

    Default

    yeah forgot =p HARRY thanks =p lol i put the credits now! =p

    and yeah like i said my STANDARDS are horrible =p will get them better soon!

    [and this is really a basic script i had this saved like for 2-3 months and once in while i have tried to like make it better and i did apply for membership with a way better script well i think so its good lol]

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

    Default

    thanks it works

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

    Default Nice

    Nice begin

  10. #10
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Standards fixed..

    SCAR Code:
    program AnyWherePowerChopper;
      {.include srl/srl.scar}
      {.include srl/srl/skill/woodcutting.scar}
    {===================================================================
    P1NKY'S 1ST SCRIPT DONT TAKE WITHOUT PERMISSION UNLESS I POSTED!!!
    change  colors if they dont work for you! or just leave the same
    ====================================================================}

    //Start Instructions (FOLO INSTRUCTIONS BELOW!):
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    1.Set LINES 22-40     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    2.|START Script where The Picture LOCATION| ~~~~~~~~~~~~~~~~
    3.|HIGH DETAIL| ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    4.START logged off
    5.AXE WIELDED or IN 1ST SLOT OF INVO
    7.READ DETAILS AND MORE ON THE THREAD THANKS<><>P1NKY<><>
     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    End OF Instructions!
    ===================================================================}


    const
      //==================================================================
      PowerChop = true;    // DONT CHANGE!!!!
      //==================================================================
      WillowColor  = 3696222; //One WILLOW Color|THESE COLORs WORK for me
      WillowColor1 = 1914674;
      WillowColor2 = 1327160;

      OakColor  = 2124898;  //OAK COLORS work for me!
      OakColor1 = 1781037;
      OakColor2 = 2242100;

      RegTree  = 2122071; //Regular Trees
      RegTree1 = 3367516;
      //if you need a dead tree color please get 1 color and paste it BELOW thanks
      RegTree2 = 925209;

      DeadTree  = 1648428; //Dead Trees (change if needed)
      DeadTree1 = 1844273;
      //Need Regular Trees too? get from TOP and paste!
      DeadTree2 = 1448999;
      //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
      //END OF SETUP DONT TOUCH BELOW PLEASE UNLESS NEEDED
      //^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    var
      Dropper, TreesChopped, x, y: Integer;

    procedure DeclarePlayers;
    begin
      CurrentPlayer := 0;
      NumberOfPlayers(2); // raise if you added more PLAYERS! please

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';//3-4 Letters Of Username ( No Capitals! )
      Players[0].Strings[1] := 'tree';
      //oak or willow or tree or all or dead(LOWERCASE)!
      Players[0].Active := true;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Strings[1] := 'willow';
      //oak or willow or tree or all or dead(LOWERCASE)!
      Players[1].Active := true;

     {Players[2].Name :='';       //GO AHEAD ADD MORE PLAYERS IF NEEDED
      Players[2].Pass :='';
      Players[2].Nick :='';
      Players[2].Strings[1] := 'Willow';
      Players[2].Active :=True;


      Players[3].Name :='';
      Players[3].Pass :='';
      Players[3].Nick :='';
      Players[3].Strings[1] := 'Willow';
      Players[3].Active :=True;

    =========================================================================
    ADD MORE IF YOU NEED TO LOL TOO LAZY TO PASTE
      }

    end;

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then Result := true;
          2: if FindMod then Result := true;
          3: if FindMime then Result := true;
          4: if FindMaze then Result := true;
          5: if FindQuiz then Result := true;
          6: if FindDemon then Result := true;
          7:
            begin
              if NoGameTab then
              begin
                Result := true;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7:
            begin
              if InBlack then
              begin
                Result := true;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    procedure RunningFromFights;
    begin
      FindNormalRandoms;
      FindFastRandoms;
      if (FindFight) then
      begin
        Status('Running...');
        RunAwayDirection('W');
        Wait(13500 + Random(2500));
        RunBack;
      end;
    end;

    procedure FindRandoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      wait(400)
      Findtalk;
      RunningFromFights;
      FindLamp('Woodcutting');
    end;

    procedure Report;
    begin
      cleardebug;
      Writeln('||===========================||');
      Writeln('||P1nkys POWERCHOPPER||');
      Writeln('||===========================||');
      Writeln('||Post this on the thread plz||');
      Writeln('||===========================||');
      Writeln(' Worked For ' + TimeRunning);
      Writeln(' Chopped ' + IntToStr(TreesChopped));
      Writeln(' Dropped(by loads) ' + IntToStr(Dropper));
      Writeln('||===========================||');
      Writeln('||====P1nkys FIRST SCRIPT====||');
      Writeln('||===========================||');
      Writeln('||=====Thanks SRL Forums=====||');
      Writeln('||===========================||');
      SRLRandomsReport;
    end;

    procedure DoChats;
    begin
      if (not (LoggedIn)) then
      begin
        Writeln(players[currentplayer].Name + 'is not logged in...');
        Writeln('Switching players');
        nextplayer(false);
      end;
      SetChat('on', 1);
      SetChat('on', 2);
      SetChat('off', 3);
      SetChat('off', 4);
    end;

    procedure randomcompass;
    begin
      case Random(6) of
        0: makecompass('N');
        1: makecompass('S');
        2: makecompass('E');
        3: makecompass('W');
        4: HighestAngle;
      end;
    end;

    function CheckForEnt: Boolean;
    var
      TPA: TPointArray;
    begin
      if (not (LoggedIn)) then Exit;
      if (FindColorTolerance(x, y, 55255, 6, 6, 117, 27, 10)) or
        (FindColorTolerance(x, y, 976101, 6, 6, 117, 27, 10)) then
      begin
        if (not (IsUpText('op'))) and (not (IsUpText('own'))) then Exit;
        wait(1);
        FindColorsSpiralTolerance(x, y, TPA, 55255, 6, 6, 117, 27, 10);
        if (GetArrayLength(TPA) - 1 > 4) then
        begin
          Result := true;
          Writeln('We found an ent!! Trying to avoid now..');
          RunAwayDirection('W');
          Wait(13500 + Random(2500));
          RunBack;
          Mouse(648, 84, 3, 3, true);
          Flag;
          FTWait(60 + Random(5));
          begin
            Writeln('Whew! We avoided the ent.. Carrying on with chopping');
            Exit;
          end;
        end;
        Result := false;
      end;
    end;

    procedure RandomButton;
    begin
      case Random(3) of
        0:
          begin
            KeyDown(VK_Left);
            wait(Random(600) + 500);
            KeyUp(VK_Left);
          end;
        1:
          begin
            KeyDown(VK_Right);
            wait(Random(600) + 500);
            KeyUp(VK_Right);
          end;
        2:
          begin
            KeyDown(VK_Up);
            wait(Random(600) + 500);
            KeyUp(VK_Up);
          end;
      end;
    end;

    procedure MyAntiBan;
    var
      DBanMe: Integer;
    begin
      DBanMe := Random(12);
      case DBanMe of
        0: PickUpMouse;
        1: GameTab(1 + Random(33));
        2: DoEmote(1 + Random(75));
        3: RandomRclick;
        4: randomcompass;
        5: RandomButton
          6: AlmostLogout;
        7: ChooseOption('cancel');
        8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        9:
          begin
            HoverSkill('woodcutting', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            ChooseOption('Cancel');
            MMouse(Random(MSY1), Random(MSX1), 0, 0);
          end;
        10:
          begin
            GameTab(1 + Random(13));
            wait(1000 + Random(600));
            gametab(4);
            ChooseOption('Cancel');
          end;
        11:
          begin
            HoverSkill('random', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
          end;
      end;
    end;

    procedure WillowChopper;
    begin
      Writeln('FOUND~WILLOWS~CHOPPING~');
      repeat
        begin
          if findobj(x, y, 'willo', WillowColor, 10) or
            findObj(x, y, 'illow', WillowColor1, 10) or
            findObj(x, y, 'illow', WillowColor2, 10) then
          begin
            FindEnt(x, y, true);
            CheckForEnt;
            FindRandoms;
            MMouse(x, y, 2, 2);
            Mouse(x, y, 1, 1, true);
            if (IsUpText('illow')) then
            begin
              FindEnt(x, y, true);
              CheckForEnt;
              GetMousePos(x, y);
              Mouse(x, y, 2, 2, true);
              flag;
              Wait(600 + Random(1000));
              if FindFastRandoms then RunAwayDirection('N');
              FindNormalRandoms;
              MyAntiBan;
            end;
          end;
        end;
      until (invfull);
    end;

    procedure OakChopper;
    begin
      Writeln('Find~OAK~CHOPPING~');
      repeat
        begin
          if findobj(x, y, 'oa', oakcolor, 10) or
            findObj(x, y, 'ak', oakcolor1, 10) or
            findObj(x, y, 'oa', oakcolor2, 10) then
          begin
            FindEnt(x, y, true);
            CheckForEnt;
            FindRandoms;
            Mouse(x, y, 1, 1, true);
            if (IsUpText('ak')) then
            begin
              FindEnt(x, y, true);
              CheckForEnt;
              GetMousePos(x, y);
              Mouse(x, y, 2, 2, true);
              flag;
              Wait(600 + Random(1000));
              if FindFastRandoms then RunAwayDirection('N');
              FindNormalRandoms;
              MyAntiBan;
            end;
          end;
        end;
      until (invfull);
    end;

    procedure RegularTreeChopper;
    begin
      Writeln('FOUND~TREE~CHOPPING~');
      repeat
        begin
          if findobj(x, y, 'ree', RegTree, 10) or
            findObj(x, y, 'ree', RegTree1, 10) or
            findObj(x, y, 'ree', RegTree2, 10) then
          begin
            FindEnt(x, y, true);
            CheckForEnt;
            FindRandoms;
            MMouse(x, y, 2, 2);
            Mouse(x, y, 1, 1, true);
            if (IsUpText('ree')) then
            begin
              FindEnt(x, y, true);
              CheckForEnt;
              GetMousePos(x, y);
              Mouse(x, y, 2, 2, true);
              flag;
              Wait(600 + Random(1000));
              if FindFastRandoms then RunAwayDirection('N');
              FindNormalRandoms;
              MyAntiBan;
            end;
          end;
        end;
      until (invfull);
    end;

    procedure DeadTreesChopper;
    begin
      Writeln('FOUND~Dead~TREES~CHOPPING~');
      repeat
        begin
          if findobj(x, y, 'ree', DeadTree, 10) or
            findObj(x, y, 'ree', DeadTree1, 10) or
            findObj(x, y, 'ree', DeadTree2, 10) then
          begin
            FindEnt(x, y, true);
            CheckForEnt;
            FindRandoms;
            MMouse(x, y, 2, 2);
            Mouse(x, y, 1, 1, true);
            if (IsUpText('ree')) then
            begin
              FindEnt(x, y, true);
              CheckForEnt;
              GetMousePos(x, y);
              Mouse(x, y, 2, 2, true);
              flag;
              Wait(600 + Random(1000));
              if FindFastRandoms then RunAwayDirection('N');
              FindNormalRandoms;
              MyAntiBan;
            end;
          end;
        end;
      until (invfull);
    end;

    procedure RsDestroyer;
    begin
      Writeln('cutting any trees');
      repeat
        begin
          if findobj(x, y, 'illo', WillowColor, 10) or
            findObj(x, y, 'ak', oakcolor, 10) or
            findObj(x, y, 'ree', RegTree, 10) or
            findObj(x, y, 'ead', DeadTree, 10) then
          begin
            FindEnt(x, y, true);
            CheckForEnt;
            FindRandoms;
            MMouse(x, y, 2, 2);
            Mouse(x, y, 1, 1, true);
            FindEnt(x, y, true);
            CheckForEnt;
            GetMousePos(x, y);
            Mouse(x, y, 2, 2, true);
            flag;
            Wait(600 + Random(1000));
            if FindFastRandoms then RunAwayDirection('N');
            FindNormalRandoms;
            MyAntiBan;
            RandomCompass;
          end;
        end;
      until (invfull);
    end;

    procedure PowerDrop;
    var
      i: Integer;
    begin
      if not (LoggedIn) then Exit;
      GameTab(4);
      for i := 2 to 28 do
      begin
        DropItem(i);
      end;
      begin
        FindRandoms;
        Report;
        MyAntiBan;
      end;
    end;

    procedure SetPlayer;
    begin
      dochats;
      LowestAngle;
      SetRun(true);
      MakeCompass('N');
      HighestAngle;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      report;
      if LoggedIn then LogOut;
      LoginPlayer;
      SetPlayer;
      Dropper := 0;
      TreesChopped := 0;
      repeat
        case LowerCase(Players[CurrentPlayer].Strings[1]) of
          'tree': RegularTreeChopper;
          'oak': OakChopper;
          'willow': WillowChopper;
          'dead': DeadTreesChopper;
          'all': RsDestroyer;
        end;
        if (InvFull) then TreesChopped := TreesChopped + 27;
        report;
        begin
          if PowerChop then PowerDrop;
          Dropper := Dropper + 1;
          report;
        end;
        if not LoggedIn then
        begin
          NextPlayer(false);
          SetPlayer;
        end;
      until (false);
    end.

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

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

    Default

    ThankS ROGER! ! ! ! ! =p
    and people whoever used it please POST PROGGIES!!!!!! rawr lol

  12. #12
    Join Date
    Sep 2007
    Location
    England
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    p1nky very good start and i suppose its very good. I like the idea of the rsdestoryer . Other than that you may want to only keep a line through the procedures not 6 or the script will lag a little. Good Job !!! If you read more tuts than i'm sure you can earn a good reputation. Carry on the good work

    #SS

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

    Default

    dude thanks very much TBH i think my weakness are the standards because i never heard of it but, when i posted for a srl member app i found out what it is and stuff thanks btw if you try it out POST PROGGIES thank you

    ~p1nky~

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

    Default

    Nice,Gudddd script

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

    Default

    thanks =X

  16. #16
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Nice.

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

    Default

    thank you so no-one used it YET? btw OAK and Dead tree dont work properly go ahead check and change colors and try and let me know!

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

    Default

    the anywhere powerchopper worked nice...I made the mistake off not reading the script all the way through and lost some stuff when the script cleared the inventory.The only thing I would like better is if you could fill the first row of your inventory up with axes, so that when one breaks, it goes onto the next. That was the biggest problem when I would let it run. I would come back and find that it has logged out bc of a broken axe. But other than that, it worked great. (just a note...I had to play with the times to get a better outcome. Still working on that but I have it better than when I started)

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

    Default

    ok thanks for the report yeah the ent finder isnt that great but surely works for me =S but yes it may break=) sorry and i can change it but not many people do that thing u do fill it with axes the 1st row =)

    thanks

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

    Default

    It works nice keep up the goodwork mate. Now if only i could stop having those txt errors.

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

    Default

    k thanks =S no1 posted proggies yet? =.=

  22. #22
    Join Date
    Oct 2006
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Looks good, keep practicing, you'll get better and better, Who knows, my next army might be woodcutters, right now they are miners, but I will definatly use your script when I get the chance

    -Sebo

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

    Default

    ok thanks yeah its not very good i havent trying to update im working with clay and making a chicken killer =) thanks tho bro


    ILL UPDATE THIS SCRIPT =)

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

    Default

    V 1.0 IS OUT!

    SINCE SOME PEOPLE REQUESTED BETTER CHOPPING PROCEDURE I ADDED IT!

    ~ HAVENT CHANGE SCRIPT MUCH SO STILL LOOKS A BIT NOOBISH~

    NEXT UPDATE MAY COME IF PEOPLE USE THIS SCRIPT AND POST PROGGIES!

    V1.0 GOT BETTER ENT FINDER THANKS FROZE/BETTER WCING PROCEDURE AND BETTER TREE FINDER!!!!!!!!!

    IVE TOOK DEAD TREE OUT WONT WORK PROPERLY =Z
    AND NOT SURE IF OAKS WORK NEVER TRIED!

    thanks

    ~p1nky~ remember to post PROGGIES!

  25. #25
    Join Date
    Nov 2007
    Location
    Michigan
    Posts
    129
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Works good, but it clicks the trees ridiculously, like one click every 1-3 seconds.

Page 1 of 45 12311 ... LastLast

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. P1nky's Teleporter!
    By P1nky in forum RS3 Outdated / Broken Scripts
    Replies: 111
    Last Post: 06-12-2009, 05:02 PM
  3. Need help with powerchopper
    By pallooo in forum OSR Help
    Replies: 13
    Last Post: 10-29-2007, 10:48 PM
  4. Need help with my powerchopper
    By pallooo in forum OSR Help
    Replies: 26
    Last Post: 10-13-2007, 12:57 AM
  5. 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
  •