Results 1 to 4 of 4

Thread: Why makecompass and angle commands not working?

  1. #1
    Join Date
    Mar 2013
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default Why makecompass and angle commands not working?

    Why is MakeCompass and SetAngle not working?

    Simba Code:
    program new;

    //{.include srl/srl.scar}
    {$I SRL/SRL.Simba}

    var
      LogBalance1, LogBalance2, LogBalance3, LogBalance4, LogBalance5, LogBalance6, LogBalance7, LogBalance8 : integer;

    Procedure LoadColor;
    begin

      LogBalance1 := 605282;
      LogBalance2 := 604509;
      LogBalance3 := 605798;
      LogBalance4 := 602190;
      LogBalance5 := 606571;
      LogBalance6 := 603480;
      LogBalance7 := 603219;
      LogBalance8 := 601162;

    end;

    procedure CrossLogBalance;

    var
      x, y : integer;
      aFound : extended;

    begin

    if  FindColorSpiralTolerance( x, y, LogBalance1, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance2, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance3, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance4, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance5, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance6, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance7, 180, 160, 327, 226, 1) or
        FindColorSpiralTolerance( x, y, LogBalance8, 180, 160, 327, 226, 1) then
        begin
          writeln('Found Log Balance');
          Mouse( x, y, 1, 1, True);
        end else
          Writeln('DTM not found...');

    end;

    begin
    LoadColor;
    SetAngle(SRL_ANGLE_HIGH);
    MouseSpeed:= 20;
    MakeCompass('n');
    CrossLogBalance;
    end.

  2. #2
    Join Date
    Jun 2007
    Location
    The land of the long white cloud.
    Posts
    3,702
    Mentioned
    261 Post(s)
    Quoted
    2006 Post(s)

    Default

    Do you have to SetupSRL first?

    Simba Code:
    begin
      SetupSRL //this
      LoadColor;
      SetAngle(SRL_ANGLE_HIGH);
      MouseSpeed:= 20;
      MakeCompass('n');
      CrossLogBalance;
    end.

  3. #3
    Join Date
    Mar 2013
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    next post
    Last edited by rsbots2013; 05-24-2013 at 07:52 AM.

  4. #4
    Join Date
    Mar 2013
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    Dude it's still not working. It skips the Compass and angle part and goes onto looking for colors :s
    Quote Originally Posted by The Mayor View Post
    Do you have to SetupSRL first?

    Simba Code:
    begin
      SetupSRL //this
      LoadColor;
      SetAngle(SRL_ANGLE_HIGH);
      MouseSpeed:= 20;
      MakeCompass('n');
      CrossLogBalance;
    end.

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
  •