Adblock breaks this site

color.scar

Discussion in 'Archives' started by pescados666, Feb 9, 2007.

Thread Status:
Not open for further replies.
Thread Tools

Thread Tools

  • Thread ID:
  1. pescados666

    pescados666 Forum Addict
    Do Not Trade

    Joined:
    Jan 21, 2007
    Posts:
    502
    Referrals:
    1
    Sythe Gold:
    0
    color.scar
    i need a working version of color.scar. every one i get doesnt work. i need to use srl scripts cuz theyre the only ones that work. im not going to pay. cuz its free. reply here. ill take link or msn.
     
    pescados666, Feb 9, 2007
    #1
  2. doomessenger

    doomessenger Active Member
    Banned

    Joined:
    Jan 21, 2007
    Posts:
    248
    Referrals:
    0
    Sythe Gold:
    0
    color.scar
    here ya go.
    Code:
    //-----------------------------------------------------------------//
//--               Scar Standard Resource Library                --//
//--               » ColorFinding Routines                       --//
//-----------------------------------------------------------------//

//  » function  FindColorRightTol(var cx,cy: Integer; dacolor,ax1,ay1,ax2,ay2,tol: Integer): | by RSN
//  » function  FindMMColor(color:integer):boolean;                                   | by Stupid3ooo
//  » function  FindMMColorTol(color,tol:integer):boolean;                            | by Stupid3ooo
//  » procedure ClickMMColor(color:integer);                                          | by Stupid3ooo
//  » procedure ClickMMColorTol(color,tol:integer);                                   | by Stupid3ooo
//  » function  FindMSColor(color:integer):boolean;                                   | by Stupid3ooo
//  » function  FindMSColorTol(color,tol:integer):boolean;                            | by Stupid3ooo
//  » procedure ClickMSColor(color:integer;left:boolean);                             | by Stupid3ooo
//  » procedure ClickMSColorTol(color,tol:integer;left:boolean);                      | by Stupid3ooo
//  » function  FindColorEllipse(var x, y: integer; Color, Tol, X1, Y1, X2, Y2: integer): boolean; | by BenLand100
//  » function  FindColorsEllipse(var Points: TPointArray; Color, Tol, X1, Y1, X2, Y2: integer): boolean; | by BenLand100
//  » function  FindColorAbstract(var x,y: integer; Color, Tol, x1,y1,x2,y2,x3,y3,x4,y4: integer): boolean; | by BenLand100
//  » function  FindColorsAbstract(var Points: TPointArray; Color, Tol, x1,y1,x2,y2,x3,y3,x4,y4: integer): boolean; | by BenLand100
//  » function  ScanForObj(Scanwidth, Scanheight, Color, Tolerance: Integer; Name, DebugName: string): Boolean | by Pplsuqbawlz
//  » function  FindColorTolRaiser(var x, y, xe, ye, xs, ys, Color, BeginTol, EndTol: integer; Spiral: Boolean): Boolean;  | by Sdcit
//  » function  FindSimColorBase(color, xs, ys, xe, ye, LTimes, sTol, Distance: integer): integer; | by XxKanexX
//  » function  FindSimColor(color, xs, ys, xe, ye, tol, dist: integer; hardsearch: boolean): integer; | by XxKanexX
//  » function  FindSimColorMany(var save: array of integer; many, color, xs, ys, xe, ye, tol, dist: integer; hardsearch: boolean): integer; | by XxKanexX
//  » function  FindMMRoadColor: Integer; | by XxKanexX
//  » function  FindColorFromCentre(var x, y: Integer; Cx, Cy, Color, Radius, Tol: Integer): boolean; | by XxKanexX
//  » function  ColorDistanceTolerance(Col1, Col2, xs, ys, xe, ye, tol: Integer): Integer; // * By XxKabexX
//  » function  ColorDistance(Col1, Col2, xs, ys, xe, ye, tol: Integer): Integer; // * By XxKabexX
//  » procedure ClickRandomlyOnColour(Colour, x, y, xa, ya : Integer; Left : Boolean); // * By Spky
//  » function  FindColorCircle(var x, y: Integer; color, radius, MidPointx, MidPointy: Integer): Boolean; | by Freddy1990
//  » function  FindColorCircleTolerance(var x, y: Integer; color, radius, MidPointx, MidPointy, tolerance: Integer): Boolean; | by Freddy1990
//  » function  MouseColor(var x, y : Integer; color, radius, tol : Integer): Boolean; // * by Krazy_Meerkat
//  » function  FindClosestColor(var x, y, matchingcolour : Integer; colour, xs, ys, xe, ye : Integer): Boolean; // * by Krazy_Meerkat
//  » function  FindColorSkipBox(var x, y: Integer; color, x1, y1, x2, y2: Integer; box: TBox): Boolean; | by Freddy1990
//  » function  FindColorSkipBoxTolerance(var x, y: Integer; color, x1, y1, x2, y2, tolerance: Integer; box: TBox): Boolean; | by Freddy1990
//  » function  FindColorSkipBoxArray(var x, y: Integer; color, x1, y1, x2, y2: Integer; box: TBoxArray): Boolean; | by Freddy1990
//  » function  FindColorSkipBoxArrayTolerance(var x, y: Integer; color, x1, y1, x2, y2, tolerance: Integer; box: TBoxArray): Boolean; | by Freddy1990
//  » function  ScanMMColorExact(var x, y: Integer; color: Integer): Boolean; | by Freddy1990
//  » function  ScanMMColorTolerance(var x, y: Integer; color, tolerance: Integer): Boolean; | by Freddy1990
//  » procedure ClickExactMMColor(color: Integer); | by Freddy1990
//  » procedure ClickExactMMColorTol(color, tolerance: Integer); | by Freddy1990
//  » function  ScanMMAreaColorExact(var x, y: Integer; x1, y1, x2, y2, color: Integer): Boolean; | by Freddy1990
//  » function  ScanMMAreaColorExactTolerance(var x, y: Integer; x1, y1, x2, y2, color, tolerance: Integer): Boolean; | by Freddy1990

{*******************************************************************************
function FindColorRightTol(var cx, cy: Integer; dacolor, ax1, ay1, ax2, ay2, tol: Integer): Boolean;
By: RsN
Description: Same as FindColorTolerance but searches from right
*******************************************************************************}

function FindColorRightTol(var cx, cy: Integer; dacolor, ax1, ay1, ax2, ay2,
  tol: Integer): Boolean;
var
  a, b, c, d: Integer;
  x, y: Integer;
begin
  a := ax2 - 1;
  b := ay1;
  c := ax2;
  d := ay2;
  repeat
    if (FindColorTolerance(x, y, dacolor, a, b, c, d, tol)) then
      Result := True;
    a := a - 1;
    c := c - 1;
  until (Result) or (a <= ax1);
  if (Result) then
  begin
    cx := x;
    cy := y;
  end;
end;

{*******************************************************************************
function FindMMColor(var x, y: Integer; color: Integer): Boolean;
By: Stupid3ooo
Description: Finds color on minimap
*******************************************************************************}

function FindMMColor(var x, y: Integer; color: Integer): Boolean;
  // by Stupid3ooo
begin
  if (FindColor(x, y, color, 573, 8, 723, 158)) then
    Result := True;
end;

{*******************************************************************************
function FindMMColorTol(var x, y: Integer; color, tol: Integer): Boolean;
By: Stupid3ooo
Description: Finds color on Minimap with tolerance
*******************************************************************************}

function FindMMColorTol(var x, y: Integer; color, tol: Integer): Boolean;
begin
  if (FindColorTolerance(x, y, color, 573, 8, 723, 158, tol)) then
    Result := True;
end;

{*******************************************************************************
function FindMiniColor(var x, y: Integer; Color, Tol: Integer; Spiral: Boolean): Boolean;
By: Mutant Squirrle
Description: Finds color on Minimap: Spiral or Cubic (with tolerance)
*******************************************************************************}

function FindMiniColor(var x, y: Integer; Color, tol: Integer; Spiral: Boolean):
  Boolean;
begin
  if (not (Spiral)) then
    Result := FindColorTolerance(x, y, Color, 570, 10, 720, 160, tol)
      if (Spiral) then
      Result := FindColorSpiralTolerance(x, y, Color, 570, 10, 720, 160, tol)
end;

{*******************************************************************************
function FindMainColor(var x, y: Integer; Color, Tol: Integer; Spiral: Boolean): Boolean;
By: Mutant Squirrle
Description: Finds color on Main Screen: Spiral or Cubic with (tolerance)
*******************************************************************************}

function FindMainColor(var x, y: Integer; Color, tol: Integer; Spiral: Boolean):
  Boolean;
begin
  if (not (Spiral)) then
    Result := FindColorTolerance(x, y, Color, 3, 3, 515, 336, tol)
      if (Spiral) then
      Result := FindColorSpiralTolerance(x, y, Color, 3, 3, 515, 336, tol)
end;

{*******************************************************************************
procedure ClickMMColor(color: Integer);
By: Stupid3ooo
Description: Clicks color on Minimap
*******************************************************************************}

procedure ClickMMColor(color: Integer);
var
  x, y: Integer;
begin
  if (FindColor(x, y, color, 573, 8, 723, 158)) then
    Mouse(x, y, 0, 0, True);
end;

{*******************************************************************************
procedure ClickMMColorTol(color, tol: Integer);
By: Stupid3ooo
Description: Clicks Color on Minimap with tolerances
*******************************************************************************}

procedure ClickMMColorTol(color, tol: Integer); // by Stupid3ooo
var
  x, y: Integer;
begin
  if (FindColorTolerance(x, y, color, 573, 8, 723, 158, tol)) then
    Mouse(x, y, 0, 0, True);
end;

{*******************************************************************************
function FindMSColor(var x, y: Integer; color: Integer): Boolean;
By: Stupid3ooo
Description: Finds color on MainScreen.
*******************************************************************************}

function FindMSColor(var x, y: Integer; color: Integer): Boolean;
begin
  if (FindColor(x, y, color, 3, 3, 515, 338)) then
    Result := True;
end;

{*******************************************************************************
function FindMSColorTol(var x, y: Integer; color, tol: Integer): Boolean;
By: Stupid3ooo
Description: Finds color on Main Screen with tolerance.
*******************************************************************************}

function FindMSColorTol(var x, y: Integer; color, tol: Integer): Boolean;
begin
  if (FindColorTolerance(x, y, color, 3, 3, 515, 338, tol)) then
    Result := True;
end;

{*******************************************************************************
procedure ClickMSColor(color: Integer; left: Boolean);
By: Stupid3ooo
Description: Clicks color on mainscreen
*******************************************************************************}

procedure ClickMSColor(color: Integer; left: Boolean);
var
  x, y: Integer;
begin
  if (FindColor(x, y, color, 3, 3, 515, 338)) then
    Mouse(x, y, 0, 0, left);
end;

{*******************************************************************************
procedure ClickMSColorTol(color, tol: Integer; left: Boolean);
By: Stupid3ooo
Description: Clicks Color on MainScreen with Tolerance
*******************************************************************************}

procedure ClickMSColorTol(color, tol: Integer; left: Boolean);
var
  x, y: Integer;
begin
  if (FindColorTolerance(x, y, color, 3, 3, 515, 338, tol)) then
    Mouse(x, y, 0, 0, left);
end;

{*******************************************************************************
function FindColorEllipse(var x, y: Integer; Color, Tol, X1, Y1, X2, Y2: Integer): Boolean;
By: BenLand100
Description: Searches only in the given ellipse for a color with tol, returns true if found and position in x, y
Set Ellips Bounds according to the diagram:
         y1
    +----------+
    |          |
    | Ellipse  |
 x1 | Bounds   | x2
    |          |
    +----------+
         y2
*******************************************************************************}

function FindColorEllipse(var x, y: Integer; Color, tol, X1, Y1, X2, Y2:
  Integer): Boolean;
var
  Temp: TCanvas;
  Cx, Cy, H, W, ScreenBmp, TempBmp, Handle: Integer;
begin
  W := Max(X1, X2) - Min(X1, X2);
  H := Max(Y1, Y2) - Min(Y1, Y2);
  Handle := GetClientWindowHandle;
  TempBmp := BitmapFromString(W, H, '');
  Temp := GetBitmapCanvas(TempBmp);
  ScreenBmp := BitmapFromString(W, H, '');
  FastDrawClear(TempBmp, -1);
  CopyClientToBitmap(ScreenBmp, X1, Y1, X2, Y2);
  CopyCanvas(GetBitmapCanvas(TempBmp), Temp, 0, 0, W, H, 0, 0, W, H);
  Temp.Ellipse(0, 0, W, H);
  CopyCanvas(Temp, GetBitmapCanvas(TempBmp), 0, 0, W, H, 0, 0, W, H);
  SetTransparentColor(TempBmp, 16777215);
  FastDrawTransparent(0, 0, TempBmp, ScreenBmp);
  SetTargetBitmap(ScreenBmp);
  x := -1;
  y := -1;
  Cx := W div 2;
  Cy := H div 2;
  if FindColorSpiralTolerance(Cx, Cy, Color, 0, 0, W, H, tol) then
  begin
    x := Cx;
    y := Cy;
    Result := True;
  end;
  SetClientWindowHandle(Handle);
  FreeBitmap(TempBmp);
  FreeBitmap(ScreenBmp);
end;

{*******************************************************************************
function FindColorsEllipse(var Points: TPointArray; Color, Tol, X1, Y1, X2, Y2: Integer): Boolean;
By: BenLand100
Description: Searches only in the given ellipse for every color with tol, returns true if found and the points in Points
Set Ellips Bounds according to the diagram:
          y1
     +----------+
     |          |
     | Ellipse  |
  x1 | Bounds   | x2
     |          |
     +----------+
          y2
*******************************************************************************}

function FindColorsEllipse(var Points: TPointArray; Color, tol, X1, Y1, X2, Y2:
  Integer): Boolean;
var
  Temp: TCanvas;
  PtTemp: TPointArray;
  H, W, ScreenBmp, TempBmp, Handle: Integer;
begin
  W := Max(X1, X2) - Min(X1, X2);
  H := Max(Y1, Y2) - Min(Y1, Y2);
  Handle := GetClientWindowHandle;
  TempBmp := BitmapFromString(W, H, '');
  Temp := GetBitmapCanvas(TempBmp);
  ScreenBmp := BitmapFromString(W, H, '');
  FastDrawClear(TempBmp, -1);
  CopyCanvas(GetClientCanvas, GetBitmapCanvas(ScreenBmp), X1, Y1, X2, Y2, 0, 0,
    W, H);
  CopyCanvas(GetBitmapCanvas(TempBmp), Temp, 0, 0, W, H, 0, 0, W, H);
  Temp.Ellipse(0, 0, W, H);
  CopyCanvas(Temp, GetBitmapCanvas(TempBmp), 0, 0, W, H, 0, 0, W, H);
  SetTransparentColor(TempBmp, 16777215);
  FastDrawTransparent(0, 0, TempBmp, ScreenBmp);
  SetTargetBitmap(ScreenBmp);
  FindColorsSpiralTolerance(W / 2, H / 2, PtTemp, Color, 0, 0, W, H, tol);
  if GetArrayLength(PtTemp) > 0 then
  begin
    Points := PtTemp;
    Result := True;
  end;
  SetClientWindowHandle(Handle);
  FreeBitmap(TempBmp);
  FreeBitmap(ScreenBmp);
end;

{*******************************************************************************
function FindColorAbstract(var x, y: Integer; Color, Tol, x1, y1, x2, y2, x3, y3, x4, y4: Integer): Boolean;
By: BenLand100
Description: Searches in an abstract box (see Math.scar) for a color and tolerance and the first one found in x, y
*******************************************************************************}

function FindColorAbstract(var x, y: Integer; Color, tol, x1, y1, x2, y2, x3,
  y3, x4, y4: Integer): Boolean;
var
  found: Boolean;
  Pt, CX, CY, UY, dy, rx, LX: Integer;
  Points: TPointArray;
begin
  UY := Min(y1, y2);
  dy := Max(y3, y4);
  LX := Min(x1, x4);
  rx := Max(x2, x3);
  FindColorsSpiralTolerance(((LX + rx) / 2), ((UY + dy) / 2), Points, Color, LX,
    UY, rx, dy, tol);
  for pt := 0 to GetArrayLength(points) - 1 do
  begin
    if InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4, Points[pt].x, Points[pt].y)
      then
    begin
      found := True;
      CX := Points[pt].x;
      CY := Points[pt].y
        Break;
    end;
  end;
  x := -1
    y := -1
    if found then
  begin
    x := CX
      y := CY
      Result := True
  end;
end;

{*******************************************************************************
function FindColorsAbstract(var Points: TPointArray; Color, Tol, x1, y1, x2, y2, x3, y3, x4, y4: Integer): Boolean;
By: BenLand100
Description: Searches in an abstract box (see Math.scar) for a color and tolerance and puts every instance of it in Points
*******************************************************************************}

function FindColorsAbstract(var Points: TPointArray; Color, tol, x1, y1, x2, y2,
  x3, y3, x4, y4: Integer): Boolean;
var
  Found: Boolean;
  Pt, TempPt, UY, dy, rx, LX: Integer;
  FPoints, Temp: TPointArray;
begin
  UY := Min(y1, y2);
  dy := Max(y3, y4);
  LX := Min(x1, x4);
  rx := Max(x2, x3);
  FindColorsSpiralTolerance(((LX + rx) / 2), ((UY + dy) / 2), FPoints, Color,
    LX, UY, rx, dy, tol);
  for pt := 0 to GetArrayLength(FPoints) - 1 do
  begin
    WriteLn(IntToStr(FPoints[pt].x) + ', ' + IntToStr(FPoints[pt].y));
    if InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4, FPoints[Pt].x,
      FPoints[Pt].y) then
    begin
      Found := True;
      SetArrayLength(Temp, GetArrayLength(Temp) - 1);
      TempPt := GetArrayLength(Temp) - 1;
      Temp[TempPt].x := FPoints[Pt].x;
      Temp[TempPt].y := FPoints[Pt].y;
    end;
  end;
  if found then Result := True
    Points := Temp;
end;

{*******************************************************************************
function FindColorTolRaiser(x, y: Integer; xe, ye, xs, ys, Color, BeginTol, EndTol: Integer; Spiral: Boolean; TolSpeed: Integer): Boolean;
By: Sdcit
Description: Searches for a color with beginTol then raises tol by 1 until it equals EndTol or the color is found.
*******************************************************************************}

function FindColorTolRaiser(x, y: Integer; xe, ye, xs, ys, Color, BeginTol,
  EndTol: Integer; Spiral: Boolean; TolSpeed: Integer): Boolean;
var
  TolCount: Integer;
begin
  ColorToleranceSpeed(TolSpeed)
    if (Spiral) then
  begin
    for TolCount := BeginTol to EndTol do
      if (FindColorSpiralTolerance(x, y, color, xe, ye, xs, ys, TolCount)) then
      begin
        Result := True;
        Exit;
      end;
  end;
  if (not (Spiral)) then
  begin
    for TolCount := BeginTol to EndTol do
      if (FindColorTolerance(x, y, color, xe, ye, xs, ys, TolCount)) then
      begin
        Result := True;
        Exit;
      end;
  end;
end;

{*******************************************************************************
function ScanForObjectMulti(var x, y: Integer; Scanwidth, Scanheight, Color, Color2, Color3, Tolerence: Integer; Name: String): Boolean;
By: Renax
Description: like findobj
*******************************************************************************}

function ScanForObjectMulti(var x, y: Integer; Scanwidth, Scanheight, Color,
  Color2, Color3, Tolerence: Integer; Name: string): Boolean;
var
  a, b, c, d, e, f: Integer;
  Addx, Addy, Switch: Integer;
  Change, Forwardx, Forwardy, Which: Boolean;
begin
  Change := False;
  Which := False
    Forwardx := True;
  Forwardy := True;
  a := 516 / Scanwidth;
  b := 338 / Scanheight;
  c := Trunc(a / 2);
  d := Trunc(b / 2);
  e := 0;
  f := 0;
  Addx := 1;
  Addy := 1;
  Switch := 1;
  repeat
    if (FindColorTolerance(x, y, Color, (258 + e * Scanwidth), (169 + f *
      Scanheight), (258 + e * Scanwidth + Scanwidth), (169 + f * Scanheight +
      Scanheight), Tolerence)) then
      MMouse(x, y, 5, 5)
    else
      if (FindColorTolerance(x, y, Color2, (258 + e * Scanwidth), (169 + f *
        Scanheight), (258 + e * Scanwidth + Scanwidth), (169 + f * Scanheight +
        Scanheight), Tolerence)) then
        MMouse(x, y, 5, 5)
      else
        if (FindColorTolerance(x, y, Color3, (258 + e * Scanwidth), (169 + f *
          Scanheight), (258 + e * Scanwidth + Scanwidth), (169 + f * Scanheight
            +
          Scanheight), Tolerence)) then
          MMouse(x, y, 5, 5);
    if (IsUpText(Name)) then
    begin
      Result := True;
      Break;
    end;
    if (Change) then
    begin
      Switch := Switch * -1;
      Addx := (Addx * -1) + Switch;
      Addy := (Addy * -1) + Switch;
      Change := False;
    end;
    if (Forwardx) and (not (Which)) then
      e := e + Switch;
    if (Forwardy) and (Which) then
      f := f + Switch;
    if (e = Addx) then
    begin
      Forwardx := False;
      Which := True;
    end;
    if (f = Addy) then
    begin
      Forwardy := False;
      Which := False;
    end;
    if (not Forwardy) and (not Forwardx) then
    begin
      Forwardy := True;
      Forwardx := True;
      Change := True;
    end;
  until ((e > c) or (f > d));
end;

{*******************************************************************************
function FindSimColorBase(color, xs, ys, xe, ye, LTimes, sTol, Distance: Integer): Integer;
By: XxKanexX
Description: Used in FindSimColor function.
*******************************************************************************}

function FindSimColorBase(color, xs, ys, xe, ye, LTimes, sTol, Distance:
  Integer): Integer;
var
  x, y, a, i, buff, tol, stimes: Integer;
begin
  tol := sTol;
  a := 2;
  Result := -1;
  repeat
    if (FindColorTolerance(x, y, color, xs, ys, xe, ye, tol)) then
    begin
      repeat
        buff := GetColor(x + Random(a) - Random(a), y + Random(a) - Random(a));
        if (buff = -1) then
          buff := GetColor(x + (Random(a) / 2) - (Random(a) / 2), y + (Random(a)
            / 2) - (Random(a) / 2));
        if (SimilarColors(buff, color, tol)) and (not (Buff = color)) and (not
          (buff = -1)) then
        begin
          Result := Buff;
          Exit;
        end else
        begin
          i := i + 1;
          tol := tol + 2;
          a := a + 1 + Random(Distance / (Distance / 2) + Random(i));
          if (a > Distance) then
            a := 1;
        end;
      until (tol > 40 + (LTimes) + (tol / 2));
    end else
      tol := tol + 1;
    stimes := stimes + 1;
  until (tol > 40 + ((LTimes) / 2)) and (stimes > 3);
end;

{*******************************************************************************
function FindSimColor(color, xs, ys, xe, ye, tol, dist: Integer; hardsearch: Boolean): Integer;
By: XxKanexX
Description: Searches for a color similar to the base color. Will result as -1 if not found.
*******************************************************************************}

function FindSimColor(color, xs, ys, xe, ye, tol, dist: Integer; hardsearch:
  Boolean): Integer;
var
  rtol, i: Integer;
begin
  if (tol <> -1) and (tol <> 0) then
    rtol := tol
  else
    rtol := 5;
  Result := FindSimColorBase(color, xs, ys, xe, ye, 5, rtol, dist);
  if (Result = -1) then
    Result := FindSimColorBase(color, xs, ys, xe, ye, 10, rtol + (Random(3) +
      1), dist);
  if (Result = -1) and (hardsearch) then
    for i := 1 to 3 do
    begin
      Result := FindSimColorBase(color, xs, ys, xe, ye, 10 + (5 * I), rtol +
        (Random(3) + 1), dist);
      if (Result <> -1) then
        Exit;
    end;
end;

{*******************************************************************************
function FindSimColorMany(var save: Array of Integer; many, color, xs, ys, xe, ye, tol, dist: Integer; hardsearch: Boolean): Integer;
By: XxKanexX
Description: Searches for 1 - 3 colors (specified in many) and saves them into an array.
Results in how many colors were found. All colors return different values.
If not found, returns as -1 in the array.
*******************************************************************************}

function FindSimColorMany(var save: array of Integer; many, color, xs, ys, xe,
  ye, tol, dist: Integer; hardsearch: Boolean): Integer;
var
  i: Integer;
begin
  SetArrayLength(save, many + 1);
  if (Many > 3) or (Many < 1) then
    Many := 1;
  save[1] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);

  if (many > 1) then
  begin
    repeat
      save[2] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);
      i := i + 1;
      if (i > 50) then
      begin
        save[2] := -1;
        break;
      end;
    until (save[2] <> save[1]) and (save[2] <> -1);
    i := 0;

    if (many > 2) then
    begin
      repeat
        save[3] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);
        i := i + 1;
        if (i > 50) then
        begin
          save[3] := -1;
          break;
        end;
      until (save[3] <> save[2]) and (save[3] <> save[1]) and (save[3] <> -1);
      i := 0;
    end;
  end;

  for i := 1 to many do
    if (not (save[i] = -1)) then
      Result := Result + 1;

end;

{*******************************************************************************
function FindColorToleranceDOB(var x, y: Integer; Color1, Color2, xs, ys, xe, ye, Tolerance: Integer): Boolean;
By: XxKanexX
Description: Works just like "FindColorTolerance" but will search for 2 colors.
if either one is found, will result as true.
Used in "InFight" function.
*******************************************************************************}

function FindColorToleranceDOB(var x, y: Integer; Color1, Color2, xs, ys, xe,
  ye, Tolerance: Integer): Boolean;
begin
  if (FindColorTolerance(x, y, Color1, xs, ys, xe, ye, Tolerance)) or
    (FindColorTolerance(x, y, Color2, xs, ys, xe, ye, Tolerance)) then
    Result := True;
end;

{*******************************************************************************
function FindSimColorManyText(var save: Array of Integer; text: String; many, color, xs, ys, xe, ye, tol, dist: Integer; hardsearch: Boolean): Integer;
By: XxKanexX
Description: Searches for 1 - 3 colors (specified in many) while a certain text
is in the 9, 9 co-ordinates and saves them into an array.
Results in how many colors were found. All colors return different values.
If not found, returns as -1 in the array.
*******************************************************************************}

function FindSimColorManyText(var save: array of Integer; text: string; many,
  color, xs, ys, xe, ye, tol, dist: Integer; hardsearch: Boolean): Integer;
var
  i: Integer;
begin
  if (not Option2(text)) then
    Exit
  else
  begin
    SetArrayLength(save, many + 1);
    if (Many > 3) or (Many < 1) then
      Many := 1;

    save[1] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);

    if (many > 1) then
    begin
      repeat
        if (not Option2(text)) then
        begin
          save[2] := -1;
          break;
        end;
        save[2] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);
        i := i + 1;
        if (i > 50) then
        begin
          save[2] := -1;
          break;
        end;
      until (save[2] <> save[1]) and (save[2] <> -1);
      i := 0;

      if (many > 2) then
      begin
        repeat
          if (not Option2(text)) then
          begin
            save[3] := -1;
            break;
          end;
          save[3] := FindSimColor(color, xs, ys, xe, ye, tol, dist, hardsearch);
          i := i + 1;
          if (i > 50) then
          begin
            save[3] := -1;
            break;
          end;
          if (not (Option2(text))) then
            Exit;
        until (save[3] <> save[2]) and (save[3] <> save[1]) and (save[3] <> -1);
        i := 0;
      end;
    end;

    for i := 1 to many do
      if (not (save[i] = -1)) then
        Result := Result + 1;
  end;
end;

{*******************************************************************************
function FindMMRoadColor: Integer;
By: XxKanexX
Description: Finds the Minimap Road color.
*******************************************************************************}

function FindMMRoadColor: Integer;
var
  RoadDTM, RoadDTM2, RoadDTM3, RoadDTM4, RoadDTM5, RoadDTM6: Integer;
begin
  RoadDTM := DTMFromString('78DA632C606260C8644001C1DEDE609A11CA6' +
    '72C06AAC925A0A61AA82683809A3CA09A74DC6A80B20C002D8107' +
    '28');
  RoadDTM2 := DTMFromString('78DA639CCDC4C0E0C18002F2D2D2C0342394C' +
    'FD80754E34340CD5CA01A2F026A1610615737508D377E3500EF49' +
    '0A99');
  RoadDTM3 := DTMFromString('78DA632C61626088634001D5C545609A11CA6' +
    '7CC04AA4924A0A600A82609BF1A007DF4069B');
  RoadDTM4 := DTMFromString('78DA632C666260886340016579B9609A11CA6' +
    '7AC00AA8922A0A610A8269A809A7CC27601008CA20891');
  RoadDTM5 := DTMFromString('78DA6364626660F8C1800262C2C2C0342394C' +
    'FC80954F381801A2EA09ADF44A8F98E5F0D0073BD082E');
  RoadDTM6 := DTMFromString('78DA6364676660F065644006C9B1D1601A26C' +
    'AC80354E342400D2F508D177E3500F004045F');
  Result := FindMMColorDTMBaseDouble(RoadDTM, RoadDTM2, 4934483, 6710894, 7);
  if Result < 1 then
    Result := FindMMColorDTMBaseDouble(RoadDTM3, RoadDTM4, 7171702, 7500667, 7);
  if Result < 1 then
    Result := FindMMColorDTMBaseDouble(RoadDTM5, RoadDTM6, 5658204, 5987683, 7);
  FreeDTM(RoadDTM);
  FreeDTM(RoadDTM2);
  FreeDTM(RoadDTM3);
  FreeDTM(RoadDTM4);
  FreeDTM(RoadDTM5);
  FreeDTM(RoadDTM6);
end;

{*******************************************************************************
function FindMMLimeRoadColor: Integer;
By: XxKanexX
Description:
*******************************************************************************}

function FindMMLimeRoadColor: Integer;
var
  LimeDTM, LimeDTM2, LimeDTM3, LimeDTM4, LimeDTM5, LimeDTM6: Integer;
  i: Integer;
begin
  LimeDTM := DTMFromString('78DA63EC66626028644001ADCDD9609A11CA6' +
    '76C07AAC926A0A607A82687809A89403505F8D50000E92709C4');
  LimeDTM2 := DTMFromString('78DA63E460666078CC8002C2031CC0342394C' +
    'FC80D54F392801A01A09A5704D4B001D53CC5AF060040E20775');
  LimeDTM3 := DTMFromString('78DA63EC60626098CB80028A7363C0342394C' +
    'F0852339D809A4EA09A8904D4B402D5CCC4AF0600E252097D');
  LimeDTM4 := DTMFromString('78DA63EC656260A8644001DD4DF9609A11CA6' +
    '7EC07AA2927424D010135DD403545F8D5000001E10A09');
  LimeDTM5 := DTMFromString('78DA637CC3C4C0F09801054CEA4A06D38C503' +
    'EE307A09A5704D47C06AA798A5F0D0063B90A0B');
  LimeDTM6 := DTMFromString('78DA6364606660086764400685C9DE601A26C' +
    'AC80854134840CD3F26826A0015EE0567');
  for i := 1 to 2 do
  begin
    Result := FindMMColorDTMBaseDouble(LimeDTM, LimeDTM2, 7046021, 6583422, 5 +
      (3 * i));
    if Result < 1 then
      Result := FindMMColorDTMBaseDouble(LimeDTM3, LimeDTM4, 60573313, 7307915, 5
        + (3 * i));
    if Result < 1 then
      Result := FindMMColorDTMBaseDouble(LimeDTM5, LimeDTM6, 6523538, 4940657, 5
        + (3 * i));
    if Result < 1 then
      Result := FindMMColorDTMBase(LimeDTM5, 6194059, 5 + (3 * i));
    if Result > 1 then
      break;
  end;
  FreeDTM(LimeDTM);
  FreeDTM(LimeDTM2);
  FreeDTM(LimeDTM3);
  FreeDTM(LimeDTM4);
  FreeDTM(LimeDTM5);
  FreeDTM(LimeDTM6);
end;

{*******************************************************************************
function FindColorFromCentre(var x, y: Integer; Cx, Cy, Color, Radius, Tol: Integer): Boolean;
By: XxKanexX
Description: From the centre increases the box to find the color in up to the radius.
*******************************************************************************}

function FindColorFromCentre(var x, y: Integer; Cx, Cy, Color, Radius, tol:
  Integer): Boolean;
var
  i: Integer;
begin
  for i := 1 to Radius do
  begin
    if FindColorTolerance(x, y, Color, Cx - i, Cy - i, Cx + i, Cy + i, tol) then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

{*******************************************************************************
function ColorDistance(Col1, Col2, xs, ys, xe, ye: Integer): Integer;
By: XxKanexX
Description: Detects co-ordinates of both colors and measures the distance between each of them.
*******************************************************************************}

function ColorDistance(Col1, Col2, xs, ys, xe, ye: Integer): Integer;
var
  a, b: Integer;
begin
  FindColor(x, y, Col1, xs, ys, xe, ye);
  FindColor(a, b, Col2, xs, ys, xe, ye);
  Result := Distance(x, y, a, b);
end;

{*******************************************************************************
function ColorDistanceTolerance(Col1, Col2, xs, ys, xe, ye, tol: Integer): Integer;
By: XxKanexX
Description: Does the same as, "ColorDistance". But the colors are searched with tolerance.
*******************************************************************************}

function ColorDistanceTolerance(Col1, Col2, xs, ys, xe, ye, tol: Integer):
  Integer;
var
  a, b: Integer;
begin
  FindColorTolerance(x, y, Col1, xs, ys, xe, ye, tol);
  FindColorTolerance(a, b, Col2, xs, ys, xe, ye, tol);
  Result := Distance(x, y, a, b);
end;

{*******************************************************************************
procedure ClickRandomlyOnColour(Colour, x, y, xa, ya: Integer; Left: Boolean);
By: Spky
Description: Clicks randomly on the specified colour in box "x, y, xa, ya".
*******************************************************************************}

procedure ClickRandomlyOnColour(Colour, x, y, xa, ya: Integer; Left: Boolean);
var
  Ix, Iy, I: Integer;
  Coords: array of TPoint;
begin
  for Iy := y to ya do
    for Ix := x to xa do
      if (GetColor(Ix, Iy) = Colour) then
      begin
        SetArrayLength(Coords, GetArrayLength(Coords) + 1)
          Coords[GetArrayLength(Coords) - 1].x := Ix;
        Coords[GetArrayLength(Coords) - 1].y := Iy;
      end;
  I := 0 + Random(GetArrayLength(Coords));
  if (I > 0) then
    case Left of
      True: Mouse(Coords[I].x, Coords[I].y, 0, 0, True);
      False: Mouse(Coords[I].x, Coords[I].y, 0, 0, True);
    end;
end;

{*******************************************************************************
function FindColorCircle(var x, y: Integer; color, radius, MidPointx, MidPointy: Integer): Boolean;
By: Freddy1990
Description: Searches for a color within a circle.
*******************************************************************************}

function FindColorCircle(var x, y: Integer; color, radius, MidPointx, MidPointy:
  Integer): Boolean;
begin
  Result := FindColorCircleD(x, y, color, radius, MidPointx, MidPointy, 0);
end;

{*******************************************************************************
function FindColorCircleTolerance(var x, y: Integer; color, radius, MidPointx, MidPointy, tolerance: Integer): Boolean;
By: Freddy1990
Description: Searches for a color with a tolerance within a circle.
*******************************************************************************}

function FindColorCircleTolerance(var x, y: Integer; color, radius, MidPointx,
  MidPointy, tolerance: Integer): Boolean;
begin
  Result := FindColorCircleD(x, y, color, radius, MidPointx, MidPointy,
    tolerance);
end;

{*******************************************************************************
function MouseColor(var x, y: Integer; color, radius, tol: Integer): Boolean;
By: Krazy_Meerkat
Description: Searches for a color with a tolerance in a spiral around the mouse.
*******************************************************************************}

function MouseColor(var x, y: Integer; color, radius, tol: Integer): Boolean;
var
  MousieX, MousieY: Integer;
begin
  GetMousePos(MousieX, MousieY);
  if (FindColorSpiralTolerance(x, y, color, MousieX - radius, MousieY - radius,
    MousieX + radius, MousieY + radius, tol)) then
    Result := True;
end;

{*******************************************************************************
function FindClosestColor(var x, y, matchingcolour: Integer; colour, xs, ys, xe, ye: Integer): Boolean;
By: Krazy_Meerkat
Description: Searches for a color using the least amount of tolerance possible
*******************************************************************************}

function FindClosestColor(var x, y, matchingcolour: Integer; colour, xs, ys, xe,
  ye: Integer): Boolean;
var
  tol, range: Integer;
begin
  tol := 100
    range := tol div 4
    repeat
    if (FindColor(x, y, colour, xs, ys, xe, ye)) then
      break;
    if (not (FindColorSpiralTolerance(x, y, colour, xs, ys, xe, ye, tol))) then
    begin
      repeat
        tol := tol + range
      until (FindColorSpiralTolerance(x, y, colour, xs, ys, xe, ye, tol))
        tol := tol - (range div 2)
        range := (range div 2)
    end;
    tol := tol - range
  until (range = 0)
    Result := True;
  matchingcolour := GetColor(x, y);
end;

{*******************************************************************************
function FindColorSkipBox(var x, y: Integer; color, x1, y1, x2, y2: Integer; box: TBox): Boolean;
By: Freddy1990
Description: Searches for a color in a square while skipping a square.
*******************************************************************************}

function FindColorSkipBox(var x, y: Integer; color, x1, y1, x2, y2: Integer;
  box: TBox): Boolean;
var
  a, b: TPointArray;
begin
  SetArrayLength(a, 1);
  SetArrayLength(b, 1);
  a[0] := cPoint2(box, 1);
  b[0] := cPoint2(box, 2);
  Result := FindColorSkipBoxD(x, y, color, x1, y1, x2, y2, 0, a, b);
end;

{*******************************************************************************
function FindColorSkipBoxTolerance(var x, y: Integer; color, x1, y1, x2, y2, tolerance: Integer; box: TBox): Boolean;
By: Freddy1990
Description: Searches for a color in a square while skipping a square with a tolerance.
*******************************************************************************}

function FindColorSkipBoxTolerance(var x, y: Integer; color, x1, y1, x2, y2,
  tolerance: Integer; box: TBox): Boolean;
var
  a, b: TPointArray;
begin
  SetArrayLength(a, 1);
  SetArrayLength(b, 1);
  a[0] := cPoint2(box, 1);
  b[0] := cPoint2(box, 2);
  Result := FindColorSkipBoxD(x, y, color, x1, y1, x2, y2, tolerance, a, b);
end;

{*******************************************************************************
function FindColorSkipBoxArray(var x, y: Integer; color, x1, y1, x2, y2: Integer; box: TBoxArray): Boolean;
By: Freddy1990
Description: Searches for a color in a square while skipping multiple squares.
*******************************************************************************}

function FindColorSkipBoxArray(var x, y: Integer; color, x1, y1, x2, y2:
  Integer; box: TBoxArray): Boolean;
var
  a, b: TPointArray;
begin
  a := cPointArray2(box, 1);
  b := cPointArray2(box, 2);
  Result := FindColorSkipBoxD(x, y, color, x1, y1, x2, y2, 0, a, b);
end;

{*******************************************************************************
function FindColorSkipBoxArrayTolerance(var x, y: Integer; color, x1, y1, x2, y2, tolerance: Integer; box: TBoxArray): Boolean;
By: Freddy1990
Description: Searches for a color in a square while skipping multiple squares.
*******************************************************************************}

function FindColorSkipBoxArrayTolerance(var x, y: Integer; color, x1, y1, x2,
  y2, tolerance: Integer; box: TBoxArray): Boolean;
var
  a, b: TPointArray;
begin
  a := cPointArray2(box, 1);
  b := cPointArray2(box, 2);
  Result := FindColorSkipBoxD(x, y, color, x1, y1, x2, y2, tolerance, a, b);
end;

{*******************************************************************************
function ScanMMColorExact(var x, y: Integer; color: Integer): Boolean;
By: Freddy1990
Description: Finds a color on the minimap. (minimap being 100% correct)
*******************************************************************************}

function ScanMMColorExact(var x, y: Integer; color: Integer): Boolean;
begin
  Result := ScanExactMinimapD(x, y, color, 0);
end;

{*******************************************************************************
function ScanMMColorExactTolerance(var x, y: Integer; color, tolerance: Integer): Boolean;
By: Freddy1990
Description: Finds a color with a tolerance on the minimap. (minimap being 100% correct)
*******************************************************************************}

function ScanMMColorExactTolerance(var x, y: Integer; color, tolerance:
  Integer): Boolean;
begin
  Result := ScanExactMinimapD(x, y, color, tolerance);
end;

{*******************************************************************************
procedure ClickExactMMColor(color: Integer);
By: Freddy1990
Description: Clicks a color on the EXACT minimap
*******************************************************************************}

procedure ClickExactMMColor(color: Integer);
var
  x, y: Integer;
begin
  if (ScanMMColorExact(x, y, color)) then
    Mouse(x, y, 0, 0, True);
end;

{*******************************************************************************
procedure ClickExactMMColorTol(color, tolerance: Integer);
By: Freddy1990
Description: Clicks a color with a tolerance on the EXACT Minimap.
*******************************************************************************}

procedure ClickExactMMColorTol(color, tolerance: Integer);
var
  x, y: Integer;
begin
  if (ScanMMColorExactTolerance(x, y, color, tolerance)) then
    Mouse(x, y, 0, 0, True);
end;

{*******************************************************************************
function ScanMMAreaColorExact(var x, y: Integer; x1, y1, x2, y2, color: Integer): Boolean;
By: Freddy1990
Description: Finds a color in the specified rectangle on the minimap. (minimap being 100% correct)
*******************************************************************************}

function ScanMMAreaColorExact(var x, y: Integer; x1, y1, x2, y2, color:
  Integer): Boolean;
begin
  Result := ScanExactMMAreaD(x, y, x1, y1, x2, y2, color, 0);
end;

{*******************************************************************************
function ScanMMAreaColorExactTolerance(var x, y: Integer; x1, y1, x2, y2, color, tolerance: Integer): Boolean;
By: Freddy1990
Description: Finds a color in the specified rectangle with a tolerance on the minimap. (minimap being 100% correct)
*******************************************************************************}

function ScanMMAreaColorExactTolerance(var x, y: Integer; x1, y1, x2, y2, color,
  tolerance: Integer): Boolean;
begin
  Result := ScanExactMMAreaD(x, y, x1, y1, x2, y2, color, tolerance);
end;
     
    doomessenger, Feb 9, 2007
    #2
  3. pescados666

    pescados666 Forum Addict
    Do Not Trade

    Joined:
    Jan 21, 2007
    Posts:
    502
    Referrals:
    1
    Sythe Gold:
    0
    color.scar
    it still gives me a error. the findcolorcircled error. try this script and tell me if it works on urs.

     
    pescados666, Feb 9, 2007
    #3
  4. doomessenger

    doomessenger Active Member
    Banned

    Joined:
    Jan 21, 2007
    Posts:
    248
    Referrals:
    0
    Sythe Gold:
    0
    color.scar
    if you got the "FindColorCircleD" error, that means that you did not install the plugins to the correct folder.
     
    doomessenger, Feb 10, 2007
    #4
  5. SlayerX

    SlayerX Active Member

    Joined:
    Jan 23, 2007
    Posts:
    100
    Referrals:
    0
    Sythe Gold:
    0
    color.scar
    try checking at at \c
     
    SlayerX, Feb 12, 2007
    #5
  6. doomessenger

    doomessenger Active Member
    Banned

    Joined:
    Jan 21, 2007
    Posts:
    248
    Referrals:
    0
    Sythe Gold:
    0
    color.scar
    what are you talking about??
     
    doomessenger, Feb 12, 2007
    #6
< Lack of Activity | FFS... I'm sorry. >
Thread Status:
Not open for further replies.


 
 
Adblock breaks this site