SRL Archive - Help

More like im working on homework majorly at the moment and need someone to do something for me! :P

I need someone to find a color on the ghouls to the west of canifis, the color cannot get confused wiht bones or the color on the ground! :P

Simple task im just heavy in homework atm, ill give you credit in my script and the thread for finding a working colors. either 2 or 3. so please help! :)

How about I get you the best color as well as the Hue and Sat modifiers for for CTS2?

Lol sure, that works. I hate english class!!!!!!!!!

I havent used the hue and Sat modifiers for CTS2 yet so i dont know how they work.

And something you repeated for for 2 times. And i didnt realize until i read it throught the second time! :)

CTS := GetColorToleranceSpeed;

  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(HueMod, SatMod);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tolerance);
  ColorToleranceSpeed(CTS);

And how would i add that to my script? :O never even seen that before only heard of it.

Function FindGhoul(Var X,Y: Integer): Boolean;
  var
    CTS: Integer;
    TPA: TPointArray;
  begin
    Result := False;
    CTS := GetColorToleranceSpeed;

  {Set our CTS to 2}
    ColorToleranceSpeed(2);

  {Add in the Hue and Sat modifiers}
    SetColorSpeed2Modifiers(Hue, Sat);

  {Search for the color (9877428) starting at MSCX,MSCY within the area of the main screen, with a set color tolerance}
    FindColorsSpiralTolerance(MSCX, MSCY, TPA, Color, MSX1, MSY1, MSX2, MSY2, Tolerance);
    ColorToleranceSpeed(CTS);

  {If no color points were found, exit the function}
    if (Length(TPA) < 1) then
      Exit;

  {[0] means it's the first in an array, and because the array starts at our play and moves outward, 0 would be the closest}
    MMouse(TPA[0].X, TPA[0].Y, 5, 5);

    if WaitUpText('ck Gh', 400) then
    begin
      GetMousePos(X, Y);  //Get the mouse X/Y coordinate and set them to return as X/Y for this function
      Result := True;
      Exit;
    end;

  end;

Var
    X,Y: Integer;
  begin
    if FindGhoul(X, Y) then
      Writeln('Found a ghoul at Point('+IntToStr(X)+', '+IntToStr(Y)+')');
  end; 

So would it look like this then inside the script?

//credits to Flight
Function FindGhoul(Var X,Y: Integer): Boolean;
  var
    CTS: Integer;
    TPA: TPointArray;
  begin
    Result := False;
    CTS := GetColorToleranceSpeed;

    ColorToleranceSpeed(2);

    SetColorSpeed2Modifiers('0.12', '0.79');

     FindColorsSpiralTolerance(MSCX, MSCY, TPA, (9877428, More colors if wanted?), MSX1, MSY1, MSX2, MSY2, 5);
    ColorToleranceSpeed(CTS);

    if (Length(TPA) < 1) then
      Exit;

    MMouse(TPA[0].X, TPA[0].Y, 5, 5);

    if WaitUpText('ck Gh', 400) then
    begin
      GetMousePos(X, Y);
      ClickMouse2(True);        
      Result := True;
      Exit;
    end;

  end;

FindColorsSpiralTolerance only searches for one color, so use that one color I provided you with. Also, as shown in the above picture, you'd want to use 16 as the tolerance, not 5.

That was only an example, if I were you I'd split those TPAs into ATPAs and search each TPA[] for the ghoul's uptext.

Ok, well i got it working really well now! :)

what thing was that you used to find the DATA?

It's ACAv2, look around it's a must-have :D

Nevermind i found it in the tutorial island under auto color aid! :P