Results 1 to 4 of 4

Thread: Need help!!!

  1. #1
    Join Date
    Nov 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help!!!

    SCAR Code:
    program TreeCutter;
    {.include SRL\SRL.scar}
    {.include srl\srl\skill\WoodCutting.scar}
    /////////////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////////////////////
    //      \       /                                                           \       /  //
    //       \     /               _ _ _ _                                       \     /   //
    //        \   /       _ _ _   |           _ _ _ _ _ _      _         _        \   /    //
    //         \ /       |        |                |      |   | \       / |        \ /     //
    //          \        |        |                |      |   |  \     /  |         \      //
    //         / \       |_ _ _   |                |      |   |   \   /   |        / \     //
    //        /   \            |  |                |      |   |    \_/    |       /   \    //
    //       /     \           |  |                |      |   |           |      /     \   //
    //      /       \     _ _ _|  |_ _ _ _    _ _ _|_ _ _ |   |           |     /       \  //
    /////////////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////////////////////
    //                              ~*~SETUP*SETUP*SETUP*SETUP~*~                          //
    //                                                                                     //
    //                      Details: V-Bright, Low Detail, Least Full world!               //
    //                      Start next to your desired TREES!                              //
    //                      Enter Colours For the TREE you want to CUT!                    //
    //                      Author: X S C Il M X                                           //
    //                      Version: 1.00!                                                 //
    //                      Date: 12th November 2006 !                                     //
    //                      Post all Errors in the Thread Thanks!                          //
    //                      Have Axe in First Inventory Slot!                              //
    //                      Setup Lines  45-52!                                            //
    //                      Must Have SRL!!!!!!!!!!!!                                      //
    /////////////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////////////////////
    //                                  DO NOT TOUCH                                       //
    //                                  DO NOT TOUCH                                       //
    //                                                                                     //
    //                       Comments: THIS IS MY FIRST SCRIPT EVER!                       //
    //                       Comments: THIS IS MY FIRST SCRIPT EVER!                       //
    /////////////////////////////////////////////////////////////////////////////////////////
    /////////////////////////////////////////////////////////////////////////////////////////
    var
      a, b: Integer;
        A1, A2, A3, H: Integer;
      BTimes, STimes, FTimes, ETimes: Integer;
     
     
    //Setup Setup Setup Setup\\

    const
      HowManyDrops = 100;     // How many drops do you want the script to do
      WaitTime     = 3501;    // Time between Cutting the Tree (Milliseconds)

      TreeColor1 = 802872;   //Color of Tree (1)
      TreeColor2 = 5075056;   //Color of Tree (2)
      TreeColor3 = 2254936;   //Color of Tree (3)
     
    //End of Setup End of Setup\\
         VersionNumber = 'v1.00 by X S C Il M X'; // DONT LEECH!!!!!!


    //Chat\\

    procedure SetupScript;
    begin
      MakeCompass('N');
      SetChat('Off', 1);
      SetChat('Off', 2);
      SetChat('Off', 3);
      SetRun(true);
      GameTab(4);
    end;

    //Progress Report\\

    procedure ProgressReport;
    begin
      begin
        WriteLn(' ');
        WriteLn('~*~*~*~*~*~   ' + VersionNumber + '     Progress Report ~*~*~*~*~*~');
        WriteLn(' Cut: ' + inttostr(STimes) + ' Log(s)! ');
        WriteLn(' Dropped:  ' + inttostr(BTimes) + ' Inventory of Log(s)! ');
        WriteLn(' Fixed   ' + inttostr(FTimes) + ' Axe(s)! ');
        WriteLn(' Found:   ' + inttostr(ETimes) + ' Ent(s)! ');
            Writeln(' This Script has been running for: ' + TimeRunning + ' Minutes! ');
        end;
    end;



    //Chop Trees\\
    procedure ChopTrees;
    begin
      if (FindMainColor(a, b, TreeColor1, 3, true)) or
        FindMainColor(a, b, TreeColor2, 2, true) or
        FindMainColor(a, b, TreeColor3, 3, true) then
      begin
        repeat
          STimes := STimes + 1
          wait(1023 + random(323 * 5 / 2));
          if (IsUpText('Chop Down')) then
            MMouse(a, b, 1, 2);
          GetMousePos(a, b);
          Mouse(a, b, 1, 2, true);
          wait(WaitTime + Random(329 * 8 / 2 + 3 - 1));
        until (InvFull);
        ProgressReport;
      end;
    end;


    //Repeat all processes\\
    procedure MainLoop;
    begin
      repeat
        SetupScript;
        ChopTrees;
      until (HowManyDrops = BTimes);
      Logout;
      Writeln('Thanks for using the WillowChopper by X S C Il M X !');
    end;
    //Disguise Scar and reset everything\\
    begin
      STimes := 0
      BTimes := 0
      FTimes := 0
      ETimes := 0
        ProgressReport;
      Writeln('You are using the WillowChopper by X S C Il M X!');
      SetupSRL;
      DisguiseScar('DO$H');
      MainLoop;
    end.

    can someone test it because i did and it din't chop trees so can you try and help me if it doesnt work thanks!

  2. #2
    Join Date
    Sep 2006
    Location
    Scripter's Heaven
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    very good for a first time poster.

    some pointers-

    you only need to call setupscript once

    move your mouse THEN check if the uptext is there

    there are many things that are a little of in terms of the order

    try to follow these general guidlines
    Code:
    setupsrl
    loadplayernamesandpasswords
    setchatandwhatever
    repeat
      repeat
        checkforrandoms
        if findcolors then begin
            movemousetocolorspot
            if Choptextisup then  begin
            clickthere
            sleep
            end
          end
        until inventoryisfull
      dropallthelogs
      until doneenoughloads
    of course if you are keeping track of the number of loads done and stuff you can increment the counters of that in the middle of the loop.

    that is the simple stucture, if you want to add autoresponders and antiban stuff, you should put that stuff in at the same time as randoms checks

    And check out my pascal interpreter!
    <R0b0t1> No, really, I went to a bar and picked up a transvestite.

  3. #3
    Join Date
    Sep 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Adding to lards lecture instead of having IsUpText ( 'Chop Down' ) you should do IsUpTextMulti ( 'Chop', 'hop', 'op' )

    Otherwise you might start straying away from the willows to cut down some dead trees

  4. #4
    Join Date
    Nov 2006
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks and im almost finished

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
  •