Page 1 of 4 123 ... LastLast
Results 1 to 25 of 90

Thread: P1nky's IvyChopper!

  1. #1
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default P1nky's IvyChopper!



    Simba Code:
    { =============================== }
    {               P1nky's IvyChopper!                                 }
    { =============================== }
    {
    Step 1: Have a Hatchet(axe).
    Step 2: Have your Character beside Ivy.
    Step 3: Start the script.
    Step 4: Watch the script run for a good Minute.
    Step 5: Enjoy The Script. Also, Please post PROGGIES keep the Thread Alive <3.
    • Fastest Woodcutting EXP.
    • Universal Ivy Detection.
    • SRL Stats.


    All I ask for in return is some Rep+ and a small If you can, Thank You.


    Total Downloads:


  2. #2
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Proggies:

    Worked For 1 Hours, 17 Minutes and 46 Seconds
    Experience Gained 86450
    Sleeped 0
    WoodCutting level 90
    Quote Originally Posted by kris View Post
    proggie

    ||===========================||
    || P1nkys IvyChopper ||
    ||===========================||
    || May 28th, 2012 ||
    ||===========================||
    Worked For 6 Hours, 1 Minutes and 7 Seconds
    Experience Gained 399998
    Sleeped 0
    WoodCutting level 89
    ||===========================||
    ||==== By P1nky ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE IVYS=====||
    ||===========================||
    Originally Posted by squish View Post
    Worked For 1 Hours, 19 Minutes and 3 Seconds
    Experience Gained 75145
    Sleeped 0
    WoodCutting level 97


  3. #3
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    421 Post(s)

    Default

    How dare you make an ivy chopper! I am prince!! Haha gl with it will try tonight if i can

  4. #4
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Quote Originally Posted by xtrapsp View Post
    How dare you make an ivy chopper! I am prince!! Haha gl with it will try tonight if i can
    Haha it's quite simple It was also add-on to my PowerChopper but my title wouldn't go with this script , so had to snip it out.

    Although, Thank You!


  5. #5
    Join Date
    Dec 2011
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Nice man, keep up the good work!

  6. #6
    Join Date
    May 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    YEEEEESSSSSSS thankkkkyouuu a good one i will post proggie in an hour or two

  7. #7
    Join Date
    May 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Error: Out Of Range at line 46
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]
    never mind fixed :3
    Last edited by squish; 05-14-2012 at 09:34 PM.

  8. #8
    Join Date
    May 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it work with adrounage ivy?

  9. #9
    Join Date
    May 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Worked For 1 Hours, 19 Minutes and 3 Seconds
    Experience Gained 75145
    Sleeped 0
    WoodCutting level 97

  10. #10
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Quote Originally Posted by squish View Post
    does it work with adrounage ivy?
    Yes it's universal.
    Quote Originally Posted by squish View Post
    Worked For 1 Hours, 19 Minutes and 3 Seconds
    Experience Gained 75145
    Sleeped 0
    WoodCutting level 97
    Thank you .


  11. #11
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,406
    Mentioned
    84 Post(s)
    Quoted
    854 Post(s)

    Default

    Bro remove the congratulations thing.
    It mistook it for the Sof ticket...
    Ended up spamming the chat by like 5 lines :L

  12. #12
    Join Date
    May 2012
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i start it up at ardy ivys and it just stansd there.
    it says 'success finding ivy' but doesnt click on it

  13. #13
    Join Date
    Dec 2011
    Posts
    505
    Mentioned
    0 Post(s)
    Quoted
    26 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Bro remove the congratulations thing.
    It mistook it for the Sof ticket...
    Ended up spamming the chat by like 5 lines :L
    I agree the Grats stuff... remove it from the script

  14. #14
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Quote Originally Posted by Sin View Post
    Bro remove the congratulations thing.
    It mistook it for the Sof ticket...
    Ended up spamming the chat by like 5 lines :L
    Thanks for feedback, I remember this happened to me as well. I shall remove it on next update.

    For people who don't know how to, here you go:

    Simba Code:
    program P1nkys_IvyChopper;
    {$DEFINE SMART}
    {$i srl\srl.simba}
    {$i SRL/SRL/misc/paintsmart.simba}

    {===================================================}
    {               P1nky's IvyChopper!                 }
    {===================================================}
    {
    Step 1: Have a Hatchet(axe).
    Step 2: Have your Character beside Ivy.
    Step 3: Start the script.
    Step 4: Watch the script run for a good Minute.
    Step 5: Enjoy The Script. Also, Please post PROGGIES keep the Thread Alive <3.

    {===================================================}

    //\\ Make Sure To Progress Reports on The Thread! //\\
    {===================================================}

    const
    {===================================================}
      TakeBreaks = False;   // Take Breaks ?(Less Random Chances)
      AntiBan = False;   // Antiban will make the character more active.
      DoYouLoveSRL = True;
      SRLStats_Username = '';
      SRLStats_Password = '';
    {===================================================}
    {########     ##   ##    ## ##    ## ##    ##
     ##     ##  ####   ###   ## ##   ##   ##  ##
     ##     ##    ##   ####  ## ##  ##     ####
     ########     ##   ## ## ## #####       ##
     ##           ##   ##  #### ##  ##      ##
     ##           ##   ##   ### ##   ##     ##
     ##         ###### ##    ## ##    ##    ##}

    {===================================================}

    procedure DeclarePlayerz;
    begin
      HowManyPlayers := 2;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := ''; //Your Runescape username
      Players[0].Pass := ''; //Your Runescape password
      Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.

      Players[1].Name := ''; //Your Runescape username
      Players[1].Pass := ''; //Your Runescape password
      Players[1].Active := True; //Set to true if you want to use this player. Set to False to disable this player.

      end;
    {===================================================}
    {      THANK YOU FOR USING P1NKY'S POWERCHOPPER     }
    {===================================================}
    {                    Since 2007                     }
    {===================================================}
    {                Do Not Touch Below.                }
    {===================================================}














    var
      PowerChopper : TForm;
      WhatTree : TComboBox;
    CompassStay, WCIvy,Answer,WCEXP, Experience, DTM4, FailFind, e, PLANBB, Burned, DTM3, SPOTCDTM, WCLVL, Loads1, Debugged, sleeper, Breaktime, Break, x, y, TreesChopped, Dropper, level, axe, Chopped, NextBreak, DTMSPOT, DTM1, DTM2: integer;
      Chop: TComboBox;
      Version: string;
      LastestVersion: Boolean;


    const
    ScriptVersion ='5.2';
    UseAutoChecker = True;

    procedure FindRandoms;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Status('Looking For Randoms');
      FindNormalRandoms;
    end;


    procedure MyAntiBan;
    var
      DBanMe: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Status('Performing P1nkys AntiBan');
      DBanMe := Random(12);
      case DBanMe of
        0: PickUpMouse;
        1: GameTab(1 + Random(15));
        2: DoEmote(1 + Random(15));
        3: RandomRclick;
        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');
            setangle(1);
          end;
        11:
          begin
            HoverSkill('random', false);
            sleepandmovemouse(200 + Random(100));
            ChooseOption('Cancel');
            setangle(1);
          end;
      end;
    end;


    procedure ReportScreen(TP: TStringArray; Placement: TPoint; Colour: integer);
    var
      mx, my, Pic, I, B, H, TPH, Numb: Integer;
      TTP: TPointArray;
      Canvas: TCanvas;
    begin
      SmartSetDebug(True);
      GetClientDimensions(mx, my);
      Pic := BitmapFromString(mx, my, '');
      TPH := High(TP);
      for I := 0 to TPH do
      begin
        TTP := LoadTextTPA(TP[i], SmallChars, H);
        for B := 0 to High(TTP) do
        begin
          Numb := ((I + 1) * 13);
          FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1, 8388736);
          FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
        end;
      end;
      Canvas := TCANVAS.Create;
      Canvas.Handle := SmartGetDebugDC;
      DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
      FreeBitmap(Pic);
    end;

    procedure ReportSmart;
    begin
      ReportScreen(['P1nkys IvyChopper', '', 'Worked For ' + TimeRunning, '', 'Experience Gained ' + IntToStr(Answer), ''], Point(350, 223), 255);
    end;

    procedure ActReport(Activity: string);
    begin
    end;

    Procedure ExpGain;
    begin
      WCIvy := getXP('Woodcutting');
      Answer := (WCIvy-WCEXP);
      stats_IncVariable('Total EXP Gained', Answer);
    end;

    procedure Report;
    var
     ExpCheck, ExpIvy, WC: Integer;
    begin
      cleardebug;
      ReportSmart;
      Writeln('||===========================||');
      Writeln('||     P1nkys IvyChopper     ||');
      Writeln('||===========================||');
      Writeln('||    ' + TheDate(Date_Formal) + '    ||');
      Writeln('||===========================||');
      Writeln(' Worked For ' + TimeRunning);
      Writeln(' Experience Gained ' + IntToStr(Answer));
      Writeln(' Sleeped ' + IntToStr(Sleeper));
      Writeln(' WoodCutting level ' + IntToStr(WCLVL));
      Writeln('||===========================||');
      Writeln('||====     By P1nky      ====||');
      Writeln('||===========================||');
      Writeln('||===========================||');
      Writeln('||=====DESTROY THE IVYS=====||');
      Writeln('||===========================||');
      begin
        Stats_Commit;
        Disguise('P1nky Ivy ' + TimeRunning);
        ActReport('Break in Approx:');
        Debugged := Debugged + 1;
         ExpCheck := ExpCheck + 1;
         if ExpCheck > random(10) then
         begin
         Writeln('Checking if everything is okay.');
         setangle(0);
         ExpGain;
         ExpCheck :=0;
         end;
        if TakeBreaks then
          if Debugged > 5 then
          begin
          //  Writeln(IntToStr(Loads - Loads1) + ' Loads Left Until Sleep.');
            Debugged := 0;
          end;
      end;
    end;


    procedure GoodNight;
    var
      l, s, Time: integer;
    begin
      l := RandomRange(5, 7);
      s := l;
      Status('Sleeping');
      MarkTime(Time);
      Sleeper := Sleeper + 1;
      repeat
        Disguise('Sleeping For ' + IntToStr(l) + ' minutes');
        Writeln('Break Time: ' + IntToStr(l) + ' minutes left until Login.');
        Wait(1000 * 60 * 1);
        l := l - 1;
      until (TimeFromMark(Time) > 1000 * 60 * s);
      if not (LoggedIn) then
        NextPlayer(true);
      LoginPlayer;
    end;


    function IvyColor(Tolerance : Integer): Boolean;
    var
      CTS, I, timer: Integer;
      TPA: TPointArray;
      ATPA: Array of TPointArray;
    begin
    repeat
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
        SetColorSpeed2Modifiers(0.09, 1.48);
      FindColorsSpiralTolerance(MSCX, MSCY, TPA, 4817765, 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(IsUpTextMultiCustom(['hop'])) then
        begin
          mouse(x,y,0,0,false);
          if waitOption('hop',1000) then
            result := true;
          wait(100);
          exit
         // while Ismoving do wait(100);
       //   If (result) then exit;
        end;
      end;
      Until(Result);
    end;

    Function LocateIvys : string;
    begin
    ClickNorth(0);
    wait(1500 + Random(1000));
    If (FindObjCustom(x,y,['Ivy','vy','Ivy'], [4949351,4553567], 3)) Then Result := 'north';
    MakeCompass('W');
    wait(1500 + Random(1000));
    If (FindObjCustom(x,y,['Ivy','vy','Ivy'], [4949351,4553567], 3)) Then    Result := 'west';
    MakeCompass('E');
    wait(1500 + Random(1000));
    If (FindObjCustom(x,y,['Ivy','vy','Ivy'], [4949351,4553567], 3)) Then    Result := 'east';
    MakeCompass('S');
    wait(1500 + Random(1000));
    If (FindObjCustom(x,y,['Ivy','vy','Ivy'], [4949351,4553567], 3)) Then    Result := 'south';
    Writeln(Result); {
    If (Result := 'south') then
    case (Result) of
    'south':
    begin
    CompassStay := MakeCompass('S');
    end;
    'north':
    If ('north') then
    begin
    CompassStay = MakeCompass('N');
    end;
    'east':
    If ('east') then
    begin
    CompassStay = MakeCompass('E');
    end;
    'west':
    If ('west') then
    begin
    CompassStay = MakeCompass('W');
       end;                   }

    end;


    Procedure Ivys;
    var
      TreeColors: array [0..3] of integer;
      TreeTPA: TPointArray;
      RandomOption, Chill, a, I: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      SetAngle(0);
      repeat
    //If (FindObjCustom(x,y,['Ivy','vy','Ivy'], [4949351,4553567], 3)) Then
      if IvyColor(2) then
          Report;
        FindRandoms;
        Chopped := Chopped + 1;
        wait(1675 + random(654)) Fflag(0);
        writeln('Success Finding Ivy');
        FindNormalRandoms;
        if AntiBan then
        begin
          MyAntiBan;
        end;
        begin
          FindRandoms;
          Wait(13500 + Random(5000));
          if Chopped = 5 then
          begin
            Writeln('Cant find any Ivy - checking every angle!');
           Setangle(0);
                 KeyDown(VK_Down);
       wait(Random(1000) + 500);
       KeyUp(VK_Down);
       Chopped := 0;
       SetAngle(0);
          end;
        end;
      until (false);
      Experience := Experience + 1809;
     end;


    procedure PinkyIvyChopper;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
        begin
        Case Lowercase(LocateIvys) of
          'west':  MakeCompass('w');
          'east':  MakeCompass('e');
          'south': MakeCompass('s');
          'north': MakeCompass('n');
          end;
        end;
        begin
          Ivys;
        end;
        report;
      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.');
        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;
      begin
        Disguise('P1nkys IvyChopper!');
        ClearDebug;
        ClearReport;
        Smart_Server := 17;
        Smart_Members := false;
        Smart_Signed := true;
        Smart_SuperDetail := false;
        if (SRLStats_Username = '') then
        SetupSRLStats(1081, 'Anonymous', 'anon1337')
        else
        SetupSRLStats(1081, SRLStats_Username, SRLStats_Password);
     end;
        SetupSRL;
        declareplayerz;
        LoginPlayer;
        Dropper := 0;
        TreesChopped := 0;
        WCLVL := GetSkillInfo('Woodcutting', true);
        WCEXP := getXP('Woodcutting');
        SetAngle(0);
        repeat
        PinkyIvyChopper;
        until (false);
    end.


  15. #15
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,406
    Mentioned
    84 Post(s)
    Quoted
    854 Post(s)

    Default

    Other than that, it's working like a dream

  16. #16
    Join Date
    Apr 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by fonxfon View Post
    i start it up at ardy ivys and it just stansd there.
    it says 'success finding ivy' but doesnt click on it
    I have the exact same problem.

  17. #17
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ||===========================||
    || P1nkys IvyChopper ||
    ||===========================||
    || May 18th, 2012 ||
    ||===========================||
    Worked For 31 Minutes and 3 Seconds
    Experience Gained 23275
    Sleeped 0
    WoodCutting level 75
    ||===========================||
    ||==== By P1nky ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE IVYS=====||
    ||===========================||

  18. #18
    Join Date
    May 2012
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

    Default

    thx a lot, trying it now.
    55k till 97 wc.
    ill post proggy's once i have them.
    :3

  19. #19
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Quote Originally Posted by FarmerKyle View Post
    I have the exact same problem.
    Where is this in Ardy?

    Please post a picture.


  20. #20
    Join Date
    Dec 2011
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    seems to switch the ivy quite frequently, makes it detectable since it switches before the ivy is depleted, sometimes before any ivy is even chopped

  21. #21
    Join Date
    Feb 2012
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    proggie


  22. #22
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Quote Originally Posted by kris View Post
    proggie

    Thank You.


  23. #23
    Join Date
    May 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (47:22): Unknown identifier 'westyboy56' at line 46
    Compiling failed.

    how do i fix this, yeah sorry if i don't know how to im new.

  24. #24
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,922
    Mentioned
    25 Post(s)
    Quoted
    233 Post(s)

    Default

    Post that line here.


  25. #25
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Thumbs up Good Job!!

    Very VERY well done, the only one that works for me so far (the only script at all)
    I will make an edit to this post if a bug pops up, but i don't expect one to.

Page 1 of 4 123 ... LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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