Results 1 to 3 of 3

Thread: Problem

  1. #1
    Join Date
    Jul 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Problem

    As havoc928 im making a power woodcutter but i seem to be getting a lot of problems the script isnt finish by a long ways (anti randoms anti ban and auto log in)

    but i was just wonder if some 1 could take a look and see where im going wrong and give me some guidance Thanks

    SCAR Code:
    ////////////////Hardmans Willow Muncher v.10////////////                                                         hardmans script
    /// This Is A Simple Willow WCER
    /// Start Script Near A Willow Tree
    /// Setup Colours + Others
    /// VERY BASIC SCRIPT AT THE MOMENT SO PLEASE HELP


    // version 1 = First Version //
    //This is Going to be up dated



    program Muncher;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}

    //Set Colour Of Willow Make Sure There Different//
    const willow=8450984; //Set the colour of tree's
    const willow1=7264139; //Set the colour Of tree's


    procedure Woodcutting;
    begin
      findcolortolerance(x,y,willow,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
      findcolortolerance(x,y,willow1,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
    //DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOU ARE DOING
      mouse(x,y,0,0,true)
      wait(3000+random(4000))
    end;

    procedure drop;
    begin
      if(InvFull)then
        DropTo(2,28);
    end;

    begin
    SetupSRL;
    ActivateClient;
    wait(2000);
     if GameTab(4) then
      repeat
       wait(5000);
       drop;
     Until false;
     end

    begin
      writeln('          PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
        wait(2000)
      writeln('                             // 3 //')
        wait(1000)
      writeln('                            /// 2 ///')
        wait(1000)
      writeln('                           //// 1 ////')
        wait(1000)
      writeln('                   Off I Go Power Wood Cutting')
      wait(2000)
      repeat
        Woodcutting;
        wait(2000+random(500))
        drop;
      until (false)
    end.

  2. #2
    Join Date
    Jul 2007
    Posts
    137
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try this if you're using SRL v4 beta with scar 3.11

    SCAR Code:
    ////////////////Hardmans Willow Muncher v.10////////////                                                         hardmans script
    /// This Is A Simple Willow WCER
    /// Start Script Near A Willow Tree
    /// Setup Colours + Others
    /// VERY BASIC SCRIPT AT THE MOMENT SO PLEASE HELP


    // version 1 = First Version //
    //This is Going to be up dated



    program Muncher;

    var
      z, logdtm{, x, y} : integer;
      invX1, invY1, invX2, invY2 : Integer;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}

    //Set Colour Of Willow Make Sure There Different//
    const willow=8450984; //Set the colour of tree's
    const willow1=7264139; //Set the colour Of tree's
    const loads= 5;


    procedure dtms;
    begin
      logDTM := DTMFromString('78DA63CC636660E861644006716E1C0CFF813' +
           '448F43F1030C601D54C425503918591401A64CE2C026A6A806A26' +
           '1350530054D34A404D2A504D3B7E350002D50BB3');
    end;

    procedure Woodcutting;
    begin
      repeat
        if findobj(x, y, 'willow', willow, 6) then
          begin
            mouse(x,y,0,0,true);
            wait(3000+random(4000));
          end else
        if findobj(x, y, 'willow', willow1, 6) then
          begin
            mouse(x,y,0,0,true)
            wait(3000+random(4000))
          end;
      until(invfull);
    end;

    procedure drop;
    begin
      repeat
        if finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2) then
        begin
          mouse(x, y, 2, 2, false);
          wait(200+random(100));
          chooseoption('Drop');
          wait(1000+random(200));
        end;
      until(not(finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2)));
    end;

    procedure setup;
    begin
      invX1:= 547;
      invY1:= 202;
      invX2:= 736;
      invY2:= 463;
      SetupSRL;
      ActivateClient;
      wait(2000);
    end;

    begin
      setup;
      writeln('          PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
      wait(2000)
      writeln('                             // 3 //')
      wait(1000)
      writeln('                            /// 2 ///')
      wait(1000)
      writeln('                           //// 1 ////')
      wait(1000)
      writeln('                   Off I Go Power Wood Cutting')
      wait(2000)
      repeat
        Woodcutting;
        drop;
        z:= z + 1;
      until (z = loads)
    end.

    if not, try this :


    SCAR Code:
    ////////////////Hardmans Willow Muncher v.10////////////                                                         hardmans script
    /// This Is A Simple Willow WCER
    /// Start Script Near A Willow Tree
    /// Setup Colours + Others
    /// VERY BASIC SCRIPT AT THE MOMENT SO PLEASE HELP


    // version 1 = First Version //
    //This is Going to be up dated



    program Muncher;

    var
      z, logdtm{, x, y} : integer;
      invX1, invY1, invX2, invY2 : Integer;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}

    //Set Colour Of Willow Make Sure There Different//
    const willow=8450984; //Set the colour of tree's
    const willow1=7264139; //Set the colour Of tree's
    const loads= 5;


    procedure dtms;
    begin
      logDTM := DTMFromString('78DA63CC636660E861644006716E1C0CFF813' +
           '448F43F1030C601D54C425503918591401A64CE2C026A6A806A26' +
           '1350530054D34A404D2A504D3B7E350002D50BB3');
    end;

    procedure Woodcutting;
    begin
      repeat
        if findobj(x, y, 'willow', willow, 6) then
          begin
            mouse(x,y,0,0,true);
            wait(3000+random(4000));
          end else
        if findobj(x, y, 'willow', willow1, 6) then
          begin
            mouse(x,y,0,0,true)
            wait(3000+random(4000))
          end;
      until(invfull);
    end;

    procedure drop;
    begin
      repeat
        if finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2) then
        begin
          mouse(x, y, 2, 2, false);
          wait(200+random(100));
          chooseoption(x, y, 'Drop');
          wait(1000+random(200));
        end;
      until(not(finddtm(logDTM, x, y, invX1, INVY1, INVX2, INVY2)));
    end;

    procedure setup;
    begin
      invX1:= 547;
      invY1:= 202;
      invX2:= 736;
      invY2:= 463;
      SetupSRL;
      ActivateClient;
      wait(2000);
    end;

    begin
      setup;
      writeln('          PLEASE COULD YOU POST ANY IDEAS I COULD ADD')
      wait(2000)
      writeln('                             // 3 //')
      wait(1000)
      writeln('                            /// 2 ///')
      wait(1000)
      writeln('                           //// 1 ////')
      wait(1000)
      writeln('                   Off I Go Power Wood Cutting')
      wait(2000)
      repeat
        Woodcutting;
        drop;
        z:= z + 1;
      until (z = loads)
    end.
    Do not propose an idea of peculation without evidence of such action.

    http://cashcrate.com/704591 click here and make money!

  3. #3
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    You have
    SCAR Code:
    procedure Woodcutting;
    begin
      findcolortolerance(x,y,willow,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
      findcolortolerance(x,y,willow1,3,3,551, 231,6) //CHANGE LAST TO CORDINATES
    //DONT TOUCH BELOW UNLESS YOU KNOW WHAT YOU ARE DOING
      mouse(x,y,0,0,true)
      wait(3000+random(4000))
    end;

    Where you find color and click, but if it finds the color and it isn't on the willow, then you're screwed. Try using the new FindObjCustom to search for color AND text. Also your Mouse(x,y,0,0,true) needs to be randomized (ie. Mouse(x,y,2,2,true)).

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. problem...
    By Blumblebee in forum OSR Help
    Replies: 4
    Last Post: 12-28-2008, 07:22 AM
  2. help big problem
    By goblanca in forum OSR Help
    Replies: 3
    Last Post: 05-19-2007, 10:41 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
  •