Results 1 to 12 of 12

Thread: New updated power chopper!

  1. #1
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default New updated power chopper!

    SET TREE COLOR!

    This is my first "Good" script.

    Not Fully Anti Randoms, Just talking Randoms

    Just fill in the stuff needed and Press Play



    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1. Axe in first INV slot...                                ||
      ||  2. Drag Crosshair into RS window.                          ||
      ||  3. Hit play and fill out forms.                            ||
      ||  4. AXE HEAD FINDER WILL WORK, Normally :)                  ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program Powercutter;
    {.include SRL\SRL.SCAR}
    {.include SRL\SRL\Skill\Woodcutting.SCAR}

    var
    Startxp, Totallogs, TotalXP,EndXP :integer;

    const
    TreeColor= 2785392;  //Color of tree
    IsAxeWeilded = false; // Change to True If Axe Is Weilded
    TreeFindTime = 6000; // Time In Miliseconds Till u click next tree
                               // 1000 MiliSeconds = 1 Second

    ////////////Declaring PLayers/////////////
    Procedure DeclarePlayers;
    Begin

         HowManyPlayers := 3;
         CurrentPlayer:= 0;
         NumberOfPlayers(HowManyPlayers);

         Players[0].Name     := '';
         Players[0].Pass     := '';
         Players[0].Nick     := '';     //3 Lowercase Letters of your username
         Players[0].Integer1 := 35;     //Loads For Player
         Players[0].Boolean1 := False;  //Equip Axe?
         Players[0].Active   := True;

         Players[1].Name     := '';
         Players[1].Pass     := '';
         Players[1].Nick     := '';
         Players[1].Integer1 := 35;
         Players[1].Boolean1 := False;
         Players[1].Active   := True;

         Players[2].Name     := '';
         Players[2].Pass     := '';
         Players[2].Nick     := '';
         Players[2].Integer1 := 35;
         Players[2].Boolean1 := False;
         Players[2].Active   := True;

    End;


    ///////////////Anti Randomz/////////////// Credits to fourscape :)
    Procedure TheAntiRandoms;
    Begin
     Status('Random Check')
      FindNormalRandoms;
       wait(10)
        FindTalk;
         wait(10)
      if (FindFight) then
      begin
     Status('Running From a fight.')
      RunAwayDirection('E');
       Wait(8500 + random(3500));
        RunBack;
    end;
     Wait(10);
      FindTalk;
    end;

    ////////////////Finding Tree/////////////////

    Procedure FindTree;
    begin;
     repeat
     if FindColor(x,y,TreeColor,0,0,765,500) then
       begin
    Wait(TreeFindTime)
    MMouse(x,y,2,2)
    if(IsUpText('Willow'))then
    begin
      Mouse(x,y,2,2,true)
      Writeln('Clicked Tree!')
    end;
         TheAntiRandoms;
       end else
         Writeln('Cant Find Willows')
     until (InventoryFull);
    end;

    ////////////////////Dropage//////////////////
    Procedure Dropage;
    begin
      if(IsAxeWeilded = true)then
      begin
        DropAll;
      end;
      if(IsAxeWeilded = false)then
      begin
        Dropto(2,28);
      end;
    end;

    /////////////////Ent//////////////////// <--- Credits goto _Charm Willow raper
    Function CharmEnt(ex, ey: Integer): Boolean;
    Var
    Xe, Ye: Integer;
    Begin

     Status('FindEnt');

     If(FindColorSpiralTolerance(Xe, Ye, 5535856, ex - 20, ey - 20, ex + 20, ey + 20, 12))then
      Begin
       MMouse(Xe, Ye, 5, 5);
       Wait(100+Random(50));
      End else
      Begin
       Exit;
      End

     If(IsUpTextMulti('hop down Will', 'down Willow', 'own Wil')) or (IsUpTextMulti('illow', 'low', 'Will'))then
       Begin
        If(FindColorSpiralTolerance(Xe, Ye, 383705, 1, 1, 180, 39, 20))or
           (FindColorSpiralTolerance(Xe, Ye, 65535, 1, 1, 200, 40, 20))or
            (FindColorTolerance(Xe, Ye, 55769, 85, 15, 115, 15, 20))then
          Begin
            EntsAvoided:= EntsAvoided + 1;
            Result:= True;
          End else
            Result:= False;
            Exit;

      End

    End;

    //////////////////Progress Report////////////////////
    Procedure ProgressReport;
    Begin
      SRLRandomsReport;
      ClearDebug;
      WriteLn('[>-----------------------Rayz Report-----------------------<]')
      WriteLn('[>Script Time: ' + (TimeRunning) + '')
      WriteLn('[>Logs Chopped: ' + IntToStr (Totallogs) +  '')
      WriteLn('[>XP Gained: ' + IntToStr (TotalXP) +  '')
      WriteLn('[>----------------------------------------------------------<]')
    end;

    /////////////////Progress///////////////////
    Procedure Progress;
    begin
     StartXP := GetXp('Woodcutting')
          EndXP := GetXp('Woodcutting')
          TotalXP := (EndXP - StartXP) + (TotalXP)
          ProgressReport;
    end;

    //////////////////MainLoop////////////////////// Credits To Fugate
    begin
    SetupSrl;
     DeclarePlayers;
     Totallogs:= 0;
      If (Not(LoggedIn)) then LoginPlayer;
       FindAxeHeadColor;
    repeat
          If (Not(LoggedIn)) then LoginPlayer;
          ProgressReport;
          Progress;
          FindTree;
          Dropage;
          loginplayer;
          until(false)
    end.

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

    Default

    Change the FindColor to FindColorTolerance, and then, after the coords box put a ,5 or whatever you think the tolerance should be. I like a tolerance of 3-5, around there should be good. You REALLY need that though for this script to function properly.

  3. #3
    Join Date
    Apr 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea there u go i downloaded it and it did work great but i changed it to what u said jad thanks im still new to scripting but im getting help and nice job on script

  4. #4
    Join Date
    Apr 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good job dude i like it but what jad says helps opps srry for repost

  5. #5
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script. :]

    @sp33dy36: Don't double post.

  6. #6
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL.SCAR does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL\SRL\Skill\Woodcutting.SCAR does not exist.
    Failed when compiling

    what does that mean? pm me or post on here plz.

  7. #7
    Join Date
    May 2007
    Location
    http://www.srl-forums.com
    Posts
    265
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ummm nice script.

  8. #8
    Join Date
    May 2007
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty ill post proggres up soon
    you attempt to light a fire, you light the fire, you place the raw shrimp on the fire, you accidentally burn the shrimp. DAMMIT!

    Evil Walrus's will control the world someday...

  9. #9
    Join Date
    May 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    not thw best...... use obj and you say this is a power chopper
    ~~~~~I Am Who I Am~~~~~

    http://i149.photobucket.com/albums/s...6886/Oak-1.jpg <----- Ent From My Remmy Oak Cutter And Seller That I Made Fun Of


    http://www.srl-forums.com/forum/sl-p...rim-t6373.html <---- Best Willow Cutter And Banker In My Book Lol

  10. #10
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    This could turn into a pretty nice script with a bit of time

    My recommendation is to use FindEnt(x,y) before you click on the tree

    As (if) this script progresses, I may have more suggestions for you
    Interested in C# and Electrical Engineering? This might interest you.

  11. #11
    Join Date
    May 2007
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice script

    i hacked 2 loads, and im guna run it over night tonight.

    btw proggress report didnt work :/ it sayd>>

    [>-----------------------Rayz Report-----------------------<]
    [>Script Time: 16 Minutes and 36 Seconds
    [>Logs Chopped: 0
    [>XP Gained: 0
    [>----------------------------------------------------------<]


    ent finder doesnt work :S? axe finder doesnt work either

  12. #12
    Join Date
    May 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i keep getting this error:

    [Runtime Error] : Exception: Access violation at address 00651174 in module 'scar.exe'. Read of address 00000034 in line 315 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar

    anyone know how to fix it?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [TWIzt CHOPPer] UPDATED -SMART INCLUDED-
    By TwizT in forum First Scripts
    Replies: 7
    Last Post: 05-29-2008, 06:41 PM
  2. Power Chopper
    By topiser in forum First Scripts
    Replies: 10
    Last Post: 05-16-2008, 08:57 PM
  3. [SRL 4] Another Power Chopper [EA]
    By Economic Advancement in forum First Scripts
    Replies: 9
    Last Post: 11-26-2007, 10:02 PM
  4. My First power chopper!!!!
    By ownage112211 in forum First Scripts
    Replies: 2
    Last Post: 05-01-2007, 03:41 AM

Posting Permissions

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