Results 1 to 10 of 10

Thread: Would Someone Be Willing To Read Over MY Script

  1. #1
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Would Someone Be Willing To Read Over MY Script

    Ok well this is currently my very first ever script, I have finaly learned (a bit of knowledge) enough to write a script at least to write my own. It has a few errors i simply cannot fix so could someone decent at scar scripting be will8ing to take the time and read over my script correct the errors and tell me how to improve and fix it so its better anything will do! lol well just add my msn myrune_kid@hotmail.com and post here thanks everyone!

  2. #2
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Could of posted here so we can read here.

  3. #3
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ok sorry im just kinda embarassed its not very good o well here it is i dont think its ever gona work tell me if im right

    //////// ////////// / /L //////// //////////// ////// N///
    //BBBBBB// //EEEEEE// //L //GGGGG// IIII//IIII ///N/// N///
    //BB BBB// //E //L //GGGGGG// I//I ///NN/// N///
    //BBBBBB// ////////// //L // I//I ///N /// N///
    //BBBBB// //EEEEEE// //L //GGGG/////// I//I ///N /// N///
    //BB BB// //E //L //GGG//GG// I//I ///N ///NN///
    //BBBBBBB// //EEEEEE// //LLLLLLL //GGGGG// IIII//IIII ///N ///N///
    ////////// ////////// ////////// /////// //////////// ///N //////

    ////////// //////////// ////////// //H H//
    //FFFFFF// IIII//IIII //SSSSSSS// //H H//
    //F I//I //S //H H//
    //F I//I /////// //HHHHHHH//
    ////////// I//I // ///////////
    //FFFFFFF I//I //SSSSSSS// //HHHHHHH//
    //F IIII//IIII //SSSSSSSS// //H H//
    //F //////////// ////////// //H H//

    //////////////////////////////////////////////////
    //Start Neer Trees //
    //Have Axe In First Iventory Spot or weilded //
    //Fill Out Whats There //
    //Enjoy //
    //Attention:I Some Ideas From Other Peoples Work//
    //Includes Srl, Thanks Srl Creators //
    //This Is My Very First Script I Know It Sucks //
    //////////////////////////////////////////////////

    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Edit The Things In This Box Only!//
    ////////////////////////////////////////////////////////////////////
    const TreeColor1 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor2 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor3 =3041376;//Color Of The Tree You Want To Chop.
    const TreeType ='Tree';//Enter The Tree Type Here.
    const LoadsToDo =1000; //Times to click trees before logging out.
    const RunDir ='N'; // Direction You Wish To Run If Attacked.
    const AxeWeilded =True; //axe weilded True or False
    ////////////////////////////////////////////////////////////////////

    var
    c:Integer;
    LogOutNum:Integer;

    procedure ProgressReport; //Progress Report
    begin
    ClearDebug;
    Writeln('---------------->Progress Report<------------');
    WriteLn('Cut ' + inttostr(c) + ' logs. ');
    WriteLn('Script Has Been Running ' +TimeRunning);
    Writeln('---------------------------------------------');
    c:=0;
    end;



    //AntiRandoms\\
    procedure AntiRandoms;
    begin
    Status('Searching For Randoms')
    FindNormalRandoms;
    wait(10+random(3))
    FindTalk;
    if(FindFight) then
    begin
    Status ('Found Fight Running Away')
    RunAwayDirection(RunDir);
    wait(4000+random(4560))
    RunBack;
    Status('Random Handled Successfully')
    end;
    end;
    begin
    FindTalk;
    wait(10+random(2))
    end;

    //AntiBan\\
    procedure Antibans;
    begin
    AntiRandoms;
    HoverSkill('WoodCutting',False)
    HoverEvery(5, 'Woodcutting');
    end;
    begin
    RotateEvery(10);
    PickUpMouse;
    wait(30+random(10))
    BoredHuman;
    BoredEvery(5);
    end;

    begin
    case random(90) of
    0: TypeSend('hi');
    1: TypeSend('lol');
    2: TypeSend('rofl');
    3: TypeSend('wc lvls?');
    4: TypeSend('Hello');
    5: TypeSend('hey');
    6: TypeSend('glow2:im bored');
    7: TypeSend('white croll: im bored');
    8: TypeSend('wc is boring');
    9: TypeSend('lalalalala');
    10: TypeSend('i hate Woodcutting!!!!!')
    11: TypeSend('Woodcutting= most boring skill')
    12: TypeSend('WOOOT!! im going for 99wc!')
    13: TypeSend('glow2:MOOOOOOO')
    14: TypeSend('omg i cant wait till i get 60wc!')
    15: TypeSend('YAY!')
    16: TypeSend('woops wrong convo')
    17: TypeSend('this is too time consuming!')
    18: TypeSend('white: isnt there an easier way to get high wc!')
    19: TypeSend('duun dunnn duunnnn dun')
    20: TypeSend('i wana chop yews!!!!')
    AntiRandoms;
    end;

    //Find Ent\\
    procedure FindEnt;
    begin
    wait(15+random(3))
    FindEnt(TreeColor1)
    wait(4+random(2))
    end;

    //FindAxe and Chek For Broken Axe\\
    procedure AxeCheking;
    begin
    if AxeWeilded(True) then
    begin
    GameTab(5);
    FindAxeHeadColor;
    Status('Searching For Axe Head')
    wait(10+random(10))
    FindHead;
    wait(10+random(4))
    AttachHead;
    end;
    end;
    begin;
    if AxeWeilded(False) then
    begin
    FindAxeHeadColor;
    Status('Searching For Axe Head')
    wait(10+random(10))
    FindHead;
    wait(10+random(4))
    AttachHead;
    end;
    end;

    //Starting To Chop\\
    var
    x,y:Integer
    c:Integer
    procedure ChopLogs;
    begin
    AntiRandoms;
    if (FindColor(x,y,TreeColor1,0,0,600,600)) or
    (FindColor(x,y,TreeColor2,0,0,600,600)) or
    (FindColor(x,y,TreeColor3,0,0,600,600)) then
    begin
    movemousesmooth(x,y)
    wait(10+random(6))
    FindEnt;
    wait(900+random(300))
    if UpText(Chop down(TreeType))
    wait (500+random(300))
    clickmouse(x,y(random))
    c:=c+1;
    wait(2000+random(1000))
    AntiBans;
    AxeCheking;
    end else
    begin
    repeat
    end;
    end;
    end;

    var
    x,y:Integer
    procedure ChopLogs;
    begin
    AntiRandoms;
    if (FindColor(x,y,TreeColor1,0,0,600,600)) or
    (FindColor(x,y,TreeColor2,0,0,600,600)) or
    (FindColor(x,y,TreeColor3,0,0,600,600)) then
    begin
    movemousesmooth(x,y)
    wait(10+random(6))
    FindEnt;
    wait(900+random(300))
    if UpText(Chop down(TreeType))
    wait (500+random(300))
    clickmouse(x,y(random))
    c:=c+1;
    wait(2000+random(1000))
    AntiBans;
    AxeCheking;
    end else
    begin
    repeat
    end;
    end;
    end;

    //Start Dropping\\
    procedure DropLogs;
    begin
    AntiBans;
    AntiRandoms;
    DropAllLogs;
    AntiBans;
    end;

    //Main Loop\\
    Procedure PowerCut
    begin
    ChopLogs;
    wait(30+random(20))
    DropLogs;
    ProgressReport;
    repeat
    until(logOutNum=LoadsToDo)
    LogOut;
    end.

  4. #4
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    Well that's not too bad for someone who was so embarassed about it? did you copy a lot of it cos you have a couple of old functions in there and it's pretty good for someone who didn't know if it worked or not but I dunno good job. one thing get rid of ClickMouse and MoveMouseSmooth.
    repleace clickmouse with Mouse(x,y,0,0,true) this will left click and won't get you banned change true to false if u want it to right clik and replace MoveMouseSmooth to MMouse(x,y,3,3) this will just move the mouse.

    Rofl u know u need to start scripting again when you need to open up a script because you can't remember the parametres of Mouse and MMouse lmao
    Sleeping...

  5. #5
    ronny.m.p Guest

    Default

    Lol i have those params memorized..i find scripting "theriputic"!


    EDIT: Anyways here is a version of your script that i "standerdized". Learn standerds for better readability!

    SCAR Code:
    //////// ////////// / /L //////// //////////// ////// N///
    //BBBBBB// //EEEEEE// //L //GGGGG// IIII//IIII ///N/// N///
    //BB BBB// //E //L //GGGGGG// I//I ///NN/// N///
    //BBBBBB// ////////// //L // I//I ///N /// N///
    //BBBBB// //EEEEEE// //L //GGGG/////// I//I ///N /// N///
    //BB BB// //E //L //GGG//GG// I//I ///N ///NN///
    //BBBBBBB// //EEEEEE// //LLLLLLL //GGGGG// IIII//IIII ///N ///N///
    ////////// ////////// ////////// /////// //////////// ///N //////

    ////////// //////////// ////////// //H H//
    //FFFFFF// IIII//IIII //SSSSSSS// //H H//
    //F I//I //S //H H//
    //F I//I /////// //HHHHHHH//
    ////////// I//I // ///////////
    //FFFFFFF I//I //SSSSSSS// //HHHHHHH//
    //F IIII//IIII //SSSSSSSS// //H H//
    //F //////////// ////////// //H H//

    //////////////////////////////////////////////////
    //Start Neer Trees //
    //Have Axe In First Iventory Spot or weilded //
    //Fill Out Whats There //
    //Enjoy  //
    //Attention:I Some Ideas From Other Peoples Work//
    //Includes Srl, Thanks Srl Creators //
    //This Is My Very First Script I Know It Sucks //
    //////////////////////////////////////////////////

    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Edit The Things In This Box Only!//
    ////////////////////////////////////////////////////////////////////
    const TreeColor1 = 3041376; //Color Of The Tree You Want To Chop.
    const TreeColor2 = 3041376; //Color Of The Tree You Want To Chop.
    const TreeColor3 = 3041376; //Color Of The Tree You Want To Chop.
    const TreeType = 'Tree'; //Enter The Tree Type Here.
    const LoadsToDo = 1000; //Times to click trees before logging out.
    const RunDir = 'N'; // Direction You Wish To Run If Attacked.
    const AxeWeilded = True; //axe weilded True or False
    ////////////////////////////////////////////////////////////////////

    var
      c: Integer;
      LogOutNum: Integer;

    procedure ProgressReport; //Progress Report
    begin
      ClearDebug;
      Writeln('---------------->Progress Report<------------');
      WriteLn('Cut ' + inttostr(c) + ' logs. ');
      WriteLn('Script Has Been Running ' + TimeRunning);
      Writeln('---------------------------------------------');
      c := 0;
    end;



    //AntiRandoms\\

    procedure AntiRandoms;
    begin
      Status('Searching For Randoms')
        FindNormalRandoms;
      wait(10 + random(3))
        FindTalk;
      if (FindFight) then
      begin
        Status('Found Fight Running Away')
          RunAwayDirection(RunDir);
        wait(4000 + random(4560))
          RunBack;
        Status('Random Handled Successfully')
      end;
    end;
    begin
      FindTalk;
      wait(10 + random(2))
    end;

    //AntiBan\\

    procedure Antibans;
    begin
      AntiRandoms;
      HoverSkill('WoodCutting', False)
        HoverEvery(5, 'Woodcutting');
    end;
    begin
      RotateEvery(10);
      PickUpMouse;
      wait(30 + random(10))
        BoredHuman;
      BoredEvery(5);
    end;

    begin
      case random(90) of
        0: TypeSend('hi');
        1: TypeSend('lol');
        2: TypeSend('rofl');
        3: TypeSend('wc lvls?');
        4: TypeSend('Hello');
        5: TypeSend('hey');
        6: TypeSend('glow2:im bored');
        7: TypeSend('white croll: im bored');
        8: TypeSend('wc is boring');
        9: TypeSend('lalalalala');
        10: TypeSend('i hate Woodcutting!!!!!')
          11: TypeSend('Woodcutting= most boring skill')
          12: TypeSend('WOOOT!! im going for 99wc!')
          13: TypeSend('glow2:MOOOOOOO')
          14: TypeSend('omg i cant wait till i get 60wc!')
          15: TypeSend('YAY!')
          16: TypeSend('woops wrong convo')
          17: TypeSend('this is too time consuming!')
          18: TypeSend('white: isnt there an easier way to get high wc!')
          19: TypeSend('duun dunnn duunnnn dun')
          20: TypeSend('i wana chop yews!!!!')
          AntiRandoms;
      end;

    //Find Ent\\

    procedure FindEnt;
    begin
      wait(15 + random(3))
        FindEnt(TreeColor1)
        wait(4 + random(2))
    end;

    //FindAxe and Chek For Broken Axe\\

    procedure AxeCheking;
    begin
      if AxeWeilded(True) then
      begin
        GameTab(5);
        FindAxeHeadColor;
        Status('Searching For Axe Head')
          wait(10 + random(10))
          FindHead;
        wait(10 + random(4))
          AttachHead;
      end;
    end;
    begin;
      if AxeWeilded(False) then
      begin
        FindAxeHeadColor;
        Status('Searching For Axe Head')
          wait(10 + random(10))
          FindHead;
        wait(10 + random(4))
          AttachHead;
      end;
    end;

    //Starting To Chop\\
    var
      x, y: Integer
      c: Integer

    procedure ChopLogs;
    begin
      AntiRandoms;
      if (FindColor(x, y, TreeColor1, 0, 0, 600, 600)) or
        (FindColor(x, y, TreeColor2, 0, 0, 600, 600)) or
        (FindColor(x, y, TreeColor3, 0, 0, 600, 600)) then
      begin
        movemousesmooth(x, y)
          wait(10 + random(6))
          FindEnt;
        wait(900 + random(300))
          if UpText(Chop down(TreeType))
          wait(500 + random(300))
          clickmouse(x, y(random))
          c := c + 1;
        wait(2000 + random(1000))
          AntiBans;
        AxeCheking;
      end else
      begin
        repeat
      end;
    end;
    end;

    var
      x, y: Integer

    procedure ChopLogs;
    begin
      AntiRandoms;
      if (FindColor(x, y, TreeColor1, 0, 0, 600, 600)) or
        (FindColor(x, y, TreeColor2, 0, 0, 600, 600)) or
        (FindColor(x, y, TreeColor3, 0, 0, 600, 600)) then
      begin
        movemousesmooth(x, y)
          wait(10 + random(6))
          FindEnt;
        wait(900 + random(300))
          if UpText(Chop down(TreeType))
          wait(500 + random(300))
          clickmouse(x, y(random))
          c := c + 1;
        wait(2000 + random(1000))
          AntiBans;
        AxeCheking;
      end else
      begin
        repeat
      end;
    end;
    end;

    //Start Dropping\\

    procedure DropLogs;
    begin
      AntiBans;
      AntiRandoms;
      DropAllLogs;
      AntiBans;
    end;

    //Main Loop\\

    procedure PowerCut
    begin
      ChopLogs;
      wait(30 + random(20))
        DropLogs;
      ProgressReport;
      repeat
      until (logOutNum = LoadsToDo)
        LogOut;
    end.

  6. #6
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ok ty ill try yours and guys here my new version i made it messes up but i dont care and it doesnt even work i dont think
    //////// ////////// / /L //////// //////////// ////// N///
    //BBBBBB// //EEEEEE// //L //GGGGG// IIII//IIII ///N/// N///
    //BB BBB// //E //L //GGGGGG// I//I ///NN/// N///
    //BBBBBB// ////////// //L // I//I ///N /// N///
    //BBBBB// //EEEEEE// //L //GGGG/////// I//I ///N /// N///
    //BB BB// //E //L //GGG//GG// I//I ///N ///NN///
    //BBBBBBB// //EEEEEE// //LLLLLLL //GGGGG// IIII//IIII ///N ///N///
    ////////// ////////// ////////// /////// //////////// ///N //////

    ////////// //////////// ////////// //H H//
    //FFFFFF// IIII//IIII //SSSSSSS// //H H//
    //F I//I //S //H H//
    //F I//I /////// //HHHHHHH//
    ////////// I//I // ///////////
    //FFFFFFF I//I //SSSSSSS// //HHHHHHH//
    //F IIII//IIII //SSSSSSSS// //H H//
    //F //////////// ////////// //H H//

    //////////////////////////////////////////////////
    //Start Neer Trees //
    //Have Axe In First Iventory Spot or weilded //
    //Fill Out Whats There //
    //Enjoy //
    //Attention:I Took Some Ideas Like The Chek For //
    //Broken Axe From Someone Elses Script But They //
    //Did Not Include Their Name , Sorry //
    //Includes Srl, Thanks Srl Creators //
    //This Is My Very First Script I Know It Sucks //
    //////////////////////////////////////////////////

    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Edit The Things In This Box Only!//
    ////////////////////////////////////////////////////////////////////
    const TreeColor1 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor2 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor3 =3041376;//Color Of The Tree You Want To Chop.
    const TreeType ='Tree';//Enter The Tree Type Here.
    const LoadsToDo =1000; //Times to click trees before logging out.
    const RunDir ='N'; // Direction You Wish To Run If Attacked.
    const AxeWeilded =False; //axe weilded True or False
    ////////////////////////////////////////////////////////////////////

    var
    c:Integer;
    LogOutNum:Integer;

    procedure ProgressReport; //Progress Report
    begin
    ClearDebug;
    Writeln('---------------->Progress Report<------------');
    WriteLn('Cut ' + inttostr(c) + ' logs. ');
    WriteLn('Script Has Been Running ' +TimeRunning);
    Writeln('---------------------------------------------');
    c:=0;
    end;



    //AntiRandoms\\
    procedure AntiRandoms;
    begin
    Status('Searching For Randoms')
    FindNormalRandoms;
    wait(10+random(3))
    FindTalk;
    if(FindFight) then
    begin
    Status ('Found Fight Running Away')
    RunAwayDirection(RunDir);
    wait(4000+random(4560))
    RunBack;
    Status('Random Handled Successfully')
    end;
    end;

    //AntiBan\\
    procedure Antibans;
    begin
    AntiRandoms;
    HoverSkill('WoodCutting',False)
    HoverEvery(5, 'Woodcutting');
    RotateEvery(10);
    PickUpMouse;
    wait(30+random(10))
    case random(80) of
    0: TypeSend('hi');
    1: TypeSend('lol');
    2: TypeSend('rofl');
    3: TypeSend('wc lvls?');
    4: TypeSend('Hello');
    5: TypeSend('hey');
    6: TypeSend('glow2:im bored');
    7: TypeSend('white croll: im bored');
    8: TypeSend('wc is boring');
    9: TypeSend('lalalalala');
    10: TypeSend('i hate Woodcutting!!!!!')
    11: TypeSend('Woodcutting= most boring skill')
    12: TypeSend('WOOOT!! im going for 99wc!')
    13: TypeSend('glow2:MOOOOOOO')
    14: TypeSend('omg i cant wait till i get 60wc!')
    15: TypeSend('YAY!')
    16: TypeSend('woops wrong convo')
    17: TypeSend('this is too time consuming!')
    18: TypeSend('white: isnt there an easier way to get high wc!')
    19: TypeSend('duun dunnn duunnnn dun')
    20: TypeSend('i wana chop yews!!!!')
    end;
    AntiRandoms;
    end;

    //Find Ent\\
    procedure FindAEnt;
    begin
    wait(15+random(3))
    FindEnt(TreeColor1)
    wait(4+random(2))
    end;

    //Chek For Axe Colors\\
    procedure AxeCheking;
    begin
    if AxeWeilded then
    begin
    GameTab(5);
    FindAxeHeadColor;
    if NOT AxeWeilded then
    begin
    FindAxeHeadColor;
    end;
    end;
    end;

    //Chek For Broken Axe is currently screwed\\


    //Chek For Axe Head\\
    procedure LookForAxeHead;
    begin
    FindHead;
    wait(200+random(100))
    AttachHead;
    end;

    //Starting To Chop\\
    procedure ChopLogs;
    var
    x,y:Integer;
    c:Integer;
    begin
    ProgressReport;
    AntiRandoms;
    AxeCheking;
    if (FindColor(x,y,TreeColor1,0,0,600,600)) or
    (FindColor(x,y,TreeColor2,0,0,600,600)) or
    (FindColor(x,y,TreeColor3,0,0,600,600)) then
    begin
    MMouse(x,y,600,600)
    wait(10+random(6))
    FindAEnt;
    wait(900+random(300))
    if IsUpText('Chop down'+TreeType) Then
    begin
    wait (500+random(300))
    Mouse(x,y,600,600,True)
    c:=c+1;
    wait(1000+random(500))
    end else
    begin
    wait (500+random(300))
    Mouse(x,y,600,600,True)
    c:=c+1;
    wait(1000+random(500))
    AntiBans;
    LookForAxeHead;
    IsAxeBroken;
    repeat
    Until(InventoryFull)
    end;
    end;
    end;


    //Start Dropping\\
    procedure DropLogs;
    begin
    if (InventoryFull) then
    begin
    AntiBans;
    AntiRandoms;
    DropAllLogs;
    end;
    end;


    Procedure PowerCut;
    begin
    repeat
    ChopLogs;
    wait(30+random(20))
    DropLogs;
    ProgressReport;
    until(logOutNum=LoadsToDo)
    LogOut;
    end;

    begin
    SetupSRL;
    PowerCut;
    end.
    YoHoJo Is My Daddy
    We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
    WT-Fakawi

  7. #7
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Meh... Use scar tags..

  8. #8
    Join Date
    Dec 2006
    Posts
    281
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default heres the script

    SCAR Code:
    //////// ////////// / /L //////// //////////// ////// N///
    //BBBBBB// //EEEEEE// //L //GGGGG// IIII//IIII ///N/// N///
    //BB BBB// //E //L //GGGGGG// I//I ///NN/// N///
    //BBBBBB// ////////// //L // I//I ///N /// N///
    //BBBBB// //EEEEEE// //L //GGGG/////// I//I ///N /// N///
    //BB BB// //E //L //GGG//GG// I//I ///N ///NN///
    //BBBBBBB// //EEEEEE// //LLLLLLL //GGGGG// IIII//IIII ///N ///N///
    ////////// ////////// ////////// /////// //////////// ///N //////

    ////////// //////////// ////////// //H H//
    //FFFFFF// IIII//IIII //SSSSSSS// //H H//
    //F I//I //S //H H//
    //F I//I /////// //HHHHHHH//
    ////////// I//I // ///////////
    //FFFFFFF I//I //SSSSSSS// //HHHHHHH//
    //F IIII//IIII //SSSSSSSS// //H H//
    //F //////////// ////////// //H H//

    //////////////////////////////////////////////////
    //Start Neer Trees //
    //Have Axe In First Iventory Spot or weilded //
    //Fill Out Whats There //
    //Enjoy  //
    //Attention:I Took Some Ideas Like The Chek For //
    //Broken Axe From Someone Elses Script But They //
    //Did Not Include Their Name , Sorry //
    //Includes Srl, Thanks Srl Creators //
    //This Is My Very First Script I Know It Sucks //
    //////////////////////////////////////////////////

    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}


    //Edit The Things In This Box Only!//
    ////////////////////////////////////////////////////////////////////
    const TreeColor1 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor2 =3041376;//Color Of The Tree You Want To Chop.
    const TreeColor3 =3041376;//Color Of The Tree You Want To Chop.
    const TreeType ='Tree';//Enter The Tree Type Here.
    const LoadsToDo =1000; //Times to click trees before logging out.
    const RunDir ='N'; // Direction You Wish To Run If Attacked.
    const AxeWeilded =False; //axe weilded True or False
    ////////////////////////////////////////////////////////////////////

    var
    c:Integer;
    LogOutNum:Integer;

    procedure ProgressReport; //Progress Report
    begin
     ClearDebug;
     Writeln('---------------->Progress Report<------------');
     WriteLn('Cut ' + inttostr(c) + ' logs. ');
     WriteLn('Script Has Been Running ' +TimeRunning);
     Writeln('---------------------------------------------');
     c:=0;
    end;



    //AntiRandoms\\
    procedure AntiRandoms;
    begin
     Status('Searching For Randoms')
     FindNormalRandoms;
     wait(10+random(3))
     FindTalk;
     if(FindFight) then
     begin
      Status ('Found Fight Running Away')
      RunAwayDirection(RunDir);
      wait(4000+random(4560))
      RunBack;
      Status('Random Handled Successfully')
     end;
    end;

    //AntiBan\\
    procedure Antibans;
    begin
     AntiRandoms;
     HoverSkill('WoodCutting',False)
     HoverEvery(5, 'Woodcutting');
     RotateEvery(10);
     PickUpMouse;
     wait(30+random(10))
     case random(80) of
     0: TypeSend('hi');
     1: TypeSend('lol');
     2: TypeSend('rofl');
     3: TypeSend('wc lvls?');
     4: TypeSend('Hello');
     5: TypeSend('hey');
     6: TypeSend('glow2:im bored');
     7: TypeSend('white croll: im bored');
     8: TypeSend('wc is boring');
     9: TypeSend('lalalalala');
     10: TypeSend('i hate Woodcutting!!!!!')
     11: TypeSend('Woodcutting= most boring skill')
     12: TypeSend('WOOOT!! im going for 99wc!')
     13: TypeSend('glow2:MOOOOOOO')
     14: TypeSend('omg i cant wait till i get 60wc!')
     15: TypeSend('YAY!')
     16: TypeSend('woops wrong convo')
     17: TypeSend('this is too time consuming!')
     18: TypeSend('white: isnt there an easier way to get high wc!')
     19: TypeSend('duun dunnn duunnnn dun')
     20: TypeSend('i wana chop yews!!!!')
    end;
     AntiRandoms;
    end;

    //Find Ent\\
    procedure FindAEnt;
    begin
     wait(15+random(3))
     FindEnt(TreeColor1)
     wait(4+random(2))
    end;

    //Chek For Axe Colors\\
    procedure AxeCheking;
    begin
     if AxeWeilded then
     begin
      GameTab(5);
      FindAxeHeadColor;
      if NOT AxeWeilded then
      begin
       FindAxeHeadColor;
      end;
     end;
    end;
    //chek for broken axe is currently screwed\\


    //Chek For Axe Head\\
    procedure LookForAxeHead;
    begin
     FindHead;
     wait(200+random(100))
     AttachHead;
    end;

    //Starting To Chop\\
    procedure ChopLogs;
    var
    x,y:Integer;
    c:Integer;
    begin
     ProgressReport;
     AntiRandoms;
     AxeCheking;
     if (FindColor(x,y,TreeColor1,0,0,600,600)) or
     (FindColor(x,y,TreeColor2,0,0,600,600)) or
     (FindColor(x,y,TreeColor3,0,0,600,600)) then
     begin
      MMouse(x,y,600,600)
      wait(10+random(6))
      FindAEnt;
      wait(900+random(300))
      if IsUpText('Chop down'+TreeType) Then
      begin
       wait (500+random(300))
       Mouse(x,y,600,600,True)
       c:=c+1;
       wait(1000+random(500))
       end else
       begin
        wait (500+random(300))
        Mouse(x,y,600,600,True)
        c:=c+1;
        wait(1000+random(500))
        AntiBans;
        LookForAxeHead;
        IsAxeBroken;
        repeat
        Until(InventoryFull)
       end;
      end;
    end;


    //Start Dropping\\
    procedure DropLogs;
    begin
     if (InventoryFull) then
     begin
      AntiBans;
      AntiRandoms;
      DropAllLogs;
     end;
    end;


    Procedure PowerCut;
    begin
     repeat
     ChopLogs;
     wait(30+random(20))
     DropLogs;
     ProgressReport;
     until(logOutNum=LoadsToDo)
     LogOut;
    end;

    begin
     SetupSRL;
     PowerCut;
    end.
    YoHoJo Is My Daddy
    We do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at,thats what we do."
    WT-Fakawi

  9. #9
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Please Credit the things you take......
    http://www.sythe.org/showthread.php?t=196504

  10. #10
    ronny.m.p Guest

    Default

    Also use mine it's easier to read so other people can edit it easier

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Read this before posting a first script!
    By Pure1993 in forum Outdated Tutorials
    Replies: 12
    Last Post: 01-17-2009, 12:28 PM
  2. I need a script( please read)
    By Pwnage 8x in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 08-01-2007, 04:12 PM
  3. This isnt a script but its much better...READ MORE
    By mage of begu in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 12-25-2006, 01:34 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
  •