Page 42 of 45 FirstFirst ... 324041424344 ... LastLast
Results 1,026 to 1,050 of 1103

Thread: P1nky's PowerChopper!

  1. #1026
    Join Date
    Mar 2012
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    writeln('you HAVE JUST LEVELED WOODCUTTING!');
    level := level + 1;
    end;
    end;

    const
    ScriptVersion ='5.2';
    UseAutoChecker = True;

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

    procedure RandomButton;
    begin
    if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
    NextPlayer(false);
    Grats;
    case Random(3) of





    [Error] (130:13): Unknown identifier 'FindLamp' at line 129
    Compiling failed.

    Can someone please help??

  2. #1027
    Join Date
    Mar 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (130:13): Unknown identifier 'FindLamp' at line 129
    Compiling failed.



    How Can i fix this? I'm using P1nky PowerChopper B[3].simba

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

    Default

    I will release a update by tomorrow Mates.

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

    Default

    I removed the find random procedure and i am using the script without it but it sometimes fails to find a new tree, usually after it drops the load, i get the invalid function value error when it tries to rotate the camera...any help?

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

    Default

    the mouse will hover over the willow but it takes like 20 seconds to click it

  6. #1031
    Join Date
    Mar 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    still not fixed D:

  7. #1032
    Join Date
    Apr 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (130:13): Unknown identifier 'FindLamp' at line 129
    Compiling failed.

  8. #1033
    Join Date
    Feb 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it solve random events

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

    Default

    Quick Fix:
    Simba Code:
    program P1nkys_PowerChopper_V5;
    {$DEFINE SMART}
    //$define srl5}
    {$i srl\srl.simba}
    //$i SRL\SRL\Misc\Stats.simba}
    //$loadlib sps}
    //$i sps/sps.simba}
    {$i SRL/SRL/misc/paintsmart.simba}

    {===================================================}
    { P1nky' PowerChopper Since 11/12/07 }
    {===================================================}
    {
    Step 1: Have a Hatchet(axe) either on FIRST SLOT or WIELDED.
    Step 2: Surrond your Character around the Trees that you have chosen.
    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 ?(recommended only for PowerChopper)(Less Random Chances)
      DropType = 'fast';   // Do not Change.
      Loads = 18;         // When to Break, so if "50" than every 50 load, Break feature will kick in.
                         // Note: Have 'TakeBreaks' set to True in order to Sleep(Break).
      AntiBan = False;  // Perform EXTRA AntiBan ? If True, may take couple more seconds to find Trees.
    {===================================================}
      OakColor = 3096133;      //DO NOT CHANGE UNLESS TROUBLE FINDING OAK
      WillowColor = 2374714;  //DO NOT CHANGE UNLESS TROUBLE FINDING WILLOW
      RegTreeColor = 3690597;//DO NOT CHANGE UNLESS TROUBLE FINDING TREE
    {===================================================}
      DoYouLoveSRL = True;
      SRLStats_Username = '';
      SRLStats_Password = '';
    {===================================================}
    {########     ##   ##    ## ##    ## ##    ##
     ##     ##  ####   ###   ## ##   ##   ##  ##
     ##     ##    ##   ####  ## ##  ##     ####
     ########     ##   ## ## ## #####       ##
     ##           ##   ##  #### ##  ##      ##
     ##           ##   ##   ### ##   ##     ##
     ##         ###### ##    ## ##    ##    ##}

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

    var
      PowerChopper : TForm;
      WhatTree : TComboBox;

    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[0].Strings[0] := 'Willows';  //'Willows' or 'Trees' or 'Oaks'

      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.
      Players[1].Strings[1] := 'Oak';  //'Willows' or 'Trees' or 'Oaks'

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

    var
      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;


    procedure Grats;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        exit;
      if (FindBlackChatMessage('Congratulations')) or (FindBlackChatMessage('you just advance')) or InChat('Congratulations') or InChat('just advance') or InChat('congratulations,') then
      begin
        Writeln('Gained a levled!!!');
        begin
          case Random(18) of
            0: TypeSend('woot finnally LEVELED!!');
            1: TypeSend('muwahah lvled');
            2: TypeSend('leveled yay me!');
            3: TypeSend('woot got wcing lvl :)');
            4: TypeSend('omg.. i didnt even know i just leveld');
            5: TypeSend('yay me');
            6: TypeSend('w00t grats');
            7: TypeSend('Dang!');
            8: TypeSend('fireworks@!');
            9: TypeSend('yay leveld!');
            10: TypeSend('woot didnt notice since lagged lol');
            11: Typesend('good i just leveld wc');
            12: TypeSend('yay!');
            13: TypeSend('Hleveled');
            14: TypeSend('.lvld just now guys grats me jk');
            15: TypeSend('lol');
            16: TypeSend('lol...');
            17: TypeSend('fireworkz');
          end;
        end;
        writeln('you HAVE JUST LEVELED WOODCUTTING!');
        level := level + 1;
      end;
    end;

    const
    ScriptVersion ='5.2';
    UseAutoChecker = True;

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

    procedure RandomButton;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Grats;
      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(200) + 500);
            KeyUp(VK_Up);
          end;
      end;
    end;

    procedure randomcompass;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Grats;
      case Random(6) of
        0: makecompass('N');
        1: makecompass('S');
        2: makecompass('E');
        3: makecompass('W');
        4: setangle(1);
      end;
    end;

    procedure MyAntiBan;
    var
      DBanMe: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Grats;
      Status('Performing P1nkys AntiBan');
      DBanMe := Random(12);
      case DBanMe of
        0: PickUpMouse;
        1: GameTab(1 + Random(15));
        2: DoEmote(1 + Random(15));
        3: RandomRclick;
        5: RandomButton;
        7: ChooseOption('cancel');
        8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        9:
          begin
            HoverSkill('woodcutting', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            ChooseOption('Cancel');
            RandomButton;
            MMouse(Random(MSY1), Random(MSX1), 0, 0);
          end;
        10:
          begin
            GameTab(1 + Random(13));
            wait(1000 + Random(600));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
            setangle(1);
          end;
        11:
          begin
            HoverSkill('random', false);
            sleepandmovemouse(200 + Random(100));
            RandomButton;
            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 PowerChopper', '', 'Worked For ' + TimeRunning, '', 'Chopped ' + IntToStr(TreesChopped), '', 'Dropped(by loads) ' + IntToStr(Dropper)], Point(350, 223), 255);
    end;

    procedure BurnSmartReport;
    begin
    { ReportScreen(['P1nkys Chopper & Burner'], Point(5, 310), 255);
     ReportScreen (['Worked For ' + TimeRunning],Point(165, 310), 255);
     ReportScreen (['Chopped ' + IntToStr(TreesChopped)],Point(320, 310), 255);
     ReportScreen (['Burned ' + IntToStr(Burned)],Point(400, 310), 255);  }

     ReportScreen(['P1nkys Chopper & Burner',
    '',
    'Worked For ' +TimeRunning,
    '',
     'Chopped ' +IntToStr(TreesChopped),
    '',
     'Burned ' + IntToStr(Burned)],
      Point(350,223),255);
    end;

    procedure ActReport(Activity: string);
    begin
    end;

    procedure Report;
    var
      Answer, WC: Integer;
    begin
      Grats;
    //  WC := GetSkillInfo('Woodcutting', true);
      Answer := (WCLVL - WC);
      cleardebug;
      SRLRandomsReport;
      ReportSmart;
      Writeln('||===========================||');
      Writeln('||      P1nkys Draynor       ||');
      Writeln('||===========================||');
      Writeln('||    ' + TheDate(Date_Formal) + '    ||');
      Writeln('||===========================||');
      Writeln(' Worked For ' + TimeRunning);
      Writeln(' Chopped ' + IntToStr(TreesChopped));
      Writeln(' Dropped(by loads) ' + IntToStr(Dropper));
      Writeln(' Broken Axes ' + IntToStr(Axe));
      Writeln(' Leveled ' + IntToStr(Answer));
      Writeln(' Sleeped ' + IntToStr(Sleeper));
      Writeln(' WoodCutting level ' + IntToStr(WCLVL));
      Writeln('||===========================||');
      Writeln('||====     By P1nky      ====||');
      Writeln('||===========================||');
      Writeln('||===========================||');
      Writeln('||=====DESTROY THE TREES=====||');
      Writeln('||===========================||');
      begin
        Stats_Commit;
        Disguise('P1nky PowerChopper ' + TimeRunning);
        ActReport('Break in Approx:');
        Debugged := Debugged + 1;
        if TakeBreaks then
          if Debugged > 5 then
          begin
            Writeln(IntToStr(Loads - Loads1) + ' Loads Left Until Sleep.');
            Debugged := 0;
          end;
      end;
      case LowerCase(Players[CurrentPlayer].Strings[1]) of
        'Oaks', 'oaks', 'Oak', 'oak': Writeln('Chopping Oaks');
        'Willows', 'Willow', 'willows', 'willows': Writeln('Chopping Willows');
        'Tree', 'tree', 'Trees', 'trees': Writeln('Chopping Regular Trees');
      end;
    end;

    procedure FireReport;
    var
      Answer, WC: Integer;
    begin
      Grats;
      cleardebug;
      SRLRandomsReport;
      BurnSmartReport;
      //PrintOnSmart([''],Point(45, 310), 255);
      Writeln('||===========================||');
      Writeln('||     P1nkys FireChopper    ||');
      Writeln('||===========================||');
      Writeln('||    ' + TheDate(Date_Formal) + '    ||');
      Writeln('||===========================||');
      Writeln(' Worked For ' + TimeRunning);
      Writeln(' Chopped ' + IntToStr(TreesChopped));
      Writeln(' Burned ' + IntToStr(Burned) + ' logs ');
      Writeln('||===========================||');
      Writeln('||===========================||');
      Writeln('||===========================||');
      begin
     Stats_Commit;
      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 FindWillows: Boolean;
    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);
      RandomButton;
      Setangle(0);
      repeat
       // if FindObj(x, y, 'Chop', 2700598, 1) or FindObj(x, y, 'down', 1910310, 1) or FindObj(x, y, 'Willow', 3096126, 20) then
    If (FindObjCustom(x,y,['illow','Will','Willow'], [2963770,2174251,1713442], 3)) Then
          Report;
        FindRandoms;
        MMouse(x, y, 0, 0);
        if WaitupText('Chop down', 545) then
        begin
          Mouse(x, y, 0, 0, true);
        end;
        Chopped := Chopped + 1;
        wait(1675 + random(654)) Fflag(0);
        writeln('Success Finding Willow');
        FindNormalRandoms;
        if AntiBan then
        begin
          MyAntiBan;
          RandomButton;
        end;
        begin
          FindRandoms;
          Grats;
          if Chopped = 5 then
          begin
            Writeln('Cant find any Willows - checking every angle!');
            RandomButton;
            RandomCompass;
          end;
        end;
      until (Invfull);
    end;

    function FindOaks: Boolean;
    var
      TreeColors: array [0..3] of integer;
      TreeTPA: TPointArray;
      Chill, a, I: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      { KeyDown(VK_Down);
       wait(Random(300) + 500);
       KeyUp(VK_Down);   }

      repeat
    If (FindObjCustom(x,y,['Oak','ak','Oaks'], [OakColor,1524802,OakColor], 1)) Then
         Report;
        FindRandoms;
        MMouse(x, y, 0, 0);
        if WaitupText('Chop down', 545) then
         ClickMouse2(true);
        Chopped := Chopped + 1;
        wait(3477 + random(1001)) Fflag(0);
        writeln('Success Finding Oak');
        if AntiBan then
        begin
          MyAntiBan;
          RandomButton;
        end;
        begin
          FindRandoms;
          Grats;
          if Chopped = 5 then
          begin
            Writeln('Cant find any Oaks - checking every angle!');
            RandomButton;
          end;
        end;
        if not FindSymbol(x, y, 'fish') then
        begin
        end;
      until (Invfull);
    end;

    procedure RegularTreeBan;
    var
      NoBan: Integer;
    begin
      FindRandoms;
      Grats;
      Noban := Random(18);
      case Move of
        0: MMouse(x, y, (10 + random(350)), (10 + random(200)));
        1: MMouse(x, y, (10 + random(400)), (10 + random(600)));
        2: MMouse(x, y, (10 + random(550)), (10 + random(400)));
        3: MMouse(x, y, (10 + random(500)), (10 + random(400)));
        4: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        5: RandomRclick;
        10: setangle(1)
      end;
    end;

    function FindTrees: Boolean;
    var
      TreeColors: array [0..3] of integer;
      TreeTPA: TPointArray;
      Chill, a, I: Integer;
    begin
      if (not (loggedin)) then
        Exit;
       KeyDown(VK_Down);
       wait(Random(200) + 300);
       KeyUp(VK_Down);
      repeat
    If (FindObjCustom(x,y,['ree','Tre','Tree'], [3622226,3622226,3622226], 3)) Then
        Report;
        FindRandoms;
        MMouse(x, y, 0, 0);
        if WaitupText('Chop down', 545) then
          Mouse(x, y, 0, 0, true);
        Chopped := Chopped + 1;
        wait(1500 + random(1001)) Fflag(0);
        writeln('Success Finding Regular Tree');
        report;
        if AntiBan then
        begin
          RegularTreeBan;
          RandomButton;
        end;
        begin
          FindRandoms;
          Grats;
          if Chopped = 5 then
          begin
            Writeln('Cant find any Regular Trees - checking every angle!');
            RandomButton;
          end;
        end;
        if not FindSymbol(x, y, 'fish') then
        begin
        end;
      until (Invfull);
    end;

    procedure PinkyBAN;
    var
      DBanMe: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      DBanMe := Random(12);
      case DBanMe of
        0: PickUpMouse;
        1: GameTab(1 + Random(33));
        2: DoEmote(1 + Random(75));
        3: RandomRclick;
        5: RandomButton;
        7: ChooseOption('cancel');
        8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        9:
          begin
            HoverSkill('woodcutting', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            ChooseOption('Cancel');
            RandomButton;
            MMouse(Random(MSY1), Random(MSX1), 0, 0);
          end;
        10:
          begin
            GameTab(1 + Random(13));
            wait(1000 + Random(600));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
            setangle(2);
          end;
        11:
          begin
            HoverSkill('random', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
            setangle(2);
          end;
      end;
    end;

    procedure SmartDrop;
    var
      logdtm: integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Writeln('using Dtm (smart way) slower though but more accurate');
      logdtm := DTMFromString('78DA63CC63626078C880029A536D18FE03694' + '620FE0F048C054035EF18D000231209A463816A9E135093015473' + '87809A3222D45413B60B0046720E26');
      gametab(4);
      repeat
        if finddtm(logdtm, x, y, 550, 203, 731, 464) then
        begin
          Mouse(x, y, 3, 3, false);
          begin
            wait(random(400) + 100);
            chooseoption('Drop');
            wait(1200 + random(1000));
           { case LowerCase(Players[CurrentPlayer].Strings[1]) of
              'tree': ReportVars[4] := ReportVars[4] + 28;
              'oak': ReportVars[5] := ReportVars[5] + 28;
              'willow': ReportVars[6] := ReportVars[6] + 28;
              'all': ReportVars[7] := ReportVars[7] + 28;  }

            //end;
          end;
        end;
      until (not (finddtm(logdtm, x, y, 550, 203, 731, 464)));
      freedtm(logdtm);
      begin
        Dropper := Dropper + 1;
        TreesChopped := TreesChopped + 27;
        report;
        FindRandoms;
        Report;
      end;
    end;

    procedure FastDrop;
    var
      i: Integer;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
      Writeln('Using Fast Dropping');
      if not (LoggedIn) then
        Exit;
      GameTab(4);
      for i := 2 to 28 do
      begin
        if ExistsItem(i) then
          DropItem(i);
      end;
      begin
        Dropper := Dropper + 1;
        Loads1 := Loads1 + 1;
        TreesChopped := TreesChopped + 27;
        report;
        FindRandoms;
        Report;
        if TakeBreaks then
          if Loads1 > Loads then
          begin
            writeln('Going to Sleep');
            Logout;
            GoodNight;
            Loads1 := 0;
          end;
      end;
    end;

    procedure PinkyPowerChopper;
    begin
      if not (LoggedIn) or not (Players[CurrentPlayer].Active) then
        NextPlayer(false);
              Case LowerCase(Players[CurrentPlayer].Strings[0]) Of
            'Oaks', 'oaks', 'Oak', 'oak': FindOaks;
            'Willows', 'Willow', 'willows', 'willows': FindWillows;
            'Tree', 'tree', 'Trees', 'trees': FindTrees;
          end;
          if (InvFull) then
          begin
            FastDrop;
            SetAngle(0);
          end;
     { if (invfull) then
      begin
        case (DropType) of
          'Smart': SmartDrop;
          'Fast': FastDrop;
        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('P1nky PowerChopper');
        ClearDebug;
        ClearReport;
        Smart_Server := 17;
        Smart_Members := false;
        Smart_Signed := true;
        Smart_SuperDetail := false;
        if (SRLStats_Username = '') then
        SetupSRLStats(485, 'Anonymous', 'anon1337')
        else
        SetupSRLStats(485, SRLStats_Username, SRLStats_Password);
     end;
        SetupSRL;
        declareplayerz;
        LoginPlayer;
        Dropper := 0;
        TreesChopped := 0;
        WCLVL := GetSkillInfo('Woodcutting', true);
        SetAngle(0);
        repeat
        PinkyPowerChopper;
          if (InvFull) then
          begin
            FastDrop;
          end;
        until (false);
    end.


    Willows working just fine

    Will test tomorrow for rest!

  10. #1035
    Join Date
    Mar 2012
    Posts
    37
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    any chance of getting an ivy cutter?

    I'm sure it can't be too hard?

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

    Default

    Quote Originally Posted by Toilet Paper View Post
    any chance of getting an ivy cutter?

    I'm sure it can't be too hard?
    Chop and drop?

    quick proggie:
    Simba Code:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    March 29th, 2012    ||
    ||===========================||
     Worked For 1 Hours, 3 Minutes and 14 Seconds
     Chopped 540
     Dropped(by loads) 20
     Experience Gained 36180
     Broken Axes 0
     Leveled 65
     Sleeped 0
     WoodCutting level 65
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

  12. #1037
    Join Date
    Mar 2012
    Posts
    25
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does it supports Ivy?

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

    Default

    Quote Originally Posted by GreenGang101 View Post
    Does it supports Ivy?
    No, lend me a p2p account just for few days and i'll add that (also where are Ivy's located)?

  14. #1039
    Join Date
    Mar 2008
    Posts
    200
    Mentioned
    1 Post(s)
    Quoted
    11 Post(s)

    Default

    Heyo, awesome script, been running well. Progs:

    Progress Report:
    ||    April 2nd, 2012    ||
    ||===========================||
     Worked For 1 Hours, 14 Minutes and 36 Seconds
     Chopped 324
     Dropped(by loads) 12
     Experience Gained 21708
     Leveled 69
     Sleeped 0
     WoodCutting level 69
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 3rd, 2012    ||
    ||===========================||
     Worked For 5 Hours, 59 Minutes and 32 Seconds
     Chopped 1674
     Dropped(by loads) 62
     Experience Gained 112158
     Leveled 70
     Sleeped 0
     WoodCutting level 70
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    SRL has given me many 99s now, and many more to come. I hope to enhance the quality of the community here with feedback, progress reports, and testing scripts (and maybe learn a little along the way)

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

    Default

    Quote Originally Posted by Benson View Post
    Heyo, awesome script, been running well. Progs:

    Progress Report:
    ||    April 2nd, 2012    ||
    ||===========================||
     Worked For 1 Hours, 14 Minutes and 36 Seconds
     Chopped 324
     Dropped(by loads) 12
     Experience Gained 21708
     Leveled 69
     Sleeped 0
     WoodCutting level 69
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 3rd, 2012    ||
    ||===========================||
     Worked For 5 Hours, 59 Minutes and 32 Seconds
     Chopped 1674
     Dropped(by loads) 62
     Experience Gained 112158
     Leveled 70
     Sleeped 0
     WoodCutting level 70
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    Looking great! Thank you.

  16. #1041
    Join Date
    Nov 2007
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Could you please add Ivy?

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

    Default

    Simba Code:
    Worked For 3 Hours, 23 Minutes and 57 Seconds
     Experience Gained 205485
    Ivy

  18. #1043
    Join Date
    Mar 2012
    Location
    North Richland Hills, TX
    Posts
    49
    Mentioned
    1 Post(s)
    Quoted
    13 Post(s)

    Default

    Hey P1nky, is there any way you can add an option to destroy Special teak logs, and then select the option All durring the log dropping process? I've tried to do it and it doesn't seem to work, I added the teak trees just fine, but then I ran into the Special teak logs. :S

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

    Default

    Quote Originally Posted by iETHOSi View Post
    Hey P1nky, is there any way you can add an option to destroy Special teak logs, and then select the option All durring the log dropping process? I've tried to do it and it doesn't seem to work, I added the teak trees just fine, but then I ran into the Special teak logs. :S
    Can you lend me your account with a axe and at the location?

  20. #1045
    Join Date
    Mar 2012
    Location
    North Richland Hills, TX
    Posts
    49
    Mentioned
    1 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    Can you lend me your account with a axe and at the location?
    Why do you need my account lol? >_>

    I'm cutting Teaks at Ape Atoll.

  21. #1046
    Join Date
    Mar 2008
    Posts
    200
    Mentioned
    1 Post(s)
    Quoted
    11 Post(s)

    Default

    Some updates: With the new SoF update when you end up getting the certs that give extra spins, I believe they fixed it and SRL now clicks them. However this messes up your auto talker for when you lvl up. As it is based on the text box, the SoF certificates post "congratulations... " which triggers a skill response in your auto talking part of the script. I haven't looked yet but I think it can be fixed just by changing the words the talker looks for.

    And here's some sweet progs:

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 3rd, 2012    ||
    ||===========================||
     Worked For 5 Hours, 58 Minutes and 0 Seconds
     Chopped 1863
     Dropped(by loads) 69
     Experience Gained 124821
     Leveled 71
     Sleeped 0
     WoodCutting level 71
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 4th, 2012    ||
    ||===========================||
     Worked For 4 Hours, 47 Minutes and 19 Seconds
     Chopped 1377
     Dropped(by loads) 51
     Experience Gained 92259
     Leveled 72
     Sleeped 0
     WoodCutting level 72
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 5th, 2012    ||
    ||===========================||
     Worked For 6 Hours, 21 Minutes and 32 Seconds
     Chopped 1863
     Dropped(by loads) 69
     Experience Gained 124821
     Leveled 73
     Sleeped 1
     WoodCutting level 73
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 6th, 2012    ||
    ||===========================||
     Worked For 4 Hours, 58 Minutes and 42 Seconds
     Chopped 2187
     Dropped(by loads) 81
     Experience Gained 146529
     Leveled 74
     Sleeped 1
     WoodCutting level 74
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    |====================================|
    |              ~ SRL ~               |
    |           Randoms Report           |
    |------------------------------------|
    |                                    |
    |    Sandwich Lady Solved   ~ 1      |
    |    Rewards Solved         ~ 3      |
    |                                    |
    |------------------------------------|
    |====================================|
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 6th, 2012    ||
    ||===========================||
     Worked For 8 Hours, 35 Minutes and 14 Seconds
     Chopped 3321
     Dropped(by loads) 123
     Experience Gained 222507
     Leveled 76
     Sleeped 2
     WoodCutting level 76
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    SRL has given me many 99s now, and many more to come. I hope to enhance the quality of the community here with feedback, progress reports, and testing scripts (and maybe learn a little along the way)

  22. #1047
    Join Date
    Mar 2012
    Location
    North Richland Hills, TX
    Posts
    49
    Mentioned
    1 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by Benson View Post
    Some updates: With the new SoF update when you end up getting the certs that give extra spins, I believe they fixed it and SRL now clicks them. However this messes up your auto talker for when you lvl up. As it is based on the text box, the SoF certificates post "congratulations... " which triggers a skill response in your auto talking part of the script. I haven't looked yet but I think it can be fixed just by changing the words the talker looks for.
    I just took that whole section out of my script, I don't want it randomly talking when I'm out of the room or something lol. When I'm watching it I'll just talk if need be.

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

    Default

    Quote Originally Posted by iETHOSi View Post
    Why do you need my account lol? >_>

    I'm cutting Teaks at Ape Atoll.
    So I can help you out and add what you asked for? duh?

    Quote Originally Posted by Benson View Post
    Some updates: With the new SoF update when you end up getting the certs that give extra spins, I believe they fixed it and SRL now clicks them. However this messes up your auto talker for when you lvl up. As it is based on the text box, the SoF certificates post "congratulations... " which triggers a skill response in your auto talking part of the script. I haven't looked yet but I think it can be fixed just by changing the words the talker looks for.

    And here's some sweet progs:

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 3rd, 2012    ||
    ||===========================||
     Worked For 5 Hours, 58 Minutes and 0 Seconds
     Chopped 1863
     Dropped(by loads) 69
     Experience Gained 124821
     Leveled 71
     Sleeped 0
     WoodCutting level 71
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 4th, 2012    ||
    ||===========================||
     Worked For 4 Hours, 47 Minutes and 19 Seconds
     Chopped 1377
     Dropped(by loads) 51
     Experience Gained 92259
     Leveled 72
     Sleeped 0
     WoodCutting level 72
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 5th, 2012    ||
    ||===========================||
     Worked For 6 Hours, 21 Minutes and 32 Seconds
     Chopped 1863
     Dropped(by loads) 69
     Experience Gained 124821
     Leveled 73
     Sleeped 1
     WoodCutting level 73
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 6th, 2012    ||
    ||===========================||
     Worked For 4 Hours, 58 Minutes and 42 Seconds
     Chopped 2187
     Dropped(by loads) 81
     Experience Gained 146529
     Leveled 74
     Sleeped 1
     WoodCutting level 74
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||

    Progress Report:
    |====================================|
    |              ~ SRL ~               |
    |           Randoms Report           |
    |------------------------------------|
    |                                    |
    |    Sandwich Lady Solved   ~ 1      |
    |    Rewards Solved         ~ 3      |
    |                                    |
    |------------------------------------|
    |====================================|
    ||===========================||
    ||      P1nkys Draynor       ||
    ||===========================||
    ||    April 6th, 2012    ||
    ||===========================||
     Worked For 8 Hours, 35 Minutes and 14 Seconds
     Chopped 3321
     Dropped(by loads) 123
     Experience Gained 222507
     Leveled 76
     Sleeped 2
     WoodCutting level 76
    ||===========================||
    ||====     By P1nky      ====||
    ||===========================||
    ||===========================||
    ||=====DESTROY THE TREES=====||
    ||===========================||
    Thank You mate for these proggies . I added a IVY feature, which does mad experience per hour (will upload sometime this week!)

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

    Default

    Quote Originally Posted by P1nky View Post
    So I can help you out and add what you asked for? duh?


    Thank You mate for these proggies . I added a IVY feature, which does mad experience per hour (will upload sometime this week!)
    HOW DARE YOU ADD IVY! :P oh well ^.^ GF My script :P

    Edit: Really enjoyed reading the level up part... that's a pretty cool idea...

    P.s Your using findobj? I thought you'd use TPA's :P

    last but not least:

    SetupSRLStats(485, 'Anonymous', 'anon1337')

    I believe there is an inbuilt procedure in Simba now for this? Have a look around ^.^
    Last edited by xtrapsp; 04-08-2012 at 11:17 AM.

  25. #1050
    Join Date
    Mar 2012
    Location
    North Richland Hills, TX
    Posts
    49
    Mentioned
    1 Post(s)
    Quoted
    13 Post(s)

    Default

    Quote Originally Posted by P1nky View Post
    So I can help you out and add what you asked for? duh?
    Sorry but I don't see how giving you my account is going to help, can't you do it on an account of yours? I'm not giving my account info out to anyone... sorry lol. I doubt that's the only way to help. >_>

Page 42 of 45 FirstFirst ... 324041424344 ... 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
  •