Results 1 to 11 of 11

Thread: How do you put in the record display?

  1. #1
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default How do you put in the record display?

    Some people have it so there bot record how many logs, drops, pockets, xp etc. the bot got u. I wanted to know how to do that too. How?

  2. #2
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    SCAR Code:
    Procedure ChopLog;
    Begin
      Repeat
        //stuff to chop the log
      Until(LogChopped);
      Inc(TotalLogs); //logs + 1
    End;

    They just create a variable that holds the total and add to that
    Ce ne sont que des gueux


  3. #3
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Umm, bit confused (plus i alrdy have untill invfull)how would i put it in debug box?
    Heres my code in case
    Code:
                            /////////////\\\\\\\\\\\\\
                           ////////////SCAR\\\\\\\\\\\\
                          ///////////////\\\\\\\\\\\\\\\
                         //////////////SCAR\\\\\\\\\\\\\\
                        /////////////////\\\\\\\\\\\\\\\\\
                       ////////////////SCAR\\\\\\\\\\\\\\\\
                      ///////////////////\\\\\\\\\\\\\\\\\\\
                     //////////////////SCAR\\\\\\\\\\\\\\\\\\
                    /////////////////////\\\\\\\\\\\\\\\\\\\\\
                   ////////////////////SCAR\\\\\\\\\\\\\\\\\\\\
                  ///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
                 //////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\
                /////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
               ////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\
              ///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
             //////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\
            /////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
           ////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\
          ///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
         //////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        /////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
       //////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\
      /////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\
     //////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    
    Program WoodCutter;
     {.Include SRL/SRL.Scar}
    
     Var I: Integer;
     
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    
    Procedure DeclarePlayers;
    Begin
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
    Writeln('|  Edgville Willow Cutter Ver. 0.0.3A      |')
    Writeln('|By ECHO Productions made by Zerghunter3000|')
    Writeln('|  Thanks to http://www.Villavu.com/       |')
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
     HowManyPlayers := 1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0;
    
     Writeln('{{Logging in...}}');
    
     Players[0].Name := '';   // Put your Username here.
     Players[0].Pass  := '';   // Put your Password here.
     Players[0].Nick   := '';   // Put 3 letters of your username here. (No Caps)
     Players[0].Active  := True;
     Writeln('{{Logged in.}}')
    
    End;
    
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    {You can Edit the phrase in between the '' if you would like.}
    
    Procedure BoringTalk;
    Begin
      If Not LoggedIn Then Exit;
    
      FindNormalRandoms;
      Case Random(120) Of
          0: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('WoodCutting is so boring...')
    End;
          1: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just CANT WAIT! Untill 99 woodcutiing!')
    End;
          2: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('This is gonna take forever...')
    End;
          3: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('Why did Jagex have to make this so dang hard!')
    End;
          4: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just wanna kill all the trees in RuneScape!')
      End;
     End;
    End;
    
    
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    
    Procedure DropPocket;
    Begin
      If Not LoggedIn Then Exit;
    
      FindNormalRandoms;
      Case Random(3) Of
          0: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1274 + Random(631));
      Writeln('{{Emptying Inventory...}}');
       For I := 2 to 28 Do
      DropItem(I);
    End;
          1: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1412 + Random(242));
      Writeln('{{Emptying Inventory...}}');
       For I := 20 to 28 Do
      DropItem(I);
       For I := 2 to 19 Do
      DropItem(I);
    End;
          2: Begin
      Writeln('{{Inventory Full.}}');
       Wait(937 + Random(619));
      Writeln('{{Emptying Inventory...}}');
       For I := 17 to 24 Do
      DropItem(I);
       For I := 2 to 16 Do
      DropItem(I);
       For I := 25 to 28 Do
      DropItem(I);
      End;
     End;
    End;
    
    Procedure AntiBan;
    Begin
      If Not LoggedIn Then Exit;
    
      FindNormalRandoms;
      Case Random(50) Of
          0: Begin
             Writeln('{{Commencing WoodCutting Skill Check...}}');
             HoverSkill('woodcutting',false);
             Wait(2453 + Random(432));
           End;
    
        1: Begin
             Writeln ('{{Commencing Mouse Pick up...}}');
             PickUpMouse;
           End;
    
        2: Begin
             Writeln('{{Commencing Turns : N, S ,N}}')
             MakeCompass('N');
             Wait(341 + Random(124));
             Makecompass('S');
             Wait(124 + Random(131));
             MakeCompass('N');
             FindNormalRandoms;
           End;
    
        3: Begin
             Writeln('{{Commencing Turns : E, W ,S}}')
             MakeCompass('E');
             Wait(100 + Random(133));
             Makecompass('W');
             Wait(50 + Random(133));
             MakeCompass('S');
             FindNormalRandoms;
           End;
    
        4: Begin
             Writeln('{{Commencing Turns : S, E ,N}}')
             MakeCompass('S');
             Wait(854 + Random(244));
             Makecompass('E');
             Wait(674 + Random(367));
             MakeCompass('N');
             FindNormalRandoms;
        End;
      End;
    End;
    
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    
    Procedure ChopTree;
    Var
      X, Y: Integer;
    Begin
     If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.')
      Repeat
        MakeCompass('N');
        BoringTalk;
        FindNormalRandoms;
        If FindObj(X, Y, 'hop', 2575932, 35) Then
      Begin
        Writeln('{{Found Tree...}}');
        Mouse(x, y, 0, 0, False);
        Writeln('{{Cutting Down Tree...}}');
        ChooseOption('hop');
        BoringTalk;
    End;
        Repeat
          Wait(1252 + Random(221));
            AntiBan;
          Until Not IsUpText('illow') or InvFull;
            Until(InvFull);
    
      If InvFull Then
     DropPocket;
     ChopTree;
    End;
    
    Begin
     SetUpSRL;
     ActivateClient;
     DeclarePlayers;
     Repeat
       ChopTree;
     Until(AllPlayersInactive);
    End.
    Last edited by Zerghunter3000; 10-25-2009 at 03:49 PM.

  4. #4
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    SCAR Code:
    /////////////\\\\\\\\\\\\\
                           ////////////SCAR\\\\\\\\\\\\
                          ///////////////\\\\\\\\\\\\\\\
                         //////////////SCAR\\\\\\\\\\\\\\
                        /////////////////\\\\\\\\\\\\\\\\\
                       ////////////////SCAR\\\\\\\\\\\\\\\\
                      ///////////////////\\\\\\\\\\\\\\\\\\\
                     //////////////////SCAR\\\\\\\\\\\\\\\\\\
                    /////////////////////\\\\\\\\\\\\\\\\\\\\\
                   ////////////////////SCAR\\\\\\\\\\\\\\\\\\\\
                  ///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
                 //////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\
                /////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
               ////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\
              ///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
             //////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\
            /////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
           ////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\
          ///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
         //////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        /////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
       //////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\
      /////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\
     //////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

    Program WoodCutter;
     {.Include SRL/SRL.Scar}

     Var I, TotalChopped: Integer;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure DeclarePlayers;
    Begin
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
    Writeln('|  Edgville Willow Cutter Ver. 0.0.3A      |')
    Writeln('|By ECHO Productions made by Zerghunter3000|')
    Writeln('|  Thanks to [url]http://www.Villavu.com/[/url]       |')
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
     HowManyPlayers := 1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0;

     Writeln('{{Logging in...}}');

     Players[0].Name := '';   // Put your Username here.
     Players[0].Pass  := '';   // Put your Password here.
     Players[0].Nick   := '';   // Put 3 letters of your username here. (No Caps)
     Players[0].Active  := True;
     Players[0].Booleans[0]  := True;   // Is axe equipped?
     Writeln('{{Logged in.}}')

    End;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    {You can Edit the phrase in between the '' if you would like.}

    Procedure BoringTalk;
    Begin
      If Not LoggedIn Then Exit;

      FindNormalRandoms;
      Case Random(120) Of
          0: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('WoodCutting is so boring...')
    End;
          1: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just CANT WAIT! Untill 99 woodcutiing!')
    End;
          2: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('This is gonna take forever...')
    End;
          3: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('Why did Jagex have to make this so dang hard!')
    End;
          4: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just wanna kill all the trees in RuneScape!')
      End;
     End;
    End;


    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure DropPocket;
    Begin
      If Not LoggedIn Then Exit;
      If Players[CurrentPlayer].Booleans[0] = True Then       //
        IncEx(TotalChopped, 28)                               //adds 28 if axe is equipped
      Else                                                    //or 27 if its in inv
        IncEx(TotalChopped, 27);                              //

      FindNormalRandoms;
      Case Random(3) Of
          0: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1274 + Random(631));
      Writeln('{{Emptying Inventory...}}');
       For I := 2 to 28 Do
      DropItem(I);
    End;
          1: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1412 + Random(242));
      Writeln('{{Emptying Inventory...}}');
       For I := 20 to 28 Do
      DropItem(I);
       For I := 2 to 19 Do
      DropItem(I);
    End;
          2: Begin
      Writeln('{{Inventory Full.}}');
       Wait(937 + Random(619));
      Writeln('{{Emptying Inventory...}}');
       For I := 17 to 24 Do
      DropItem(I);
       For I := 2 to 16 Do
      DropItem(I);
       For I := 25 to 28 Do
      DropItem(I);
      End;
     End;
     WriteLn('');
     WriteLn('Chopped '+ IntToStr(TotalChopped) +' logs.');
    End;

    Procedure AntiBan;
    Begin
      If Not LoggedIn Then Exit;

      FindNormalRandoms;
      Case Random(50) Of
          0: Begin
             Writeln('{{Commencing WoodCutting Skill Check...}}');
             HoverSkill('woodcutting',false);
             Wait(2453 + Random(432));
           End;

        1: Begin
             Writeln ('{{Commencing Mouse Pick up...}}');
             PickUpMouse;
           End;

        2: Begin
             Writeln('{{Commencing Turns : N, S ,N}}')
             MakeCompass('N');
             Wait(341 + Random(124));
             Makecompass('S');
             Wait(124 + Random(131));
             MakeCompass('N');
             FindNormalRandoms;
           End;

        3: Begin
             Writeln('{{Commencing Turns : E, W ,S}}')
             MakeCompass('E');
             Wait(100 + Random(133));
             Makecompass('W');
             Wait(50 + Random(133));
             MakeCompass('S');
             FindNormalRandoms;
           End;

        4: Begin
             Writeln('{{Commencing Turns : S, E ,N}}')
             MakeCompass('S');
             Wait(854 + Random(244));
             Makecompass('E');
             Wait(674 + Random(367));
             MakeCompass('N');
             FindNormalRandoms;
        End;
      End;
    End;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure ChopTree;
    Var
      X, Y: Integer;
    Begin
     If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.')
      Repeat
        MakeCompass('N');
        BoringTalk;
        FindNormalRandoms;
        If FindObj(X, Y, 'hop', 2575932, 35) Then
      Begin
        Writeln('{{Found Tree...}}');
        Mouse(x, y, 0, 0, False);
        Writeln('{{Cutting Down Tree...}}');
        ChooseOption('hop');
        BoringTalk;
    End;
        Repeat
          Wait(1252 + Random(221));
            AntiBan;
          Until Not IsUpText('illow') or InvFull;
            Until(InvFull);

      If InvFull Then
     DropPocket;
     ChopTree;
    End;

    Begin
     SetUpSRL;
     ActivateClient;
     DeclarePlayers;
     Repeat
       ChopTree;
     Until(AllPlayersInactive);
    End.

    That should do it. Though I advise you to go over your script carefully and correctly insert begin and end; everywhere. This:
    SCAR Code:
    if something = true then
    dothat;
    thendothat;

    Has to be:
    SCAR Code:
    if something = true then
    begin
      dothat;
      thendothat;
    end;

    BUT! This would be correct:
    SCAR Code:
    if something = true then
      dothisonly;

    And use correct indention! It will help loads with members app.! (2 spaces):
    SCAR Code:
    If Something = True Then
    Begin
      While Something = True Do
      Begin
        IWantToDoThis;
        If Failed Then
          Break;
      End;
    End;
    Ce ne sont que des gueux


  5. #5
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, the edited script u gave me, does it only tell u how many logs were chopped? and plus how do i edit it so it records loads, xp, etc. and one more querstion: where do i find the records. and how do i make them display themselves?
    Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
    Get it here:
    http://www.villavu.com/forum/showthr...110#post648110
    Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
    (Only if it was that simple)

  6. #6
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    You're making it too difficult for yourself
    Btw, I've already made it say the amount of logs chopped after it has dropped one inv.

    If you want it to count loads, you just make a new variable "TotalLoads" (or whatever you want to call it):
    SCAR Code:
    Var I, TotalChopped, TotalLoads: Integer;

    And where you want TotalLoads to go up by one, put this:
    SCAR Code:
    Inc(TotalLoads);

    I suggest you also read a few tutorials on variables available in the tut section.
    Ce ne sont que des gueux


  7. #7
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes! I got it. Now all I need to know is how to make it display all of this when the script ends.
    Last edited by Zerghunter3000; 10-25-2009 at 04:14 PM.
    Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
    Get it here:
    http://www.villavu.com/forum/showthr...110#post648110
    Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
    (Only if it was that simple)

  8. #8
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    That's odd.. Are you sure you have this:
    SCAR Code:
    Var I, TotalChopped : Integer;
    Ce ne sont que des gueux


  9. #9
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, I have:
    Code:
     Var I, TotalChopped, TotalLoads, TotalXP: Integer;
    and i have them all inserted in script. just need to know how to make it show up the way i want it to at the end of the script.
    i went to: Show Report but its blank so idk how.

    (oh, and how do u do the code thing where the colors are like the ones in the script? i just do:
    [code])
    Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
    Get it here:
    http://www.villavu.com/forum/showthr...110#post648110
    Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
    (Only if it was that simple)

  10. #10
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    [scar] tags
    To show these things you just have to WriteLn them:
    SCAR Code:
    WriteLn('Total chopped: '+ IntToStr(TotalChopped) +'.'); //IntToStr (Integer to String) will make TotalChopped a string
    Ce ne sont que des gueux


  11. #11
    Join Date
    Oct 2009
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thx man, ur a real big help

    (just seeing )
    SCAR Code:
    /////////////\\\\\\\\\\\\\
                           ////////////SCAR\\\\\\\\\\\\
                          ///////////////\\\\\\\\\\\\\\\
                         //////////////SCAR\\\\\\\\\\\\\\
                        /////////////////\\\\\\\\\\\\\\\\\
                       ////////////////SCAR\\\\\\\\\\\\\\\\
                      ///////////////////\\\\\\\\\\\\\\\\\\\
                     //////////////////SCAR\\\\\\\\\\\\\\\\\\
                    /////////////////////\\\\\\\\\\\\\\\\\\\\\
                   ////////////////////SCAR\\\\\\\\\\\\\\\\\\\\
                  ///////////////////////\\\\\\\\\\\\\\\\\\\\\\\
                 //////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\
                /////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
               ////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\
              ///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\
             //////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\
            /////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
           ////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\
          ///////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
         //////////////////////////////SCAR\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
        /////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
       //////////////////////Edgville WoodCutter.scar\\\\\\\\\\\\\\\\\\\\\\
      /////////////////////////////Version 0.0.2\\\\\\\\\\\\\\\\\\\\\\\\\\\\
     //////////////////////////By: Zerghunter3000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////Thanks To: Mario97000\\\\\\\\\\\\\\\\\\\\\\\\\\\\
    /////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

    Program WoodCutter;
     {.Include SRL/SRL.Scar}
     
     Var I, TotalChopped, TotalLoads, TotalXP: Integer;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure DeclarePlayers;
    Begin
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
    Writeln('|  Edgville Willow Cutter Ver. 0.0.3A      |')
    Writeln('|By ECHO Productions made by Zerghunter3000|')
    Writeln('|  Thanks to [url]http://www.Villavu.com/[/url]       |')
    Writeln('|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|')
     HowManyPlayers := 1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0;

    Writeln('{{Logging in...}}');

     Players[0].Name := '';   // Put your Username here.
     Players[0].Pass  := '';   // Put your Password here.
     Players[0].Nick   := '';   // Put 3 letters of your username here. (No Caps)
     Players[0].Active  := True;
     Players[0].Booleans[0]  := True;   // Is axe equipped?
     Writeln('{{Logged in.}}')

    End;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    {You can Edit the phrase in between the '' if you would like.}

    Procedure BoringTalk;
    Begin
      If Not LoggedIn Then Exit;

      FindNormalRandoms;
      Case Random(120) Of
          0: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('WoodCutting is so boring...')
    End;
          1: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just CANT WAIT! Untill 99 woodcutiing!')
    End;
          2: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('This is gonna take forever...')
    End;
          3: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('Why did Jagex have to make this so dang hard!')
    End;
          4: Begin
            Writeln('{{Boring Talk...}}') // <-- Do not Edit This. //
          TypeSend('I just wanna kill all the trees in RuneScape!')
      End;
     End;
    End;


    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure DropPocket;
    Begin
      Inc(TotalLoads);
      If Not LoggedIn Then Exit;
      If Players[CurrentPlayer].Booleans[0] = True Then       //
        IncEx(TotalChopped, 28)                               //adds 28 if axe is equipped
      Else                                                    //or 27 if its in inv
        IncEx(TotalChopped, 27);                              //

      FindNormalRandoms;
      Case Random(3) Of
          0: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1274 + Random(631));
      Writeln('{{Emptying Inventory...}}');
       For I := 2 to 28 Do
      DropItem(I);
    End;
          1: Begin
      Writeln('{{Inventory Full.}}');
       Wait(1412 + Random(242));
      Writeln('{{Emptying Inventory...}}');
       For I := 20 to 28 Do
      DropItem(I);
       For I := 2 to 19 Do
      DropItem(I);
    End;
          2: Begin
      Writeln('{{Inventory Full.}}');
       Wait(937 + Random(619));
      Writeln('{{Emptying Inventory...}}');
       For I := 17 to 24 Do
      DropItem(I);
       For I := 2 to 16 Do
      DropItem(I);
       For I := 25 to 28 Do
      DropItem(I);
      End;
     End;
     WriteLn('');
     WriteLn('Chopped '+ IntToStr(TotalChopped) +' logs.');
    End;

    Procedure AntiBan;
    Begin
      If Not LoggedIn Then Exit;

      FindNormalRandoms;
      Case Random(50) Of
          0: Begin
             Writeln('{{Commencing WoodCutting Skill Check...}}');
             HoverSkill('woodcutting',false);
             Wait(2453 + Random(432));
           End;

        1: Begin
             Writeln ('{{Commencing Mouse Pick up...}}');
             PickUpMouse;
           End;

        2: Begin
             Writeln('{{Commencing Turns : N, S ,N}}')
             MakeCompass('N');
             Wait(341 + Random(124));
             Makecompass('S');
             Wait(124 + Random(131));
             MakeCompass('N');
             FindNormalRandoms;
           End;

        3: Begin
             Writeln('{{Commencing Turns : E, W ,S}}')
             MakeCompass('E');
             Wait(100 + Random(133));
             Makecompass('W');
             Wait(50 + Random(133));
             MakeCompass('S');
             FindNormalRandoms;
           End;

        4: Begin
             Writeln('{{Commencing Turns : S, E ,N}}')
             MakeCompass('S');
             Wait(854 + Random(244));
             Makecompass('E');
             Wait(674 + Random(367));
             MakeCompass('N');
             FindNormalRandoms;
        End;
      End;
    End;

    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////

    Procedure ChopTree;
    Var
      X, Y: Integer;
    Begin
     If Not LoggedIn Then Exit; Writeln('Exiting Script... You Were not Logged In.')
      Repeat
        MakeCompass('N');
        BoringTalk;
        FindNormalRandoms;
        If FindObj(X, Y, 'hop', 2575932, 35) Then
      Begin
        Writeln('{{Found Tree...}}');
        Mouse(x, y, 0, 0, False);
        Writeln('{{Cutting Down Tree...}}');
        ChooseOption('hop');
        BoringTalk;
    End;
        Repeat
          Wait(1252 + Random(221));
            AntiBan;
          Until Not IsUpText('illow') or InvFull;
            Until(InvFull);

      If InvFull Then
     DropPocket;
       Inc(TotalXP);
      If Players[CurrentPlayer].Booleans[0] = True Then
        IncEx(TotalXP, 1890)
      Else
        IncEx(TotalXP, 1822);
        WriteLn('~~~~~~~~~~~~~~~~~~');
        WriteLn('|Total Chopped: '+ IntToStr(TotalChopped) +'.|');
        WriteLn('|Total Loads: '+ IntToStr(TotalLoads) +'.|');
        WriteLn('|Total Experience: '+ IntToStr(TotalXP) +'.|');
        WriteLn('~~~~~~~~~~~~~~~~~~');
     ChopTree;
    End;

    Begin
     SetUpSRL;
     ActivateClient;
     DeclarePlayers;
     Repeat
       ChopTree;
     Until(AllPlayersInactive);
    End.
    Edgville WoodCutter Version 0.0.3 is out! Get it Now! Version 0.0.3!
    Get it here:
    http://www.villavu.com/forum/showthr...110#post648110
    Yesterday is history. - Tommorrow is a Mistery. - But today is a Gift.
    (Only if it was that simple)

Thread Information

Users Browsing this Thread

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

Posting Permissions

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