Results 1 to 5 of 5

Thread: a lil help

  1. #1
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default a lil help

    ok my scripts pretty good i mean it works great and everything its just that it sets for like 20 seconds b4 it looks for another tree i think its because my anti randoms but please let me know what u think vould fix this prob

    SCAR Code:
    program PowerChopper;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Extended/xAntiRandoms.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}


    //////////////////////////////////////////////////
    //              Instructions                    //
    // 1.Start anywhere by trees.                   //
    // 2.Set the color of the tree.                 //
    // 3.Equip the axe of your choice.              //
    // 4.Set the new RS window.                     //
    // 5.Move the scar window over clear to the left//
    // 6.Hit RUN!!!                                 //
    //////////////////////////////////////////////////

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

    ///////////////////Setup/////////////
    var
    Loads: Integer;
    Logz: Integer;
    Exp: Integer;
    Tries: Integer;

    const
    TreeColor=798760; //change if it doesnt find the tree

    procedure DeclarePlayers;
    begin
     HowManyPlayers:=6; //Don't Change if you want more players just fill in their info and set their active to: True
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer := 0; //Player to start on
     
      Players[0].Name :='username';  //Fill in your username
      Players[0].Pass :='password';  //Fill in your password
      Players[0].Nick :='nick';      //2-3 letters of your username
      Players[0].Active :=True;      //Set true if you want to use this player
      Players[0].Integer1 := 000;    //How many loads to do
     
      Players[1].Name := 'UserName'; //Fill in your username
      Players[1].Pass := 'Password';  //Fill in your password
      Players[1].Nick := 'Nick';      //2-3 letters of your username
      Players[1].Active := False;     //Set true if you want to use this player
      Players[1].Integer1 := 000;

      Players[2].Name := 'UserName';  //Fill in your username
      Players[2].Pass := 'Password';  //Fill in your password
      Players[2].Nick := 'Nick';      //2-3 letters of your username
      Players[2].Active := False;     //Set true if you want to use this player
      Players[2].Integer1 := 000;

      Players[3].Name := 'UserName';  //Fill in your username
      Players[3].Pass := 'Password';  //Fill in your password
      Players[3].Nick := 'Nick';      //2-3 letters of your username
      Players[3].Active := False;     //Set true if you want to use this player
      Players[3].Integer1 := 000;

      Players[4].Name := 'UserName';  //Fill in your username
      Players[4].Pass := 'Password';  //Fill in your password
      Players[4].Nick := 'Nick';      //2-3 letters of your username
      Players[4].Active := False;     //Set true if you want to use this player
      Players[4].Integer1 := 000;

      Players[5].Name := 'UserName';   //Fill in your username
      Players[5].Pass := 'Password';   //Fill in your password
      Players[5].Nick := 'Nick';       //2-3 letters of your username
      Players[5].Active := False;      //Set true if you want to use this player
      Players[5].Integer1 := 000;
     
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
    end;

    ///////////////Don't Touch Below This//////////////////////

    procedure FindTree;
    var
     i:Integer;
    begin
    if(FindObj(x,y,'hop',TreeColor,10))then
     begin
     Mouse(x,y,5,5,True)
      repeat
      Wait(2000+random(200));
      Tries := Tries + 1;
      i:=i+1
      if(Tries = 20)then
      begin
       Writeln('Could not find trees, try moving your player.');
       TerminateScript;
       end;
      until(InChat('logs.'))or(I>=8);
     end;
    i:=0
    end;

    procedure Drop;
    begin
    DropTo (2,28);
    end;

      function InventoryCount1: Integer;
    {var
      used, i, e: Integer;
    begin
      e := 0;
      i := 0;
      used := 0;
      GameTab(4);
      while (i < 6) do
      begin
        if (i = 5) and (e < 8) then
        begin
          i := 0;
          e := e + 1;
        end;
        if (FindColor(x, y, 65536, (571 + 47 * i), (215 + 36 * e), (601 + 47 * i), (245 + 36 * e))) then
          used := used + 1;
        i := i + 1;
      end;
      Result := used;
    end; }

    var
      Mx, My, e, i: Integer;
    begin
      GameTab(4);
      for e := 0 to 6 do
      begin
        for i := 0 to 4 do
        begin
          Mx := (561 + (i * 43));
          My := (209 + (e * 37));
          if (FindColorSpiral(x, y, 65536, Mx, My, Mx + 40, My + 35)) then
            Result := Result + 1;
            Loads:= Loads + 1;
        end;
      end;
    end;

    ///////////////Anti-Randoms//////////////////

    procedure Randoms;
    begin
    Findnormalrandoms;
    FindHead;
    FindLamp('Woodcutting');
     if FindFight then //if finds that you're in a fight
      begin
       RunAwayDirection('N'); //runs north (s, w, e)
       Wait(9000+random(2000)); //waits
       RunBack;//Runs back
      end;
    end;

    ////////////////////Progress Report/////////////////

    Procedure Progreport;
    begin
    Logz := Loads * 28
    Exp := Logz * 25
    Writeln('|-------------Teams Chopper-------------------|');
    Writeln('|---------------------------------------------|');
    Writeln('|Worked For : ' + TimeRunning)
    Writeln('|Chopped '+IntToStr(Loads) + ' Loads');
    Writeln('|Chopped '+ IntToStr(Logz) + ' Logs');
    Writeln('|Gained Approx. ' + IntToStr(Exp) + ' XP');
    Writeln('|---------------------------------------------|');
    end;


    //////////////////Loop's////////////////////

    procedure ScriptSetup;
    begin
     ClearDebug;
     SetupSRL;
     DeclarePlayers;
     end;

    ////////////////////Main Loop/////////////////////
     
     begin
      ScriptSetup;
      NEWLINE:='';
     If(not(LoggedIn)) then
     LoginPlayer;
      repeat
       repeat
        repeat
        FindTree;
        Randoms;
        AntiBan;
        until(invfull);
       FindEnt(TreeColor);
       Drop;
       Until Loads >= Players[CurrentPlayer].Integer1
     if Loads >= Players[CurrentPlayer].Integer1 then
     Progreport;
     NextPlayer(True);
     Loads:=0
    Until False
    end.

  2. #2
    Join Date
    Feb 2007
    Location
    Toronto, Ontario, Canada
    Posts
    586
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Could be a number of things, hard to say...look for any waits that you have looped, if you find any try rechecking the conditions, also make sure that your waits aren't too long...anti-randoms should not take too long if you just have FindNormalRandoms/FindFastRandoms.

  3. #3
    Join Date
    Apr 2007
    Posts
    169
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    why you have hose included:
    {.include SRL/SRL/Extended/xAntiban.scar}
    {.include SRL/SRL/Extended/xAntiRandoms.scar}
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig

    http://www.fenjer.com/adnan/SRL/20/33/BucketX.png

    http://www.fenjer.com/adnan/SRLStats/742.png

  4. #4
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    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)

Posting Permissions

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