Results 1 to 13 of 13

Thread: Propper Chopper Problems

  1. #1
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default Propper Chopper Problems

    Im not sure whats wrong but 2 things, it doesnt click the tree. (could be the coolor)

    and if it does click it it jsut clicks it and does nothing after, this is my 4th script

    1. was auto talker version 1
    2. was version 2.
    3. was this auto login thing
    4. was hopfuly this.


    SCAR Code:
    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    var
    LoadNumber:integer;
    const
    IsAxeWeilded = True; // Change to True If Axe Is Weilded
    RunDirection= 'S';
    Tree = 10312;//Colour of tree.
    Treename = 'Maple';
    AmmountOfLoads = 35; //Ammount of loads you want to chop
    waittime=1000;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='cnr sport';
      Players[0].Pass :='aaaaaa';  //thats not my pass
      Players[0].Nick :='cnr';
      Players[0].Active:=True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;


    procedure FakeLogout;
    var e,f,TempMouseSpeed:integer;
     begin
      GameTab(10);
      TempMouseSpeed:=MouseSpeed;
      MouseSpeed:=MouseSpeed + 20;
      e:=5+random(6);
      for f:=0 to e do
       begin
        case random(3) of
          0,1:MMouse(583+random(120),361+random(20),0,0);
          2:IdleTime(300+random(300),500,0.5);
        end;
       FTwait(2 + Random(1));
       end;
       MouseSpeed:=TempMouseSpeed;
       GameTab(4);
    end;



    procedure Chopp;
    var
    Skill:integer;
    begin
      if FindColorSpiralTolerance(x, y, Tree, msx1, msy1, msx2, msy2,10) then
        begin
          MMouse(x, y, 1, 1);
          Wait(10+Random(100));
            begin
              Mouse(x, y, 1, 1, true);
              Writeln('Cutting a tree ');
              Wait(1000+random(2500));
              wait(600)
              FindRandoms;
              wait(400)
              FindHead;
              wait(500)
              AttachHead;
              wait(1500)
              FindRandoms;
              wait(500)

            end;
        end;
    end;

    procedure DropAllLogs;
     var
     Skill:integer;
    begin
      wait(500);
      FindRandoms;
      wait(700)
      DropAllLogs;
      LoadNumber := LoadNumber + 1
      FakeLogout;
      wait(600)




    end;
    /////////////////over here
    begin
      SetUpSRL;
      DeclarePlayers;
      LoginPlayer;
       begin
        Chopp;
         repeat
          Chopp;
           until (invfull)

          DropAllLogs;
           Until (LoadNumber + Random (5) = AmmountOfLoads)
           end;
    end.

  2. #2
    Join Date
    May 2007
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You didn't have a repeat in your chopping procedure so once it clicked the tree it would just move onto the next procedure. Also, I added a different function to look for the tree. You also had it set to login player, but what if the player is already logged in.. so I added
    SCAR Code:
    if (not (LoggedIn)) then Loginplayer;
    into your main loop.

    SCAR Code:
    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    var
    LoadNumber:integer;
    const
    IsAxeWeilded = True; // Change to True If Axe Is Weilded
    RunDirection= 'S';
    Tree = 10312;//Colour of tree.
    Treename = 'Maple';
    AmmountOfLoads = 35; //Ammount of loads you want to chop
    waittime=1000;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='cnr sport';
      Players[0].Pass :='aaaaaa';  //thats not my pass
      Players[0].Nick :='cnr';
      Players[0].Active:=True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;


    procedure FakeLogout;
    var e,f,TempMouseSpeed:integer;
     begin
      GameTab(10);
      TempMouseSpeed:=MouseSpeed;
      MouseSpeed:=MouseSpeed + 20;
      e:=5+random(6);
      for f:=0 to e do
       begin
        case random(3) of
          0,1:MMouse(583+random(120),361+random(20),0,0);
          2:IdleTime(300+random(300),500,0.5);
        end;
       FTwait(2 + Random(1));
       end;
       MouseSpeed:=TempMouseSpeed;
       GameTab(4);
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
    tolerance: Integer): Boolean;
    var
    x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
       Color := Color;
    if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
    begin
       x1 := 245;
       y1 := 165;
       x2 := 277;
       y2 := 185;
       repeat
         if (not (Loggedin)) then
           Break;
         a := a + 1;
         if (a = 1) or (a = 3) then
           c := c + 1;
         for i := 1 to c do
         begin
           if (a = 1) then
           begin
             x1 := x1 + 30;
             x2 := x2 + 30;
           end
           else if (a = 2) then
           begin
             y1 := y1 - 20;
             y2 := y2 - 20;
           end
           else if (a = 3) then
           begin
             x1 := x1 - 30;
             x2 := x2 - 30;
           end
           else if (a = 4) then
           begin
             y1 := y1 + 20;
             y2 := y2 + 20;
           end;
           if (x1 = 485) and (x2 = 517) then
             x2 := x2 - 2;
           if (y1 = 325) and (y2 = 345) then
             y2 := y2 - 7;
           if (x2 > 515) then
             Break;
           if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
           begin
             MMouse(x, y, 0, 0)
               cx := x;
             cy := y;
             if (IsUpTextMulti(UT1, UT2, UT3)) then
             begin
               Result := True;
               Break;
             end;
           end;
         end;
         if (a = 4) then
           a := 0;
       until (x2 > 515) or (Result = True);
    end;
    end;

    procedure Chopp;
    begin
      if (InvFull) then Exit;
      if FindObjMultiText2(x, y, Treename, Treename, Treename, Tree, 12) then
      begin
        repeat
          MMouse(x, y, 1, 1);
          Wait(10+Random(100));
          begin
            Mouse(x, y, 1, 1, true);
            Writeln('Cutting a tree ');
            Wait(1000+random(2500));
            wait(600)
            FindRandoms;
            wait(400)
            FindHead;
            wait(500)
            FindRandoms;
            wait(500)
          end;
        Until(InvFull)
      end;
    end;

    procedure DropLogs;

    begin
      wait(500);
      FindRandoms;
      wait(700)
      DropAllLogs;
      LoadNumber := LoadNumber + 1
      FakeLogout;
      wait(600)
    end;

    begin
      SetUpSRL;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      begin
        repeat
          Chopp;
          DropLogs;
        Until (LoadNumber + Random (5) = AmmountOfLoads)
      end;
    end.

  3. #3
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Scarf4ce View Post
    You didn't have a repeat in your chopping procedure so once it clicked the tree it would just move onto the next procedure. Also, I added a different function to look for the tree. You also had it set to login player, but what if the player is already logged in.. so I added
    SCAR Code:
    if (not (LoggedIn)) then Loginplayer;
    into your main loop.

    SCAR Code:
    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    var
    LoadNumber:integer;
    const
    IsAxeWeilded = True; // Change to True If Axe Is Weilded
    RunDirection= 'S';
    Tree = 10312;//Colour of tree.
    Treename = 'Maple';
    AmmountOfLoads = 35; //Ammount of loads you want to chop
    waittime=1000;

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='cnr sport';
      Players[0].Pass :='aaaaaa';  //thats not my pass
      Players[0].Nick :='cnr';
      Players[0].Active:=True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;


    procedure FakeLogout;
    var e,f,TempMouseSpeed:integer;
     begin
      GameTab(10);
      TempMouseSpeed:=MouseSpeed;
      MouseSpeed:=MouseSpeed + 20;
      e:=5+random(6);
      for f:=0 to e do
       begin
        case random(3) of
          0,1:MMouse(583+random(120),361+random(20),0,0);
          2:IdleTime(300+random(300),500,0.5);
        end;
       FTwait(2 + Random(1));
       end;
       MouseSpeed:=TempMouseSpeed;
       GameTab(4);
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
    tolerance: Integer): Boolean;
    var
    x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
       Color := Color;
    if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
    begin
       x1 := 245;
       y1 := 165;
       x2 := 277;
       y2 := 185;
       repeat
         if (not (Loggedin)) then
           Break;
         a := a + 1;
         if (a = 1) or (a = 3) then
           c := c + 1;
         for i := 1 to c do
         begin
           if (a = 1) then
           begin
             x1 := x1 + 30;
             x2 := x2 + 30;
           end
           else if (a = 2) then
           begin
             y1 := y1 - 20;
             y2 := y2 - 20;
           end
           else if (a = 3) then
           begin
             x1 := x1 - 30;
             x2 := x2 - 30;
           end
           else if (a = 4) then
           begin
             y1 := y1 + 20;
             y2 := y2 + 20;
           end;
           if (x1 = 485) and (x2 = 517) then
             x2 := x2 - 2;
           if (y1 = 325) and (y2 = 345) then
             y2 := y2 - 7;
           if (x2 > 515) then
             Break;
           if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
           begin
             MMouse(x, y, 0, 0)
               cx := x;
             cy := y;
             if (IsUpTextMulti(UT1, UT2, UT3)) then
             begin
               Result := True;
               Break;
             end;
           end;
         end;
         if (a = 4) then
           a := 0;
       until (x2 > 515) or (Result = True);
    end;
    end;

    procedure Chopp;
    begin
      if (InvFull) then Exit;
      if FindObjMultiText2(x, y, Treename, Treename, Treename, Tree, 12) then
      begin
        repeat
          MMouse(x, y, 1, 1);
          Wait(10+Random(100));
          begin
            Mouse(x, y, 1, 1, true);
            Writeln('Cutting a tree ');
            Wait(1000+random(2500));
            wait(600)
            FindRandoms;
            wait(400)
            FindHead;
            wait(500)
            FindRandoms;
            wait(500)
          end;
        Until(InvFull)
      end;
    end;

    procedure DropLogs;

    begin
      wait(500);
      FindRandoms;
      wait(700)
      DropAllLogs;
      LoadNumber := LoadNumber + 1
      FakeLogout;
      wait(600)
    end;

    begin
      SetUpSRL;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      begin
        repeat
          Chopp;
          DropLogs;
        Until (LoadNumber + Random (5) = AmmountOfLoads)
      end;
    end.


    Yea , i did that and i had to change the procedure drop logs to drop all logs and then it clicked a tree but then it clicked someones white cat. so i changed the color and now its not clicking at all...
    any ideas

  4. #4
    Join Date
    Oct 2006
    Posts
    2,297
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    Yea , i did that and i had to change the procedure drop logs to drop all logs and then it clicked a tree but then it clicked someones white cat. so i changed the color and now its not clicking at all...
    any ideas
    if you use his FindObjMultiText2 function (or just FindObjMultiText from srl folder) you shouldn't had that problem cause it also checks the uptext, wich can't be the same is the one from a character's cat :P

    If you search for thing you also should use for the isuptext from the item you're looking for, not only the color cause there are simular colors in the are you're looking for (exept black ).
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  5. #5
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by the scar noob View Post
    if you use his FindObjMultiText2 function (or just FindObjMultiText from srl folder) you shouldn't had that problem cause it also checks the uptext, wich can't be the same is the one from a character's cat :P

    If you search for thing you also should use for the isuptext from the item you're looking for, not only the color cause there are simular colors in the are you're looking for (exept black ).
    so your saying take out that function and use isuptext?

  6. #6
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    if FindColorSpiralTolerance(x, y, Tree, msx1, msy1, msx2, msy2,10) then
      if IsUpText('hop') then //chop
      begin
        ChopStuffhere;
      end;

  7. #7
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    SCAR Code:
    if FindColorSpiralTolerance(x, y, Tree, msx1, msy1, msx2, msy2,10) then
      if IsUpText('hop') then //chop
      begin
        ChopStuffhere;
      end;

    Im trying, it compiled im bout to try.

    It loged me in but didnt click a tree

    SCAR Code:
    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    var
    LoadNumber:integer;
    const
    IsAxeWeilded = True; // Change to True If Axe Is Weilded
    RunDirection= 'S';
    Tree = 10312;//Colour of tree.
    Treename = 'Maple';
    AmmountOfLoads = 35; //Ammount of loads you want to chop
    waittime=1000;

    Procedure Welcome  ;
    begin
    Writeln('Welcome to my Power chopper!');
    end;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; //Number of players
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name :='cnr sport';
      Players[0].Pass :='aaaaa';  //thats not my pass
      Players[0].Nick :='cnr';
      Players[0].Active:=True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 16 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
        end;
        Wait(1);
      end;
    end;


    procedure FakeLogout;
    var e,f,TempMouseSpeed:integer;
     begin
      GameTab(10);
      TempMouseSpeed:=MouseSpeed;
      MouseSpeed:=MouseSpeed + 20;
      e:=5+random(6);
      for f:=0 to e do
       begin
        case random(3) of
          0,1:MMouse(583+random(120),361+random(20),0,0);
          2:IdleTime(300+random(300),500,0.5);
        end;
       FTwait(2 + Random(1));
       end;
       MouseSpeed:=TempMouseSpeed;
       GameTab(4);
    end;




    procedure Chopp;
    begin
    if FindColorSpiralTolerance(x, y, Tree, msx1, msy1, msx2, msy2,10) then
      if IsUpText('hop') then
      begin
        repeat
          MMouse(x, y, 1, 1);
          Wait(10+Random(100));
          begin
            Mouse(x, y, 1, 1, true);
            Writeln('Cutting a tree ');
            Wait(1000+random(2500));
            wait(600)
            FindRandoms;
            wait(400)
            FindHead;
            wait(500)
            FindRandoms;
            wait(500)
          end;
        Until(InvFull)
      end;
    end;

    procedure DropAllLogs;

    begin
      wait(500);
      FindRandoms;
      wait(700)
      DropAllLogs;
      LoadNumber := LoadNumber + 1
      FakeLogout;
      wait(600)
    end;

    begin
      SetUpSRL;
      Welcome;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      begin
        repeat
          Chopp;
          DropAllLogs;
        Until (LoadNumber + Random (5) = AmmountOfLoads)
      end;
    end.

  8. #8
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    woopsy, i made a mistake =S and i don't think FindColorSprialTolerance is working correctely neither. Hopefully it should work now that x and y equal the middle of the screen (required, dont remove the x := MSCX and y := MSCY. There needed for FindColorSpiralTolerance)

    SCAR Code:
    procedure Chopp;
    begin
      x := MSCX;
      y := MSCY;

      if FindColorSpiralTolerance(x, y, Tree, msx1, msy1, msx2, msy2,10) then
      begin
        MMouse(x, y, 0, 0);
        if IsUpText('hop') then
        begin
          Mouse(x, y, 1, 1, true);
          Flag;
          Writeln('Cutting a tree ');
          wait(1000 + random(2000);
          FindRandoms;
          wait(1)
          FindHead;
        end;
      end;
    end;

    do the repeat until invfull in main loop.

  9. #9
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    SCAR Code:
    procedure chopp;
    begin
    if findcolorspiral(x,y,tree,3,3,515,336)then
     begin
    mouse(x,y,2,2,true)
    wait(30+random(25))
    writeln('You better be watching me every 15m cause you never know');
    end;
     end;

    i tryed that as my chop procedure and it didnt do anything..

    any suggustions.... heres my script / main loop. i think the problem is the main loop...
    SCAR Code:
    {1.Declare Players
    2. Setup
    3.Drag cross hair over runescape
    4. hit play
    5. go to mc donalds. lol dont just kidding...
    }



    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    ////////////////////////////////////////////////////////////////////
    //////////////////////[[[[NO TOUCH]]]]//////////////////////////////
    var                                                            /////
      LoadNumber: integer;                                         /////
    ////////////////////////////////////////////////////////////////////
    /////////////////////[[[[SETUP]]]]//////////////////////////////////
    const                                                          /////
      IsAxeWeilded = True; // Change to True If Axe Is Weilded     /////
      Tree = 10312; //Colour of tree.                              /////
      Treename = 'Maple';                                          /////
      AmmountOfLoads = 35; //Ammount of loads you want to chop     /////
      waittime = 2500;                                             /////
    ////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    ///////////////////////[[[[NO TOUCHY ...]]]]////////////////////////
    procedure Welcome;                                             /////
    begin                                                          /////
      Writeln('Welcome to my Power chopper!');                     /////
      Writeln('Just Dont Forget To check Me Every so Often');      /////
    end;                                                           /////
                                                                   /////
                                                                   /////
    procedure DeclarePlayers;                                      /////
    begin                                                          /////
      HowManyPlayers := 8; //Number of players..if your not useing all 8 just dont fill it in and come back to it
      NumberOfPlayers(HowManyPlayers);                             /////
      CurrentPlayer := 0; //leave it ...                           /////
                                                                   /////
      Players[0].Name := '--';//type in your user name             /////
      Players[0].Pass := '--';// your pass                         /////
      Players[0].Nick := '--';//3-4letters of username             /////
      Players[0].Active := True;                                   /////
                                                                   /////
      Players[1].Name := '--';//type in your user name             /////
      Players[1].Pass := '--';//your pass                          /////
      Players[1].Nick := '--';//3-4letters of username             /////
      Players[1].Active := True;                                   /////
                                                                   /////
      Players[2].Name := '--';//type in your user name             /////
      Players[2].Pass := '--';//your pass                          /////
      Players[2].Nick := '--';//3-4letters of username             /////
      Players[2].Active := True;                                   /////
                                                                   /////
      Players[3].Name := '--';//type in your user name             /////
      Players[3].Pass := '--';//your pass                          /////
      Players[3].Nick := '--';//3-4letters of username             /////
      Players[3].Active := True;                                   /////
                                                                   /////
      Players[4].Name := '--';//type in your user name             /////
      Players[4].Pass := '--';//your pass                          /////
      Players[4].Nick := '--';//3-4letters of username             /////
      Players[4].Active := True;                                   /////
                                                                   /////
      Players[5].Name := '--';//type in your user name             /////
      Players[5].Pass := '--';//your pass                          /////
      Players[5].Nick := '--';//3-4letters of username             /////
      Players[5].Active := True;                                   /////
                                                                   /////
      Players[6].Name := '--';//type in your user name             /////
      Players[6].Pass := '--';//Your pass                          /////
      Players[6].Nick := '--';//3-4letters of username             /////
      Players[6].Active := True;
     
      Players[7].Name := '--';//type in your user name
      Players[7].Pass := '--';//your pass
      Players[7].Nick := '--';//3-4 letters of user name
      Players[7].Active := True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 17 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
          17: if (FindFight) then
            begin
              RunAwayDirection('S');
              RunBack;
            end;
        end;
      end;
      Wait(100);
    end;



    procedure FakeLogout;
    var e, f, TempMouseSpeed: integer;
    begin
      GameTab(10);
      TempMouseSpeed := MouseSpeed;
      MouseSpeed := MouseSpeed + 20;
      e := 5 + random(6);
      for f := 0 to e do
      begin
        case random(3) of
          0, 1: MMouse(583 + random(120), 361 + random(20), 0, 0);
          2: IdleTime(300 + random(300), 500, 0.5);
        end;
        FTwait(2 + Random(1));
      end;
      MouseSpeed := TempMouseSpeed;
      GameTab(4);
    end;



    procedure chopp;
    begin
    if findcolorspiral(x,y,tree,3,3,515,336)then
     begin
    mouse(x,y,2,2,true)
    wait(30+random(25))
    writeln('You better be watching me every 25m cause you never know');
    end;
     end;

    procedure DropAllLogs;
    begin
      wait(500);
      FindRandoms;
      wait(700)
        DropAllLogs;
      LoadNumber := LoadNumber + 1
      Writeln('WOW YOU FINISHED A LOAD!');
        FakeLogout;
      wait(600)
        FindRandoms;
    end;

    begin
      SetUpSRL;
      Welcome;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
        repeat
          Chopp;
           repeat
            dropalllogs;
           until(invfull)
        until (LoadNumber + Random (5) = AmmountOfLoads)
       end.

  10. #10
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try something for your main loop like

    SCAR Code:
    begin
      SetUpSRL;
      Welcome;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      repeat
        repeat
          MarkTime(MyMark);
          repeat
            if Not LoggedIn then Break;      
            Chopp;
          until InvFull or TimeFromMark(MyMark) > MaxMinsPerLoad * 60 * 1000
          if Not LoggedIn then Break;      
          DropAllLogs;
          Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;  
          LoadNumber := LoadNumber + 1;    
        until(Players[CurrentPlayer].Banked Mod LoadsPerPlayer = 0);
        If Not LoggedIn then NextPlayer(False) else NextPlayer(True);    
       until (LoadNumber = AmmountOfLoads)
    end.

    Add a variable named MyMark as a integer.
    Add 2 consts, one named MaxMinsPerLoad and LoadsPerPlayer.

    and that as your chop procedure will not work, as x and y are both 0, and will screw up FindColorSpiral, as it starts searching at x, y and spirals outward. Also you may need newer colors.

    try FindObj, look @ the srl manual for more info.


    btw, i wipped up that main loop code in the reply box, but it should work.

  11. #11
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    try something for your main loop like

    SCAR Code:
    begin
      SetUpSRL;
      Welcome;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      repeat
        repeat
          MarkTime(MyMark);
          repeat
            if Not LoggedIn then Break;      
            Chopp;
          until InvFull or TimeFromMark(MyMark) > MaxMinsPerLoad * 60 * 1000
          if Not LoggedIn then Break;      
          DropAllLogs;
          Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;  
          LoadNumber := LoadNumber + 1;    
        until(Players[CurrentPlayer].Banked Mod LoadsPerPlayer = 0);
        If Not LoggedIn then NextPlayer(False) else NextPlayer(True);    
       until (LoadNumber = AmmountOfLoads)
    end.

    Add a variable named MyMark as a integer.
    Add 2 consts, one named MaxMinsPerLoad and LoadsPerPlayer.

    and that as your chop procedure will not work, as x and y are both 0, and will screw up FindColorSpiral, as it starts searching at x, y and spirals outward. Also you may need newer colors.

    try FindObj, look @ the srl manual for more info.


    btw, i wipped up that main loop code in the reply box, but it should work.
    thanks for your help but this is my script and this is the error i get...
    SCAR Code:
    {1.Declare Players
    2. Setup
    3.Drag cross hair over runescape
    4. hit play
    5. go to mc donalds. lol dont just kidding...
    }



    program PropperChopper;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\woodcutting.scar}
    {.includes\SRL\SRL\skill}
    ////////////////////////////////////////////////////////////////////
    //////////////////////[[[[NO TOUCH]]]]//////////////////////////////
    var                                                            /////
      LoadNumber: integer;
      MyMark:Integer;
                                                                   /////
    ////////////////////////////////////////////////////////////////////
    /////////////////////[[[[SETUP]]]]//////////////////////////////////
    const                                                          /////
      IsAxeWeilded = True; // Change to True If Axe Is Weilded     /////
      Tree = 10312; //Colour of tree.                              /////
      Treename = 'Maple';                                          /////
      AmmountOfLoads = 40; //Ammount of loads you want to chop     /////
      waittime = 2500;
      MaxMinsPerLoad = 5;
      LoadsPerPlayer = 40;//if only using one put the total amount of loads
    ////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////

    ///////////////////////[[[[NO TOUCHY ...]]]]////////////////////////
    procedure Welcome;                                             /////
    begin                                                          /////
      Writeln('Welcome to my Power chopper!');                     /////
      Writeln('Just Dont Forget To check Me Every so Often');      /////
    end;                                                           /////
                                                                   /////
                                                                   /////
    procedure DeclarePlayers;                                      /////
    begin                                                          /////
      HowManyPlayers := 8; //Number of players..if your not useing all 8 just dont fill it in and come back to it
      NumberOfPlayers(HowManyPlayers);                             /////
      CurrentPlayer := 0; //leave it ...                           /////
                                                                   /////
      Players[0].Name := '--';//type in your user name             /////
      Players[0].Pass := '--';// your pass                         /////
      Players[0].Nick := '--';//3-4letters of username             /////
      Players[0].Active := True;                                   /////
                                                                   /////
      Players[1].Name := '--';//type in your user name             /////
      Players[1].Pass := '--';//your pass                          /////
      Players[1].Nick := '--';//3-4letters of username             /////
      Players[1].Active := True;                                   /////
                                                                   /////
      Players[2].Name := '--';//type in your user name             /////
      Players[2].Pass := '--';//your pass                          /////
      Players[2].Nick := '--';//3-4letters of username             /////
      Players[2].Active := True;                                   /////
                                                                   /////
      Players[3].Name := '--';//type in your user name             /////
      Players[3].Pass := '--';//your pass                          /////
      Players[3].Nick := '--';//3-4letters of username             /////
      Players[3].Active := True;                                   /////
                                                                   /////
      Players[4].Name := '--';//type in your user name             /////
      Players[4].Pass := '--';//your pass                          /////
      Players[4].Nick := '--';//3-4letters of username             /////
      Players[4].Active := True;                                   /////
                                                                   /////
      Players[5].Name := '--';//type in your user name             /////
      Players[5].Pass := '--';//your pass                          /////
      Players[5].Nick := '--';//3-4letters of username             /////
      Players[5].Active := True;                                   /////
                                                                   /////
      Players[6].Name := '--';//type in your user name             /////
      Players[6].Pass := '--';//Your pass                          /////
      Players[6].Nick := '--';//3-4letters of username             /////
      Players[6].Active := True;
     
      Players[7].Name := '--';//type in your user name
      Players[7].Pass := '--';//your pass
      Players[7].Nick := '--';//3-4 letters of user name
      Players[7].Active := True;
    end;

    function FindRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 17 do
      begin
        case I of
          1: CloseWindow;
          2: if FindTalk then
              Result := True;
          3: if FindDead then
              Result := True;
          4: if FindMod then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindDemon then
              Result := True;
          9: if FindScapeRune then
              Result := True;
          10: if FindTalk then // Call it twice
              Result := True;
          11: if FindLamp(LampSkill) then // Maybe we missed it?
              Result := True;
          12: if (FindNewBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleNewBox;
            end;
          13: if FindTrade then
              Result := True;
          14:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          15: SaveToChatLog;
          16: if RC then
              Result := True;
          17: if (FindFight) then
            begin
              RunAwayDirection('S');
              RunBack;
            end;
        end;
      end;
      Wait(100);
    end;



    procedure FakeLogout;
    var e, f, TempMouseSpeed: integer;
    begin
      GameTab(10);
      TempMouseSpeed := MouseSpeed;
      MouseSpeed := MouseSpeed + 20;
      e := 5 + random(6);
      for f := 0 to e do
      begin
        case random(3) of
          0, 1: MMouse(583 + random(120), 361 + random(20), 0, 0);
          2: IdleTime(300 + random(300), 500, 0.5);
        end;
        FTwait(2 + Random(1));
      end;
      MouseSpeed := TempMouseSpeed;
      GameTab(4);
    end;


    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
    tolerance: Integer): Boolean;
    var
    x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
       Color := Color;
    if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
    begin
       x1 := 245;
       y1 := 165;
       x2 := 277;
       y2 := 185;
       repeat
         if (not (Loggedin)) then
           Break;
         a := a + 1;
         if (a = 1) or (a = 3) then
           c := c + 1;
         for i := 1 to c do
         begin
           if (a = 1) then
           begin
             x1 := x1 + 30;
             x2 := x2 + 30;
           end
           else if (a = 2) then
           begin
             y1 := y1 - 20;
             y2 := y2 - 20;
           end
           else if (a = 3) then
           begin
             x1 := x1 - 30;
             x2 := x2 - 30;
           end
           else if (a = 4) then
           begin
             y1 := y1 + 20;
             y2 := y2 + 20;
           end;
           if (x1 = 485) and (x2 = 517) then
             x2 := x2 - 2;
           if (y1 = 325) and (y2 = 345) then
             y2 := y2 - 7;
           if (x2 > 515) then
             Break;
           if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
           begin
             MMouse(x, y, 0, 0)
               cx := x;
             cy := y;
             if (IsUpTextMulti(UT1, UT2, UT3)) then
             begin
               Result := True;
               Break;
             end;
           end;
         end;
         if (a = 4) then
           a := 0;
       until (x2 > 515) or (Result = True);
    end;
    end;

    procedure Chopp;
    begin
      if (InvFull) then Exit;
      if FindObjMultiText2(x, y, Treename, Treename, Treename, Tree, 12) then
      begin
          MMouse(x, y, 1, 1);
          Wait(10+Random(100));
          begin
            Mouse(x, y, 1, 1, true);
            Writeln('Cutting a tree ');
            Wait(1000+random(2500));
            FindRandoms;
            wait(400)
            FindHead;
            wait(500)
            FindRandoms;
            wait(500)
          end;
      end;
    end;


    procedure DropAllLogs;
    begin
      wait(500);
      FindRandoms;
      wait(700)
        DropAllLogs;
      LoadNumber := LoadNumber + 1
      Writeln('WOW YOU FINISHED A LOAD!');
        FakeLogout;
      wait(600)
        FindRandoms;
    end;


      begin
      SetUpSRL;
      Welcome;
      DeclarePlayers;
      if (not (LoggedIn)) then Loginplayer;
      repeat
        repeat
          MarkTime(MyMark);
          repeat
            if Not LoggedIn then Break;
            Chopp;
          until InvFull or TimeFromMark(MyMark) > MaxMinsPerLoad * 60 * 1000
          if Not LoggedIn then Break;
          DropAllLogs;
          Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
          LoadNumber := LoadNumber + 1;
        until(Players[CurrentPlayer].Banked Mod LoadsPerPlayer = 0);
        If Not LoggedIn then NextPlayer(False) else NextPlayer(True);
       until (LoadNumber = AmmountOfLoads)
    end.

    error is
    Failed when compiling
    Line 281: [Error] (15401:39): Type mismatch in script C:\Program Files\SCAR 2.03\Scripts\Propppppp.scar

    until InvFull or TimeFromMark(MyMark) > MaxMinsPerLoad * 60 * 1000 (line 281)

    you deserve some like medal... thanks for ur help

  12. #12
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe try this

    SCAR Code:
    until ((InvFull) or ((TimeFromMark(MyMark)) > (MaxMinsPerLoad * 60 * 1000)))

    once you get the main loop working, pm me and ill help you on the Chopp procedure.

  13. #13
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by The_Rs_Monkey View Post
    maybe try this

    SCAR Code:
    until ((InvFull) or ((TimeFromMark(MyMark)) > (MaxMinsPerLoad * 60 * 1000)))

    once you get the main loop working, pm me and ill help you on the Chopp procedure.
    kk i fixed main loop , the stupid chop is anoyying me

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Yew Chopper
    By shaman in forum First Scripts
    Replies: 17
    Last Post: 10-13-2008, 07:26 AM
  2. Computer problems... Terrible computer problems...
    By Jason2gs in forum News and General
    Replies: 22
    Last Post: 04-26-2007, 12:02 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
  •