Results 1 to 9 of 9

Thread: Need some help!

  1. #1
    Join Date
    Jul 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need some help!

    SCAR Code:
    program FirstRRWExample;
    {.include SRL/SRL.scar}

    Function MyFirstAutocolor: Integer;
    var
      R, G, B, TestColor: Integer;
      H, S, L, X, Y, Z: Extended;
      MyColor: Integer;
      ColorsTPA : TPointArray;
      C1 : TIntegerArray;
      i,C2 : Integer;

    begin
      MyColor := 6781827;
      FindColorsSpiralTolerance(MSCX, MSCY, ColorsTPA, MyColor, MMX1, MMY1, MMX2, MMY2, 55);
      C1 := GetColors(ColorsTPA);
      C2 := High(C1);
        for i := 0 to C2 do
        begin
          if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then
    end;

    procedure Walk;
    begin
      RadialRoadWalk(MyFirstAutoColor, 0, 90, 70, 1, -1);
    end;
    InRange(R - G, -12, 28) then
                 if InRange(R - B, 8, 48) then
                   if InRange(G - B, 0, 40) then
                     if InRange(Round(S) - Round(H), -15, 15) then
                       if InRange(Round(L) - Round(H), 14 , 49) then
                         if InRange(Round(S) - Round(L), -49, -19) then
                           if InRange(Round(X) - Round(Y), -8 , 6) then
                             if InRange(Round(Y) - Round(Z), -11 , 3) then
                              if GetColor(ColorsTPA[A].X + 2, ColorsTPA[A].Y + 2) = TestColor then
                                 if GetColor(ColorsTPA[A].X + 1, ColorsTPA[A].Y + 1) = TestColor then


      end;
      end;
      Writeln('Couldnt find My Color!');
      Result := 0;
    end;





    begin
      SetUpSRL;
      ActivateClient;
      Wait(500 + Random(500));
      Walk;
    end.

    Need help...
    Line 23: [Error] (16131:1): Identifier expected in script

    EDIT : How do i put autocolorcolor in
    procedure Walk;
    begin
    RadialRoadWalk(MyFirstAutoColor, 0, 90, 70, 1, -1);

  2. #2
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    Post the error here.

    Also, wrap your script in SCAR tags.

  3. #3
    Join Date
    Jul 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ProphesyOfWolf View Post
    Post the error here.

    Also, wrap your script in SCAR tags.
    Had some problems SCAR tagging them first

  4. #4
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    I saw that ^.^

    Okay, lemme take a look at it.

  5. #5
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    Ooh. This one is a biggun.

    I'd say restart the whole thing.

    Reason being:

    You did something weird.. Lemme point it out.

    SCAR Code:
    program FirstRRWExample;
    {.include SRL/SRL.scar}

    Function MyFirstAutocolor: Integer;
    var
      R, G, B, TestColor: Integer;
      H, S, L, X, Y, Z: Extended;
      MyColor: Integer;
      ColorsTPA : TPointArray;
      C1 : TIntegerArray;
      i,C2 : Integer;

    begin
      MyColor := 6781827;
      FindColorsSpiralTolerance(MSCX, MSCY, ColorsTPA, MyColor, MMX1, MMY1, MMX2, MMY2, 55);
      C1 := GetColors(ColorsTPA);
      C2 := High(C1);
        for i := 0 to C2 do
        begin
          if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then
    end;
                                                                       //You shouldn't end it right here. I don't know what you took out, but it was important.
    procedure Walk;                                                    //By ending it, the variables you called are nulled. That's one thing.
    begin                                                              //The other is that you didn't finish the If Then Statement (if RS_OnMinimap(ColorsTPA[i].X, ColorsTPA[i].Y) then)
      RadialRoadWalk(MyFirstAutoColor, 0, 90, 70, 1, -1);              //I'd suggest remaking it with Auto Color Aid 2. Copy the info from it exactly. Then, make the walk procedure AFTER
    end;                                                               //the last end in the Auto Color Procedure.
    InRange(R - G, -12, 28) then
                 if InRange(R - B, 8, 48) then
                   if InRange(G - B, 0, 40) then
                     if InRange(Round(S) - Round(H), -15, 15) then
                       if InRange(Round(L) - Round(H), 14 , 49) then
                         if InRange(Round(S) - Round(L), -49, -19) then
                           if InRange(Round(X) - Round(Y), -8 , 6) then
                             if InRange(Round(Y) - Round(Z), -11 , 3) then
                              if GetColor(ColorsTPA[A].X + 2, ColorsTPA[A].Y + 2) = TestColor then
                                 if GetColor(ColorsTPA[A].X + 1, ColorsTPA[A].Y + 1) = TestColor then


      end;
      end;
      Writeln('Couldnt find My Color!');
      Result := 0;
    end;





    begin
      SetUpSRL;
      ActivateClient;
      Wait(500 + Random(500));
      Walk;
    end.

    I commented in the script. I do hope I help.~

  6. #6
    Join Date
    Jul 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    K, thanks, i mainly used copy and edit

  7. #7
    Join Date
    Jul 2007
    Posts
    140
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #8
    Join Date
    Dec 2007
    Location
    Middle of Here and There
    Posts
    417
    Mentioned
    6 Post(s)
    Quoted
    25 Post(s)

    Default

    It should be in (assuming you have the latest SRL):

    C:/Program Files/Scar 3.15/Scripts/Scripting Tools

    =D

  9. #9
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you put parts of the autocolor inside the walking procedure you need to put them in the autocoloring one


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
  •