Results 1 to 6 of 6

Thread: Noob Question

  1. #1
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Noob Question

    Yea k this is a noob question but its one of the beginner things that I skipped learning. K im chopping a yew tree, and it is the only one around. Once it disappears, it moves the mouse around the screen looking for another one to chop. I know there is a way, but what would I put to make it search for about 7 seconds then make it "do what i want it to do" Thanks.

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

    Default

    So you want the script to search for a yew tree max. 7 sec and then 'do what you want it to do?'

    SCAR Code:
    Var
      T : Integer;

    Begin
      //All other stuff etc.
      MarkTime(T);
      While TimeFromMark(T) < 7000 Do
      Begin
        SearchYew;
      End;
    End.
    Ce ne sont que des gueux


  3. #3
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by floor66 View Post
    So you want the script to search for a yew tree max. 7 sec and then 'do what you want it to do?'

    SCAR Code:
    Var
      T : Integer;

    Begin
      //All other stuff etc.
      MarkTime(T);
      While TimeFromMark(T) < 7000 Do
      Begin
        SearchYew;
      End;
    End.
    Wow thanks alot

    Edit: ok Im a little lost, where would I add it?

    SCAR Code:
    procedure ChopY;
    begin
      if (WhereToChop = 'DW') then Exit;
      if (PowerChop) then Exit;
      if not FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1,['ew','ew'])then // IF IT DOESNT FIND THE TREE AFTER 7 SECONDS...
      RandomGameTab; // THEN IT WILL DO THESE
      RandomRClick;      // THEN IT WILL DO THESE
      FastAntiBan;        // THEN IT WILL DO THESE
      FindSomeTalk;      // THEN IT WILL DO THESE, THEN IT WILL START ChopY; AGAIN
      repeat
        repeat
          repeat
        if FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1,['ew','ew'])then
        YTPA;
        FindEnt(x,y, True);
        Case random(2) of
         0 : begin
               FindEnt(x,y, True);
               if IsUpText('hop') then
               begin
                 Mouse(x, y, 2, 2, False);
                 Disguise('Chopping Yews...');
                 Wait(300 + Random(243));
                 ChooseOption('hop');
                 Wait(5000 + Random(1854));
                 RandomGameTab;
                 FindEnt(x,y, True);
                 FindBirdsNest;
                 FastAntiBan;
                 if FindObjTPA(x, y, 6391421, 10, 20, 10, 10, 1,['hop','illow'])then
                 FindEnt(x,y, True);
                 Mouse(x, y, 2, 2, True);
               end;
              end;
         1 : begin
               FindEnt(x,y, True);
               if IsUpText('hop') then
               begin
                 Mouse(x, y, 2, 2, True);
                 Disguise('Chopping Yews...');
                 Wait(300 + Random(243));
                 ChooseOption('hop');
                 RandomGameTab;
                 FindEnt(x,y, True);
                 AntiRandoms;
                 FindBirdsNest;
                 Wait(5000 + Random(1976));
               end;
             end;
          end;
       until invfull;
       until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
       SetupPlayers;
       until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
    end;

  4. #4
    Join Date
    May 2007
    Location
    England
    Posts
    4,140
    Mentioned
    11 Post(s)
    Quoted
    266 Post(s)

    Default

    You'd add that after the script had just chopped the tree down, so around here somewhere
    SCAR Code:
    if FindObjTPA(x, y, 6391421, 10, 20, 10, 10, 1,['hop','illow'])then
                 FindEnt(x,y, True);
                 Mouse(x, y, 2, 2, True);
    <3

    Quote Originally Posted by Eminem
    I don't care if you're black, white, straight, bisexual, gay, lesbian, short, tall, fat, skinny, rich or poor. If you're nice to me, I'll be nice to you. Simple as that.

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

    Default

    SCAR Code:
    Procedure ChopY;
    Var
      T : Integer;
      F : Boolean;
    Begin
      If (WhereToChop = 'DW') Then Exit;
      If (PowerChop) Then Exit;
      T := 0;
      F := False;
      MarkTime(T);
      While TimeFromMark(T) < 7000 Do
      Begin
        if FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1,['ew','ew']) then F := True;  //7 sec finding...
      End;
      If Not F Then
      Begin
        RandomGameTab; // THEN IT WILL DO THESE
        RandomRClick;      // THEN IT WILL DO THESE
        FastAntiBan;        // THEN IT WILL DO THESE
        FindSomeTalk;      // THEN IT WILL DO THESE, THEN IT WILL START ChopY; AGAIN
      End;
      Repeat
        Repeat
          Repeat
            If FindObjTPA(x, y, 3165511, 10, 20, 10, 10, 1, ['ew', 'ew']) Then
            YTPA;
            FindEnt(x,y, True);
            Case random(2) Of
              0 : Begin
                    FindEnt(x,y, True);
                    If IsUpText('hop') Then
                    Begin
                     Mouse(x, y, 2, 2, False);
                     Disguise('Chopping Yews...');
                     Wait(300 + Random(243));
                     ChooseOption('hop');
                     Wait(5000 + Random(1854));
                     RandomGameTab;
                     FindEnt(x,y, True);
                     FindBirdsNest;
                     FastAntiBan;
                     If FindObjTPA(x, y, 6391421, 10, 20, 10, 10, 1, ['hop', 'illow']) Then
                     FindEnt(x,y, True);
                     Mouse(x, y, 2, 2, True);
                    End;
                  End;
              1 : Begin
                    FindEnt(x,y, True);
                    If IsUpText('hop') Then
                    Begin
                      Mouse(x, y, 2, 2, True);
                      Disguise('Chopping Yews...');
                      Wait(300 + Random(243));
                      ChooseOption('hop');
                      RandomGameTab;
                      FindEnt(x,y, True);
                      AntiRandoms;
                      FindBirdsNest;
                      Wait(5000 + Random(1976));
                    End;
                  End;
            End;
          Until(InvFull);
        Until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
        SetupPlayers;
      Until(Players[CurrentPlayer].Integers[0] >= Players[CurrentPlayer].Integers[0]);
    End;
    Ce ne sont que des gueux


  6. #6
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. noob question
    By dudeperson in forum OSR Help
    Replies: 3
    Last Post: 04-28-2007, 11:46 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
  •