Results 1 to 5 of 5

Thread: PowerCutting Script Help Needed! Should be simple to some users.

  1. #1
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    PowerCutting Script Help Needed! Should be simple to some users.

    This is the script:
    SCAR Code:
    /////////////////////////////////////////////////////////////////////////////////////////
    //                                                                                     //
    //   PowerCutter Script.                                                               //
    //   Made By:                                                                          //
    //           IP-Drowner.                                                               //
    //                              Script Version: 1.4                                    //
    //                                  Build:      011                                          //
    //                              SRL Versiob: 4.00                                      //
    /////////////////////////////////////////////////////////////////////////////////////////
    {
     Information:
                 If you have paid for this script, then you have been scammed.
                 This script is Freeware and can be published anywhere without
                      the author's permission but as long as it is not modified.
                 Includes SRL, so download SRL for SCAR.
                 Customized for SCAR DIVI 3.12a+. Uses SRL 4.
                 
     Setup  Info:
                 Setup lines 38-49 and lines 57-75 then select the
                      Runescape screenusing the crosshair and the
                      script should do the rest.
                     
     Other  Info:
                 Any bugs found, please report it immediantely to the
                      forums you downloaded from.
                 If the support and need further assistance preparing
                      and setting up the script, please post at the
                        forums you downloaded from. If you require help
                        from the author, please visit
                        [url]http://srl-forums.com/forum/[/url] and PM IP-Drowner or
                      post in the thread.
                     
     Credits  To:
                 Nobody at the moment.
    }


    program PowerCutter;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}

    const
     CompassAngle = 'n';          //Which way do you want to Compass to Face?
     RunDirection = 'n';          //Which direction do you want to run if finds a fight?
     WaitTime = 1000;             //Waiting period in between clicks. Please use Milliseconds.
     TreeColour = 0;              //The colour of your specified tree. Colour must be unique.
     TreeColour1 = 0;             //If above colour is not found, it will try to find this one.
     LogColour = 0;               //The colour of the log in your inventory.
     Wielding = True;             //Are you wielding your axe?
     CULoads = 10;                //Number of Loads to do before switching players.
     X2 = 764;                    //End of Runescape Screen. Defaults Loaded.
     Y2 = 502;                    //End of Runescape Screen. Defaults Loaded.
     TreeTolerance = 2;           //Only change value to lower if it has trouble finding the tree.
     LogTolerance = 2;            //Only change to a lower value if it has trouble finding the logs in your inventory.

    procedure DeclarePlayers;
    begin
     HowManyPlayers := 4;                 //Set Number of Players here.

    NumberOfPlayers(HowManyPlayers);       //Don't Touch
     CurrentPlayer := 0;                  //Player to Start with

     Players[0].Name  := 'Username';      //Your Username
     Players[0].Pass  := 'Password';      //Your Password
     Players[0].Nick  := 'erna';      //3 or 4 letters from your username.
     Players[0].Active  := True;          //Will You Be Using This Player?

     Players[1].Name  := 'Username';      //Your Username
     Players[1].Pass  := 'Password';      //Your Password
     Players[1].Nick  := 'erna';      //3 or 4 letters from your username.
     Players[1].Active  := True;          //Will You Be Using This Player?

     Players[2].Name  := 'Username';      //Your Username
     Players[2].Pass  := 'Password';      //Your Password
     Players[2].Nick  := 'erna';      //3 or 4 letters from your username.
     Players[2].Active  := True;          //Will You Be Using This Player?

     Players[3].Name  := 'Username';      //Your Username
     Players[3].Pass  := 'Password';      //Your Password
     Players[3].Nick  := 'erna';      //3 or 4 letters from your username.
     Players[3].Active  := True;          //Will You Be Using This Player?
    end;

    var
      x, y, Chops: Integer;

    procedure FindAndChop;
     begin
      repeat
      RandomRClick;
      if(FindColorTolerance(x,y,TreeColour,0,0,X2,Y2,TreeTolerance)) or
        (FindColorTolerance(x,y,TreeColour1,0,0,X2,Y2,TreeTolerance)) then
       begin
        if(FindEnt(x, y, False)) then
         begin
          RunAwayDirection(RunDirection);
          Wait(5000 + Random(290))
          RunBack;
         end else
          begin
            Writeln('Sorry, the tree colour you specified could not be found.');
            LogOut;
          end;
        Mouse(x,y,5,5,True);
        RandomRClick;
        Wait(WaitTime + random(696))
        Chops:= Chops + 1;
        HoverSkill('woodcutting', false);
        RandomRClick;
        MakeCompass('s');
        SayCurrentLevels('woodcutting');
         if(InvFull) then
           begin
             DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
           end;
      Until(Loads = CULoads)
       end;
     end;

    procedure UnSafeDisguiseScar(disguise: String);
    begin
      GetApplication.Title:= disguise;
      GetSelf.Caption:= disguise;
    end;

    procedure DisguiseScar(DisguiseName: String);
    var
      t: TVariantArray;
    begin
      SetArrayLength(t,1);
      t[0] := disguise;
      ThreadSafeCall('UnSafeDisguiseScar',t);
    end;

    {*******************************************************************************
    procedure DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
    By: IP-Drowner
    Description: Will drop all logs in Inventory. May be added into SRL.
    *******************************************************************************}

    procedure DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
    begin
      if(FindColorTolerance(x,y,LogColour,576,231,578,233,LogTolerance)) then
        begin
          if(Wielding = True) then
            begin
              Mouse(x,y,5,5,False);
               if(IsUpText('Drop')) then
                 begin
                   Mouse(x,y,5,5,True) else
                   Writeln('Skipping Inventory Slot Number 1. Wielding axe has');
                   Writeln(' been specified as false.');
                 end;
        end;
      if(FindColorTolerance(x,y,LogColour,621,228,623,231,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,663,229,665,232,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,706,230,710,233,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColor(x,y,LogColour,580,265,583,268,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,624,270,627,274,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,660,260,665,269,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,704,264,709,269,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,575,297,580,303)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,617,298,624,302)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,659,298,664,304,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,702,299,706,303,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,576,335,579,339,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,617,334,623,339,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,659,333,663,339,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColor(x,y,LogColour,701,334,708,339,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,575,371,580,377,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,620,370,625,375,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,659,369,664,374,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,703,372,708,377,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,576,406,582,412,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,615,405,621,410,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,660,407,665,413,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColor(x,y,LogColour,701,406,707,413,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,576,443,581,449,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,619,443,624,448,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColor(x,y,LogColour,660,442,665,449,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;
      if(FindColorTolerance(x,y,LogColour,704,442,709,451,LogTolerance)) then
        begin
          Mouse(x,y,5,5,False);
           if(IsUpText('Drop')) then
             begin
               Mouse(x,y,5,5,True);
             end;
        end;

       
    end;

    procedure AntiRandoms;
     begin
      FindNormalRandoms;
      FindInventoryRandoms;
      FindNonInventoryRandoms;
      FindNormalRandoms;
     end;

    procedure ProgressReport;
     begin
      Writeln('///////---Progress Report---\\\\\\\');
      Writeln('You have chopped ' + IntToStr(Chops) + ' times.');
      Writeln('');
      Writeln('You have done ' + IntToStr(Loads) + ' loads.');
      Writeln('');
      Writeln('Script has been running for' + TimeRunning);
      Writeln('\\\\\\\---Progress Report---///////');
      SRLRandomsReport;
     end;

    begin
      ClearDebug;
      SetupSRL;
      ActivateClient;
      if (not(LoggedIn)) then LoginPlayer;
      Wait(2000 + Random(1000));
      MakeCompass(CompassAngle);
     repeat
      AntiRandoms;
      if (not LoggedIn) then
        begin
          NextPlayer(false);
          SetupSRL;
        end;
      FindAndChop;
      if (not LoggedIn) then
        begin
          NextPlayer(false);
          SetupSRL;
        end;
      AntiRandoms;
      if (not LoggedIn) then
        begin
          NextPlayer(false);
          SetupSRL;
        end;
      AntiRandoms;
      FindAndChop;
      ProgressReport;
      if (not LoggedIn) then
        begin
          NextPlayer(false);
          SetupSRL;
        end;
      AntiRandoms;
      if (not LoggedIn) then
        begin
          NextPlayer(false);
          SetupSRL;
        end;
     Until(IsFKeyDown(8))
    end.

    And my current error message is:
    Code:
    Line 109: [Error] (14991:1): Unknown identifier 'DropInvLogs' in script C:\Documents and Settings\Owner\Desktop\PowerCutter.scar
    And once this error is fixed, i will try and use this script to become in the SRL Members. Do you think i would make it into the community?

    Thanks! Much help appreciated!
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

  2. #2
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dropinvlogs is a function that doesn't exist anymore

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

    Default

    The function does exist, its in the script... lol
    SCAR Code:
    {*******************************************************************************
    procedure DropInvLogs(Wielding: Boolean; LogColour, Tolerance: String;);
    By: IP-Drowner
    Description: Will drop all logs in Inventory. May be added into SRL.
    *******************************************************************************}

    You need to move it ABOVE the procedure which you have called it..

    SCAR Code:
    proecdure test;
    begin
      doi;
    end;

    function doi:Boolean;
    begin
      result:=true;
    end;

    That is incorrect.. move it above it..

    SCAR Code:
    function doi:Boolean;
    begin
      result:=true;
    end;

    proecdure test;
    begin
      doi;
    end;

    Was going to fix it, but ALOT of it is messed up.

    Your drop inv logs isnt too good, your using a mixture of findcolor and using tolerance where you cant.

    Your begin and ends are totally messed up.

    Just use DropToPosition(2,28) (if not wielded)

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

  4. #4
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    It has to be above??? Never knew that!

    Also, i just wanted to experiment with my own procedure that i made.
    But i know i could just use this:
    SCAR Code:
    if(Wielding = False) then
      begin
        DropToPosition(2,28);
      end else
        DropToPosition(1,28);
    .

    Thanks for your help guys.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

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

    Default

    Your procedure would work if it was made correctly. if you only want to drop logs then you can just look for a dtm and right click > drop

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

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Simple help needed.
    By michdd in forum OSR Help
    Replies: 4
    Last Post: 11-23-2008, 10:39 PM
  2. simple auto fighter needed
    By q3ick in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 07-13-2008, 04:17 PM
  3. Replies: 0
    Last Post: 10-27-2007, 03:39 AM
  4. Probably fairly simple script needed
    By vycoex in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 04-30-2007, 06:07 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
  •